image of READY prompt

Wang2200.org

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