Listing of file='\$P/U8' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 3126, 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"