Crantor — Bedrohung aus dem All

petcat | Checksummer

100 t1=65:t2=65:te=25:tt=18
110 restore:sr=50168
120 v=53248:s1=54272:s2=s1+7:s3=s2+7
130 ifru=0thendims$(15),v$(10),f1(2,5,4),f2(2,5,4),th(14),tl(14),fh(7),fl(7)
140 ifru=0thendeffnr(x)=int(rnd(1)*x)+1:dimh(3,140),l(3,140)
150 poke53280,6:poke53281,6:print"{clr}{yel}"
160 pokev+21,0:pokes1+4,0:pokes2+4,0:pokes3+4,0
170 printtab(9)"{down}die saga von  'crantor'"
180 print"{down}{down}{down}{down}{down}{dish}      {rvon}  bitte einen moment geduld {rvof}":rem ctrl 'h'
190 print"      {rvon}   daten werden eingelesen  {rvof}"
200 print"{down}{down}{down}        written in     maerz 1984
210 print"{down}{down}        animation:   realisation:"
220 print"{down}        jan  jens      andreas"
230 print"        muentinga      luening"
240 pokes1+24,31:restore:forz=1to2:fory=1to4:forx=1to5
250 readf1(z,x,y):next:next:next
260 forz=1to2:fory=1to4:forx=1to5
270 readf2(z,x,y):next:next:next
280 ifru=1then340
290 fori=51200to52160:reada:pokei,a:next
300 fori=1to15:reads$(i):next:fori=1to10:readv$(i):next
310 fori=1to14:readth(i):readtl(i):next
320 fori=1to7:readfh(i):readfl(i):next:gosub8350
330 fori=52224to52736:reada:pokei,a:next:gosub9060
340 gosub4350:print"{clr}";:poke53280,6:poke53281,6
350 pz=1:px=4:py=4:poke198,0:ti$="000000"
360 print"{yel}";
370 ifpz>2then6570
380 ifpz<1then6610
390 ifk$="u"ork$="h"thengosub5970:goto420
400 ifk$="d"ork$="r"thengosub6030:goto420
410 gosub5500
420 l=0:we=0:print"{clr}";:f1=f1(pz,px,py):f2=f2(pz,px,py):pokev+21,0
430 iff1<>0then520
440 ifpz=1andpx=5andpy=4thenk$="du bist beim schiff!":r$="":goto540
450 poke53281,0:fori=1to20:printtab(rnd(1)*39)"{wht}.":next:print"{yel}";
460 k$="du bist ausserhalb der basis gelandet."
470 if(haand64)<>64then6450
480 if(haand128)<>128then6420
490 we=1:if(f1(pz,px,py+1)and1)<>1thenwe=0
500 k$=k$+chr$(13)+"  eine tuer fuehrt nach sueden."
510 r$="-h-r":goto1140
520 r$="":k$="":poke53281,6
530 ifpz=1andpx=5andpy=4thenk$="du bist bei deinem schiff!":r$="":goto540
540 fori=1to4:printtab(i)"M"spc(38-2*i)"N":next
550 printtab(i)"O{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}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P"
560 fori=1to10:printtab(5)"{CBM-H}"spc(28)"{CBM-N}":next
570 printtab(5)"L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}"
580 fori=4to1step-1:printtab(i)"N"spc(38-2*i)"M":next
590 forq=0to12:if(f1and(2^q))<>2^qthen610
600 onq+1gosub620,690,730,740,780,810,850,860,900,930,970,990,1100
610 nextq:goto1140
620 print"{home}{down}{down}{down}{down}{down}{down}";:r$=r$+"-n"
630 print,"      {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
640 print,"     {CBM-N}M      N{CBM-H}"
650 print,"     {CBM-N} O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P {CBM-H}"
660 fori=1to6:print,"     {CBM-N} {CBM-H}    {CBM-N} {CBM-H}":next
670 print,"{rght}{rght}{rght}{rght}{rght}{SHIFT-@}N      ML"
680 return
690 print"{home}{down}{down}{down}{down}{down}";:r$=r$+"-w"
700 print" {CBM-N}M":print" {CBM-N} M":print" {CBM-N}{CBM-Y}P"
710 fori=1to8:print" {CBM-N} {CBM-N}":next
720 print" {CBM-N} {CBM-N}":print" {CBM-N}{CBM-Y}{CBM-Y}":print" {CBM-N}  ":return
730 r$=r$+"-s":return
740 print"{home}{down}{down}{down}{down}":r$=r$+"-o"
750 printtab(36)" N{CBM-H}":printtab(36)"N {CBM-H}":printtab(36)"O{CBM-Y}{CBM-H}"
760 fori=1to9:printtab(36)"{CBM-H} {CBM-H}":next
770 printtab(36)"{CBM-Y}{CBM-Y}{CBM-H}":printtab(36)"  {CBM-H}":return
780 gosub620
790 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}";
800 fori=1to7:print,"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      {rvof}":next:return
810 print"{home}{down}{down}{down}{down}{down}";:r$=r$+"-w"
820 print" {CBM-N}{rvon}{CBM-*}":print" {CBM-N}{rvon} {CBM-*}":print" {CBM-N}{rvon}  "
830 fori=1to8:print" {CBM-N}{rvon}  ":next
840 print" {CBM-N}{rvon}  ":print" {CBM-N}{rvon} {rvof}{SHIFT-POUND}":print" {CBM-N}{SHIFT-POUND}":return
850 r$=r$+"-{rvon}s{rvof}":return
860 print"{home}{down}{down}{down}{down}":r$=r$+"-o"
870 printtab(36)" {rvon}{SHIFT-POUND}{rvof}{CBM-H}":printtab(36)"{rvon}{SHIFT-POUND} {rvof}{CBM-H}"
880 fori=1to10:printtab(36)"{rvon}  {rvof}{CBM-H}":next
890 printtab(36)"{CBM-*}{rvon} {rvof}{CBM-H}":printtab(36)" {CBM-*}{CBM-H}":return
900 pokesr,38:pokesr+1,39:pokev,230:pokev+1,100:pokev+2,230:pokev+3,142
910 pokev+23,3:pokev+29,3:pokev+39,1:pokev+40,1:pokev+21,3
920 pokev+23,3:pokev+29,3:so=1:return
930 pokesr,40:pokesr+1,41:pokev,90:pokev+1,100:pokev+2,90:pokev+3,142
940 pokev+39,0:pokev+40,0:pokev+21,3
950 pokev+23,3:pokev+29,3:im=1
960 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{wht}   {down}{left}{left}{left}  {rvof}{yel}";:return
970 k$="du bist im lift.":r$=r$+"-h-r":l=1
980 print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(26)"UI{down}{left}{left}{SHIFT--}{SHIFT--}{down}{left}{left}JK":return
990 k$="du hast die energie zentrale erreicht.":print"{home}{down}{down}{down}{down}"
1000 printtab(6)"O{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}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P"
1010 printtab(6)"{CBM-H}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P  O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P  O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-N}"
1020 printtab(6)"{CBM-H}{CBM-H}    {CBM-N}  {CBM-H}    {CBM-N}  {CBM-H}        {CBM-N}{CBM-N}"
1030 printtab(6)"{CBM-H}{CBM-H}    {CBM-N}  {CBM-H}    {CBM-N}  {CBM-H}        {CBM-N}{CBM-N}"
1040 printtab(6)"{CBM-H}L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}  L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}  {CBM-H} Z      {CBM-N}{CBM-N}"
1050 printtab(6)"{CBM-H}{orng}QQQ     QQQ{yel}     {CBM-H}        {CBM-N}{CBM-N}"
1060 printtab(6)"{CBM-H}        W       {CBM-H}        {CBM-N}{CBM-N}"
1070 printtab(6)"{CBM-H}                L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{CBM-N}"
1080 printtab(6)"L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{yel}"
1090 return
1100 k$="da ist kein c64 sondern ein computer"
1110 print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(26)"O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P"
1120 printtab(26)"{CBM-H}OP  Q{CBM-N}":printtab(26)"{CBM-H}L{SHIFT-@} QQ{CBM-N}":printtab(26)"{CBM-H}   WQ{CBM-N}"
1130 printtab(26)"L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}":return
1140 print"{home}{rght}{rght}"k$:k$=""
1150 forq=0to8:if(f2and(2^q))<>(2^q)then1170
1160 onq+1gosub1190,1260,1320,1350,1390,1470,1550,1630,1710
1170 nextq
1180 goto1790
1190 k$=k$+" outdoor-card"
1200 pokesr,35:pokev+39,10
1210 pokev,95:pokev+1,180
1220 pokev+23,peek(v+23)and254
1230 pokev+29,peek(v+29)and254
1240 pokev+21,peek(v+21)or1:return
1250 return
1260 k$=k$+" indoor-card"
1270 pokesr+1,35:pokev+40,0
1280 pokev+2,110:pokev+3,195
1290 pokev+23,peek(v+23)and253
1300 pokev+29,peek(v+29)and253
1310 pokev+21,peek(v+21)or2:return
1320 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":rem 16
1330 printtab(30)"OP{down}{left}{left}L{SHIFT-@}"
1340 k$=k$+" bombe":return
1350 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":rem 16
1360 printtab(10)"{gry2}{rvon}{CBM-U}{CBM-U}{CBM-U}{rvof}FF{yel}"
1370 k$=k$+" zuender"
1380 return
1390 k$=k$+" schwert"
1400 pokesr+2,34
1410 pokev+16,4
1420 pokev+4,35:pokev+5,150
1430 pokev+23,peek(v+23)or4
1440 pokev+29,peek(v+29)or4
1450 pokev+21,peek(v+21)or4
1460 pokev+41,3:return
1470 k$=k$+" strahlenanzug"
1480 pokesr+3,32:pokesr+4,33
1490 pokev+6,230:pokev+7,105:pokev+8,230:pokev+9,145
1500 pokev+23,peek(v+23)or24
1510 pokev+29,peek(v+29)or24
1520 pokev+21,peek(v+21)or24
1530 pokev+42,7:pokev+43,7
1540 return
1550 k$=k$+" raumanzug"
1560 pokesr+3,32:pokesr+4,33
1570 pokev+6,230:pokev+7,105:pokev+8,230:pokev+9,145
1580 pokev+23,peek(v+23)or24
1590 pokev+29,peek(v+29)or24
1600 pokev+21,peek(v+21)or24
1610 pokev+42,8:pokev+43,8
1620 return
1630 k$=k$+" o-tank"
1640 pokesr+5,36
1650 pokev+10,255:pokev+11,150
1660 pokev+23,peek(v+23)or32
1670 pokev+29,peek(v+29)or32
1680 pokev+21,peek(v+21)or32
1690 pokev+44,14
1700 return
1710 k$=k$+" uran"
1720 pokesr+6,37
1730 pokev+12,150:pokev+13,175
1740 pokev+23,peek(v+23)or64
1750 pokev+29,peek(v+29)or64
1760 pokev+21,peek(v+21)or64
1770 pokev+45,7
1780 return
1790 print"{home}{down}{rght}{rght}{rght}"k$:k$="":t=0
1800 f2=f2(pz,px,py)
1810 if(haand32)<>32and(((f2(pz,px,py)and256)=256)or((haand256)=256))then6510
1820 ifim=1thenze=ze+1:ifze=2then6520
1830 ifso=1thenze=ze+1:ifze=2then6520
1840 ifpz=1andpx=1andpy=3then6610
1850 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:rem 21
1860 printr$
1870 print":                      {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:rem 22
1880 geta$:t=t+1:ifco=1andti-ts>4500then6410
1890 if(im=1orso=1)and(t>450)then6520
1900 ifa$=""then1880
1910 ifa$=chr$(13)then1950
1920 ifa$=chr$(20)andk$<>""thenk$=left$(k$,len(k$)-1):print"{left} {left}";:goto1880
1930 k$=k$+a$:printa$;
1940 goto1880
1950 iflen(k$)>1then2320
1960 fori=1to9:ifk$=mid$("nwsohreud",i,1)then1980
1970 next:goto2220
1980 onigoto1990,2020,2050,2090,2120,2150,2090,2120,2150
1990 if(f1and1)=1thenpy=py-1:goto370
2000 if(f1and16)<>16then2180
2010 goto2200
2020 if(f1and2)=2thenpx=px-1:goto370
2030 if(f1and32)<>32then2180
2040 goto2200
2050 if(f1and4)=4thenpy=py+1:goto370
2060 ifwe=1thenpy=py+1:goto370
2070 if((f1and64)<>64)andwe=1then2180
2080 goto2200
2090 if(f1and8)=8thenpx=px+1:goto370
2100 if(f1and128)<>128then2180
2110 goto2200
2120 if((f1and1024)<>1024)andf1<>0then2200
2130 pz=pz+1
2140 goto370
2150 if((f1and1024)<>1024)andf1<>0then2200
2160 pz=pz-1
2170 goto370
2180 k$="was ist?!"
2190 goto1790
2200 k$="die tuer ist zu!"
2210 goto1790
2220 k$="was soll denn das heissen?"
2230 goto1790
2240 k$="witzbold!"
2250 goto1790
2260 k$=s$+"- seh ich nicht!"
2270 goto1790
2280 k$="mehr kannst du(!) nicht tragen."
2290 goto1790
2300 k$="das hast du nicht in der hand."
2310 goto1790
2320 ifk$="ende"ork$="quit"thenend
2330 ifk$="save"then3640
2340 ifk$="load"then3780
2350 ifk$="bete"ork$="pray"then3490
2360 ifk$="list"then3510
2370 ifk$="zeit"ork$="time"then3560
2380 ifk$="start"ork$="starte"then3910
2390 fori=1tolen(k$):ifmid$(k$,i,1)=" "then2410
2400 next:goto2220
2410 v$=left$(k$,i-1):s$=right$(k$,len(k$)-i):gosub2630
2420 fori=1to10:ifv$=v$(i)then2440
2430 next:goto2220
2440 ve=i:fori=0to14:ifs$=s$(i+1)then2460
2450 next:goto2220
2460 s=i
2470 onvegoto2490,2490,2580,2580,2680,2850,2890,3060,3430,3490
2480 goto2220
2490 if(f2and(2^s))<>(2^s)then2260
2500 ifhn=5then2280
2510 ifs=9ors=10then2240
2520 ifs=12ors=13then2240
2530 ifs=11then2280
2540 hn=hn+1
2550 ha=haor(2^s)
2560 f2(pz,px,py)=f2-(2^s)
2570 gosub5870:goto420
2580 if(haand(2^s))<>(2^s)then2300
2590 hn=hn-1
2600 ha=ha-(2^s)
2610 f2(pz,px,py)=f2or(2^s)
2620 gosub5870:goto420
2630 ifv$="destroy"thenv$="zerstoere"
2640 ifv$="fill"orv$="fuelle"thenv$="lade"
2650 ifv$="kill"thenv$="toete"
2660 ifv$="open"thenv$="oeffne"
2670 return
2680 ifs=12then2750
2690 ifs=9ors=10then2890
2700 if(haand(2^s))=(2^s)then2730
2710 k$="du hasts' nicht in der hand."
2720 goto1790
2730 ha=ha-(2^s):k$="ok."
2740 gosub5870:goto1790
2750 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:rem 21
2760 ifpz<>2orpx<>1orpy<>3then2830
2770 print"hast du den zuender";:inputa$
2780 ifa$<>"j"or((haand8)<>8)then2840
2790 print"{up}ist die bombe da:        {left}{left}{left}{left}{left}{left}{left}{left}{left}";:inputa$:rem 9
2800 ifa$<>"j"or((haand4)<>4)then2840
2810 co=1:hn=hn-2:ha=ha-12
2820 k$="countdown beginnt    : 45 sec.":ts=ti:goto1790
2830 k$=s$+"-wo ist das":goto1790
2840 k$="zersoerung unmoeglich!":goto1790
2850 ifs<>14thenk$="schoenes wetter heute, nicht?!":goto1790
2860 ifpz<>1orpx<>5orpy<>4thenk$="hier ist kein schiff":goto1790
2870 if(haand256)<>256thenk$="du brauchst dazu uran.":goto1790
2880 re=1:hn=hn-1:ha=ha-256:k$="geladen":gosub5870:goto1790
2890 ifs=9then2930
2900 ifs=10then2970
2910 if(haand(2^s))<>2^sthen2300
2920 forz=1to2:forx=1to5:fory=1to4
2930 if(f1and256)<>256then2260
2940 if(haand16)<>16then3050
2950 f1(pz,px,py)=f1-256
2960 so=0:ze=0:gosub5600:goto420
2970 if(f1and512)<>512then2260
2980 if(haand16)<>16then3050
2990 f1(pz,px,py)=f1-512
3000 z=fnr(2):x=fnr(4):y=fnr(4)
3010 if(f2(z,x,y)<>0)or((f1(z,x,y)and256)=256)then3000
3020 pokev+21,0:k$="so kannst du ihn nicht toeten!"
3030 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}    {down}{left}{left}{left}{left}    "
3040 gosub5810:f1(z,x,y)=f1(z,x,y)or512:im=0:ze=0:goto1790
3050 k$="du kannst ihn nicht toeten!":goto1790
3060 ifs<>13then3420
3070 ifpy<>0then3100
3080 if(haand1)<>1then2020
3090 f1(pz,px,py+1)=(f1(pz,px,py+1)-16)or1:gosub5560:goto420
3100 onpzgoto3110,3190,3360
3110 ifpx<>2orpy<>1then3150
3120 if(f1(pz,px,py)and16)<>16then2260
3130 if(haand1)<>1then2020
3140 f1(pz,px,py)=(f1(pz,px,py)-16)or1:gosub5560:goto420
3150 ifpx<>3orpy<>2then2260
3160 if(f1(pz,px,py)and128)<>128then2260
3170 if(haand2)<>2then2020
3180 f1(pz,px,py)=(f1-128)or8:gosub5560:goto420
3190 ifpx=1andpy=1then3240
3200 ifpx=1andpy=2then3280
3210 ifpx=2andpy=1then3320
3220 goto2260
3230 k$="da ist keine tuer.":goto1790
3240 if(f1(pz,px,py)and64)<>64then2260
3250 if(haand2)<>2then2020
3260 f1(pz,px,py)=(f1-64)or4:f1(pz,px,py+1)=(f1(pz,px,py+1)-16)or1
3270 gosub5560:goto420
3280 if(f1(pz,px,py)and16)<>16then2260
3290 if(haand2)<>2then2020
3300 f1(pz,px,py)=(f1-16)or1:f1(pz,px,py-1)=(f1(pz,px,py-1)-64)or4
3310 gosub5560:goto420
3320 if(haand1)<>1then2180
3330 if(f1and16)<>16then2260
3340 f1(pz,px,py)=(f1-16)or1
3350 gosub5560:goto420
3360 ifpx=2andpy=1then3390
3370 ifpx=4andpy=3then2020
3380 goto2260
3390 if(f1(pz,px,py)and16)<>16then2260
3400 if(haand1)<>1then2020
3410 forz=1to2:forx=1to5:fory=1to4
3420 k$="das kannst du nicht oeffnen":goto1790
3430 ifs<>11thenk$="waaas!!??":goto1790
3440 ifpz<>2orpx<>3orpy<>1thenk$="wo siest du einen computer":goto1790
3450 onfnr(3)goto3460,3470,3480
3460 goto6410
3470 f2(pz,px,py)=ha:ha=0:goto420
3480 f1(pz,px,py)=f1(pz,px,py)or768:goto420
3490 k$="eine stimme sagt dir: dir werden{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}alle suenden vergeben!"
3500 goto1790
3510 print"{clr}{down}{down}{rght}{rght}{rght}du haelst momentan:{down}"
3520 fori=0to8:if(haand(2^i))<>(2^i)then3540
3530 print"{rght}{rght}{rght}"s$(i+1)
3540 next:k$=""
3550 goto1790
3560 k$="zeit= "+left$(ti$,2)+":"+mid$(ti$,3,2)+":"+right$(ti$,2)
3570 ifco=0then1790
3580 k$=k$+"  -  countdown= "
3590 t$=mid$(str$(ti-ts),2)
3600 fori=1to6:iflen(t$)=6then3620
3610 t$="0"+t$:next
3620 k$=k$+mid$(t$,2,3)
3630 goto1790
3640 print"{clr}":input"file-name";n$
3650 print"{clr}":input"disk oder kassette (d/k)";ww$
3660 ifww$="k"thenopen1,1,1,n$
3670 ifww$="d"thenopen1,8,2,n$+",s,w"
3680 ifww$<>"d"andww$<>"k"then3650
3690 print#1,pz:print#1,px:print#1,py:print#1,ha:print#1,hn:print#1,we
3700 print#1,l:print#1,so:print#1,im:print#1,co:print#1,so:print#1,re
3720 print#1,ts:print#1,ti$
3730 forz=1to2:forx=1to5:fory=1to4
3740 print#1,f1(z,x,y)
3750 print#1,f2(z,x,y)
3760 next:next:next:close1
3770 goto420
3780 print"{clr}":input"file-name";n$
3790 print"{clr}":input"disk oder kassette (d/k)";ww$
3800 ifww$="k"thenopen1,1,0,n$
3810 ifww$="d"thenopen1,8,2,n$+",s,r"
3820 ifww$<>"d"andww$<>"k"then3790
3830 input#1,pz:input#1,px:input#1,py:input#1,ha:input#1,hn:input#1,we
3840 input#1,l:input#1,so:input#1,im:input#1,co:input#1,so:input#1,re
3850 input#1,ts:input#1,t$:ti$=t$
3860 forz=1to2:forx=1to5:fory=1to4
3870 input#1,f1(z,x,y)
3880 input#1,f2(z,x,y)
3890 next:next:next:close1
3900 goto420
3910 ifpz<>1orpx<>5orpy<>4thenk$="wo siehst du dein schiff?":goto1790
3920 ifre=0thenk$="keine energie da!":goto1790
3930 goto4030
3940 print"{wht}{clr}":pokev+21,0
3950 pokesr,42:pokesr+1,48:pokesr+2,45:pokesr+3,46:pokesr+4,46:pokesr+5,49
3960 pokev+23,1:pokev+29,1:pokev,255:pokev+1,127:pokev+2,0:pokev+3,0
3970 pokev+4,50:pokev+5,96:pokev+16,0
3980 pokev+6,150:pokev+7,120
3990 pokev+8,75:pokev+9,170
4000 pokev+39,12:pokev+40,3:pokev+41,10:pokev+42,4:pokev+43,14:pokev+44,3
4010 fori=1to20:printtab(fnr(39))".":next
4020 return
4030 poke53280,0:poke53281,0:gosub3940:pokev+21,63:pokes3+5,32:pokes3+6,255
4040 pokes1+5,240:pokes1+6,253:pokes2+5,196:pokes2+6,253
4050 pokes1+1,100:pokes2+1,50:pokes1+4,129:pokes2+4,129
4060 forw=1to4500:next:pokes1+24,15:pokes3+4,33:pokev+3,140:ifso=1then4120
4070 pokev+11,140
4080 forx=231to0step-2:pokev+2,x:pokev+10,x+23:pokes1+1,x:pokes2+1,x
4090 pokes3+1,231-x:next
4100 pokev+10,0:pokev+2,0
4110 ifco=0thenpokes1+4,128:pokes2+4,128:pokes3+4,32:goto4160
4120 pokes3+4,32:pokesr,43:forw=1to20:pokev+39,fnr(15)
4130 pokes1+1,fnr(255):next:pokev+39,2
4140 pokes2+1,fnr(255):forw=15to5step-.02:pokes1+24,w:ifw<12thenpokev+21,62
4150 next:pokes1+4,128:pokes2+4,128
4160 ifso=1thenprint"{home}{gry2}du hast dich selbst mit in die luft ge- sprengt!!"
4170 ifco=0thenprint"{home}{gry2}du hast vergessen die basis zu          zerstoeren!"
4180 print"{home}{gry2}{down}{down}{down}{down}zeit: "left$(ti$,2)":"mid$(ti$,3,2)":"right$(ti$,2)
4190 forw=1to2000:next
4200 pokev+21,0
4210 poke198,0:poke53280,0:poke53281,0
4220 fori=1to22:printtab(int(rnd(0)*39))"{wht}.":next
4230 pokesr,48:pokesr+1,49:pokesr+2,50
4240 pokesr+3,53:pokesr+4,54:pokesr+5,55:pokesr+6,51:pokesr+7,52
4250 pokev+23,56:pokev+29,63:pokev+39,3:pokev+40,3:pokev+41,1:pokev+42,14
4260 pokev+43,14:pokev+44,14
4270 pokev,124:pokev+1,160:pokev+2,172:pokev+3,160
4280 pokev+4,148:pokev+5,175:pokes1+5,192:pokes1+6,255:pokes1+1,4:pokes1+4,129
4290 pokev+6,100:pokev+8,148:pokev+10,196:pokev+7,75:pokev+9,75:pokev+11,75
4300 pokev+5,176:printtab(int(rnd(0)*37))"{wht}.":pokev+5,177:pokev+21,7
4310 pokev+5,176:pokev+5,175:printtab(fnr(38))"{wht}."
4320 geta$:ifa$=""then4310
4330 ha=0:hn=0:we=0:l=0:so=0:im=0:ze=0:co=0:so=0:re=0:ru=1:goto240
4340 goto4340
4350 poke198,0:print"{clr}":poke53280,0:poke53281,0
4360 fori=1to22:printtab(int(rnd(0)*39))"{wht}.":next
4370 pokesr,48:pokesr+1,49:pokesr+2,50
4380 pokesr+3,53:pokesr+4,54:pokesr+5,55:pokesr+6,51:pokesr+7,52
4390 pokev+23,56:pokev+29,63:pokev+39,3:pokev+40,3:pokev+41,1:pokev+42,14
4400 pokev+43,14:pokev+44,14
4410 pokev,124:pokev+1,160:pokev+2,172:pokev+3,160
4420 pokev+4,148:pokev+5,175
4430 pokev+6,100:pokev+8,148:pokev+10,196:pokev+7,75:pokev+9,75:pokev+11,75
4440 pokev+5,176:printtab(int(rnd(0)*37))"{wht}.":pokev+5,177:pokev+21,63
4450 pokev+5,176:pokev+5,175:gosub6090
4460 al=0
4470 ifa$="i"thenal=1
4480 pokev+21,59
4490 fori=75to0step-1:pokev+7,i:pokev+9,i:pokev+11,i:gosub5380:next
4500 pokes2+1,10:pokes2+5,95:pokes2+6,255:pokes2+4,129:pokev+21,7
4510 fori=160to75step-1:gosub5380:pokev+1,i:pokev+3,i:pokev+5,i+17:next
4520 pokes2+4,128
4530 pokev+21,27:ee=0:gosub4950
4540 l$=" {CBM-@}{CBM-@}{CBM-P}{CBM-P}{CBM-O}{CBM-O}{CBM-O}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-O}{CBM-O}{CBM-O}{CBM-P}{CBM-P}{CBM-@}{CBM-@} "
4550 pokesr+3,51:pokesr+4,52:pokev+6,134:pokev+8,182:y=225
4560 pokev+42,6:pokev+43,6:pokev+23,0:pokev+29,63
4570 print"{orng}"l$;:forw=1to100:next
4580 y=y-8:pokev+7,y:pokev+9,y
4590 fori=1to5:print"{rvon}                                        {rvof}";:rem 40
4600 y=y-8:pokev+7,y:pokev+9,y:forw=1to100:next:next
4610 x=peek(v):y=peek(v+1):aq=.2:pq=0:bq=0:xq=0:pokes1+1,10:pokes1+5,0
4620 pokes1+6,248
4630 x=x+xq+3:ifxq<>0thenxq=xq-sgn(xq)*.25
4640 pq=pq+aq-bq/10:y=y+pq
4650 ifpq<-3thenpq=-3
4660 ifpq>3thenpq=3
4670 ify<0theny=0
4680 ifx<0thenx=0
4690 x1=x:x2=x+48:x3=x+24:a=0
4700 pokev,x1and255:pokev+1,y:if(x1and256)=256thena=a+1:pokev+16,aorpeek(v+16)
4710 pokev+2,x2and255:pokev+3,y:if(x2and256)=256thena=a+2:pokev+16,aorpeek(v+16)
4720 pokev+4,x3and255:pokev+5,y+18:if(x3and256)=256thena=a+4
4730 ify>181then4890
4740 pokev+16,a:pokev+30,0:ifbq<>0thenpokev+21,31:bq=bq-2:pokes1+4,129
4750 j=peek(56321)
4760 if(jand16)=0thenbq=bq+6
4770 if(jand4)=0thenxq=xq-2
4780 if(jand8)=0thenxq=xq+2
4790 ifbq=0thenpokev+21,27:pokes1+4,128
4800 if(peek(v+30)and29)=29then4820
4810 goto4630
4820 ifx<120orx>150then4890
4830 pokes1+5,0:pokes1+6,242:pokes1+1,25
4840 fori=1to10:print"{home}{down}{rght}energie level = 0":pokes1+4,33
4850 forw=1to500:next:print"{home}{down}                    ":pokes1+4,32:forw=1to500
4860 next:next
4870 ifal=0thenreturn
4880 goto5180
4890 pokesr,43:pokesr+1,43:pokes1+5,0:pokes2+5,0:pokes1+6,252:pokes2+6,252
4900 pokes1+1,10:pokes2+1,10
4910 pokes1+4,33:pokes2+4,129
4920 forw=1to100:next:pokes1+4,32:pokes2+4,128
4930 forw=1to2000:next
4940 ee=1:gosub4950:goto4350
4950 k$="                                       "
4960 ifee=0thenk$=k$+"du bist "
4970 ifee=1thenk$=k$+"du warst "
4980 k$=k$+"zur rettung der vereinigten planeten beordert."
4990 ifee=0thenk$=k$+" deine aufgabe ist "
5000 ifee=1thenk$=k$+" deine aufgabe war "
5010 k$=k$+"es den garstigen imperator 'crantor', der das planetensystem "
5020 ifee=0thenk$=k$+"bedroht, "
5030 ifee=1thenk$=k$+"eroberte, "
5040 k$=k$+"unschaedlich zu machen!!"
5050 k$=k$+"                                         "
5060 ifal=0thenreturn
5070 pokes1+5,0:pokes1+6,244:pokes1+4,33:pokes2+5,0:pokes2+6,241:pokes2+4,129
5080 pokes1+1,50:pokes2+1,90
5090 fori=1tolen(k$)-40
5100 pokes1+4,33:pokes2+4,129:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:rem 22
5110 printmid$(k$,i,40)
5120 forw=1to40:next:pokes1+4,32:pokes2+4,128
5130 forw=1to40:next:pokes1+4,33:pokes2+4,129
5140 forw=1to40:next:pokes1+4,32:pokes2+4,128
5150 forw=1to40:next:pokes1+4,33:pokes2+4,129
5160 next:pokes1+4,32:pokes2+4,128:return
5170 goto5170
5180 pokesr,40:pokesr+1,41:pokev,40:pokev+1,160:pokev+2,40:pokev+3,202
5190 poke53280,6:poke53281,6
5200 pokev+23,3:pokev+29,3:pokev+21,3:pokev+39,0:pokev+40,0
5210 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{wht}{rvon}  {down}{left}{left}  {rvof}{yel}"
5220 print"{home}";
5230 pokev+24,10:printtab(8);
5240 k$="Hallo, Du elender Wicht!****":gosub5410
5250 k$="{down}  Willst Du tats1chlich versuchen mich,":gosub5410
5260 k$=" {orng}Crantor{yel}, und meine Basis zu zerst2ren?":gosub5410
5270 k$="{down}****  Setzt Du wahrhaftig Dein Leben aufs'":gosub5410
5280 k$="  Spiel, um dieses Andromeda-Gal1xchen":gosub5410
5290 printtab(15);:k$="zu retten?****":gosub5410
5300 k$="{down}  Dein Pech! Ich f3r meinen Teil hetze":gosub5410
5310 k$="meine {orng}Crames{yel} auf dich, bis das Schwarze":gosub5410
5320 k$=" dich erl24t. ***Du bist jetzt schon ein":gosub5410
5330 printtab(14);:k$="toter Mann!***":gosub5410
5340 print:print:print:printtab(16);
5350 k$="Nimms' leicht!":gosub5410:poke198,0
5360 geta$:ifa$=""then5360
5370 pokev+24,8:return
5380 printtab(int(rnd(0)*39))"{wht}."
5390 k$="d":return
5400 gosub5680:goto5390
5410 pokes1+5,0:pokes1+6,240:pokes2+5,0:pokes2+6,241
5420 fori=1tolen(k$)
5430 pokes2+1,(asc(mid$(k$,i,1))*2)and255:pokes1+1,asc(mid$(k$,i,1))
5440 ifmid$(k$,i,1)=" "then5470
5450 ifmid$(k$,i,1)="*"thenforw=1to300:next:goto5480
5460 pokes1+4,129:pokes2+4,129
5470 printmid$(k$,i,1);:forw=1to10:next
5480 pokes1+4,128:pokes2+4,128:next
5490 print:return
5500 pokes1,10:pokes1+1,10:pokes1+5,0:pokes1+6,245
5510 fori=1to4:pokes1+4,129
5520 forw=1to25:next
5530 pokes1+4,128
5540 forw=1to150:next:next
5550 return
5560 pokes1+5,5:pokes1+6,253:pokes2+5,5:pokes2+6,253
5570 pokes1,2:pokes2,2:pokes1+4,129:pokes2+4,33
5580 forf=1to125:pokes1+1,f*2:pokes2+1,f:next
5590 pokes1+4,128:pokes2+4,32:return
5600 pokes1,100:pokes1+1,100:pokes2,100:pokes2+1,15:pokes3,10:pokes3+1,100
5610 pokes1+5,10:pokes1+6,252
5620 pokes2+5,10:pokes2+6,250
5630 pokes3+5,5:pokes3+6,253
5640 pokes1+4,17+4:pokes2+4,33+2:pokes3,17+4
5650 forw=1to400:next
5660 pokes1+4,16+4:pokes2+4,16+4:pokes3+4,32+2
5670 return
5680 pokes1+5,5:pokes1+6,250:pokes2+5,5:pokes2+6,245:pokes1+24,21
5690 pokes1+2,100:pokes1+3,14:pokes2+2,100:pokes2+3,3
5700 q=1:forw=1to13step2:wh=4:ifw>8thenwh=2
5710 pokes2,fl(q):pokes2+1,fh(q):pokes2+4,t2
5720 forn=1towh:forl=0to1
5730 pokes1,tl(w+l):pokes1+1,th(w+l)
5740 pokes1+4,t1
5750 forww=1to50:nextww
5760 ifpeek(203)<>64thenpokes2+4,0:pokes1+24,31:return
5770 pokes1+4,t1-1
5780 forww=1to40:nextww
5790 nextl,n:pokes2+4,t2-1:q=q+1:nextw
5800 goto5680
5810 pokes1+5,5:pokes1+6,252
5820 fori=1to7:pokes1,fl(i):pokes1+1,fh(i):pokes1+4,17
5830 forw=1to100:next
5840 pokes1+4,16
5850 forw=1to100:next
5860 nexti:return
5870 pokes1+5,5:pokes1+6,252
5880 pokes1,20:pokes1+1,20
5890 pokes1+4,17
5900 forw=1to100:next:pokes1+4,16
5910 return
5920 pokes3+5,196:pokes3+6,255
5930 pokes3,10:pokes3+1,10
5940 pokes1+23,12:pokes3+4,129
5950 forw=1to5000:next:pokes3+4,128
5960 return
5970 pokes1+5,0:pokes1+6,252
5980 pokes3+5,0:pokes3+6,252:pokes1+23,0
5990 pokes1+4,17+4:pokes3+4,129
6000 fori=60to200:pokes1+1,i:pokes3+1,i:next
6010 pokes1+4,16+4:pokes3+4,128
6020 return
6030 pokes1+5,0:pokes1+6,252
6040 pokes3+5,0:pokes3+6,252:pokes1+23,0
6050 pokes1+4,17+4:pokes3+4,129
6060 fori=200to60step-1:pokes1+1,i:pokes3+1,i:next
6070 pokes1+4,16+4:pokes3+4,128
6080 return
6090 pokes1+23,242:pokes1+22,80
6100 pokes1+5,0:pokes1+6,202
6110 pokes2+5,0:pokes2+6,249
6120 pokes3+5,0:pokes3+6,253
6130 pokes1+2,112:pokes1+3,3
6140 pokes2+2,96:pokes2+3,14
6150 w1=64:w2=64:w3=32:n=1:s=0
6160 geta$:ifa$<>""thenpokes1+23,4:return
6170 ifh(1,n)>=0thenforw=1tott:next:goto6230
6180 goto6200
6190 ifh(1,n)>=0then6230
6200 ifh(1,n)=-.1thenn=1:goto6170
6210 ifs=1thens=0:n=n+1:goto6190
6220 s=1:n=-h(1,n)
6230 pokes1,l(1,n):pokes1+1,h(1,n)
6240 pokes2,l(2,n):pokes2+1,h(2,n)
6250 pokes3,l(3,n):pokes3+1,h(3,n)
6260 pokes1+4,w1+1:pokes2+4,w2+1:pokes3+4,w3+1
6270 forw=1tote:next
6280 pokes1+4,w1:pokes2+4,w2:pokes3+4,w3
6290 forw=1tote/2:next
6300 n=n+1:goto6160
6310 data004,028,002,004,0
6320 data265,011,134,003,0
6330 data004,1028,009,006,0
6340 data009,011,522,011,2
6350 data064,016,4100,004,0
6360 data024,266,011,263,0
6370 data2052,1032,014,003,0
6380 data265,010,011,002,0
6390 data64,2,32,16,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0
6400 data256,4,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
6410 so=1:goto4030
6420 print"{home} "k$
6430 print" ich fuerchte du hast keinen"
6440 print" o-tank.":goto6470
6450 print"{home} "k$
6460 print" ich fuerchte du hast keinen":print" raumanzug."
6470 pokes1+5,196:pokes1+6,253
6480 pokes1,30:pokes1+1,40:pokes1+4,129
6490 forw=1to5000:next:pokes1+4,128
6500 forw=1to1000:next:goto6670
6510 poke53280,4:print"{rght}{rght}die strahlen haben dich getoetet!":goto6670
6520 poke53281,2:n$="crame":gosub5600
6530 ifim=1thenn$="crantor"
6540 print"{clr}{down} der gewitzte "n$" hat dein leben"
6550 print" durch sein laser-schwert beendet!!"
6560 forw=1to1000:next:goto6670
6570 poke53281,0:print"{clr}":fori=1to20:printtab(rnd(1)*38)"{wht}.":next:print"{yel}"
6580 print"{home}{down} warum hast du die basis verlassen??":gosub5970
6590 print" du bist im all!":print" ohne hilfe!":print"du wirst bald sterben."
6600 goto6670
6610 poke53281,0
6620 print"{clr}{down} du bist in den keller gefallen!":gosub6030
6630 print" ein grosser berg abfall umgibt dich."
6640 print" es gibt keine moeglichkeit aus diesem"
6650 print" raum herauszukommen!!"
6660 print" {down}asche zu asche, staub zu staub..."
6670 t1=21:t2=21:forw=1to5000:next:gosub5680:goto4330
6680 data0,248,0,1,4,0,2,2
6690 data0,2,2,0,2,2,0,1
6700 data4,0,0,248,0,15,7,128
6710 data48,32,96,64,0,16,64,32
6720 data16,64,0,16,68,45,16,68
6730 data13,16,68,45,16,68,1,16
6740 data68,33,16,68,1,16,68,33
6750 data16,68,1,16,68,33,16,0
6760 data68,1,16,56,32,224,68,1
6770 data16,68,33,16,60,33,224,4
6780 data33,0,4,33,0,4,33,0
6790 data4,33,0,4,33,0,4,33
6800 data0,4,33,0,4,33,0,4
6810 data33,0,4,33,0,4,33,0
6820 data4,33,0,8,112,128,16,216
6830 data64,31,143,192,31,7,192,0
6840 data0,0,0,0,0,0,0,0
6850 data0,0,0,0,0,1,128,0
6860 data3,128,0,7,0,0,14,0
6870 data0,28,0,0,56,0,0,112
6880 data0,0,224,0,1,192,0,3
6890 data128,0,7,0,0,110,0,0
6900 data60,0,0,40,0,0,92,0
6910 data0,164,0,0,192,0,0,0
6920 data255,255,255,255,255,255,255,255
6930 data255,255,255,255,255,255,255,255
6940 data255,255,255,247,255,255,255,255
6950 data255,227,255,224,193,255,192,65
6960 data255,224,193,255,255,227,255,255
6970 data255,255,255,255,255,255,255,255
6980 data255,255,255,255,255,255,255,255
6990 data255,255,255,255,255,255,255,0
7000 data0,0,0,0,0,0,0,0
7010 data0,0,224,0,0,64,0,0
7020 data224,0,0,224,0,1,240,0
7030 data3,252,0,3,250,0,3,250
7040 data0,3,249,0,3,249,0,3
7050 data248,128,3,248,64,3,248,32
7060 data3,248,16,3,248,8,3,252
7070 data8,3,250,16,3,249,224,0
7080 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7090 data0,0,7,255,252,15,255,244
7100 data31,255,236,32,0,28,63,255
7110 data220,63,7,220,63,143,220,63
7120 data223,220,62,3,220,63,39,220
7130 data63,175,220,63,255,220,63,255
7140 data216,63,255,208,63,255,224,0
7150 data0,120,0,1,254,0,27,123
7160 data96,62,181,240,55,123,176,55
7170 data207,176,55,183,176,27,123,96
7180 data1,254,0,112,204,56,217,254
7190 data108,255,255,252,254,253,252,254
7200 data253,252,254,205,252,251,51,124
7210 data251,255,124,251,183,124,251,207
7220 data124,251,123,124,251,255,124,0
7230 data251,255,124,251,207,124,251,183
7240 data124,251,255,124,251,255,124,251
7250 data255,124,251,255,124,251,255,124
7260 data249,254,124,249,206,124,249,206
7270 data124,137,206,68,113,206,56,113
7280 data206,56,225,206,28,193,206,12
7290 data105,206,88,49,206,48,1,206
7300 data0,7,207,128,15,207,192,0
7310 data0,255,0,3,255,192,39,255
7320 data228,55,24,236,63,189,252,47
7330 data231,244,47,231,244,29,195,120
7340 data14,254,240,11,169,208,59,215
7350 data220,21,255,168,10,255,80,5
7360 data126,160,2,129,64,63,126,252
7370 data127,189,254,255,255,255,255,255
7380 data255,255,255,255,255,255,255,0
7390 data255,255,255,255,255,255,255,255
7400 data255,255,255,255,255,255,255,255
7410 data255,255,255,255,255,255,255,255
7420 data255,255,255,255,255,255,255,255
7430 data255,255,255,255,255,255,255,254
7440 data231,127,252,231,63,224,231,7
7450 data128,231,1,0,231,0,1,231
7460 data128,3,195,192,7,129,224,0
7470 data1,254,0,7,255,128,15,247
7480 data64,31,239,232,59,249,240,255
7490 data127,184,123,255,248,239,63,220
7500 data255,236,252,239,255,220,247,239
7510 data108,255,251,252,124,110,248,111
7520 data223,120,55,247,176,95,126,224
7530 data15,241,192,7,175,128,1,254
7540 data128,0,0,0,0,0,0,0
7550 data0,0,0,5,0,32,16,146
7560 data64,9,144,128,4,42,220,18
7570 data73,32,65,82,252,60,253,0
7580 data0,126,88,69,255,32,18,124
7590 data80,4,255,136,33,74,0,2
7600 data37,194,18,202,56,4,9,0
7610 data9,40,144,16,0,64,36,66
7620 data32,0,16,0,0,0,0,0
7630 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,8
7640 data0,0,2,0,0,21,28,3
7650 data176,38,7,106,255,255,116,255
7660 data252,116,0,0,137,0,0,34
7670 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7680 data0,0,0,0,0,0,112,0
7690 data115,192,0,255,0,1,254,0
7700 data1,252,0,1,252,0,3,248
7710 data0,14,112,0,56,0,0,0
7720 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7730 data0,0,112,0,0,248,0,1
7740 data252,0,1,252,0,1,252,0
7750 data0,248,0,0,112,0,0,0
7760 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7770 data0
7780 dataoutdoor-card,indoor-card,bombe,zuender,schwert,strahlenanzug,raumanzug
7790 datao-tank,uran,crame,crantor,computer,zentrale,tuer,schiff,nimm,get
7800 dataverlier,drop,zerstoere,lade,toete,oeffne,benutze,bete
7810 data26,20,34,205,26,20,31,3,27,160,34,207,26,20,32,219,32,219,26,20
7820 data23,59,29,69,19,137,26,20,17,103,20,178,13,208,13,10,13,10,19,137,13,10
7830 data7,7,81,4,6,133,4,5,207
7840 data1,6,133,1,0,0
7850 data11,7,81,4,5,207,1,6,133
7860 data3,7,81,4,8,180,4,7,193
7870 data4,8,180,1,7,81,1,0,0
7880 data3,7,81,8,7,193,4,8,180,1,7,81
7890 data3,7,81,4,5,207,4,7,81
7900 data4,5,207,1,7,81,1,0,0
7910 data3,7,81,4,5,207,4,7,81
7920 data4,5,207,1,7,81,1,0,0
7930 data3,8,55,4,9,196,4,8,55
7940 data4,9,196,1,8,55,1,0,0
7950 data16,6,133,2,0,0
7960 data3,5,207,13,4,226,1,0,0,15,4,226
7970 data3,4,226,13,5,207,1,0,0,16,5,207
7980 data3,5,207,13,4,226,1,0,0
7990 data3,4,226,13,5,207,1,0,0
8000 data3,5,207,13,6,133,1,0,0
8010 data8,9,196,8,55
8020 data39,18,43,219,46,118,58,138
8030 data58,138,52,39,46,118,52,39
8040 data52,39,46,118,43,219,46,118
8050 data46,118,43,219,43,219,39,18
8060 data-1,0,39,18,43,219,46,118
8070 data52,39,52,39,58,138,58,138
8080 data58,138,39,18,43,219,46,118
8090 data52,39,52,39,58,138,58,138,39,18
8100 data69,157,69,157,69,157,69,157
8110 data69,157,62,5,58,138,62,5
8120 data62,5,58,138,52,39,58,138
8130 data58,138,52,39,52,39,46,118,-34,0
8140 data46,118,52,39,58,138,62,5
8150 data62,5,69,157,69,157,69,157
8160 data46,118,52,39,58,138,62,5
8170 data62,5,69,157,69,157,46,118
8180 data39,18,43,219,46,118,58,138
8190 data58,138,58,138,58,138,39,18
8200 data39,18,43,219,46,118,58,138
8210 data58,138,58,138,58,138,39,18,-67,0
8220 data46,118,52,39,58,138,69,157
8230 data69,157,69,157,69,157,46,118
8240 data46,118,52,39,58,138,69,157
8250 data69,157,69,157,69,157,46,118,-84,0
8260 data52,39,58,138,65,181,78,36
8270 data78,36,78,36,78,36,52,39
8280 data52,39,58,138,65,181,78,36
8290 data78,36,78,36,78,36,52,39,-101,0
8300 data52,39,58,138,65,181,78,36
8310 data52,39,58,138,65,181,78,36
8320 data52,39,58,138,65,181,78,36
8330 data52,39,58,138,65,181,78,36
8340 data-118,0,-.1,0
8350 n=1:fori=1to38
8360 reada:readh:readl:fork=1toa:h(3,n)=h:l(3,n)=l
8370 n=n+1:next:next
8380 n=1:fori=1to17
8390 reada:readh:readl:fork=1toa:h(2,n)=h:l(2,n)=l
8400 n=n+1:next:next
8410 reada:readh1:readl1:readh2:readl2
8420 fori=1toa:h(2,n)=h1:l(2,n)=l1
8430 h(2,n+1)=h2:l(2,n+1)=l2:n=n+2
8440 next
8450 n=1:fori=1to135
8460 readh(1,n):readl(1,n):n=n+1:next
8470 return
8480 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0
8490 data0,31,0,0,127,0,1,244
8500 data0,31,255,0,127,255,7,255
8510 data255,255,245,85,7,255,255,0
8520 data31,255,0,3,255,0,0,15
8530 data0,0,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8540 data0,0,0,0,224,0,0,248
8550 data0,0,254,0,0,7,128,0
8560 data255,248,0,255,254,0,255,255
8570 data224,170,175,255,255,255,224,255
8580 data248,0,255,192,0,240,0,0
8590 data248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8600 data1,255,128,3,255,192,7,118
8610 data224,9,194,72,22,169,252,66
8620 data178,136,48,74,98,4,0,37
8630 data170,33,0,4,4,82,16,17
8640 data0,132,64,0,1,4,8,0
8650 data32,65,72,128,16,0,16,0
8660 data0,1,0,0,0,0,8,16
8670 data16,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8680 data0,0,255,255,255,255,255,255
8690 data255,255,255,231,57,206,231,57
8700 data206,255,255,255,231,57,206,255
8710 data255,255,255,255,255,255,255,255
8720 data255,255,255,255,255,255,255,255
8730 data255,255,255,255,255,255,255,0
8740 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8750 data0,0,255,255,255,255,255,255
8760 data255,255,255,115,156,231,115,156
8770 data231,255,255,255,115,156,231,255
8780 data255,255,255,255,255,255,255,255
8790 data255,255,255,255,255,255,255,255
8800 data255,255,255,255,255,255,255,0
8810 data3,255,192,6,0,112,12,0
8820 data28,24,0,7,48,60,1,48
8830 data102,0,48,195,0,49,131,0
8840 data49,131,0,25,131,0,13,134
8850 data0,7,140,0,3,248,0,1
8860 data128,1,1,128,51,1,128,118
8870 data1,128,220,1,129,152,0,195
8880 data16,0,198,16,0,124,16,0
8890 data0,0,0,0,0,0,0,0
8900 data0,0,0,0,192,0,1,126
8910 data0,1,3,254,1,0,3,255
8920 data0,0,1,0,0,1,0,0
8930 data1,63,0,1,97,141,225,192
8940 data207,49,192,206,49,192,204,49
8950 data192,204,48,192,204,48,192,236
8960 data48,97,188,24,63,24,15,0
8970 data0,0,0,0,0,0,0,0
8980 data0,0,0,0,152,0,0,140
8990 data0,0,140,0,0,248,0,0
9000 data128,0,0,135,224,0,140,48
9010 data0,152,24,0,152,24,3,152
9020 data24,6,152,24,236,152,25,184
9030 data204,51,48,103,230,48,49,140
9040 data48,27,24,48,254,48,48,0
9050 data0
9060 fori=832to832+33:reada:pokei,a:next
9070 sys832:poke53272,8:poke56576,peek(56576)and252:poke648,192
9080 reada:ifa=255thenreturn
9090 fori=0to7:readb:poke59392+i+a*8,b:next
9100 goto9080
9110 data120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
9120 data133,89,169,224,133,91,32,191,163,169,55,133,1,88,96
9130 data49,102,0,60,6,62,102,62,0
9140 data50,102,0,60,102,102,102,60,0
9150 data51,102,0,102,102,102,102,62,0
9160 data52,60,102,102,108,102,102,108,96
9170 data255
9180 :
9190 :
9200 rem  written in march 1984
9210 rem  by
9220 rem     andreas luening
9230 rem            +
9240 rem    jan jens muentinga
9250 :
9260 rem  programm ca 27 kbyte
9270 rem  gesammt  ca 34 kbyte
9280 :
9290 :
9300 rem q= crsr down  <= crsr left
9310 rem ^= crsr up    >= crsr right
9320 rem ~= ctrl '8'   e= ctrs '2'
9330 rem r= rvs on    "A"=  c= '1'
9340 rem"X"= c= '5'

 100 T1=65:T2=65:TE=25:TT=18 
 110 RESTORE :SR=50168 
 120 V=53248:S1=54272:S2=S1+7:S3=S2+7 
 130 IF RU=0 THENDIM S$(15),V$(10),F1(2,5,4),F2(2,5,4),TH(14),TL(14),FH(7),FL(7) 
 140 IF RU=0 THENDEF FN R(X)=INT (RND (1)*X)+1:DIM H(3,140),L(3,140) 
 150 POKE 53280,6:POKE 53281,6:PRINT"{CLR,YELLOW}" 
 160 POKE V+21,0:POKE S1+4,0:POKE S2+4,0:POKE S3+4,0 
 170 PRINTTAB( 9)"{DOWN}DIE SAGA VON{SPACE,SPACE}'CRANTOR'" 
 180 PRINT"{5DOWN,CTRL-H,6SPACE,RVSON,2SPACE}BITTE EINEN MOMENT GEDULD{SPACE,RVOFF}":REM CTRL 'H' 
 190 PRINT"{6SPACE,RVSON,3SPACE}DATEN WERDEN EINGELESEN{2SPACE,RVOFF}" 
 200 PRINT"{3DOWN,8SPACE}WRITTEN IN{5SPACE}MAERZ 1984 
 210 PRINT"{2DOWN,8SPACE}ANIMATION:{3SPACE}REALISATION:" 
 220 PRINT"{DOWN,8SPACE}JAN{2SPACE}JENS{6SPACE}ANDREAS" 
 230 PRINT"{8SPACE}MUENTINGA{6SPACE}LUENING" 
 240 POKE S1+24,31:RESTORE :FOR Z=1 TO2:FOR Y=1 TO4:FOR X=1 TO5 
 250 READ F1(Z,X,Y):NEXT :NEXT :NEXT 
 260 FOR Z=1 TO2:FOR Y=1 TO4:FOR X=1 TO5 
 270 READ F2(Z,X,Y):NEXT :NEXT :NEXT 
 280 IF RU=1 THEN340 
 290 FOR I=51200 TO52160:READ A:POKE I,A:NEXT 
 300 FOR I=1 TO15:READ S$(I):NEXT :FOR I=1 TO10:READ V$(I):NEXT 
 310 FOR I=1 TO14:READ TH(I):READ TL(I):NEXT 
 320 FOR I=1 TO7:READ FH(I):READ FL(I):NEXT :GOSUB 8350 
 330 FOR I=52224 TO52736:READ A:POKE I,A:NEXT :GOSUB 9060 
 340 GOSUB 4350:PRINT"{CLR}";:POKE 53280,6:POKE 53281,6 
 350 PZ=1:PX=4:PY=4:POKE 198,0:TI$="000000" 
 360 PRINT"{YELLOW}"; 
 370 IF PZ>2 THEN6570 
 380 IF PZ<1 THEN6610 
 390 IF K$="U"OR K$="H" THENGOSUB 5970:GOTO 420 
 400 IF K$="D"OR K$="R" THENGOSUB 6030:GOTO 420 
 410 GOSUB 5500 
 420 L=0:WE=0:PRINT"{CLR}";:F1=F1(PZ,PX,PY):F2=F2(PZ,PX,PY):POKE V+21,0 
 430 IF F1<>0 THEN520 
 440 IF PZ=1AND PX=5AND PY=4 THENK$="DU BIST BEIM SCHIFF!":R$="":GOTO 540 
 450 POKE 53281,0:FOR I=1 TO20:PRINTTAB( RND (1)*39)"{WHITE}.":NEXT :PRINT"{YELLOW}"; 
 460 K$="DU BIST AUSSERHALB DER BASIS GELANDET." 
 470 IF (HAAND 64)<>64 THEN6450 
 480 IF (HAAND 128)<>128 THEN6420 
 490 WE=1:IF (F1(PZ,PX,PY+1)AND 1)<>1 THENWE=0 
 500 K$=K$+CHR$ (13)+"{2SPACE}EINE TUER FUEHRT NACH SUEDEN." 
 510 R$="-H-R":GOTO 1140 
 520 R$="":K$="":POKE 53281,6 
 530 IF PZ=1AND PX=5AND PY=4 THENK$="DU BIST BEI DEINEM SCHIFF!":R$="":GOTO 540 
 540 FOR I=1 TO4:PRINTTAB( I)"M"SPC( 38-2*I)"N":NEXT 
 550 PRINTTAB( I)"OYYYYYYYYYYYYYYYYYYYYYYYYYYYYP" 
 560 FOR I=1 TO10:PRINTTAB( 5)"H"SPC( 28)"N":NEXT 
 570 PRINTTAB( 5)"LPPPPPPPPPPPPPPPPPPPPPPPPPPPP@" 
 580 FOR I=4 TO1STEP -1:PRINTTAB( I)"N"SPC( 38-2*I)"M":NEXT 
 590 FOR Q=0 TO12:IF (F1AND (2^Q))<>2^Q THEN610 
 600 ON Q+1GOSUB 620,690,730,740,780,810,850,860,900,930,970,990,1100 
 610 NEXT Q:GOTO 1140 
 620 PRINT"{HOME,6DOWN}";:R$=R$+"-N" 
 630 PRINT,"{6SPACE}PPPPPPPP" 
 640 PRINT,"{5SPACE}NM{6SPACE}NH" 
 650 PRINT,"{5SPACE}N OYYYYP H" 
 660 FOR I=1 TO6:PRINT,"{5SPACE}N H{4SPACE}N H":NEXT 
 670 PRINT,"{5RIGHT}@N{6SPACE}ML" 
 680 RETURN 
 690 PRINT"{HOME,5DOWN}";:R$=R$+"-W" 
 700 PRINT" NM":PRINT" N M":PRINT" NYP" 
 710 FOR I=1 TO8:PRINT" N N":NEXT 
 720 PRINT" N N":PRINT" NYY":PRINT" N{2SPACE}":RETURN 
 730 R$=R$+"-S":RETURN 
 740 PRINT"{HOME,4DOWN}":R$=R$+"-O" 
 750 PRINTTAB( 36)" NH":PRINTTAB( 36)"N H":PRINTTAB( 36)"OYH" 
 760 FOR I=1 TO9:PRINTTAB( 36)"H H":NEXT 
 770 PRINTTAB( 36)"YYH":PRINTTAB( 36)"{2SPACE}H":RETURN 
 780 GOSUB 620 
 790 PRINT"{HOME,8DOWN}"; 
 800 FOR I=1 TO7:PRINT,"{7RIGHT,RVSON,6SPACE,RVOFF}":NEXT :RETURN 
 810 PRINT"{HOME,5DOWN}";:R$=R$+"-W" 
 820 PRINT" N{RVSON}*":PRINT" N{RVSON,SPACE}*":PRINT" N{RVSON,2SPACE}" 
 830 FOR I=1 TO8:PRINT" N{RVSON,2SPACE}":NEXT 
 840 PRINT" N{RVSON,2SPACE}":PRINT" N{RVSON,SPACE,RVOFF}£":PRINT" N£":RETURN 
 850 R$=R$+"-{RVSON}S{RVOFF}":RETURN 
 860 PRINT"{HOME,4DOWN}":R$=R$+"-O" 
 870 PRINTTAB( 36)"{SPACE,RVSON}£{RVOFF}H":PRINTTAB( 36)"{RVSON}£{SPACE,RVOFF}H" 
 880 FOR I=1 TO10:PRINTTAB( 36)"{RVSON,2SPACE,RVOFF}H":NEXT 
 890 PRINTTAB( 36)"*{RVSON,SPACE,RVOFF}H":PRINTTAB( 36)" *H":RETURN 
 900 POKE SR,38:POKE SR+1,39:POKE V,230:POKE V+1,100:POKE V+2,230:POKE V+3,142 
 910 POKE V+23,3:POKE V+29,3:POKE V+39,1:POKE V+40,1:POKE V+21,3 
 920 POKE V+23,3:POKE V+29,3:SO=1:RETURN 
 930 POKE SR,40:POKE SR+1,41:POKE V,90:POKE V+1,100:POKE V+2,90:POKE V+3,142 
 940 POKE V+39,0:POKE V+40,0:POKE V+21,3 
 950 POKE V+23,3:POKE V+29,3:IM=1 
 960 PRINT"{HOME,7DOWN,10RIGHT,RVSON,WHITE,3SPACE,DOWN,3LEFT,2SPACE,RVOFF,YELLOW}";:RETURN 
 970 K$="DU BIST IM LIFT.":R$=R$+"-H-R":L=1 
 980 PRINT"{HOME,7DOWN}"TAB( 26)"UI{DOWN,2LEFT}--{DOWN,2LEFT}JK":RETURN 
 990 K$="DU HAST DIE ENERGIE ZENTRALE ERREICHT.":PRINT"{HOME,4DOWN}" 
 1000 PRINTTAB( 6)"OYYYYYYYYYYYYYYYYYYYYYYYYYYP" 
 1010 PRINTTAB( 6)"HOYYYYP{2SPACE}OYYYYP{2SPACE}OYYYYYYYYPN" 
 1020 PRINTTAB( 6)"HH{4SPACE}N{2SPACE}H{4SPACE}N{2SPACE}H{8SPACE}NN" 
 1030 PRINTTAB( 6)"HH{4SPACE}N{2SPACE}H{4SPACE}N{2SPACE}H{8SPACE}NN" 
 1040 PRINTTAB( 6)"HLPPPP@{2SPACE}LPPPP@{2SPACE}H Z{6SPACE}NN" 
 1050 PRINTTAB( 6)"H{ORANGE}QQQ{SPACE,4SPACE}QQQ{YELLOW,5SPACE}H{8SPACE}NN" 
 1060 PRINTTAB( 6)"H{8SPACE}W{7SPACE}H{8SPACE}NN" 
 1070 PRINTTAB( 6)"H{16SPACE}LPPPPPPPP@N" 
 1080 PRINTTAB( 6)"LPPPPPPPPPPPPPPPPPPPPPPPPPP@{YELLOW}" 
 1090 RETURN 
 1100 K$="DA IST KEIN C64 SONDERN EIN COMPUTER" 
 1110 PRINT"{HOME,7DOWN}"TAB( 26)"OYYYYYP" 
 1120 PRINTTAB( 26)"HOP{2SPACE}QN":PRINTTAB( 26)"HL@ QQN":PRINTTAB( 26)"H{3SPACE}WQN" 
 1130 PRINTTAB( 26)"LPPPPP@":RETURN 
 1140 PRINT"{HOME,2RIGHT}"K$:K$="" 
 1150 FOR Q=0 TO8:IF (F2AND (2^Q))<>(2^Q) THEN1170 
 1160 ON Q+1GOSUB 1190,1260,1320,1350,1390,1470,1550,1630,1710 
 1170 NEXT Q 
 1180 GOTO 1790 
 1190 K$=K$+" OUTDOOR-CARD" 
 1200 POKE SR,35:POKE V+39,10 
 1210 POKE V,95:POKE V+1,180 
 1220 POKE V+23,PEEK (V+23)AND 254 
 1230 POKE V+29,PEEK (V+29)AND 254 
 1240 POKE V+21,PEEK (V+21)OR 1:RETURN 
 1250 RETURN 
 1260 K$=K$+" INDOOR-CARD" 
 1270 POKE SR+1,35:POKE V+40,0 
 1280 POKE V+2,110:POKE V+3,195 
 1290 POKE V+23,PEEK (V+23)AND 253 
 1300 POKE V+29,PEEK (V+29)AND 253 
 1310 POKE V+21,PEEK (V+21)OR 2:RETURN 
 1320 PRINT"{HOME,16DOWN}":REM 16 
 1330 PRINTTAB( 30)"OP{DOWN,2LEFT}L@" 
 1340 K$=K$+" BOMBE":RETURN 
 1350 PRINT"{HOME,16DOWN}":REM 16 
 1360 PRINTTAB( 10)"{GREY2,RVSON}UUU{RVOFF}FF{YELLOW}" 
 1370 K$=K$+" ZUENDER" 
 1380 RETURN 
 1390 K$=K$+" SCHWERT" 
 1400 POKE SR+2,34 
 1410 POKE V+16,4 
 1420 POKE V+4,35:POKE V+5,150 
 1430 POKE V+23,PEEK (V+23)OR 4 
 1440 POKE V+29,PEEK (V+29)OR 4 
 1450 POKE V+21,PEEK (V+21)OR 4 
 1460 POKE V+41,3:RETURN 
 1470 K$=K$+" STRAHLENANZUG" 
 1480 POKE SR+3,32:POKE SR+4,33 
 1490 POKE V+6,230:POKE V+7,105:POKE V+8,230:POKE V+9,145 
 1500 POKE V+23,PEEK (V+23)OR 24 
 1510 POKE V+29,PEEK (V+29)OR 24 
 1520 POKE V+21,PEEK (V+21)OR 24 
 1530 POKE V+42,7:POKE V+43,7 
 1540 RETURN 
 1550 K$=K$+" RAUMANZUG" 
 1560 POKE SR+3,32:POKE SR+4,33 
 1570 POKE V+6,230:POKE V+7,105:POKE V+8,230:POKE V+9,145 
 1580 POKE V+23,PEEK (V+23)OR 24 
 1590 POKE V+29,PEEK (V+29)OR 24 
 1600 POKE V+21,PEEK (V+21)OR 24 
 1610 POKE V+42,8:POKE V+43,8 
 1620 RETURN 
 1630 K$=K$+" O-TANK" 
 1640 POKE SR+5,36 
 1650 POKE V+10,255:POKE V+11,150 
 1660 POKE V+23,PEEK (V+23)OR 32 
 1670 POKE V+29,PEEK (V+29)OR 32 
 1680 POKE V+21,PEEK (V+21)OR 32 
 1690 POKE V+44,14 
 1700 RETURN 
 1710 K$=K$+" URAN" 
 1720 POKE SR+6,37 
 1730 POKE V+12,150:POKE V+13,175 
 1740 POKE V+23,PEEK (V+23)OR 64 
 1750 POKE V+29,PEEK (V+29)OR 64 
 1760 POKE V+21,PEEK (V+21)OR 64 
 1770 POKE V+45,7 
 1780 RETURN 
 1790 PRINT"{HOME,DOWN,3RIGHT}"K$:K$="":T=0 
 1800 F2=F2(PZ,PX,PY) 
 1810 IF (HAAND 32)<>32AND (((F2(PZ,PX,PY)AND 256)=256)OR ((HAAND 256)=256)) THEN6510 
 1820 IF IM=1 THENZE=ZE+1:IF ZE=2 THEN6520 
 1830 IF SO=1 THENZE=ZE+1:IF ZE=2 THEN6520 
 1840 IF PZ=1AND PX=1AND PY=3 THEN6610 
 1850 PRINT"{HOME,21DOWN}";:REM 21 
 1860 PRINTR$ 
 1870 PRINT":{22SPACE,22LEFT}";:REM 22 
 1880 GET A$:T=T+1:IF CO=1AND TI-TS>4500 THEN6410 
 1890 IF (IM=1OR SO=1)AND (T>450) THEN6520 
 1900 IF A$="" THEN1880 
 1910 IF A$=CHR$ (13) THEN1950 
 1920 IF A$=CHR$ (20)AND K$<>"" THENK$=LEFT$ (K$,LEN (K$)-1):PRINT"{LEFT,SPACE,LEFT}";:GOTO 1880 
 1930 K$=K$+A$:PRINTA$; 
 1940 GOTO 1880 
 1950 IF LEN (K$)>1 THEN2320 
 1960 FOR I=1 TO9:IF K$=MID$ ("NWSOHREUD",I,1) THEN1980 
 1970 NEXT :GOTO 2220 
 1980 ON IGOTO 1990,2020,2050,2090,2120,2150,2090,2120,2150 
 1990 IF (F1AND 1)=1 THENPY=PY-1:GOTO 370 
 2000 IF (F1AND 16)<>16 THEN2180 
 2010 GOTO 2200 
 2020 IF (F1AND 2)=2 THENPX=PX-1:GOTO 370 
 2030 IF (F1AND 32)<>32 THEN2180 
 2040 GOTO 2200 
 2050 IF (F1AND 4)=4 THENPY=PY+1:GOTO 370 
 2060 IF WE=1 THENPY=PY+1:GOTO 370 
 2070 IF ((F1AND 64)<>64)AND WE=1 THEN2180 
 2080 GOTO 2200 
 2090 IF (F1AND 8)=8 THENPX=PX+1:GOTO 370 
 2100 IF (F1AND 128)<>128 THEN2180 
 2110 GOTO 2200 
 2120 IF ((F1AND 1024)<>1024)AND F1<>0 THEN2200 
 2130 PZ=PZ+1 
 2140 GOTO 370 
 2150 IF ((F1AND 1024)<>1024)AND F1<>0 THEN2200 
 2160 PZ=PZ-1 
 2170 GOTO 370 
 2180 K$="WAS IST?!" 
 2190 GOTO 1790 
 2200 K$="DIE TUER IST ZU!" 
 2210 GOTO 1790 
 2220 K$="WAS SOLL DENN DAS HEISSEN?" 
 2230 GOTO 1790 
 2240 K$="WITZBOLD!" 
 2250 GOTO 1790 
 2260 K$=S$+"- SEH ICH NICHT!" 
 2270 GOTO 1790 
 2280 K$="MEHR KANNST DU(!) NICHT TRAGEN." 
 2290 GOTO 1790 
 2300 K$="DAS HAST DU NICHT IN DER HAND." 
 2310 GOTO 1790 
 2320 IF K$="ENDE"OR K$="QUIT" THENEND 
 2330 IF K$="SAVE" THEN3640 
 2340 IF K$="LOAD" THEN3780 
 2350 IF K$="BETE"OR K$="PRAY" THEN3490 
 2360 IF K$="LIST" THEN3510 
 2370 IF K$="ZEIT"OR K$="TIME" THEN3560 
 2380 IF K$="START"OR K$="STARTE" THEN3910 
 2390 FOR I=1 TOLEN (K$):IF MID$ (K$,I,1)=" " THEN2410 
 2400 NEXT :GOTO 2220 
 2410 V$=LEFT$ (K$,I-1):S$=RIGHT$ (K$,LEN (K$)-I):GOSUB 2630 
 2420 FOR I=1 TO10:IF V$=V$(I) THEN2440 
 2430 NEXT :GOTO 2220 
 2440 VE=I:FOR I=0 TO14:IF S$=S$(I+1) THEN2460 
 2450 NEXT :GOTO 2220 
 2460 S=I 
 2470 ON VEGOTO 2490,2490,2580,2580,2680,2850,2890,3060,3430,3490 
 2480 GOTO 2220 
 2490 IF (F2AND (2^S))<>(2^S) THEN2260 
 2500 IF HN=5 THEN2280 
 2510 IF S=9OR S=10 THEN2240 
 2520 IF S=12OR S=13 THEN2240 
 2530 IF S=11 THEN2280 
 2540 HN=HN+1 
 2550 HA=HAOR (2^S) 
 2560 F2(PZ,PX,PY)=F2-(2^S) 
 2570 GOSUB 5870:GOTO 420 
 2580 IF (HAAND (2^S))<>(2^S) THEN2300 
 2590 HN=HN-1 
 2600 HA=HA-(2^S) 
 2610 F2(PZ,PX,PY)=F2OR (2^S) 
 2620 GOSUB 5870:GOTO 420 
 2630 IF V$="DESTROY" THENV$="ZERSTOERE" 
 2640 IF V$="FILL"OR V$="FUELLE" THENV$="LADE" 
 2650 IF V$="KILL" THENV$="TOETE" 
 2660 IF V$="OPEN" THENV$="OEFFNE" 
 2670 RETURN 
 2680 IF S=12 THEN2750 
 2690 IF S=9OR S=10 THEN2890 
 2700 IF (HAAND (2^S))=(2^S) THEN2730 
 2710 K$="DU HASTS' NICHT IN DER HAND." 
 2720 GOTO 1790 
 2730 HA=HA-(2^S):K$="OK." 
 2740 GOSUB 5870:GOTO 1790 
 2750 PRINT"{HOME,21DOWN}";:REM 21 
 2760 IF PZ<>2OR PX<>1OR PY<>3 THEN2830 
 2770 PRINT"HAST DU DEN ZUENDER";:INPUTA$ 
 2780 IF A$<>"J"OR ((HAAND 8)<>8) THEN2840 
 2790 PRINT"{UP}IST DIE BOMBE DA:{SPACE,7SPACE,9LEFT}";:INPUTA$:REM 9 
 2800 IF A$<>"J"OR ((HAAND 4)<>4) THEN2840 
 2810 CO=1:HN=HN-2:HA=HA-12 
 2820 K$="COUNTDOWN BEGINNT{4SPACE}: 45 SEC.":TS=TI:GOTO 1790 
 2830 K$=S$+"-WO IST DAS":GOTO 1790 
 2840 K$="ZERSOERUNG UNMOEGLICH!":GOTO 1790 
 2850 IF S<>14 THENK$="SCHOENES WETTER HEUTE, NICHT?!":GOTO 1790 
 2860 IF PZ<>1OR PX<>5OR PY<>4 THENK$="HIER IST KEIN SCHIFF":GOTO 1790 
 2870 IF (HAAND 256)<>256 THENK$="DU BRAUCHST DAZU URAN.":GOTO 1790 
 2880 RE=1:HN=HN-1:HA=HA-256:K$="GELADEN":GOSUB 5870:GOTO 1790 
 2890 IF S=9 THEN2930 
 2900 IF S=10 THEN2970 
 2910 IF (HAAND (2^S))<>2^S THEN2300 
 2920 FOR Z=1 TO2:FOR X=1 TO5:FOR Y=1 TO4 
 2930 IF (F1AND 256)<>256 THEN2260 
 2940 IF (HAAND 16)<>16 THEN3050 
 2950 F1(PZ,PX,PY)=F1-256 
 2960 SO=0:ZE=0:GOSUB 5600:GOTO 420 
 2970 IF (F1AND 512)<>512 THEN2260 
 2980 IF (HAAND 16)<>16 THEN3050 
 2990 F1(PZ,PX,PY)=F1-512 
 3000 Z=FN R(2):X=FN R(4):Y=FN R(4) 
 3010 IF (F2(Z,X,Y)<>0)OR ((F1(Z,X,Y)AND 256)=256) THEN3000 
 3020 POKE V+21,0:K$="SO KANNST DU IHN NICHT TOETEN!" 
 3030 PRINT"{HOME,7DOWN,10RIGHT,4SPACE,DOWN,4LEFT,4SPACE}" 
 3040 GOSUB 5810:F1(Z,X,Y)=F1(Z,X,Y)OR 512:IM=0:ZE=0:GOTO 1790 
 3050 K$="DU KANNST IHN NICHT TOETEN!":GOTO 1790 
 3060 IF S<>13 THEN3420 
 3070 IF PY<>0 THEN3100 
 3080 IF (HAAND 1)<>1 THEN2020 
 3090 F1(PZ,PX,PY+1)=(F1(PZ,PX,PY+1)-16)OR 1:GOSUB 5560:GOTO 420 
 3100 ON PZGOTO 3110,3190,3360 
 3110 IF PX<>2OR PY<>1 THEN3150 
 3120 IF (F1(PZ,PX,PY)AND 16)<>16 THEN2260 
 3130 IF (HAAND 1)<>1 THEN2020 
 3140 F1(PZ,PX,PY)=(F1(PZ,PX,PY)-16)OR 1:GOSUB 5560:GOTO 420 
 3150 IF PX<>3OR PY<>2 THEN2260 
 3160 IF (F1(PZ,PX,PY)AND 128)<>128 THEN2260 
 3170 IF (HAAND 2)<>2 THEN2020 
 3180 F1(PZ,PX,PY)=(F1-128)OR 8:GOSUB 5560:GOTO 420 
 3190 IF PX=1AND PY=1 THEN3240 
 3200 IF PX=1AND PY=2 THEN3280 
 3210 IF PX=2AND PY=1 THEN3320 
 3220 GOTO 2260 
 3230 K$="DA IST KEINE TUER.":GOTO 1790 
 3240 IF (F1(PZ,PX,PY)AND 64)<>64 THEN2260 
 3250 IF (HAAND 2)<>2 THEN2020 
 3260 F1(PZ,PX,PY)=(F1-64)OR 4:F1(PZ,PX,PY+1)=(F1(PZ,PX,PY+1)-16)OR 1 
 3270 GOSUB 5560:GOTO 420 
 3280 IF (F1(PZ,PX,PY)AND 16)<>16 THEN2260 
 3290 IF (HAAND 2)<>2 THEN2020 
 3300 F1(PZ,PX,PY)=(F1-16)OR 1:F1(PZ,PX,PY-1)=(F1(PZ,PX,PY-1)-64)OR 4 
 3310 GOSUB 5560:GOTO 420 
 3320 IF (HAAND 1)<>1 THEN2180 
 3330 IF (F1AND 16)<>16 THEN2260 
 3340 F1(PZ,PX,PY)=(F1-16)OR 1 
 3350 GOSUB 5560:GOTO 420 
 3360 IF PX=2AND PY=1 THEN3390 
 3370 IF PX=4AND PY=3 THEN2020 
 3380 GOTO 2260 
 3390 IF (F1(PZ,PX,PY)AND 16)<>16 THEN2260 
 3400 IF (HAAND 1)<>1 THEN2020 
 3410 FOR Z=1 TO2:FOR X=1 TO5:FOR Y=1 TO4 
 3420 K$="DAS KANNST DU NICHT OEFFNEN":GOTO 1790 
 3430 IF S<>11 THENK$="WAAAS!!??":GOTO 1790 
 3440 IF PZ<>2OR PX<>3OR PY<>1 THENK$="WO SIEST DU EINEN COMPUTER":GOTO 1790 
 3450 ON FN R(3)GOTO 3460,3470,3480 
 3460 GOTO 6410 
 3470 F2(PZ,PX,PY)=HA:HA=0:GOTO 420 
 3480 F1(PZ,PX,PY)=F1(PZ,PX,PY)OR 768:GOTO 420 
 3490 K$="EINE STIMME SAGT DIR: DIR WERDEN{9RIGHT}ALLE SUENDEN VERGEBEN!" 
 3500 GOTO 1790 
 3510 PRINT"{CLR,2DOWN,3RIGHT}DU HAELST MOMENTAN:{DOWN}" 
 3520 FOR I=0 TO8:IF (HAAND (2^I))<>(2^I) THEN3540 
 3530 PRINT"{3RIGHT}"S$(I+1) 
 3540 NEXT :K$="" 
 3550 GOTO 1790 
 3560 K$="ZEIT= "+LEFT$ (TI$,2)+":"+MID$ (TI$,3,2)+":"+RIGHT$ (TI$,2) 
 3570 IF CO=0 THEN1790 
 3580 K$=K$+"{2SPACE}-{2SPACE}COUNTDOWN= " 
 3590 T$=MID$ (STR$ (TI-TS),2) 
 3600 FOR I=1 TO6:IF LEN (T$)=6 THEN3620 
 3610 T$="0"+T$:NEXT 
 3620 K$=K$+MID$ (T$,2,3) 
 3630 GOTO 1790 
 3640 PRINT"{CLR}":INPUT"FILE-NAME";N$ 
 3650 PRINT"{CLR}":INPUT"DISK ODER KASSETTE (D/K)";WW$ 
 3660 IF WW$="K" THENOPEN 1,1,1,N$ 
 3670 IF WW$="D" THENOPEN 1,8,2,N$+",S,W" 
 3680 IF WW$<>"D"AND WW$<>"K" THEN3650 
 3690 PRINT#1,PZ:PRINT#1,PX:PRINT#1,PY:PRINT#1,HA:PRINT#1,HN:PRINT#1,WE 
 3700 PRINT#1,L:PRINT#1,SO:PRINT#1,IM:PRINT#1,CO:PRINT#1,SO:PRINT#1,RE 
 3720 PRINT#1,TS:PRINT#1,TI$ 
 3730 FOR Z=1 TO2:FOR X=1 TO5:FOR Y=1 TO4 
 3740 PRINT#1,F1(Z,X,Y) 
 3750 PRINT#1,F2(Z,X,Y) 
 3760 NEXT :NEXT :NEXT :CLOSE 1 
 3770 GOTO 420 
 3780 PRINT"{CLR}":INPUT"FILE-NAME";N$ 
 3790 PRINT"{CLR}":INPUT"DISK ODER KASSETTE (D/K)";WW$ 
 3800 IF WW$="K" THENOPEN 1,1,0,N$ 
 3810 IF WW$="D" THENOPEN 1,8,2,N$+",S,R" 
 3820 IF WW$<>"D"AND WW$<>"K" THEN3790 
 3830 INPUT#1,PZ:INPUT#1,PX:INPUT#1,PY:INPUT#1,HA:INPUT#1,HN:INPUT#1,WE 
 3840 INPUT#1,L:INPUT#1,SO:INPUT#1,IM:INPUT#1,CO:INPUT#1,SO:INPUT#1,RE 
 3850 INPUT#1,TS:INPUT#1,T$:TI$=T$ 
 3860 FOR Z=1 TO2:FOR X=1 TO5:FOR Y=1 TO4 
 3870 INPUT#1,F1(Z,X,Y) 
 3880 INPUT#1,F2(Z,X,Y) 
 3890 NEXT :NEXT :NEXT :CLOSE 1 
 3900 GOTO 420 
 3910 IF PZ<>1OR PX<>5OR PY<>4 THENK$="WO SIEHST DU DEIN SCHIFF?":GOTO 1790 
 3920 IF RE=0 THENK$="KEINE ENERGIE DA!":GOTO 1790 
 3930 GOTO 4030 
 3940 PRINT"{WHITE,CLR}":POKE V+21,0 
 3950 POKE SR,42:POKE SR+1,48:POKE SR+2,45:POKE SR+3,46:POKE SR+4,46:POKE SR+5,49 
 3960 POKE V+23,1:POKE V+29,1:POKE V,255:POKE V+1,127:POKE V+2,0:POKE V+3,0 
 3970 POKE V+4,50:POKE V+5,96:POKE V+16,0 
 3980 POKE V+6,150:POKE V+7,120 
 3990 POKE V+8,75:POKE V+9,170 
 4000 POKE V+39,12:POKE V+40,3:POKE V+41,10:POKE V+42,4:POKE V+43,14:POKE V+44,3 
 4010 FOR I=1 TO20:PRINTTAB( FN R(39))".":NEXT 
 4020 RETURN 
 4030 POKE 53280,0:POKE 53281,0:GOSUB 3940:POKE V+21,63:POKE S3+5,32:POKE S3+6,255 
 4040 POKE S1+5,240:POKE S1+6,253:POKE S2+5,196:POKE S2+6,253 
 4050 POKE S1+1,100:POKE S2+1,50:POKE S1+4,129:POKE S2+4,129 
 4060 FOR W=1 TO4500:NEXT :POKE S1+24,15:POKE S3+4,33:POKE V+3,140:IF SO=1 THEN4120 
 4070 POKE V+11,140 
 4080 FOR X=231 TO0STEP -2:POKE V+2,X:POKE V+10,X+23:POKE S1+1,X:POKE S2+1,X 
 4090 POKE S3+1,231-X:NEXT 
 4100 POKE V+10,0:POKE V+2,0 
 4110 IF CO=0 THENPOKE S1+4,128:POKE S2+4,128:POKE S3+4,32:GOTO 4160 
 4120 POKE S3+4,32:POKE SR,43:FOR W=1 TO20:POKE V+39,FN R(15) 
 4130 POKE S1+1,FN R(255):NEXT :POKE V+39,2 
 4140 POKE S2+1,FN R(255):FOR W=15 TO5STEP -.02:POKE S1+24,W:IF W<12 THENPOKE V+21,62 
 4150 NEXT :POKE S1+4,128:POKE S2+4,128 
 4160 IF SO=1 THENPRINT"{HOME,GREY2}DU HAST DICH SELBST MIT IN DIE LUFT GE- SPRENGT!!" 
 4170 IF CO=0 THENPRINT"{HOME,GREY2}DU HAST VERGESSEN DIE BASIS ZU{10SPACE}ZERSTOEREN!" 
 4180 PRINT"{HOME,GREY2,4DOWN}ZEIT: "LEFT$ (TI$,2)":"MID$ (TI$,3,2)":"RIGHT$ (TI$,2) 
 4190 FOR W=1 TO2000:NEXT 
 4200 POKE V+21,0 
 4210 POKE 198,0:POKE 53280,0:POKE 53281,0 
 4220 FOR I=1 TO22:PRINTTAB( INT (RND (0)*39))"{WHITE}.":NEXT 
 4230 POKE SR,48:POKE SR+1,49:POKE SR+2,50 
 4240 POKE SR+3,53:POKE SR+4,54:POKE SR+5,55:POKE SR+6,51:POKE SR+7,52 
 4250 POKE V+23,56:POKE V+29,63:POKE V+39,3:POKE V+40,3:POKE V+41,1:POKE V+42,14 
 4260 POKE V+43,14:POKE V+44,14 
 4270 POKE V,124:POKE V+1,160:POKE V+2,172:POKE V+3,160 
 4280 POKE V+4,148:POKE V+5,175:POKE S1+5,192:POKE S1+6,255:POKE S1+1,4:POKE S1+4,129 
 4290 POKE V+6,100:POKE V+8,148:POKE V+10,196:POKE V+7,75:POKE V+9,75:POKE V+11,75 
 4300 POKE V+5,176:PRINTTAB( INT (RND (0)*37))"{WHITE}.":POKE V+5,177:POKE V+21,7 
 4310 POKE V+5,176:POKE V+5,175:PRINTTAB( FN R(38))"{WHITE}." 
 4320 GET A$:IF A$="" THEN4310 
 4330 HA=0:HN=0:WE=0:L=0:SO=0:IM=0:ZE=0:CO=0:SO=0:RE=0:RU=1:GOTO 240 
 4340 GOTO 4340 
 4350 POKE 198,0:PRINT"{CLR}":POKE 53280,0:POKE 53281,0 
 4360 FOR I=1 TO22:PRINTTAB( INT (RND (0)*39))"{WHITE}.":NEXT 
 4370 POKE SR,48:POKE SR+1,49:POKE SR+2,50 
 4380 POKE SR+3,53:POKE SR+4,54:POKE SR+5,55:POKE SR+6,51:POKE SR+7,52 
 4390 POKE V+23,56:POKE V+29,63:POKE V+39,3:POKE V+40,3:POKE V+41,1:POKE V+42,14 
 4400 POKE V+43,14:POKE V+44,14 
 4410 POKE V,124:POKE V+1,160:POKE V+2,172:POKE V+3,160 
 4420 POKE V+4,148:POKE V+5,175 
 4430 POKE V+6,100:POKE V+8,148:POKE V+10,196:POKE V+7,75:POKE V+9,75:POKE V+11,75 
 4440 POKE V+5,176:PRINTTAB( INT (RND (0)*37))"{WHITE}.":POKE V+5,177:POKE V+21,63 
 4450 POKE V+5,176:POKE V+5,175:GOSUB 6090 
 4460 AL=0 
 4470 IF A$="I" THENAL=1 
 4480 POKE V+21,59 
 4490 FOR I=75 TO0STEP -1:POKE V+7,I:POKE V+9,I:POKE V+11,I:GOSUB 5380:NEXT 
 4500 POKE S2+1,10:POKE S2+5,95:POKE S2+6,255:POKE S2+4,129:POKE V+21,7 
 4510 FOR I=160 TO75STEP -1:GOSUB 5380:POKE V+1,I:POKE V+3,I:POKE V+5,I+17:NEXT 
 4520 POKE S2+4,128 
 4530 POKE V+21,27:EE=0:GOSUB 4950 
 4540 L$=" @@PPOOOIIII{RVSON}UUUUUYYYYYYUUUUU{RVOFF}IIIIOOOPP@@ " 
 4550 POKE SR+3,51:POKE SR+4,52:POKE V+6,134:POKE V+8,182:Y=225 
 4560 POKE V+42,6:POKE V+43,6:POKE V+23,0:POKE V+29,63 
 4570 PRINT"{ORANGE}"L$;:FOR W=1 TO100:NEXT 
 4580 Y=Y-8:POKE V+7,Y:POKE V+9,Y 
 4590 FOR I=1 TO5:PRINT"{RVSON,40SPACE,RVOFF}";:REM 40 
 4600 Y=Y-8:POKE V+7,Y:POKE V+9,Y:FOR W=1 TO100:NEXT :NEXT 
 4610 X=PEEK (V):Y=PEEK (V+1):AQ=.2:PQ=0:BQ=0:XQ=0:POKE S1+1,10:POKE S1+5,0 
 4620 POKE S1+6,248 
 4630 X=X+XQ+3:IF XQ<>0 THENXQ=XQ-SGN (XQ)*.25 
 4640 PQ=PQ+AQ-BQ/10:Y=Y+PQ 
 4650 IF PQ<-3 THENPQ=-3 
 4660 IF PQ>3 THENPQ=3 
 4670 IF Y<0 THENY=0 
 4680 IF X<0 THENX=0 
 4690 X1=X:X2=X+48:X3=X+24:A=0 
 4700 POKE V,X1AND 255:POKE V+1,Y:IF (X1AND 256)=256 THENA=A+1:POKE V+16,AOR PEEK (V+16) 
 4710 POKE V+2,X2AND 255:POKE V+3,Y:IF (X2AND 256)=256 THENA=A+2:POKE V+16,AOR PEEK (V+16) 
 4720 POKE V+4,X3AND 255:POKE V+5,Y+18:IF (X3AND 256)=256 THENA=A+4 
 4730 IF Y>181 THEN4890 
 4740 POKE V+16,A:POKE V+30,0:IF BQ<>0 THENPOKE V+21,31:BQ=BQ-2:POKE S1+4,129 
 4750 J=PEEK (56321) 
 4760 IF (JAND 16)=0 THENBQ=BQ+6 
 4770 IF (JAND 4)=0 THENXQ=XQ-2 
 4780 IF (JAND 8)=0 THENXQ=XQ+2 
 4790 IF BQ=0 THENPOKE V+21,27:POKE S1+4,128 
 4800 IF (PEEK (V+30)AND 29)=29 THEN4820 
 4810 GOTO 4630 
 4820 IF X<120OR X>150 THEN4890 
 4830 POKE S1+5,0:POKE S1+6,242:POKE S1+1,25 
 4840 FOR I=1 TO10:PRINT"{HOME,DOWN,RIGHT}ENERGIE LEVEL = 0":POKE S1+4,33 
 4850 FOR W=1 TO500:NEXT :PRINT"{HOME,DOWN,20SPACE}":POKE S1+4,32:FOR W=1 TO500 
 4860 NEXT :NEXT 
 4870 IF AL=0 THENRETURN 
 4880 GOTO 5180 
 4890 POKE SR,43:POKE SR+1,43:POKE S1+5,0:POKE S2+5,0:POKE S1+6,252:POKE S2+6,252 
 4900 POKE S1+1,10:POKE S2+1,10 
 4910 POKE S1+4,33:POKE S2+4,129 
 4920 FOR W=1 TO100:NEXT :POKE S1+4,32:POKE S2+4,128 
 4930 FOR W=1 TO2000:NEXT 
 4940 EE=1:GOSUB 4950:GOTO 4350 
 4950 K$="{39SPACE}" 
 4960 IF EE=0 THENK$=K$+"DU BIST " 
 4970 IF EE=1 THENK$=K$+"DU WARST " 
 4980 K$=K$+"ZUR RETTUNG DER VEREINIGTEN PLANETEN BEORDERT." 
 4990 IF EE=0 THENK$=K$+" DEINE AUFGABE IST " 
 5000 IF EE=1 THENK$=K$+" DEINE AUFGABE WAR " 
 5010 K$=K$+"ES DEN GARSTIGEN IMPERATOR 'CRANTOR', DER DAS PLANETENSYSTEM " 
 5020 IF EE=0 THENK$=K$+"BEDROHT, " 
 5030 IF EE=1 THENK$=K$+"EROBERTE, " 
 5040 K$=K$+"UNSCHAEDLICH ZU MACHEN!!" 
 5050 K$=K$+"{41SPACE}" 
 5060 IF AL=0 THENRETURN 
 5070 POKE S1+5,0:POKE S1+6,244:POKE S1+4,33:POKE S2+5,0:POKE S2+6,241:POKE S2+4,129 
 5080 POKE S1+1,50:POKE S2+1,90 
 5090 FOR I=1 TOLEN (K$)-40 
 5100 POKE S1+4,33:POKE S2+4,129:PRINT"{HOME,22DOWN}";:REM 22 
 5110 PRINTMID$ (K$,I,40) 
 5120 FOR W=1 TO40:NEXT :POKE S1+4,32:POKE S2+4,128 
 5130 FOR W=1 TO40:NEXT :POKE S1+4,33:POKE S2+4,129 
 5140 FOR W=1 TO40:NEXT :POKE S1+4,32:POKE S2+4,128 
 5150 FOR W=1 TO40:NEXT :POKE S1+4,33:POKE S2+4,129 
 5160 NEXT :POKE S1+4,32:POKE S2+4,128:RETURN 
 5170 GOTO 5170 
 5180 POKE SR,40:POKE SR+1,41:POKE V,40:POKE V+1,160:POKE V+2,40:POKE V+3,202 
 5190 POKE 53280,6:POKE 53281,6 
 5200 POKE V+23,3:POKE V+29,3:POKE V+21,3:POKE V+39,0:POKE V+40,0 
 5210 PRINT"{CLR,14DOWN,4RIGHT,WHITE,RVSON,2SPACE,DOWN,2LEFT,2SPACE,RVOFF,YELLOW}" 
 5220 PRINT"{HOME}"; 
 5230 POKE V+24,10:PRINTTAB( 8); 
 5240 K$="HALLO, DU ELENDER WICHT!****":GOSUB 5410 
 5250 K$="{DOWN,2SPACE}WILLST DU TATS1CHLICH VERSUCHEN MICH,":GOSUB 5410 
 5260 K$="{SPACE,ORANGE}CRANTOR{YELLOW}, UND MEINE BASIS ZU ZERST2REN?":GOSUB 5410 
 5270 K$="{DOWN}****{SPACE,SPACE}SETZT DU WAHRHAFTIG DEIN LEBEN AUFS'":GOSUB 5410 
 5280 K$="{2SPACE}SPIEL, UM DIESES ANDROMEDA-GAL1XCHEN":GOSUB 5410 
 5290 PRINTTAB( 15);:K$="ZU RETTEN?****":GOSUB 5410 
 5300 K$="{DOWN,2SPACE}DEIN PECH! ICH F3R MEINEN TEIL HETZE":GOSUB 5410 
 5310 K$="MEINE{SPACE,ORANGE}CRAMES{YELLOW,SPACE}AUF DICH, BIS DAS SCHWARZE":GOSUB 5410 
 5320 K$=" DICH ERL24T. ***DU BIST JETZT SCHON EIN":GOSUB 5410 
 5330 PRINTTAB( 14);:K$="TOTER MANN!***":GOSUB 5410 
 5340 PRINT:PRINT:PRINT:PRINTTAB( 16); 
 5350 K$="NIMMS' LEICHT!":GOSUB 5410:POKE 198,0 
 5360 GET A$:IF A$="" THEN5360 
 5370 POKE V+24,8:RETURN 
 5380 PRINTTAB( INT (RND (0)*39))"{WHITE}." 
 5390 K$="D":RETURN 
 5400 GOSUB 5680:GOTO 5390 
 5410 POKE S1+5,0:POKE S1+6,240:POKE S2+5,0:POKE S2+6,241 
 5420 FOR I=1 TOLEN (K$) 
 5430 POKE S2+1,(ASC (MID$ (K$,I,1))*2)AND 255:POKE S1+1,ASC (MID$ (K$,I,1)) 
 5440 IF MID$ (K$,I,1)=" " THEN5470 
 5450 IF MID$ (K$,I,1)="*" THENFOR W=1 TO300:NEXT :GOTO 5480 
 5460 POKE S1+4,129:POKE S2+4,129 
 5470 PRINTMID$ (K$,I,1);:FOR W=1 TO10:NEXT 
 5480 POKE S1+4,128:POKE S2+4,128:NEXT 
 5490 PRINT:RETURN 
 5500 POKE S1,10:POKE S1+1,10:POKE S1+5,0:POKE S1+6,245 
 5510 FOR I=1 TO4:POKE S1+4,129 
 5520 FOR W=1 TO25:NEXT 
 5530 POKE S1+4,128 
 5540 FOR W=1 TO150:NEXT :NEXT 
 5550 RETURN 
 5560 POKE S1+5,5:POKE S1+6,253:POKE S2+5,5:POKE S2+6,253 
 5570 POKE S1,2:POKE S2,2:POKE S1+4,129:POKE S2+4,33 
 5580 FOR F=1 TO125:POKE S1+1,F*2:POKE S2+1,F:NEXT 
 5590 POKE S1+4,128:POKE S2+4,32:RETURN 
 5600 POKE S1,100:POKE S1+1,100:POKE S2,100:POKE S2+1,15:POKE S3,10:POKE S3+1,100 
 5610 POKE S1+5,10:POKE S1+6,252 
 5620 POKE S2+5,10:POKE S2+6,250 
 5630 POKE S3+5,5:POKE S3+6,253 
 5640 POKE S1+4,17+4:POKE S2+4,33+2:POKE S3,17+4 
 5650 FOR W=1 TO400:NEXT 
 5660 POKE S1+4,16+4:POKE S2+4,16+4:POKE S3+4,32+2 
 5670 RETURN 
 5680 POKE S1+5,5:POKE S1+6,250:POKE S2+5,5:POKE S2+6,245:POKE S1+24,21 
 5690 POKE S1+2,100:POKE S1+3,14:POKE S2+2,100:POKE S2+3,3 
 5700 Q=1:FOR W=1 TO13STEP 2:WH=4:IF W>8 THENWH=2 
 5710 POKE S2,FL(Q):POKE S2+1,FH(Q):POKE S2+4,T2 
 5720 FOR N=1 TOWH:FOR L=0 TO1 
 5730 POKE S1,TL(W+L):POKE S1+1,TH(W+L) 
 5740 POKE S1+4,T1 
 5750 FOR WW=1 TO50:NEXT WW 
 5760 IF PEEK (203)<>64 THENPOKE S2+4,0:POKE S1+24,31:RETURN 
 5770 POKE S1+4,T1-1 
 5780 FOR WW=1 TO40:NEXT WW 
 5790 NEXT L,N:POKE S2+4,T2-1:Q=Q+1:NEXT W 
 5800 GOTO 5680 
 5810 POKE S1+5,5:POKE S1+6,252 
 5820 FOR I=1 TO7:POKE S1,FL(I):POKE S1+1,FH(I):POKE S1+4,17 
 5830 FOR W=1 TO100:NEXT 
 5840 POKE S1+4,16 
 5850 FOR W=1 TO100:NEXT 
 5860 NEXT I:RETURN 
 5870 POKE S1+5,5:POKE S1+6,252 
 5880 POKE S1,20:POKE S1+1,20 
 5890 POKE S1+4,17 
 5900 FOR W=1 TO100:NEXT :POKE S1+4,16 
 5910 RETURN 
 5920 POKE S3+5,196:POKE S3+6,255 
 5930 POKE S3,10:POKE S3+1,10 
 5940 POKE S1+23,12:POKE S3+4,129 
 5950 FOR W=1 TO5000:NEXT :POKE S3+4,128 
 5960 RETURN 
 5970 POKE S1+5,0:POKE S1+6,252 
 5980 POKE S3+5,0:POKE S3+6,252:POKE S1+23,0 
 5990 POKE S1+4,17+4:POKE S3+4,129 
 6000 FOR I=60 TO200:POKE S1+1,I:POKE S3+1,I:NEXT 
 6010 POKE S1+4,16+4:POKE S3+4,128 
 6020 RETURN 
 6030 POKE S1+5,0:POKE S1+6,252 
 6040 POKE S3+5,0:POKE S3+6,252:POKE S1+23,0 
 6050 POKE S1+4,17+4:POKE S3+4,129 
 6060 FOR I=200 TO60STEP -1:POKE S1+1,I:POKE S3+1,I:NEXT 
 6070 POKE S1+4,16+4:POKE S3+4,128 
 6080 RETURN 
 6090 POKE S1+23,242:POKE S1+22,80 
 6100 POKE S1+5,0:POKE S1+6,202 
 6110 POKE S2+5,0:POKE S2+6,249 
 6120 POKE S3+5,0:POKE S3+6,253 
 6130 POKE S1+2,112:POKE S1+3,3 
 6140 POKE S2+2,96:POKE S2+3,14 
 6150 W1=64:W2=64:W3=32:N=1:S=0 
 6160 GET A$:IF A$<>"" THENPOKE S1+23,4:RETURN 
 6170 IF H(1,N)>=0 THENFOR W=1 TOTT:NEXT :GOTO 6230 
 6180 GOTO 6200 
 6190 IF H(1,N)>=0 THEN6230 
 6200 IF H(1,N)=-.1 THENN=1:GOTO 6170 
 6210 IF S=1 THENS=0:N=N+1:GOTO 6190 
 6220 S=1:N=-H(1,N) 
 6230 POKE S1,L(1,N):POKE S1+1,H(1,N) 
 6240 POKE S2,L(2,N):POKE S2+1,H(2,N) 
 6250 POKE S3,L(3,N):POKE S3+1,H(3,N) 
 6260 POKE S1+4,W1+1:POKE S2+4,W2+1:POKE S3+4,W3+1 
 6270 FOR W=1 TOTE:NEXT 
 6280 POKE S1+4,W1:POKE S2+4,W2:POKE S3+4,W3 
 6290 FOR W=1 TOTE/2:NEXT 
 6300 N=N+1:GOTO 6160 
 6310 DATA 004,028,002,004,0 
 6320 DATA 265,011,134,003,0 
 6330 DATA 004,1028,009,006,0 
 6340 DATA 009,011,522,011,2 
 6350 DATA 064,016,4100,004,0 
 6360 DATA 024,266,011,263,0 
 6370 DATA 2052,1032,014,003,0 
 6380 DATA 265,010,011,002,0 
 6390 DATA 64,2,32,16,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0 
 6400 DATA 256,4,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0 
 6410 SO=1:GOTO 4030 
 6420 PRINT"{HOME,SPACE}"K$ 
 6430 PRINT" ICH FUERCHTE DU HAST KEINEN" 
 6440 PRINT" O-TANK.":GOTO 6470 
 6450 PRINT"{HOME,SPACE}"K$ 
 6460 PRINT" ICH FUERCHTE DU HAST KEINEN":PRINT" RAUMANZUG." 
 6470 POKE S1+5,196:POKE S1+6,253 
 6480 POKE S1,30:POKE S1+1,40:POKE S1+4,129 
 6490 FOR W=1 TO5000:NEXT :POKE S1+4,128 
 6500 FOR W=1 TO1000:NEXT :GOTO 6670 
 6510 POKE 53280,4:PRINT"{2RIGHT}DIE STRAHLEN HABEN DICH GETOETET!":GOTO 6670 
 6520 POKE 53281,2:N$="CRAME":GOSUB 5600 
 6530 IF IM=1 THENN$="CRANTOR" 
 6540 PRINT"{CLR,DOWN,SPACE}DER GEWITZTE "N$" HAT DEIN LEBEN" 
 6550 PRINT" DURCH SEIN LASER-SCHWERT BEENDET!!" 
 6560 FOR W=1 TO1000:NEXT :GOTO 6670 
 6570 POKE 53281,0:PRINT"{CLR}":FOR I=1 TO20:PRINTTAB( RND (1)*38)"{WHITE}.":NEXT :PRINT"{YELLOW}" 
 6580 PRINT"{HOME,DOWN,SPACE}WARUM HAST DU DIE BASIS VERLASSEN??":GOSUB 5970 
 6590 PRINT" DU BIST IM ALL!":PRINT" OHNE HILFE!":PRINT"DU WIRST BALD STERBEN." 
 6600 GOTO 6670 
 6610 POKE 53281,0 
 6620 PRINT"{CLR,DOWN,SPACE}DU BIST IN DEN KELLER GEFALLEN!":GOSUB 6030 
 6630 PRINT" EIN GROSSER BERG ABFALL UMGIBT DICH." 
 6640 PRINT" ES GIBT KEINE MOEGLICHKEIT AUS DIESEM" 
 6650 PRINT" RAUM HERAUSZUKOMMEN!!" 
 6660 PRINT"{SPACE,DOWN}ASCHE ZU ASCHE, STAUB ZU STAUB..." 
 6670 T1=21:T2=21:FOR W=1 TO5000:NEXT :GOSUB 5680:GOTO 4330 
 6680 DATA 0,248,0,1,4,0,2,2 
 6690 DATA 0,2,2,0,2,2,0,1 
 6700 DATA 4,0,0,248,0,15,7,128 
 6710 DATA 48,32,96,64,0,16,64,32 
 6720 DATA 16,64,0,16,68,45,16,68 
 6730 DATA 13,16,68,45,16,68,1,16 
 6740 DATA 68,33,16,68,1,16,68,33 
 6750 DATA 16,68,1,16,68,33,16,0 
 6760 DATA 68,1,16,56,32,224,68,1 
 6770 DATA 16,68,33,16,60,33,224,4 
 6780 DATA 33,0,4,33,0,4,33,0 
 6790 DATA 4,33,0,4,33,0,4,33 
 6800 DATA 0,4,33,0,4,33,0,4 
 6810 DATA 33,0,4,33,0,4,33,0 
 6820 DATA 4,33,0,8,112,128,16,216 
 6830 DATA 64,31,143,192,31,7,192,0 
 6840 DATA 0,0,0,0,0,0,0,0 
 6850 DATA 0,0,0,0,0,1,128,0 
 6860 DATA 3,128,0,7,0,0,14,0 
 6870 DATA 0,28,0,0,56,0,0,112 
 6880 DATA 0,0,224,0,1,192,0,3 
 6890 DATA 128,0,7,0,0,110,0,0 
 6900 DATA 60,0,0,40,0,0,92,0 
 6910 DATA 0,164,0,0,192,0,0,0 
 6920 DATA 255,255,255,255,255,255,255,255 
 6930 DATA 255,255,255,255,255,255,255,255 
 6940 DATA 255,255,255,247,255,255,255,255 
 6950 DATA 255,227,255,224,193,255,192,65 
 6960 DATA 255,224,193,255,255,227,255,255 
 6970 DATA 255,255,255,255,255,255,255,255 
 6980 DATA 255,255,255,255,255,255,255,255 
 6990 DATA 255,255,255,255,255,255,255,0 
 7000 DATA 0,0,0,0,0,0,0,0 
 7010 DATA 0,0,224,0,0,64,0,0 
 7020 DATA 224,0,0,224,0,1,240,0 
 7030 DATA 3,252,0,3,250,0,3,250 
 7040 DATA 0,3,249,0,3,249,0,3 
 7050 DATA 248,128,3,248,64,3,248,32 
 7060 DATA 3,248,16,3,248,8,3,252 
 7070 DATA 8,3,250,16,3,249,224,0 
 7080 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 7090 DATA 0,0,7,255,252,15,255,244 
 7100 DATA 31,255,236,32,0,28,63,255 
 7110 DATA 220,63,7,220,63,143,220,63 
 7120 DATA 223,220,62,3,220,63,39,220 
 7130 DATA 63,175,220,63,255,220,63,255 
 7140 DATA 216,63,255,208,63,255,224,0 
 7150 DATA 0,120,0,1,254,0,27,123 
 7160 DATA 96,62,181,240,55,123,176,55 
 7170 DATA 207,176,55,183,176,27,123,96 
 7180 DATA 1,254,0,112,204,56,217,254 
 7190 DATA 108,255,255,252,254,253,252,254 
 7200 DATA 253,252,254,205,252,251,51,124 
 7210 DATA 251,255,124,251,183,124,251,207 
 7220 DATA 124,251,123,124,251,255,124,0 
 7230 DATA 251,255,124,251,207,124,251,183 
 7240 DATA 124,251,255,124,251,255,124,251 
 7250 DATA 255,124,251,255,124,251,255,124 
 7260 DATA 249,254,124,249,206,124,249,206 
 7270 DATA 124,137,206,68,113,206,56,113 
 7280 DATA 206,56,225,206,28,193,206,12 
 7290 DATA 105,206,88,49,206,48,1,206 
 7300 DATA 0,7,207,128,15,207,192,0 
 7310 DATA 0,255,0,3,255,192,39,255 
 7320 DATA 228,55,24,236,63,189,252,47 
 7330 DATA 231,244,47,231,244,29,195,120 
 7340 DATA 14,254,240,11,169,208,59,215 
 7350 DATA 220,21,255,168,10,255,80,5 
 7360 DATA 126,160,2,129,64,63,126,252 
 7370 DATA 127,189,254,255,255,255,255,255 
 7380 DATA 255,255,255,255,255,255,255,0 
 7390 DATA 255,255,255,255,255,255,255,255 
 7400 DATA 255,255,255,255,255,255,255,255 
 7410 DATA 255,255,255,255,255,255,255,255 
 7420 DATA 255,255,255,255,255,255,255,255 
 7430 DATA 255,255,255,255,255,255,255,254 
 7440 DATA 231,127,252,231,63,224,231,7 
 7450 DATA 128,231,1,0,231,0,1,231 
 7460 DATA 128,3,195,192,7,129,224,0 
 7470 DATA 1,254,0,7,255,128,15,247 
 7480 DATA 64,31,239,232,59,249,240,255 
 7490 DATA 127,184,123,255,248,239,63,220 
 7500 DATA 255,236,252,239,255,220,247,239 
 7510 DATA 108,255,251,252,124,110,248,111 
 7520 DATA 223,120,55,247,176,95,126,224 
 7530 DATA 15,241,192,7,175,128,1,254 
 7540 DATA 128,0,0,0,0,0,0,0 
 7550 DATA 0,0,0,5,0,32,16,146 
 7560 DATA 64,9,144,128,4,42,220,18 
 7570 DATA 73,32,65,82,252,60,253,0 
 7580 DATA 0,126,88,69,255,32,18,124 
 7590 DATA 80,4,255,136,33,74,0,2 
 7600 DATA 37,194,18,202,56,4,9,0 
 7610 DATA 9,40,144,16,0,64,36,66 
 7620 DATA 32,0,16,0,0,0,0,0 
 7630 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,8 
 7640 DATA 0,0,2,0,0,21,28,3 
 7650 DATA 176,38,7,106,255,255,116,255 
 7660 DATA 252,116,0,0,137,0,0,34 
 7670 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 7680 DATA 0,0,0,0,0,0,112,0 
 7690 DATA 115,192,0,255,0,1,254,0 
 7700 DATA 1,252,0,1,252,0,3,248 
 7710 DATA 0,14,112,0,56,0,0,0 
 7720 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 7730 DATA 0,0,112,0,0,248,0,1 
 7740 DATA 252,0,1,252,0,1,252,0 
 7750 DATA 0,248,0,0,112,0,0,0 
 7760 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 7770 DATA 0 
 7780 DATA OUTDOOR-CARD,INDOOR-CARD,BOMBE,ZUENDER,SCHWERT,STRAHLENANZUG,RAUMANZUG 
 7790 DATA O-TANK,URAN,CRAME,CRANTOR,COMPUTER,ZENTRALE,TUER,SCHIFF,NIMM,GET 
 7800 DATA VERLIER,DROP,ZERSTOERE,LADE,TOETE,OEFFNE,BENUTZE,BETE 
 7810 DATA 26,20,34,205,26,20,31,3,27,160,34,207,26,20,32,219,32,219,26,20 
 7820 DATA 23,59,29,69,19,137,26,20,17,103,20,178,13,208,13,10,13,10,19,137,13,10 
 7830 DATA 7,7,81,4,6,133,4,5,207 
 7840 DATA 1,6,133,1,0,0 
 7850 DATA 11,7,81,4,5,207,1,6,133 
 7860 DATA 3,7,81,4,8,180,4,7,193 
 7870 DATA 4,8,180,1,7,81,1,0,0 
 7880 DATA 3,7,81,8,7,193,4,8,180,1,7,81 
 7890 DATA 3,7,81,4,5,207,4,7,81 
 7900 DATA 4,5,207,1,7,81,1,0,0 
 7910 DATA 3,7,81,4,5,207,4,7,81 
 7920 DATA 4,5,207,1,7,81,1,0,0 
 7930 DATA 3,8,55,4,9,196,4,8,55 
 7940 DATA 4,9,196,1,8,55,1,0,0 
 7950 DATA 16,6,133,2,0,0 
 7960 DATA 3,5,207,13,4,226,1,0,0,15,4,226 
 7970 DATA 3,4,226,13,5,207,1,0,0,16,5,207 
 7980 DATA 3,5,207,13,4,226,1,0,0 
 7990 DATA 3,4,226,13,5,207,1,0,0 
 8000 DATA 3,5,207,13,6,133,1,0,0 
 8010 DATA 8,9,196,8,55 
 8020 DATA 39,18,43,219,46,118,58,138 
 8030 DATA 58,138,52,39,46,118,52,39 
 8040 DATA 52,39,46,118,43,219,46,118 
 8050 DATA 46,118,43,219,43,219,39,18 
 8060 DATA -1,0,39,18,43,219,46,118 
 8070 DATA 52,39,52,39,58,138,58,138 
 8080 DATA 58,138,39,18,43,219,46,118 
 8090 DATA 52,39,52,39,58,138,58,138,39,18 
 8100 DATA 69,157,69,157,69,157,69,157 
 8110 DATA 69,157,62,5,58,138,62,5 
 8120 DATA 62,5,58,138,52,39,58,138 
 8130 DATA 58,138,52,39,52,39,46,118,-34,0 
 8140 DATA 46,118,52,39,58,138,62,5 
 8150 DATA 62,5,69,157,69,157,69,157 
 8160 DATA 46,118,52,39,58,138,62,5 
 8170 DATA 62,5,69,157,69,157,46,118 
 8180 DATA 39,18,43,219,46,118,58,138 
 8190 DATA 58,138,58,138,58,138,39,18 
 8200 DATA 39,18,43,219,46,118,58,138 
 8210 DATA 58,138,58,138,58,138,39,18,-67,0 
 8220 DATA 46,118,52,39,58,138,69,157 
 8230 DATA 69,157,69,157,69,157,46,118 
 8240 DATA 46,118,52,39,58,138,69,157 
 8250 DATA 69,157,69,157,69,157,46,118,-84,0 
 8260 DATA 52,39,58,138,65,181,78,36 
 8270 DATA 78,36,78,36,78,36,52,39 
 8280 DATA 52,39,58,138,65,181,78,36 
 8290 DATA 78,36,78,36,78,36,52,39,-101,0 
 8300 DATA 52,39,58,138,65,181,78,36 
 8310 DATA 52,39,58,138,65,181,78,36 
 8320 DATA 52,39,58,138,65,181,78,36 
 8330 DATA 52,39,58,138,65,181,78,36 
 8340 DATA -118,0,-.1,0 
 8350 N=1:FOR I=1 TO38 
 8360 READ A:READ H:READ L:FOR K=1 TOA:H(3,N)=H:L(3,N)=L 
 8370 N=N+1:NEXT :NEXT 
 8380 N=1:FOR I=1 TO17 
 8390 READ A:READ H:READ L:FOR K=1 TOA:H(2,N)=H:L(2,N)=L 
 8400 N=N+1:NEXT :NEXT 
 8410 READ A:READ H1:READ L1:READ H2:READ L2 
 8420 FOR I=1 TOA:H(2,N)=H1:L(2,N)=L1 
 8430 H(2,N+1)=H2:L(2,N+1)=L2:N=N+2 
 8440 NEXT 
 8450 N=1:FOR I=1 TO135 
 8460 READ H(1,N):READ L(1,N):N=N+1:NEXT 
 8470 RETURN 
 8480 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0 
 8490 DATA 0,31,0,0,127,0,1,244 
 8500 DATA 0,31,255,0,127,255,7,255 
 8510 DATA 255,255,245,85,7,255,255,0 
 8520 DATA 31,255,0,3,255,0,0,15 
 8530 DATA 0,0,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 8540 DATA 0,0,0,0,224,0,0,248 
 8550 DATA 0,0,254,0,0,7,128,0 
 8560 DATA 255,248,0,255,254,0,255,255 
 8570 DATA 224,170,175,255,255,255,224,255 
 8580 DATA 248,0,255,192,0,240,0,0 
 8590 DATA 248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 8600 DATA 1,255,128,3,255,192,7,118 
 8610 DATA 224,9,194,72,22,169,252,66 
 8620 DATA 178,136,48,74,98,4,0,37 
 8630 DATA 170,33,0,4,4,82,16,17 
 8640 DATA 0,132,64,0,1,4,8,0 
 8650 DATA 32,65,72,128,16,0,16,0 
 8660 DATA 0,1,0,0,0,0,8,16 
 8670 DATA 16,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 8680 DATA 0,0,255,255,255,255,255,255 
 8690 DATA 255,255,255,231,57,206,231,57 
 8700 DATA 206,255,255,255,231,57,206,255 
 8710 DATA 255,255,255,255,255,255,255,255 
 8720 DATA 255,255,255,255,255,255,255,255 
 8730 DATA 255,255,255,255,255,255,255,0 
 8740 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 8750 DATA 0,0,255,255,255,255,255,255 
 8760 DATA 255,255,255,115,156,231,115,156 
 8770 DATA 231,255,255,255,115,156,231,255 
 8780 DATA 255,255,255,255,255,255,255,255 
 8790 DATA 255,255,255,255,255,255,255,255 
 8800 DATA 255,255,255,255,255,255,255,0 
 8810 DATA 3,255,192,6,0,112,12,0 
 8820 DATA 28,24,0,7,48,60,1,48 
 8830 DATA 102,0,48,195,0,49,131,0 
 8840 DATA 49,131,0,25,131,0,13,134 
 8850 DATA 0,7,140,0,3,248,0,1 
 8860 DATA 128,1,1,128,51,1,128,118 
 8870 DATA 1,128,220,1,129,152,0,195 
 8880 DATA 16,0,198,16,0,124,16,0 
 8890 DATA 0,0,0,0,0,0,0,0 
 8900 DATA 0,0,0,0,192,0,1,126 
 8910 DATA 0,1,3,254,1,0,3,255 
 8920 DATA 0,0,1,0,0,1,0,0 
 8930 DATA 1,63,0,1,97,141,225,192 
 8940 DATA 207,49,192,206,49,192,204,49 
 8950 DATA 192,204,48,192,204,48,192,236 
 8960 DATA 48,97,188,24,63,24,15,0 
 8970 DATA 0,0,0,0,0,0,0,0 
 8980 DATA 0,0,0,0,152,0,0,140 
 8990 DATA 0,0,140,0,0,248,0,0 
 9000 DATA 128,0,0,135,224,0,140,48 
 9010 DATA 0,152,24,0,152,24,3,152 
 9020 DATA 24,6,152,24,236,152,25,184 
 9030 DATA 204,51,48,103,230,48,49,140 
 9040 DATA 48,27,24,48,254,48,48,0 
 9050 DATA 0 
 9060 FOR I=832 TO832+33:READ A:POKE I,A:NEXT 
 9070 SYS 832:POKE 53272,8:POKE 56576,PEEK (56576)AND 252:POKE 648,192 
 9080 READ A:IF A=255 THENRETURN 
 9090 FOR I=0 TO7:READ B:POKE 59392+I+A*8,B:NEXT 
 9100 GOTO 9080 
 9110 DATA 120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240 
 9120 DATA 133,89,169,224,133,91,32,191,163,169,55,133,1,88,96 
 9130 DATA 49,102,0,60,6,62,102,62,0 
 9140 DATA 50,102,0,60,102,102,102,60,0 
 9150 DATA 51,102,0,102,102,102,102,62,0 
 9160 DATA 52,60,102,102,108,102,102,108,96 
 9170 DATA 255 
 9180 : 
 9190 : 
 9200 REM  WRITTEN IN MARCH 1984 
 9210 REM  BY 
 9220 REM     ANDREAS LUENING 
 9230 REM            + 
 9240 REM    JAN JENS MUENTINGA 
 9250 : 
 9260 REM  PROGRAMM CA 27 KBYTE 
 9270 REM  GESAMMT  CA 34 KBYTE 
 9280 : 
 9290 : 
 9300 REM Q= CRSR DOWN  <= CRSR LEFT 
 9310 REM ↑= CRSR UP    >= CRSR RIGHT 
 9320 REM π= CTRL '8'   E= CTRS '2' 
 9330 REM R= RVS ON    "A"=  C= '1' 
 9340 REM "X"= C= '5'