home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / uhr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  479b  |  27 lines
  1. 100 print chr$(147)
  2. 110 input"waehle ein sachgebiet";s$
  3. 120 input"stelle die uhr auf";z
  4. 130 b$=chr$(int(rnd(0)*26+65))
  5. 140 print"nenne "s$", die mit " b$ " anfangen
  6. 200 :
  7. 210 [143]**** zeitschleife & eingabe ****
  8. 220 :
  9. 230 [153]"start mit irgendeiner taste"
  10. 240 [161] x$:[139] x$[178]""[167] 240
  11. 250 ti$[178]"000000"
  12. 260 :
  13. 270 [161] e$
  14. 280 w$[178]w$[170]e$
  15. 290 [139] e$[179][177][199](13) [167] 340
  16. 300 [139] [200](w$,1)[179][177]b$ [167] 330
  17. 310 [153] w$;
  18. 320 r[178]r[170]1
  19. 330 w$[178]""
  20. 340 [139] [197](ti$)[179][177]z [167] 270
  21. 400 :
  22. 410 [143]**** stop & ergebnis ******
  23. 420 :
  24. 430 [129] f[178]0 [164] 14
  25. 440 [151] 53280,f:[130] f
  26. 450 [153] r
  27.