1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143:
| ST: CLS SCREEN 12
LINE (100, 100)-(460, 410), 15, B
FOR X = 130 TO 460 STEP 50 FOR Y = 130 TO 400 STEP 50 CIRCLE (X, Y), 20 NEXT NEXT INPUT "Wieviele Spieler (2-4)?", SP IF SP > 4 OR SP < 2 THEN PRINT "Geht nicht !": SLEEP 3: CLS : GOTO ST A1 = 0: A2 = 0: A3 = 0: A4 = 0: A5 = 0: A6 = 0 B1 = 0: B2 = 0: B3 = 0: B4 = 0: B5 = 0: B6 = 0 C1 = 0: C2 = 0: C3 = 0: C4 = 0: C5 = 0: C6 = 0 D1 = 0: D2 = 0: D3 = 0: D4 = 0: D5 = 0: D6 = 0 E1 = 0: E2 = 0: E3 = 0: E4 = 0: E5 = 0: E6 = 0 F1 = 0: F2 = 0: F3 = 0: F4 = 0: F5 = 0: F6 = 0 G1 = 0: G2 = 0: G3 = 0: G4 = 0: G5 = 0: G6 = 0 N: S = S + 1 IF S > SP THEN S = 1 X: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 DO T$ = INKEY$ IF A6 <> 0 AND B6 <> 0 AND C6 <> 0 AND D6 <> 0 AND E6 <> 0 AND F6 <> 0 AND G6 <> 0 AND T$ = "2" GOTO ST IF A6 <> 0 AND B6 <> 0 AND C6 <> 0 AND D6 <> 0 AND E6 <> 0 AND F6 <> 0 AND G6 <> 0 AND T$ = " " GOTO ST IF A6 <> 0 AND B6 <> 0 AND C6 <> 0 AND D6 <> 0 AND E6 <> 0 AND F6 <> 0 AND G6 <> 0 AND T$ = CHR$(0) + "P" GOTO ST IF A6 <> 0 AND B6 <> 0 AND C6 <> 0 AND D6 <> 0 AND E6 <> 0 AND F6 <> 0 AND G6 <> 0 AND T$ = CHR$(13) GOTO ST IF T$ = "6" THEN CIRCLE (Z, 70), 20, 0: PAINT (Z, 60), 0: R = R + 1 IF T$ = "4" THEN CIRCLE (Z, 70), 20, 0: PAINT (Z, 60), 0: R = R - 1 IF T$ = CHR$(0) + "M" THEN CIRCLE (Z, 70), 20, 0: PAINT (Z, 60), 0: R = R + 1 IF T$ = CHR$(0) + "K" THEN CIRCLE (Z, 70), 20, 0: PAINT (Z, 60), 0: R = R - 1 IF R < -1 THEN R = 7 IF R > 7 THEN R = -1 Z = (R * 50) + 130 CIRCLE (Z, 70), 20, F: PAINT (Z, 70), F LOCATE 5, 59: PRINT "ENDE" LOCATE 5, 10: PRINT "NEU" LOOP UNTIL T$ = "2" OR T$ = " " OR T$ = CHR$(0) + "P" OR T$ = CHR$(13) IF R = -1 GOTO ST IF R = 0 GOTO A IF R = 1 GOTO B IF R = 2 GOTO C IF R = 3 GOTO D IF R = 4 GOTO E IF R = 5 GOTO F IF R = 6 GOTO G IF R = 7 THEN END A: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 IF A1 = 0 THEN A1 = S: CIRCLE (130, 380), 19, F: PAINT (130, 380), F: GOTO N IF A2 = 0 THEN A2 = S: CIRCLE (130, 330), 19, F: PAINT (130, 330), F: GOTO N IF A3 = 0 THEN A3 = S: CIRCLE (130, 280), 19, F: PAINT (130, 280), F: GOTO N IF A4 = 0 THEN A4 = S: CIRCLE (130, 230), 19, F: PAINT (130, 230), F: GOTO N IF A5 = 0 THEN A5 = S: CIRCLE (130, 180), 19, F: PAINT (130, 180), F: GOTO N IF A6 = 0 THEN A6 = S: CIRCLE (130, 130), 19, F: PAINT (130, 130), F: GOTO N GOTO X B: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 IF B1 = 0 THEN B1 = S: CIRCLE (180, 380), 19, F: PAINT (180, 380), F: GOTO N IF B2 = 0 THEN B2 = S: CIRCLE (180, 330), 19, F: PAINT (180, 330), F: GOTO N IF B3 = 0 THEN B3 = S: CIRCLE (180, 280), 19, F: PAINT (180, 280), F: GOTO N IF B4 = 0 THEN B4 = S: CIRCLE (180, 230), 19, F: PAINT (180, 230), F: GOTO N IF B5 = 0 THEN B5 = S: CIRCLE (180, 180), 19, F: PAINT (180, 180), F: GOTO N IF B6 = 0 THEN B6 = S: CIRCLE (180, 130), 19, F: PAINT (180, 130), F: GOTO N GOTO X
C: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 IF C1 = 0 THEN C1 = S: CIRCLE (230, 380), 19, F: PAINT (230, 380), F: GOTO N IF C2 = 0 THEN C2 = S: CIRCLE (230, 330), 19, F: PAINT (230, 330), F: GOTO N IF C3 = 0 THEN C3 = S: CIRCLE (230, 280), 19, F: PAINT (230, 280), F: GOTO N IF C4 = 0 THEN C4 = S: CIRCLE (230, 230), 19, F: PAINT (230, 230), F: GOTO N IF C5 = 0 THEN C5 = S: CIRCLE (230, 180), 19, F: PAINT (230, 180), F: GOTO N IF C6 = 0 THEN C6 = S: CIRCLE (230, 130), 19, F: PAINT (230, 130), F: GOTO N GOTO X
D: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 IF D1 = 0 THEN D1 = S: CIRCLE (280, 380), 19, F: PAINT (280, 380), F: GOTO N IF D2 = 0 THEN D2 = S: CIRCLE (280, 330), 19, F: PAINT (280, 330), F: GOTO N IF D3 = 0 THEN D3 = S: CIRCLE (280, 280), 19, F: PAINT (280, 280), F: GOTO N IF D4 = 0 THEN D4 = S: CIRCLE (280, 230), 19, F: PAINT (280, 230), F: GOTO N IF D5 = 0 THEN D5 = S: CIRCLE (280, 180), 19, F: PAINT (280, 180), F: GOTO N IF D6 = 0 THEN D6 = S: CIRCLE (280, 130), 19, F: PAINT (280, 130), F: GOTO N GOTO X
E: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 IF E1 = 0 THEN E1 = S: CIRCLE (330, 380), 19, F: PAINT (330, 380), F: GOTO N IF E2 = 0 THEN E2 = S: CIRCLE (330, 330), 19, F: PAINT (330, 330), F: GOTO N IF E3 = 0 THEN E3 = S: CIRCLE (330, 280), 19, F: PAINT (330, 280), F: GOTO N IF E4 = 0 THEN E4 = S: CIRCLE (330, 230), 19, F: PAINT (330, 230), F: GOTO N IF E5 = 0 THEN E5 = S: CIRCLE (330, 180), 19, F: PAINT (330, 180), F: GOTO N IF E6 = 0 THEN E6 = S: CIRCLE (330, 130), 19, F: PAINT (330, 130), F: GOTO N GOTO X
F: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 IF F1 = 0 THEN F1 = S: CIRCLE (380, 380), 19, F: PAINT (380, 380), F: GOTO N IF F2 = 0 THEN F2 = S: CIRCLE (380, 330), 19, F: PAINT (380, 330), F: GOTO N IF F3 = 0 THEN F3 = S: CIRCLE (380, 280), 19, F: PAINT (380, 280), F: GOTO N IF F4 = 0 THEN F4 = S: CIRCLE (380, 230), 19, F: PAINT (380, 230), F: GOTO N IF F5 = 0 THEN F5 = S: CIRCLE (380, 180), 19, F: PAINT (380, 180), F: GOTO N IF F6 = 0 THEN F6 = S: CIRCLE (380, 130), 19, F: PAINT (380, 130), F: GOTO N GOTO X
G: IF S = 1 THEN F = 14 IF S = 2 THEN F = 4 IF S = 3 AND SP >= 3 THEN F = 1 IF S = 4 AND SP >= 4 THEN F = 2 IF G1 = 0 THEN G1 = S: CIRCLE (430, 380), 19, F: PAINT (430, 380), F: GOTO N IF G2 = 0 THEN G2 = S: CIRCLE (430, 330), 19, F: PAINT (430, 330), F: GOTO N IF G3 = 0 THEN G3 = S: CIRCLE (430, 280), 19, F: PAINT (430, 280), F: GOTO N IF G4 = 0 THEN G4 = S: CIRCLE (430, 230), 19, F: PAINT (430, 230), F: GOTO N IF G5 = 0 THEN G5 = S: CIRCLE (430, 180), 19, F: PAINT (430, 180), F: GOTO N IF G6 = 0 THEN G6 = S: CIRCLE (430, 130), 19, F: PAINT (430, 130), F: GOTO N GOTO X |