home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 40
/
64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64
/
zahlenraten
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
706b
|
38 lines
10 print"[147]
20 [153]"******** zahlen raten *******
30 print
40 :
50 rem+++++++ vorbereitung ++++++++++++
60 :
70 z=int(rnd(0)*100)+1
80 v=0
90 :
100 rem+++++++ raten +++++++++++++++++
110 :
120 print"ich habe mir eine zahl
130 [153]"zwischen 1 und 100 gemerkt.
140 print
150 input"welche zahl ist es ";r
160 v=v+1
170 :
180 rem+++++++ pruefen +++++++++++++++
190 :
200 if r>z then print r;:goto 230
210 if r<z then print r;:goto 240
220 if r=z then print r;:goto 250
230 print"ist zu gross":goto 140
240 print"ist zu klein":goto 140
250 print"ist richtig"
260 print"sie haben";v;"versuche ";
270 print"benoetigt
280 :
290 [143]+++++ wiederholung oder ende ++++
300 :
310 [153]:[153]:[153]
320 [153]"noch einmal (j/n) ?
330 get a$: if a$=""then 330
340 if a$="j"then 10
350 if a$<>"n" then 320
360 print:print:print"auf wiedersehen
370 [128]