home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / uhr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.