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"