Listing of file='SLD.STOL' on disk='vmedia/701-2721C.wvd.zip'
# Sector 806, program filename = 'SLD.STOL'
0010 REM % "SLD.STOL"
0050 DIM L(3),S$(220)1
: FOR I=1TO 3
: L(I)=VAL(G8$(247+I))
: IF STR(G8$(),244+I,1)="F"THEN L(I)=L(I)+1
: IF L(I)>0THEN N=N+1
: NEXT I
: DIM F$20
: F$=STR(G8$(),2,20)
: IF G$()=" "THEN L=0
: ELSE L=LEN(G$())
: S=LEN(F$)+1+1+N+L(1)+L(2)+L(3)+N-1+1
: IF S+L>LEN(STR(G$()))THEN 210
: GOTO 410
0210 PRINT AT(5,0,);AT(11,0);HEX(0E07);"You have created the maximum number of
condition lines allowable";HEX(0F);AT(22,54);"'3 - Review Definition";AT
(23,54);"'4 - Exit";
0220 KEYIN A$
: IF A$<>HEX(04)THEN 350
: COM CLEAR G8$()
: G$(LEN(G$()))=HEX(FF)
: 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"
: G$(LEN(G$()))=HEX(FF)
: GOTO 370
0350 IF A$<>HEX(03)THEN 220
: X$="SLD.RDEF"
0370 PRINT AT(2,2,240);BOX(-3,-G);BOX(-1,-2);BOX(-1,-3);BOX(-1,-4);
: LOAD TX$
0410 DIM O$(7)1
: O$(1)="="
: O$(2)="#"
: O$(3)="<"
: O$(4)=">"
: O$(5)="\BC"
: O$(6)="\BE"
: O$(7)="@"
: P=VAL(STR(G8$(),269),2)
: IF P=0THEN 520
: PRINT AT(23,0);HEX(0E);"Inserting condition line";HEX(0F);
: MAT COPY -G$()<P,LEN(G$())-P+1>TO -G$()<P+S,LEN(G$())-P+1>
: S$()="\C1"&F$&HEX(00)&O$(VAL(G8$(24)))
: GOTO 530
0520 S$()=F$&HEX(00)&O$(VAL(G8$(24)))
0530 DIM T$(3)1,I$(3)64
: T$()=STR(G8$(),245,3)
: I$()=STR(G8$(),53,192)
: FOR I=1TO N
: S$()=S$()&T$(I)&I$(I)&"\EF"
: NEXT I
: S$(LEN(S$()))=" "
: IF P=0THEN 670
: STR(G$(),P,S)=S$()
: N$="SLD.RDEF"
: GOTO 690
0670 IF L>0THEN G$()=G$()&S$()
: ELSE G$()=S$()
: N$="SLD.LOPR"
0690 STR(G8$(),260,8)=N$
: PRINT AT(2,2,3*80);BOX(-3,-G);BOX(-1,-2);BOX(-1,-3);BOX(-1,-4);
: LOAD TN$
0720 DEFFN'0
: SCRATCH T"SLD.STOL"
: SAVE T()"SLD.STOL"
: PRINT "'SLD.STOL' SAVED"
: LIST DT
: RETURN
0730 DEFFN'2"DIM A$,A,B,C,D";HEX(0D);
0740 DEFFN'16"RENUMBER ";HEX(0D);
0750 DEFFN'3
: A$="SLD.STOL"
: SCRATCH TA$
: SAVE T()A$
: PRINT HEX(03060E22);A$;HEX(22);" saved ";HEX(0F);
: LIMITS TA$,A,B,C,D
: PRINT C;" Sectors used, ";B-A-C+1;" available"
: LIST DT
: PRINT AT(2,0,3*80);AT(5,0);"On device:";AT(6,0,1);AT(6,4,)
: RETURN