image of READY prompt

Wang2200.org

Listing of file='\$P/U8' on disk='vmedia/732-0050A.wvd.zip'

# Sector 958, program filename = '$P/U8'
0020 PRINT AT(8,0);"$UNPACK (FIELD FORM).................... <--- TESTING"
0030 DIM F$2,B$1,C$1,Z$64,W$(60)1,X(17),Q$(18)10
0040 FOR L=1TO 2
0060 F$=HEX(A001)
   : B$="A"
   : $UNPACK(F=F$)B$TO C$
0070 IF C$<>"A"THEN 320
   : INIT(5A)A$,C$
0080 $UNPACK(F=F$)B$TO STR(A$,3)
   : IF A$<>"ZZA"THEN 320
0090 D$="ABCDEFG"
   : G$=HEX(A005A00B)
0100 $UNPACK(F=STR(G$,1))D$TO C$,A$
0110 IF C$<>"A"THEN 320
   : IF A$<>"FG"THEN 320
0120 FOR I=1TO 64
   : BIN(STR(Z$,I))=I
   : NEXT I
0130 G$=HEX(A001A002A001)
   : $UNPACK(F=G$)Z$TO W$(),F$,B$
0140 FOR I=1TO 60
   : IF VAL(W$(I))<>ITHEN 320
   : NEXT I
0150 IF F$<>HEX(3D3E)THEN 320
   : IF B$<>HEX(3F)THEN 320
0170 DATA "  0","1234567890","-.00000001",".01E-15","-123.4E+91",".1","-17.925
     00",".0000","1E2","123.0056",".9"
0180 DATA "-.2","-000123456","0000000000","      0 1","1","-2.4000","   ABCDE"
0190 C$="1"
   : F$=HEX(1001)
   : $UNPACK(F=F$)C$TO X
0200 IF X<>1THEN 320
   : F$=HEX(1040)
0210 Z$="  +1 . 234567890123 E + 1 2"
0220 $UNPACK(F=F$)Z$TO X(1)
   : IF X(1)<>1.234567890123E+12THEN 320
0230 F$=HEX(1005)
   : G$=HEX(10051003)
0240 $UNPACK(F=STR(G$,1,4))STR(Z$,6,8)TO X(2),Y
0250 IF X(2)<>.234THEN 320
   : IF Y<>567THEN 320
0260 FOR I=1TO 18
   : READ Q$(I)
   : NEXT I
   : RESTORE
0270 G$=HEX(100AA00A)
   : $UNPACK(F=G$)Q$()TO X(),Z$
0280 FOR I=1TO 17
   : CONVERT Q$(I)TO X
0290 IF X<>X(I)THEN 320
   : NEXT I
0300 IF Z$<>Q$(18)THEN 320
0310 NEXT L
   : GOTO 340
0320 E(7)=E(7)+1
0330 PRINT AT(8,41,15);E(7);"ERRORS"
   : GOTO 350
0340 IF E(7)>0THEN 330
   : PRINT AT(8,41,15);"OK"
0350 LOAD DC T"$P/U9"