Counting by D. JacKaL
This is about as simple as a program can get. All it does is count for you.
You must input three numbers: the number you want to start your count with, the number you want
to end your count with, and the number you want to count by. It then automatically counts with
those conditions. If the count can't end with the number you wanted to count to because of the
number you wanted to count by, it will still display the last possible number you wanted.
/START80/
/NAME=COUNT
:LBL 1
:CLRHOME
:INPUT "COUNT FROM:",F
:INPUT "COUNT TO:",T
:INPUT "COUNT BY:",B
:CLRHOME
:FOR(I,F,T,B)
:DISP I
:FOR(J,1,25)
:END
:END
:IF I-B\<>\T (this is the not equal to sign)
:DISP T
:PAUSE
:LBL Q
:CLRHOME
:DISP "ANOTHER?","1:YES","2:NO"
:INPUT Q
:IF Q=1
:GOTO 1
:IF Q-2
:GOTO Q
:CLRHOME
/STOP80/