Listing of file='\$P/U6' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2575, program filename = '$P/U6' 0020 PRINT AT(6,0);"$PACK (FIELD FORM)...................... <--- TESTING" 0030 DIM F$2,B$1,C$1,Z$64,W$(60)1,X(5) 0040 FOR L=1TO 2 0060 F$=HEX(A001) : C$="A" : $PACK(F=F$)B$FROMC$ 0070 IF B$<>"A"THEN 390 : A$="XYZUVW" 0080 $PACK(F=F$)B$FROMA$ : IF B$<>"X"THEN 390 0090 G$=HEX(A005A008A003) : INIT(FF)D$ 0100 $PACK(F=STR(G$,1))D$FROMA$,A$,STR(A$,1,1) 0110 IF D$<>"XYZUVXYZUVW X"THEN 390 0120 FOR I=1TO 60 : BIN(W$(I))=I : NEXT I 0130 A$=HEX(20203D3E) : F$=HEX(3F40) : G$=HEX(A001A002A002) 0140 $PACK(F=G$)Z$FROMW$(),STR(A$,3,2),F$ 0150 FOR I=1TO 64 : IF VAL(STR(Z$,I))<>ITHEN 390 : NEXT I 0160 G$=HEX(A010A01FA001A00C) : A$="ABCDEFGHIJKLMNOP" 0170 $PACK(F=G$)W$()FROMA$,STR(Z$,7,29),B$,STR(A$,1,12) 0180 FOR I=1TO 16 : IF W$(I)<>STR(A$,I,1)THEN 390 : NEXT I 0190 FOR I=17TO 45 : IF W$(I)<>STR(Z$,I-10,1)THEN 390 : NEXT I 0200 IF W$(46)<>" "THEN 390 : IF W$(47)<>" "THEN 390 0210 IF W$(48)<>"X"THEN 390 0220 FOR I=49TO 60 : IF W$(I)<>STR(A$,I-48,1)THEN 390 : NEXT I 0240 G$=HEX(1002) : X=1 : $PACK(F=G$)F$FROMX 0250 IF F$<>" 1"THEN 390 : X=-.345 : INIT(5A)D$ 0260 G$=HEX(100E) : $PACK(F=G$)STR(D$,2)FROMX 0270 IF D$<>"Z-.345 Z"THEN 390 : G$=HEX(100A100A) 0280 RESTORE : FOR I=1TO 5 : READ X(I) : NEXT I 0290 DATA 0,123456789,-1.23,.12345678,-12345.678,-1 0300 Y=-1 : $PACK(F=G$)W$()FROMX(),Y : RESTORE 0310 A$=" " : FOR I=1TO 6 : FOR J=1TO 10 0320 STR(A$,J,1)=W$((I-1)*10+J) : NEXT J 0330 CONVERT A$TO Y : READ X : IF X<>YTHEN 390 : NEXT I 0340 G$=HEX(1002100510011002) : Z$=" " : X=123 0350 $PACK(F=G$)Z$FROMX,X,X,X : IF Z$<>" 1 123 1"THEN 390 0360 X=-1.23456789E-45 : D$=" " : G$=HEX(100F) 0370 $PACK(F=G$)D$FROMX : IF D$<>"-1.23456789E-45"THEN 390 0380 NEXT L : GOTO 410 0390 E(5)=E(5)+1 0400 PRINT AT(6,41,15);E(5);"ERRORS" : GOTO 420 0410 IF E(5)>0THEN 400 : PRINT AT(6,41,15);"OK" 0420 LOAD DC T"$P/U7"