home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh19.d64
/
uhr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
479b
|
27 lines
100 PRINT CHR$(147)
110 INPUT"WAEHLE EIN SACHGEBIET";S$
120 INPUT"STELLE DIE UHR AUF";Z
130 B$=CHR$(INT(RND(0)*26+65))
140 PRINT"NENNE "S$", DIE MIT " B$ " ANFANGEN
200 :
210 [143]**** ZEITSCHLEIFE & EINGABE ****
220 :
230 [153]"START MIT IRGENDEINER TASTE"
240 [161] X$:[139] X$[178]""[167] 240
250 TI$[178]"000000"
260 :
270 [161] E$
280 W$[178]W$[170]E$
290 [139] E$[179][177][199](13) [167] 340
300 [139] [200](W$,1)[179][177]B$ [167] 330
310 [153] W$;
320 R[178]R[170]1
330 W$[178]""
340 [139] [197](TI$)[179][177]Z [167] 270
400 :
410 [143]**** STOP & ERGEBNIS ******
420 :
430 [129] F[178]0 [164] 14
440 [151] 53280,F:[130] F
450 [153] R