mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
29 lines
791 B
QBasic
29 lines
791 B
QBasic
|
10 CLS
|
|||
|
|
20 PRINT
|
|||
|
|
30 PRINT"Raten Sie eine Zahl zwischen 00 und 99 !!!"
|
|||
|
|
40 PRINT
|
|||
|
|
50 LET S=INT(RND(1)*100)
|
|||
|
|
60 PRINT"Ihr Tip :";
|
|||
|
|
70 INPUT G
|
|||
|
|
80 IF G=S THEN 160
|
|||
|
|
90 IF G>S THEN 130
|
|||
|
|
100 PRINT"Zu klein bitte gr<67><72>ere Zahlen !!! >>>"
|
|||
|
|
110 PRINT
|
|||
|
|
120 GOTO 60
|
|||
|
|
130 PRINT"Zu gross bitte kleinere Zahlen !!! <<<"
|
|||
|
|
140 PRINT
|
|||
|
|
150 GOTO 60
|
|||
|
|
160 PRINT"Auf den Kopf getroffen !!!"
|
|||
|
|
170 PRINT"Bitte Taste dr<64>cken !!!"
|
|||
|
|
180 A$=INKEY$:IF A$="" THEN 180
|
|||
|
|
190 CLS
|
|||
|
|
200 LOCATE 1,1:PRINT"Nochmal Raten [Y/N] ??? >>> "
|
|||
|
|
210 B$=INKEY$:IF B$="y" OR B$="Y" THEN LOCATE 1,1:PRINT"Nochmal Raten [Y/N] ??? >>> Yes":GOTO 300
|
|||
|
|
220 IF B$="n" OR B$="N" THEN LOCATE 1,1:PRINT"Nochmal Raten [Y/N] ??? >>> No":GOTO 400
|
|||
|
|
230 GOTO 200
|
|||
|
|
300 FOR Z=0 TO 10000:NEXT Z
|
|||
|
|
310 GOTO 10
|
|||
|
|
400 FOR Z=0 TO 10000:NEXT Z
|
|||
|
|
410 CLS
|
|||
|
|
420 END
|
|||
|
|
|