6510 — Die Suche nach dem Prozessor

Mit einem Raumschiff fliegen Sie durch ein Höhlenlabyrinth. Ihre Aufgabe: Finden Sie den Prozessor 6510 und setzen ihn in seinen Sockel. Wem das Höhlen-System nicht gefällt, der kann sich selbst neue erstellen.

Ziel des Spiels ist es, einen IC am Ende eines Labyrinthes aufzunehmen, und diesen in seine Fassung einzusetzen. Es gehört viel Geschicklichkeit dazu, die sechs Labyrinthe zu durchqueren. Außerdem machen einem Hindernisse wie Laser, Gravitation und Fuel das Leben schwer. Mit den Funktionstasten kann man die Geschwindigkeit, die Stärke der Gravitation, Anzahl der Schiffe, sowie die Fuelabnahme einstellen. Zu Beginn befindet man sich in einem kuppelähnlichem Raum, in dem sich die IC-Fassung befindet. Durch Drücken des Feuerknopfes kann das Fahrwerk ein- beziehungsweise ausgefahren werden. Unfallfreies Landen ist jedoch nur auf den dafür vorgesehenen Fuel-Plattformen zum Auftanken möglich.

Zum Eintippen:

Da das Lesen der Daten mit Prüfsummenroutine viel mehr Zeit beansprucht, als ohne diese, empfiehlt es sich, sämtliche »GOSUB3440« nach dem ersten einwandfreien Durchlauf zu entfernen. Ebenso ist es notwendig, alle Prüfsummen, das heißt DATAs über 255 zu entfernen. Durch das Entfernen des REMs aus Zeile 810, entfällt das blinde Eintippen von »POKE648,4« nach dem Drücken von »RUN/STOP + RESTORE«. Dieser »POKE« wäre notwendig, um wieder auf den normalen Bildschirm zu kommen. Falls jemandem die Labyrinthe zu schwierig sein sollten, können diese geändert werden.

Eine Besonderheit an »6510« ist unter anderem die Unterbringung der FuelsäuIe. Diese befindet sich außerhalb des Bildschirmfensters. Dieses wurde mit Hilfe des IRQ (Interrupt Request), des Rasterzeileninterrupts verwirklicht. Mit einer ähnlichen Interruptroutine wurde auch die Steuerung und der Ablauf der Melodie möglich.

Das Prinzip eines solchen Interrupts ist folgendes:

Das Bild, das man auf einem Fernsehgerät oder einem Monitor sieht, wird aus vielen einzelnen Zeilen zusammengesetzt (Rasterzeilen). Diese Zeilen werden beim Fernseher zirka 25 mal pro Sekunde aufgebaut, so daß ein flimmerfreies Bild entsteht. Beim C 64 übernimmt der VIC (Video-Interface-Chip) diese Aufgabe. Wird nun eine ganz bestimmte Zeile aufgebaut, verzweigt der Prozessor zu einer Interruptroutine. Bei »6510« wird in dieser Routine die Rahmenfarbe ab einer bestimmten Rasterzeile auf den Wert 5 (grün) beziehungsweise den Wert 0 (schwarz) gesetzt. Die Rasterzeile, ab der auf Grün geschaltet wird, ist von der Menge des vorhandenen Fuels abhängig. Mit dem Timer-Interrupt wird die Hauptschleife gesteuert. Dieser Interrupt wird unter anderem durch den in der Speicherstelle 56549 abgelegten Wert geregelt. Hierdurch besteht auch die Möglichkeit, die Geschwindigkeit des Cursors zu manipulieren (TI$ wird ebenfalls beeinflußt). Der Timer-Interrupt wird von den CIAs (Complex Interface Adapter) ausgelöst. Diese zählen von dem in 56549 stehendem Wert auf Null herunter, wonach sie einen Interrupt auslösen und wieder mit dem Zählen beginnen.

Die Daten für die Melodie werden ab $C500 bis $C6FF abgelegt.

Hinweise zum Ändern und Hinzufügen von Labyrinthen

Um überhaupt Labyrinthe ändern oder hinzufügen zu können, muß vor die POKEs in Zeile 810 ein »REM« gesetzt werden. Danach startet man das Programm. Sobald das Auswahlmenü erscheint, drückt man die RUN/STOP-Taste. Nun hat man den umdefinierten Zeichensatz zur Verfügung.

Ändern von Labyrinthen

Die Labyrinthe liegen in den Zeilen 3530 bis 5170. Sollen Labyrinthe geändert werden, so listet man das zu ändernde Labyrinth (siehe Listing). Nun kann das Labyrinth wie ein normales Basic-Programm editiert werden.

Hinzufügen von Labyrinthen

Das Hinzufügen von Labyrinthen ist etwas komplizierter. Zuerst sind im Programm folgende Änderungen nötig (angegeben ist jeweils die gesamte Zeile):

Zeile 400:
400 RI=0:CO=0:CK=1:V=53248:SI = 54272:LM = 6 + Anzahl der hinzugefügten Labyrinthe
Zeile 1810:
1810 ON LA GOSUB 3520, 3750, Zeile1, Zeile2, …, Zeile n,4020,4280,4550,4890
Dabei entspricht »Zeile1« der Anfangszeile des ersten hinzugefügten Labyrinths, »Zeile2« der Anfangszeile des 2. hinzugefügten Labyrinths und so weiter.
Zeile 2060:
2060 A=0:ON LA GOTO 2190,2070,…,2070,2070,2700,2080
Nach der ersten »2070« müssen soviele »2070« eingefügt werden, wie neue Labyrinthe hinzugefügt wurden. Nicht vergessen, die »2070« durch Kommata zu trennen!

Jetzt können die neuen Labyrinthe an den Schluß des Programms (ab Zeile 8000) angefügt werden. Dabei ist folgendes Format einzuhalten:

22 PRINT-Zeilen, in denen das Labyrinth gePRINTet wird. In den nachfolgenden Zeilen müssen die Koordinaten des Raumschiffs, der Laser und der Fuel-Plattform gesetzt werden (Tabelle 1). DieX-Koordinatendürfen den Wert 255 nicht überschreiten. Dies demonstrieren wir am besten an einem Beispiel.

8000	PRINT”...	}Labyrinth
	⋮
8210	PRINT"...
8220	XK(0)=60:YK(0) = 70
8230	XK(1) = 30:YK(1) = 70:MB = 15
8240	POKEV+8,100:POKEV+9,100
8250	POKEV+10,100:POKEV+11,110
8260	POKEV+12,200:POKEV+13,120
8270	POKEV+14,0:POKEV+15,0
8280	RETURN

Tabelle 1.

Die Bedeutung der Variablen und POKEs ist in Tabelle 1 erläutert. Der Variablen MB muß immer der Wert 15 zugeordnet werden.

Soll keine Fuel-Plattform erscheinen, so sind die Koordinaten auf 0 zu POKEn. Außerdem ist darauf zu achten, daß sich keine Sprites überschneiden, da sonst die Kollisionsabfrage nicht einwandfrei arbeitet.

Hinweise zum Erstellen eines Labyrinths

Erst wird — wie bereits beschrieben — der Zeichensatz eingeschaltet. Dann löscht man den Bildschirm und baut das Labyrinth aus den umdefinierten Zeichen auf. Dabei ist zu beachten, daß der Bildschirm nicht nach unten scrollt (dies kann passieren, wenn man ein Zeichen an die letzte Position der Zeile setzt). Dieses Scrollen kann verhindert werden, indem man das Zeichen an die vorletzte Position der Zeile setzt, den Cursor vor das Zeichen positioniert und mit der INSERT-Funktion um eine Stelle nach rechts verschiebt. Außerdem müssen die untersten drei Zeilen frei bleiben (SCORE, TIME…). Auch darf das Raumschiff weder den oberen noch den unteren Bildschirmrand verlassen, da dies nicht in der Hauptschleife überprüft wird. Ist das Labyrinth fertig erstellt, muß es in das Programm eingefügt werden. Dazu wird der Cursor in die linke obere Ecke des Bildschirms gebracht. Dann wird mit »INSERT« Platz für die Zeilennummer, ein Fragezeichen für »PRINT« und ein Anführungszeichen geschaffen. Nun wird die Zeilennummer, das Fragezeichen und das Anführungszeichen in den gerade geschaffenen Platz eingefügt. Nun drückt man »RETURN«. Jetzt fährt man mit dem Cursor vorsichtig an den unteren Rand des Bildschirms und läßt die obere Zeile aus dem Bildschirmfenster nach oben herausscrollen. Mit den verbliebenen Zeilen verfährt man genauso. Man sollte allerdings nicht vergessen, die Zeilennummer laufend zu erhöhen.

(Harald Beine/Arne Jansen/rg)

VIC Register	Bedeutung
0	X-Koordinate des Raumschiffs Sprite 1
1	Y-Koordinate des Raumschiffs Sprite 1
2	X-Koordinate des Raumschiffs Sprite 2
3	Y-Koordinate des Raumschiffs Sprite 2
4	X-Koordinate des Fahrwerks
5	Y-Koordinate des Fahrwerks
6	frei
7	frei
8	X-Koordinate des 1. Lasers
9	Y-Koordinate des 1. Lasers
10	X-Koordinate des 2. Lasers
11	Y-Koordinate des 2. Lasers
12	X-Koordinate der Fuel-Platform
13	Y-Koordinate der Fuel-Platform
14	X-Koordinate des Zusatzsprites
15	Y-Koordinate des Zusatzsprites
Zusatzsprite = IC-Fassung, Schlüssel, 6510

Bit-Belegung des VIC

Variable	Bedeutung
XK(0)	X-Koordinate des Raumschiffs auf der Hinfahrt
YK(0)	Y-Koordinate des Raumschiffs auf der Hinfahrt
XK(1)	X-Koordinate des Raumschiffs auf der Rückfahrt
YK(1)	Y-Koordinate des Raumschiffs auf der Rückfahrt
MB	MSB des Raumschiffs auf der Rückfahrt (0 oder 15)

Maschinenroutinen: Aufruf mit SYS

704

Ersetzen von »POKE648,4«

832

während des Datenlesens: Kopieren des Zeichensatzes ins RAM

im Hauptprogramm: Schlußszene

32768

Initialisieren der Hauptschleife, wählen des Raster-IRQ

Hauptschleife:	Joystickabfrage
	Bewegung des Raumschiffs
	Gravitation
	Fuel
	Laser
	Musik

33217

Joystickabfrage ausschalten

33204

Joystickabfrage einschalten

52736

Hauptschleife ausschalten

Maschinenroutinen von »6510«

Die wichtigsten Variablen:

LS	Lasergeschwindigkeit
SH	Anzahl Schiffe
MU	Musik ein beziehungsweise aus
FS	Fuelsäulengeschwindigkeit
LE	Level
RI	Richtung
V	VIC-Basisadresse
SI	SID-Basisadresse
X	Speicherstelle X-Koordinate
Y	Speicherstelle Y-Koordinate
LA	Aktuelles Labyrinth

Variablenliste von »6510«

Unterroutinen:

100-820	Einleseroutine
830-1550	Copyright und Titelbild
1600—1760	Initialisieren des Speichers
1770-2050	Hauptprogramm
2060-2070	Kollision des Raumschiffs mit Sprite 7 Sprite 7: Chipfassung, Schlüssel, Chip
2080—2180	Chip genommen
2190-2690	»Durchgekommen«
2700-2820	Schlüssel genommen
2830-2930	Rüttelroutine
2940-3070	Game Over
3120-3130	Cursor Positionieren
3140—3150	Joystickabfrage aus
3160-3170	Joystickabfrage ein
3190-3360	VIC und SID initialisieren
3410—3510	Aktuelle DATA-Zeile und Prüfsummenroutine
3530-5170	Labyrinthe 1 bis 6
5180-Ende	DATAs

Unterroutinen von »6510«

petcat | Checksummer

100 rem  ******************************
110 rem  *            6510            *
120 rem  ******************************
130 rem  *     (c) copyright 1984     *
140 rem  * harald beine & arne jansen *
150 rem  *  schoettelkotter  damm 13  *
160 rem  *         4432   gronau      *
170 rem  *>tausch von c-64 programmen<*
180 rem  ******************************
190 rem
200 rem  ******************************
210 rem  *       steuerzeichen        *
220 rem  *  ------------------------  *
230 rem  *  "{clr}"  =  shift + clr/home  *
240 rem  *  "{home}"  =  clr/home          *
250 rem  *  "{down}"  =  crsr down         *
260 rem  *  "{wht}"  =  ctrl  + 2         *
270 rem  *  "{red}"  =  ctrl  + 3         *
280 rem  *  "{cyn}"  =  ctrl  + 4         *
290 rem  *  "{pur}"  =  ctrl  + 5         *
300 rem  *  "{grn}"  =  ctrl  + 6         *
310 rem  *  "{blu}"  =  ctrl  + 7         *
320 rem  *  "{yel}"  =  ctrl  + 8         *
330 rem  *  "{rvon}"  =  ctrl  + 9         *
340 rem  *  "{orng}"  =  c=    + 1         *
350 rem  *  "{lblu}"  =  c=    + 7         *
360 rem  ******************************
370 rem
380 poke56,126:clr:poke251,0
390 r=1:ls=1:sh=3:mu=1:sp=100:ms= 5:fs=1:of=0:le=1
400 ri=0:co=0:ck=1:v=53248:si=54272
410 pokesi+12,71:pokesi+13,25:pokesi+11,0
420 fori=0to17:reada:poke52736+i,a:next
430 sys52736:pokesi+24,0:pokev+21,0
440 pokev+48,0:pokev+17,155:pokev+16,0
450 pokev+32,0:pokev+33,0
460 cx= 0:cy=10:gosub3120
470 printchr$(14)chr$(8)
480 print"{clr}{grn}{rvon}                                        ";
490 print" Bitte 22 Sek. Geduld !!  Lese Daten !! ";
500 print"                                        "
510 x=248:y=249
520 rem daten einlesen
530 fori=832to832+33:reada:pokei,a:next
540 sys832
550 fort=0to62:reada:poke61440+t,a:next
560 fort=0to62:reada:poke61504+t,a:next
570 fort=0to62:reada:poke61568+t,a:next
580 fort=0to62:poke61696+t,0:next
590 fort=0to62step3:poke61696+t,60:next
600 fort=0to62:reada:poke61760+t,a:next
610 fort=0to62:reada:poke61824+t,a:next
620 fort=0to62:reada:poke61888+t,a:next
630 fort=0to62:reada:poke61952+t,a:next
640 fori=0to25:reada:b$=b$+chr$(a):next
650 foran=0to18:fori=0to7
660 reada:poke59392+i+8*an,a
670 nexti:nextan
680 poke56334,peek(56334)and254:poke1,peek(1)and251
690 fora=0to7:poke59552+a,peek(54088+a):next
700 fora=0to7:poke59560+a,peek(55112+a):next
710 fora=0to7:poke59568+a,peek(54008+a):next
720 fora=0to7:poke59544+a,peek(55032+a):next
730 poke1,peek(1)or4:poke56334,peek(56334)or1
740 fori=32768to33229:reada:pokei,a:next
750 fori=36600to36863:pokei,0:next
760 fori=0to255:reada:poke50432+i,a:reada
770 poke50688+i,a:next
780 fori=0to117:reada:poke828+i,a:next:
790 fori=0to15:reada:poke704+i,a:next
800 iff=1thenend:rem wenn fehler in data,dann ende
810 poke770,704and255:poke771,704/256
820 pokev+24,11:poke56576,peek(56576)and252:poke648,192
830 gosub3190:print"{clr}{lblu}":pokesi+24,0
840 print"lpllpllopqllllolqopqolqolopllopqopollopl";
850 print"abfeabeabfefababfeabfeabeffeabffabfeabfe";
860 print"cd  cd      cd    cd  cd    cd      cd  ";
870 print:print
880 print"gh      gh  gh  gh    gh    gh    gh    ";
890 print"ij@ij k ijghijnjij    ij@ij@ijkij@ijkijk";
900 print"lpllpllopqllllolqb    aolopllopqopollopl";
910 ifco=1then990
920 c=0:pokev+21,3:pokev+1,80:pokev+3,80:pokev+5,80
930 print"{down}{yel}":fori=1to3:readaw,ew,sw,s1,s2:gosub1560
940 next:fori=104to245
950 pokev+0,i+6:pokev+2,i+6
960 ifi>=104andi=(int(i/8))*8andc<=13thengosub3370
970 next:print:gosub3390
980 fori=1to2:readaw,ew,sw,s1,s2:gosub1560:next
990 ifco=0then1030
1000 pokev+0,172:pokev+1,80:pokev+2,172:pokev+3,80
1010 print"{down}{down}"tab(14)"{yel}"a$
1020 gosub3390
1030 cx=0: cy=16:gosub3120
1040 rem      f       gravitation       normal
1050 print"{gry2}{down} F1    : GRAVITATION    :  NORMAL  "
1060 rem    f       laser speed       normal
1070 print" F3    : LASER{$a0}SPEED    :  NORMAL  "
1080 rem    f       anzahl schiffe
1090 print" F5    : ANZAHL{$a0}SCHIFFE :  3  "
1100 rem    f       musik             ein
1110 print" F7    : MUSIK          :  EIN"
1120 rem    crsr _  fuelsaeule        schnell
1130 print" CRSR _: FUELSEULE      :  SCHNELL"
1140 rem    return  start
1150 print" RETURN: START "
1160 fort=0to30:next:a=peek(203)
1170 onagosub1430,1240,1200,1270,1340,1400
1180 ifa=1thenpokesi+24,15:goto1600
1190 goto1160
1200 cx=27:cy=20:gosub3120
1210 ifmu=1thenprint"AUS":mu=0:return:rem aus
1220 ifmu=0thenprint"EIN":mu=1:rem ein
1230 return
1240 cx=27:cy=21:gosub3120
1250 iffs=1thenprint"LANGSAM":fs=0:return:rem langsam
1260 iffs=0thenprint"SCHNELL":fs=1:return:rem schnell
1270 gr=gr+1:ifgr>4thengr=1
1280 cx=27:cy=17:gosub3120
1290 ifgr=1thenprint"STARK     ":rem stark
1300 ifgr=2thenprint"SCHWACH{$a0}{$a0} ":rem schwach
1310 ifgr=3thenprint"NORMAL    ":rem normal
1320 ifgr=4thenprint"SCHWAECHER":rem schwaecher
1330 return
1340 ls=ls+1:ifls>3thenls=1
1350 cx=27:cy=18:gosub3120
1360 ifls=1thenprint"SCHNELL ":rem schnell
1370 ifls=2thenprint"LANGSAM ":rem langsam
1380 ifls=3thenprint"NORMAL  ":rem normal
1390 return
1400 sh=sh+1:ifsh>15thensh=3
1410 cx=26:cy=19:gosub3120
1420 printshchr$(157)chr$(32):return
1430 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"
1440 fort=0to4
1450 print"                                     "
1460 next
1470 rem              joystick in port 1
1480 print"           JOYSTICK{$a0}IN{$a0}PORT{$a0}1       "
1490 fort=0to7
1500 print"                                     "
1510 next
1520 aw=173:ew=255:sw=1:s1=0:s2=2:gosub1560
1530 pokev+16,3:aw=0:ew=100:gosub1560
1540 pokev+0,0:pokev+2,0:pokev+16,0
1550 return
1560 rem schleife
1570 fork=awtoewstepsw:pokev+s1,k:pokev+s2,k
1580 fort=0to30:next:next
1590 return
1600 ifls=1thenpoke33004,40:poke33020,20
1610 ifls=2thenpoke33004,200:poke33020,100
1620 ifls=3thenpoke33004,100:poke33020,50
1630 ifgr=1thengr=30
1640 ifgr=2thengr=150
1650 ifgr=3thengr=70
1660 ifgr=4thengr=255
1670 poke33032,230:poke33033,249
1680 poke36611,  1:poke36607,8
1690 poke33156,ms :poke36860,5
1700 iffs=1thenpoke32978,10
1710 iffs=0thenpoke32978,50
1720 pokesi+2,2:pokesi+3,7
1730 ifmu=0thenpoke33152, 96:pokesi+24,15
1740 pokev+21,247
1750 poke56549,sp:poke36862,51
1760 sys32768:pokev+30,0:pokev+31,0
1770 ifri=1thenl1=5:l2=1:l3=-1
1780 ifri=0thenl1=1:l2=6:l3=1
1790 forla=l1tol2stepl3:ti$="000000"
1800 ax=peek(v+21):pokev+21,0
1810 onlagosub3520,3750,4020,4280,4550,4890
1820 pokev+21,ax
1830 pokex,xk(ri):pokey,yk(ri)
1840 poke36614,0:ifri=1thenpoke36614,mb
1850 cx=0 :cy=22:gosub3120
1860 print"{wht} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
1870 rem     ships     time        score
1880 print" {SHIFT--}SHIPS:   {SHIFT--}TIME:      {SHIFT--}SCORE:        {SHIFT--}
1890 print" {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{home}"
1900 cx=8 :cy=23:gosub3120:printsh;:gosub3150
1910 gosub3170:cx=31:gosub3120:printsc;:poke33028,gr
1920 poke251,0:pokev+30,0:pokev+31,0
1930 sys8*4096
1940 ifpeek(251)then2780
1950 poke250,ri
1960 a=peek(v+31):if(aand7)then2830
1970 a=peek(v+30)
1980 ifa=68thengosub2940
1990 ifaand128then2060
2000 if(aand7)then2830
2010 ifpeek(36862)>=250then2050
2020 if(peek(56321)and16)=0thengosub3080
2030 cx=18:cy=23:gosub3120:printmid$(ti$,3,2);
2040 print":"right$(ti$,2):goto1940
2050 poke53274,0:poke53280,0:poke33028,1:of=1:goto1940
2060 a=0:onlagoto2190,2070,2070,2070,2700,2080
2070 goto2000
2080 ri=1:pokev+14,0:pokev+15,0:poke36610,1:poke33038,40
2090 a=0:ifu=1then2000
2100 gosub3150
2110 poke648,4:forh=0to5 :fori=7to18
2120 cx=15:cy=i:gosub3120
2130 print"{rvon}{blu}                       "
2140 cx=15:cy=i:gosub3120
2150 print"{rvon}{red}                       "
2160 cx=15:cy=i:gosub3120
2170 print"{rvon}{yel}                       "
2180 next:next:u=1:poke648,192:gosub3170:goto2000
2190 ifpeek(36610)<>1then2000
2200 pokev+23,176:pokev+29,128:poke50174,200
2210 pokev+12,176:pokev+13,90
2220 poke33038,45:pokev+21,195:pokesi+24,0
2230 sys52736:poke32809,162:poke32810,128
2240 sys32768:pokev+40,2:pokev+32,0
2250 pokev+26,0:fori=0to62:poke62144+i,0:next
2260 fori=0to3000:next:gosub3150
2270 fori=0to2:cx=0:cy=22+i:gosub3120
2280 print"                                       ";
2290 printchr$(20)" ";:next
2300 sys828:pokev+45,1:pokev+46,8
2310 poke50172,203:poke50173,203:pokev+43,6
2320 pokev+44,6:pokev+8,152:pokev+9,194
2330 pokev+11,194:pokev+10,216:pokev+21,243:poke646,6
2340 fori=0to62step3:poke62144+i,255
2350 forj=0to50:nextj,i
2360 fori=0to4:cx=16:cy=18+i:gosub3120
2370 print"q       q";:next
2380 fori=194to220step2:pokev+9,i:pokev+11,i
2390 forj=0to50:nextj,i
2400 fori=0to1:cx=16:cy=23+i:gosub3120
2410 print"q       q";:next
2420 pokev+21,195:pokev+23,128:pokev+29,176
2430 poke50173,195:poke50172,195
2440 pokev+8,141:pokev+10,189:pokev+9,186
2450 pokev+11,186:pokev+21,243
2460 cx=17:cy=17:gosub3120:print"       ";
2470 fori=0to29:pokev+8,141-i:pokev+10,189+i
2480 forj=0to20:nextj,i
2490 fori=0to3000:next
2500 fori=peek(v)to176stepsgn(176-peek(v))
2510 pokev,i:pokev+2,i
2520 forj=0to20:nextj,i:fori=0to1000:next
2530 fori=peek(v+1)to246:pokev+1,i:pokev+3,i
2540 forj=0to20:nextj,i
2550 sp=sp-10:le=le+1:ifsp<=35thensp=sp+10
2560 fori=0to3000:next:pokev+21,0:printchr$(142)
2570 print"{clr}{wht}{down}{down}{down}{down}       herzlichen glueckwunsch !!
2580 print"{down}{down}{down}           sie haben ihre
2590 print"{down}         mission erfolgreich
2600 print"{down}{down}              beendet !!
2610 print"{down}{down}{down}      ab jetzt wird's schneller !
2620 print"{down}{down}               level :"le
2630 fori=0to5000:next
2640 gosub3190
2650 printchr$(14)
2660 pokev+21,243
2670 poke33038,40:poke36610,0
2680 ri=0:goto1750
2690 goto2000
2700 gosub3150:pokev+14,0:pokev+15,0:pokev+12,255
2710 forz=9to13:cx=31:cy=z:gosub3120:print" "
2720 pokesi+18,33:pokesi+18,32
2730 fori=0to300:next:next
2740 cx=36:cy=6:gosub3120:print" "
2750 forz=7to16:cx=35:cy=z:gosub3120:print"  ":pokesi+18,33
2760 pokesi+18,32:fori=0to300:next:next
2770 cx=36:cy=z:gosub3120:print"  ":gosub3170:goto2010
2780 ifri=1andla=1then1940
2790 sc=sc+((240-val(ti$))*10)
2800 cx=30:cy=23:gosub3120:print"SCORE{$a0}: "sc;:poke251,0
2810 rem score
2820 next:goto1770
2830 rem ruettel routine
2840 kr=peek(v+17):gosub3150:pokesi+11,129:pokesi+8,50
2850 pokesi+12,16* 1+5
2860 pokesi+13,16* 1+1
2870 fori=1to10:pokev+17,23:pokesi+11,129:fort=0to50:next
2880 pokev+17,16:pokesi+11,128:fort=0to50:next:next
2890 pokev+17,kr:pokesi+11,0
2900 poke36862,51
2910 pokesi+12,71:pokesi+13,25:sh=sh-1:ti$="000000"
2920 ifsh=0thensh=3:goto3010
2930 goto1830
2940 gosub3150:y1=peek(y):pokesi+5,255:fori=0to500:next
2950 ifof=1thenof=0:poke53274,241:poke33028,gr:poke36862,250
2960 fori=peek(36862)to51step-1:poke36862,i:pokesi+ 8,i-51
2970 pokesi+11,17:pokesi+11,18:next
2980 pokey,y1-1:gosub3180:forxy=0to100
2990 next:ifpeek(v+30)theny1=y1-1:goto2980
3000 gosub3170:pokesi+11,0:a=0:pokesi+5,77:return
3010 sys52736:pokev+21,0:poke53280,0:pokesi+4,0
3020 printchr$(147):cx=15:cy=12:gosub3130:print"GAME OVER"
3030 ifsc>hsthenhs=sc
3040 print"{down}{down}{down}         SCORE : "sc:rem score
3050 print"{down}    HIGH SCORE : "hs:rem high -
3060 fori=0to4000:next:ri=0:sc=0
3070 pokev+21,3:co=1:sp=100:goto830
3080 if((peek(v+21))and4)=4then3100
3090 pokev+21,peek(v+21)or4:goto3110
3100 pokev+21,peek(v+21)and251
3110 return
3120 rem cursor positionieren
3130 poke211,cx:poke214,cy:sys58640:return
3140 rem raumschiff festhalten
3150 sys33217:pokev+21,peek(v+21)and207:return
3160 rem raumschiff loslassen
3170 sys33204:poke36608,50:return
3180 pokev+1,y1:pokev+3,y1:pokev+5,y1:pokev+7,y1:return
3190 rem sprites initialisieren
3200 pokev+31, 0:poke33048,4
3210 pokev+39, 7:pokev+40 ,2
3220 pokev+41, 1:pokev+42 ,0
3230 pokev+43, 5:pokev+44 ,5
3240 pokev+32, 0:pokev+33 ,0
3250 pokev+23,48:pokev+27 ,240
3260 pokev+29,64:poke33052,84
3270 fort=0to62:poke61632+t,0:next
3280 fort=0to23:poke61632+t,255:next
3290 poke50168,192:poke50169,193
3300 poke50170,194:poke50171,195
3310 poke50172,196:poke50173,196
3320 poke50174,197:poke50175,198:poke36610,0
3330 pokesi+ 2,  2:pokesi+ 3,  7:u=0
3340 pokesi+ 5, 77:pokesi+19,0:pokesi+20,244
3350 pokesi+15, 30:poke36614,0:pokev+16,0
3360 pokesi+6,24:pokesi+24,15:return
3370 readze:printtab(i/8)chr$(ze);:c=c+1:a$=a$+chr$(ze)
3380 return
3390 print"{orng}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} (C) 1984  BY "
3400 print"{down}{rght}{rght}{rght}{rght}{rght}  "b$:return
3520 rem ** labyrinthe **
3530 print"{clr}{blu}{down}{down}                  uqqqs
3540 print"                uqqt vqqs
3550 print"               uqt     vqs
3560 print"              uqt       vqs
3570 print"              qt         vq
3580 print"             uq           qs
3590 print"             qt           vq
3600 print"            uq             qs
3610 print"qqqqqqqqqqqqqt             vqqqqqqqqqqqq";
3620 print"ababfapldfab{wht}q{blu}               {wht}q{blu}flolplfeabf";
3630 print"cdcd  ab  cd                  fplob  cd ";
3640 print"      cd                       abf      ";
3650 print"                                        ";
3660 print"gh             gh       gh          gh  ";
3670 print"ij@kij  kij@{wht}q{blu} @ij       ijkk{wht}q{blu}      @ij@ ";
3680 print"qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq";
3690 poke36614,0:xk(0)=174:yk(0)=130
3700 pokev+8,248:pokev+9,139:pokev+12,0
3710 poke v+13,0:pokev+10,120:pokev+11,139
3720 pokev+23,176:pokev+29,192
3730 poke 50175,198:pokev+14,164:pokev+15,73
3740 xk(1)=54:yk(1)=151:mb=15:pokev+46,8:return
3750 print"{clr}{red}ollqlpolqloqpllllllloqllpllolqllplloqlll";
3760 print"lollplloqlloqollllqllolpllllolqplllqolll";
3770 print"olopllqlollplllollqllpollqllqoplllllpoll";
3780 print"loqllqlllopqlllplqllpqlollqlllollllpllol";
3790 print"llollpollpolllpolqlpllqpoqllqlpollpolllo";
3800 print"lllopllopllolpllolpollpllolqlplpolllollp";
3810 print"lllqllqlloqllqlpllqllplqlpolllpllollloll";
3820 print"efabe{wht}q{red}abpllpllpolqlabef{wht}q{red}abfabfeabfeabfea";
3830 print"  cd  cdfabollolobfcd   cd     cd  cd  c";
3840 print"         cdablplo        {$a0}
3850 print"           cdfole                     ";
3860 print"  ijk           ab     ij{wht}q{red}j@ij     ij@gh@ ";
3870 print"lqoll{wht}q{red} @gh{$a0}   cd    kolpolll     oloplql";
3880 print"lllolqllij@        ilplllopl     lllolll";
3890 print"lllpolqplll@      illollllol{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}lllpoll";
3900 print"llplqopqlllpl@ gh@pollolllpllllllllpllol";
3910 print"lpollqolllplll@ijlqlolpoqpllllolplpolllo";
3920 print"pllolllolqollqpllqlqpolplollllppllllolll";
3930 print"olqlolllollolplqllqplqoollolllpollllpoll";
3940 print"lollpolllolpoqolllpollpolllllpllollpllol";
3950 print"llopllolqlolloqolllllplllllllllllollllll";
3960 print"llpolllolllolllpolllpollllllllllllllllll"
3970 poke36614,0:xk(0)=26:yk(0)=116:xk(1)=59
3980 yk(1)=117:mb=15:pokev+46,0
3990 pokev+8,64:pokev+9,106:pokev+10,208
4000 pokev+11,106:pokev+14,0:pokev+15,0
4010 pokev+12,245:pokev+13,150:return
4020 print"{clr}{pur}abefabapolploqlplollpoplllplqlloplqlqopl";
4030 print"cd  cd oqpolpoqollopllollpollqlloqlqlqol";
4040 print"       folplpab {wht}q{pur}flabflolllolqlababababo";
4050 print"       gppolb     fcd fabnlpollcdcd  c l";
4060 print"gh     ioopom            npllom         ";
4070 print"ij@    appob             fllom          ";
4080 print"oqlj    flpj       gh    fllom          ";
4090 print"lopb    iplb    {wht}q{pur}ijij     lllm          ";
4100 print"lpoj    aolj    oqplpm    flm           ";
4110 print"plqlj    pob    lplpol     lm           ";
4120 print"abfef    old   nqlpllm     nm
4130 print"cd       ab    nlpobfe    nm            ";
4140 print"{$a0}        cd   nqllf       lm            ";
4150 print"             golbf       nlmgh          ";
4160 print"     gh      @plm     @ij@omij         l";
4170 print"     ij@gh @ipom    iqlolllolqlqqm    nq";
4180 print"qlpqolllij@oplpm    {wht}q{pur}bfef ab e ab     ab";
4190 print"lpllplqplqplplpm               cd     cd";
4200 print"polqlopqlpqqolqm                        ";
4210 print"lllqlloqplqlpollgh      gh  gh     gh gh";
4220 print"llllqllolllpllolij@ {wht}q{pur}  @ij@ ij @ij ij@ij";
4230 print"ollllllpolpllllollllllllllllllllllllllll";
4240 poke36614,0:xk(0)=30:yk(0)=65:pokev+12,18
4250 pokev+13,160:pokev+14,0:pokev+8,152
4260 pokev+10,184:pokev+11,175:pokev+15,0
4270 xk(1)=57:yk(1)=102:mb=15:pokev+9,70:return
4280 print"{clr}{lblu}abfbfeaolbabolqopqoqllqpllqqlplqobabf ef";
4290 print"cd     ab cdaolplqlolqlolqllpbab  cd
4300 print"              fqllabolqpllqpl
4310 print"gh  gh         f {wht}q{lblu}cdaopolqplb         gh";
4320 print"ij@ ij@   @          plqopff     @@ @ ij";
4330 print"qolqpllqlpll         flqqo@     nqpqoqlp";
4340 print"lplbabcd   a{wht}q{lblu}         abflo@gh   pqqlopq";
4350 print"plb cd                   faoij   faoqlol";
4360 print"olj  {$a0}                    nqlb{$a0}    qoqpo";
4370 print"lolj    @        {wht}q{lblu} ij     nlf    @ilppql";
4380 print"qpol   npjgh{$a0}   nollpj    lf    iloppolq";
4390 print"pfab    flpj     noplb   @l@    alppoqol";
4400 print"b cd     nlq{wht}q{lblu}    npab    pql@    faqloql";
4410 print"m        @olj    pfcd   nolllm     alpqq";
4420 print"j       @olob   nlj    nllolf    ghipoll";
4430 print"lj     iolol    lllj    flpo     ijplqol";
4440 print"qlqpolqlpbab    llll    @plf    @llqllql";
4450 print"abfaqobff       oplf   @plf    nllqqlqqo";
4460 print"cd  ab         npab    abf     iolqllqlp";
4470 print"           gh@@pbcd          gilpqllqqlo";
4480 print"gh        @ijopb             iopllqqqlqq";
4490 print"ij@   {$a0} nllolloj  gh  @   @ijqlopolqqlll"
4500 poke36614,0:xk(0)=34:yk(0)=196:pokev+12,35
4510 pokev+13,160:pokev+14,0:pokev+8,120
4520 pokev+9,106:pokev+10,160:pokev+11,80
4530 pokev+15,0:pokev+46,0
4540 pokev+46,0:xk(1)=59:yk(1)=56:mb=15:return
4550 print"{clr}{orng}jcd  alpqpoqllplqlbabaoqj
4560 print"bgh  iqoplqfefab   cd foqj             i";
4570 print"jij@lqploqb   cd       e{wht}q{orng}pj           ib";
4580 print"qlolqloab                alj         ib ";
4590 print"llqolpfcd                 alj{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}ib  ";
4600 print"plqplb      ij     ij@     al{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}b   ";
4610 print"oqpolj      alqbob{wht}q{orng}faoj     apj   ib{CBM-W}   ";
4620 print"lplqoq@gh    aojcd   eoj     qlj ib{CBM-Q}{CBM-W}   ";
4630 print"polqplpij     pb      eo{wht}q{orng}    abqpb {CBM-Q}{CBM-W}   ";
4640 print"lloloplqlj    aj       poj     q   {CBM-Q}{CBM-W}   ";
4650 print"qlpoqoioab    nb       flo     q   {CBM-Q}{CBM-W}   ";
4660 print"qpoqoqobcd    lj  {wht}q{orng}    @bf     q   {CBM-Q}{CBM-W}   ";
4670 print"pllqplb      aopqlb    lj      q   {CBM-Q}{CBM-W}   ";
4680 print"oqllolj gh      f      al    ghq   {CBM-Q}{CBM-W}   ";
4690 print"abfefaqjij           ijil    ijlo  {CBM-Q}{CBM-W}   ";
4700 print"cd    lpll@@        @loof    olopj {CBM-Q}{CBM-W}   ";
4710 print"      abpqlojij@   ipqbf    @qopolj{CBM-Q}{CBM-W}   ";
4720 print"      cd e  allplqlbab     @olplqolj{CBM-W}   ";
4730 print"gh                  cd     appoqlpqlj   ";
4740 print"ij@                        iolqqlolqlj  ";
4750 print"lpqj@ijgh                ghaloqpoqolqpj ";
4760 print"pllqlolij@{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}qijiqlooqlpoplqj"
4770 poke36614,0:xk(0)=43:yk(0)=180:pokev+12,0
4780 pokev+13,0:pokev+14,145:pokev+8,216
4790 pokev+9,74:pokev+10,168:pokev+11,102
4800 poke50175,199:pokev+23,48:pokev+29,64
4810 pokev+15,123:xk(1)=54:yk(1)=136:mb=15
4820 onrigoto4840
4830 pokev+46,1:return
4840 forz=9to13:cx=31:cy=z:gosub3120:print" ":next
4850 cx=36:cy=6 :gosub3120:print" "
4860 cx=36:cy=17:gosub3120:print" "
4870 forz=7to16:cx=35:cy=z:gosub3120:print"  "
4880 next:pokev+46,0:return
4890 print"{clr}{yel}opolqllpllloqplopllqlrrrrrrrrllqlpllqlop";
4900 print"poqolqpolqlrrrrrrrrrrr{wht}q{yel}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{wht}q{yel}rrrrrrrrrrrr";
4910 print"lqlbf faollb{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}      {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}a";
4920 print"olb     foq{CBM-J}                           {CBM-L}";
4930 print"ab       ao{CBM-J}                           {CBM-L}";
4940 print"cd        p{CBM-J}                           {CBM-L}";
4950 print"          r{CBM-J}     rrrrr{wht}q    q{yel}rrrrr      {CBM-L}";
4960 print"     r    r{CBM-J}   r    ij      ij    r    {CBM-L}";
4970 print"gh   r    r{CBM-J}   r  rrrrrr  rrrrrr  r    {CBM-L}";
4980 print"ij@ ir    r{CBM-J}   r  rpqqor  rpqqor  r    {CBM-L}";
4990 print"polqlr    r{CBM-J}   rjiroqqprjiroqqprjir    {CBM-L}";
5000 print"olollr    r{CBM-J}   roprqopqroprqopqropr    {CBM-L}";
5010 print"pbcdar    r{CBM-J}   rporqpoqrporqpoqrpor    {CBM-L}";
5020 print"b    r    r{CBM-J}   rbarpqqorbarpqqorbar    {CBM-L}";
5030 print"{CBM-J}         r{CBM-J}   r {$a0}roqqpr  roqqpr  r    {CBM-L}";
5040 print"{CBM-J}         r{CBM-J}   r{$a0} rrrrrr  rrrrrr  r    {CBM-L}";
5050 print"{CBM-J}         r{CBM-J}   r    ab      ab    r    {CBM-L}";
5060 print"{CBM-J}   rrrrrrr{CBM-J}     rrrrrrr  rrrrrrr      {CBM-L}";
5070 print"{CBM-J}                                      {CBM-L}";
5080 print"{CBM-J}                                      {CBM-L}";
5090 print"j                   {$a0}{$a0}                 i";
5100 print"lqopolqopqolqoqlplllollqopolllqoqplllqoq";
5110 print"{up}{up}{up}{up}"
5120 poke36614,0:xk(0)=25:yk(0)=96:xk(1)=25
5130 yk(1)=96:pokev+12,0:pokev+13,0
5140 pokev+8,240:pokev+9,60:pokev+10,201
5150 pokev+11,60:poke50175,200:pokev+15,59
5160 pokev+23,48+128:pokev+29,192:mb=0:poke33038,46
5170 poke36610,1:pokev+14,200:pokev+21,243:return
5180 rem datas    *******************************
5190 data120,169, 49,141, 20,  3,169,234,141, 21
5200 data  3,169,  0,141, 26,208, 88, 96,120,169
5210 data 51,133,  1,169,  0,133, 95,133, 90,133
5220 data 88,169,208,133, 96,169,240,133, 89,169
5230 data224,133, 91, 32,191,163,169, 55,133,  1
5240 data 88, 96
5250 rem daten fuer sprites *********************
5260 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
5270 data 64,126,  2, 32,195,  4, 17,129,136, 11
5280 data  0,208,  6,  0, 96, 62,  0,124,122,  0
5290 data 94,119,129,238,120,255, 30, 30, 60,120
5300 data  7,129,224,  0,255
5310 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
5320 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
5330 data  0,  0, 60,  0,  0,126,  0,  0,255,  0
5340 data  1,255,128,  1,255,128,  1,255,128,  0
5350 data126,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 13 x 0
5360 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
5370 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
5380 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
5390 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
5400 data 12,  0, 48, 24,  0, 24, 48,  0, 12,120
5410 data  0, 30,252,  0, 63,192,  0,  3,192,  0
5420 data  3,192,  0,  3,192,  0,  3,192,  0,  3
5430 data192,  0,  3,192,  0,  3,192,  0,  3,192
5440 data  0,  3,192,  0,  3,255,255,255,225,108
5450 data 55,225,109,247,239,108,247,227,108,247
5460 data206,  9,225,206,  8, 33,255,255,255,240
5470 data  0, 15,240,  0, 15,240,  0, 15,  2,  0
5480 data 64,130,  0, 65,130,  0, 65,194,  0, 67
5490 data 66,  0, 66, 98,  0, 70, 34,  0, 68, 50
5500 data231, 76, 18,189, 72, 27,129,216,136,129
5510 data 17,207,129,243, 96,129,  6, 63,129,252
5520 data  0,129,  0,255,129,255,  0,129,  0,  3
5530 data129,192, 14,129,112, 56,129, 28,224,255
5540 data  7,  0,  0,248,  0,  1,252,  0,  3,  6
5550 data  0,  6,  3,  0,  6,  3,  0,  6,  3,  0
5560 data  6,  3,  0,  6,  3,  0,  3,  6,  0,  3
5570 data252,  0,  7,248,  0, 15,  0,  3,158,  0
5580 data  3,252,  0,  9,248,  0,125,240,  0, 63
5590 data224,  0, 63,192,  0, 31,128,  0, 15,  0
5600 data  0, 14,  0,  0,  0,  0,  0,  3,195,192
5610 data 15,126,240, 15,255,240,  3,  0,192,  3
5620 data126,192, 15, 66,240, 15,126,240,  3,  0
5630 data192,  3,126,192, 15,  0,240, 15, 94,240
5640 data  3, 82,192,  3,114,192, 15,  0,240, 15
5650 data 78,240,  3, 74,192,  3,126,192, 15,  0
5660 data240, 15,255,240,  3,255,192
5670 data200,193,210,193,204,196, 32,194,197,201
5680 data206,197, 32, 38, 32,193,210,206,197, 32
5690 data202,193,206,211,197,206
5700 rem daten fuer die zeichen *****************
5710 data  8,  8, 28, 28, 62,126,127,255,127, 63
5720 data 31, 15,  3,  7,  7,  3,255,254,252,240
5730 data248,240,240,224,  0,  1,  1,  0,  0,  0
5740 data  0,  0,224,128,192,128,128,  0,  0,  0
5750 data252,110, 60, 24, 16,  0,  0,  0,252,126
5760 data124, 56, 56, 16, 16, 16,  0,  0,  0,  1
5770 data  1,  3,  3,  7,  0,  0,  0,  0,  0,128
5780 data128,192,  4, 15, 15, 31, 31, 63, 63,255
5790 data192,224,224,240,240,248,252,255,  8,  8
5800 data  8, 28, 28, 62,126,255, 46,127,223,126
5810 data239,251,191,237,192,224,112,248,252, 76
5820 data 76,196,  3,  6, 14, 31, 63, 50, 51, 34
5830 data 63, 31,143,207,199,225,240,252,252,248
5840 data225,195,207,143,143, 63,255,255,255,255
5850 data255,255,255,255,  0,126,126,102,102,126,126,0
5860 rem ** maschinenroutine **
5870 data120,169, 32,141, 20,  3,169,128,141
5880 data 21,  3,169,129,141, 26,208,173,254
5890 data143,141, 18,208,173, 17,208, 41,127
5900 data141, 17,208, 88, 96,173, 25,208,141
5910 data 25,208, 48, 10, 32, 95,128,173, 13
5920 data220, 88, 76, 49,234,173,253,143,201
5930 data  1,240,19,169,  0,141, 32,208,173
5940 data254,143,141, 18,208,169,  1,141,253
5950 data143, 76,188,254,173,252,143,141, 32
5960 data208,169,255,141, 18,208,169,  2,141
5970 data253,143, 76,188,254,173,  1,220, 41
5980 data  1,208,101,173,  1,220, 41,  2,208                       
5990 data 91,173,  1,220, 41,  4,208, 78,173
6000 data  1,220, 41,  8,208, 74,165,248,141
6010 data  0,208,141,  2,208,141,  4,208,141
6020 data  6,208,165,249,141,  1,208,141,  3
6030 data208,141,  5,208,141,  7,208,173,  6
6040 data143,141, 16,208,206,  0,143,240, 55
6050 data206,  1,143,240, 92,206,  5,143,240
6060 data 34,173,  2,143,208, 92,173, 30,208
6070 data234,234, 32, 21,129,234,234,234,234
6080 data234, 32,125,129, 96, 76, 82,129, 76
6090 data 89,129, 76, 77,129, 76, 72,129,238
6100 data254,143,169,100,141,  5,143, 76,172
6110 data128,173,  3,143, 73,  1,141,  3,143
6120 data208, 16,173, 21,208, 41,207,141, 21
6130 data208,169, 90,141,  0,143, 76,162,128
6140 data173, 21,208,  9, 48,141,21,208,169
6150 data 45,141,  0,143, 76,162,128,169,150
6160 data141,  1,143,234,234, 76,167,128,238
6170 data 40,208, 76,177,128, 41,  8,165,248
6180 data201, 24,240, 20,201, 64,208, 34,173
6190 data 16,208, 41,  3,240, 27,198,248,165
6200 data250,208, 21, 76, 60,129,173, 16,208
6210 data 41,  3,208, 11,230,248,165,250,240
6220 data  5,169,  1,133,251,234, 96,169,  3
6230 data141,255,127, 96,230,249, 76,102,128
6240 data198,249, 76,109,128,230,248,240, 14
6250 data 76,116,128,198,248,165,248,201,255
6260 data240, 14, 76,123,128,173,  6,143,  9
6270 data 15,141,  6,143, 76,116,128,173,  6
6280 data143, 41,240,141,  6,143, 76,123,128
6290 data234,234,234,206,255,142,240,  1, 96
6300 data169,  7,141,255,142,238,254,142,174
6310 data254,142,189,  0,197,141,  0,212,189
6320 data  0,198, 41,127,141,  1,212,189,  0
6330 data198, 41,128,208,  6,169, 64,141,  4
6340 data212, 96,169, 64,141,  4,212,169, 65
6350 data141,  4,212, 96,120,169,128,141, 42
6360 data128,169, 95,141, 41,128, 88, 96,120
6370 data169,129,141, 42,128,169,125,141, 41
6380 data128, 88, 96
6390 rem    t  a  k  t    1 ************
6400 data 27,132, 27,  4, 55,136, 39,134
6410 data 27,132, 27,  4, 55,136, 39,134
6420 data 27,132, 27,  4, 55,136, 39,134
6430 data 27,132,226,132, 39,134, 55,136
6440 rem    t  a  k  t    2 ************
6450 data 27,132, 27,  4, 55,136, 39,134
6460 data 27,132, 27,  4, 55,136, 39,134
6470 data 27,132, 27,  4, 55,136, 39,134
6480 data 27,132,226,132, 39,134, 55,136
6490 rem    t  a  k  t    3 ************
6500 data 27,132, 27,  4, 55,136, 39,134
6510 data 27,132,226,132, 39,134, 55,136
6520 data169,131,169,  3, 81,135,123,133
6530 data169,131,156,132,123,133, 81,135
6540 rem    t  a  k  t    4 ************
6550 data 66,131, 66,  3,133,134,226,132
6560 data 66,131, 81,135,226,132,133,134
6570 data 27,132, 27,  4, 55,136, 39,134
6580 data 27,132,226,132, 39,134, 55,136
6590 rem    t  a  k  t    5 ************
6600 data 27,132, 27,  4, 55,136, 39,134
6610 data 27,132, 27,  4, 55,136, 39,134
6620 data 27,132, 27,  4, 55,136, 39,134
6630 data 27,132,226,132, 39,134, 55,136
6640 rem    t  a  k  t    6 ************
6650 data 27,132, 27,  4, 55,136, 39,134
6660 data 27,132, 27,  4, 55,136, 39,134
6670 data 27,132, 27,  4, 55,136, 39,134
6680 data 27,132,226,132, 39,134, 55,136
6690 rem    t  a  k  t    7 ************
6700 data 27,132, 27,  4, 55,136, 39,134
6710 data 27,132,226,132, 39,134, 55,136
6720 data169,131,169,  3, 81,135,123,133
6730 data169,131,156,132,123,133, 81,135
6740 rem    t  a  k  t    8 ************
6750 data 66,131, 66,  3,133,134,226,132
6760 data 66,131, 81,135,226,132,133,134
6770 data 66,131, 66,  3,133,134,226,132
6780 data 66,131, 81,135,226,132,133,134
6790 rem    t  a  k  t    9 ************
6800 data226,132,226,  4,196,137, 81,135
6810 data226,132,226,  4,196,137, 81,135
6820 data226,132,226,  4,196,137, 81,135
6830 data226,132, 39,134, 81,135,196,137
6840 rem    t  a  k  t   10 ************
6850 data226,132,226,  4,196,137, 81,135
6860 data226,132,226,  4,196,137, 81,135
6870 data226,132,226,  4,196,137, 81,135
6880 data226,132, 39,134, 81,135,196,137
6890 rem    t  a  k  t   11 ************
6900 data 39,134, 39,  6, 78,140, 56,137
6910 data039,134,081,135,056,137,078,140
6920 data123,133,123,  5,247,138, 55,136
6930 data123,133,232,134,055,136,247,138
6940 rem    t  a  k  t   12 ************
6950 data226,132,226,  4,196,137, 81,135
6960 data226,132, 39,134, 81,135,196,137
6970 data226,132,226,  4,196,137, 81,135
6980 data226,132, 39,134, 81,135,196,137
6990 rem    t  a  k  t   13 ************
7000 data226,132,226,  4,196,137, 81,135
7010 data226,132,226,  4,196,137, 81,135
7020 data226,132,226,  4,196,137, 81,135
7030 data226,132, 39,134, 81,135,196,137
7040 rem    t  a  k  t   14 ************
7050 data226,132,226,  4,196,137, 81,135
7060 data226,132,226,  4,196,137, 81,135
7070 data226,132,226,  4,196,137, 81,135
7080 data226,132, 39,134, 81,135,196,137
7090 rem    t  a  k  t   15 ************
7100 data 39,134, 39,  6, 78,140, 56,137
7110 data 39,134, 81,135, 56,137, 78,140
7120 data123,133,123,  5,247,138, 55,136
7130 data123,133,232,134, 55,136,247,138
7140 rem    t  a  k  t   16 ************
7150 data226,132,226,  4,196,137, 81,135
7160 data226,132, 39,134, 81,135,196,137
7170 data 27,132, 27,  4, 55,136, 39,134
7180 data 27,132,226,132, 39,134, 55,136
7190 :
7200 data120,169, 50,141,  8,212,141,  1,212,169
7210 data  3,141,  3,212,169, 17,141, 12,212,141
7220 data  5,212,169, 32,141, 11,212,169, 33,141
7230 data 11,212,169,242,141,  6,212,169,114,141
7240 data 13,212,169, 15,141, 24,212,169, 16,141
7250 data  4,212,169,129,141,  4,212,173, 32,208
7260 data 72,173, 33,208, 72,162,  2,134,  2,162
7270 data128,160,255,238, 32,208,238, 33,208,173
7280 data 24,212, 73, 15,141, 24,212,136,208,239
7290 data202,208,234,198,  2,208,228, 88,169,  0
7300 data141,  4,212,141, 11,212,141, 24,212,104
7310 data141, 33,208,104,141, 32,208, 96
7320 data169,  4,141,136,  2,169,131,141,  2,  3
7330 data169,164,141,  3,  3,  0,  0,172,  1,  0
7340 data  2, 80,130,  1,  1,  3,172,110, -1,  0
7350 data  2, 42, 42,42, 32,28, 54, 53, 49, 48
7360 data 32,158, 42, 42, 42,254,172, -1,  0,  2
7370 data130, 80, -1,  1,  3,173,255,  1,  0,  2
7380 data  0, 70

 100 REM  ****************************** 
 110 REM  *            6510            * 
 120 REM  ****************************** 
 130 REM  *     (C) COPYRIGHT 1984     * 
 140 REM  * HARALD BEINE & ARNE JANSEN * 
 150 REM  *  SCHOETTELKOTTER  DAMM 13  * 
 160 REM  *         4432   GRONAU      * 
 170 REM  *>TAUSCH VON C-64 PROGRAMMEN<* 
 180 REM  ****************************** 
 190 REM 
 200 REM  ****************************** 
 210 REM  *       STEUERZEICHEN        * 
 220 REM  *  ------------------------  * 
 230 REM  *  "{CLR}"  =  SHIFT + CLR/HOME  * 
 240 REM  *  "{HOME}"  =  CLR/HOME          * 
 250 REM  *  "{DOWN}"  =  CRSR DOWN         * 
 260 REM  *  "{WHITE}"  =  CTRL  + 2         * 
 270 REM  *  "{RED}"  =  CTRL  + 3         * 
 280 REM  *  "{CYAN}"  =  CTRL  + 4         * 
 290 REM  *  "{PURPLE}"  =  CTRL  + 5         * 
 300 REM  *  "{GREEN}"  =  CTRL  + 6         * 
 310 REM  *  "{BLUE}"  =  CTRL  + 7         * 
 320 REM  *  "{YELLOW}"  =  CTRL  + 8         * 
 330 REM  *  "{RVSON}"  =  CTRL  + 9         * 
 340 REM  *  "{ORANGE}"  =  C=    + 1         * 
 350 REM  *  "{LIG.BLUE}"  =  C=    + 7         * 
 360 REM  ****************************** 
 370 REM 
 380 POKE 56,126:CLR :POKE 251,0 
 390 R=1:LS=1:SH=3:MU=1:SP=100:MS= 5:FS=1:OF=0:LE=1 
 400 RI=0:CO=0:CK=1:V=53248:SI=54272 
 410 POKE SI+12,71:POKE SI+13,25:POKE SI+11,0 
 420 FOR I=0 TO17:READ A:POKE 52736+I,A:NEXT 
 430 SYS 52736:POKE SI+24,0:POKE V+21,0 
 440 POKE V+48,0:POKE V+17,155:POKE V+16,0 
 450 POKE V+32,0:POKE V+33,0 
 460 CX= 0:CY=10:GOSUB 3120 
 470 PRINTCHR$ (14)CHR$ (8) 
 480 PRINT"{CLR,GREEN,RVSON,40SPACE}"; 
 490 PRINT" BITTE 22 SEK. GEDULD !!{2SPACE}LESE DATEN !! "; 
 500 PRINT"{40SPACE}" 
 510 X=248:Y=249 
 520 REM DATEN EINLESEN 
 530 FOR I=832 TO832+33:READ A:POKE I,A:NEXT 
 540 SYS 832 
 550 FOR T=0 TO62:READ A:POKE 61440+T,A:NEXT 
 560 FOR T=0 TO62:READ A:POKE 61504+T,A:NEXT 
 570 FOR T=0 TO62:READ A:POKE 61568+T,A:NEXT 
 580 FOR T=0 TO62:POKE 61696+T,0:NEXT 
 590 FOR T=0 TO62STEP 3:POKE 61696+T,60:NEXT 
 600 FOR T=0 TO62:READ A:POKE 61760+T,A:NEXT 
 610 FOR T=0 TO62:READ A:POKE 61824+T,A:NEXT 
 620 FOR T=0 TO62:READ A:POKE 61888+T,A:NEXT 
 630 FOR T=0 TO62:READ A:POKE 61952+T,A:NEXT 
 640 FOR I=0 TO25:READ A:B$=B$+CHR$ (A):NEXT 
 650 FOR AN=0 TO18:FOR I=0 TO7 
 660 READ A:POKE 59392+I+8*AN,A 
 670 NEXT I:NEXT AN 
 680 POKE 56334,PEEK (56334)AND 254:POKE 1,PEEK (1)AND 251 
 690 FOR A=0 TO7:POKE 59552+A,PEEK (54088+A):NEXT 
 700 FOR A=0 TO7:POKE 59560+A,PEEK (55112+A):NEXT 
 710 FOR A=0 TO7:POKE 59568+A,PEEK (54008+A):NEXT 
 720 FOR A=0 TO7:POKE 59544+A,PEEK (55032+A):NEXT 
 730 POKE 1,PEEK (1)OR 4:POKE 56334,PEEK (56334)OR 1 
 740 FOR I=32768 TO33229:READ A:POKE I,A:NEXT 
 750 FOR I=36600 TO36863:POKE I,0:NEXT 
 760 FOR I=0 TO255:READ A:POKE 50432+I,A:READ A 
 770 POKE 50688+I,A:NEXT 
 780 FOR I=0 TO117:READ A:POKE 828+I,A:NEXT : 
 790 FOR I=0 TO15:READ A:POKE 704+I,A:NEXT 
 800 IF F=1 THENEND :REM WENN FEHLER IN DATA,DANN ENDE 
 810 POKE 770,704AND 255:POKE 771,704/256 
 820 POKE V+24,11:POKE 56576,PEEK (56576)AND 252:POKE 648,192 
 830 GOSUB 3190:PRINT"{CLR,LIG.BLUE}":POKE SI+24,0 
 840 PRINT"LPLLPLLOPQLLLLOLQOPQOLQOLOPLLOPQOPOLLOPL"; 
 850 PRINT"ABFEABEABFEFABABFEABFEABEFFEABFFABFEABFE"; 
 860 PRINT"CD{2SPACE}CD{6SPACE}CD{4SPACE}CD{2SPACE}CD{4SPACE}CD{6SPACE}CD{2SPACE}"; 
 870 PRINT:PRINT 
 880 PRINT"GH{6SPACE}GH{2SPACE}GH{2SPACE}GH{4SPACE}GH{4SPACE}GH{4SPACE}GH{4SPACE}"; 
 890 PRINT"IJ@IJ K IJGHIJNJIJ{4SPACE}IJ@IJ@IJKIJ@IJKIJK"; 
 900 PRINT"LPLLPLLOPQLLLLOLQB{4SPACE}AOLOPLLOPQOPOLLOPL"; 
 910 IF CO=1 THEN990 
 920 C=0:POKE V+21,3:POKE V+1,80:POKE V+3,80:POKE V+5,80 
 930 PRINT"{DOWN,YELLOW}":FOR I=1 TO3:READ AW,EW,SW,S1,S2:GOSUB 1560 
 940 NEXT :FOR I=104 TO245 
 950 POKE V+0,I+6:POKE V+2,I+6 
 960 IF I>=104AND I=(INT (I/8))*8AND C<=13 THENGOSUB 3370 
 970 NEXT :PRINT:GOSUB 3390 
 980 FOR I=1 TO2:READ AW,EW,SW,S1,S2:GOSUB 1560:NEXT 
 990 IF CO=0 THEN1030 
 1000 POKE V+0,172:POKE V+1,80:POKE V+2,172:POKE V+3,80 
 1010 PRINT"{2DOWN}"TAB( 14)"{YELLOW}"A$ 
 1020 GOSUB 3390 
 1030 CX=0: CY=16:GOSUB 3120 
 1040 REM      F       GRAVITATION       NORMAL 
 1050 PRINT"{GREY2,DOWN,SPACE}F1{4SPACE}: GRAVITATION{4SPACE}:{2SPACE}NORMAL{2SPACE}" 
 1060 REM    F       LASER SPEED       NORMAL 
 1070 PRINT" F3{4SPACE}: LASER{SHIFT-SPACE}SPEED{SPACE,3SPACE}:{2SPACE}NORMAL{2SPACE}" 
 1080 REM    F       ANZAHL SCHIFFE 
 1090 PRINT" F5{4SPACE}: ANZAHL{SHIFT-SPACE}SCHIFFE :{2SPACE}3{SPACE,SPACE}" 
 1100 REM    F       MUSIK             EIN 
 1110 PRINT" F7{4SPACE}: MUSIK{10SPACE}:{2SPACE}EIN" 
 1120 REM    CRSR ←  FUELSAEULE        SCHNELL 
 1130 PRINT" CRSR ←: FUELSEULE{6SPACE}:{2SPACE}SCHNELL" 
 1140 REM    RETURN  START 
 1150 PRINT" RETURN: START " 
 1160 FOR T=0 TO30:NEXT :A=PEEK (203) 
 1170 ON AGOSUB 1430,1240,1200,1270,1340,1400 
 1180 IF A=1 THENPOKE SI+24,15:GOTO 1600 
 1190 GOTO 1160 
 1200 CX=27:CY=20:GOSUB 3120 
 1210 IF MU=1 THENPRINT"AUS":MU=0:RETURN :REM AUS 
 1220 IF MU=0 THENPRINT"EIN":MU=1:REM EIN 
 1230 RETURN 
 1240 CX=27:CY=21:GOSUB 3120 
 1250 IF FS=1 THENPRINT"LANGSAM":FS=0:RETURN :REM LANGSAM 
 1260 IF FS=0 THENPRINT"SCHNELL":FS=1:RETURN :REM SCHNELL 
 1270 GR=GR+1:IF GR>4 THENGR=1 
 1280 CX=27:CY=17:GOSUB 3120 
 1290 IF GR=1 THENPRINT"STARK{5SPACE}":REM STARK 
 1300 IF GR=2 THENPRINT"SCHWACH{2SHIFT-SPACE,SPACE}":REM SCHWACH 
 1310 IF GR=3 THENPRINT"NORMAL{4SPACE}":REM NORMAL 
 1320 IF GR=4 THENPRINT"SCHWAECHER":REM SCHWAECHER 
 1330 RETURN 
 1340 LS=LS+1:IF LS>3 THENLS=1 
 1350 CX=27:CY=18:GOSUB 3120 
 1360 IF LS=1 THENPRINT"SCHNELL ":REM SCHNELL 
 1370 IF LS=2 THENPRINT"LANGSAM ":REM LANGSAM 
 1380 IF LS=3 THENPRINT"NORMAL{2SPACE}":REM NORMAL 
 1390 RETURN 
 1400 SH=SH+1:IF SH>15 THENSH=3 
 1410 CX=26:CY=19:GOSUB 3120 
 1420 PRINTSHCHR$ (157)CHR$ (32):RETURN 
 1430 PRINT"{HOME,8DOWN}" 
 1440 FOR T=0 TO4 
 1450 PRINT"{37SPACE}" 
 1460 NEXT 
 1470 REM              JOYSTICK IN PORT 1 
 1480 PRINT"{11SPACE}JOYSTICK{SHIFT-SPACE}IN{SHIFT-SPACE}PORT{SHIFT-SPACE}1{SPACE,6SPACE}" 
 1490 FOR T=0 TO7 
 1500 PRINT"{37SPACE}" 
 1510 NEXT 
 1520 AW=173:EW=255:SW=1:S1=0:S2=2:GOSUB 1560 
 1530 POKE V+16,3:AW=0:EW=100:GOSUB 1560 
 1540 POKE V+0,0:POKE V+2,0:POKE V+16,0 
 1550 RETURN 
 1560 REM SCHLEIFE 
 1570 FOR K=AW TOEWSTEP SW:POKE V+S1,K:POKE V+S2,K 
 1580 FOR T=0 TO30:NEXT :NEXT 
 1590 RETURN 
 1600 IF LS=1 THENPOKE 33004,40:POKE 33020,20 
 1610 IF LS=2 THENPOKE 33004,200:POKE 33020,100 
 1620 IF LS=3 THENPOKE 33004,100:POKE 33020,50 
 1630 IF GR=1 THENGR=30 
 1640 IF GR=2 THENGR=150 
 1650 IF GR=3 THENGR=70 
 1660 IF GR=4 THENGR=255 
 1670 POKE 33032,230:POKE 33033,249 
 1680 POKE 36611,  1:POKE 36607,8 
 1690 POKE 33156,MS :POKE 36860,5 
 1700 IF FS=1 THENPOKE 32978,10 
 1710 IF FS=0 THENPOKE 32978,50 
 1720 POKE SI+2,2:POKE SI+3,7 
 1730 IF MU=0 THENPOKE 33152, 96:POKE SI+24,15 
 1740 POKE V+21,247 
 1750 POKE 56549,SP:POKE 36862,51 
 1760 SYS 32768:POKE V+30,0:POKE V+31,0 
 1770 IF RI=1 THENL1=5:L2=1:L3=-1 
 1780 IF RI=0 THENL1=1:L2=6:L3=1 
 1790 FOR LA=L1 TOL2STEP L3:TI$="000000" 
 1800 AX=PEEK (V+21):POKE V+21,0 
 1810 ON LAGOSUB 3520,3750,4020,4280,4550,4890 
 1820 POKE V+21,AX 
 1830 POKE X,XK(RI):POKE Y,YK(RI) 
 1840 POKE 36614,0:IF RI=1 THENPOKE 36614,MB 
 1850 CX=0 :CY=22:GOSUB 3120 
 1860 PRINT"{WHITE,SPACE}A*********R***********R**************S 
 1870 REM     SHIPS     TIME        SCORE 
 1880 PRINT" -SHIPS:{3SPACE}-TIME:{6SPACE}-SCORE:{8SPACE}- 
 1890 PRINT" Z*********E***********E**************X{HOME}" 
 1900 CX=8 :CY=23:GOSUB 3120:PRINTSH;:GOSUB 3150 
 1910 GOSUB 3170:CX=31:GOSUB 3120:PRINTSC;:POKE 33028,GR 
 1920 POKE 251,0:POKE V+30,0:POKE V+31,0 
 1930 SYS 8*4096 
 1940 IF PEEK (251) THEN2780 
 1950 POKE 250,RI 
 1960 A=PEEK (V+31):IF (AAND 7) THEN2830 
 1970 A=PEEK (V+30) 
 1980 IF A=68 THENGOSUB 2940 
 1990 IF AAND 128 THEN2060 
 2000 IF (AAND 7) THEN2830 
 2010 IF PEEK (36862)>=250 THEN2050 
 2020 IF (PEEK (56321)AND 16)=0 THENGOSUB 3080 
 2030 CX=18:CY=23:GOSUB 3120:PRINTMID$ (TI$,3,2); 
 2040 PRINT":"RIGHT$ (TI$,2):GOTO 1940 
 2050 POKE 53274,0:POKE 53280,0:POKE 33028,1:OF=1:GOTO 1940 
 2060 A=0:ON LAGOTO 2190,2070,2070,2070,2700,2080 
 2070 GOTO 2000 
 2080 RI=1:POKE V+14,0:POKE V+15,0:POKE 36610,1:POKE 33038,40 
 2090 A=0:IF U=1 THEN2000 
 2100 GOSUB 3150 
 2110 POKE 648,4:FOR H=0 TO5 :FOR I=7 TO18 
 2120 CX=15:CY=I:GOSUB 3120 
 2130 PRINT"{RVSON,BLUE,23SPACE}" 
 2140 CX=15:CY=I:GOSUB 3120 
 2150 PRINT"{RVSON,RED,23SPACE}" 
 2160 CX=15:CY=I:GOSUB 3120 
 2170 PRINT"{RVSON,YELLOW,23SPACE}" 
 2180 NEXT :NEXT :U=1:POKE 648,192:GOSUB 3170:GOTO 2000 
 2190 IF PEEK (36610)<>1 THEN2000 
 2200 POKE V+23,176:POKE V+29,128:POKE 50174,200 
 2210 POKE V+12,176:POKE V+13,90 
 2220 POKE 33038,45:POKE V+21,195:POKE SI+24,0 
 2230 SYS 52736:POKE 32809,162:POKE 32810,128 
 2240 SYS 32768:POKE V+40,2:POKE V+32,0 
 2250 POKE V+26,0:FOR I=0 TO62:POKE 62144+I,0:NEXT 
 2260 FOR I=0 TO3000:NEXT :GOSUB 3150 
 2270 FOR I=0 TO2:CX=0:CY=22+I:GOSUB 3120 
 2280 PRINT"{39SPACE}"; 
 2290 PRINTCHR$ (20)" ";:NEXT 
 2300 SYS 828:POKE V+45,1:POKE V+46,8 
 2310 POKE 50172,203:POKE 50173,203:POKE V+43,6 
 2320 POKE V+44,6:POKE V+8,152:POKE V+9,194 
 2330 POKE V+11,194:POKE V+10,216:POKE V+21,243:POKE 646,6 
 2340 FOR I=0 TO62STEP 3:POKE 62144+I,255 
 2350 FOR J=0 TO50:NEXT J,I 
 2360 FOR I=0 TO4:CX=16:CY=18+I:GOSUB 3120 
 2370 PRINT"Q{7SPACE}Q";:NEXT 
 2380 FOR I=194 TO220STEP 2:POKE V+9,I:POKE V+11,I 
 2390 FOR J=0 TO50:NEXT J,I 
 2400 FOR I=0 TO1:CX=16:CY=23+I:GOSUB 3120 
 2410 PRINT"Q{7SPACE}Q";:NEXT 
 2420 POKE V+21,195:POKE V+23,128:POKE V+29,176 
 2430 POKE 50173,195:POKE 50172,195 
 2440 POKE V+8,141:POKE V+10,189:POKE V+9,186 
 2450 POKE V+11,186:POKE V+21,243 
 2460 CX=17:CY=17:GOSUB 3120:PRINT"{7SPACE}"; 
 2470 FOR I=0 TO29:POKE V+8,141-I:POKE V+10,189+I 
 2480 FOR J=0 TO20:NEXT J,I 
 2490 FOR I=0 TO3000:NEXT 
 2500 FOR I=PEEK (V) TO176STEP SGN (176-PEEK (V)) 
 2510 POKE V,I:POKE V+2,I 
 2520 FOR J=0 TO20:NEXT J,I:FOR I=0 TO1000:NEXT 
 2530 FOR I=PEEK (V+1) TO246:POKE V+1,I:POKE V+3,I 
 2540 FOR J=0 TO20:NEXT J,I 
 2550 SP=SP-10:LE=LE+1:IF SP<=35 THENSP=SP+10 
 2560 FOR I=0 TO3000:NEXT :POKE V+21,0:PRINTCHR$ (142) 
 2570 PRINT"{CLR,WHITE,4DOWN,7SPACE}HERZLICHEN GLUECKWUNSCH !! 
 2580 PRINT"{3DOWN,11SPACE}SIE HABEN IHRE 
 2590 PRINT"{DOWN,9SPACE}MISSION ERFOLGREICH 
 2600 PRINT"{2DOWN,14SPACE}BEENDET !! 
 2610 PRINT"{3DOWN,6SPACE}AB JETZT WIRD'S SCHNELLER ! 
 2620 PRINT"{2DOWN,15SPACE}LEVEL :"LE 
 2630 FOR I=0 TO5000:NEXT 
 2640 GOSUB 3190 
 2650 PRINTCHR$ (14) 
 2660 POKE V+21,243 
 2670 POKE 33038,40:POKE 36610,0 
 2680 RI=0:GOTO 1750 
 2690 GOTO 2000 
 2700 GOSUB 3150:POKE V+14,0:POKE V+15,0:POKE V+12,255 
 2710 FOR Z=9 TO13:CX=31:CY=Z:GOSUB 3120:PRINT" " 
 2720 POKE SI+18,33:POKE SI+18,32 
 2730 FOR I=0 TO300:NEXT :NEXT 
 2740 CX=36:CY=6:GOSUB 3120:PRINT" " 
 2750 FOR Z=7 TO16:CX=35:CY=Z:GOSUB 3120:PRINT"{2SPACE}":POKE SI+18,33 
 2760 POKE SI+18,32:FOR I=0 TO300:NEXT :NEXT 
 2770 CX=36:CY=Z:GOSUB 3120:PRINT"{2SPACE}":GOSUB 3170:GOTO 2010 
 2780 IF RI=1AND LA=1 THEN1940 
 2790 SC=SC+((240-VAL (TI$))*10) 
 2800 CX=30:CY=23:GOSUB 3120:PRINT"SCORE{SHIFT-SPACE}: "SC;:POKE 251,0 
 2810 REM SCORE 
 2820 NEXT :GOTO 1770 
 2830 REM RUETTEL ROUTINE 
 2840 KR=PEEK (V+17):GOSUB 3150:POKE SI+11,129:POKE SI+8,50 
 2850 POKE SI+12,16* 1+5 
 2860 POKE SI+13,16* 1+1 
 2870 FOR I=1 TO10:POKE V+17,23:POKE SI+11,129:FOR T=0 TO50:NEXT 
 2880 POKE V+17,16:POKE SI+11,128:FOR T=0 TO50:NEXT :NEXT 
 2890 POKE V+17,KR:POKE SI+11,0 
 2900 POKE 36862,51 
 2910 POKE SI+12,71:POKE SI+13,25:SH=SH-1:TI$="000000" 
 2920 IF SH=0 THENSH=3:GOTO 3010 
 2930 GOTO 1830 
 2940 GOSUB 3150:Y1=PEEK (Y):POKE SI+5,255:FOR I=0 TO500:NEXT 
 2950 IF OF=1 THENOF=0:POKE 53274,241:POKE 33028,GR:POKE 36862,250 
 2960 FOR I=PEEK (36862) TO51STEP -1:POKE 36862,I:POKE SI+ 8,I-51 
 2970 POKE SI+11,17:POKE SI+11,18:NEXT 
 2980 POKE Y,Y1-1:GOSUB 3180:FOR XY=0 TO100 
 2990 NEXT :IF PEEK (V+30) THENY1=Y1-1:GOTO 2980 
 3000 GOSUB 3170:POKE SI+11,0:A=0:POKE SI+5,77:RETURN 
 3010 SYS 52736:POKE V+21,0:POKE 53280,0:POKE SI+4,0 
 3020 PRINTCHR$ (147):CX=15:CY=12:GOSUB 3130:PRINT"GAME OVER" 
 3030 IF SC>HS THENHS=SC 
 3040 PRINT"{3DOWN,9SPACE}SCORE : "SC:REM SCORE 
 3050 PRINT"{DOWN,4SPACE}HIGH SCORE : "HS:REM HIGH - 
 3060 FOR I=0 TO4000:NEXT :RI=0:SC=0 
 3070 POKE V+21,3:CO=1:SP=100:GOTO 830 
 3080 IF ((PEEK (V+21))AND 4)=4 THEN3100 
 3090 POKE V+21,PEEK (V+21)OR 4:GOTO 3110 
 3100 POKE V+21,PEEK (V+21)AND 251 
 3110 RETURN 
 3120 REM CURSOR POSITIONIEREN 
 3130 POKE 211,CX:POKE 214,CY:SYS 58640:RETURN 
 3140 REM RAUMSCHIFF FESTHALTEN 
 3150 SYS 33217:POKE V+21,PEEK (V+21)AND 207:RETURN 
 3160 REM RAUMSCHIFF LOSLASSEN 
 3170 SYS 33204:POKE 36608,50:RETURN 
 3180 POKE V+1,Y1:POKE V+3,Y1:POKE V+5,Y1:POKE V+7,Y1:RETURN 
 3190 REM SPRITES INITIALISIEREN 
 3200 POKE V+31, 0:POKE 33048,4 
 3210 POKE V+39, 7:POKE V+40 ,2 
 3220 POKE V+41, 1:POKE V+42 ,0 
 3230 POKE V+43, 5:POKE V+44 ,5 
 3240 POKE V+32, 0:POKE V+33 ,0 
 3250 POKE V+23,48:POKE V+27 ,240 
 3260 POKE V+29,64:POKE 33052,84 
 3270 FOR T=0 TO62:POKE 61632+T,0:NEXT 
 3280 FOR T=0 TO23:POKE 61632+T,255:NEXT 
 3290 POKE 50168,192:POKE 50169,193 
 3300 POKE 50170,194:POKE 50171,195 
 3310 POKE 50172,196:POKE 50173,196 
 3320 POKE 50174,197:POKE 50175,198:POKE 36610,0 
 3330 POKE SI+ 2,  2:POKE SI+ 3,  7:U=0 
 3340 POKE SI+ 5, 77:POKE SI+19,0:POKE SI+20,244 
 3350 POKE SI+15, 30:POKE 36614,0:POKE V+16,0 
 3360 POKE SI+6,24:POKE SI+24,15:RETURN 
 3370 READ ZE:PRINTTAB( I/8)CHR$ (ZE);:C=C+1:A$=A$+CHR$ (ZE) 
 3380 RETURN 
 3390 PRINT"{ORANGE,DOWN,13RIGHT,SPACE}(C) 1984{2SPACE}BY " 
 3400 PRINT"{DOWN,5RIGHT,2SPACE}"B$:RETURN 
 3520 REM ** LABYRINTHE ** 
 3530 PRINT"{CLR,BLUE,2DOWN,18SPACE}UQQQS 
 3540 PRINT"{16SPACE}UQQT VQQS 
 3550 PRINT"{15SPACE}UQT{5SPACE}VQS 
 3560 PRINT"{14SPACE}UQT{7SPACE}VQS 
 3570 PRINT"{14SPACE}QT{9SPACE}VQ 
 3580 PRINT"{13SPACE}UQ{11SPACE}QS 
 3590 PRINT"{13SPACE}QT{11SPACE}VQ 
 3600 PRINT"{12SPACE}UQ{13SPACE}QS 
 3610 PRINT"QQQQQQQQQQQQQT{13SPACE}VQQQQQQQQQQQQ"; 
 3620 PRINT"ABABFAPLDFAB{WHITE}Q{BLUE,15SPACE,WHITE}Q{BLUE}FLOLPLFEABF"; 
 3630 PRINT"CDCD{2SPACE}AB{2SPACE}CD{18SPACE}FPLOB{2SPACE}CD "; 
 3640 PRINT"{6SPACE}CD{23SPACE}ABF{6SPACE}"; 
 3650 PRINT"{40SPACE}"; 
 3660 PRINT"GH{13SPACE}GH{7SPACE}GH{10SPACE}GH{2SPACE}"; 
 3670 PRINT"IJ@KIJ{2SPACE}KIJ@{WHITE}Q{BLUE,SPACE}@IJ{7SPACE}IJKK{WHITE}Q{BLUE,6SPACE}@IJ@ "; 
 3680 PRINT"QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ"; 
 3690 POKE 36614,0:XK(0)=174:YK(0)=130 
 3700 POKE V+8,248:POKE V+9,139:POKE V+12,0 
 3710 POKE V+13,0:POKE V+10,120:POKE V+11,139 
 3720 POKE V+23,176:POKE V+29,192 
 3730 POKE 50175,198:POKE V+14,164:POKE V+15,73 
 3740 XK(1)=54:YK(1)=151:MB=15:POKE V+46,8:RETURN 
 3750 PRINT"{CLR,RED}OLLQLPOLQLOQPLLLLLLLOQLLPLLOLQLLPLLOQLLL"; 
 3760 PRINT"LOLLPLLOQLLOQOLLLLQLLOLPLLLLOLQPLLLQOLLL"; 
 3770 PRINT"OLOPLLQLOLLPLLLOLLQLLPOLLQLLQOPLLLLLPOLL"; 
 3780 PRINT"LOQLLQLLLOPQLLLPLQLLPQLOLLQLLLOLLLLPLLOL"; 
 3790 PRINT"LLOLLPOLLPOLLLPOLQLPLLQPOQLLQLPOLLPOLLLO"; 
 3800 PRINT"LLLOPLLOPLLOLPLLOLPOLLPLLOLQLPLPOLLLOLLP"; 
 3810 PRINT"LLLQLLQLLOQLLQLPLLQLLPLQLPOLLLPLLOLLLOLL"; 
 3820 PRINT"EFABE{WHITE}Q{RED}ABPLLPLLPOLQLABEF{WHITE}Q{RED}ABFABFEABFEABFEA"; 
 3830 PRINT"{2SPACE}CD{2SPACE}CDFABOLLOLOBFCD{3SPACE}CD{5SPACE}CD{2SPACE}CD{2SPACE}C"; 
 3840 PRINT"{9SPACE}CDABLPLO{8SPACE,SHIFT-SPACE} 
 3850 PRINT"{11SPACE}CDFOLE{21SPACE}"; 
 3860 PRINT"{2SPACE}IJK{11SPACE}AB{5SPACE}IJ{WHITE}Q{RED}J@IJ{SPACE,4SPACE}IJ@GH@ "; 
 3870 PRINT"LQOLL{WHITE}Q{RED,SPACE}@GH{SHIFT-SPACE,3SPACE}CD{4SPACE}KOLPOLLL{5SPACE}OLOPLQL"; 
 3880 PRINT"LLLOLQLLIJ@{8SPACE}ILPLLLOPL{5SPACE}LLLOLLL"; 
 3890 PRINT"LLLPOLQPLLL@{6SPACE}ILLOLLLLOL£££££LLLPOLL"; 
 3900 PRINT"LLPLQOPQLLLPL@ GH@POLLOLLLPLLLLLLLLPLLOL"; 
 3910 PRINT"LPOLLQOLLLPLLL@IJLQLOLPOQPLLLLOLPLPOLLLO"; 
 3920 PRINT"PLLOLLLOLQOLLQPLLQLQPOLPLOLLLLPPLLLLOLLL"; 
 3930 PRINT"OLQLOLLLOLLOLPLQLLQPLQOOLLOLLLPOLLLLPOLL"; 
 3940 PRINT"LOLLPOLLLOLPOQOLLLPOLLPOLLLLLPLLOLLPLLOL"; 
 3950 PRINT"LLOPLLOLQLOLLOQOLLLLLPLLLLLLLLLLLOLLLLLL"; 
 3960 PRINT"LLPOLLLOLLLOLLLPOLLLPOLLLLLLLLLLLLLLLLLL" 
 3970 POKE 36614,0:XK(0)=26:YK(0)=116:XK(1)=59 
 3980 YK(1)=117:MB=15:POKE V+46,0 
 3990 POKE V+8,64:POKE V+9,106:POKE V+10,208 
 4000 POKE V+11,106:POKE V+14,0:POKE V+15,0 
 4010 POKE V+12,245:POKE V+13,150:RETURN 
 4020 PRINT"{CLR,PURPLE}ABEFABAPOLPLOQLPLOLLPOPLLLPLQLLOPLQLQOPL"; 
 4030 PRINT"CD{2SPACE}CD OQPOLPOQOLLOPLLOLLPOLLQLLOQLQLQOL"; 
 4040 PRINT"{7SPACE}FOLPLPAB{SPACE,WHITE}Q{PURPLE}FLABFLOLLLOLQLABABABABO"; 
 4050 PRINT"{7SPACE}GPPOLB{5SPACE}FCD FABNLPOLLCDCD{2SPACE}C L"; 
 4060 PRINT"GH{5SPACE}IOOPOM{12SPACE}NPLLOM{9SPACE}"; 
 4070 PRINT"IJ@{4SPACE}APPOB{13SPACE}FLLOM{10SPACE}"; 
 4080 PRINT"OQLJ{4SPACE}FLPJ{7SPACE}GH{4SPACE}FLLOM{10SPACE}"; 
 4090 PRINT"LOPB{4SPACE}IPLB{4SPACE,WHITE}Q{PURPLE}IJIJ{SPACE,4SPACE}LLLM{10SPACE}"; 
 4100 PRINT"LPOJ{4SPACE}AOLJ{4SPACE}OQPLPM{4SPACE}FLM{11SPACE}"; 
 4110 PRINT"PLQLJ{4SPACE}POB{4SPACE}LPLPOL{5SPACE}LM{11SPACE}"; 
 4120 PRINT"ABFEF{4SPACE}OLD{3SPACE}NQLPLLM{5SPACE}NM 
 4130 PRINT"CD{7SPACE}AB{4SPACE}NLPOBFE{4SPACE}NM{12SPACE}"; 
 4140 PRINT"{SHIFT-SPACE,8SPACE}CD{3SPACE}NQLLF{7SPACE}LM{12SPACE}"; 
 4150 PRINT"{13SPACE}GOLBF{7SPACE}NLMGH{10SPACE}"; 
 4160 PRINT"{5SPACE}GH{6SPACE}@PLM{5SPACE}@IJ@OMIJ{9SPACE}L"; 
 4170 PRINT"{5SPACE}IJ@GH @IPOM{4SPACE}IQLOLLLOLQLQQM{4SPACE}NQ"; 
 4180 PRINT"QLPQOLLLIJ@OPLPM{4SPACE,WHITE}Q{PURPLE}BFEF AB E AB{SPACE,4SPACE}AB"; 
 4190 PRINT"LPLLPLQPLQPLPLPM{15SPACE}CD{5SPACE}CD"; 
 4200 PRINT"POLQLOPQLPQQOLQM{24SPACE}"; 
 4210 PRINT"LLLQLLOQPLQLPOLLGH{6SPACE}GH{2SPACE}GH{5SPACE}GH GH"; 
 4220 PRINT"LLLLQLLOLLLPLLOLIJ@{SPACE,WHITE}Q{PURPLE,2SPACE}@IJ@ IJ @IJ IJ@IJ"; 
 4230 PRINT"OLLLLLLPOLPLLLLOLLLLLLLLLLLLLLLLLLLLLLLL"; 
 4240 POKE 36614,0:XK(0)=30:YK(0)=65:POKE V+12,18 
 4250 POKE V+13,160:POKE V+14,0:POKE V+8,152 
 4260 POKE V+10,184:POKE V+11,175:POKE V+15,0 
 4270 XK(1)=57:YK(1)=102:MB=15:POKE V+9,70:RETURN 
 4280 PRINT"{CLR,LIG.BLUE}ABFBFEAOLBABOLQOPQOQLLQPLLQQLPLQOBABF EF"; 
 4290 PRINT"CD{5SPACE}AB CDAOLPLQLOLQLOLQLLPBAB{2SPACE}CD 
 4300 PRINT"{14SPACE}FQLLABOLQPLLQPL 
 4310 PRINT"GH{2SPACE}GH{9SPACE}F{SPACE,WHITE}Q{LIG.BLUE}CDAOPOLQPLB{SPACE,8SPACE}GH"; 
 4320 PRINT"IJ@ IJ@{3SPACE}@{10SPACE}PLQOPFF{5SPACE}@@ @ IJ"; 
 4330 PRINT"QOLQPLLQLPLL{9SPACE}FLQQO@{5SPACE}NQPQOQLP"; 
 4340 PRINT"LPLBABCD{3SPACE}A{WHITE}Q{LIG.BLUE,9SPACE}ABFLO@GH{3SPACE}PQQLOPQ"; 
 4350 PRINT"PLB CD{19SPACE}FAOIJ{3SPACE}FAOQLOL"; 
 4360 PRINT"OLJ{2SPACE,SHIFT-SPACE,20SPACE}NQLB{SHIFT-SPACE,4SPACE}QOQPO"; 
 4370 PRINT"LOLJ{4SPACE}@{8SPACE,WHITE}Q{LIG.BLUE,SPACE}IJ{5SPACE}NLF{4SPACE}@ILPPQL"; 
 4380 PRINT"QPOL{3SPACE}NPJGH{SHIFT-SPACE,3SPACE}NOLLPJ{4SPACE}LF{4SPACE}ILOPPOLQ"; 
 4390 PRINT"PFAB{4SPACE}FLPJ{5SPACE}NOPLB{3SPACE}@L@{4SPACE}ALPPOQOL"; 
 4400 PRINT"B CD{5SPACE}NLQ{WHITE}Q{LIG.BLUE,4SPACE}NPAB{4SPACE}PQL@{4SPACE}FAQLOQL"; 
 4410 PRINT"M{8SPACE}@OLJ{4SPACE}PFCD{3SPACE}NOLLLM{5SPACE}ALPQQ"; 
 4420 PRINT"J{7SPACE}@OLOB{3SPACE}NLJ{4SPACE}NLLOLF{4SPACE}GHIPOLL"; 
 4430 PRINT"LJ{5SPACE}IOLOL{4SPACE}LLLJ{4SPACE}FLPO{5SPACE}IJPLQOL"; 
 4440 PRINT"QLQPOLQLPBAB{4SPACE}LLLL{4SPACE}@PLF{4SPACE}@LLQLLQL"; 
 4450 PRINT"ABFAQOBFF{7SPACE}OPLF{3SPACE}@PLF{4SPACE}NLLQQLQQO"; 
 4460 PRINT"CD{2SPACE}AB{9SPACE}NPAB{4SPACE}ABF{5SPACE}IOLQLLQLP"; 
 4470 PRINT"{11SPACE}GH@@PBCD{10SPACE}GILPQLLQQLO"; 
 4480 PRINT"GH{8SPACE}@IJOPB{13SPACE}IOPLLQQQLQQ"; 
 4490 PRINT"IJ@{3SPACE,SHIFT-2SPACE}NLLOLLOJ{2SPACE}GH{SPACE,SPACE}@{3SPACE}@IJQLOPOLQQLLL" 
 4500 POKE 36614,0:XK(0)=34:YK(0)=196:POKE V+12,35 
 4510 POKE V+13,160:POKE V+14,0:POKE V+8,120 
 4520 POKE V+9,106:POKE V+10,160:POKE V+11,80 
 4530 POKE V+15,0:POKE V+46,0 
 4540 POKE V+46,0:XK(1)=59:YK(1)=56:MB=15:RETURN 
 4550 PRINT"{CLR,ORANGE}JCD{2SPACE}ALPQPOQLLPLQLBABAOQJ 
 4560 PRINT"BGH{2SPACE}IQOPLQFEFAB{3SPACE}CD FOQJ{13SPACE}I"; 
 4570 PRINT"JIJ@LQPLOQB{3SPACE}CD{7SPACE}E{WHITE}Q{ORANGE}PJ{SPACE,10SPACE}IB"; 
 4580 PRINT"QLOLQLOAB{16SPACE}ALJ{9SPACE}IB "; 
 4590 PRINT"LLQOLPFCD{17SPACE}ALJRRRRRRRIB{2SPACE}"; 
 4600 PRINT"PLQPLB{6SPACE}IJ{5SPACE}IJ@{5SPACE}ALIIIIIIIB{3SPACE}"; 
 4610 PRINT"OQPOLJ{6SPACE}ALQBOB{WHITE}Q{ORANGE}FAOJ{SPACE,4SPACE}APJ{3SPACE}IBW{3SPACE}"; 
 4620 PRINT"LPLQOQ@GH{4SPACE}AOJCD{3SPACE}EOJ{5SPACE}QLJ IBQW{3SPACE}"; 
 4630 PRINT"POLQPLPIJ{5SPACE}PB{6SPACE}EO{WHITE}Q{ORANGE,4SPACE}ABQPB QW{3SPACE}"; 
 4640 PRINT"LLOLOPLQLJ{4SPACE}AJ{7SPACE}POJ{5SPACE}Q{3SPACE}QW{3SPACE}"; 
 4650 PRINT"QLPOQOIOAB{4SPACE}NB{7SPACE}FLO{5SPACE}Q{3SPACE}QW{3SPACE}"; 
 4660 PRINT"QPOQOQOBCD{4SPACE}LJ{2SPACE,WHITE}Q{ORANGE,4SPACE}@BF{5SPACE}Q{3SPACE}QW{3SPACE}"; 
 4670 PRINT"PLLQPLB{6SPACE}AOPQLB{4SPACE}LJ{6SPACE}Q{3SPACE}QW{3SPACE}"; 
 4680 PRINT"OQLLOLJ GH{6SPACE}F{6SPACE}AL{4SPACE}GHQ{3SPACE}QW{3SPACE}"; 
 4690 PRINT"ABFEFAQJIJ{11SPACE}IJIL{4SPACE}IJLO{2SPACE}QW{3SPACE}"; 
 4700 PRINT"CD{4SPACE}LPLL@@{8SPACE}@LOOF{4SPACE}OLOPJ QW{3SPACE}"; 
 4710 PRINT"{6SPACE}ABPQLOJIJ@{3SPACE}IPQBF{4SPACE}@QOPOLJQW{3SPACE}"; 
 4720 PRINT"{6SPACE}CD E{2SPACE}ALLPLQLBAB{5SPACE}@OLPLQOLJW{3SPACE}"; 
 4730 PRINT"GH{18SPACE}CD{5SPACE}APPOQLPQLJ{3SPACE}"; 
 4740 PRINT"IJ@{24SPACE}IOLQQLOLQLJ{2SPACE}"; 
 4750 PRINT"LPQJ@IJGH{16SPACE}GHALOQPOQOLQPJ "; 
 4760 PRINT"PLLQLOLIJ@@@@@@@@@@@@@@@QIJIQLOOQLPOPLQJ" 
 4770 POKE 36614,0:XK(0)=43:YK(0)=180:POKE V+12,0 
 4780 POKE V+13,0:POKE V+14,145:POKE V+8,216 
 4790 POKE V+9,74:POKE V+10,168:POKE V+11,102 
 4800 POKE 50175,199:POKE V+23,48:POKE V+29,64 
 4810 POKE V+15,123:XK(1)=54:YK(1)=136:MB=15 
 4820 ON RIGOTO 4840 
 4830 POKE V+46,1:RETURN 
 4840 FOR Z=9 TO13:CX=31:CY=Z:GOSUB 3120:PRINT" ":NEXT 
 4850 CX=36:CY=6 :GOSUB 3120:PRINT" " 
 4860 CX=36:CY=17:GOSUB 3120:PRINT" " 
 4870 FOR Z=7 TO16:CX=35:CY=Z:GOSUB 3120:PRINT"{2SPACE}" 
 4880 NEXT :POKE V+46,0:RETURN 
 4890 PRINT"{CLR,YELLOW}OPOLQLLPLLLOQPLOPLLQLRRRRRRRRLLQLPLLQLOP"; 
 4900 PRINT"POQOLQPOLQLRRRRRRRRRRR{WHITE}Q{YELLOW}YYYY{WHITE}Q{YELLOW}RRRRRRRRRRRR"; 
 4910 PRINT"LQLBF FAOLLBYYYYYYYYYY{6SPACE}YYYYYYYYYYYA"; 
 4920 PRINT"OLB{5SPACE}FOQJ{27SPACE}L"; 
 4930 PRINT"AB{7SPACE}AOJ{27SPACE}L"; 
 4940 PRINT"CD{8SPACE}PJ{27SPACE}L"; 
 4950 PRINT"{10SPACE}RJ{5SPACE}RRRRR{WHITE}Q{SPACE,3SPACE}Q{YELLOW}RRRRR{SPACE,5SPACE}L"; 
 4960 PRINT"{5SPACE}R{4SPACE}RJ{3SPACE}R{4SPACE}IJ{6SPACE}IJ{4SPACE}R{4SPACE}L"; 
 4970 PRINT"GH{3SPACE}R{4SPACE}RJ{3SPACE}R{2SPACE}RRRRRR{2SPACE}RRRRRR{2SPACE}R{4SPACE}L"; 
 4980 PRINT"IJ@ IR{4SPACE}RJ{3SPACE}R{2SPACE}RPQQOR{2SPACE}RPQQOR{2SPACE}R{4SPACE}L"; 
 4990 PRINT"POLQLR{4SPACE}RJ{3SPACE}RJIROQQPRJIROQQPRJIR{4SPACE}L"; 
 5000 PRINT"OLOLLR{4SPACE}RJ{3SPACE}ROPRQOPQROPRQOPQROPR{4SPACE}L"; 
 5010 PRINT"PBCDAR{4SPACE}RJ{3SPACE}RPORQPOQRPORQPOQRPOR{4SPACE}L"; 
 5020 PRINT"B{4SPACE}R{4SPACE}RJ{3SPACE}RBARPQQORBARPQQORBAR{4SPACE}L"; 
 5030 PRINT"J{9SPACE}RJ{3SPACE}R{SPACE,SHIFT-SPACE}ROQQPR{2SPACE}ROQQPR{2SPACE}R{4SPACE}L"; 
 5040 PRINT"J{9SPACE}RJ{3SPACE}R{SHIFT-2SPACE}RRRRRR{2SPACE}RRRRRR{SPACE,SPACE}R{4SPACE}L"; 
 5050 PRINT"J{9SPACE}RJ{3SPACE}R{4SPACE}AB{6SPACE}AB{4SPACE}R{4SPACE}L"; 
 5060 PRINT"J{3SPACE}RRRRRRRJ{5SPACE}RRRRRRR{2SPACE}RRRRRRR{6SPACE}L"; 
 5070 PRINT"J{38SPACE}L"; 
 5080 PRINT"J{38SPACE}L"; 
 5090 PRINT"J{19SPACE,2SHIFT-SPACE,17SPACE}I"; 
 5100 PRINT"LQOPOLQOPQOLQOQLPLLLOLLQOPOLLLQOQPLLLQOQ"; 
 5110 PRINT"{4UP}" 
 5120 POKE 36614,0:XK(0)=25:YK(0)=96:XK(1)=25 
 5130 YK(1)=96:POKE V+12,0:POKE V+13,0 
 5140 POKE V+8,240:POKE V+9,60:POKE V+10,201 
 5150 POKE V+11,60:POKE 50175,200:POKE V+15,59 
 5160 POKE V+23,48+128:POKE V+29,192:MB=0:POKE 33038,46 
 5170 POKE 36610,1:POKE V+14,200:POKE V+21,243:RETURN 
 5180 REM DATAS    ******************************* 
 5190 DATA 120,169, 49,141, 20,  3,169,234,141, 21 
 5200 DATA  3,169,  0,141, 26,208, 88, 96,120,169 
 5210 DATA 51,133,  1,169,  0,133, 95,133, 90,133 
 5220 DATA 88,169,208,133, 96,169,240,133, 89,169 
 5230 DATA 224,133, 91, 32,191,163,169, 55,133,  1 
 5240 DATA 88, 96 
 5250 REM DATEN FUER SPRITES ********************* 
 5260 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 15 X 0 
 5270 DATA 64,126,  2, 32,195,  4, 17,129,136, 11 
 5280 DATA  0,208,  6,  0, 96, 62,  0,124,122,  0 
 5290 DATA 94,119,129,238,120,255, 30, 30, 60,120 
 5300 DATA  7,129,224,  0,255 
 5310 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 15 X 0 
 5320 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 15 X 0 
 5330 DATA  0,  0, 60,  0,  0,126,  0,  0,255,  0 
 5340 DATA  1,255,128,  1,255,128,  1,255,128,  0 
 5350 DATA 126,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 13 X 0 
 5360 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 15 X 0 
 5370 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 15 X 0 
 5380 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 15 X 0 
 5390 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:REM 15 X 0 
 5400 DATA 12,  0, 48, 24,  0, 24, 48,  0, 12,120 
 5410 DATA  0, 30,252,  0, 63,192,  0,  3,192,  0 
 5420 DATA  3,192,  0,  3,192,  0,  3,192,  0,  3 
 5430 DATA 192,  0,  3,192,  0,  3,192,  0,  3,192 
 5440 DATA  0,  3,192,  0,  3,255,255,255,225,108 
 5450 DATA 55,225,109,247,239,108,247,227,108,247 
 5460 DATA 206,  9,225,206,  8, 33,255,255,255,240 
 5470 DATA  0, 15,240,  0, 15,240,  0, 15,  2,  0 
 5480 DATA 64,130,  0, 65,130,  0, 65,194,  0, 67 
 5490 DATA 66,  0, 66, 98,  0, 70, 34,  0, 68, 50 
 5500 DATA 231, 76, 18,189, 72, 27,129,216,136,129 
 5510 DATA 17,207,129,243, 96,129,  6, 63,129,252 
 5520 DATA  0,129,  0,255,129,255,  0,129,  0,  3 
 5530 DATA 129,192, 14,129,112, 56,129, 28,224,255 
 5540 DATA  7,  0,  0,248,  0,  1,252,  0,  3,  6 
 5550 DATA  0,  6,  3,  0,  6,  3,  0,  6,  3,  0 
 5560 DATA  6,  3,  0,  6,  3,  0,  3,  6,  0,  3 
 5570 DATA 252,  0,  7,248,  0, 15,  0,  3,158,  0 
 5580 DATA  3,252,  0,  9,248,  0,125,240,  0, 63 
 5590 DATA 224,  0, 63,192,  0, 31,128,  0, 15,  0 
 5600 DATA  0, 14,  0,  0,  0,  0,  0,  3,195,192 
 5610 DATA 15,126,240, 15,255,240,  3,  0,192,  3 
 5620 DATA 126,192, 15, 66,240, 15,126,240,  3,  0 
 5630 DATA 192,  3,126,192, 15,  0,240, 15, 94,240 
 5640 DATA  3, 82,192,  3,114,192, 15,  0,240, 15 
 5650 DATA 78,240,  3, 74,192,  3,126,192, 15,  0 
 5660 DATA 240, 15,255,240,  3,255,192 
 5670 DATA 200,193,210,193,204,196, 32,194,197,201 
 5680 DATA 206,197, 32, 38, 32,193,210,206,197, 32 
 5690 DATA 202,193,206,211,197,206 
 5700 REM DATEN FUER DIE ZEICHEN ***************** 
 5710 DATA  8,  8, 28, 28, 62,126,127,255,127, 63 
 5720 DATA 31, 15,  3,  7,  7,  3,255,254,252,240 
 5730 DATA 248,240,240,224,  0,  1,  1,  0,  0,  0 
 5740 DATA  0,  0,224,128,192,128,128,  0,  0,  0 
 5750 DATA 252,110, 60, 24, 16,  0,  0,  0,252,126 
 5760 DATA 124, 56, 56, 16, 16, 16,  0,  0,  0,  1 
 5770 DATA  1,  3,  3,  7,  0,  0,  0,  0,  0,128 
 5780 DATA 128,192,  4, 15, 15, 31, 31, 63, 63,255 
 5790 DATA 192,224,224,240,240,248,252,255,  8,  8 
 5800 DATA  8, 28, 28, 62,126,255, 46,127,223,126 
 5810 DATA 239,251,191,237,192,224,112,248,252, 76 
 5820 DATA 76,196,  3,  6, 14, 31, 63, 50, 51, 34 
 5830 DATA 63, 31,143,207,199,225,240,252,252,248 
 5840 DATA 225,195,207,143,143, 63,255,255,255,255 
 5850 DATA 255,255,255,255,  0,126,126,102,102,126,126,0 
 5860 REM ** MASCHINENROUTINE ** 
 5870 DATA 120,169, 32,141, 20,  3,169,128,141 
 5880 DATA 21,  3,169,129,141, 26,208,173,254 
 5890 DATA 143,141, 18,208,173, 17,208, 41,127 
 5900 DATA 141, 17,208, 88, 96,173, 25,208,141 
 5910 DATA 25,208, 48, 10, 32, 95,128,173, 13 
 5920 DATA 220, 88, 76, 49,234,173,253,143,201 
 5930 DATA  1,240,19,169,  0,141, 32,208,173 
 5940 DATA 254,143,141, 18,208,169,  1,141,253 
 5950 DATA 143, 76,188,254,173,252,143,141, 32 
 5960 DATA 208,169,255,141, 18,208,169,  2,141 
 5970 DATA 253,143, 76,188,254,173,  1,220, 41 
 5980 DATA  1,208,101,173,  1,220, 41,  2,208 
 5990 DATA 91,173,  1,220, 41,  4,208, 78,173 
 6000 DATA  1,220, 41,  8,208, 74,165,248,141 
 6010 DATA  0,208,141,  2,208,141,  4,208,141 
 6020 DATA  6,208,165,249,141,  1,208,141,  3 
 6030 DATA 208,141,  5,208,141,  7,208,173,  6 
 6040 DATA 143,141, 16,208,206,  0,143,240, 55 
 6050 DATA 206,  1,143,240, 92,206,  5,143,240 
 6060 DATA 34,173,  2,143,208, 92,173, 30,208 
 6070 DATA 234,234, 32, 21,129,234,234,234,234 
 6080 DATA 234, 32,125,129, 96, 76, 82,129, 76 
 6090 DATA 89,129, 76, 77,129, 76, 72,129,238 
 6100 DATA 254,143,169,100,141,  5,143, 76,172 
 6110 DATA 128,173,  3,143, 73,  1,141,  3,143 
 6120 DATA 208, 16,173, 21,208, 41,207,141, 21 
 6130 DATA 208,169, 90,141,  0,143, 76,162,128 
 6140 DATA 173, 21,208,  9, 48,141,21,208,169 
 6150 DATA 45,141,  0,143, 76,162,128,169,150 
 6160 DATA 141,  1,143,234,234, 76,167,128,238 
 6170 DATA 40,208, 76,177,128, 41,  8,165,248 
 6180 DATA 201, 24,240, 20,201, 64,208, 34,173 
 6190 DATA 16,208, 41,  3,240, 27,198,248,165 
 6200 DATA 250,208, 21, 76, 60,129,173, 16,208 
 6210 DATA 41,  3,208, 11,230,248,165,250,240 
 6220 DATA  5,169,  1,133,251,234, 96,169,  3 
 6230 DATA 141,255,127, 96,230,249, 76,102,128 
 6240 DATA 198,249, 76,109,128,230,248,240, 14 
 6250 DATA 76,116,128,198,248,165,248,201,255 
 6260 DATA 240, 14, 76,123,128,173,  6,143,  9 
 6270 DATA 15,141,  6,143, 76,116,128,173,  6 
 6280 DATA 143, 41,240,141,  6,143, 76,123,128 
 6290 DATA 234,234,234,206,255,142,240,  1, 96 
 6300 DATA 169,  7,141,255,142,238,254,142,174 
 6310 DATA 254,142,189,  0,197,141,  0,212,189 
 6320 DATA  0,198, 41,127,141,  1,212,189,  0 
 6330 DATA 198, 41,128,208,  6,169, 64,141,  4 
 6340 DATA 212, 96,169, 64,141,  4,212,169, 65 
 6350 DATA 141,  4,212, 96,120,169,128,141, 42 
 6360 DATA 128,169, 95,141, 41,128, 88, 96,120 
 6370 DATA 169,129,141, 42,128,169,125,141, 41 
 6380 DATA 128, 88, 96 
 6390 REM    T  A  K  T    1 ************ 
 6400 DATA 27,132, 27,  4, 55,136, 39,134 
 6410 DATA 27,132, 27,  4, 55,136, 39,134 
 6420 DATA 27,132, 27,  4, 55,136, 39,134 
 6430 DATA 27,132,226,132, 39,134, 55,136 
 6440 REM    T  A  K  T    2 ************ 
 6450 DATA 27,132, 27,  4, 55,136, 39,134 
 6460 DATA 27,132, 27,  4, 55,136, 39,134 
 6470 DATA 27,132, 27,  4, 55,136, 39,134 
 6480 DATA 27,132,226,132, 39,134, 55,136 
 6490 REM    T  A  K  T    3 ************ 
 6500 DATA 27,132, 27,  4, 55,136, 39,134 
 6510 DATA 27,132,226,132, 39,134, 55,136 
 6520 DATA 169,131,169,  3, 81,135,123,133 
 6530 DATA 169,131,156,132,123,133, 81,135 
 6540 REM    T  A  K  T    4 ************ 
 6550 DATA 66,131, 66,  3,133,134,226,132 
 6560 DATA 66,131, 81,135,226,132,133,134 
 6570 DATA 27,132, 27,  4, 55,136, 39,134 
 6580 DATA 27,132,226,132, 39,134, 55,136 
 6590 REM    T  A  K  T    5 ************ 
 6600 DATA 27,132, 27,  4, 55,136, 39,134 
 6610 DATA 27,132, 27,  4, 55,136, 39,134 
 6620 DATA 27,132, 27,  4, 55,136, 39,134 
 6630 DATA 27,132,226,132, 39,134, 55,136 
 6640 REM    T  A  K  T    6 ************ 
 6650 DATA 27,132, 27,  4, 55,136, 39,134 
 6660 DATA 27,132, 27,  4, 55,136, 39,134 
 6670 DATA 27,132, 27,  4, 55,136, 39,134 
 6680 DATA 27,132,226,132, 39,134, 55,136 
 6690 REM    T  A  K  T    7 ************ 
 6700 DATA 27,132, 27,  4, 55,136, 39,134 
 6710 DATA 27,132,226,132, 39,134, 55,136 
 6720 DATA 169,131,169,  3, 81,135,123,133 
 6730 DATA 169,131,156,132,123,133, 81,135 
 6740 REM    T  A  K  T    8 ************ 
 6750 DATA 66,131, 66,  3,133,134,226,132 
 6760 DATA 66,131, 81,135,226,132,133,134 
 6770 DATA 66,131, 66,  3,133,134,226,132 
 6780 DATA 66,131, 81,135,226,132,133,134 
 6790 REM    T  A  K  T    9 ************ 
 6800 DATA 226,132,226,  4,196,137, 81,135 
 6810 DATA 226,132,226,  4,196,137, 81,135 
 6820 DATA 226,132,226,  4,196,137, 81,135 
 6830 DATA 226,132, 39,134, 81,135,196,137 
 6840 REM    T  A  K  T   10 ************ 
 6850 DATA 226,132,226,  4,196,137, 81,135 
 6860 DATA 226,132,226,  4,196,137, 81,135 
 6870 DATA 226,132,226,  4,196,137, 81,135 
 6880 DATA 226,132, 39,134, 81,135,196,137 
 6890 REM    T  A  K  T   11 ************ 
 6900 DATA 39,134, 39,  6, 78,140, 56,137 
 6910 DATA 039,134,081,135,056,137,078,140 
 6920 DATA 123,133,123,  5,247,138, 55,136 
 6930 DATA 123,133,232,134,055,136,247,138 
 6940 REM    T  A  K  T   12 ************ 
 6950 DATA 226,132,226,  4,196,137, 81,135 
 6960 DATA 226,132, 39,134, 81,135,196,137 
 6970 DATA 226,132,226,  4,196,137, 81,135 
 6980 DATA 226,132, 39,134, 81,135,196,137 
 6990 REM    T  A  K  T   13 ************ 
 7000 DATA 226,132,226,  4,196,137, 81,135 
 7010 DATA 226,132,226,  4,196,137, 81,135 
 7020 DATA 226,132,226,  4,196,137, 81,135 
 7030 DATA 226,132, 39,134, 81,135,196,137 
 7040 REM    T  A  K  T   14 ************ 
 7050 DATA 226,132,226,  4,196,137, 81,135 
 7060 DATA 226,132,226,  4,196,137, 81,135 
 7070 DATA 226,132,226,  4,196,137, 81,135 
 7080 DATA 226,132, 39,134, 81,135,196,137 
 7090 REM    T  A  K  T   15 ************ 
 7100 DATA 39,134, 39,  6, 78,140, 56,137 
 7110 DATA 39,134, 81,135, 56,137, 78,140 
 7120 DATA 123,133,123,  5,247,138, 55,136 
 7130 DATA 123,133,232,134, 55,136,247,138 
 7140 REM    T  A  K  T   16 ************ 
 7150 DATA 226,132,226,  4,196,137, 81,135 
 7160 DATA 226,132, 39,134, 81,135,196,137 
 7170 DATA 27,132, 27,  4, 55,136, 39,134 
 7180 DATA 27,132,226,132, 39,134, 55,136 
 7190 : 
 7200 DATA 120,169, 50,141,  8,212,141,  1,212,169 
 7210 DATA  3,141,  3,212,169, 17,141, 12,212,141 
 7220 DATA  5,212,169, 32,141, 11,212,169, 33,141 
 7230 DATA 11,212,169,242,141,  6,212,169,114,141 
 7240 DATA 13,212,169, 15,141, 24,212,169, 16,141 
 7250 DATA  4,212,169,129,141,  4,212,173, 32,208 
 7260 DATA 72,173, 33,208, 72,162,  2,134,  2,162 
 7270 DATA 128,160,255,238, 32,208,238, 33,208,173 
 7280 DATA 24,212, 73, 15,141, 24,212,136,208,239 
 7290 DATA 202,208,234,198,  2,208,228, 88,169,  0 
 7300 DATA 141,  4,212,141, 11,212,141, 24,212,104 
 7310 DATA 141, 33,208,104,141, 32,208, 96 
 7320 DATA 169,  4,141,136,  2,169,131,141,  2,  3 
 7330 DATA 169,164,141,  3,  3,  0,  0,172,  1,  0 
 7340 DATA  2, 80,130,  1,  1,  3,172,110, -1,  0 
 7350 DATA  2, 42, 42,42, 32,28, 54, 53, 49, 48 
 7360 DATA 32,158, 42, 42, 42,254,172, -1,  0,  2 
 7370 DATA 130, 80, -1,  1,  3,173,255,  1,  0,  2 
 7380 DATA  0, 70

Listing »6510«. Beachten Sie den Checksummer 64