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"