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 ›