48 lines
1.8 KiB
QBasic
48 lines
1.8 KiB
QBasic
10 KEY 1,"RUN"+CHR$(13)
|
||
20 KEY 2,"LOAD"+CHR$(34)
|
||
30 KEY 3,"LIST"+CHR$(13)
|
||
40 KEY 4,""
|
||
50 KEY 5,"LIST -"
|
||
60 KEY 6,"COLOR 15,0"+CHR$(13)
|
||
70 KEY 7,"SYSTEM"+CHR$(13)
|
||
80 KEY 8,"KEY LIST"+CHR$(13)
|
||
90 KEY 9,"CLS"+CHR$(13)
|
||
100 KEY 10,"SAVE"+CHR$(34)+"KARTENTR"+CHR$(34)+CHR$(13)
|
||
110 KEY OFF
|
||
120 COLOR ,7
|
||
130 CLS
|
||
140 COLOR 0:PRINT" |============| |============| |============| |============|"
|
||
150 COLOR 0:PRINT" | 4 | | 14 2 | | 14 | | 3 9 |"
|
||
160 COLOR 0:PRINT" | 6 5 | | 3 11 6 | | 11 15 | | 13 |"
|
||
170 COLOR 0:PRINT" | 13 14 | | 10 15 | | 13 9 10 | | 7 5 1 |"
|
||
180 COLOR 0:PRINT" | 7 12 15 | | 7 | | 8 12 | | 15 11 |"
|
||
190 COLOR 0:PRINT" |============| |============| |============| |============|"
|
||
200 PRINT
|
||
210 COLOR 12:PRINT" Karte 1 Karte 2 Karte 3 Karte 4"
|
||
220 COLOR 0:PRINT
|
||
230 COLOR 10:PRINT"Denken Sie sich eine Zahl von 0-15 aus !!!"
|
||
240 PRINT"Schauen Sie nach auf welcher Karte Ihre Zahl ist."
|
||
250 PRINT"Tippen Sie jetzt [j]a oder [n]ein ein. z.B.->Karte 2 :j"
|
||
260 PRINT" Karte 3 :n"
|
||
270 PRINT
|
||
280 PRINT"Karte 1 :"
|
||
290 A$=INKEY$:IF A$="" THEN 290
|
||
300 PRINT"Karte 2 :"
|
||
310 B$=INKEY$:IF B$="" THEN 310
|
||
320 PRINT"Karte 3 :"
|
||
330 C$=INKEY$:IF C$="" THEN 330
|
||
340 PRINT"Karte 4 :"
|
||
350 D$=INKEY$:IF D$="" THEN 350
|
||
360 PRINT
|
||
370 A=0
|
||
380 IF A$="j" OR A$="J" THEN A=A+4
|
||
390 IF B$="j" OR B$="J" THEN A=A+2
|
||
400 IF C$="j" OR C$="J" THEN A=A+8
|
||
410 IF D$="j" OR D$="J" THEN A=A+1
|
||
420 COLOR 12:PRINT"Die gesuchte Zahl lautet ---> ---> ---> : ";A
|
||
430 COLOR 10:PRINT
|
||
440 PRINT"Wollen Sie noch einmal spielen [j]a/[n]ein ???"
|
||
450 Z$=INKEY$:IF Z$="j" OR Z$="J" THEN RUN
|
||
460 IF Z$="n" OR Z$="N" THEN COLOR 7,0:CLS:KEY ON:END
|
||
470 GOTO 450
|
||
|