Listing of file='\$P/U10' on disk='vmedia/732-0050A.wvd.zip'
# Sector 1055, program filename = '$P/U10' 0020 PRINT AT(10,0);"$PACK/$UNPACK (SKIP FIELD, MISC.)....... <--- TESTING" 0030 DIM A$1,B$1,X(5),Q$(8) 0040 FOR L=1TO 2 0050 F$=HEX(0001000AA0010003A001) : A$="A" : B$="B" : C$=" " 0060 $PACK(F=F$)C$FROMA$,B$ 0070 IF C$<>" A B"THEN 230 0080 $UNPACK(F=F$)C$TO B$,A$ 0090 IF B$<>"A"THEN 230 : IF A$<>"B"THEN 230 0100 F$=HEX(0010501000105010) : INIT(20)Q$() 0110 FOR I=1TO 5 : X(I)=I : NEXT I : Y=6 0120 $PACK(F=F$)Q$()FROMX(),Y 0130 IF Q$(1)<>" "THEN 230 : IF Q$(7)<>" "THEN 230 0140 $UNPACK(F=F$)Q$()TO X(),Y : IF Y<>6THEN 230 0150 FOR I=1TO 5 : IF X(I)<>ITHEN 230 : NEXT I 0160 F$=HEX(2005) : C$="+1234" : Y=1234 0170 FOR I=1TO 16 : $UNPACK(F=F$)C$TO X 0180 IF X<>YTHEN 230 : Y=Y/10 : ADD(STR(F$,1,1),01) : NEXT I 0190 F$=HEX(5003) : C$=HEX(01234B) : Y=-1234 0200 FOR I=1TO 16 : $UNPACK(F=F$)C$TO X 0210 IF X<>YTHEN 230 : Y=Y/10 : ADD(STR(F$,1,1),01) : NEXT I 0220 NEXT L : GOTO 250 0230 E(9)=E(9)+1 0240 PRINT AT(10,41,15);E(9);"ERRORS" : GOTO 260 0250 IF E(9)>0THEN 240 : PRINT AT(10,41,15);"OK" 0260 LOAD DC T"$P/U11"