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"