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"