32000 REM ***************************›32001 REM *  AUTO LINE NUMBERING    *›32002 REM *  BY SAM WILEY SR.       *›32003 REM *  ANALOG COMPUTING       *›32004 REM ***************************›32005 REM ›32020 REM 27 VARIABLES›32025 REM 1760 BYTES (REMS DELETED)›32030 REM TO SEPARATE AUTO UTILITY›32040 REM L."D1:PROGNAME.EXT",0,31999›32055 REM L."C:",0,31999›32056 REM ›32057 REM TO GET PROGRAM BACK›32058 REM E."D1:PROGNAME.EXT"›32059 REM E."C:"›32060 RESTORE 32600:TRAP 32068:POKE 712,148›32061 READ NEXT,ON,GETKEY,ANTIC,AUTO,SPEAKER,CLR,C0,C1,C2,C4,C53774,C256,C16,C842,C203,C12,C13›32064 DIM ML$(90):A=C1:POKE ANTIC,C0›32067 READ N:ML$(A,A)=CHR$(N):A=A+C1:GOTO 32067›32068 GOSUB 32116:? CHR$(CLR):POKE SPEAKER,C0›32070 POKE ANTIC,ON:TRAP 32070:? "STARTING LINE NUMBER";:INPUT LINE›32075 TRAP 32075:? "INCREMENTS DESIRED  ";:INPUT INC:? CHR$(CLR):? :? :? LINE;" ";›32080 TRAP 32710:GET #C1,KEY:IF KEY=155 THEN 32100›32081 IF KEY=27 THEN ? CHR$(KEY);:GET #C1,KEY:GOTO 32085›32082 IF KEY=CLR THEN GOTO GETKEY›32085 ? CHR$(KEY);:GOTO GETKEY›32100 POKE ANTIC,C0:POSITION C2,19:? "CONT":POSITION C2,C0:POKE C842,C13:STOP ›32110 POKE C842,C12:X=USR(ADR(ML$)):IF PEEK(207)=C2 THEN 32520›32111 LINE=LINE+INC:? CHR$(CLR)›32112 POSITION C2,C0:? "      ÃÔÒ̯³   Ç®ÎÅØÔ   Ç®ÁÕÔÏ":? "Variables left=";128-PEEK(205);"   Bytes left=";FRE(C0)›32113 ? :TRAP 32120:LIST LINE-INC*C2:LIST LINE-INC:? :? LINE;" ";›32114 POKE ANTIC,ON:POKE SPEAKER,C0:GOTO GETKEY›32115 GOSUB 32116:? CHR$(CLR):GOTO 32112›32116 CLOSE #C1:OPEN #C1,C4,C0,"K":POKE ANTIC,C0:POKE C53774,112:POKE C16,64:RETURN ›32120 ? LINE;" ";:POKE ANTIC,ON:GOTO GETKEY›32520 ERRADR=PEEK(C203)+PEEK(C203+C1)*C256:ERRLINE=PEEK(ERRADR)+PEEK(ERRADR+C1)*C256›32525 ? CHR$(253):? CHR$(CLR):LIST ERRLINE:POKE ANTIC,ON:POSITION C2,C1:? :POKE 764,255:GOTO GETKEY›32600 DATA 32115,34,32080,559,32060,53279,125,0,1,2,4,53774,256,16,842,203,12,13›32700 DATA 104,165,136,133,203,165,137,133,204,160,1,177,203,48›32701 DATA 31,200,177,203,133,209,160,4,177,203,201,55,240,13,24,165,209,101,203,133›32702 DATA 203,144,228,230,204,208,224,169,2,133,207,96,169,1,133,207,165,134,133,203›32703 DATA 165,135,133,204,169,0,133,205,165,203,197,136,208,7,165,204,197,137,208,1›32704 DATA 96,230,205,24,169,8,101,203,133,203,144,232,230,204,208,228›32710 POKE C16,192:POKE C53774,247:? :? :END ›