Listing of file='\$P/U5' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2861, program filename = '$P/U5' 0020 PRINT AT(5,0);"$UNPACK (DELIMITER FORM)................ <--- TESTING" 0030 DIM B1$1,B$(150)1,C$(3,3)3,X(17),A$22,D$2,B$64 0040 FOR L=1TO 2 0050 FOR I=1TO 17 : X(I)=0 : NEXT I : INIT(20)C$(),A$,B$ : Y=0 0060 X=123 : D$=HEX(012C) : B1$="," 0070 FOR I=1TO 2 : $UNPACK(D=D$)B1$TO X 0080 IF X<>123THEN 550 : D$=HEX(032C) : NEXT I 0090 D$=HEX(002C) : B1$="1" : FOR I=1TO 4 0100 $UNPACK(D=D$)B1$TO X : IF X<>1THEN 550 0110 $UNPACK(D=D$)B1$TO A$ : IF A$<>"1"THEN 550 0120 A$=" " : X=0 : ADD(STR(D$,1,1),01) : NEXT I 0130 C$(2,2)="Z9Z" : C$(1,2)=HEX(035A) 0140 $UNPACK(D=C$(1,2))C$(2,2)TO X,Y : IF X<>9THEN 550 0150 IF Y<>0THEN 550 : C$(1,2)=HEX(005A) 0160 $UNPACK(D=C$(1,2))C$(2,2)TO X,Y : IF X+Y<>18THEN 550 0170 C$(1,2)=HEX(015A) : X,W,Y,Z=0 0180 $UNPACK(D=C$(1,2))C$(2,2)TO X,Y,Z : IF X+Z<>0THEN 550 0190 IF Y<>9THEN 550 : Y=0 0200 A$="1<<<<<<<<<<<<<<<<<<<<2" : D$=HEX(013C) 0210 $UNPACK(D=D$)STR(A$,1,22)TO X,Y,Z,X(),W 0220 IF X<>1THEN 550 : IF W<>2THEN 550 0230 IF Y+Z<>0THEN 550 : FOR I=1TO 17 : IF X(I)<>0THEN 550 0240 NEXT I 0250 D$=HEX(033C) : $UNPACK(D=D$)A$TO X() 0260 IF X(1)<>1THEN 550 : IF X(2)<>2THEN 550 0270 FOR I=3TO 17 : IF X(I)<>0THEN 550 : NEXT I 0280 FOR I=1TO 100 : BIN(B$(I))=I : NEXT I 0290 D$=HEX(00FF) : $UNPACK(D=D$)B$()TO B$ 0300 FOR I=1TO 64 : IF VAL(STR(B$,I))<>ITHEN 550 : NEXT I 0310 B1$="X" : $UNPACK(D=D$)B1$TO B$ : IF B$<>"X"THEN 550 0320 B$="A B C D E F G H I" 0330 D$=HEX(0220) : $UNPACK(D=STR(D$,1))B$TO C$() 0340 B1$="A" : FOR I=1TO 3 : FOR X=1TO 3 : IF C$(I,X)<>B1$THEN 550 0350 ADD(B1$,01) : NEXT X : NEXT I : INIT(20)C$() 0360 D$=HEX(0020) : $UNPACK(D=D$)B$TO C$() : IF C$(1,1)<>"A"THEN 550 0370 IF C$(1,3)<>" "THEN 550 : IF C$(2,3)<>" "THEN 550 0380 IF C$(2,2)<>" "THEN 550 : IF C$(3,1)<>"D"THEN 550 0390 D$=HEX(002C) : FOR I=1TO 17 : X(I)=I : NEXT I 0400 A$="-.001" : Y=-2.3E-14 : FOR I=1TO 3 : FOR X=1TO 3 0410 CONVERT -10*I-XTO C$(I,X),(+##) : NEXT X : NEXT I 0420 B1$="0" : $PACK(D=D$)B$()FROMX(),C$(),B1$,Y,A$ 0430 $UNPACK(D=D$)B$()TO C$(),X(),A$,X1,Y 0440 Z=1 : FOR I=1TO 3 : FOR X=1TO 3 0450 CONVERT C$(I,X)TO K : IF K<>ZTHEN 550 : Z=Z+1 0460 NEXT X : NEXT I 0470 FOR I=1TO 8 : IF X(I)<>I+9THEN 550 : NEXT I 0480 IF X(9)<>-11THEN 550 : IF X(17)<>-33THEN 550 0490 IF A$<>"0"THEN 550 : IF X1<>-2.3E-14THEN 550 0500 IF Y<>-.001THEN 550 0510 B$=" - 1 . 234567890123 E - 15 " 0520 D$=HEX(002C) : $UNPACK(D=D$)B$TO X(3) 0530 IF X(3)<>-1.234567890123E-15THEN 550 0540 NEXT L : GOTO 570 0550 E(4)=E(4)+1 0560 PRINT AT(5,41,15);E(4);"ERRORS" : GOTO 580 0570 IF E(4)>0THEN 560 : PRINT AT(5,41,15);"OK" 0580 LOAD DC T"$P/U6"