image of READY prompt

Wang2200.org

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

# Sector 2861, program filename = '$P/U5'
0020 PRINT AT(5,0);"$UNPACK (DELIMITER FORM)................ <--- TESTING"
0030 DIM B1$1,B$(150)1,C$(3,3)3,X(17),A$22,D$2,B$64
0040 FOR L=1TO 2
0050 FOR I=1TO 17
   : X(I)=0
   : NEXT I
   : INIT(20)C$(),A$,B$
   : Y=0
0060 X=123
   : D$=HEX(012C)
   : B1$=","
0070 FOR I=1TO 2
   : $UNPACK(D=D$)B1$TO X
0080 IF X<>123THEN 550
   : D$=HEX(032C)
   : NEXT I
0090 D$=HEX(002C)
   : B1$="1"
   : FOR I=1TO 4
0100 $UNPACK(D=D$)B1$TO X
   : IF X<>1THEN 550
0110 $UNPACK(D=D$)B1$TO A$
   : IF A$<>"1"THEN 550
0120 A$=" "
   : X=0
   : ADD(STR(D$,1,1),01)
   : NEXT I
0130 C$(2,2)="Z9Z"
   : C$(1,2)=HEX(035A)
0140 $UNPACK(D=C$(1,2))C$(2,2)TO X,Y
   : IF X<>9THEN 550
0150 IF Y<>0THEN 550
   : C$(1,2)=HEX(005A)
0160 $UNPACK(D=C$(1,2))C$(2,2)TO X,Y
   : IF X+Y<>18THEN 550
0170 C$(1,2)=HEX(015A)
   : X,W,Y,Z=0
0180 $UNPACK(D=C$(1,2))C$(2,2)TO X,Y,Z
   : IF X+Z<>0THEN 550
0190 IF Y<>9THEN 550
   : Y=0
0200 A$="1<<<<<<<<<<<<<<<<<<<<2"
   : D$=HEX(013C)
0210 $UNPACK(D=D$)STR(A$,1,22)TO X,Y,Z,X(),W
0220 IF X<>1THEN 550
   : IF W<>2THEN 550
0230 IF Y+Z<>0THEN 550
   : FOR I=1TO 17
   : IF X(I)<>0THEN 550
0240 NEXT I
0250 D$=HEX(033C)
   : $UNPACK(D=D$)A$TO X()
0260 IF X(1)<>1THEN 550
   : IF X(2)<>2THEN 550
0270 FOR I=3TO 17
   : IF X(I)<>0THEN 550
   : NEXT I
0280 FOR I=1TO 100
   : BIN(B$(I))=I
   : NEXT I
0290 D$=HEX(00FF)
   : $UNPACK(D=D$)B$()TO B$
0300 FOR I=1TO 64
   : IF VAL(STR(B$,I))<>ITHEN 550
   : NEXT I
0310 B1$="X"
   : $UNPACK(D=D$)B1$TO B$
   : IF B$<>"X"THEN 550
0320 B$="A B  C   D E F G H I"
0330 D$=HEX(0220)
   : $UNPACK(D=STR(D$,1))B$TO C$()
0340 B1$="A"
   : FOR I=1TO 3
   : FOR X=1TO 3
   : IF C$(I,X)<>B1$THEN 550
0350 ADD(B1$,01)
   : NEXT X
   : NEXT I
   : INIT(20)C$()
0360 D$=HEX(0020)
   : $UNPACK(D=D$)B$TO C$()
   : IF C$(1,1)<>"A"THEN 550
0370 IF C$(1,3)<>" "THEN 550
   : IF C$(2,3)<>" "THEN 550
0380 IF C$(2,2)<>" "THEN 550
   : IF C$(3,1)<>"D"THEN 550
0390 D$=HEX(002C)
   : FOR I=1TO 17
   : X(I)=I
   : NEXT I
0400 A$="-.001"
   : Y=-2.3E-14
   : FOR I=1TO 3
   : FOR X=1TO 3
0410 CONVERT -10*I-XTO C$(I,X),(+##)
   : NEXT X
   : NEXT I
0420 B1$="0"
   : $PACK(D=D$)B$()FROMX(),C$(),B1$,Y,A$
0430 $UNPACK(D=D$)B$()TO C$(),X(),A$,X1,Y
0440 Z=1
   : FOR I=1TO 3
   : FOR X=1TO 3
0450 CONVERT C$(I,X)TO K
   : IF K<>ZTHEN 550
   : Z=Z+1
0460 NEXT X
   : NEXT I
0470 FOR I=1TO 8
   : IF X(I)<>I+9THEN 550
   : NEXT I
0480 IF X(9)<>-11THEN 550
   : IF X(17)<>-33THEN 550
0490 IF A$<>"0"THEN 550
   : IF X1<>-2.3E-14THEN 550
0500 IF Y<>-.001THEN 550
0510 B$=" - 1 . 234567890123 E  - 15 "
0520 D$=HEX(002C)
   : $UNPACK(D=D$)B$TO X(3)
0530 IF X(3)<>-1.234567890123E-15THEN 550
0540 NEXT L
   : GOTO 570
0550 E(4)=E(4)+1
0560 PRINT AT(5,41,15);E(4);"ERRORS"
   : GOTO 580
0570 IF E(4)>0THEN 560
   : PRINT AT(5,41,15);"OK"
0580 LOAD DC T"$P/U6"