Listing of file='\$P/U9' on disk='vmedia/732-0050A.wvd.zip'
# Sector 1102, program filename = '$P/U9' 0020 PRINT AT(9,0);"$UNPACK (FIELD FORM, CONT.)............. <--- TESTING" 0030 DIM F$2,A$5,X(16),Z$64,B$1,Q$(17) 0040 FOR L=1TO 2 0050 A$=HEX(2B32C2A22E) : G$=HEX(2002300140015001) 0060 $UNPACK(F=G$)A$TO X(1),X(2),X(3),X(4) 0070 FOR I=1TO 4 : IF X(I)<>2THEN 9000 : NEXT I 0080 A$="+0000" : F$=HEX(2205) 0090 $UNPACK(F=F$)A$TO X(1) : IF X(1)<>0THEN 9000 0100 F$=HEX(3204) : $UNPACK(F=F$)STR(A$,2)TO X(2) 0110 IF X(2)<>0THEN 9000 : INIT(00)Z$ 0120 F$=HEX(5F40) : $UNPACK(F=F$)Z$TO X(3) 0130 IF X(3)<>0THEN 9000 : Z$="-" : F$=HEX(2240) : X=-9E-2 0140 FOR I=64TO 2STEP -1 : STR(Z$,I)="90" 0150 $UNPACK(F=F$)Z$TO Y : IF X<>YTHEN 9000 0160 X=X*10 : NEXT I 0170 F$=HEX(5F40) : INIT(00)Z$ : B$=HEX(F0) : STR(Z$,64)=HEX(10) : X=1E-15 0180 FOR I=0TO 20STEP .5 : $UNPACK(F=F$)Z$TO Y 0190 ADDC(STR(Z$,1,64-I),B$) : ROTATE(B$,4) 0200 IF Y<>XTHEN 9000 : X=X*10 : NEXT I 0210 A$=HEX(123456789D) : F$=HEX(5105) 0220 $UNPACK(F=F$)STR(A$,1,5)TO X 0230 IF X<>-12345678.9THEN 9000 0240 G$=HEX(23102310) : C$=HEX(10001000) 0250 FOR I=1TO 4 : READ Y 0260 FOR J=1TO 16 : READ X(J) : NEXT J : RESTORE 0270 $PACK(F=G$)Q$()FROMY,X() 0280 $UNPACK(F=G$)Q$()TO X(),Y 0290 FOR J=1TO 16 : READ X : IF X(J)<>XTHEN 9000 : NEXT J 0300 READ X : IF Y<>XTHEN 9000 : RESTORE 0310 ADD(G$,C$) : NEXT I 0320 DATA 0,.123,-.001,-123456789012.3,567,.02,1000.001,-5.234,-99887,-1,-12,1 23,1234,-12345,123456,1234567.1,-12345678.901 0330 NEXT L 0340 Z$=HEX(012345678901234567890123456789) : $UNPACK(F=HEX(60016101600262026204))Z$TO A,B,C,D,E : IF A<>1OR B<>2.3OR C<>4567OR D<>89.01OR E<>234567.89THEN 9000 0350 $UNPACK(F=HEX(6002))STR(Z$,1,1)TO X : ERRORIF ERR<>76THEN 9000 : GOTO 370 0360 GOTO 9000 0370 $UNPACK(F=HEX(6002))Z$TO A$ : ERRORIF ERR<>74THEN 9000 : GOTO 390 0380 GOTO 9000 0390 $UNPACK(F=HEX(A002))Z$TO X : ERRORIF ERR<>74THEN 9000 : GOTO 8990 0395 GOTO 9000 8990 GOTO 9020 9000 E(8)=E(8)+1 9010 PRINT AT(9,41,15);E(8);"ERRORS" : GOTO 9030 9020 IF E(8)>0THEN 9010 : PRINT AT(9,41,15);"OK" 9030 LOAD DC T"$P/U10"