home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 3 / Dimension_64_Nr.03_19xx_-_de_Side_A.d64 / uhr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  435b  |  21 lines
  1. 10 if a=1 then 40
  2. 20 a=1
  3. 30 load "uhr ass",8,1
  4. 40 poke 1019,1
  5. 41 rem ** flag fuer -uhr an- setzen **
  6. 50 print "bitte uhrzeit eingeben"
  7. 60 sys 12288
  8. 61 rem ** uhr einschalten **
  9. 70 input "stunden ";a
  10. 73 if a<0 or a>23 then 70
  11. 77 poke 1023,a
  12. 80 input "minuten ";a
  13. 83 if a<0 or a>59 then 80
  14. 87 poke 1022,a
  15. 90 input "sekunden ";a
  16. 93 if a<0 or a>59 then 90
  17. 97 poke 1021,a
  18. 100 print "anzeige aus : poke 1019,0"
  19. 110 print "anzeige an  : poke 1019,1"
  20. 120 print "uhr abschalten : sys 12320"
  21.