0 'RENUM.100 Rich Young 01/86
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLEAR750,MAXRAM:MAXFILES=2:DEFINTA-Z:DIML(255):CLS:FORW=0TO9:READI$(W):NEXT:FILES:INPUT"File";F$:IFF$=""ORF$="Menu"THEN9ELSEOPENF$FORINPUTAS1:CLS:PRINTF$:INPUT"Starting";S:INPUT"Increment";B:IFB=0THENB=1
3 IFNOTEOF(1)THENLINEINPUT#1,W$:L(C)=VAL(W$):C=C+1:GOTO3ELSECLOSE:PRINT"Lines =";C;:C=C-1:OPENF$FORINPUTAS1:OPENLEFT$("N"+F$,6)FOROUTPUTAS2
4 IFEOF(1)THEN9ELSELINEINPUT#1,L$:W$=STR$(S+R*B):O$=RIGHT$(W$,LEN(W$)-1):R=R+1:PRINT@167,R;:GOSUB10
5 I=256:FORZ=0TO9:W=INSTR(1,L$,I$(Z)):IFWANDW<ITHENI=W+LEN(I$(Z))-1
6 NEXT:IFI=256THEN:PRINT#2,O$+L$:O$="":GOTO4
7 O$=O$+LEFT$(L$,I):L$=RIGHT$(L$,LEN(L$)-I):V=VAL(L$):IFVORLEFT$(L$,1)="0"THENFORN=0TOC:IFV=ABS(L(N))THENW$=STR$(S+N*B):O$=O$+RIGHT$(W$,LEN(W$)-1)ELSENEXT:BEEP:PRINT:PRINTV;:ERROR8
8 GOSUB10:IFW$=","ORW$="-"THENI=1:GOTO7ELSE5
9 BEEP:CLOSE:CLEAR250,MAXRAM:MAXFILES=1:MENU
10 W$=LEFT$(L$,1):IFW$>"/"ANDW$<":"ORW$=" "THENL$=RIGHT$(L$,LEN(L$)-1):GOTO10ELSERETURN:DATAEDIT,ELSE,ERL=,LIST,GOSUB,GOTO,RESUME,RESTORE,RUN,THEN