0 REM MAXIMAL EIN SPIEL VON THORSTEN BARTEL
1 REM (C) INPUT 64
5 IFPEEK(50307)<>120THEN10
6 POKE50257,0
10 PRINTCHR$(147)CHR$(142)CHR$(8):POKE53269,0
15 CD$=""
16 GOSUB9000:
20 DIM B(10,10):A=9
60 GOSUB9650:A$=W$
70 IFA$="1"ORA$="2"THEN80
75 IFA$="1"ORA$="2"THEN80
78 GOTO60
80 PRINT"[159][147]":PRINT
85 POKE53281,2:POKE53280,2:POKE650,128
90 IFA$="1"THEN160
100 PRINT"DER NAME VOM 1.SPIELER ";:GOSUB9500:B1$=WW$
110 PRINT"DER NAME VOM 2.SPIELER ";:GOSUB9500:B2$=WW$
120 PRINT"[144]DANKE":FORI=1TO300:NEXT
130 PRINT"[159][147]":PRINT
160 PRINTSPC(A);"[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
162 PRINTSPC(A);"[221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
165 FORI=1TO09
190 PRINTSPC(A);"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
195 PRINTSPC(A);"[221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]"
200 NEXTI
210 PRINTSPC(A);"[173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
220 REM FUELLEN MIT ZAHLEN ------------
230 P=1112-40
270 FORI=1TO 10
272 FORI1=1TO10
275 GOSUB400
280 C=P+(I*80)+(I1*2)
290 POKEC,A+48:POKE54272+C,7
294 IFA>128THENA=(A-128)*-1
295 B(I,I1)=A
300 NEXTI1,I
310 GOTO500
400 A=INT(RND(1)*9)+1
410 A1=INT(RND(1)*2)+1
420 IFA1=1THENRETURN
430 A=A+128:RETURN
440 REM -------------------------------
500 IFA$="2"THEN 600
504 FORI=1TO19 :PRINT"";:NEXTI
510 PRINTSPC(1)"IHRE"SPC(27)"MEINE"
515 PRINT
520 PRINTSPC(1)"PUNKTE"SPC(25)"PUNKTE"
530 GOTO700
600 FORI=1TO19 :PRINT"";:NEXTI
610 B1$=LEFT$(B1$,7):B2$=LEFT$(B2$,7)
615 PRINTSPC(1)B1$CHR$(141)"[145]"SPC(32)B2$:PRINT
620 PRINTSPC(1)"PUNKTE"SPC(25)"PUNKTE"
700 IFA$="1"THEN750
710 PRINTCD$"[159] "B1$" BEGINNT                       ";
720 GOSUB9650:PRINT"[145]                                         "
730 GOTO800
750 PRINTCD$"[159] SIE BEGINNEN                        ";
760 GOSUB9650:PRINT"[145]                                         "
800 REM ------------SPRITE DEFINITION
810 V=53248
820 POKE2040,192
830 POKEV+39,0
840 POKEV+29,1:POKEV+23,1
850 POKEV,100+32+32
860 POKEV+1,137
870 FORI=12288TO12350:READS:POKEI,S:NEXTI:POKEV+21,1
900 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,126,0,0,231,0,1,195,128,1,129
910 DATA 128,1,129,128,1,129,128,1,195,128,0,231,0,0,126,0,0,60,0,0,0,0,0,0,0,0
920 DATA 0,0,0,0,0,0,0,0,0
950 IFA$="1"GOTO1400
999 REM ANFANG HAUPTPROGRAMM---------------------------------------------------
1000 GOSUB 2000              :REM ZUG MOEGLICH
1010 IF OK$="NICHTS"THEN GOTO 8000
1020 GOSUB 3000              :REM JOYSTICK ABFRAGE
1030 IFJ1>10THENGOTO1100     :REM FIRE
1040 W=1:S=0:GOSUB4000       :REM SPRITE BEWEGEN
1050 GOTO 1020
1100 GOSUB 2500              :REM POS BELEGT
1110 IF P= 0 THEN GOSUB 6000 :GOTO1020
1120 K1=K1+P
1130 GOSUB 5000              :REM KONTOSTAND ANZEIGEN
1140 GOSUB 2000
1160 IFS$="NICHTS"THEN GOTO 8000
1180 GOSUB3000
1190 IFJ2>10 THEN1300
1200 W=0:S=1:GOSUB4000
1210 GOTO1180
1300 GOSUB2500
1310 IF P= 0 THEN GOSUB 6000 :GOTO1180
1320 K2=K2+P
1330 GOSUB5000
1340 GOTO 1000
1400 REM COMPUTER GEGEN SPIELER-----------------------------------------------
1410 GOSUB2000
1420 B1$="SIE":B2$="IHR C-64"
1430 IFOK$="NICHTS"GOTO8000
1440 GOSUB3000
1450 IFJ1>10GOTO1500
1460 W=1:S=0:GOSUB4000
1470 GOTO1440
1500 GOSUB2500
1510 IFP=0THENGOSUB6000:GOTO1440
1520 K1=K1+P:GOSUB5000
1530 GOSUB2000
1540 IFS$="NICHTS"GOTO8000
1550 REM COMPUTER STRATEGIE ----------------------------------------
1555 I3=0:I4=0:I5=0:I6=0:I8=0:POKEV+21,0
1560 FORI=1TO10
1570 : IFB(I,F)<>0THENGOSUB1600
1575 NEXTI
1577 FORI=1TOE:POKEV+1,41+(I*16):POKEV+21,1:FORI1=1TO200:NEXTI1:NEXTI
1585 FORI2=1TO10:FORI=1TO200:NEXTI:POKEV+21,1ANDNOTPEEK(V+21):NEXTI2
1590 K2=K2+B(E,F):GOSUB5000
1599 GOTO1410 :REM ZURUECK ZUM SPIELER -----------------------------
1600 FORI1=1TO10
1605 : I5=B(I,I1)
1610 : IFI5=0THEN1630
1615 : IFI1=FTHEN1630
1620 : IFI5>I6THENI6=I5
1630 NEXTI1:GOSUB1650:I6=0:RETURN
1650 I3=B(I,F)-I6
1660 IFI3>I4THENI4=I3:E=I:RETURN
1665 I8=I8+1:IFI8=1THENI4=I3:E=I
1670 RETURN
1999 REM ENDE HAUPTPROGRAMM - ANFANG DER UNTERPROGRAMME -----------------------
2000 REM ZUG MOEGLICH ??? ----------------------------------------------------
2005 E=INT(PEEK(V+1)/16)-2
2010 F=INT(PEEK(V)/16)-4
2020 FORI=1TO10
2030 IFB(E,I)<>0THENOK$="OK":GOTO2050
2040 NEXTI:OK$="NICHTS"
2050 FORI=1TO10
2060 IFB(I,F)<>0THENS$="OK":RETURN
2070 NEXTI:S$="NICHTS":RETURN
2500 REM POS BELEGT ----------------------------------------------------------
2510 E=INT(PEEK(V+1)/16)-2
2520 F=INT(PEEK(V)/16)-4
2540 P=B(E,F):RETURN
3000 REM JOYSTICKABFRAGE - + CURSORTASTEN -------------------------------------
3005 GETQ$
3010 J1=PEEK(56321):J1=ABS(J1-255)
3020 J2=PEEK(56320):J2=ABS(127-J2)
3021 IFQ$=CHR$(13)THENJ1=12:J2=12:RETURN
3022 IFJ1<>0THENRETURN
3023 IFQ$=CHR$(157)THENJ1=4:RETURN
3024 IFQ$=CHR$(29)THENJ1=8:RETURN
3026 IFQ$=CHR$(17)THENJ2=2:RETURN
3028 IFQ$=CHR$(145)THENJ2=1:RETURN
3030 RETURN
4000 REM SPRITE BEWEGEN -------------------------------------------------------
4010 IFW=0THEN 4200
4020 IFJ1=4GOTO4050
4025 IFJ1=8GOTO4030
4027 RETURN
4030 IFPEEK(V)<228THENPOKEV,PEEK(V)+16
4040 RETURN
4050 IFPEEK(V)>96THENPOKEV,PEEK(V)-16
4060 RETURN
4200 IFJ2=1GOTO4250
4225 IFJ2=2GOTO4230
4227 RETURN
4230 IFPEEK(V+1)<228-32THENPOKEV+1,PEEK(V+1)+16
4240 RETURN
4250 IFPEEK(V+1)>96-32THENPOKEV+1,PEEK(V+1)-16
4260 RETURN
5000 REM KONTOSTAND ANZEIGEN --------------------------------------------------
5010 PRINT""CD$"                                       ";
5020 PRINT""CD$" "K1"[145][145]"CHR$(141)SPC(33)""K2"";
5030 B(E,F)=0
5040 POKE1072+(E*80)+(F*2),96
5050 RETURN
6000 REM INFO UNGUELTIGER ZUG -------------------------------------------------
6010 PRINT"[144]            UNGUELTIGER ZUG  [159] "
6020 FORI=1TO1000:NEXTI
6030 PRINT"                                       "
6040 RETURN
8000 REM GEWONNEN ------------------------------------------------------------
8010 IFK1>K2THEN GOTO8100
8020 FORI=40TO2STEP-1:POKE53280,I:POKE53281,I:NEXTI
8030 PRINT""B2$" HAT GEWONNEN               "
8040 GOSUB9650:POKEV+21,0:RUN
8100 FORI=40TO2STEP-1:POKE53280,I:POKE53281,I:NEXTI
8105 IFB1$<>"SIE"THEN8110
8106 PRINT"       HERZLICHEN GLUECKWUNSCH":PRINT:PRINT"        SIE HABEN MICH
8107 [137]8120
8110 [153]""B1$" HAT GEWONNEN               "
8120 [141]9650:[151]V[170]21,0:[138]
8999 [143] EROEFFNUNGSBILD ------------------------------------------------------
9000 [151]53280,3 :[151]53281,3
9005 [153]"                         WAIT"
9010 [153]" SYS                        WAIT"
9020 [153]" SYS PRINT                    PRINT SYS  WAIT"
9030 [153]" SYS PRINT OPEN                  OPEN PRINT SYS  WAIT"
9040 [153]" SYS PRINT OPEN LIST                LIST OPEN PRINT SYS  WAIT"
9050 [153]" SYS PRINT OPEN LIST PRINT#              PRINT# LIST OPEN PRINT SYS  WAIT"
9060 [153]" SYS PRINT OPEN LIST PRINT# POKE            POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9070 [153]" SYS PRINT OPEN LIST PRINT# POKE            POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9080 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY        VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9090 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY STOP       VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9095 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY STOP       VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9097 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY STOP       VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9100 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY STOP MAXIM VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9110 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY STOP       VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9115 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY STOP       VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9117 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY STOP       VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9120 [153]" SYS PRINT OPEN LIST PRINT# POKE  VERIFY        VERIFY  POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9130 [153]" SYS PRINT OPEN LIST PRINT# POKE            POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9140 [153]" SYS PRINT OPEN LIST PRINT# POKE            POKE PRINT# LIST OPEN PRINT SYS  WAIT"
9150 [153]" SYS PRINT OPEN LIST PRINT#              PRINT# LIST OPEN PRINT SYS  WAIT"
9160 [153]" SYS PRINT OPEN LIST                LIST OPEN PRINT SYS  WAIT"
9170 [153]:[153]"STOP      DRUECKE 1 FUER EINEN SPIELER   "
9180 [153]"      DRUECKE 2 FUER ZWEI  SPIELER   ";
9300 [142]
9500 [143] EINGABESTRING NACH WW$
9510 WW$[178]"":I[178]0:RV$[178][199](18)[170][199](32)[170][199](146)
9520 [153]RV$;
9530 [141]9650
9540 [139]W[178]13[167]9630
9550 [139]W[178]20[167]9610
9555 [139]I[177]6[167]9530
9560 [139]W[178]34[167]9530
9570 [139]W[177]32[175]W[179]96[167]9590
9580 [139]W[179]193[176]W[177]218[167]9530
9590 I[178]I[170]1:WW$[178]WW$[170]W$
9600 [153]"CMD CMD";W$;:[137]9520
9610 [139]I[179]1[167]9530
9620 I[178]I[171]1:WW$[178][200](WW$,I):[137]9600
9630 [153]"CMD "W$;:[142]
9640 [143]--------------------------
9650 [143] AUF EIN ZEICHEN WARTEN
9660 [151]198,0
9670 [161]W$:[139]W$[178]""[167]9670
9680 W[178][198](W$)
9690 [142]
9700 [143]--------------------------