home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9211b.d64 / countdown (.txt) next >
Commodore BASIC  |  1995-03-30  |  907b  |  22 lines
  1. 1 REM 'COUNTDOWN'  NIKOLAUS HEUSLER   ZWENGAUERWEG 18   8000 MUENCHEN 71   03.92
  2. 10 FORA=679TO733:READB:C=C+B:POKEA,B:NEXT:REM MC EINLESEN
  3. 20 IFC><7836THENPRINT"DA IST WAS FALSCH!":END
  4. 30 DATA120,169,180,141,20,3,169,2,141,21,3,88,96:REM IRQ-VEKTOR VERBIEGEN
  5. 40 DATA198,162,165,162,201,255,208,28:REM ADRESSE 162 ERNIEDRIGEN
  6. 50 DATA198,161,165,161,201,255,208,20:REM ADRESSE 161 ERNIEDRIGEN
  7. 60 DATA198,160,165,160,201,255,208,12:REM ADRESSE 160 ERNIEDRIGEN
  8. 70 DATA169,79,133,160,169,25,133,161,169,255,133,162:REM UHR AUF 23:59:59
  9. 80 DATA32,188,246:REM STOP-TASTE ABFRAGEN
  10. 90 DATA76,52,234:REM WEITER IN ALTER IRQ-ROUTINE
  11. 100 PRINT"TI$ ZAEHLT JETZT 5 SEK. AUFWAERTS       (TASTE)
  12. 105 [151]198,.:[146]198,1
  13. 110 [158]65418:[143] COUNTDOWN AUS
  14. 120 TI$[178]"000000
  15. 130 PRINTTI$:IFTI$<"000005"THEN130
  16. 140 PRINT"TI$ ZAEHLT JETZT 10 SEK. AUFWAERTS      (TASTE)
  17. 145 [151]198,.:[146]198,1:TI$[178]"000005
  18. 150 SYS 679 :REM COUNTDOWN EIN
  19. 160 PRINTTI$:IFTI$<>"235955"THEN160
  20. 170 PRINT"SOWEIT DAZU.
  21. 180 [158]65418:[143] COUNTDOWN AUS
  22.