image of READY prompt

Wang2200.org

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"