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"