Atari 8-bit Source code

26900REM
26910REM
26930REMENTERED
26940REMGOTO27000
27000A=FRE(X)/13:DIMLN1(A),LN2(A)
27020V1=1:V10=10:V16=16:V100=100:V256=256:V2=2:V3=3:V4=4:OIF=7:V7=OIF
27040BEG=PEEK(137)*V256+PEEK(136)
27050PRINT"ENTERSTARTINGLINENUMBER";
27060INPUTSTART
27070PRINT"ENTERINCREMENT";:INPUTINC
27080ADD=BEG
27090LEN=PEEK(ADD+V2)
27100LNUM=PEEK(ADD)+PEEK(ADD+V1)*V256
27110IFLNUM>25000THEN27250
27120CNUM=START+COUNT*INC
27130LN1(COUNT)=LNUM
27140LN2(COUNT)=CNUM
27150COUNT=COUNT+V1
27160POKEADD+V1,INT(CNUM/V256)
27170POKEADD,CNUM-INT(CNUM/V256)*V256
27180ADD=ADD+LEN
27190GOTO27090
27250LOC=BEG
27260MLT=0:IFPEEK(LOC+V2)>PEEK(LOC+V3)THENMLT=V1
27262LINE=PEEK(LOC)+PEEK(LOC+1)*256:IFLINE>25000THEN?:?"":STOP
27270OPC=PEEK(LOC+V4)
27280IFOPC=OIFTHEN27400
27290PONT=LOC+V4:GOSUB27900
27300IFMLT=0THENLOC=LOC+PEEK(LOC+V2):GOTO27260
27310MT=LOC+PEEK(LOC+V3)
27320OPC=PEEK(MT+V1)
27330IFOPC=OIFTHEN27600
27340PONT=MT+V1:GOSUB27900
27350MT=LOC+PEEK(MT):IFMT<LOC+PEEK(LOC+V2)THEN27320
27360LOC=MT:GOTO27260
27400IFMLT=0THENCHNPT=LOC+PEEK(LOC+V2)-7:GOSUB31260:GOTO27300
27420A=LOC+PEEK(LOC+V3):IFPEEK(A)<>20THEN27430
27425IFPEEK(A-V1)=27ANDPEEK(A-V7)<>14THEN27430
27427CHNPT=A-V7:GOSUB31260:GOTO27300
27430GOTO27300
27600A=LOC+PEEK(MT)-V1
27611IFPEEK(A)<>20ANDPEEK(A)<>22THEN27620
27612IFPEEK(A-V1)=27ANDPEEK(A-V7)<>14THEN27620
27613CHNPT=A-6:GOSUB31260:GOTO27350
27620MT=LOC+PEEK(MT):GOTO27340
27850?"MULTIFSCREWEDUP":STOP
27900OPC=PEEK(PONT)
27905IFOPC=10OROPC=12OROPC=13OROPC=35THEN27980
27910IFOPC<>30THENRETURN
27915PONT=PONT+V1
27925OPC=PEEK(PONT):IFOPC=23OROPC=24THENPONT=PONT+V1:GOTO27950
27930IFOPC=14THENPONT=PONT+7:GOTO27925
27935IFOPC=15THENPONT=PONT+PEEK(PONT+V1)+V1:GOTO27925
27940PONT=PONT+V1:GOTO27925
27950OPC=PEEK(PONT):IFOPC=14THEN27960
27952GOSUB31300
27954OPC=PEEK(PONT):IFOPC=20OROPC=22THENRETURN
27955IFOPC=18THENPONT=PONT+V1:GOTO27950
27956IFOPC=14THENPONT=PONT+7:GOTO27954
27957IFOPC=15THENPONT=PONT+PEEK(PONT+V1)+V1:GOTO27954
27958PONT=PONT+V1:GOTO27954
27960A=PEEK(PONT+7):IFA=20ORA=22THENCHNPT=PONT+V1:GOTO31260
27965IFA=18THENCHNPT=PONT+V1:GOSUB31260:PONT=PONT+8:GOTO27950
27970GOTO27952
27980IFPEEK(PONT+V1)<>14THENGOTO31300
27982IFPEEK(PONT+8)<>20ANDPEEK(PONT+8)<>22THEN31300
27985CHNPT=PONT+V2:GOTO31260
28000NUMBER=0:X=PEEK(SADD)
28200M=0.1
28300FORY=0TO(X-64)*2
28400M=M*V10
28500NEXTY
28600FORX=SADD+V1TOSADD+5
28700N=PEEK(X):P=N
28800N=INT(N/V16)
28900N=N*V10+(P-N*V16)
29000NUMBER=NUMBER+N*M
29100M=M/V100
29200NEXTX
29300RETURN
30000FORY=1TO5
30600Z=V1
30700IFNUMBER1>99THENZ=V100
30800IFNUMBER1>10000THENZ=10000
30850IFY=V1THENPOKEADDR,64+CLOG(Z)/2:IFZ=0THENPOKEADDR,64
30900DIG=INT(NUMBER1/Z)
31000NUMBER1=NUMBER1-DIG*Z
31050IFDIG<0.1THENDIG=0
31060DIG1=INT(DIG/V10)
31080POKEADDR+Y,DIG1*V16+(DIG-DIG1*V10)
31100NEXTY
31200RETURN
31250REM
31260SADD=CHNPT:ADDR=CHNPT:GOSUB28000
31270FORA=0TOCOUNT:IFLN1(A)<>NUMBERTHENNEXTA:GOTO31285
31280NUMBER1=LN2(A):GOSUB30000:RETURN
31285?"NOLINE";NUMBER;"INLINE";LINE:RETURN
31300?"GOTOVARIABLEIN";LINE:RETURN
31310END	

• Download link 1
• Download link 2