home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol080 / sample-s.bas < prev    next >
BASIC Source File  |  1984-04-29  |  1KB  |  39 lines
  1. Rem   Sample program in S-BASIC to count to 10,000
  2.  
  3. $LIST    Rem   Suppress listing for better compiler speed
  4.  
  5. Rem   NOTE that the obvious way of testing for even multiples of 1000
  6. Rem    (in the loop in version 2 of the program), using the INT function,
  7. Rem    will not work with SBASIC using integer variables, just as with
  8. Rem    CBASIC-2 (every number gets printed), and that, as with CBASIC-2,
  9. Rem    using floating-point variables, with which the INT function will work,
  10. Rem    gives a program that is almost as slow as the equivalent SAMPLE/C.BAS
  11. Rem    (over 3.5 minutes (!), in this case). So once again, the same
  12. Rem    type of trick was used, in the version appearing below.
  13.  
  14. $CONSTANT   Start.number = 1
  15. $CONSTANT   End.number = 10000
  16. $CONSTANT   Interval = 1000
  17.  
  18. VAR Number = Integer
  19. VAR Start = Char
  20.  
  21.    Print Chr$ (7); "Counting program in S-BASIC"
  22.    Print
  23.    Input2 "Press <RETURN> to start: "; Start
  24.    Print
  25.    Print "Counting ..."
  26.    Print
  27.  
  28.    FOR Number = Start.number TO End.number
  29. Rem   (Remove next two "Rem's" for version 2 of the program)
  30. Rem   IF (Number / Interval) * Interval = Number THEN \
  31. Rem     Print Number
  32.    NEXT Number
  33.    Print
  34.  
  35.    Print Chr$ (7); "Finished -- Good-bye"
  36.    Print
  37.  
  38. END
  39.