image of READY prompt

Wang2200.org

Listing of file='\$P/U10' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 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"