Listing of file='PKFIELDS' on disk='vmedia/701-2720C.wvd.zip'
# Sector 193, program filename = 'PKFIELDS'
0900 COM K9$124, F7,F1$(F7)2
0910 COM L3,L5,L6,F3,F5,F6
: COM G3$(G3)G6,L3$(L3)L6,H7$7
: COM L4$(L3)1,G4$(G3)5
0931 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
0932 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
0933 DEFFNR(D4)=D5+D4-((INT((D4-1)/D6))*D6)
0934 DEFFNC(D4)=INT((D4-1)/D6)*(FNL(1)+5)
: D7=INT((80-FNL(1))/(FNL(1)+3))
: D6=12
: D5=1
: IF D7*D6>L5THEN 1020
: D6=22
: D5=0
1020 PRINT HEX(06);AT(1,0);BOX(0,80);AT(18,0);BOX(0,80);
: IF D6>12THEN PRINT AT(18,0);BOX(0,-80);
: PRINT AT(0,10);HEX(0E);" Process Definition - Select Fields Screen
";HEX(0F);AT(16,0,);
: IF G5=0THEN 1040
: FOR I=1TO L5
: FOR J=1TO G5
: IF STR(G3$(J),FNS(8),FNL(8))<>"NO "THEN 1027
1026 IF STR(L3$(I),FNS(1),FNL(1))=STR(G3$(J),FNS(10),FNL(10))THEN 1035
1027 NEXT J
: STR(L4$(I),FNS(14),FNL(14))="N"
: GOTO 1037
1035 STR(L4$(I),FNS(14),FNL(14))="Y"
1037 NEXT I
1040 FOR I=1TO L5
: PRINT AT(FNR(I),FNC(I));
: IF STR(L4$(I),FNS(14),FNL(14))="Y"THEN PRINT HEX(0202020F960202000E);" .
";
: ELSE PRINT " . ";
: PRINT STR(L3$(I),FNS(1),FNL(1));
: NEXT I
: IF D6<=12THEN 1089
: PRINT AT(23,0,79);HEX(0E);"Please select fields for processing. Press R
UN when done. ";HEX(0F);
: GOTO 1110
1089 PRINT AT(18,0);BOX(0,80);
: PRINT AT(16,10);HEX(0E);"Please select fields for processing. ";HEX(0
F);AT(20,50);"EXEC/RUN - Continue ";AT(23,50);HEX(0E);"CANCEL/EDIT - En
d Session";HEX(0F);
: PRINT AT(18,0);"Return - Select";AT(19,0);"'9 - Deselect";
1110 I=1
1130 PRINT HEX(06);AT(FNR(I),FNC(I)+2);HEX(8B0802050F);
: KEYIN A$,,1280
: PRINT HEX(06);AT(FNR(I),FNC(I)+2);".";
: IF A$>="A"AND A$<="Z"THEN 1164
: IF A$>="a"AND A$<="z"THEN 1164
: GOTO 1170
1164 O=I
1165 I=I+1
: IF I>L5THEN I=1
: G4=VAL(STR(L3$(I),FNS(1),1))
: H2=VAL(A$)
: IF A$<HEX(5A)THEN H6=H2+32
: ELSE H6=H2-32
: IF G4=H6OR G4=H2THEN 1130
: IF O<>ITHEN 1165
: PRINT HEX(06);
: I=O
: GOTO 1130
1170 IF A$<>HEX(0D)THEN 1210
: PRINT AT(FNR(I),FNC(I));HEX(0202020F960202000E);
: STR(L4$(I),FNS(14),FNL(14))="Y"
: LET A$=" "
1210 IF A$<>" "THEN 1220
: I=I+1
: IF I>L5THEN I=1
: GOTO 1130
1220 IF A$<>HEX(08)THEN 1250
: I=I-1
: IF I<1THEN I=L5
: GOTO 1130
1250 IF A$<>HEX(82)THEN 1380
: FOR I1=1TO L5
: IF STR(L4$(I1),FNS(14),FNL(14))="Y"THEN 1259
: NEXT I1
: GOTO 1380
1259 PRINT HEX(06);AT(16,10);HEX(0E);"Generating Diagram ... ";HEX(060F);AT(
16,33,);
: IF D6>12THEN PRINT AT(1,0,);
: PRINT AT(18,0,4*80+49);
: LOAD T"PKARGEN"
1263 STOP
1280 PRINT AT(FNR(I),FNC(I)+2);".";
: IF A$<>HEX(F0)AND A$<>HEX(50)THEN 1340
: PRINT AT(16,0,);
: 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 "
: COM CLEAR H7$
: LOAD TG1$
1340 IF A$<>HEX(7E)THEN 1360
: I=I+D6
: IF I<=L5THEN 1130
: I=I-(D6^2-1)
1350 I=I+D6
: IF I<1THEN 1350
: IF I>L5THEN I=1
: GOTO 1130
1360 IF A$<>HEX(7F)THEN 1375
: I=I-D6
: IF I>=1THEN 1130
: I=I+D6^2-1
1370 I=I-D6
: IF I>L5THEN 1370
: IF I<1THEN I=L5
: GOTO 1130
1375 IF A$<>HEX(09)THEN 1380
: STR(L4$(I),FNS(14),FNL(14))="N"
: PRINT AT(FNR(I),FNC(I),1);
: GOTO 1130
1380 PRINT HEX(00);
: GOTO 1130
1382 STOP
9010 DEFFN'95
9020 % KEYIN A$,9030,9030
9021 GOTO 9040
9030 PRINT HEX(00);
: GOTO 9020
9040 RETURN
9600 DEFFNR(D4)=D5+D4-((INT((D4-1)/D6))*D6)
9601 DEFFNC(D4)=INT((D4-1)/D6)*(FNL(1)+5)
9701 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
9702 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
9764 DEFFN'11"PRINT HEX(03);:LISTSD,9699";HEX(0D)
9765 DEFFN'12"PRINT HEX(03);:LISTSD 1000,9699";HEX(0D)
9880 DEFFN'13"HEX(0202020F960202000E);"
9885 DEFFN'29"HEX(8B0802050F);"
9900 DEFFN'0"PRINT HEX(03);:LISTSD 0000 ,9699";HEX(0D)
9901 DEFFN'27"PRINT HEX(03);:LISTSD 1340,9699";HEX(0D)
9999 % SCRATCH T "PKFIELDS":SAVE T ()"PKFIELDS"