home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / SPEEDSET.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  718b  |  19 lines
  1. 10  REM  *********************
  2. 20  REM  * SPEEDSET.DEMO     *
  3. 30  REM  * BY E. OMICCIOLI   *
  4. 40  REM  * COPYRIGHT(C) 1988 *
  5. 50  REM  * MICROSPARC, INC   *
  6. 60  REM  * CONCORD, MA 01742 *
  7. 70  REM  *********************
  8. 80  HOME : PRINT  CHR$(4)"BRUN SPEEDSET,A768":S = 0
  9. 90  FOR X = 0 TO 3
  10. 100  IF   NOT S  THEN  VTAB 23: HTAB 10: PRINT "Speed is set to slow": CALL 768
  11. 110  IF S  THEN  VTAB 23: HTAB 10: PRINT "Speed is set to fast": CALL 768 +17
  12. 120  GOSUB 150:S =   NOT S
  13. 130  NEXT 
  14. 140  END 
  15. 150  FOR I = 1 TO 39: FOR J = 0 TO 100: NEXT 
  16. 160  HTAB I: VTAB 12: PRINT " A";: NEXT 
  17. 170  FOR I = 39 TO 1  STEP  -1: FOR J = 0 TO 100: NEXT 
  18. 180  HTAB I: VTAB 12: PRINT "A ";: NEXT 
  19. 190  HTAB 0: VTAB 12: PRINT " ": RETURN