Listing of file='PKNEWDF' on disk='vmedia/701-2720C.wvd.zip'
# Sector 283, program filename = 'PKNEWDF' 0015 COM F7,F1$(F7)2 ,A$(4)62 0026 COM L3,L5,L6,G3,G5,G6,L3$,G3$ : COM G3$(G3)G6 : COM L3$(L3)L6 : COM H7$7,H9 0100 DEFFNS(Q)=VAL(STR(F1$(Q),1,1)) 0101 DEFFNL(Q)=VAL(STR(F1$(Q),2,1)) : LOAD T"DDA.DAT"7024,7049BEG 140 0140 LOAD T"DDA.VARC"50,69BEG 180 0180 GOSUB '140(1,"150") : IF R9$<>HEX(00)THEN STOP "PKDICT"# : LOAD T<R9>R9$()7050,7999BEG 190 0190 GOSUB '150("2 3 5 23525657") : IF M<>0THEN GOSUB '74(1,"NWDF","C1") : GOSUB '140(2,"152154") : LOAD T<R9>R9$()7050,7999BEG 230 0230 GOSUB '152("KY","5"," ",L0$(2)," "," "," ") : IF M<>0THEN GOSUB '74(1,"NWDF","C2") : STR(K8$(),41,1)="Y" : GOSUB '154(K8$(),M1$,M4$) : IF M<>0THEN GOSUB '74(1,"NWDF","C3") : GOSUB '140(2,"151152") : LOAD T<R9>R9$()7050,7999BEG 280 0280 M5$=" " 0290 GOSUB '151("GT","5",L0$(2)," ","6",M5$," ") : IF M=52OR M=64THEN 530 : IF M<>0THEN GOSUB '74(1,"NWDF","C4") : GOSUB '152("CR","5","6"," "," "," "," ") : IF M=52OR M=64THEN 530 : IF M<>0THEN GOSUB '74(1,"NWDF","C5") : FOR I=1TO G5 : IF STR(G3$(I),FNS(1),FNL(1))<>M5$THEN 360 : IF STR(K8$(),44,5)="NULL"THEN 380 : GOTO 290 0360 NEXT I 0380 GOSUB '140(1,"155") : IF R9$<>HEX(00)THEN STOP "PKDICT"# : LOAD T<R9>R9$()7050,7999BEG 390 0390 GOSUB '155(M1$,M2$,M3$,M4$,M5$,M6$) : IF M<>0THEN GOSUB '74(1,"NWDF","C6") : GOSUB '140(2,"151152") : IF R9$<>HEX(00)THEN STOP "PKDICT"# : LOAD T<R9>R9$()7050,7999BEG 290 0530 H9=0 0540 GOSUB '140(3,"151152153") : IF R9$<>HEX(00)THEN STOP "PKDICT"# : LOAD T<R9>R9$()7050,7999BEG 548 0548 H9=H9+1 : M5$=STR(G3$(H9),FNS(1),FNL(1)) : GOSUB '151("EQ","5",M2$," ","6",M5$," ") : IF M=52OR M=64THEN 600 : IF M<>0THEN GOSUB '74(1,"NWDF","C7") : GOSUB '152("CR","5","6"," "," "," "," ") : IF M<>0THEN GOSUB '74(1,"NWDF","C8") 0600 K8$()=ALL(20) : STR(K8$(),44,FNL(5))=STR(G3$(H9),FNS(5),FNL(5)) : STR(K8$(),61,2)=STR(G3$(H9),FNS(4),FNL(4)) : STR(K8$(),41,1)=STR(G3$(H9),FNS(6),FNL(6)) : STR(K8$(),42,1)=STR(G3$(H9),FNS(7),FNL(7)) : STR(K8$(),65,3)=STR(G3$(H9),FNS(8),FNL(8)) : IF STR(G3$(H9),FNS(8),FNL(8))<>"NO "THEN 680 0650 STR(K8$(),65,20)=L0$(1)&"-"&STR(G3$(H9),FNS(10),FNL(10)) : STR(K8$(),64,1)="M" : GOTO 820 0680 STR(K8$(),64,1)="D" : IF STR(G3$(H9),FNS(9),FNL(9))<>"C"THEN 730 : STR(K8$(),68,1)="C" : GOSUB '96(STR(G3$(H9),FNS(10),FNL(10))) : GOSUB '100(Z1) : STR(K8$(),69,20)=STR(G3$,1,12) : GOTO 750 0730 STR(K8$(),68,1)="F" : STR(K8$(),69,20)=STR(G3$(H9),FNS(10),FNL(10)) 0750 IF STR(G3$(H9),FNS(11),FNL(11))<>"C"THEN 790 : STR(K8$(),89,1)="C" : GOSUB '96(STR(G3$(H9),FNS(12),FNL(12))) : GOSUB '100(Z1) : STR(K8$(),90,20)=STR(G3$,1,12) : GOTO 810 0790 STR(K8$(),89,1)="F" : STR(K8$(),90,20)=STR(G3$(H9),FNS(12),FNL(12)) 0810 STR(K8$(),63,1)=STR(G3$(H9),FNS(13),FNL(13)) 0820 IF M=52THEN 880 : IF M<>0THEN GOSUB '74(1,"NWDF","C9") : GOSUB '140(1,"154") : IF R9$<>HEX(00)THEN STOP "PKDICT"# : LOAD T<R9>R9$()7050,7999BEG 850 0850 GOSUB '154(K8$(),"5","6") : IF M<>0THEN GOSUB '74(1,"NWDF","CA") : GOTO 910 0880 GOTO 890 : GOSUB '140(1,"153") 0881 IF R9$<>HEX(00)THEN STOP "PKDICT"# : LOAD T<R9>R9$()7050,7999BEG 890 0890 GOSUB '153(" ",K8$(),"5",M2$," ","6",M5$," ") : IF M<>0THEN GOSUB '74(1,"NWDF","CB") : IF H9<G5THEN 548 : GOTO 911 0910 IF H9<G5THEN 540 0911 PRINT HEX(0F); : GOSUB '140(3,"151153155") : LOAD T<R9>R9$()7050,7999BEG 1040 1040 G0=0 1050 G0=G0+1 : IF G0>FIX(LEN(STR(G$()))/462)THEN 1210 : K8$()=STR(G$(),462*(G0-1)+1,462) : CONVERT G0TO I$,(#####) : IF K8$()=" "THEN 1130 : GOSUB '153("RW",K8$(),"5",L0$(2)," ","7",I$," ") : IF M<>0THEN GOSUB '160(1,"PKNEWDF","KGstor 1") : ELSE GOTO 1050 : LOAD TR3$(2) 1130 GOSUB '151("EQ","5",L0$(2)," ","7",I$," ") : IF M=52THEN 1210 : IF M<>0THEN GOSUB '160(1,"PKNEWDF","KGfind 1") : ELSE GOTO 1160 : LOAD TR3$(2) 1160 GOSUB '155("5",L0$(2)," ","7",I$," ") : IF M=0THEN 1180 : GOSUB '160(1,"PKNEWDF","KGdel 1") : LOAD TR3$(2) 1180 G0=G0+1 : CONVERT G0TO I$,(#####) : GOTO 1130 1210 X=X : GOSUB '140(1,"156") : IF R9$<>HEX(00)THEN STOP "PKDICT"# : LOAD T<R9>R9$()7050,7999BEG 5040 5040 GOSUB '156("ALL") : IF M<>0THEN GOSUB '74(1,"NWDF","CC") : 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 " : COM CLEAR H7$ : LOAD TG1$ 6000 DEFFN'74(M4,L3$,G3$) : GOSUB '140(1,"160") : 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 % 9106 DEFFN'96(Z1$) : Z2$=HEX(800108)&STR(Z1$,1,8)&HEX(80) : $UNPACKZ2$TO Z1 : RETURN 9210 DEFFN'100(G1) : STR(G$,1,12)="-###########" : CONVERT G1TO STR(G3$,1,12),(G$) : CONVERT STR(G3$,1,12)TO G2 : IF G2=G1THEN RETURN : FOR H3=11TO 1STEP -1 : STR(G$,H3,1)="." : CONVERT G1TO STR(G3$,1,12),(G$) : CONVERT STR(G3$,1,12)TO G2 : IF G2=G1THEN RETURN : STR(G$,H3,1)="#" : NEXT H3 : STOP "PKEX1"# 9900 DEFFN'0"PRINT HEX(03);:LISTSD 0290, 9699";HEX(0D) 9999 % SCRATCH T "PKNEWDF":SAVE T ()"PKNEWDF"