image of READY prompt

Wang2200.org

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"