image of READY prompt

Wang2200.org

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"