home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / TIMETEST.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  257b  |  11 lines
  1. 1  REM  *** DUMMYPGM.BAS ***
  2. 5 MSG = 9 *4096 +8 *256 +16
  3. 10  POKE MSG, ASC("A") +128
  4. 20 X =  USR(17)
  5. 30 X =  USR(18)
  6. 40  INPUT "TEMPO:";T
  7. 50  POKE MSG, ASC("N") +128
  8. 60  POKE MSG +1, INT(T/256)
  9. 70  POKE MSG +2,T - INT(T/256) *256
  10. 80 X =  USR(18)
  11. 90  GOTO 40