

1 REM**********************************
2 REM*------ASTERIX UND OBELIX--------*
3 REM*----------DIE ODYSSEE-----------*
4 REM*              BY                *
5 REM*         NORBERT KLEIN          *
6 REM*  MAARWEG 6  : 5204 LOHMAR 21   *
7 REM*(BEFEHLSAUSWERTUNG AUS 64'ER SH)*
8 REM**********************************
9 REM ZEILEN WEGLASSEN
10 POKE53280,7:POKE53281,0
11 DATA76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160,0,169
12 DATA160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252,162,32,32,11
14 DATA1,169,53,133,1,88,96:FORI=264TO310:READX:POKEI,X:NEXT:SYS264
16 FORI=710TO730:READX:POKEI,X:NEXT
18 DATA208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168
20 POKE40996,197:POKE40997,2:POKE1,54
22 FORI=43168TO43170:READX:POKEI,X:NEXT
24 FORI=704TO709:READX:POKEI,X:NEXT
26 DATA32,192,2,32,138,173,76,247,183
27 POKE95,0:POKE96,224:POKE90,255:POKE91,255:POKE88,255:POKE89,255:SYS41919
28 POKE59639,16:POKE1,53
29 GOSUB52000:REM INIT.
30 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1
31 POKE53272,(PEEK(53272)AND15)OR0:POKE648,128
32 PRINT"":PRINT"WOLLEN SIE EIN ALTES SPIEL WEITERSPIELEN"
33 PRINT"ODER EIN NEUES BEGINNEN?"
34 GETA$:IFA$=""THEN34
35 IFA$="A"THENGOSUB25000
37 POKE53280,11:POKEV+28,255:GOTO1130
38 POKEV+28,255:POKEV,100:POKEV+1,87:POKEV+2,150:POKEV+3,87:POKEV+4,150
39 POKEV+5,50:POKEV+6,250:POKEV+7,87:POKEV+8,60:POKEV+9,87:POKEV+10,120
40 POKEV+11,50:POKEV+12,60:POKEV+13,100:POKEV+14,150:POKEV+15,150:RETURN
199 REM TEXTFENSTERLOESCHEN UND HOME
200 FORI=1TO10:PRINT:NEXT
201 POKE214,17:POKE211,0:SYS58732:RETURN
299 REM TEXTFENSTERLOESCHEN ,WARTEN UND HOME
300 FORI=1TO850:NEXT:FORI=1TO10:PRINT:NEXT
301 POKE214,17:POKE211,0:SYS58732:RETURN
499 REM RESTART
500 PRINT"ICH BIN TOT !"
502 PRINT"SOLL ICH ES NOCHEINMAL PROBIEREN ?"
503 GETG$:IFG$="N"THENSYS64738
504 IFG$<>"J"THEN503
505 CLR:GOSUB52000:GOTO32
999 REM**** ACTIONMODUL ****
1000 GOSUB50000:REM BEFEHLSEINGABE
1099 REM BEFEHL N,S,O,W,NO,..
1100 IFVE<1ORVE>8THEN2100
1110 IFRI%(VE)=0THENPRINT"IN DIESE RICHTUNG FUEHRT KEIN WEG":GOTO2100
1111 IFP=23ANDGE%(10)<>-2ANDVE<>2THENPRINT"DIE WACHEN ERLAUBEN DAS NICHT!":GOTO1000
1120 PRINT"OBELIX FOLGT MIR!":P=RI%(VE):FORI=1TO1000:NEXT:PR%(1)=P
1125 POKEV+21,0:POKEV+23,0:POKEV+27,0:POKEV+29,0
1130 GOSUB10002+P*100
1140 RESTORE10001+P*100
1150 FORI=1TO8:READRI%(I):NEXT
1160 PRINT"RICHTUNGEN: ";
1165 IC=0:FORI=1TO8:IFRI%(I)<>0THENPRINTVE$(I);",";:IC=1
1170 NEXTI
1175 IFIC=0THENPRINT"KEINE."
1180 IFIC=1THENPRINTCHR$(20)
1181 PRINT"ICH SEHE: ";
1182 IC=0:FORI=1TOOZ:IFOO%(I)=PTHENPRINTOB$(I);",";:IC=1
1183 NEXT
1184 BI=1:FORI=1TOGZ:IFGE%(I)=PORGE%(I)=-PANDP>12THENPRINTGE$(I);",";:IC=1
1190 NEXT
1191 FORI=1TOPZ:IFPR%(I)=PTHENPRINTPE$(I);",";:IC=1
1192 NEXT
1193 IFIC=0THENPRINT"NICHTS BESONDERES."
1194 IFIC=1THENPRINTCHR$(20)
1195 IFA>0THENA=A-1:GOTO2100
1197 IFT=1THENPRINT"DER ZAUBERTRANK HAT KEINE WIRKUNG MEHR":T=0
2099 REM NIMM ROUTINE
2100 IFVE<>9THEN2200
2120 IFGE%(G1)=-1THENPRINT"HABE ICH SCHON":GOTO2200
2123 IFGE%(G1)<>PANDOB=0ANDPE=0THENPRINT"ICH SEHE "GE$(G1)" NICHT"
2125 IFPE<>0THENPRINT"DAS GEHT NICHT"
2126 IFPR%(10)=PTHENPRINT"DAS KROKODIL LAESST MICH NICHT!":GOTO2200
2127 IFOB<>0THENPRINT"DAS IST ZU SCHWER FUER MICH"
2128 IFAG>5THENPRINT"ICH TRAGE SCHON 5 GEGENSTAENDE!":GOTO2200
2130 IFGE%(G1)=PTHENGE%(G1)=-1:PRINT"ICH NEHME "GE$(G1):AG=AG+1
2140 IFUD=0ANDIC=1THENIC=0:VE=0:GOSUB300:GOTO1140
2199 REM INVENTUR ROUTINE
2200 IFVE<>37THEN2300
2210 PRINT"ICH HABE: "
2220 IC=0:FORI=1TOGZ:IFGE%(I)=-1THENPRINTTAB(5)GE$(I):POKE198,0:WAIT198,1:IC=1
2225 NEXT
2230 IFIC=0THENPRINT"NICHTS."
2235 POKE198,0:WAIT198,1:IFUD<>1THENVE=0:GOTO1130
2299 REM VERLIER ROUTINE
2300 IFVE<>11THEN2400
2310 IFGE%(G1)<>-1THENPRINT"ICH HABE DAS NICHT.":GOTO2400
2320 GE%(G1)=P:PRINT"ICH LEGE "GE$(G1)" HIN."

-----------------------------------------------------
--------------ZEILE 2320 GENDERT--------------------
2320 GE%(G1)=P:PRINT"ICH LEGE "GE$(G1)" HIN.":AG=AG-1
-----------------------------------------------------

2325 IFPR%(10)=PANDG1=4THENPRINT"DAS SEIL WICKELT SICH UM DAS MAUL"
2326 IFPR%(10)=PANDG1=4THENPRINT"DES KROKODILS!DAS KROKODIL IST DAVON"
2327 IFPR%(10)=PANDG1=4THENPRINT"SO ERSCHRECKT,DASS ES DAVONLAEUFT!":PR%(10)=0:IC=1
2334 IFIC=1THENIC=0:FORI=1TO2000:NEXT
2335 IFUD=0THENVE=0:GOTO1140
2399 REM SCHAU ROUTINE
2400 IFVE<>36THEN2500
2410 IFOB=0ANDG1=0ANDPE=0THENGOSUB200:VE=0:GOTO1140
2415 IFOB=1ANDOO%(1)=PTHENPRINT"DAS SCHIFF IST SEHR GROSS"
2417 IFPE=2ANDPR%(2)=PTHENPRINT"DIE SCHLANGE IST RIESIG"
2418 IFOB=3ANDOO%(2)=PTHENPRINT"ES IST DEIN HAUS"
2419 IFOB=3ANDOO%(3)=PTHENPRINT"ES IST DAS HAUS VON MIRAKULIX"
2420 IFPE=3ANDPR%(3)=PTHENPRINT"SIE BEDROHEN DEN KAUFMANN"
2421 IFPE=5ANDPR%(5)=PTHENPRINT"ER HAT ANGST UM SEIN LEBEN"
2422 IFG1=3ANDGE%(3)=-1THENPRINT"VIELEICHT LESE ICH IHN BESSER!"
2423 IFPE=4ANDPR%(4)=PTHENPRINT"ER SAGT,DASS ICH SICHER EIN"
2424 IFPE=4ANDPR%(4)=PTHENPRINT"GALLIER BIN.ER HAT DAS AN"
2425 IFPE=4ANDPR%(4)=PTHENPRINT"MEINER KLEIDUNG ERKANNT!"
2426 IFPE=9ANDPR%(9)=PTHENPRINT"ER WILL SEINEN HUND VERKAUFEN!"
2427 IFPE=9ANDP=19THENPRINT"ER WILL HEBRAEISCHE KLEIDER VERKAUFEN!"
2428 IFG1=9ANDGE%(9)=PTHENPRINT"ES IST EIN KLEINER,WEISSER HUND!"
2429 IFG1=10ANDGE%(10)=PTHENPRINT"ES SIND HEBRAEISCHE KLEIDER!"
2430 IFPE=10ANDPR%(10)=PTHENPRINT"ES SIEHT SEHR GRIMMIG AUS!"
2499 REM LIES ROUTINE
2500 IFVE<>41THEN2600
2506 IFGE%(3)<>-1THEN2514
2507 IFG1=3THENPRINT" "
2508 IFG1=3THENPRINT"   AUCH  GROSSE  "
2509 IFG1=3THENPRINT"     SCHLANGEN   "
2510 IFG1=3THENPRINT"       SIND      "
2511 IFG1=3THENPRINT"                 "
2512 IFG1=3THENPRINT"   K I T Z L I G "
2513 IFG1=3THENPRINT" ":POKE198,0:WAIT198,1:PRINT""
2514 IFG1=3THENIFUD=0THENVE=0:GOTO1130
2515 PRINT"WAS SOLL ICH BITTESCHOEN HABEN , DAS"
2516 PRINT"ICH ES LESEN KOENNTE?"
2599 REM TRINK ROUTINE
2600 IFVE<>32THEN2700
2602 IFF=1THENPRINT"DIE FLASCHE IST LEER!":GOTO2700
2603 IFG1<>13THENPRINT"DAS KANN ICH NICHT TRINKEN!":GOTO2700
2604 IFGE%(6)<>-1THENPRINT"ICH HABE DEN ZAUBERTRANK NICHT!":GOTO2700
2605 PRINT"ICH TRINKE DEN ZAUBERTRANK":T=1:A=3:F=1:PRINT"AAAHH !! IST DAS GUT!"
2699 REM WARTE ROUTINE
2700 IFVE<>23THEN2800
2702 IFGE%(10)<>-2ORPR%(7)<>PTHEN2710
2703 PRINT"JETZT ENTDECKT AUCH OBELIX DIE"
2704 PRINT"PATROULLIE UND SCHLAEGT ALLE ROEMER"
2705 PRINT"KO. ER KOMMT ZURUECK UND GIBT DIR"
2706 PRINT"EINEN SCHLUESSEL DEN ER BEI DEN"
2707 PRINT"ROEMERN GEFUNDEN HAT."
2708 GE%(14)=-1:POKEV+21,0:GOTO2800
2710 PRINT"DIE ZEIT VERINNT!"
2799 REM SUCH ROUTINE
2800 IFVE<>39THEN2900
2802 PRINT"ICH HABE NICHTS GEFUNDEN."
2899 REM SAGE ROUTINE
2900 IFVE<>35THEN3000
2902 PRINT"OK.":UD=0
2999 REM TRAGE ROUTINE
3000 IFVE<>30THEN3100
3002 IFG1<>10THENPRINT"DAS KANN ICH NICHT ANZIEHEN!":GOTO3100
3003 IFGE%(10)=-2THENPRINT"ICH HABE DIE KLEIDER SCHON AN!":GOTO3100
3004 IFGE%(10)<>-1THENPRINT"ICH HABE KEINE KLEIDER!":GOTO3100
3005 PRINT"OK. ICH HABE DIE KLEIDER ANGEZOGEN!":GE%(10)=-2
3099 REM BEFESTIGE ROUTINE
3100 IFVE<>15THEN3200
3102 IFG1<>4THENPRINT"ICH KANN DAS NICHT FESTMACHEN!":GOTO3200
3103 IFGE%(4)<>-1THENPRINT"ICH HABE DAS SEIL NICHT!":GOTO3200
3104 IFGE%(4)=-PTHENPRINT"DAS SEIL IST SCHON FEST!":GOTO3200
3105 PRINT"OK.DAS SEIL IST FEST!":GE%(4)=-P:GE%(15)=-(P-1)
3199 REM LOESE ROUTINE
3200 IFVE<>45THEN3300
3202 IFG1<>4THENPRINT"ICH KANN DAS NICHT LOESEN!":GOTO3300
3203 IFGE%(4)<>-PANDGE%(15)<>-PTHENPRINT"DAS SEIL IST HIER NICHT ANGEBUNDEN!":GOTO3300
3204 PRINT"ICH HABE DAS SEIL LOSGEMACHT!":GE%(4)=P:GE%(15)=0
3220 GOTO1000
3299 REM SPRINGE ROUTINE
3300 IFVE<>34THEN3400
3302 PRINT"OK."
3399 REM OEFFNE ROUTINE
3400 IFVE<>42THEN3500
3402 IFOB<>7THENPRINT"DAS GEHT NICHT!":GOTO3500
3403 IFGE%(14)<>-1THENPRINT"ICH HABE KEINEN SCHLUESSEL!":GOTO3500
3404 PRINT"OK. ICH OEFFNE DIE KISTE!":PRINT"IN DER KISTE LIEGT EIN BEUTEL":GE%(8)=P
3499 REM FUELLE ROUTINE
3500 IFVE<>47THEN3600
3502 IFG1<>8ORGE%(8)<>-1THEN3600
3503 GOTO30000
3599 REM SPRUNG ZUR SAVE ROUTINE
3600 IFVE<>48THEN3700
3602 GOSUB20000
3699 REM SPRUNG ZUR LOAD ROUTINE
3700 IFVE<>50THEN3800
3702 GOSUB25000
3799 REM TOETE ROUTINE
3800 IFVE<>20THEN3900
3802 IFPE<>3ORP<>6THEN3808
3803 IFT<>1THENPRINT"DIE ROEMER WAREN STAERKER ALS ICH !":GOTO500
3804 PRINT"DIE ROEMER LAUFEN DAVON.":PR%(3)=0:POKEV+21,12
3805 PRINT"DER KAUFMANN BEDANKT SICH UND"
3806 PRINT"BRINGT MICH UND OBELIX ZU SEINEM SCHIFF":P=12:FORI=1TO4500:NEXT
3807 VE=0:GOTO1130
3808 IFPE<>2ORP<>5THEN3810
3809 PRINT"DIE SCHLANGE HAT MICH GEBISSEN !":GOTO500
3810 IFPE<>10ORP<>36THEN3900
3811 PRINT"DAS KROKODIL HAT MICH GEFRESSEN !":GOTO500
3900 GOSUB10021+P*100
3920 GOTO1000
10000 REM**** SPIELKARTE ****
10100 REM PLATZ1-------
10101 DATA4,0,2,0,0,0,0,0
10102 GOSUB62020:GOSUB62104:PRINT"ICH BIN VOR EINEM HAUS"
10103 POKEV+21,1:POKE33784,21:POKEV,192:POKEV+1,117:POKEV+39,0:POKEV+37,10
10104 POKEV+38,6
10120 RETURN
10121 RETURN
10200 REM PLATZ2-------
10201 DATA0,0,3,1,0,0,0,0
10202 GOSUB62020:GOSUB62112:PRINT"ICH BIN VOR EINEM HAUS"
10220 RETURN
10221 IFVE<>18THEN10229
10222 GOSUB200:GOSUB62143:PRINT"ICH BIN VOR EINEM HAUS":TU=1
10223 PRINT"DIE TUER GEHT AUF"
10224 PRINT"UND MIRAKULIX KOMMT HERAUS"
10225 POKEV+21,3:POKE33784,17:POKE33785,18:POKEV,156:POKEV+1,110:POKEV+2,156
10226 POKEV+3,130:POKEV+39,10:POKEV+40,9:POKEV+37,9:POKEV+38,1:POKEV+23,2
10227 GOTO10299
10229 IFVE<>24ANDPEEK(V+21)=0ANDTU=0THEN10299
10230 IFVE<>24THEN10236
10231 IC=0:GOSUB200:GOSUB62112:PRINT"ICH BIN VOR EINEM HAUS"
10232 IFG1=1ANDGE%(1)=-1ANDTU=1THENPRINT"ER GIBT MIR EINE FLASCHE ZAUBERTRANK.":IC=1
10233 IFG1=1ANDGE%(1)<>-1THENPRINT"ICH HABE KEINE SICHEL"
10234 IFIC=1THENIC=0:GE%(1)=0:GE%(6)=-1:TU=0
10236 PRINT"ER GEHT WIEDER ZURUECK UND SCHLIESST"
10237 PRINT"DIE TUER."
10238 POKEV+21,0
10299 RETURN
10300 REM PLATZ3-------
10301 DATA6,0,8,2,7,5,0,0
10302 GOSUB62036:PRINT"ICH BIN AM AUSGANG DES DORFES"
10320 RETURN
10321 RETURN
10400 REM PLATZ4-------
10401 DATA0,1,5,0,0,0,0,0
10402 GOSUB62036:PRINT"ICH BIN AM AUSGANG DES DORFES"
10420 RETURN
10421 RETURN
10500 REM PLATZ5-------
10501 DATA0,0,6,4,0,0,3,0
10502 GOSUB62052:PRINT"ICH BIN AUF EINER WIESE"
10503 IFPR%(2)<>PTHEN10520
10504 POKEV+21,3:POKE33784,22:POKE33785,23:POKEV+23,1:POKEV,150:POKEV+1,100
10505 POKEV+2,150:POKEV+3,130:POKEV+39,1:POKEV+40,1:POKEV+37,0:POKEV+38,0
10520 RETURN
10521 IFPE<>2ORPR%(2)<>PTHEN10599
10522 IFVE=43THENPRINT"DIE SCHLANGE ZICHT LAUT UND KRIECHT WEG":PR%(2)=0
10523 IFVE=43THEN:GE%(12)=5:PRINT"SIE LAESST EINEN HAUFEN GOLD LIEGEN":POKEV+21,0
10525 IFVE<>43THENPRINT"DIE SCHLANGE ZICHT BOESARTIG"
10599 RETURN
10600 REM PLATZ6-------
10601 DATA0,3,7,5,0,0,8,0
10602 GOSUB62052:PRINT"ICH BIN AUF EINER WIESE"
10603 IFPR%(3)<>PTHEN10620
10604 POKEV+21,63:POKE33784,19:POKE33785,20:POKE33786,16:POKE33787,18:POKE33788,19
10605 POKE33789,20:POKEV,100:POKEV+1,100:POKEV+2,100:POKEV+3,120:POKEV+4,120
10606 POKEV+5,100:POKEV+6,120:POKEV+7,120:POKEV+8,140:POKEV+9,100:POKEV+10,140
10607 POKEV+11,120:POKEV+39,11:POKEV+40,11:POKEV+41,10:POKEV+42,0:POKEV+43,11
10608 POKEV+44,11:POKEV+37,0:POKEV+38,1:POKEV+23,42
10620 RETURN
10621 RETURN
10700 REM PLATZ7-------
10701 DATA0,8,9,6,0,0,10,3
10702 GOSUB62052:PRINT"ICH BIN AUF EINER WIESE"
10720 RETURN
10721 RETURN
10800 REM PLATZ8-------
10801 DATA7,0,10,3,9,6,0,0
10802 GOSUB62052:PRINT"ICH BIN AUF EINER WIESE"
10820 RETURN
10821 RETURN
10900 REM PLATZ9-------
10901 DATA0,10,0,7,0,0,11,8
10902 GOSUB62052:PRINT"ICH BIN AUF EINER WIESE"
10920 RETURN
10921 RETURN
11000 REM PLATZ10------
11001 DATA9,0,11,8,0,7,0,0
11002 GOSUB62052:PRINT"ICH BIN AUF EINER WIESE"
11020 RETURN
11021 RETURN
11024 POKEV+29,1
11100 REM PLATZ11------
11101 DATA12,0,0,10,0,9,0,0
11102 GOSUB62052:PRINT"ICH BIN AM STRAND"
11120 RETURN
11121 RETURN
11200 REM PLATZ12------
11201 DATA0,11,0,0,0,0,0,0
11202 GOSUB62052:GOSUB62120:PRINT"ICH BIN AM STRAND"
11203 POKEV+21,1:POKE33784,24:POKEV,155:POKEV+1,80:POKEV+38,7:POKEV+39,6:POKEV+37,7
11204 POKEV+23,1:POKEV+29,1
11220 RETURN
11221 IFVE<>28OROB<>1ORPR%(3)<>0THEN11299
11222 PRINT"OBELIX FOLGT MIR!":FORI=1TO500:NEXT:GOTO62010
11299 RETURN
11300 REM PLATZ 13------
11301 DATA14,0,0,16,0,0,0,0
11302 GOSUB62052:GOSUB62120:PRINT"ICH BIN AM STRAND"
11303 POKEV+21,1:POKE33784,24:POKEV,155:POKEV+1,80:POKEV+38,7:POKEV+39,6:POKEV+37,7
11304 POKEV+23,1:POKEV+29,1
11320 RETURN
11321 IFVE=28ANDOB=1THENPRINT"DAS GEHT NICHT MEHR!"
11399 RETURN
11400 REM PLATZ 14------
11401 DATA0,13,0,15,0,0,0,0
11402 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
11420 RETURN
11421 RETURN
11500 REM PLATZ 15------
11501 DATA0,0,0,0,0,0,0,0
11502 GOSUB62052:PRINT"ICH BIN IM TREIBSAND"
11520 RETURN
11521 IFGE%(4)<>-1THENPRINT"ICH VERSINKE IM TREIBSAND":GOTO500
11522 IFVE<>28ORG1<>4ORGE%(4)<>-PTHEN11599
11523 P=14:PRINT"OBELIX FOLGT MIR!":PR%(1)=P:FORI=1TO500:NEXT:GOTO1130
11599 RETURN
11600 REM PLATZ 16------
11601 DATA0,0,13,17,0,0,0,0
11602 GOSUB62052:GOSUB62155:PRINT"ICH BIN AN EINER OASE"
11604 POKEV+21,3:POKE33784,16:POKE33785,18:POKEV,120:POKEV+1,100:POKEV+2,120
11605 POKEV+3,120:POKEV+39,10:POKE40,0:POKEV+37,0:POKEV+38,1:POKEV+23,2
11620 RETURN
11621 RETURN
11700 REM PLATZ 17------
11701 DATA0,0,16,0,0,0,0,0
11702 GOSUB62070:PRINT"ICH BIN AN EINER STADTMAUER"
11720 RETURN
11721 IFVE<>28OROB<>5THEN11799
11722 PRINT"OBELIX FOLGT MIR!":FORI=1TO500:NEXT
11723 PRINT"DIE LEITER BRICHT HINTER UNS , WIR"
11724 PRINT"KOENNEN NICHT MEHR ZURUECK!"
11725 FORI=1TO2500:NEXT:P=18:VE=0:PR%(1)=P:GOTO1130
11799 RETURN
11800 REM PLATZ 18------
11801 DATA21,0,0,19,22,20,0,0
11802 GOSUB62087:PRINT"ICH BIN IN EINER STRASSE"
11820 RETURN
11821 RETURN
11900 REM PLATZ 19------
11901 DATA20,0,18,0,21,0,0,0
11902 GOSUB62087:GOSUB62130:PRINT"ICH BIN VOR EINEM GESCHAEFT"
11904 POKEV+21,3:POKE33784,16:POKE33785,18:POKEV,170:POKEV+1,130:POKEV+2,170
11905 POKEV+3,150:POKEV+39,10:POKE40,9:POKEV+37,9:POKEV+38,6:POKEV+23,2:POKEV+27,3
11920 RETURN
11921 IFVE<>27THEN11999
11922 IFG1<>10THENPRINT"DAS KANN MAN HIER NICHT KAUFEN!":GOTO11999
11923 PRINT"DER HAENDLER WILL DAFUER GOLD HABEN"
11924 PRINT"WILLST DU ES GEBEN ":INPUTA$:IFA$="NEIN"THENA$=""GOTO11999
11925 IFGE%(12)<>-1THENPRINT"DU HAST ES NICHT":A$="":GOTO11999
11926 PRINT"OK. HABE DIE KLEIDER!":GE%(12)=0:GE%(10)=-1:A$=""
11999 RETURN
12000 REM PLATZ 20------
12001 DATA23,19,21,0,0,0,18,0
12002 GOSUB62087:PRINT"ICH BIN IN EINER STRASSE"
12020 RETURN
12021 RETURN
12100 REM PLATZ 21------
12101 DATA0,18,22,0,0,0,0,19
12102 GOSUB62087:PRINT"ICH BIN IN EINER STRASSE"
12104 POKEV+21,3:POKE33784,19:POKE33785,20:POKEV,170:POKEV+1,120:POKEV+2,170
12105 POKEV+3,140:POKEV+37,12:POKEV+38,1:POKEV+39,11:POKEV+40,11:POKEV+23,2
12120 RETURN
12121 IFGE%(10)<>-2THENPRINT"DIE PATROULLIE HAT UNS AN DEN"
12122 IFGE%(10)<>-2THENPRINT"KLEIDERN ERKANNT UND SCHLAEGT ALARM!":GOTO500
12199 RETURN
12200 REM PLATZ 22------
12201 DATA0,0,0,21,0,0,0,18
12202 GOSUB62087:PRINT"ICH BIN IN EINER STRASSE"
12220 RETURN
12221 RETURN
12300 REM PLATZ 23------
12301 DATA32,20,24,0,31,0,0,0
12302 GOSUB62070:GOSUB62138:PRINT"ICH BIN AM STADTTOR"
12304 POKEV+21,15:POKE33784,19:POKE33785,20:POKE33786,19:POKE33787,20
12305 POKEV,95:POKEV+1,120:POKEV+2,95:POKEV+3,140:POKEV+4,212
12306 POKEV+5,120:POKEV+6,212:POKEV+7,140:POKEV+37,0:POKEV+38,1:POKEV+39,11
12307 POKEV+40,11:POKEV+41,11:POKEV+42,11:POKEV+23,10
12320 RETURN
12321 RETURN
12400 REM PLATZ 24------
12401 DATA31,0,25,23,30,32,0,0
12402 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
12420 RETURN
12421 RETURN
12500 REM PLATZ 25------
12501 DATA30,0,26,24,29,31,0,0
12502 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
12520 RETURN
12521 RETURN
12600 REM PLATZ 26------
12601 DATA29,0,27,25,28,30,0,0
12602 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
12620 RETURN
12621 RETURN
12700 REM PLATZ 27------
12701 DATA28,0,0,26,0,29,0,0
12702 GOSUB62052:GOSUB62155:PRINT"ICH BIN AN EINER OASE"
12720 RETURN
12721 RETURN
12800 REM PLATZ 28------
12801 DATA37,27,0,29,0,36,0,26
12802 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
12820 RETURN
12821 RETURN
12900 REM PLATZ 29------
12901 DATA36,26,28,30,37,35,27,25
12902 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
12920 RETURN
12921 RETURN
13000 REM PLATZ 30------
13001 DATA35,25,29,31,36,34,26,24
13002 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
13020 RETURN
13021 RETURN
13100 REM PLATZ 31------
13101 DATA34,24,30,32,35,33,25,23
13102 GOSUB62052:GOSUB62155:PRINT"ICH BIN AN EINER OASE"
13120 RETURN
13121 RETURN
13200 REM PLATZ 32------
13201 DATA33,23,31,0,0,0,24,0
13202 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
13220 RETURN
13221 RETURN
13300 REM PLATZ 33------
13301 DATA42,0,34,0,0,0,31,0
13302 GOSUB62052:GOSUB62151:PRINT"ICH BIN VOR EINEM STAND"
13304 POKEV+21,3:POKE33784,16:POKE33785,18:POKEV,170:POKEV+1,110:POKEV+2,170
13305 POKEV+3,130:POKEV+39,10:POKE40,0:POKEV+37,0:POKEV+38,1:POKEV+23,2
13320 RETURN
13321 IFVE<>27THEN13399
13322 IFG1<>9THENPRINT"DAS GIBT ES HIER NICHT":GOTO13399
13323 PRINT"DER HAENDLER WILL DAS SCHWERT!"
13324 PRINT"WILLST DU ES GEBEN ":INPUTA$:IFA$="NEIN"THENA$="":GOTO13399
13325 IFGE%(2)<>-1THENPRINT"DU HAST ES NICHT":A$="":GOTO13399
13326 PRINT"OK. ICH HABE DEN HUND BEKOMMEN!":GE%(2)=0:GE%(9)=-1:A$=""
13399 RETURN
13400 REM PLATZ 34------
13401 DATA41,31,35,33,40,42,30,0
13402 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
13420 RETURN
13421 RETURN
13500 REM PLATZ 35------
13501 DATA40,30,36,34,39,41,29,31
13502 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
13520 RETURN
13521 RETURN
13600 REM PLATZ 36------
13601 DATA39,29,37,35,38,40,28,30
13602 GOSUB62052:GOSUB62155:PRINT"ICH BIN AN EINER OASE"
13620 RETURN
13621 RETURN
13700 REM PLATZ 37------
13701 DATA38,28,0,36,0,39,0,29
13702 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
13720 RETURN
13721 RETURN
13800 REM PLATZ 38------
13801 DATA47,37,0,39,0,46,0,36
13802 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
13820 RETURN
13821 RETURN
13900 REM PLATZ 39------
13901 DATA46,36,38,40,47,0,37,35
13902 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
13920 RETURN
13921 RETURN
14000 REM PLATZ 40------
14001 DATA45,35,39,41,46,0,36,34
14002 GOSUB62052:PRINT"ICH BIN IN EINER STEPPE"
14020 RETURN
14021 IFGE%(9)<>-1ORGE%(11)=PTHEN14099
14022 PRINT"DER HUND BUDDELT IN DER ERDE!"
14023 FORI=1TO2000:NEXT:PRINT"PLOETZLICH FAENGT DER BODEN"
14024 FORI=1TO2000:NEXT:PRINT"AN ZU WACKELN,"
14025 FORI=1TO4000:NEXT:PRINT"UND JETZT KOMMT STEINOEL AUS DEM BODEN"
14026 PRINT"GESCHOSSEN!":GE%(11)=P
14099 RETURN
14100 REM PLATZ 41------
14101 DATA44,34,40,42,0,43,35,0
14102 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
14120 RETURN
14121 RETURN
14200 REM PLATZ 42------
14201 DATA43,33,41,0,0,0,34,0
14202 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
14220 RETURN
14221 RETURN
14300 REM PLATZ 43------
14301 DATA0,42,44,0,0,0,41,0
14302 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
14320 RETURN
14321 RETURN
14400 REM PLATZ 44------
14401 DATA0,0,0,0,0,0,0,0
14402 GOSUB62052:PRINT"ICH BIN IM TREIBSAND"
14420 RETURN
14421 IFGE%(4)<>-1THENPRINT"ICH VERSINKE IM TREIBSAND":GOTO500
14422 IFVE=28ANDG1=4ANDGE%(4)=-PTHENP=43:GOTO1130
14499 RETURN
14500 REM PLATZ 45------
14501 DATA0,0,0,44,0,0,0,0
14502 GOSUB62052:PRINT"ICH BIN IM TREIBSAND"
14520 RETURN
14521 IFGE%(4)<>-1THENPRINT"ICH VERSINKE IM TREIBSAND":GOTO500
14522 RETURN
14600 REM PLATZ 46------
14601 DATA0,39,47,45,0,0,38,40
14602 GOSUB62052:PRINT"ICH BIN IN DER WUESTE"
14620 RETURN
14621 RETURN
14700 REM PLATZ 47------
14701 DATA0,38,0,46,0,0,0,39
14702 GOSUB62052:GOSUB62155:PRINT"ICH BIN AN EINER OASE"
14720 RETURN
14721 RETURN
19999 REM**** SAVE-ROUTINE ****
20000 GOSUB200:PRINTTAB(7);
20010 INPUT"NAME DES FILES:";N$
20020 OPEN1,8,2,N$+"&,S,W"
20040 FORI=1TOGZ
20041 : PRINT#1,GE%(I)
20042 NEXT
20050 FORI=1TOOZ
20051 : PRINT#1,OO%(I)
20052 NEXT
20060 FORI=1TOPZ
20061 : PRINT#1,PR%(I)
20062 NEXT
20065 PRINT#1,P:CLOSE1
20070 PRINT"TASTE":POKE198,0:WAIT198,1:RETURN
24999 REM**** LOAD-ROUTINE ****
25000 GOSUB200:PRINTTAB(7);
25010 INPUT"NAME DES FILES:";N$
25030 OPEN1,8,2,N$+"&,S,R"
25032 FORI=0TO15:N$=N$+CHR$(PEEK(833+I)):NEXT
25040 FORI=1TOGZ
25041 : INPUT#1,GE%(I)
25043 NEXT
25050 FORI=1TOOZ
25051 : INPUT#1,OO%(I)
25053 NEXT
25060 FORI=1TOPZ
25061 : INPUT#1,PR%(I)
25063 NEXT
25065 INPUT#1,P:CLOSE1
25070 PRINT"TASTE":POKE198,0:WAIT198,1:RETURN
29999 REM**** GEWONNEN ****
30000 FORI=1TO32:FORI1=1TO16:POKE53280,I1:NEXT:POKE53281,I:NEXT
30010 PRINT"":A$="HERZLICHEN GLUECKWUNSCH !!":GOSUB35000
30020 A$="SIE HABEN DAS ADVENTURE GELOEST":GOSUB35000
30030 A$="ICH HOFFE SIE HABEN NICHT ZU OFT":GOSUB35000
30040 A$="IM LISTING NACH LOESUNGSHINWEISEN":GOSUB35000
30050 A$="GESUCHT! DAS GILT NATUERLICH NICHT!":GOSUB35000
30060 A$="ICH WUENSCHE IHNEN NOCH EBENSOVIEL":GOSUB35000
30070 A$="GLUECK BEI ANDEREN ADVENTURES!":GOSUB35000
30080 PRINT:PRINT:A$=" ENDE ":GOSUB35000:END
35000 FORI=1TOLEN(A$):PRINTMID$(A$,I,1);" ";:FORI1=1TO100:NEXT:NEXT
35010 PRINT" ":RETURN
49998 REM **** BEFEHLSEINGABE ****
49999 REM *ZERLEGUNG U. CODIERUNG*
50000 IFUD=1THEN50220
50060 POKE198,0:BE$="":PRINT"> ";
50080 GETX$:IFX$=""THEN50080
50090 IFPEEK(203)=1ORLEN(BE$)>68THENPRINT" ":GOTO50140
50100 I=ASC(X$):IFI<65ORI>90THENIFI<>32ANDI<>20ANDI<>44ANDI<>39THEN50080
50110 IFI=20ANDBE$=""THEN50080
50120 IFI=20THENPRINT"  ";:BE$=LEFT$(BE$,LEN(BE$)-1):GOTO50080
50130 PRINTX$"";:BE$=BE$+X$:GOTO50080
50140 FORI=1TO10:BE$(I)="":NEXT:WZ=1:FORI=1TOLEN(BE$)
50150 IFMID$(BE$,I,1)=" "THENGOSUB50190:GOTO50180
50160 IFWZ>10THENPRINT"EINGABE ZU LANG !!!":I=LEN(BE$)+1:GOTO50180
50170 BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
50180 NEXTI:GOTO50220
50190 IC=0:FORI1=1TOAZ:IFBE$(WZ)=AU$(I1)THENIC=1
50200 NEXTI1:IFIC=0THENWZ=WZ+1:RETURN
50210 BE$(WZ)="":RETURN
50220 IFUD=1THENUD=0:GOTO50240
50230 WZ=1:VE=0:OB=0:PE=0
50240 IC=0:G1=0:G2=0
50250 FORI=1TOVZ:IFBE$(WZ)=VE$(I)THENVE=I:IC=1
50251 IFLEN(BE$(WZ))<3THEN50260
50255 IFBE$(WZ)=LEFT$(VE$(I),LEN(BE$(WZ)))THENVE=I-VAL(RIGHT$(VE$(I),1)):IC=1
50260 NEXTI:IFIC=1THEN50350
50270 FORI=1TOGZ:IFBE$(WZ)<>GE$(I)THEN50300
50280 IC=1:IFG1=0THENG1=I
50290 G2=I:IFG2=G1THENG2=0
50300 NEXTI:IFIC=1THEN50350
50310 FORI=1TOOZ:IFBE$(WZ)=OB$(I)THENOB=I:IC=1
50320 NEXTI:IFIC=1THEN50350
50330 FORI=1TOPZ:IFBE$(WZ)=PE$(I)THENPE=I:IC=1
50340 NEXTI
50350 IFBE$(WZ)="UND"ORBE$(WZ)="DANN"ORBE$(WZ)=","ORBE$(WZ)="'"THENUD=1:IC=1
50360 IFIC=0THENPRINT"ICH KENNE '"BE$(WZ)"' NICHT !":RETURN
50370 WZ=WZ+1:IFWZ>10ORBE$(WZ)=""ORUD=1THENRETURN
50380 IC=0:GOTO50250
51999 REM**** TABELLEN ****
52000 RESTORE52000
52051 REM VARIABELN
52052 V=53248:P=1
52060 REM VERBTABELLE---------
52070 VZ=52:DIMVE$(VZ):FORI=1TOVZ:READVE$(I):NEXT
52072 DATAN,S,O,W,NO,NW,SO,SW
52074 DATANIMM,NEHME1,VERLIERE,WIRF1,WERFE2,LEGE3,BINDE,BEFESTIGE1,VERKNOTE2
52075 DATAKLOPFE,BERUEHRE1,SCHLAGE,VERPRUEGELE1,TOETE2,WARTE,GIB,GEBE1
52078 DATAREICHE2,KAUFE,KLETTERE,GEHE1,TRAGE,BENUTZE1,TRINKE,SCHLUERFE1,SPRINGE
52080 DATASAGE,SCHAU,INVENTUR,LIST1,SUCHE,ERKUNDE1,LIES,OEFFNE,KITZEL,KITZLE1
52082 DATALOESE,ENTFERNE1,FUELLE,SPEICHERE,SAVE1,LADE,LOAD1,RESTART2
52100 REM GEGENSTANDTABELLE------
52102 GZ=15:DIMGE$(GZ),GE%(GZ):FORI=1TOGZ:READGE$(I):READGE%(I):NEXT
52104 DATASICHEL,1,SCHWERT,1,ZETTEL,5,SEIL,14,KEULE,18,FLASCHE,0,KESSEL,22
52106 DATABEUTEL,0,HUND,0,KLEIDER,0,STEINOEL,0,GOLD,0,ZAUBERTRANK,0
52107 DATASCHLUESSEL,0,SEIL,0
52110 REM OBJEKTTABELLE--------
52112 OZ=7:DIMOB$(OZ),OO%(OZ):FORI=1TOOZ:READOB$(I):READOO%(I):NEXT
52114 DATASCHIFF,12,HAUS,1,HAUS,2,GESCHAEFT,19,LEITER,17,TUER,2,KISTE,36
52120 REM PERSONENTABELLE-------
52122 PZ=10:DIMPE$(PZ),PR%(PZ):FORI=1TOPZ:READPE$(I):READPR%(I):NEXT
52124 DATAOBELIX,1,SCHLANGE,5,ROEMER,6,JOSUA,16,KAUFMANN,6
52126 DATAHAENDLER,19,PATROULLIE,21,WACHEN,23
52128 DATAHAENDLER,33,KROKODIL,36
52129 AZ=17:DIMAU$(AZ):FORI=1TOAZ:READAU$(I):NEXT
52130 DATADER,DIE,DAS,DEN,DEM, ,UEBER,UNTER,IN,HINEIN,DURCH,AUF,VON,VOM
52131 DATAMIT,AM,IM
52150 REM ****SPRITES****
52192 REM KAUFMANNKOPF---
52193 FORI=0TO62:READQ:POKE33792+I,Q:NEXT
52194 DATA,,,,,,,,,,,,,,,,,,,,,,,,,20,,,85,,1,85,64,6,170,144,6,162,144,40,138
52195 DATA40,40,42,40,42,42,168,10,42,160,10,130,160,2,170,128,,170,,,170,
52196 REM MIRAKULIXKOPF---
52197 FORI=0TO62:READQ:POKE33856+I,Q:NEXT
52198 DATA,,,,,,,,,,,,15,170,240,62,170,188,58,170,172,168,170,42,168,170,42
52199 DATA170,170,170,42,170,168,62,170,188,62,170,188,63,170,252,63,235,252
52200 DATA15,255,240,15,255,240,15,255,240,3,255,192,3,255,192,,255,
52201 REM MIRAKULIXKOERPER---
52202 FORI=0TO62:READQ:POKE33920+I,Q:NEXT
52203 DATA,255,,3,255,192,14,255,176,15,255,176,15,255,176,15,190,240,15,190
52204 DATA240,15,190,240,15,190,240,15,190,240,15,190,240,15,170,240,15,255
52205 DATA240,15,255,240,15,255,240,5,65,80,21,,84,84,,21,,,,,,,,,
52206 REM ROEMERKOPF---
52207 FORI=0TO62:READQ:POKE33984+I,Q:NEXT
52208 DATA,,,,,,,,,,,,,8,,,42,,,170,128,2,170,160,2,170,160,10,191,168,10,255
52209 DATA232,11,127,120,11,119,120,11,247,248,3,223,240,3,221,240,3,247,240
52210 DATA,255,192,,63,,,63,,,63,
52211 REM ROEMERKOERPER---
52212 FORI=0TO62:READQ:POKE34048+I,Q:NEXT
52213 DATA64,255,192,83,255,240,79,255,240,79,255,240,79,255,240,127,255,240
52214 DATA127,255,240,243,255,240,243,255,240,67,255,240,67,255,240,67,243,240
52215 DATA67,243,240,67,243,240,67,243,240,67,243,240,74,128,168,74,128,168,106
52216 DATA,42,,,,,,
52217 REM OBELIX---
52218 FORI=0TO62:READQ:POKE34112+I,Q:NEXT
52219 DATA48,60,12,12,255,48,15,255,240,3,255,192,3,255,192,3,255,192,1,85,64
52220 DATA1,85,64,2,89,80,41,85,80,150,85,80,149,149,83,149,85,64,149,85,64,37
52221 DATA102,64,9,150,104,10,89,86,37,165,85,149,85,85,149,85,85,85,85,85
52222 REM SCHLANGE1---
52223 FORI=0TO62:READQ:POKE34176+I,Q:NEXT
52224 DATA,,,12,12,,51,51,,51,51,,12,12,,,192,,63,63,,200,8,192,200,8,208,192,
52225 DATA192,63,255,,3,252,,3,252,,,255,,,255,,,255,,,255,,3,252,,3,252,,3,252
52226 DATA,,255,192
52227 REM SCHLANGE2---
52228 FORI=0TO62:READQ:POKE34240+I,Q:NEXT
52229 DATA,255,192,,63,240,,63,240,,63,240,,255,192,3,255,,15,252,,63,240,,255
52230 DATA192,,63,240,,255,255,240,255,255,240,255,255,252,255,255,252,255,255
52231 DATA252,,,,,,,,,,,,,,,,,,
52237 REM SEGEL---
52238 FORI=0TO62:READQ:POKE34304+I,Q:NEXT
52239 DATA,,192,,3,64,,14,64,,58,64,,218,64,3,90,64,14,90,64,58,90,64,218,90,64
52240 DATA90,90,64,90,90,64,90,90,64,90,90,64,90,90,,90,88,,90,80,,90,64,,90,,
52241 DATA88,,,80,,,64,,
59999 RETURN
62000 REM **** GRAFIK ****
62009 REM UEBERSETZEN NACH MESOPOT.
62010 PRINT"":POKEV+21,0
62012 PRINT"NACH EIN PAAR WOCHEN KOMMT IHR IN"
62013 PRINT"MESOPOTAMIEN AN. DIE REISE VERLIEF"
62014 PRINT"RUHIG UND IHR HABT KEIN SCHIFF GESEHEN"
62015 PRINT"AUSSER EINEM PIRATENSCHIFF,DAS DIE"
62016 PRINT"PIRATEN ABER KOMISCHERWEISE SELBST"
62017 PRINT"VERSENKT HABEN.          [TASTE]"
62018 POKE198,0:WAIT198,1:OO%(1)=13:P=13:VE=0:PR%(1)=P:GOTO1130
62020 PRINT"            ЛВ                  ";
62021 PRINT"         ϘϒЛϘϒ                 ";
62022 PRINT"         ϗЛИВ                ";
62023 PRINT"         ЛЗЛϒ               ";
62024 PRINT"        ЛИЛВ              ";
62025 PRINT"       ϷВ             ";
62026 PRINT"      ИϷЗЛВ            ";
62027 PRINT"                                      ";
62028 PRINT"    ЛВ          ";
62029 PRINT"   ЛИϷϛϷϘВ         ";
62030 PRINT"  ϒ        ";
62031 PRINT" ЗϷЛИϛВ       ";
62032 PRINT"ϷϷЛЗЛИЛВ      ";
62033 PRINT"ЗЛИЛϒ     ";
62034 PRINT"                                        ";
62035 PRINT"                                        ";:RETURN
62036 PRINT""
62037 PRINT"ߩߩߩߩߩߩߩߒ              ߩߩߩߩ";
62038 PRINT"              ";
62039 PRINT"                                        ";
62040 PRINT"              ";
62041 PRINT"              ";
62042 PRINT"              ";
62043 PRINT"              ";
62044 PRINT"              ";
62045 PRINT"              ";
62046 PRINT"                                        ";
62047 PRINT"              ";
62048 PRINT"              ";
62049 PRINT"              ";
62050 PRINT"                                        ";
62051 PRINT"                                        ";:RETURN
62052 PRINT"                                        ";
62053 PRINT"                                        ";
62054 PRINT"                                        ";
62055 PRINT"                                        ";
62056 PRINT"                                        ";
62057 PRINT"                                        ";
62058 PRINT"                                        ";
62059 IFP>10THENPRINT"";:GOTO62061
62060 PRINT"";
62061 PRINT"                                        ";
62062 PRINT"                                        ";
62063 PRINT"                                        ";
62064 PRINT"                                        ";
62065 PRINT"                                        ";
62066 PRINT"                                        ";
62067 PRINT"                                        ";
62068 PRINT"                                        ";
62069 PRINT"                                        ";:RETURN
62070 PRINT"                                        ";
62071 PRINT"                                        ";
62072 PRINT"                                        ";
62073 PRINT"                                        ";
62074 PRINT"                                        ";
62075 PRINT"                                        ";
62076 PRINT"                                        ";
62077 PRINT"                                        ";
62078 PRINT"                                        ";
62079 PRINT"                                        ";
62080 PRINT"                                        ";
62081 PRINT"                                        ";
62082 PRINT"                                        ";
62083 PRINT"                                        ";
62084 PRINT"                                        ";
62085 PRINT"                                        ";
62086 RETURN
62087 PRINT"                                        ";
62088 PRINT"                                        ";
62089 PRINT"                                        ";
62090 PRINT"                               ۞     ";
62091 PRINT"                               ۞     ";
62092 PRINT"                               ۞     ";
62093 PRINT"                               ۞     ";
62094 PRINT"                               ۞     ";
62095 PRINT"   ۞                                ";
62096 PRINT"  ۞                               ";
62097 PRINT" ۞                              ";
62098 PRINT" ۞                              ";
62099 PRINT"                               ";
62100 PRINT"                                        ";
62101 PRINT"                                        ";
62102 PRINT"                                        ";
62103 RETURN
62104 PRINT"";
62105 PRINTTAB(7)"       "SPC(5)"    ";
62106 PRINTTAB(47)"       "SPC(5)"    "
62107 PRINTTAB(7)"       "SPC(5)"    ";
62108 PRINTTAB(47)"       "SPC(5)"      "
62109 PRINTTAB(7)"       ";
62110 PRINTTAB(47)"       "
62111 PRINTTAB(7)"     ";:PRINTTAB(46)"       ":RETURN
62112 PRINT"";
62113 PRINTTAB(14)"      ";
62114 PRINTTAB(54)"  "
62115 PRINTTAB(14)"  ";
62116 PRINTTAB(54)"  "
62117 PRINTTAB(14)"  ";
62118 PRINTTAB(54)"      "
62119 PRINTTAB(14)"    ";:PRINTTAB(53)"      ":RETURN
62120 PRINT"";
62121 PRINT"                                        ";
62122 PRINT"                                        ";
62123 PRINT"                                        ";
62124 PRINT"                                        ";
62125 PRINT""
62126 PRINTTAB(18)"";:PRINTTAB(58)""
62127 PRINTTAB(18)"";:PRINTTAB(58)"    "
62128 PRINTTAB(14)"        ";:PRINTTAB(54)"ߒ         "
62129 PRINTTAB(14)"  ":RETURN
62130 PRINT""
62131 PRINTTAB(13)"                ";
62132 PRINTTAB(53)"     KLEIDER    "
62133 PRINTTAB(13)"                "
62134 PRINT:PRINT:PRINT
62135 PRINTTAB(16)"";
62136 PRINTTAB(56)"        "
62137 PRINTTAB(16)"        ":RETURN
62138 PRINT""
62139 PRINTTAB(15)"      ";:PRINTTAB(54)"        "
62140 PRINTTAB(13)"          ";:PRINTTAB(53)"          "
62141 PRINTTAB(13)"          ";:PRINTTAB(53)"          "
62142 PRINTTAB(13)"          ";:PRINTTAB(53)"          ":RETURN
62143 PRINT"";
62144 PRINTTAB(14)"      ";
62145 PRINTTAB(54)"      "
62146 PRINTTAB(14)"      ";
62147 PRINTTAB(54)"      "
62148 PRINTTAB(14)"      ";
62149 PRINTTAB(54)"      "
62150 PRINTTAB(14)"    ";:PRINTTAB(53)"      ":RETURN
62151 PRINT""
62152 PRINTTAB(16)"";
62153 PRINTTAB(56)"        "
62154 PRINTTAB(16)"        ":RETURN
62155 PRINT""
62156 PRINTTAB(18)"          ";
62157 PRINTTAB(57)"             "
62158 PRINTTAB(20)"       ";
62159 PRINTTAB(62)"     ":RETURN
