
100 REM   SAMPLE PROGRAM IN NORTH STAR BASIC TO COUNT TO 10,000
110 REM
120 REM   SET VALUES FOR S(TART), E(ND), AND I(NTERVAL) CONSTANTS
130    S = 1
140    E = 10000
150    I = 1000
160 REM
170 REM   REMOVE "REM" INDICATOR IN STEP 260 FOR VERSION 2 OF PROGRAM
180 REM
190 PRINT CHR$ (7), "Counting program in North Star BASIC"
200 PRINT
210 INPUT "Press <RETURN> to start: ", G$
220 PRINT
230 PRINT "Counting ..."
240 PRINT
250 FOR N = S TO E
260 REM   IF (N/I) = INT (N/I) THEN PRINT N
270 NEXT N
280 PRINT
290 PRINT CHR$ (7), "Finished -- Good-bye"
300 PRINT
310 END
EM   IF (N/I) = INT (N/I) THEN PRINT N
270 !ÎÍ· Â’ÍPÍŒ ÃQ!æÍ· ÂªÍPÍ} ÍQxÃQ!êÍ· ÂÆÍÛ Í“ G@ÍÛ ±°ÃQ!
Í· ÂÜyÍ“ G€Ã¾!Í· ÂôÍÛ Í“ ±ÃQ!Í· ÂÍ