10 REM KREUZUNGEN ==============64
20 REM                           =
30 REM ===========================
40 REM (C) GUENTER KRAMER        =
50 REM     EMSDETTEN             =
60 REM                           =
70 REM BASIC 2.0  40Z/ASCII      =
80 REM C64 + 1530/1541/1571      =
90 REM ===========================
100 IFA=1THEN130
110 A=1
120 LOAD"M.P. KREUZUNGEN",8,1
130 POKE46,64
140 POKE45,1
150 CLR
160 GOSUB4560
170 GOSUB5960
180 IFHS>0THENGOSUB6250
190 SYS49449
200 GOSUB7080
210 SYS49483
220 SYS49152
230 GOSUB4170
240 GOSUB5290
250 GOSUB3180
260 POKEZE,0:POKESP,10:SYSCU
270 PRINTCHR$(158)"* E N D E *"
280 POKE198,0
290 PRINT:PRINT
300 PRINT"WEITER = RETURN"
310 GETA$:IFA$<>CHR$(013)THEN310
320 GOSUB6500
330 POKE198,0
340 PRINT"EIN NEUES SPIEL ?"
350 GETA$
360 IFA$="N"THEN480
370 IFA$<>"J"THEN350
380 FORI=0TO8
390 A(I)=0
400 FORJ=0TO2
410 MS(I,J)=0
420 FORK=0TO16
430 FORL=1TO4
440 GE(I,K,J,L)=0
450 NEXTL,K,J,I
460 GOSUB4880
470 GOTO220
480 SYS2048
490 END
500 REM **************************
510 REM ********** SETZEN PUNKTE *
520 REM **************************
530 A0$="........."
540 A$=STR$(MS(S,1))
550 A$=RIGHT$(A$,LEN(A$)-1)
560 A$=RIGHT$(A0$+A$,9)
570 A=S*3
580 POKEZE,A:POKESP,30:SYSCU
590 PRINTCHR$(158)A$;
600 RETURN
610 REM **************************
620 REM ************* AUSWAEHLEN *
630 REM **************************
640 A0=32*INT((A-1)/4)+S1
650 A1=2*((A-1)-(4*INT((A-1)/4)))+1
660 A1=2^A1*1.5
670 IFA>16THENA0=SO
680 POKEA0,PEEK(A0)AND(255-A1)
690 GOSUB1070
700 IFEI>0THEN750
710 POKEA0,PEEK(A0)ORA1
720 GOSUB1070
730 IFEI>0THEN750
740 GOTO680
750 POKEA0,PEEK(A0)ORA1
760 IFEI=133THENGOSUB2660:GOTO640
770 IFEI=94THEN930
780 IFEI=32THEN930
790 IFEI=29THENA=A+1
800 IFEI=157THENA=A-1
810 IFEI=145THENA=A-4
820 IFEI=17THENA=A+4
830 IFVK=0THEN880
840 IFA<1THENA=A+17
850 IFA>16THENA=A-16
860 IFGE(S,A,0,1)=0THEN770
870 GOTO640
880 IFA<1THENA=A+20
890 IFA>20THENA=A-20
900 IFA>16THEN640
910 IFGE(S,A,0,1)=0THEN770
920 GOTO640
930 RETURN
940 REM **************************
950 REM ******** ZUCHTERGEBNISSE *
960 REM **************************
970 IFMS(S,2)=OTHEN1030
980 FORI=1TOMS(S,2)
990 GOSUB2000
1000 A=I
1010 GOSUB1770
1020 NEXT
1030 RETURN
1040 REM *************************
1050 REM *** EINGABE AUSWERTEN ***
1060 REM *************************
1070 EI=0
1080 GETA$
1090 IFA$<>CHR$(133)THEN1150
1100 IFVK=1THEN1150
1110 IFI<>1THEN1150
1120 IFJ<>0THEN1150
1130 EI=133
1140 GOTO1300
1150 IFMS(S,0)<3THEN1200
1160 FORK=1TO100:NEXT
1170 IFA$=""THEN1300
1180 EI=ASC(A$)
1190 GOTO1300
1200 POKE56322,224
1210 A2=PEEK(56320)
1220 IFMS(S,0)=1THENA2=PEEK(56321)
1230 POKE56322,255
1240 IF(A2AND1)=0THENEI=145
1250 IF(A2AND2)=0THENEI=17
1260 IF(A2AND4)=0THENEI=157
1270 IF(A2AND8)=0THENEI=29
1280 IF(A2AND16)=0THENEI=EI+32
1290 IFEI=177THENEI=94
1300 RETURN
1310 REM *************************
1320 REM ************* GENEHOLEN *
1330 REM *************************
1340 IFA>16THEN1440
1350 A2=INT(RND(0)*2)+1
1360 A1(J*4+1)=GE(S,A,A2,1)
1370 A2=INT(RND(0)*2)+1
1380 A1(J*4+2)=GE(S,A,A2,2)
1390 A2=INT(RND(0)*2)+1
1400 A1(J*4+3)=GE(S,A,A2,3)
1410 A2=INT(RND(0)*2)+1
1420 A1(J*4+4)=GE(S,A,A2,4)
1430 GOTO1470
1440 FORK=1TO4
1450 A1(J*4+K)=GE(0,A-16,1,K)
1460 NEXT
1470 RETURN
1480 REM *************************
1490 REM ********* GENEVERBINDEN *
1500 REM *************************
1510 FORJ=1TO4
1520 A2=A1(J)
1530 A3=A1(4+J)
1540 GE(0,4+I,1,J)=A2
1550 GE(0,4+I,2,J)=A3
1560 IF(J=1)OR(J=3)THEN1590
1570 IFA3<A2THENA2=A3
1580 GOTO1630
1590 IF(A2=3)AND(A3=4)THEN1620
1600 IF(A2=4)AND(A3=3)THEN1620
1610 GOTO1570
1620 A2=5
1630 GE(0,4+I,0,J)=A2
1640 NEXT
1650 IFGE(0,4+I,0,2)>0THEN1670
1660 GE(0,4+I,0,3)=GE(0,4+I,0,1)
1670 AA=A
1680 A=I+20
1690 GOSUB1770
1700 A=I+4
1710 GOSUB2360
1720 A=AA
1730 RETURN
1740 REM *************************
1750 REM ******** ANZEIGENBLUMEN *
1760 REM *************************
1770 A3=S
1780 A2=A
1790 A4=INT((A-1)/4)*4
1800 A0=8*A4+S1
1810 A4=A-A4
1820 IFA>16THENA0=SO:A3=0:A2=A-16
1830 IFA>20THENA0=SU
1840 A1=2^(2*A4-1)*1.5
1850 POKEA0,PEEK(A0)AND(255-A1)
1860 A0=A0+2*A4
1870 POKEA0,FA(GE(A3,A2,0,1))
1880 POKEA0-1,FA(GE(A3,A2,0,3))
1890 POKEA0+8,249
1900 A3=2*GE(A3,A2,0,2)+GE(A3,A2,0,4)
1910 IFA3<1THENA3=1
1920 POKEA0+7,A3+248
1930 A3=PEEK(A0-2*A4)OR(A1)
1940 POKEA0-2*A4,A3
1950 POKET+4,0
1960 RETURN
1970 REM *************************
1980 REM ******** WERT ERRECHNEN *
1990 REM *************************
2000 A=GE(S,I,0,1)
2010 A0=GE(S,I,0,2)
2020 A1=GE(S,I,0,3)
2030 A2=GE(S,I,0,4)
2040 IFA=A1THENA0=0
2050 IFA0=0THEN2070
2060 A0=A0*A1*30+15*A2*A0*A1
2070 A=17*A+A0
2080 GE(S,I,0,0)=A
2090 A$=RIGHT$("  "+STR$(A),4)
2100 A=INT((I-1)/4)
2110 A0=I-1-4*A
2120 A=3+6*A
2130 A0=1+8*A0
2140 POKEZE,A:POKESP,A0:SYSCU
2150 PRINTCHR$(030)CHR$(018)A$
2160 RETURN
2170 REM *************************
2180 REM ******** LOESCHEN BLUME *
2190 REM *************************
2200 A0=32*INT((A-1)/4)+S1
2210 A1=2*((A-1)-(4*INT((A-1)/4)))+1
2220 A1=2^A1*1.5
2230 POKEA0,PEEK(A0)AND(255-A1)
2240 A$=CHR$(032)+CHR$(032)
2250 A$=A$+A$
2260 A1=INT((A-1)/4)
2270 A0=A-1-4*A1
2280 A=3+6*A1
2290 A0=1+8*A0
2300 POKEZE,A:POKESP,A0:SYSCU
2310 PRINTCHR$(030)CHR$(018)A$
2320 RETURN
2330 REM *************************
2340 REM ******* PRUEFEN PRAEMIE *
2350 REM *************************
2360 A0=GE(0,A,0,1)
2370 A1=GE(0,A,0,2)
2380 A2=GE(0,A,0,3)
2390 A=GE(0,A,0,4)
2400 A3=PR(A0,A1,A2,A)
2410 PR(A0,A1,A2,A)=0
2420 A3=10*INT(A3/R)
2430 IFA3<10THEN2620
2440 A1$="PRAEMIE ="+STR$(A3)
2450 A2=100
2460 IFA3<210THENA2=10
2470 A4=A3-A2*INT(A3/A2)
2480 A3=A3-A4
2490 MS(S,1)=MS(S,1)+A4
2500 A0=18
2510 FORK=1TOA3/A2
2520 POKEZE,24:POKESP,0:SYSCU
2530 PRINTCHR$(A0OR(128*(KAND1)))A1$;
2540 MS(S,1)=MS(S,1)+A2
2550 PRINTCHR$(146);
2560 GOSUB530
2570 NEXT
2580 FORK=960TO980
2590 POKEF+K,1
2600 POKEB+K,64
2610 NEXT
2620 RETURN
2630 REM *************************
2640 REM *** NEUE MOEGLICHKEITEN *
2650 REM *************************
2660 SR=S
2670 AA=A
2680 S=9
2690 K=1
2700 POKEZE,0:POKESP,10:SYSCU
2710 PRINTCHR$(158)"NEUE FARBEN"
2720 POKE53280,7
2730 GOSUB5660
2740 FORK0=1TO5
2750 FORK1=1TO3
2760 FORK2=1TO5
2770 FORK3=0TO1
2780 IFPR(K0,K1,K2,K3)=0THEN2930
2790 GE(9,K,0,1)=K0
2800 GE(9,K,0,2)=K1
2810 GE(9,K,0,3)=K2
2820 GE(9,K,0,4)=K3
2830 A=K
2840 GOSUB1770
2850 K=K+1
2860 IFK<17THEN2930
2870 POKE198,0
2880 GETA$:IFA$=CHR$(133)THEN2920
2890 IFA$<>CHR$(134)THEN2880
2900 K0=6:K1=4:K2=6:K3=2
2910 GOTO2930
2920 K=1
2930 NEXTK3,K2,K1,K0
2940 IFK>16THEN2990
2950 FORK=KTO16
2960 A=K
2970 GOSUB2200
2980 NEXT
2990 GETA$:IFA$=CHR$(133)THEN2680
3000 POKE53280,0
3010 IFA$<>CHR$(134)THEN2990
3020 FORK=1TO16
3030 A=K
3040 GOSUB2200
3050 NEXT
3060 POKEZE,0:POKESP,10:SYSCU
3070 PRINTCHR$(030)"BLUMENZUCHT"
3080 S=SR
3090 SR=I
3100 GOSUB970
3110 A=AA
3120 I=SR
3130 GOSUB5660
3140 RETURN
3150 REM *************************
3160 REM ********** SPIEL LAEUFT *
3170 REM *************************
3180 S=0:R=0
3190 S=S+1
3200 IFS>ANTHENS=1
3210 IFS=1THENR=R+1
3220 IFR>50THEN4130
3230 A$=STR$(R)+". RUNDE"
3240 A$=RIGHT$(A$,9)
3250 POKEZE,0:POKESP,30:SYSCU
3260 PRINTCHR$(018)CHR$(156)A$
3270 AD=110+(S-1)*120
3280 POKEF+AD,7
3290 POKEF+AD+1,7
3300 POKEF+AD+2,7
3310 GOSUB530
3320 FORI=AD+40TOI+9
3330 POKEF+I,7
3340 NEXT
3350 FORI=AD+4TOAD+8
3360 POKEF+I,5
3370 POKEB+I,PEEK(B+I)OR128
3380 NEXT
3390 POKEZE,0:POKESP,10:SYSCU
3400 PRINTCHR$(030)"BLUMENZUCHT"
3410 A=17
3420 GOSUB970
3430 FORI=1TO4
3440 FORJ=0TO1
3450 GOSUB640
3460 GOSUB1340
3470 GOSUB1070
3480 IFEI>0THEN3470
3490 POKE198,0
3500 NEXTJ
3510 GOSUB1510
3520 NEXTI
3530 GOSUB5660
3540 AZ=MS(S,2)
3550 A=0
3560 IFMS(S,2)=0THEN3780
3570 A=A+1
3580 IFA>16THENA=1
3590 IFGE(S,A,0,1)=0THEN3570
3600 POKE53280,13
3610 POKEZE,0:POKESP,10:SYSCU
3620 PRINTCHR$(030)"VERKAUFEN ?"
3630 VK=1
3640 GOSUB640
3650 IFEI=94THEN3760
3660 AA=A
3670 GOSUB2200
3680 A=AA
3690 MS(S,1)=MS(S,1)+GE(S,A,0,0)
3700 GOSUB530
3710 A=AA
3720 GE(S,A,0,1)=0
3730 PR=PR+1
3740 MS(S,2)=MS(S,2)-1
3750 GOTO3560
3760 IFMS(S,2)>12THEN3640
3770 POKE53280,2
3780 VK=0
3790 A4=1
3800 FORI=1TOAZ
3810 A=I
3820 GOSUB2200
3830 IFGE(S,I,0,1)=0THEN3900
3840 FORJ=0TO2
3850 FORK=1TO4
3860 GE(S,A4,J,K)=GE(S,I,J,K)
3870 NEXTK,J
3880 IFA4<ITHENGE(S,I,0,1)=0
3890 A4=A4+1
3900 NEXT
3910 A=MS(S,2)-4
3920 FORI=5TO8
3930 A0=255-2^(2*(I-5)+1)*1.5
3940 POKESU,PEEK(SU)ANDA0
3950 FORJ=0TO2
3960 FORK=1TO4
3970 GE(S,A+I,J,K)=GE(0,I,J,K)
3980 GE(0,I,J,K)=0
3990 NEXTK,J,I
4000 MS(S,2)=MS(S,2)+4
4010 POKESU,0
4020 FORI=S1TOS4STEP32
4030 POKEI,0
4040 NEXT
4050 FORI=ADTOI+9
4060 POKEI+F,4
4070 POKEI+B,PEEK(I+B)AND127
4080 POKEI+F+40,4
4090 NEXT
4100 POKE53280,0
4110 POKE53281,0
4120 GOTO3190
4130 RETURN
4140 REM *************************
4150 REM ********* ANFANGSFRAGEN *
4160 REM *************************
4170 POKE53280,13
4180 POKE53281,13
4190 POKEZE,12:POKESP,12:SYSCU
4200 PRINTCHR$(030)"WIEVIELE SPIELER?"
4210 GETA$
4220 IF(A$<"1")OR(A$>"8")THEN4210
4230 AN=VAL(A$)
4240 POKEZE,14:POKESP,12:SYSCU
4250 PRINTAN"SPIELER - OK?"
4260 GETA$:IFA$="J"THEN4300
4270 IFA$<>"N"THEN4260
4280 POKEZL,14:SYSLO
4290 GOTO4210
4300 PRINTCHR$(147)CHR$(030)
4310 PRINTTAB(12)"BITTE EINGEBEN:"
4320 PRINT
4330 PRINTTAB(12)"1 = JOYSTICK 1"
4340 PRINTTAB(12)"2 = JOYSTICK 2"
4350 PRINTTAB(12)"3 = TASTATUR"
4360 PRINTCHR$(156)
4370 FORI=1TOAN
4380 PRINTTAB(12)"SPIELER"I" = ";
4390 POKEPU,0
4400 GETA$
4410 IF(A$<"1")OR(A$>"3")THEN4400
4420 MS(I,0)=VAL(A$)
4430 PRINTE$(MS(I,0))
4440 NEXT
4450 PRINTCHR$(030)"IN ORDNUNG?"
4460 GETA$:IFA$="J"THEN4490
4470 IFA$="N"THEN4300
4480 GOTO4460
4490 POKE53280,0
4500 POKE53281,0
4510 PRINTCHR$(147)CHR$(159)
4520 RETURN
4530 REM *************************
4540 REM ********** ANFANGSWERTE *
4550 REM *************************
4560 V=53248:REM *********** VIC *
4570 SU=49664:REM  SPRITES UNTEN *
4580 SO=SU+32:REM * SPRITES OBEN *
4590 S1=SO+32:REM ****** REIHE 1 *
4600 S2=S1+32:REM ****** REIHE 2 *
4610 S3=S2+32:REM ****** REIHE 3 *
4620 S4=S3+32:REM ****** REIHE 4 *
4630 T=54272:REM *********** SID *
4640 N=51200:REM ******* ZEICHEN *
4650 F=55296:REM ******* FARBRAM *
4660 B=1024:REM ******** BILDRAM *
4670 CU=58640:REM ******* CURSOR *
4680 ZE=214:REM ******* CU-ZEILE *
4690 SP=211:REM ****** CU-SPALTE *
4700 PU=198:REM ******* TASTATUR *
4710 ZL=781:REM ****** LOESCH ZE *
4720 LO=59903:REM ******* SYS ZL *
4730 DIME$(8):REM ****** EINGABE *
4740 E$(1)="JOY 1"
4750 E$(2)="JOY 2"
4760 E$(3)="TASTE"
4770 DIMMS(8,2):REM **** SPIELER *
4780 DIMFB(5):REM ******* FARBEN *
4790 FA(1)=4
4800 FA(2)=14
4810 FA(3)=7
4820 FA(4)=2
4830 FA(5)=10
4840 DIMGE(9,16,2,4):REM ** GENE *
4850 DIMHS$(20):REM ** HIGHSCORE *
4860 DIMHS(20):REM *** HIGHSCORE *
4870 DIMPR(5,3,5,1):REM PRAEMIEN *
4880 FORI=1TO5
4890 FORJ=1TO3
4900 FORK=1TO5
4910 IFK=ITHEN4940
4920 PR(I,J,K,0)=100*I*J*K
4930 PR(I,J,K,1)=200*I*J*K
4940 NEXTK,J,I
4950 FORI=1TO4
4960 GE(0,I,0,1)=I
4970 GE(0,I,0,3)=I
4980 NEXT
4990 A=RND(-TI)
5000 FORI=1TO4
5010 FORJ=1TO2
5020 FORK=1TO3STEP2
5030 GE(0,I,J,K)=GE(0,I,0,K)
5040 NEXTK,J,I
5050 A=INT(RND(0)*4)+1
5060 A(A)=1
5070 A=INT(RND(0)*4)+1
5080 IFA(A)>0THEN5070
5090 A(A)=2
5100 A=INT(RND(0)*4)+1
5110 IFA(A)>0THEN5100
5120 A(A)=3
5130 FORI=1TO4
5140 FORJ=0TO2
5150 GE(0,I,J,2)=A(I)
5160 NEXTJ,I
5170 A=INT(RND(0)*4)+1
5180 FORI=0TO2
5190 GE(0,A,I,4)=1
5200 NEXT
5210 POKE53280,0
5220 POKE53281,0
5230 PRINTCHR$(147)CHR$(156)
5240 POKEV+39,1
5250 RETURN
5260 REM *************************
5270 REM *********** SPIELANFANG *
5280 REM *************************
5290 PRINTCHR$(147)CHR$(156)
5300 FORI=0TO29
5310 POKEF+I,1
5320 POKEF+I+960,1
5330 POKEB+I,64
5340 FORJ=I+120TOJ+840STEP240
5350 POKEF+J,5
5360 POKEB+J,160
5370 NEXT
5380 POKEB+I+960,64
5390 NEXT
5400 POKESO+1,FA(1)
5410 POKESO+2,FA(1)
5420 POKESO+3,FA(2)
5430 POKESO+4,FA(2)
5440 POKESO+5,FA(3)
5450 POKESO+6,FA(3)
5460 POKESO+7,FA(4)
5470 POKESO+8,FA(4)
5480 FORI=9TO16
5490 POKESO+I,249
5500 NEXT
5510 POKESO,255
5520 POKEZE,2:POKESP,0:SYSCU
5530 FORI=1TOAN
5540 A$="*"+RIGHT$(STR$(I),1)+"*"
5550 A$=A$+CHR$(032)+E$(MS(I,0))
5560 PRINTTAB(30)A$
5570 PRINTTAB(30)"........0";
5580 IFI=8THEN5610
5590 PRINT
5600 PRINTTAB(30)"========="
5610 NEXT
5620 RETURN
5630 REM *************************
5640 REM ****************** GONG *
5650 REM *************************
5660 GOSUB5770
5670 POKET+1,8:POKET,180:POKET+5,12
5680 POKET+8,15:POKET+7,247
5690 POKET+15,13:POKET+14,10
5700 POKET+12,12:POKET+19,12
5710 POKET+24,15:POKET+4,23
5720 POKET+11,23:POKET+18,23
5730 RETURN
5740 REM *************************
5750 REM ********** LOESCHEN SID *
5760 REM *************************
5770 FORT0=0TO24:POKET+T0,0:NEXTT0
5780 RETURN
5790 REM *************************
5800 REM **************** HEULEN *
5810 REM *************************
5820 GOSUB5770
5830 POKET,T1-256*INT(T1/256)
5840 POKET+1,INT(T1/256):POKET+6,240
5850 POKET+24,15:POKET+4,33:RETURN
5860 REM *************************
5870 REM **************** SCHUSS *
5880 REM *************************
5890 GOSUB5770
5900 POKET+5,9:POKET+1,21
5910 POKET+24,15:POKET+4,129
5920 RETURN
5930 REM *************************
5940 REM ******* LESEN HIGHSCORE *
5950 REM *************************
5960 OPEN15,8,15
5970 OPEN3,8,3,"0:H.S. KREUZUNGEN,U,R"
5980 INPUT#15,A,A$,A0,A1
5990 IFA=0THENHS=1:GOTO6120
6000 CLOSE3:CLOSE15
6010 PRINTCHR$(147)A;A$;A0;A1
6020 PRINT
6030 PRINT"WENN HIGHSCORE VORHANDEN,"
6040 PRINT"DISKETTE EINLEGEN UND"
6050 PRINT"'J' EINGEBEN."
6060 PRINT
6070 PRINT"SONST 'N' EINGEBEN."
6080 GETA$
6090 IFA$="J"THEN5960
6100 IFA$<>"N"THEN6080
6110 HS=0
6120 A$="    "
6130 A=0
6140 FORI=1TO20
6150 IFHS=0THEN6170
6160 INPUT#3,A$,A
6170 HS$(I)=A$
6180 HS(I)=A
6190 NEXT
6200 CLOSE3:CLOSE15
6210 RETURN
6220 REM *************************
6230 REM **** ANZEIGEN HIGHSCORE *
6240 REM *************************
6250 PRINTCHR$(147)CHR$(030)
6260 PRINTSPC(15)"EHRENTAFEL"
6270 PRINT:PRINT
6280 A$=""
6290 FORI=1TO7
6300 A$=A$+CHR$(032)
6310 NEXT
6320 FORI=1TO10
6330 A0$=RIGHT$(A$+STR$(HS(I)),7)
6340 A1$=RIGHT$(A$+STR$(HS(I+10)),7)
6350 IFHS(I)=0THENA0$=A$
6360 IFHS(I+10)=0THENA1$=A$
6370 PRINTSPC(6)HS$(I)SPC(1)A0$;
6380 PRINTSPC(1)CHR$(122)CHR$(122);
6390 PRINTSPC(1)HS$(I+10)SPC(1)A1$
6400 NEXT
6410 POKEZE,22:POKESP,0:SYSCU
6420 PRINT"WEITER = RETURN"
6430 POKE198,0
6440 GETA$
6450 IFA$<>CHR$(013)THEN6440
6460 RETURN
6470 REM *************************
6480 REM ****** UPDATE HIGHSCORE *
6490 REM *************************
6500 PRINTCHR$(147)
6510 POKEZE,10:POKESP,13:SYSCU
6520 PRINT"NAMEN EINGEBEN"
6530 PRINT
6540 FORI=1TOAN
6550 IFMS(I,1)<HS(20)THEN6770
6560 A0$=""
6570 POKE198,0
6580 PRINTSPC(13)"SPIELER"I" = ";
6590 FORJ=1TO4
6600 GETA$
6610 IFA$=CHR$(013)THENJ=4:GOTO6660
6620 IFA$<CHR$(035)THEN6600
6630 IFA$>CHR$(090)THEN6600
6640 PRINTA$;
6650 A0$=A0$+A$
6660 NEXT
6670 FORJ=19TO1STEP-1
6680 HS$(J+1)=HS$(J)
6690 HS(J+1)=HS(J)
6700 A=J+1
6710 IFMS(I,1)>HS(J)THENA=J
6720 HS(A)=MS(I,1)
6730 HS$(A)=LEFT$(A0$+"    ",4)
6740 IFA<>JTHENJ=0
6750 NEXT
6760 PRINT
6770 NEXT
6780 GOSUB6250
6790 PRINTCHR$(147)
6800 IFHS=0THEN6840
6810 OPEN1,8,15
6820 PRINT#1,"S:H.S. KREUZUNGEN"
6830 CLOSE1
6840 OPEN15,8,15
6850 OPEN3,8,3,"0:H.S. KREUZUNGEN,U,W"
6860 POKE198,0
6870 INPUT#15,A,A$,A0,A1
6880 IFA=0THEN6980
6890 CLOSE3:CLOSE15
6900 PRINTCHR$(147)A,A$,A0,A1
6910 PRINT"WENN HIGHSCORE GEWUENSCHT,"
6920 PRINT"DISKETTE EINLEGEN UND"
6930 PRINT"'J' EINGEBEN."
6940 PRINT"SONST 'N' EINGEBEN."
6950 GETA$:IFA$="N"THEN7030
6960 IFA$="J"THEN6810
6970 GOTO6950
6980 FORI=1TO20
6990 IFHS(I)=0THENHS$(I)="    "
7000 PRINT#3,HS$(I);CHR$(013);HS(I)
7010 NEXT
7020 CLOSE3:CLOSE15
7030 GOSUB6250
7040 RETURN
7050 REM *************************
7060 REM ***************** TITEL *
7070 REM *************************
7080 POKE2040,13
7090 PRINTCHR$(147)
7100 POKE53280,0
7110 POKE53281,0
7120 PRINTCHR$(147)
7130 POKEV+23,1:POKEV+29,1
7140 A$="":A0$=""
7150 FORI=1TO14
7160 A$=A$+CHR$(032)
7170 NEXT
7180 FA=10:R=128
7190 FORZ1=1TO3
7200 Z=Z1:GOSUB7370
7210 NEXTZ1
7220 A$="KREUZUNGEN"
7230 Z=2
7240 GOSUB7370
7250 POKEZE,5:POKESP,4:SYSCU
7260 PRINT"  HIGHSCORE TEAM PRAESENTIERT"
7270 POKEZE,6:POKESP,12:SYSCU
7280 PRINT"EIN PROGRAMM VON"
7290 A$="GUENTER KRAMER"
7300 Z=8:FA=3:A0$="S":R=0
7310 POKEV+23,0:POKEV+29,0
7320 GOSUB7370
7330 RETURN
7340 REM *************************
7350 REM ******** SPRITES LAUFEN *
7360 REM *************************
7370 Y=Z*8+50:S=13*64
7380 Z=19+B+Z*40-LEN(A$)/2
7390 FORI=1TOLEN(A$)
7400 POKEV+1,230
7410 POKEV,0:T1=34*256
7420 A=ASC(MID$(A$,I,1))
7430 IFA=32THEN7620
7440 IFA>63THENA=A-64
7450 IFA0$="S"THEN7610
7460 A0=168-(4*(LEN(A$)+1AND254))+I*8
7470 FORJ=STOS+62:POKEJ,0:NEXTJ
7480 FORJ=0TO7
7490 POKES+3*J+1,PEEK(N+J+A*8)
7500 NEXTJ:T1=0:GOSUB5820
7510 POKEV+21,1
7520 POKEV+39,1
7530 FORJ=0TOA0STEP4
7540 POKEV,JAND255
7550 POKEV+16,INT(J/256)
7560 POKET+1,JAND255:NEXTJ
7570 FORJ=230TOYSTEP-2
7580 POKEV+1,J
7590 POKET+1,J-34
7600 NEXTJ
7610 GOSUB5890
7620 POKEZ+I+F-B,FA
7630 POKEZ+I,A+R
7640 POKEV+21,0
7650 NEXTI
7660 RETURN
7670 REM KREUZUNGEN ============64
7680 REM 038911 BYTES MEMORY     =
7690 REM 014336 BYTES PROGRAM    =
7700 REM 000315 BYTES VARIABLE   =
7710 REM 014799 BYTES ARRAYS     =
7720 REM 000287 BYTES STRINGS    =
7730 REM 009174 BYTES FREE       =
7740 REM =========================