image of READY prompt

Wang2200.org

Listing of file='\$P/U4' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector sector 350, program filename = '$P/U4   '
0020 PRINT AT(4,0);"$PACK (DELIMITER FORM).................. <--- TESTING"
0030 DIM B$2,E$64,F$(64)1,B$(64,2)1,X(5),L$(3)3
0040 FOR J=1TO 2
   : D$=HEX(002C)
0050 X=1
   : $PACK(D=D$)B$FROMX
   : IF B$<>" 1"THEN 310
0060 INIT(00)C$
   : D$=HEX(01FF)
0070 $PACK(D=D$)C$FROMX
   : IF STR(C$,1,2)<>" 1"THEN 310
0080 IF STR(C$,3)<>HEX(0000000000000000000000000000)THEN 310
0090 X=-1234567890123
   : D$=HEX(FF0200)
   : INIT(00)C$
0100 $PACK(D=STR(D$,2))STR(C$,2,14)FROMX
0110 IF STR(C$,1,1)<>HEX(00)THEN 310
0120 IF STR(C$,2,14)<>"-1234567890123"THEN 310
0130 IF STR(C$,16,1)<>HEX(00)THEN 310
0140 X=-1.23456789E-52
   : INIT(41)C$
   : D$=HEX(0300)
0150 $PACK(D=D$)C$FROMX
   : IF C$<>"-1.23456789E-52A"THEN 310
0160 $PACK(D=D$)STR(C$,1,1)FROMSTR(C$,2,1)
0170 IF C$<>"11.23456789E-52A"THEN 310
0180 FOR I=1TO 64
   : BIN(STR(E$,I,1))=I
   : NEXT I
0190 $PACK(D=D$)F$()FROME$
0200 FOR I=1TO 64
   : IF VAL(F$(I))<>ITHEN 310
   : NEXT I
0210 D$=HEX(002C)
   : $PACK(D=D$)B$()FROMF$()
0220 FOR I=1TO 63
   : IF B$(I,1)<>F$(I)THEN 310
   : NEXT I
0230 IF B$(64,1)<>HEX(40)THEN 310
   : IF B$(64,2)<>" "THEN 310
0240 E$=" "
   : X(1)=1
   : X(2)=12
   : X(3)=123
   : X(4)=1234
   : X(5)=12345
0250 $PACK(D=D$)E$FROMX()
0260 IF E$<>" 1, 12, 123, 1234, 12345"THEN 310
0270 L$(1)="A"
   : L$(2)="BC"
   : L$(3)="DEF"
   : C$="YES"
   : D$=HEX(005A)
0280 $PACK(D=D$)E$FROMC$,X(),STR(D$,2,1),X(1),L$(),I
0290 IF E$<>"YES             Z 1Z 12Z 123Z 1234Z 12345ZZZ 1ZA  ZBC ZDEFZ 63"TH
     EN 310
0300 NEXT J
   : GOTO 330
0310 E(3)=E(3)+1
0320 PRINT AT(4,41,15);E(3);"ERRORS"
   : GOTO 340
0330 IF E(3)>0THEN 320
   : PRINT AT(4,41,15);"OK"
0340 LOAD DC T"$P/U5"