home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / COUNTDOWN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  31 lines
  1. 10 PRINT""
  2. 20 FORD=820TOD+87:READY:POKED,Y:NEXT
  3. 30 INPUT"ENTER TIME IN SECONDS (1-99)";T$:L=LEN(T$):IFL<1ORL>2THEN30
  4. 40 IFL=1THENT=48:O=ASC(T$)+1:GOTO70
  5. 50 T=ASC(LEFT$(T$,1))
  6. 60 O=ASC(RIGHT$(T$,1))+1
  7. 70 POKE253,T:POKE254,O:SYS820
  8. 80 :
  9. 90 :
  10. 100 REM ** YOUR PROGRAM HERE **
  11. 105 :
  12. 110 REM *******************************
  13. 120 REM * TO RESTART TIMER WITH SAME  *
  14. 130 REM * TIME SYS820. TO START TIMER *
  15. 140 REM * WITH DIFFERENT TIME, SET    *
  16. 150 REM * T$=TO NEW TIME IN SECONDS.  *
  17. 160 REM * NOTE: MUST BE BETWEEN 1-99. *
  18. 170 REM * THEN SYS820. TO CHECK FOR   *
  19. 180 REM * COUNTDOWN AT 00, PEEK(2).   *
  20. 190 REM * IFPEEK(2)=1THEN COUNTER IS  *
  21. 200 REM *                             *
  22. 210 REM * WRITTEN BY BOB KOBER        *
  23. 220 REM * MARCH 1, 1987   BY REQUEST  *
  24. 230 REM *******************************
  25. 240 :
  26. 1000 DATA165,253,133,251,165,254,133,252,169,0,133,2,120,173,20,3,73
  27. 1001 DATA98,141,20,3,173,21,3,73,233,141,21,3,88,96,206,139,3
  28. 1002 DATA208,48,169,60,141,139,3,165,252,56,233,1,201,47,240,15,133
  29. 1003 DATA252,165,251,141,37,4,165,252,141,38,4,76,136,3,169,57,133
  30. 1004 DATA252,198,251,165,251,201,47,208,231,169,1,133,2,32,64,3,76,49,234,60
  31.