'Programmiert von Th. Kugelmeier***http://www.fen-net.de/thomas.kugelmeier '************ Startbildschirm ************ 100 CLS 115 LOCATE 10, 32 118 COLOR 4 120 PRINT "Spielautomat" 122 PRINT 124 LOCATE 12, 28 137 COLOR 3 140 INPUT "Spiel starten, j/n "; start$ 145 IF start$ = "j" THEN GOTO 155 150 IF start$ <> "n" THEN GOTO 100 153 IF start$ = "n" THEN GOTO 500 154 PRINT 155 LOCATE 14, 18: PRINT "Dein Kontostand betr„gt anfangs 10 Punkte" '************ Schleife ************ 157 FOR t = 1 TO 150000: NEXT t 158 pu = 10 160 RANDOMIZE TIMER 165 FOR runde = 1 TO 5000 170 x% = INT(RND * 6) + 1 180 y% = INT(RND * 6) + 1 190 z% = INT(RND * 6) + 1 195 CLS 197 LOCATE 10 200 PRINT , "Zahl1", "Zahl2", "Zahl3" 205 PRINT 210 PRINT , x%, y%, z% 215 IF INKEY$ <> "" THEN GOTO 230 218 NEXT runde '************ Wertabfrage ************ 230 IF x% = 6 AND y% = 6 AND z% = 6 THEN PRINT : PRINT "Gratulation! 50 Punkte!": pu = pu + 50: GOTO 340 233 IF x% = 3 AND y% = 3 AND z% = 3 THEN PRINT : PRINT "Gratulation! 25 Punkte!": pu = pu + 25: GOTO 340 236 IF x% = 1 AND y% = 1 AND z% = 1 THEN PRINT : PRINT "Gratulation! 15 Punkte!": pu = pu + 15: GOTO 340 238 IF x% = 1 AND y% = 2 AND z% = 3 THEN PRINT : PRINT "Gratulation! 10 Punkte!": pu = pu + 10: GOTO 340 300 IF x% = y% AND y% = z% THEN PRINT : PRINT "10 Punkte!": pu = pu + 10: GOTO 340 310 IF x% = y% THEN PRINT : PRINT "nur einen Punkt!": pu = pu + 1 320 IF y% = z% THEN PRINT : PRINT "nur einen Punkt!": pu = pu + 1 325 IF x% = z% THEN PRINT : PRINT "nur einen Punkt!": pu = pu + 1 340 PRINT '************ Z„hler und Punktestandskontrolle ************ 350 pu = pu - 1 360 PRINT "Ihr Punktestand betr„gt: "; pu 365 IF pu = 0 THEN PRINT : PRINT "Leider verloren!": GOTO 600 368 PRINT '************ Abfrage Runde ************ 490 INPUT "Noch eine Runde j/n "; jn$ 495 IF jn$ = "j" THEN GOTO 160 496 IF jn$ = "n" THEN GOTO 600 498 IF jn$ <> "j" THEN GOTO 490 500 END 600 INPUT "Noch ein Spiel j/n "; noch$ 610 IF noch$ = "j" THEN GOTO 100 620 END