home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol080 / sample-n.bas < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  768 b   |  26 lines
  1.  
  2. 100 REM   SAMPLE PROGRAM IN NORTH STAR BASIC TO COUNT TO 10,000
  3. 110 REM
  4. 120 REM   SET VALUES FOR S(TART), E(ND), AND I(NTERVAL) CONSTANTS
  5. 130    S = 1
  6. 140    E = 10000
  7. 150    I = 1000
  8. 160 REM
  9. 170 REM   REMOVE "REM" INDICATOR IN STEP 260 FOR VERSION 2 OF PROGRAM
  10. 180 REM
  11. 190 PRINT CHR$ (7), "Counting program in North Star BASIC"
  12. 200 PRINT
  13. 210 INPUT "Press <RETURN> to start: ", G$
  14. 220 PRINT
  15. 230 PRINT "Counting ..."
  16. 240 PRINT
  17. 250 FOR N = S TO E
  18. 260 REM   IF (N/I) = INT (N/I) THEN PRINT N
  19. 270 NEXT N
  20. 280 PRINT
  21. 290 PRINT CHR$ (7), "Finished -- Good-bye"
  22. 300 PRINT
  23. 310 END
  24. EM   IF (N/I) = INT (N/I) THEN PRINT N
  25. 270 !╬═╖┬Æ═P═î├Q!µ═╖┬¬═P═}═Qx├Q!Ω═╖┬╞═█═ôG@═█▒░├Q!
  26. ═╖┬▄y═ôGÇ├╛!═╖┬⌠ ═█═ô▒├Q!═╖┬═