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