image of READY prompt

Wang2200.org

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

# Sector 303, program filename = '$P/U7'
0020 PRINT AT(7,0);"$PACK (FIELD FORM, CONT.)............... <--- TESTING"
0030 DIM A$5,F$2,Z$64,B$28,X(4)
0040 FOR L=1TO 2
0050 F$=HEX(2305)
   : FOR I=1TO 4
0060 B$="+0000"
   : ON IGOTO 100,70,80,90
0070 B$=HEX(F0F0F0F0C0)
   : GOTO 100
0080 B$=HEX(50505050A0)
   : GOTO 100
0090 B$=HEX(000000000C)
0100 X=0
   : $PACK(F=F$)A$FROMX
   : IF A$<>B$THEN 9000
   : A$=" "
0110 X=.0001
   : $PACK(F=F$)A$FROMX
   : IF A$<>B$THEN 9000
0120 ADD(STR(F$,1,1),10)
   : NEXT I
0130 F$=HEX(2005)
   : FOR I=1TO 4
0140 B$="-1234"
   : ON IGOTO 180,150,160,170
0150 B$=HEX(F0F1F2F3D4)
   : GOTO 180
0160 B$=HEX(50515253B4)
   : GOTO 180
0170 B$=HEX(000001234D)
0180 X=-1234
   : $PACK(F=F$)A$FROMX
0190 IF A$<>B$THEN 9000
   : ADD(STR(F$,1,1),10)
   : NEXT I
0200 F$=HEX(2F14)
   : FOR I=1TO 4
0210 B$="+0123456789012300000"
   : ON IGOTO 250,220,230,240
0220 B$=HEX(F0F0F1F2F3F4F5F6F7F8F9F0F1F2F3F0F0F0F0C0)
   : GOTO 250
0230 B$=HEX(50505152535455565758595051525350505050A0)
   : GOTO 250
0240 B$=HEX(000000000000000000000123456789012300000C)
0250 X=123.4567890123
   : $PACK(F=F$)Z$FROMX
0260 IF Z$<>B$THEN 9000
   : ADD(STR(F$,1,1),10)
   : NEXT I
0270 F$=HEX(5005)
   : X=-123456789
   : $PACK(F=F$)STR(A$,1,5)FROMX
0280 IF A$<>HEX(123456789D)THEN 9000
   : G$=HEX(32044104)
0290 X(1)=-12.34
   : X(2)=.012
   : X(3)=10
   : X(4)=-1.234
   : Y=123.1
0300 $PACK(F=G$)B$FROMX(),Y
0310 IF B$<>HEX(F1F2F3D4F0F0F0C1F1F0F0C0F0F1F2D3515253A1)THEN 9000
0320 G$=HEX(5001520251015202)
   : B$=" "
0330 X(1)=1
   : X(2)=0
   : X(3)=.1
   : X(4)=-.12
0340 $PACK(F=G$)STR(B$,2,6)FROMX(1),X(2),X(3),X(4)
0350 IF B$<>HEX(201C000C1C012D)THEN 9000
0360 NEXT L
0370 Z$=" "
   : $PACK(F=HEX(600160016002600262046304))Z$FROM1,12,3456,789.23,123456.789,-
     .45678
   : IF Z$<>HEX(0112345607891234567800000456)THEN 9000
0380 $PACK(F=HEX(6002))STR(Z$,1,1)FROM1
   : ERRORIF ERR<>76THEN 9000
   : GOTO 400
0390 GOTO 9000
0400 $PACK(F=HEX(A001))Z$FROM1
   : ERRORIF ERR<>74THEN 9000
   : GOTO 420
0410 GOTO 9000
0420 $PACK(F=HEX(6001))Z$FROMA$
   : ERRORIF ERR<>74THEN 9000
   : GOTO 8990
0430 GOTO 9000
8990 GOTO 9020
9000 E(6)=E(6)+1
9010 PRINT AT(7,41,15);E(6);"ERRORS"
   : GOTO 9030
9020 IF E(6)>0THEN 9010
   : PRINT AT(7,41,15);"OK"
9030 LOAD DC T"$P/U8"