image of READY prompt

Wang2200.org

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

# Sector 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"