Listing of file='SLD.FNAM' on disk='vmedia/701-2721C.wvd.zip'
# Sector 691, program filename = 'SLD.FNAM'
0010 REM % "SLD.FNAM"
0360 COM G8$(271)1
: COM G
: Y=13
: X=17-Y
: STR(G8$(),1,268)=" "
: STR(G8$(),252,8)="SLD.FNAM"
: SELECT PRINT 005(80)
: PRINT HEX(06);AT(1,0);BOX(0,80);AT(0,15);"Selection Definition -- Field D
isplay ";AT(18,0);BOX(0,80);AT(1,0,);
: IF G<>0THEN PRINT AT(2,2);BOX(-3,-G);BOX(-1,-2);BOX(-1,-3);BOX(-1,-4);
: G=0
0480 DIM G1(14),G2(14),G(14)
: IF G$()<>" "THEN PRINT AT(21,49);"'3 - Review Definition";
: PRINT AT(23,40);"CANCEL/EDIT - Exit program";AT(22,43);"EXEC/RUN - Select
Field";
: T=0
: S=0
: R=0
0540 P=3
: C=0
0550 M=0
: I=0
0570 T=T+1
: I=I+1
: F$=STR(L3$(T),1,L4)
: IF LEN(F$)>MTHEN M=LEN(F$)
: IF I<YAND T<L5THEN 570
: IF M+P+2>79THEN 670
: FOR J=1TO I
: PRINT AT(J+X-1,P);". ";STR(L3$(Y*(C+S)+J),1,L4)
: NEXT J
: C=C+1
: G1(C)=P
: G2(C)=I
: P=P+M+5
: IF T=L5THEN 690
: GOTO 550
0670 T=T-1
0690 IF T<L5THEN PRINT AT(19,49);"'14 - Look right";
: ELSE PRINT AT(19,49,20);
: IF S>0THEN PRINT AT(20,49);"'11 - Look left";
: ELSE PRINT AT(20,49,20);
: PRINT AT(X-2,0);HEX(0E);"Please Select a Field";HEX(0F);
0720 KEYIN A$,720,720
: DIM G7(4)
: I=1
: J=1
: G7(1)=X
: G7(2)=G1(1)
: G7(3)=I
: G7(4)=J
0760 PRINT AT(G7(1),G7(2));". ";STR(L3$(Y*(G7(4)-1+S)+G7(3)),1,L4);AT(I+X-1,G1
(J));HEX(0E);HEX(8B);" ";STR(L3$(Y*(J-1+S)+I),1,L4);HEX(0F);
: G7(1)=I+X-1
: G7(2)=G1(J)
: G7(3)=I
: G7(4)=J
: KEYIN A$,,1050
: IF A$<>HEX(20)THEN 830
: I=MOD(I,G2(J))+1
: IF I=1THEN J=MOD(J,C)+1
: GOTO 760
0830 IF A$<>HEX(08)THEN 860
: I=MOD(I+G2(J)-2,G2(J))+1
: IF I<G2(J)THEN 760
: J=MOD(J+C-2,C)+1
: I=G2(J)
: GOTO 760
0860 IF A$<>HEX(7E)THEN 910
: J=J+1
: IF J<=CTHEN 890
0880 I=MOD(I,G2(1))+1
: J=1
: GOTO 760
0890 IF J=CAND I>G2(J)THEN 880
: GOTO 760
0910 IF A$<>HEX(7F)THEN 960
: J=J-1
: IF J>0THEN 760
: I=I-1
: J=C
: IF I=0THEN 940
: IF I>G2(J)THEN J=J-1
: GOTO 760
0940 IF G2(J)<G2(1)THEN J=J-1
: I=G2(J)
: GOTO 760
0960 IF A$>="a"AND A$<="z"THEN 970
: ELSE GOTO 980
0970 B$=BIN(VAL(A$)-32)
: GOTO 1000
0980 IF A$<"A"OR A$>"Z"THEN 1150
: B$=BIN(VAL(A$)+32)
1000 O=Y*(J-1+S)+I
1010 I=MOD(I,G2(J))+1
: IF I=1THEN J=MOD(J,C)+1
: F=Y*(J-1+S)+I
: IF STR(L3$(F),1,1)=A$OR F=OOR STR(L3$(F),1,1)=B$THEN 760
: GOTO 1010
1050 IF A$=HEX(7E)OR A$=HEX(7F)OR A$=HEX(F0)OR A$=HEX(03)THEN 860
: IF A$<>HEX(0E)AND A$<>HEX(0B)THEN 760
: IF A$=HEX(0B)THEN 1100
: IF T=L5THEN 760
: R=R+1
: IF R>1THEN G(R)=C+G(R-1)
: ELSE G(R)=C
: GOTO 1120
1100 IF S=0THEN 760
: R=R-1
1120 IF R>0THEN S=G(R)
: ELSE S=0
: T=Y*S
: PRINT AT(X,0,Y*80)
: GOTO 540
1150 IF A$<>HEX(F0)THEN 1250
: IF G$()<>" "THEN G$(LEN(G$()))=HEX(FF)
: COM CLEAR G8$()
: S=VAL(STR(K9$,7,1))
: L=VAL(STR(K9$,8,1))
: X$=STR(K9$,S,8)
: MAT COPY K9$<S+8,L-8>TO K9$<S,L-8>
: STR(K9$,L+S-8,8)="@MENU"
: LOAD TX$
1250 IF A$=HEX(03)AND G$()<>" "THEN LOAD T"SLD.RDEF"
: IF A$<>HEX(82)THEN 760
: F=Y*(J-1+S)+I
: G8$(1)=BIN(F)
: STR(G8$(),2,20)=STR(L3$(F),1,L4)
: G8$(22)=STR(L3$(F),L4+1,1)
: F=VAL(STR(L3$(F),L4+4,2),2)
: G8$(23)=BIN(F)
: STR(G8$(),260,8)="SLD.RLOP"
: PRINT AT(X-2,0,(Y+2)*80)
: LOAD T"SLD.PLIN"
1380 DEFFN'0
: SCRATCH T"SLD.FNAM"
: SAVE T()"SLD.FNAM"
: PRINT "'SLD.FNAM' SAVED"
: LIST DT
: RETURN