@R?z! 6X'D:\6=12345 .05|L,S:S PaK<7A$(1)="N"CRYSTALS=CRYSTALS-FF:S=3020-.5:.05|L,S:S Z dFK<7CRYSTALS>2"SIE HABEN JETZT ";CRYSTALS;" KRISTALLE" eFK<7CRYSTALS=1"SIE HABEN JETZT ";CRYSTALS;" KRISTALLE" oK<7200 xK<7READ "SIE SIND GEFLUECHTET...."  200 READ p u1"SIE HABEN JETZT GANEYMEDE VERLASSEN...." z ""MIT ";CRYSTALS;" KRISTALLEN..."  3CRYSTALS<30"WAS ABER NICHT GENUG IST...."  CRYSTALS<30"SIE MUESSEN ALLE KRISTALLE AUF GANEYMEDE LASSEN,UM DEN RUECK- FLUG BEZAHLEN ZU KOENNEN.SO EIN PECH ABER AUCH!" FCRYSTALS<30'"VIELLEICHT KLAPPT ES JA BEIM NAECHSTEN MAL!"  CRYSTALS<30 9"WAS GENUG IST UM NACH HAUSE ZURUECK ZU KOMMEN...."  200  P"SIE SIND NUN SICHER AUF DER ERDEANGEKOMMEN UND ALLE KRISTALLE SIND INTAKT."  <"SIE HABEN ";CRYSTALS*1E6t$;" DM BEZAHLT"'"BEKOMMEN."  300, LL=-502 MAP @ Et"WUENSCHEN SIE DAS HOEHLENSYSTEM ABZUSPEICHERN,UM DAS SPIEL SPAETER AN DIESER STELLE WEITER ZU SPIELEN(J/N)?" J=""8010J T="N" 600X ^ r=""8050r |"GANEYMEDE" L"DRUECKEN SIE""E""ZUR UNTER- BRECHUNG ODER""C""ZUM WEITER- SPIELEN." =""8067  ="E"  8067 READ #( #2"0,6;"GANEYMEDE III" #v>>BB<DHpHDB@~BfZBBBBbRJFB>>   BBb@Df@D@   i   @BR|(Z|B|   i> > > >N~J@B@B@> > > >i   BBF@B@D@   i   >>   n888888# # <@T8\\\/^\.^\X![!HP! !88"W K SR PRflight comments, sound and colour programmed by Armin Hoelken  010 ,8;1;"Rekorder stoppen!"  200  8,4;"* * * *GANEYMEDE III* * * *"  200 #a=07:b:"a"+a,b:a P170,85U,170,85U,170,85U,170,85 U #a=07:b:"b"+a,b:a Q255,131,189,131,189,189,131,255 #a=07:b:"c"+a,b:a Q255,189,153,165,189,189,189,255  LL=200 CRYSTALS=0 INIT=190 DELAY=3000 #READ=4000 (MAP=1000 -A(400) 2 < A<"Erfolgt die Darstellung auf einem Farbfernseher? j/n" B=""66B C ="j"FARBE=1:70F D"n"66B EFARBE=0 F""70F G!FARBE=07:7 H!FARBE=16:6 I K'"Wuenschen Sie eine Erklaerung? j/n" L="j"9000(# M=""76L N"n"76L O PI2,2;2*FARBE;1;"IHR RAUMSCHIFF IST GESTARTET" Rf''"DIE REISE NACH GANEYMEDE ERFORDERT EINE GEWISSE ZEIT. BITTE HABEN SIE EIN WENIG GEDULD" UW''"WENN SIE AUF GANEYMEDE GELANDET SIND,MELDET SICH IHR COMPUTER WIEDER BEI IHNEN." ZINIT [INIT 460 I=140( I  INITIALIZE I=1400 I=3953300 .025{L,I/10 #I20I380|A(I)="" %20*(I/20)=IA(I)="" I=301-I=321AI=341UI=361iI=381}I=21I=41)I=61=I=81QI=101eI=121yI=141I=161I=181I=201I=221I=241I=261I=281A(I)="" +A(I)=0A(I)="." ,I -INIT=3051 / 1 6I=125 ;).025{L,40(-10 *I/25 @C=(*400)+1 JA(C)="."A(C)="C" cC=(*400)+1 hA(C)ɯ""A(C)="" mC=(*400)+1 rA(C)ɯ""A(C)="#" wC=(*400)+1 |A(C)ɯ""A(C)="" I  3500 I=180P '.025{L,30-3*I/8 C=(*400)+1 A(C)ɯ""A(C)="" I  a=0202  .1}L,a a  .11 ,5;1*FARBE;"TOUCHDOWN"  502   502 B"SIE HABEN GANEYMEDE NUN ERREICHT UND SIND IN EINER HOEHLE."  OUT=(*400)+1 A(OUT)ɯ"."476 OUU=(*400)+1 A(OUU)ɯ"."478 "SIE IN RAUM..."; I=0150 E=(*400)+1  A(E)=""A(E)=""535  ORG=A(E)  A(E)="*" E  &,"ES FOLGT EINE KARTE MIT ALLEN RAEUMEN." + 200 0DELAY :MAP DREAD X.25~,0,.5,4,.25~,4,.25~,4,.25~,2,.25~,4,.75@,5,.5,4 b.25~,4,.5,2,.25~,2,.25~,2,.25~,0,.25~,2,.75@,4,.5,0 l.25~,0,.5,4,.25~,4,.25~,4,.25~,2,.25~,4,.75@,5,.5,9 v.25~,9 ,.25~,7,.25~,7,.25~,7,.5,5,.25~,2,1.25 ,0   .5,15 FARBE=01035  I=1400 9A(I)=67C1;4*FARBE;"C";:1030 1A(I)=1453*FARBE;"";:1030 1A(I)=1465*FARBE;"";:1030 "A(I)=143"";:1030 1A(I)=1442*FARBE;"";:1030 !A(I)=46.".";:1030 9A(I)=42*7*FARBE;1;"*";:1030 0A(I)=35#1*FARBE;"#";:1030 20*((I/20))=I I  1050  I=1400 &A(I)="C"1;"C";:1047 &A(I)="*"1;"*";:1047 A(I); 20*((I/20))=I I  0,21;"ERKLAERUNG" $M2,22;7*FARBE;1;"*";0;0;" -SPIELER" .4,22;". -LEER" 8D6,22;3*FARBE;"B";0;" -BEAM" B7,22;" STRAHLEN" L;9 ,22;2*FARBE;"";0;"-ABGESCHL" V10 ,22;" RAUM" `:12 ,22;1*FARBE;"#";0;" -FALLE" jB14,22;5*FARBE;"M";0;" -MONSTER" tR16,22;4*FARBE;1;"C";0;0;"KRISTALLE" ~18,25;"N" 20,25;"S" 19,24;"W+O" ,21,7;"LANDKARTE ALLER RAUEME" I=0300, I 2LL=-502M=131:E:F:E,F:M:  .5,15  Y=190Z  B=0  u"DER PLANET BEFINDET SICH NUN DIREKT UNTER IHREM RAUMSCHIFF. DER BORDCOMPUTER WIRD JETZT DIE LANDUNG EINLEITEN" Z12 ,0;1;3*FARBE;"TRIEBWERKE STOPPEN!"''"LANDERAKETEN ZUENDEN!" H  C11 ,0;1;4*FARBE;"BREMSRAKETEN ZUENDEN!"   ,S=010 2:.05|L,S:S I=132 ""; I B"";4*FARBE;" IN RAUM NUMMER ";E;(31);0;"" I=132 ""; I B"";4*FARBE;" COMPUTER REPORT :";(31);0;"" I=132 ""; I I=112 """;(31);"" 'I ,I=132 6""; @I J6,5; TORG=".""LEERER RAUM." ^ORG="C"4500 cORG=""4700\ hORG="#"4900$ mORG=""5000 rWORK OUT NEXT ROOMS wNORTH=E-20 xEAST=E+1 yWEST=E-1 zSOUTH=E+20 {2*FARBE |08,3;"NORDEN: ";0;A(NORTH) 19 ,3;"SUEDEN: ";0;A(SOUTH) 010 ,3;"OSTEN : ";0;A(EAST) 011 ,3;"WESTEN: ";0;A(WEST)  0 @13 ,3;1*FARBE;"N, S, O, W.UNTERBRECHEN" Q1=E  A(E)=ORG =""4260 ="u"8000@ M$= .05|L,25 /M$="w"A(WEST)""A(WEST)""E=E-1 2M$="s"A(SOUTH)""A(SOUTH)""E=E+20 /M$="o"A(EAST)""A(EAST)""E=E+1 2M$="n"A(NORTH)""A(NORTH)""E=E-20  ORG=A(E)  A(E)="*" >.89c =MAP E=OUTE=OUU9600% READ WO=(*10 )+1  WO=1WO;" KRISTALL...."  WO>1WO;" KRISTALLE..." O.25~,8:.25~,12 :.25~,15:.75@,20 CRYSTALS=CRYSTALS+WO ;19,3;"SIE HABEN NUN ";CRYSTALS;" KRISTALLE." UCRYSTALS<3020,3;30-CRYSTALS;" MUESSEN SIE NOCH SAMMELN." >CRYSTALS3020,3;"DAS REICHT SCHON AUS!"  ORG="."  A(E)="."  \"BEAMSRAHLEN...." _-S=205022:.05|L,S:S aQ1=E f A(E)=ORG pE=(*400)+1 u!A(E)=""A(E)=""4720p zM15,3;"SIE WURDEN ZU RAUM ";E;16,3;"TRANSPORTIERT"  ORG=A(E)  A(E)="*"  $ '-S=40(0-2:.02{# =,S:S ) ./"SIE SIND IN EINE FALLGRUBE GEFALLEN..." / 502 0 G=*2 1D$="" 8I=121 =Y=(*7)+1 CT""(Y);""(1Y*2);""(Y) E/I>4I-1,14+H;1;"*" F'I>3I,14+G;1;"*" GH=G K#G=1+(*1)-(*1) LI Q 6000p  K=(*10 )+1  ORG="." :"SIE HABEN EINEN RAUM MIT EINEM MONSTER BETRETEN."  &K<7"ES HAT SIE GESEHEN."  VK=1"UND ES ISST SIE AUF....(SCHLECK)":S=10 40(:.0015wD,S:S  K=1 K<7200 kK<4"ES LEGT SICH SCHLAFEN. GLUECK GEHABT!":S=300-1:.005y# =,S:S K<4200 K<4READ  K=(*6)+1 K=5A$="GIBT IHNEN.." K5A$="NIMMT SICH" ($FF=(*(CRYSTALS-3))+3 2 <4K<7FF>2"ES ";A$;" ";FF;" KRISTALLE" A3K<7FF=1"ES ";A$;" ";FF;" KRISTALL" F`K<7A$(1)="G"CRYSTALS=CRYSTALS+FF:S=2030.5: