Listing of file='\$P/U3 ' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 892, program filename = '$P/U3' 0020 PRINT AT(3,0);"$UNPACK (INTERNAL FORM)................. <--- TESTING" 0030 DIM A$(255,2)1,X(56),A1$(254)1,A2$(5)3 0040 FOR J=1TO 2 0050 B$=HEX(FFFF854142434445FD) : $UNPACKB$TO A$ 0060 IF A$<>"ABCDE"THEN 9000 : B$=HEX(0000080001234567890123FD) 0070 $UNPACKSTR(B$,1)TO X : IF X<>1.234567890123THEN 9000 0080 $PACKB$FROMSTR(A$,1,5),STR(A$,2,2) : INIT(00)A$,C$ 0090 $UNPACKB$TO A$,C$ : IF A$<>"ABCDE"THEN 9000 0100 IF C$<>"BC"THEN 9000 : INIT(20)A$,C$ 0110 $UNPACKB$TO STR(A$,2,5),C$ : IF C$<>"BC"THEN 9000 0120 IF A$<>" ABCDE"THEN 9000 : INIT(00)A$,C$ 0130 $UNPACKB$TO STR(A$,3,2),C$ : IF C$<>"BC"THEN 9000 0140 IF STR(A$,1,6)<>HEX(000041420000)THEN 9000 0150 INIT(81)A$() : A$(255,1)=HEX(FD) 0160 FOR I=2TO 255 : BIN(A$(I,2))=I-1 : NEXT I 0170 A1$()=" " : $UNPACKA$()TO A1$() 0180 FOR I=1TO 253 : IF VAL(A1$(I))<>ITHEN 9000 : NEXT I : IF A1$(254)<>" "THEN 9000 0190 X=RND(0) : FOR I=1TO 56 : X(I)=RND(1) : NEXT I 0200 $PACKA$()FROMX() 0210 FOR I=1TO 56 : X(I)=0 : NEXT I 0220 $UNPACKA$()TO X() 0230 X=RND(0) : FOR I=1TO 56 : IF X(I)<>RND(1)THEN 9000 : NEXT I 0240 $UNPACKA$()TO X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10),X(11),X(12),X (13),X(14),X(15),X(16),X(17) 0250 X=RND(0) : FOR I=2TO 17 : IF X(I)<>RND(1)THEN 9000 : NEXT I 0260 X(4)=0 : $UNPACKA$()TO X(1),X(2),X(3) : X=RND(0) 0270 FOR I=1TO 3 : IF X(I)<>RND(1)THEN 9000 : NEXT I 0280 IF X(4)<>0THEN 9000 : A$="ABCDE" 0290 FOR I=1TO 5 : BIN(A2$(I))=I : NEXT I 0300 $PACKA$()FROMX(1),A2$(),X(2),A1$(1),X,STR(A$,3,2),STR(A$,1),X(3) 0310 INIT(00)A2$(),A$,B$,C$ 0320 $UNPACKA$()TO X(4),A2$(),X(5),A$,X(7),B$,C$,X(6) 0330 FOR I=1TO 3 : IF X(I)<>X(I+3)THEN 9000 : NEXT I 0340 IF X<>X(7)THEN 9000 : IF A$<>HEX(01)THEN 9000 0350 IF B$<>"CD"THEN 9000 : IF C$<>"ABCDE"THEN 9000 0360 FOR I=1TO 5 : IF VAL(A2$(I))<>ITHEN 9000 : NEXT I 0370 NEXT J 0380 A$=HEX(800190) : $UNPACKA$TO B$ : ERRORIF ERR<>76THEN 9000 : GOTO 400 0390 GOTO 9000 0400 A$=HEX(80018141FD) : $UNPACKA$TO X : ERRORIF ERR<>74THEN 9000 : GOTO 420 0410 GOTO 9000 0420 A$=HEX(8001080123456789010234FD) : $UNPACKA$TO B$ : ERRORIF ERR<>74THEN 9000 : GOTO 8990 0430 GOTO 9000 8990 GOTO 9020 9000 E(2)=E(2)+1 9010 PRINT AT(3,41,15);E(2);"ERRORS" : GOTO 9030 9020 IF E(2)>0THEN 9010 : PRINT AT(3,41,15);"OK" 9030 LOAD DC T"$P/U4"