Rem Sample program in S-BASIC to count to 10,000
$LIST Rem Suppress listing for better compiler speed
Rem NOTE that the obvious way of testing for even multiples of 1000
Rem (in the loop in version 2 of the program), using the INT function,
Rem will not work with SBASIC using integer variables, just as with
Rem CBASIC-2 (every number gets printed), and that, as with CBASIC-2,
Rem using floating-point variables, with which the INT function will work,
Rem gives a program that is almost as slow as the equivalent SAMPLE/C.BAS
Rem (over 3.5 minutes (!), in this case). So once again, the same
Rem type of trick was used, in the version appearing below.
$CONSTANT Start.number = 1
$CONSTANT End.number = 10000
$CONSTANT Interval = 1000
VAR Number = Integer
VAR Start = Char
Print Chr$ (7); "Counting program in S-BASIC"
Print
Input2 "Press to start: "; Start
Print
Print "Counting ..."
Print
FOR Number = Start.number TO End.number
Rem (Remove next two "Rem's" for version 2 of the program)
Rem IF (Number / Interval) * Interval = Number THEN \
Rem Print Number
NEXT Number
Print
Print Chr$ (7); "Finished -- Good-bye"
Print
END