Listing of file='\$P/U2' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 737, program filename = '$P/U2'
0020 PRINT AT(2,0);"$PACK (INTERNAL FORM)................... <--- TESTING"
0030 DIM B$5,A$1,B$(5)1,C$64,X(21),C$(16,4)3,D$124,D$(125)1
0040 FOR J=1TO 3
0050 A$=HEX(AB)
: C$=" "
0060 $PACKB$FROMA$
: IF B$<>HEX(800181ABFD)THEN 9000
0070 $PACKB$()FROMA$
0080 FOR I=1TO 5
: IF B$(I)<>STR(B$,I,1)THEN 9000
: NEXT I
0090 X=1234567890123
: $PACKSTR(C$,20,12)FROMX
0100 IF STR(C$,1,19)<>" "THEN 9000
: IF STR(C$,32)<>" "THEN 9000
0110 IF STR(C$,20,12)<>HEX(8001080211234567890123FD)THEN 9000
0120 GOSUB 240
: $PACKC$()FROMX()
: GOSUB 250
0130 FOR I=1TO 5
: BIN(B$(I))=I-1
: NEXT I
0140 C$=" "
: $PACKC$FROMB$()
0150 IF C$<>HEX(800181008101810281038104FD)THEN 9000
0160 GOSUB 240
: INIT(00)C$()
0170 $PACKC$()FROMX(1),X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10),X(11),X(1
2),X(13),X(14),X(15),X(16),X(17),X(18),X(19),X(20),X(21)
0180 GOSUB 250
0190 B$="ABCDE"
: A$="F"
: X(5)=-5
: C$(3,3)="GHI"
: X=.123
0200 $PACKC$FROMA$,X(5),B$,X,B$(3),B$(),C$(3,3),STR(B$,2,3)
0210 IF C$<>HEX(80018146081005000000000000854142434445088101230000000000810281
0081018102810381048347484983424344FD)THEN 9000
0220 NEXT J
0230 GOTO 300
0240 X=RND(0)
: FOR I=1TO 21
: X(I)=RND(1)
: NEXT I
: RETURN
0250 FOR I=1TO 21
: X(I)=0
: NEXT I
0260 X=RND(0)
: $UNPACKC$()TO X()
0270 FOR I=1TO 21
: IF X(I)<>RND(1)THEN 9000
: NEXT I
0280 IF C$(1,1)<>HEX(800108)THEN 9000
0290 IF STR(C$(16,4),3)<>HEX(FD)THEN 9000
: RETURN
0300 D$=ALL(5A)
: C$()=" "
0310 FOR I=1TO 124
: $PACKC$()FROMSTR(D$,,I)
: IF STR(C$(),1,2)<>HEX(8001)OR VAL(STR(C$(),3))<>128+IOR STR(C$(),4,I)<>ST
R(D$,1,I)OR STR(C$(),I+4)<>HEX(FD)THEN 9000
: NEXT I
0320 B$="ABCDE"
: $PACKB$()FROMSTR(B$,1,1)
: IF B$()<>HEX(80018141FD)THEN 9000
0330 B$="ABCDE"
: $PACKB$()FROMSTR(B$,1,2)
: ERRORIF ERR<>76THEN 9000
: GOTO 8990
0340 GOTO 9000
8990 GOTO 9020
9000 E(1)=E(1)+1
9010 PRINT AT(2,41,15);E(1);"ERRORS"
: GOTO 9030
9020 IF E(1)>0THEN 9010
: PRINT AT(2,41,15);"OK"
9030 LOAD DC T"$P/U3"