image of READY prompt

Wang2200.org

Listing of file='PKDICT' on disk='vmedia/701-2720C.wvd.zip'

# Sector 121, program filename = 'PKDICT'
0015 COM F1$(F7)2
0016 COM G3$(G3)G6
   : COM L3$(L3)L6
   : COM G$(1848)1
   : COM L3,L5,L6,G3,G5,G6,L3$,G3$
   : COM L0$(7)20
   : COM K9$124
0100 DIM A$1,P2$20
   : LOAD T"DDA.VARC"50,69BEG 1075
1075 LOAD T"DDA.DAT"0,0BEG 1081
1081 GOSUB '140(1,"150")
   : IF R9$=HEX(00)THEN 1082
   : H9=1
   : M=100
   : GOSUB 9200
   : GOTO 1081
1082 LOAD T<R9>R9$()7050,7999BEG 1090
1090 GOSUB '150("2 5 28525657")
   : IF M<>0THEN GOSUB '74(1,"PKDICT","Area 007")
   : GOSUB '140(2,"151152")
   : IF R9$<>HEX(00)THEN GOSUB 9200
   : LOAD T<R9>R9$()7050,7999BEG 2010
2010 G5=0
   : M5$=ALL(" ")
   : GOSUB '151("EQ","5",L0$(2)," "," "," "," ")
   : IF M<>0THEN GOSUB '74(1,"PKDICT","Area 007")
2040 GOSUB '151("GT","5",L0$(2)," ","6",M5$," ")
   : IF M=52OR M=64THEN 3020
   : IF M<>0THEN GOSUB '74(1,"PKDICT","Area 007")
   : GOSUB '152("CR","5","6"," "," "," "," ")
   : IF M<>0THEN GOSUB '74(1,"PKDICT","Area 007")
   : G5=G5+1
   : STR(G3$(G5),FNS(1),FNL(1))=STR(M5$,1,FNL(1))
   : STR(G3$(G5),FNS(2),FNL(2))="S"
2110 STR(G3$(G5),FNS(4),FNL(4))=STR(K8$(),61,2)
   : STR(G3$(G5),FNS(5),FNL(5))=STR(K8$(),44,FNL(5))
   : STR(G3$(G5),FNS(6),FNL(6))=STR(K8$(),41,1)
   : STR(G3$(G5),FNS(7),FNL(7))=STR(K8$(),42,1)
   : STR(G3$(G5),FNS(8),FNL(8))=STR(K8$(),65,3)
   : IF STR(K8$(),65,3)="Ent"THEN STR(G3$(G5),FNS(2),FNL(2))="P"
2156 IF STR(K8$(),65,3)="Glo"THEN STR(G3$(G5),FNS(2),FNL(2))="G"
   : STR(G3$(G5),FNS(9),FNL(9))="F"
   : STR(G3$(G5),FNS(10),FNL(10))=STR(K8$(),65+LEN(L0$(1))+1,FNL(10))
   : IF STR(K8$(),64,1)="M"THEN 2320
   : STR(G3$(G5),FNS(9),FNL(9))=STR(K8$(),68,1)
   : STR(G3$(G5),FNS(10),FNL(10))=STR(K8$(),69,FNL(10))
   : IF STR(K8$(),68,1)="F"THEN 2250
2220 CONVERT STR(K8$(),69,20)TO Z1
   : GOSUB '95(Z1)
   : STR(G3$(G5),FNS(10),FNL(10))=STR(Z1$,1,8)
2250 STR(G3$(G5),FNS(11),FNL(11))=STR(K8$(),89,1)
   : STR(G3$(G5),FNS(12),FNL(12))=STR(K8$(),90,FNL(12))
   : IF STR(K8$(),89,1)="F"THEN 2330
   : CONVERT STR(K8$(),90,20)TO Z1
   : GOSUB '95(Z1)
   : STR(G3$(G5),FNS(12),FNL(12))=STR(Z1$,1,8)
   : GOTO 2330
2320 STR(G3$(G5),FNS(8),FNL(8))="NO "
2330 STR(G3$(G5),FNS(13),FNL(13))=STR(K8$(),63,1)
   : IF STR(G3$(G5),FNS(13),FNL(13))=" "THEN STR(G3$(G5),FNS(13),FNL(13))="Y"
   : GOTO 2040
3020 G$()=" "
   : B=0
3040 B=B+1
   : CONVERT BTO I$,(#####)
   : GOSUB '152("KY","5","7",L0$(2)," ",I$," ")
   : IF M=52THEN 3110
   : IF M<>0THEN GOSUB '74(1,"PKDICT","KGread 1")
   : ELSE GOTO 3090
   : LOAD TR3$(2)
3090 STR(G$(),462*(B-1)+1,462)=K8$()
   : GOTO 3040
3110 IF L0(5)<>2THEN 5020
   : L5=0
   : GOSUB '151("EQ","2",L0$(1)," "," "," "," ")
   : IF M<>0THEN GOSUB '74(1,"PKDICT","Area 007")
   : M5$=" "
3112 GOSUB '151("GT","2",L0$(1)," ","8",M5$," ")
   : IF M=52OR M=64THEN 5020
   : IF M<>0THEN GOSUB '74(1,"PKDICT","Area 99A")
   : GOSUB '152("CR","2","8",L0$(1)," ",M5$," ")
   : IF M<>0THEN GOSUB '74(1,"PKDICT","Code Red")
   : FOR I=1TO 13
   : IF STR(K8$(),35*(I-1)+1,20)<>" "THEN 3113
   : GOTO 5020
3113 L5=L5+1
   : STR(L3$(L5),FNS(1),FNL(1))=STR(K8$(),(I-1)*35+LEN(L0$(1))+2,FNL(1))
   : STR(L3$(L5),FNS(2),FNL(2))=STR(K8$(),(I-1)*35+25,1)
   : STR(L3$(L5),FNS(3),FNL(3))=STR(K8$(),(I-1)*35+29,2)
   : STR(L3$(L5),FNS(4),FNL(4))=STR(K8$(),(I-1)*35+26,2)
   : NEXT I
   : GOTO 3112
5020 GOSUB '140(1,"156")
   : IF R9$<>HEX(00)THEN GOSUB 9200
   : LOAD T<R9>R9$()7050,7999BEG 5030
5030 GOSUB '156("ALL")
   : DIM F0$G6,F1$5
   : FOR I=1TO G5
   : FOR J=1TO G5-1
   : IF STR(G3$(J),FNS(6),FNL(6)+FNL(7))<STR(G3$(J+1),FNS(6),FNL(6)+FNL(7))THE
     N 5110
   : F0$=G3$(J)
   : G3$(J)=G3$(J+1)
   : G3$(J+1)=F0$
5110 NEXT J
   : NEXT I
   : FOR J=1TO G5
   : IF STR(G3$(J),FNS(8),FNL(8))<>"NO"THEN 5125
   : FOR K=1TO L5
   : IF STR(G3$(J),FNS(10),FNL(10))=STR(L3$(K),FNS(1),FNL(1))THEN 5124
   : NEXT K
   : STOP "PETER'S FAULT"#
5124 STR(G3$(J),FNS(2),FNL(2))=STR(L3$(K),FNS(2),FNL(2))
5125 NEXT J
   : COM CLEAR H7$
   : S=VAL(STR(K9$,7,1))
   : L=VAL(STR(K9$,8,1))
   : G1$=STR(K9$,S,8)
   : MAT COPY K9$<S+8,L-8>TO K9$<S,L-8>
   : STR(K9$,S+L-8,8)="@MENU   "
   : LOAD TG1$
6000 DEFFN'74(M4,L3$,G3$)
   : GOSUB '140(1,"160")
   : IF R9$<>HEX(00)THEN GOSUB 9200
   : LOAD T<R9>R9$()7050,7999BEG 6010
6010 GOSUB '160(M4,L3$,G3$)
   : COM CLEAR H7$
   : LOAD TR3$(2)
7000 DEFFN'140(I9,I9$)
   : RESTORE LINE7024
   : I9(5)=INT(LEN(STR(R9$()))/8)
   : R9=0
   : R9$()=" "
   : FOR I=1TO I9
7006 READ I8$
   : IF I8$="END"THEN 7020
   : READ I9(4)
   : READ I9$()
   : MAT SEARCHI9$,=STR(I8$,1,3)TO I$STEP 3
   : IF STR(I$,1,2)=HEX(0000)THEN 7006
   : FOR I1=0TO I9(4)-1
   : MAT SEARCHR9$(),=STR(I9$(),(I1*8)+1,8)TO I$STEP 8
   : IF STR(I$,1,2)<>HEX(0000)THEN 7018
   : IF R9=I9(5)THEN 7022
   : STR(R9$(),(R9*8)+1,8)=STR(I9$(),(I1*8)+1,8)
   : R9=R9+1
7018 NEXT I1
   : NEXT I
   : R9$=HEX(00)
   : RETURN
7020 R9$=HEX(01)
   : RETURN
7022 R9$=HEX(02)
   : RETURN
7024 DATA "150",7,"DDA.141 DDA.143 DDA.144 DDA.149 DDA.150 DDA.157 DDA.159 "
9101 DEFFN'95(Z1)
   : $PACKZ1$FROMZ1
   : Z1$=STR(Z1$,4,8)&ALL(00)
   : RETURN
9106 DEFFN'96(Z1$)
   : Z2$=HEX(800108)&STR(Z1$,1,8)&HEX(80)
   : $UNPACKZ2$TO Z1
   : RETURN
9200 IF M=72OR M=70THEN 9300
   : PRINT AT(16,10);HEX(0F);"Problem #";M;" in the definition file.  Unable t
     o try again. \A0";HEX(0F);
   : KEYIN A$
9282 COM CLEAR G4
   : S=VAL(STR(K9$,7,1))
   : L=VAL(STR(K9$,8,1))
   : G1$=STR(K9$,S,8)
   : MAT COPY -K9$<S+8,L-8>TO -K9$<S,L-8>
   : STR(K9$,S+L-8,8)="@MENU   "
   : LOAD TG1$
9300 PRINT AT(16,10);HEX(0F);"Definition file in use.  Try again? \A0";HEX(0F)
     ;
   : KEYIN A$,,9320
   : IF A$="Y"THEN 9311
   : IF A$="N"THEN 9312
   : PRINT HEX(07);
   : GOTO 9300
9311 RETURN
9312 PRINT "N";
   : GOTO 9282
9320 GOTO 9300
9701 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
9702 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
9900 DEFFN'0"PRINT HEX(03);:LISTSD 6000,  9699";HEX(0D)
   : GOTO 100
9997 % SELECT LIST 215(128):LIST"PETER KIBBLER - PKDICT"D:SELECT LIST 005(80)
9999 %    SCRATCH T "PKDICT":SAVE T ()"PKDICT"