home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 November / 64er_Magazin_92-11_1992_Markt__Technik_de_Side_B.d64 / countdown (.txt) next >
Commodore BASIC  |  2022-10-26  |  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.