Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
10 POKE 10846,32:WINDOW:CLS:CLEAR:GOSUB 30000
20 WINDOW:CLS
30 PRINT STRING$(64,CHR$(199))
40 PRINT " Textadventure von":PRINT
50 PRINT " Klaus Rothe,Ottendorf":PRINT
60 PRINT STRING$(32,"~")
70 PRINT " Zusammengestellt von":PRINT
80 PRINT " Dietmar Neumann,Finsterwalde":PRINT
90 PRINT STRING$(64,CHR$(199)):PAUSE 20
100 PRINT AT(18,3);"M e n u e":PRINT AT(19,3);"~~~~~~~~~"
110 PRINT AT(22,3);"Alzan - 1"
120 PRINT AT(24,3);"Wueste - 2":PRINT AT(26,3);"Champion - 3"
130 PRINT AT(28,3);"E N D E - 0":PRINT AT(30,3);"Auswahl:"
140 IF INKEY$="1" THEN 3800
150 IF INKEY$="2" THEN 8260
160 IF INKEY$="3" THEN 210
170 IF INKEY$="0" THEN 190
180 GOTO 140
190 WINDOW:CLS:CLEAR:POKE 10846,95
200 END
210 WINDOW:CLS:CLEAR 280
220 DIM PF$(53),X(53),Y(53),PW(53),PS(53),PN(53),BP(5),BV(5),RN$(27),RW(27)
230 DIM RX(27):GOSUB 2600:K=1
240 PRINT:PRINT:PRINT:PRINT "Ein Gesellschaftsspiel fuer die ganze ";
250 PRINT "Familie von ":PRINT:PRINT
260 PRINT "Michael Siedentopf"
270 PRINT "Fr.-A.-Sorge-Str. 33"
280 PRINT "Dresden"
290 PRINT "8 0 2 7"
300 PRINT
310 PRINT "version for Z 1013 K.Rothe/88":PRINT:PRINT:PRINT:PAUSE 2
320 PRINT "Bitte warten!":PRINT:PRINT:A$=CHR$(16):B$=CHR$(25):GOSUB 470:CLS
330 WINDOW 5,9,1,31:PRINT "Wieviel Spieler nehmen teil?":PRINT "Maximal 4!"
340 FOR I=1 TO 4:BV(I)=500000:NEXT I
350 PRINT:INPUT "--->";PE:IF PE<1 OR PE>4 THEN CLS:PRINT "maximal 4":GOTO 350
360 SZ=PE:CLS
370 FOR I=1 TO SZ:PRINT "Spieler";I;", wie heissen Sie?"
380 PRINT:INPUT "--->";SN$:CLS:SN$(I)=LEFT$(SN$,20):NEXT I
390 PRINT "Wieviel Runden werden gespielt?"
400 PRINT "Maximal 25!":PRINT:INPUT "--->";CG
410 IF CG>25 OR CG<1 THEN CLS:GOTO 390
420 CLS
430 WINDOW:FOR OO=1 TO CG
440 FOR O=1 TO SZ:GOSUB 670:NEXT O,OO
450 GOSUB 2480
460 END
470 FOR J=1 TO 52:PRINT A$;:PRINT " ";:PRINT B$;:READ PF$(J)
480 X(J)=INT(RND(1)*10+1):Y(J)=INT(RND(1)*(21-X(J))+X(J))
490 PW(J)=(X(J)+Y(J))/2*10000
500 PN(J)=INT(RND(1)*5):BP(PN(J))=BP(PN(J))+1
510 IF BP(PN(J))>8 AND PN(J)<>0 THEN BP(PN(J))=8:GOTO 500
520 NEXT J
530 FOR J=0 TO 26:READ RN$(J),RW(J),RX(J):NEXT J
540 DIM RH(27):FOR J=0 TO 26:READ RH(J):NEXT J:RETURN
550 PRINT AT(4,0);"Nr. Name Wert Nr. Name Wert"
560 PRINT AT(7,0);STRING$(31,""):FOR T=4 TO 19:PRINT AT(T,16);"":NEXT T
570 PRINT AT(7,16);""
580 PRINT AT(5,11);"i.TM":PRINT AT(5,28);"i.TM":N=9:QD=0:VV=0
590 FOR J=1 TO 52:IF PN(J)<>I THEN NEXT J:ELSE GOTO 610
600 RETURN
610 IF PW(J)<=RX(K)*10000 THEN VV=VV+1
620 INK 7:QD=QD+1:IF QD/2=INT(QD/2)THEN 640
630 PRINT AT(N,0);J:PRINT AT(N,4);PF$(J):PRINT AT(N,11);PW(J)/1000:NEXT J
640 PRINT AT(N,17);J:PRINT AT(N,21);PF$(J):PRINT AT(N,28);PW(J)/1000
650 IF J>52 THEN RETURN
660 N=N+1:NEXT J:RETURN
670 PRINT AT(1,6);"* STALL ",SN$(O)," *":PRINT AT(2,0);STRING$(31,"")
680 WINDOW 3,23,0,3:PRINT AT(6,3);"Besitz:",BP(O),"Pferde"
690 PRINT AT(7,10);BV(O),"Mark"
700 PRINT AT(11,3);"Was wollen Sie tun? ":PRINT AT(19,3);"Rennen starten -3"
710 PRINT AT(17,3);"Verkaufen -1":PRINT AT(18,3);"Kaufen -2"
720 PRINT AT(20,3);"Morgenarbeit -4"
730 PRINT AT(15,0);STRING$(31,""):PRINT AT(22,1);STRING$(30,"")
740 WINDOW 1,22,0,0:PRINT STRING$(22,""):WINDOW 1,22,31,31
750 PRINT STRING$(22,""):WINDOW 24,31,0,31:PRINT STRING$(224,"");
760 WINDOW 11,11,23,25:INPUT "";PE :IF PE<1 OR PE>4 THEN 760:ELSE WINDOW
770 PZ=PE:CLS:II$=INKEY$:ON PZ GOSUB 810,930,1060,1460:WINDOW:CLS
780 PD=INT(RND(O)*10+1)
790 ON PD GOSUB 3450,3550,3630
800 FOR J=1 TO SZ:BV(J)=BV(J)-500*BP(J):NEXT J:RETURN
810 WINDOW: I=O:CLS:PRINT AT(22,0);STRING$(224,"")
820 GOSUB 550
830 WINDOW 23,27,1,30:CLS:WINDOW 24,26,2,30
840 PRINT "Welches Pferd verkaufen ?":PRINT "Bitte Nummer eingeben! "
850 INPUT "";TN:CLS
860 IF TN<0 OR TN>52 THEN PRINT "Dieses Pferd gibt es nicht!":PAUSE 10:GOTO 900
870 INK 2:IF PN(TN)<>I THEN PRINT PF$(TN);" haben Sie nicht!":PAUSE 10:GOTO 900
880 CLS
890 PN(TN)=0:BP(O)=BP(O)-1:BV(O)=BV(O)+PW(TN):PRINT PF$(TN);" wurde verkauft!
900 PRINT "Wollen Sie noch verkaufen?":PRINT "(Y/N)";
910 INPUT "";PE$:IF PE$="Y"THEN WINDOW 2,21,0,31:CLS:II$=INKEY$:GOTO 820
920 IF PE$="N"THEN RETURN:ELSE GOTO 910
930 WINDOW:CLS:PRINT AT(23,0);STRING$(224,""):PRINT "Zum Verkauf stehen:"
940 WINDOW 2,21,0,31:CLS:I=0:GOSUB 550
950 WINDOW 24,28,1,30:CLS:WINDOW 25,27,2,30
960 PRINT AT(21,3);"Sie haben",BV(O),"Mark."
970 PRINT "Welches Pferd wird gewuenscht":PRINT:PRINT "Bitte Nummer eingeben!"
980 INPUT "";TN:CLS
990 IF TN<0 OR TN>52 THEN PRINT "Dieses Pferd gibt es nicht!":PAUSE 10:GOTO 1030
1000 IF PN(TN)<>0 THEN PRINT PF$(TN);" ist nicht verkaeuflich!":PAUSE 9:GOTO 1030
1010 IF BV(O)<PW(TN)THEN PRINT "Soviel Geld haben Sie nicht!":PAUSE 9:GOTO 1030
1020 PN(TN)=O:BP(O)=BP(O)+1:BV(O)=BV(O)-PW(TN):PRINT "Sie kauften ";PF$(TN)
1030 PAUSE 9:PRINT "Wollen Sie noch kaufen? Y/N"
1040 INPUT "";PE$:IF PE$="Y"THEN II$=INKEY$:GOTO 940
1050 IF PE$="N"THEN RETURN:ELSE GOTO 1040
1060 WINDOW:CLS:WINDOW 26,31,0,31:K=INT(RND(1)*27)
1070 PRINT "Es wird gelaufen:":PRINT RN$(K):PRINT:PRINT "Wert:";RW(K);
1080 IF RH(K)=0 THEN PRINT " ":ELSE PRINT " (Huerdenrennen)"
1090 PRINT "Startberechtigt sind Pferde bis zu einem Wert von ";RX(K)*10000;" M
1100 WINDOW 0,23,0,31
1110 FOR I=1 TO SZ:CLS:GOSUB 550:PRINT AT(0,3);"STALL ",SN$(I)
1120 PRINT AT(2,0);STRING$(31,"")
1130 FOR P=I*2-1 TO I*2:GOSUB 1790:NEXT P:WINDOW 4,14,0,31:NEXT I
1140 WINDOW:CLS:GOSUB 1580
1150 PRINT AT(1,4);"----> WETTBANK <----":FOR J=1 TO 8:LH=LH(J)
1160 PRINT AT(J+2,1);J:PRINT AT(J+2,4);PF$(LH):QT(J)=INT(100*10000/PW(LH))
1170 IF PN(LH)=0 OR PN(LH)>SZ THEN 1210
1180 OI=PW(LH)/10000:RD=INT(RND(OI)*5-2)
1190 OI=OI+RD:IF OI<1 THEN OI=1
1200 QT(J)=INT(100/OI)
1210 PRINT AT(J+2,20);"1:",QT(J):NEXT J
1220 WINDOW 15,25,1,31:CLS:GOSUB 3680
1230 FOR J=1 TO SZ:PRINT SN$(J):PRINT "Wollen Sie wetten?(Y/N)":BQ(J)=0:BE(J)=0
1240 INPUT "";PE$:IF PE$="N"THEN CLS:GOTO 1350
1250 IF PE$>"Y"THEN 1240
1260 PRINT:PRINT "Auf welche Startnummer?"
1270 INPUT "";PE:IF PE<1 OR PE>8 THEN 1270
1280 QZ=PE-48:BQ(J)=QZ:PRINT:II$=INKEY$
1290 PRINT "Wieviel wollen Sie wagen?":PRINT "Hoechsteinsatz 10000 Mark!"
1300 PRINT "Sie haben";BV(J);"Mark.":INPUT TN
1310 IF TN<0 THEN PRINT "Bloedsinn!":PAUSE 15:CLS:GOTO 1290
1320 IF TN>BV(J)THEN PRINT "Soviel haben Sie nicht!":PAUSE 15:CLS:GOTO 1290
1330 IF TN>10000 THEN PRINT "Kein Hassard bitte!":PAUSE 15:CLS:GOTO 1290
1340 BE(J)=TN:BV(J)=BV(J)-TN:CLS
1350 NEXT J
1360 WINDOW:CLS:PRINT AT(0,2);RN$(K):FOR J=0 TO 31:PRINT AT(2,J);""
1370 PRINT AT(11,J);"":NEXT J:PRINT AT(22,0);STRING$(224,CHR$(RND(1)*31))
1380 IF RH(K)=0 THEN 1400
1390 FOR J=5 TO 31 STEP 10:FOR I=3 TO 10:PRINT INK 1;AT(I,J);"":NEXT I,J
1400 GOSUB 1650:GOSUB 1960
1410 FOR J=1 TO 8:LH=LH(J):PS(LH)=PS(LH)+1
1420 IF PS(LH)<3 THEN NEXT J:RETURN
1430 X(LH)=INT(RND(J)*10+1):Y(LH)=INT(RND(J)*(21-X(LH))+X(LH)):PS(LH)=-1
1440 PW(LH)=(Y(LH)+X(LH))*5000:NEXT J
1450 WINDOW:CLS:RETURN
1460 INK 7:WINDOW:CLS:PRINT AT(0,1);"STALL ",SN$(O):I=O:GOSUB 550
1470 PRINT AT(22,0);STRING$(224,""):WINDOW 23,27,1,30:PAUSE 9:CLS
1480 PRINT:PRINT "Morgenarbeit":WINDOW 25,27,1,30
1490 PRINT "Wieviel Pferde sollen arbeiten ":PRINT "(Max.3)";
1500 INPUT "";PE:IF PE<1 OR PE>3 THEN 1500:ELSE TZ=PE
1510 FOR J=1 TO TZ:INK 4
1520 CLS:PRINT "Nummer des Pferdes eingeben!":INPUT "";A(J)
1530 IF A(J)<0 OR A(J)>52 THEN CLS:GOTO 1520
1540 IF PN(A(J))<>I THEN PRINT PF$(A(J));" haben Sie nicht!":PAUSE 10:GOTO 1520
1550 CLS:NEXT J:WINDOW:CLS:GOSUB 3200
1560 BV(I)=BV(I)-TZ*1000:WINDOW:CLS
1570 RETURN
1580 FOR J=SZ+1 TO 4:IF SZ=4 THEN RETURN
1590 FOR P=2*J-1 TO 2*J
1600 LH(P)=INT(RND(J)*52+1):LH=LH(P)
1610 IF PN(LH(P))<SZ+1 AND PN(LH(P))<>0 THEN 1600
1620 IF PW(LH)>RX(K)*10000 THEN X(LH)=RX(K)-4:Y(LH)=RX(K)+4:PW(LH)=RX(K)*10000
1630 FOR Z=1 TO P-1:IF LH(Z)=LH(P)THEN 1600:ELSE NEXT Z
1640 NEXT P:NEXT J:RETURN
1650 FOR J=1 TO 8:PRINT AT(J+2,0);CHR$(J+48):LX(J)=0:NEXT J:V=0
1660 PRINT AT(19,22);"ACHTUNG":PAUSE 4:PRINT AT(22,0);STRING$(224,CHR$(18))
1670 PRINT AT(19,22);"FERTIG ":PAUSE 4:PRINT AT(22,0);STRING$(224,CHR$(29))
1680 PRINT AT(19,22);"JOCKEYS !":PRINT AT(22,0);STRING$(224,CHR$(14))
1690 FOR J=1 TO 8:IF LH(J)=0 THEN 1770:ELSE LH=LH(J)
1700 IF LX(J)>=0 AND LX(J)<120 THEN PRINT AT(J+2,INT(LX(J)/3));" "
1710 G=INT(RND(J)*(10-X(LH)))
1720 IF LX(J)>=0 THEN LX(J)=LX(J)+INT(RND(J)*(Y(LH)+G-X(LH))+X(LH)):ELSE 1770
1730 IF LX(J)>=90 THEN V=V-1:LX(J)=V:PRINT AT(J+2,31);CHR$(64-V):GOTO 1770
1740 IF PEEK((J+2)*32+INT(LX(J)/3)-5120)=ASC("")THEN LX(J)=LX(J)-11
1750 IF LX(J)<0 THEN LX(J)=0
1760 PRINT AT(J+2,INT(LX(J)/3));CHR$(J+48)
1770 NEXT J:PAUSE 6:IF V>-8 THEN 1690
1780 RETURN
1790 IF VV<2 THEN GOSUB 1880:RETURN:ELSE WINDOW 21,23,1,30
1800 PRINT AT(20,0);STRING$(160,""):PAUSE 5:CLS:WINDOW 22,23,2,30
1810 PAUSE 10:CLS:PRINT " Startnummer des Pferdes?";:INPUT "";TN:LH(P)=0:CLS
1820 IF TN<0 OR TN>52 THEN CLS:GOTO 1810
1830 IF PN(TN)<>I THEN PRINT PF$(TN);" haben Sie nicht!":GOTO 1810
1840 IF PW(TN)>RX(K)*10000 THEN PRINT PF$(TN);" nicht startberechtigt":GOTO 1810
1850 FOR Z=1 TO P-1:IF LH(Z)=TN THEN PRINT PF$(TN);" schon genannt!":GOTO 1810
1860 NEXT Z:BV(I)=BV(I)-RW(K)/100
1870 LH(P)=TN:RETURN
1880 VV=VV+1
1890 LH(P)=INT(RND(J)*52+1):LH=LH(P)
1900 IF PN(LH(P))<>0 AND PN(LH(P))<SZ+1 THEN 1890
1910 IF PW(LH)>RX(K)*10000 THEN PW(LH)=RX(K)*10000:X(LH)=RX(K)-4:Y(LH)=RX(K)+4
1920 IF P=1 THEN 1940
1930 FOR Z=1 TO P-1:IF LH(Z)=LH(P)THEN 1890:ELSE NEXT Z
1940 RETURN
1950 PRINT AT(2,2);STRING$(29,"-")
1960 FOR J=1 TO 8:LX(J)=-LX(J):NEXT J:WINDOW:CLS:PRINT AT(1,2);"'Grosser Einlauf'"
1970 PRINT AT(2,0);STRING$(31,"-"):PRINT AT(11,0);STRING$(31,"-")
1980 FOR J=1 TO 8:PRINT AT(LX(J)+2,0);LX(J):LH=LH(J)
1990 FOR HH=1 TO SZ:IF BQ(HH)=J THEN PRINT AT(LX(J)+2,12);HH,"*"
2000 NEXT HH
2010 PRINT AT(LX(J)+2,0);PF$(LH):PRINT AT(LX(J)+2,13);"1:",QT(J):NEXT J
2020 PRINT AT(16,2);"P r e i s v e r g a b e":PRINT AT(17,2);STRING$(23,"")
2030 FOR J=1 TO 8
2040 ON LX(J)GOSUB 2120,2150,2170,1570,1570,1570,2190,2210
2050 GOSUB 1570
2060 NEXT J
2070 FOR J=1 TO SZ
2080 IF BQ(J)=JJ THEN BV(J)=QT(JJ)*BE(J)+BV(J)
2090 NEXT J
2100 FOR J=1 TO SZ:PRINT AT(19+J,2);SN$(J),"-",BV(J):NEXT J
2110 PRINT AT(31,25);"<ENTER>":I$=INKEY$:IF I$=CHR$(13)THEN RETURN:ELSE GOTO 2110
2120 LH=LH(J):JJ=J:Y(LH)=Y(LH)+3:PW(LH)=(Y(LH)+X(LH))*5000
2130 BV(PN(LH))=BV(PN(LH))+RW(K)
2140 PRINT AT(LX(J)+2,23);RW(K):RETURN
2150 LH=LH(J):BV(PN(LH))=BV(PN(LH))+RW(K)/4:Y(LH)=Y(LH)+2
2160 PW(LH)=(Y(LH)+X(LH))*5000:PRINT INK 7;AT(LX(J)+2,23);RW(K)/4:RETURN
2170 LH=LH(J):BV(PN(LH))=BV(PN(LH))+RW(K)/16:Y(LH)=Y(LH)+1
2180 PW(LH)=(Y(LH)+X(LH))*5000:PRINT INK 7;AT(LX(J)+2,23);RW(K)/16:RETURN
2190 IF X(LH(J))>1 THEN X(LH(J))=X(LH(J))-1
2200 PW(LH(J))=(Y(LH(J))+X(LH(J)))*5000:RETURN
2210 LH=LH(J):IF X(LH)+2<Y(LH)THEN X(LH)=X(LH)+2
2220 PW(LH)=(Y(LH)+X(LH))*5000:RETURN
2230 DATA "POND","KARO","BELINE","BOOST","CINDER"
2240 DATA "CALL","DREAM","DAKKA","ELEVAT","ECLIP"
2250 DATA "FAME","FLORAD","GINGER","GALAX","JESICA"
2260 DATA "COLIN","ISABEL","MORE","JASPI","JEREMI"
2270 DATA "NIGHT","KISS","GRAND","LOPEZ","DEAR"
2280 DATA "WIND","WORLD","ONE","TONI","OLD","PALISA"
2290 DATA "POLO","MIREK","QUEEN","DAY"
2300 DATA "RICA","SHANG","SILVER","AMOR","TEST"
2310 DATA "ULTRA","FINISH","SALLY","VESTA","SOLO"
2320 DATA "WONDER","X-RAY","XAVER","YESTER","YELLOW"
2330 DATA "ZACHAR","ZEPHIR"
2340 DATA "^Preis von Hamburg^",4000,8,"*Grosser Preis von Hannover*",8000,8
2350 DATA "#Grosser Preis von Muenchen#",4000,8,"-Preis von Koeln-",8000,8
2360 DATA "= Price of Everton =",8000,9,"+Liverpool-Stakes+",12000,9
2370 DATA "~ Preis von Berlin ~",12000,9,": Triumph :",16000,9
2380 DATA "<Stella-Stakes>",16000,9,"Grosser Preis von Baden-Baden",20000,10
2390 DATA "_ Grand National _",24000,11,"| Queens Cup |",24000,11
2400 DATA "* Union *",28000,11,"=Henckel-Rennen=",28000,11
2410 DATA "+Oestereichisches Derby+",32000,12,"^ Evidence-Cup ^",32000,12
2420 DATA "* Oaks *",36000,12,"- 1000 Guineen -",40000,12
2430 DATA "- 2000 Guineen -",48000,14,"% St. Leger %",52000,14
2440 DATA "-Preis von Deutschland-",52000,14,"* Deutsches Derby *",60000,15
2450 DATA "< Ascot-Derby >",60000,15,"# Preis von Europa #",60000,15
2460 DATA "* Grand Prix de Triomphe *",72000,15
2470 DATA "!Goldene Peitsche!",80000,17,"Washington D.C. International",100000
2480 DATA 20,0,0,0,0,1,1,0,0,1,0,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0
2490 WINDOW:CLS:PRINT AT(0,5);"A U S W E R T U N G":PAUSE 20:WINDOW 2,31,0,31
2500 FOR I=1 TO 4:PRINT STRING$(224,"");:NEXT:FOR I=1 TO 4
2510 PRINT STRING$(224,"");:NEXT:FOR I=1 TO 4:PRINT STRING$(224,"");:NEXT
2520 W=15:X=15:Y=15:Z=15
2530 WINDOW W,X,Y,Z:IF Z<29 THEN W=W-.5:X=X+1:Y=Y-1:Z=Z+1:CLS:GOTO 2530
2540 !FORJ=1TO52
2550!BV(PN(J))=BV(PN(J))+PW(J):NEXTJ
2560 FOR K=1 TO SZ
2570 PRINT AT(K+9,3);SN$(K)
2580 PRINT AT(K+9,19);BV(K):NEXT K
2590 GOSUB 3440:GOTO 20
2600 WINDOW:CLS
2610 FOR I=0 TO 31: PRINT AT(I,0);STRING$(31,""):NEXT I:WINDOW 25,29,3,28
2620 CLS:PAUSE 10:FOR I=25 TO 29:PRINT AT(I,3);STRING$(25,(CHR$(255))):NEXT I
2630 WINDOW 26,28,6,24:CLS:PRINT AT(27,7);" C H A M P I O N "
2640 WINDOW:PAUSE 9
2650 PRINT AT(12,3);""
2660 PRINT AT(13,3);" "
2670 PRINT AT(14,3);" "
2680 PRINT AT(15,3);" "
2690 PRINT AT(16,3);" "
2700 PRINT AT(17,3);" "
2710 PRINT AT(18,3);" "
2720 PRINT AT(19,3);" "
2730 PRINT AT(20,3);" "
2740 PRINT AT(21,2);" "
2750 PRINT AT(22,2);"DERBY"
2760 PRINT AT(23,2);""
2770 PAUSE 5
2780 PRINT AT(13,11);""
2790 PRINT AT(14,11);""
2800 PRINT AT(15,11);" "
2810 PRINT AT(16,11);" "
2820 PRINT AT(17,11);" "
2830 PRINT AT(18,11);" "
2840 PRINT AT(19,11);" OAK "
2850 PRINT AT(20,11);" S "
2860 PRINT AT(21,11);" "
2870 PRINT AT(22,11);" "
2880 PRINT AT(23,11);" "
2890 PAUSE 5
2900 PRINT AT(13,23);""
2910 PRINT AT(14,23);" "
2920 PRINT AT(15,23);" "
2930 PRINT AT(16,23);""
2940 PRINT AT(17,23);"UNION"
2950 PRINT AT(18,23);""
2960 PRINT AT(19,23);" "
2970 PRINT AT(20,23);" "
2980 PRINT AT(21,23);" "
2990 PRINT AT(22,23);" "
3000 PRINT AT(23,23);" "
3010 PAUSE 5
3020 PRINT AT(1,12);""
3030 PRINT AT(2,12);" S "
3040 PRINT AT(3,12);" T "
3050 PRINT AT(4,12);"LEGER"
3060 PRINT AT(5,12);""
3070 PRINT AT(6,12);" "
3080 PRINT AT(7,12);" "
3090 PRINT AT(8,12);" "
3100 PRINT AT(9,12);" "
3110 PRINT AT(10,12);" "
3120 PRINT AT(11,12);" "
3130 A$=CHR$(144)
3140 PAUSE 5:FOR I=0 TO 32:PRINT AT(0,0);STRING$(31,A$ )
3150 PRINT AT(31,0);STRING$(31,A$):FOR M=0 TO 31:PRINT AT(M,0);A$:NEXT M
3160 FOR M=0 TO 31:PRINT AT(M,31);A$:NEXT M :A$=CHR$(208+I):NEXT I:WINDOW
3170 WINDOW 0,31,0,0:PRINT SPC(31):WINDOW
3180 WINDOW 31,31,0,31:PRINT SPC(31):WINDOW
3190 QQ=RND(1):CLS:RETURN:ELSE 3190
3200 PRINT AT(1,4);"M O R G E N A R B E I T"
3210 PRINT AT(3,0);STRING$(32,""):PRINT AT(7,0);STRING$(32,"")
3220 PRINT AT(15,0);"Nr Name Sollz. Istz. X Y"
3230 FOR J=1 TO TZ:PRINT AT(J+16,0);A(J):PRINT AT(J+16,4);PF$(A(J))
3240 ZL(J)=INT(240/(X(A(J))+Y(A(J)))):PRINT AT(J+16,26);X(A(J))
3250 PRINT AT(J+16,13);ZL(J):ZV(J)=0:PRINT AT(J+16,29);Y(A(J)):NEXT J
3260 FOR J=1 TO TZ:PRINT AT(J+3,0);J:NEXT J:AB=0
3270 AB=AB+1:FOR J=1 TO TZ:A=A(J)
3280 IF ZV(J)>=0 AND ZV(J)<90 THEN PRINT AT(J+3,0);STRING$(32," ")
3290 G=INT(RND(J)*(10-X(A)))
3300 IF ZV(J)>=0 THEN ZV(J)=ZV(J)+INT(RND(J)*(Y(A)-X(A)+G)+X(A)):ELSE GOTO 3330
3310 IF ZV(J)>=90 THEN ZV(J)=-AB:PRINT;AT(J+3,31);CHR$(J+48):GOTO 3330
3320 PRINT AT(J+3,INT(ZV(J)/3));CHR$(J+48)
3330 NEXT J:TN=0:PAUSE 5
3340 FOR J=1 TO TZ:IF ZV(J)<0 THEN TN=TN+1:NEXT J
3350 IF TN<TZ THEN 3270
3360 FOR J=1 TO TZ:ZV(J)=-ZV(J):PRINT AT(J+16,19);ZV(J)
3370 IF ZV(J)<ZL(J)-ZL(J)*0.1 THEN Y(A(J))=Y(A(J))+1
3380 IF ZV(J)<ZL(J)-ZL(J)*0.2 THEN Y(A(J))=Y(A(J))+2
3390 IF ZV(J)>ZL(J)+ZL(J)*0.1 THEN X(A(J))=X(A(J))-1
3400 IF ZV(J)>ZL(J)+ZL(J)*0.2 THEN X(A(J))=X(A(J))-2
3410 PRINT AT(J+16,26);X(A(J))
3420 PRINT AT(J+16,29);Y(A(J)):NEXT J
3430 PRINT AT(31,25);"<ENTER>"
3440 I$=INKEY$:IF I$=CHR$(13) THEN RETURN:ELSE 3440
3450 CLS:IF BP(O)>=8 THEN RETURN
3460 PRINT AT(10,2);"Auf Grund des verminderten"
3470 PRINT AT(11,2);"Trainingsbestandes von nur":PRINT AT(13,13);BP(O)
3480 EK=2^(9-BP(O)):EK=EK*1000
3490 PRINT AT(15,0);"Pferden wird Ihr Etat um",EK
3500 PRINT AT(16,8);"Mark gekuerzt":PAUSE 45
3510 BV(O)=BV(O)-EK
3520 CLS
3530 RETURN
3540 RETURN
3550 CLS
3560 IF BP(O)<8 THEN RETURN
3570 PRINT AT(10,3);"Auf Grund des erhoehten"
3580 PRINT AT(11,3);"Trainingsaufkommens von":PRINT AT(13,13);BP(O)
3590 PRINT AT(15,3);"Pferden erhalten Sie einen"
3600 EK=(BP(O)-7)*4000:PRINT AT(16,3);"Etatzuschuss von"
3610 PRINT AT(18,10);EK,"Mark."
3620 PAUSE 45:BV(O)=BV(O)+EK:CLS:RETURN
3630 CLS:IF BP(O)<6 THEN RETURN
3640 PRINT AT(10,0);"Fuer hervorragende Leistungen"
3650 PRINT AT(12,0);"beim Vollbluttraining erhalten"
3660 PRINT AT(14,3);"Sie 10000 Mark Praemie!":PAUSE 45
3670 BV(O)=BV(O)+10000:CLS:RETURN
3680 PRINT AT(15,1);STRING$(31,""):PRINT AT(30,1);STRING$(31,"")
3690 WINDOW 15,31,1,1:PRINT STRING$(15,""):WINDOW 15,31,31,31
3700 PRINT STRING$(15,""):WINDOW:WINDOW 17,29,3,30:RETURN
3800 REM ALZAN ADVENTURE
3810 WINDOW 0,31,0,31:CLS:FOR B=0 TO 1:WINDOW 10,31,1,31
3820 PRINT AT(16,6);"version for Z-1013":PRINT AT(17,9);"c/1988 rothe":PAUSE 10
3830 PRINT " "
3840 PRINT " "
3850 PRINT " "
3860 PRINT " "
3870 PRINT " "
3880 PRINT " "
3890 PRINT " "
3900 PRINT " "
3910 PRINT " "
3920 PRINT " "
3930 PRINT:PRINT " *** A D V E N T U R E ***":PAUSE 10:PRINT
3940 Z=9:Y=19:I=0:L=1 :FOR M=0 TO 30 :WINDOW Z,Y,I,L:CLS:L=L+1:NEXT:PAUSE 1 :NEXT B
3950 CLEAR 3072:WINDOW:CLS
3960 DIM C(5),O(11),S(10),A$(47),M$(19),O$(11),P$(2),V$(43):GOSUB 7020
3970 R=1
3980 A=47:O=11:V=43
3990 DATA 0,0,3,3,0,0,0,15,16,0,4
4000 RESTORE 3990
4010 FOR X=1 TO O
4020 READ O(X)
4030 NEXT X
4040 X=RND(-ABS(DEEK(30))/3600)
4050 IF S(2)=0 THEN 4120
4060 IF C(2)<>0 THEN C(2)=C(2)-1
4070 IF S(3)<>0 THEN 4120
4080 PRINT "ES IST DUNKEL. SIE SOLLTEN BES-","SER FUER ETWAS LICHT SORGEN,"
4090 PRINT "SONST KOENNTE ES SCHWIERIGKEITEN","GEBEN."
4100 IF C(3)<>0 THEN C(3)=C(3)-1
4110 GOTO 4240
4120 REM RAUMBESCHREIBUNG
4130 PRINT
4140 ON R GOSUB 6370,6460,6500,6530,6560,6590,6610,6630,6660,6680,6710,6750
4150 IF R>12 THEN ON R-12 GOSUB 6770,6800,6830,6860,6890,6930,6960
4160 F=0
4170 FOR X=1 TO O
4180 IF O(X)<>R THEN 4230
4190 IF F<>0 THEN 4220
4200 PRINT "FERNER GIBT ES HIER:":PRINT STRING$(20,"")
4210 F=1
4220 PRINT " ";O$(X)
4230 NEXT X
4240 REM BEFEHLSVERARBEITUNG
4250 T=1
4260 GOTO 4540
4270 IF C(1)<>0 THEN C(1)=C(1)-1
4280 IF C(4)<>0 THEN C(4)=C(4)-1
4290 PRINT AT(15,5);" <?> ----> H E L P .":GOSUB 6420
4300 PRINT AT(15,1);STRING$(29,"")
4310 WINDOW 20,21,1,30:CLS:GOSUB 8060:INPUT " >";Y$:IF Y$="?"THEN GOSUB 8120
4320 WINDOW 3,16,0,31:CLS:Y=0
4330 P$(2)="00"
4340 FOR W=1 TO 2
4350 GOSUB 5600
4360 IF Y>=LEN(Y$)THEN 4400
4370 IF P$(W)="00"THEN 4350
4380 NEXT W
4390 W=W-1
4400 IF P$(W)<>"00"THEN 4430
4410 WINDOW 20,21,1,30:CLS:PRINT AT(20,9);"PARDON ?":WINDOW 3,16,0,31
4420 GOTO 4050
4430 REM FESTSTELLEN OB STANDORTS-
4440 Z=1:IF P$(2)<>"00"AND P$(1)>P$(2)THEN N$=P$(1):P$(1)=P$(2):P$(2)=N$
4450 T$=MID$(M$(R),Z,2)
4460 IF T$="00"THEN 4520
4470 IF T$<>P$(1)THEN 4500
4480 R=VAL(MID$(M$(R),Z+2,2))
4490 GOTO 4050
4500 Z=Z+4
4510 GOTO 4450
4520 T=0
4530 M=0
4540 REM FESTSTELLEN OB BEDINGUNGEN ERFUELLT WERDEN MUESSEN
4550 C=0
4560 C=C+1
4570 IF T=0 THEN 4600
4580 E$=C$(C)
4590 GOTO 4710
4600 IF A>=C THEN 4670
4610 IF M<>0 THEN 4240
4620 WINDOW 19,21,1,30:CLS
4630 PRINT " SIE KOENNEN NICHT";
4640 IF VAL(P$(1))<13 THEN PRINT " DIESEN WEG"," GEHEN";
4650 PRINT ".":PAUSE 30:CLS: WINDOW 3,17,0,31
4660 GOTO 4050
4670 IF LEFT$(A$(C),2)<>P$(1)THEN 4560
4680 Y$=MID$(A$(C),3,2)
4690 IF Y$<>"00"AND Y$<>P$(2)THEN 4560
4700 E$=MID$(A$(C),5)
4710 REM ABFRAGEN DER BEDINGUNGSTABELLE
4720 E=1
4730 IF MID$(E$,E,1)="."THEN 4880
4740 P=ASC(MID$(E$,E,1))-64
4750 N=VAL(MID$(E$,E+1,2))
4760 ON P GOSUB 4800,4810,4820,4830,4840,4850,4860,4870
4770 IF K=0 THEN 4560
4780 E=E+3
4790 GOTO 4730
4800 K=-(N=R):RETURN
4810 K=-(O(N)=R OR O(N)<0):RETURN
4820 K=-(O(N)<>R AND O(N)>=0):RETURN
4830 K=-(O(N)<0):RETURN
4840 K=S(N):RETURN
4850 K=-(S(N)=0):RETURN
4860 K=-(C(N)=1):RETURN
4870 K=-(INT(RND(1)*100+1<=N)):RETURN
4880 REM DURCHFUEHREN DER AKTIONEN
4890 M=1
4900 E=E+1
4910 IF MID$(E$,E,1)="."THEN 4560
4920 P=ASC(MID$(E$,E,1))-64
4930 IF MID$(E$,E+1,1)<>"."THEN N=VAL(MID$(E$,E+1,2))
4940 B=0
4950 ON P GOSUB 5000,5100,5200,5270,5310,5330,5350,5380,5420,5440,5470,5490
4960 IF P>12 THEN ON P-12 GOSUB 5500,5520,5540,5560,5590
4970 ON B GOTO 4050,4240,4270
4980 E=E+3
4990 GOTO 4910
5000 PRINT
5010 PRINT "SIE TRAGEN:"
5020 F=1
5030 FOR X=1 TO O
5040 IF O(X)>=0 THEN 5070
5050 PRINT " ";O$(X)
5060 F=0
5070 NEXT X
5080 IF F=1 THEN PRINT " NICHTS."
5090 B=1:RETURN
5100 IF S(1)<4 THEN 5140
5110 PRINT "SO VIEL KOENNEN SIE NICHT TRAGEN"
5120 B=1
5130 RETURN
5140 IF O(N)=-1 THEN 5180
5150 O(N)=-1
5160 S(1)=S(1)+1
5170 RETURN
5180 PRINT "SIE HABEN ES BEREITS."
5190 GOTO 5120
5200 IF O(N)=-1 THEN 5240
5210 PRINT "SIE HABEN ES NICHT."
5220 B=1
5230 RETURN
5240 O(N)=R
5250 S(1)=S(1)-1
5260 RETURN
5270 PRINT
5280 ON N GOSUB 5970,5990,6030,6050,6070,6090,6110,6130,6150,6170,6190,6210
5290 IF N>12 THEN ON N-12 GOSUB 6230,6270,6290,6310
5300 RETURN
5310 S(N)=1
5320 RETURN
5330 S(N)=0
5340 RETURN
5350 C(N)=VAL(MID$(E$,E+3,2))
5360 E=E+2
5370 RETURN
5380 X=O(N)
5390 O(N)=O(N+1)
5400 O(N+1)=X
5410 RETURN
5420 O(N)=R
5430 RETURN
5440 IF O(N)<0 THEN S(1)=S(1)-1
5450 O(N)=0
5460 RETURN
5470 R=N
5480 RETURN
5490 PRINT " OKEY."
5500 B=2
5510 RETURN
5520 B=3
5530 RETURN
5540 B=1
5550 RETURN
5560 PRINT "SIE WOLLEN AUFGEBEN ?"
5570 INPUT W$
5580 IF LEFT$(W$,1)<>"J"THEN 5540
5590 GOTO 7010
5600 REM SCHLUESSELWORT ABTRENNEN
5610 W$=""
5620 P$(W)="00"
5630 GOSUB 5840
5640 IF D=1 THEN RETURN
5650 FOR Q=1 TO 4
5660 W$=W$+MID$(Y$,Y,1)
5670 GOSUB 5790
5680 IF D=1 THEN 5720
5690 NEXT Q
5700 GOSUB 5790
5710 IF D=0 THEN 5700
5720 W$=W$+STRING$(4-LEN(W$)," "):IF W$=" "THEN RETURN
5730 FOR Q=1 TO V
5740 IF W$=MID$(V$(Q),3)THEN 5770
5750 NEXT Q
5760 RETURN
5770 P$(W)=LEFT$(V$(Q),2)
5780 RETURN
5790 Y=Y+1
5800 D=-(Y>LEN(Y$))
5810 IF D=1 THEN RETURN
5820 D=-(MID$(Y$,Y,1)=" ")
5830 RETURN
5840 Y=Y+1
5850 D=-(Y>LEN(Y$))
5860 IF D=1 THEN RETURN
5870 IF MID$(Y$,Y,1)=" "THEN 5840
5880 RETURN
5890 CLS
5900 FOR N=1 TO 50
5910 PRINT N;V$(N)
5920 NEXT N
5930 GOTO 10
5940 REM AKTIONSMELDUNGEN
5950 REM MELDUNG 1 BEWIRKT
5960 REM SPRUNG ZUR ZEILE 7010
5970 PRINT "ACH DU LIEBE GUETE, SCHON TOT!"
5980 RETURN
5990 PRINT TAB(8);"---HOPPLA---"
6000 PRINT "EL GRABBO, DER DIEB DER STADT,","SCHNAPPT SICH IHR GELD UND"
6010 PRINT "VERSCHWINDET IM DICHTEN NEBEL."
6020 RETURN
6030 PRINT "HALTET DEN DIEB, RUFT DER PLATZ-";"ANWEISER, ABER SIE ENTKOMMEN"
6040 RETURN
6050 PRINT "DER DECKEL IST BEREITS OFFEN !! "
6060 RETURN
6070 PRINT "ES KOSTET MEHR, ALS SIE AUF- ";"BRINGEN KOENNEN."
6080 RETURN
6090 PRINT "SEHR WOHL, MEIN HERR!
6100 RETURN
6110 PRINT "DER KANALDECKEL IST OFFEN."
6120 RETURN
6130 PRINT "DER KANALDECKEL IST VERSCHLOSSEN."
6140 RETURN
6150 PRINT "DER LADENBESITZER IST GROESSER","ALS SIE..."
6160 RETURN
6170 PRINT "SIE BRAUCHEN EINE LEITER, UM","UEBER DIESE MAUER ZU KOMMEN."
6180 RETURN
6190 PRINT "ES IST BEREITS AN!"
6200 RETURN
6210 PRINT "WAS FUER EIN GEISTESBLITZ!"
6220 RETURN
6230 PRINT "SIE UEBERWAELTIGEN HEIMLICH","DIE WACHEN UND KOENNEN SICH"
6240 PRINT "NOCH EIN BUENDEL BANKNOTEN ","SCHNAPPEN,KEINER HAT ETWAS"
6250 PRINT "GEMERKT (LUSTIGES VOELKCHEN","DIESE ALZANER)."
6260 RETURN
6270 PRINT "SIE HABEN ALLES GENOMMEN, WAS","HIER WAR."
6280 RETURN
6290 PRINT "ICH SEHE KEINE LAMPE...?"
6300 RETURN
6310 PRINT "DAS KINO IST FUER EINEN PRIVA- ";"TEN ZWECK GEMIETET !";:PAUSE 10
6320 RETURN
6330 RETURN
6340 REM STANDORT BESCHREIBUNGEN
6350 REM STANDORT 1 BEWIRKT
6360 REM SPRUNG ZUR ZEILE 8010
6370 PRINT " +++ WILLKOMMEN IN ALZAN +++":PAUSE 20
6380 PRINT "SIE MUESSEN DIE MAUERN UEBERWIN-";"DEN, UM AUS DIESER STADT VON",
6390 PRINT "DIEBEN UND HALSABSCHNEIDERN ZU"," E N T K O M M E N !!"
6400 IF INKEY$<>CHR$(13)THEN 6400
6410 WINDOW 2,16,0,31:CLS: GOSUB 8040
6420 FOR I=1 TO 3 :PRINT AT(31-(5*RND(1)),30*RND(1)+1);CHR$(14)
6430 PRINT AT(31-(5*RND(1)),30*RND(1)+1);CHR$(23)
6440 FOR M=0 TO 49:PRINT AT(31-(5*RND(1)),30*RND(1)+1);" ":NEXT M,I:WINDOW 3,16,0,31
6450 RETURN
6460 PRINT "SIE SIND IN DER HAUPTSTRASSE","VOR EINEM KURZWARENLADEN. DIE"
6470 PRINT "HAUPTSTRASSE VERLAEUFT IN OST-","WEST-RICHTUNG. EINE KLEINE"
6480 PRINT "GASSE FUEHRT NEBEN DEM LADEN","NACH NORDEN.";
6490 RETURN
6500 PRINT "SIE SIND IM LADEN. DER LADEN- ";"BESITZER SIEHT VERSCHLAGEN AUS."
6510 PRINT "ABER ER HAT VIELE SCHOENE WAREN ";"IM SCHAUFENSTER."
6520 RETURN
6530 PRINT "SIE SIND IN EINER SCHMALEN GAS-","SE HINTER GROSSEN HAEUSERN."
6540 PRINT "UNTER EINER FEUERLEITER STEHEN","VIELE VOLLE MUELLTONNEN."
6550 RETURN
6560 PRINT "SIE SIND AUF DER FEUERLEITER.","SIE FUEHRT ZU EINER TUER IN DER"
6570 PRINT "HAEUSERN."
6580 RETURN
6590 PRINT "SIE SIND UEBER EINE VERSTECKTE","TREPPE IN DEN LADEN GELANGT."
6600 RETURN
6610 PRINT "SIE BEFINDEN SICH AUF SCHLEICH-","WEGEN ZWISCHEN DEN HAEUSERN."
6620 RETURN
6630 PRINT "JETZT SIND SIE AN DER STADT-","MAUER. HIER BEFINDET SICH EINE"
6640 PRINT "UNBENUTZTE TUER IN DER MAUER."
6650 RETURN
6660 PRINT "SIE SIND AN EINER KREUZUNG. "
6670 RETURN
6680 PRINT "SIE SIND AN DER STADTMAUER. DER","NEBEL IST SO DICK, DASS SIE"
6690 PRINT "NICHT WEIT SEHEN KOENNEN."
6700 RETURN
6710 PRINT "SIE STUERZEN VON DER MAUER -","GENAU AUF DIE SEE-KLIPPEN 100"
6720 PRINT "METER TIEF UNTEN. MACHT NICHTS.","VIELLEICHT HABEN SIE NAECHSTES"
6730 PRINT "MAL MEHR GLUECK!"
6740 RETURN
6750 PRINT "SIE SIND VOR DER STADTBANK. "
6760 RETURN
6770 PRINT "IN DER BANK BEFINDEN SICH VIELE","WAECHTER DIE ZIEMLICH GELANG-"
6780 PRINT "WEILT DREINSCHAUEN."
6790 RETURN
6800 PRINT "SIE SIND IN EINER SACKGASSE","ANGELANGT, DOCH DA BEFINDET"
6810 PRINT "SICH EIN KANALDECKEL IN DER","STRASSE..."
6820 RETURN
6830 PRINT "SIE SIND IN EINER KLEINEN ","NISCHE UNTERHALB(DER EINSTIEGS-",
6840 PRINT "OEFFNUNG. EIN GANG FUEHRT NACH","SUEDEN."
6850 RETURN
6860 PRINT "DER GANG FUEHRT ZU EINER ALTEN","GRABSTAETTE, IN DER VIELE SKE-",
6870 PRINT "LETTE VERSTREUT HERUMLIEGEN."
6880 RETURN
6890 PRINT "DER PLATZANWEISER WILL SIE ","NICHT HINEINLASSEN, DA DAS PRO-",
6900 PRINT "GRAMM BEREITS ANGEFANGEN HAT.","ER VERSPERRT IHNEN DEN WEG MIT"
6910 PRINT "SEINER TASCHENLAMPE."
6920 RETURN
6930 PRINT "SIE SIND VOR DEM KINO. DER ","LAERM VON SCHUESSEN DRINGT AUS"
6940 PRINT "DEM INNEREN."
6950 RETURN
6960 CLS:BEEP:PRINT "**** HERZLICHEN GLUECKWUNSCH ****":PRINT:BEEP
6970 PRINT "SIE KONNTEN AUS DER STADT","FLIEHEN. DAS IST WIRKLICH EIN"
6980 PRINT "SELTENER FALL. GUT GEMACHT."
6990 RETURN
7000 RETURN
7010 GOTO 10
7020 PAPER 1:INK 3:CLS:WINDOW 0,19,0,31
7030 RESTORE 7040
7040 DATA "EIN BRENNENDE LAMPE"
7050 DATA "EINE LAMPE"
7060 DATA "EINE LEITER"
7070 DATA "EINEN HAMMER"
7080 DATA "EINEN HAMMER"
7090 DATA "EIN BUENDEL BANKNOTEN"
7100 DATA "KANALDECKEL"
7110 DATA "EIN SACK NAEGEL"
7120 DATA "EINE EINTRITTSKARTE"
7130 DATA "EINE UNGEHOBELTE LEITER"
7140 DATA "ETWAS HOLZ"
7150 DATA "01N ","01NORD","02O ","02OSTE","03S ","03SUED"
7160 DATA "04W ","04WEST","05H ","05HINA","06T ","06HINU"
7170 DATA "13NEHM","14STEL","14WERF","15HINE","14LEGE","16RAUS"
7180 DATA "32TASC","16VERL","32LAMP","18LEIT","19HAMM","34BANK"
7190 DATA "20GELD","22SACK","22NAEG","23KART","05DURC","15REIN"
7200 DATA "29OEFF","05HOCH","30BAST","30BAUE","31ZUEN","35HABE"
7210 DATA "17KAUF","33HOLZ","34KLAU","34RAUB","35TRAG","36AUFH","37SCHA"
7220 DATA "00"
7230 DATA "01040209041800"
7240 DATA "00"
7250 DATA "0302050500"
7260 DATA "0604050700"
7270 DATA "00"
7280 DATA "0108031000"
7290 DATA "030700"
7300 DATA "011202100314040200"
7310 DATA "040900"
7320 DATA "00"
7330 DATA "0209041800"
7340 DATA "00"
7350 DATA "010900"
7360 DATA "031600"
7370 DATA "011500"
7380 DATA "00"
7390 DATA "0112020200"
7400 DATA "00"
7410 DATA "A01.K02O."
7420 DATA "A16H30.G0121."
7430 DATA "G01.D01Q."
7440 DATA "B06H10.D02J06."
7450 DATA "A14E07.D07N."
7460 DATA "A14F07.D08N."
7470 DATA "A11.Q."
7480 DATA "A19.Q."
7490 DATA "A06.K03O."
7500 DATA ".N."
7510 DATA "1332B01.B01E03L."
7520 DATA "1332A17C01C02.I02B02D03K18E10O."
7530 DATA "1718B03.D05N."
7540 DATA "1319B05.B05L."
7550 DATA "1320B06.B06L."
7560 DATA "2900A14E07.D04N."
7570 DATA "2900A14.E07M."
7580 DATA "1322B08.B08L."
7590 DATA "1323B09.B09L."
7600 DATA "1432B01.C01F03L."
7610 DATA "1432B02.C02L."
7620 DATA "1419B05.C05L."
7630 DATA "1420B06.C06L."
7640 DATA "1422B08.C08L."
7650 DATA "1423B09.C09L."
7660 DATA "0500A10C10.D10M."
7670 DATA "0500A08C10.D10M."
7680 DATA "0500A10.K11O."
7690 DATA "0500A08.K19O."
7700 DATA "0500A15.F02K14O."
7710 DATA "0600A14.E02K15O."
7720 DATA "3100D02.H01E03L."
7730 DATA "3100B01.D11N."
7740 DATA "1719B04B06.H04J06B05L."
7750 DATA "1719B04B09.H04D06B05M."
7760 DATA "3000B05B11B08.D06I10J08J11M."
7770 DATA "1333B11.B11L."
7780 DATA "1M3B11.C11L."
7790 DATA "1500A02.K03O."
7800 DATA "1500A12.K13O."
7810 DATA "1500A18F10.K17O."
7820 DATA "1600A03.K02O."
7830 DATA "1600A13.K12O."
7840 DATA "1600A17.K18O."
7850 DATA "1500A05.K06O."
7860 DATA "3400A03.D09M."
7870 DATA "3400A13E08.D14M."
7880 DATA "3400A13.E08D13I06B06M."
7890 DATA "1500A18E10.D16M."
7900 DATA "1318B10.B10L."
7910 DATA "1418B10.C10L."
7920 DATA "1300B03.D09M."
7930 DATA "1332B02.B02L."
7940 DATA "3500.A."
7950 DATA "3600.P."
7960 DATA "3700.O."
7970 DATA "5000.N."
7980 FOR N=1 TO 11:READ O$(N):NEXT N
7990 FOR N=1 TO 43:READ V$(N):NEXT N
8000 FOR N=1 TO 19:READ M$(N):NEXT N
8010 FOR N=1 TO 10:READ C$(N):NEXT N
8020 FOR N=1 TO 47:READ A$(N):NEXT N
8030 RETURN
8040 WINDOW 25,30,1,30:FOR I=0 TO 31:PRINT AT(24,I);"":PRINT AT(31,I);"":NEXT
8050 FOR Y=24 TO 31:PRINT AT(Y,0);"":PRINT AT(Y,31);"":NEXT Y:CLS:RETURN
8060 FOR I=0 TO 30:PRINT AT(17,I);"":PRINT AT(22,I);"":NEXT
8070 FOR I=18 TO 22:PRINT AT(I,0);"":PRINT AT(I,31);"":NEXT
8080 FOR I=0 TO 1:PRINT AT(15,0);"":PRINT AT(15,30);""
8090 PRINT AT(15,1);STRING$(29," "):PAUSE 3 :PRINT AT(15,0);""
8100 PRINT AT(15,30);"":PRINT AT(15,6);"Was machen Sie nun ?":PAUSE 5:NEXT:I=0
8110 RETURN
8120 WINDOW 2,21,0,31:CLS:FOR I=0 TO 31:PRINT AT(3,I);"":PRINT AT(22,I);""
8130 NEXT
8140 FOR I=3 TO 22:PRINT AT(I,0);"":PRINT AT(I,31);"":NEXT
8150 PRINT AT(5,5);"H E L P - M E N U E":FOR I=5 TO 23
8160 PRINT AT(6,I);"":NEXT
8170 WINDOW 8,21,2,15:PRINT "Hinein":PRINT "Hinaus":PRINT "Hinunter":PRINT "Rein"
8180 PRINT "Raus":PRINT "Durch":PRINT "Hoch":PRINT "Hinueber":PRINT "Nehme"
8190 PRINT "Werfe":PRINT "Lege":PRINT "Bastle":WINDOW 8,21,12,30:PRINT "Stelle"
8200 PRINT "Baue":PRINT "Zuende":PRINT "Habe":PRINT "Kaufe":PRINT "Klaue"
8210 PRINT "Raube":PRINT "Schaffe":PRINT "Trage":PRINT "Aufheben"
8220 WINDOW 8,21,22,30:PRINT "NORD":PRINT "WEST":PRINT "SUED":PRINT "OST"
8230 PRINT AT(19,25);">ENT<"
8240 I$=INKEY$:IF I$=""THEN PAUSE 5:PRINT AT(19,25);"<ENT>":PAUSE 5:GOTO 8230
8250 WINDOW 3,22,0,31:CLS:RETURN
8260 WINDOW:CLS:GOSUB 12080
8270 GOSUB 10820:WINDOW 0,19,0,31:CLS
8280 IF NV=1 THEN 8320
8290 WINDOW 0,31,0,31
8300 ON OZ GOSUB 8620,9050,8740,8880,8830,8790,8990,8970
8310 IF OZ> 8 THEN GOSUB 8660
8320 WINDOW 30,30,0,31: PRINT "WAS NUN";
8330 PRINT AT(0,0);"SIE HABEN NOCH",WV,"LITER WASSER."
8340 GOSUB 8490:WV=WV-1:IF WV=0 THEN PRINT "IHR WASSERVORRAT GING ZUENDE,"
8350 IF WV=0 THEN PRINT "SIE SIND VERDURSTET.":PAUSE 55:GOTO 10
8360 IF TZ=0 THEN NV=1:GOTO 8280
8370 IF TZ=1 OR TZ>23 THEN GOSUB 8560:NV=0:ELSE GOSUB 8590:NV=1
8380 IF(TZ=1 AND RV=0)OR(TZ>1 AND TZ<24 AND GV=0)THEN NV=1:GOTO 8280
8390 ON TZ GOSUB 9680,9620,9570,9500,9450,9350,9390,9390,9350,9370
8400 IF TZ>10 THEN ON TZ-10 GOSUB 9320,9240,9240,9240,9200,9370,9160,9160,9160,9110
8410 IF TZ>20 THEN ON TZ-20 GOSUB 9110,9100,9100,9680,9680,9680,9680
8420 GOTO 8280
8430 PRINT "SIE BESITZEN:":KK=0:K=PV:GOSUB 8440:RETURN
8440 FG=32:FOR I=1 TO 6
8450 IF K<FG THEN H(I)=0:GOTO 8480
8460 K=K-FG:H(I)=1
8470 IF KK=0 THEN PRINT D$(I)
8480 FG=FG/2:NEXT:RETURN
8490 INPUT I$:IL=LEN(I$):I1$="":TZ=0:FOR I=1 TO IL:A$=MID$(I$,I,1)
8500 IF A$=" "THEN 8520
8510 I1$=I1$+A$
8520 NEXT I:I1$=I1$+" ":WINDOW 28,31,0,31:CLS
8530 FOR I=1 TO 27:IS=INSTR(H$(I),I1$):IF IS=0 THEN NEXT I:ELSE 8550
8540 PRINT "PARDON, DASS VERSTEHE ICH NICHT.":PAUSE 25:CLS:RETURN
8550 TZ=I:RETURN
8560 RV=0:FOR I=1 TO 4:IS=INSTR(R$(I),I1$):IF IS=0 THEN NEXT I:ELSE 8580
8570 PRINT "BITTE HIMMELSRICHTUNG ANGEBEN!":PAUSE 25:CLS:RETURN
8580 RV=I:RETURN
8590 GV=0:FOR I=1 TO 16:IS=INSTR(G$(I),I1$):IF IS=0 THEN NEXT I:ELSE 8610
8600 PRINT "DAS GEHT NICHT!":PAUSE 25:CLS:RETURN
8610 GV=I:RETURN
8620 CLS:FOR I=1 TO 12:PRINT AT(I+6,0);E$(I+13):NEXT
8630!
8640 PRINT AT(29,0);"SIE SIND IN IHREM BASISLAGER."
8650 RETURN
8660 CLS:VG=OZ/4-INT(OZ/4):IF VG=0 THEN VG=1
8670 VG=(VG-.25)*28+1:FOR I=0 TO 6:PRINT AT(I+2,0);A$(VG+I):NEXT
8680 IF OZ<9 THEN RETURN
8690 PRINT AT(28,0);"IN DER WUESTE"
8700 IF OZ=14 THEN K=DV(14):KK=1:GOSUB 8440:IF H(3)=1 THEN 8720
8710 RETURN
8720 PRINT AT(29,0);"Hier liegt ein weisses Gewand."
8730 RETURN
8740 GOSUB 8660:FOR I=1 TO 15:PRINT AT(I+5,16);B$(30+I):PRINT AT(I+12,25);B$(I+15)
8750 NEXT:PRINT AT(28,1);"DER WEISSE OBELISK"
8760 K=DV(3):KK=1:GOSUB 8440
8770 IF H(4)=1 THEN PRINT AT(29,1);"Im Sand liegt ein Kompass."
8780 RETURN
8790 CLS:FOR I=1 TO 13:PRINT AT(I+5,0);E$(I):NEXT
8800 PRINT AT(28,1);"EINE GEISTERSTADT"
8810 IF RB=0 THEN PRINT AT(29,0);"Du wirst von Raeubern ueberfallen."
8820 RETURN
8830 GOSUB 8660:FOR I=1 TO 11:PRINT AT(I+8,10);E$(I+25):NEXT
8840 PRINT AT(28,1);"Eine SPHINX bewacht diesen Ort."
8850 IF SV=0 THEN PRINT AT(29,0);"Sie toetet Dich als Eindringling":PAUSE 50
8860 GOTO 10
8870 RETURN
8880 CLS:GOSUB 8660:FOR I=7 TO 22:PRINT AT(I-4,18);C$(I):NEXT
8890 FOR I=15 TO 29:PRINT AT(I-10,0);B$(I):PRINT AT(I-13,6);B$(I):NEXT
8900 FOR I=23 TO 28:PRINT AT(I-1,22);C$(I):PRINT AT(I-3,12);C$(I)
8910 PRINT AT(I-1,0);C$(I):NEXT I
8920 PRINT AT(28,0);"In der Karawanserei gibt es"
8930 PRINT AT(29,1);"Kamele zu kaufen."
8940 K=DV(4):KK=1:GOSUB 8440
8950 IF H(6)=1 THEN PRINT AT(31,0);"auch ein Schwert wird angeboten."
8960 RETURN
8970 CLS:GOSUB 8660:FOR I=1 TO 6:PRINT AT(I+15,18);C$(I):NEXT
8980 PRINT AT(29,1);"Im Sand liegen einige Gerippe.":RETURN
8990 CLS:GOSUB 8660:FOR I=7 TO 22:PRINT AT(I-3,12);C$(I):NEXT
9000 FOR I=32 TO 38:PRINT AT(I-20,20);C$(I):NEXT
9010 PRINT AT(27,1);"DAS HAUS DES EINSIEDLERS"
9020 PRINT AT(28,0);"der Einsiedler steht in der Tuer "
9030 IF SV=0 THEN PRINT AT(29,1);"und bittet um eine Gabe."
9040 RETURN
9050 CLS:GOSUB 8660:FOR I=23 TO 28:PRINT AT(I-1,22);C$(I):NEXT:PAUSE 1
9060 FOR I=15 TO 29:PRINT AT(I-1,6);B$(I):PRINT AT(I-14,25);B$(I)
9070 PRINT AT(I-12,0);B$(I):NEXT:FOR J=1 TO 10:PRINT AT(J+10,17);B$(J):NEXT
9080 PRINT AT(29,6);"EINE OASE MIT BRUNNEN"
9090 RETURN
9100 WINDOW 0,19,0,31:CLS:PRINT:PRINT:GOSUB 8430:RETURN
9110 IF OZ<>3 OR GV<>2 THEN PRINT "DAS GEHT NICHT !":RETURN
9120 K=PV:KK=1:GOSUB 8440
9130 IF H(2)=0 THEN PRINT "WELCHEN SCHLUESSEL?":RETURN
9140 IF OB=0 THEN GOSUB 10520
9150 IF OB=1 THEN GOSUB 10570
9160 IF OZ=8 AND GV=13 OR GV=14 THEN GOSUB 10790:RETURN
9170 IF OZ=3 AND GV=11 THEN GOSUB 10660:RETURN
9180 IF OZ=5 AND GV=12 THEN GOSUB 10750:RETURN
9190 PRINT "HIER GIBT ES NICHTS ZU SEHEN.":RETURN
9200 IF OZ<>3 OR GV<>1 THEN PRINT "DAS GEHT NICHT. TUT MIR LEID.":RETURN
9210 K=PV:KK=1:GOSUB 8440
9220 IF H(1)=0 THEN PRINT "WELCHEN DIAMANTEN?":RETURN
9230 OB=1:PRINT "ERLEDIGT!!":PV=PV-32:PRINT AT(14,17);"":RETURN
9240 IF OZ<>6 OR(GV<>9 AND GV<>10)THEN PRINT "DIES IST UNMOEGLICH.":RETURN
9250 IF TZ=12 AND GV<>10 THEN PRINT "WEN WOLLEN SIE VERTEIDIGEN?":RETURN
9260 IF TZ>12 AND GV<>9 THEN PRINT "WAS HABEN SIE VOR?":RETURN
9270 K=PV:KK=1:GOSUB 8440
9280 IF H(6)=0 THEN PRINT "Sie hatten keine Waffe bei sich..."
9290 IF H(6)=0 THEN PRINT "und wurden leider getoetet !":PAUSE 50:GOTO 10
9300 RB=1:PRINT "Sie haben die Raeuber besiegt !"
9310 RETURN
9320 K=PV:KK=1:GOSUB 8440
9330 IF H(GV)=0 THEN PRINT "DAS HABEN SIE NICHT.":RETURN
9340 PRINT "OKAY!!":PV=PV-GV(GV):DV(OZ)=DV(OZ)+GV(GV):RETURN
9350 IF OZ<>5 OR GV<>8 THEN PRINT "DAS IST UNNOETIG.":RETURN
9360 SV=2:PRINT " Die SPHINX ist gereizt gestimmt.":RETURN
9370 IF OZ<>2 OR GV<>7 THEN PRINT "DAS GEHT NICHT.":RETURN
9380 WV=30:PRINT "Sie haben wieder Wasservorrat.":RETURN
9390 IF OZ<>5 AND(GV<>5 OR GV<>2)THEN PRINT "PARDON, ICH VERSTEHE NICHT.":RETURN
9400 K=DV(5):KK=1:GOSUB 8440:IF H(2)=0 THEN PRINT "ES IST NICHTS DA!":RETURN
9410 K=PV:KK=1:GOSUB 8440:IF H(5)=0 THEN PRINT "WEN WOLLEN SIE BELADEN?":RETURN
9420 IF SV<2 THEN PRINT " Die SPHINX toetet den Dieb.":PAUSE 50:GOTO 15000
9430 PV=PV+16:DV(5)=DV(5)-16
9440 PRINT "Der Schluessel gehoert nun Ihnen":RETURN
9450 IF OZ<>7 OR GV<>3 THEN PRINT "DAS IST NICHT DRIN.":RETURN
9460 K=PV:KK=1:GOSUB 8440
9470 IF H(3)=0 THEN PRINT "WELCHES GEWAND?":RETURN
9480 EV=1:PRINT AT(28,0);"Der Einsiedler ist nun bereit"
9490 PRINT AT(29,0);"Dir zu antworten.":RETURN
9500 IF OZ<>7 OR GV<>15 THEN PRINT "DAS KOENNEN SIE NICHT TUN.":RETURN
9510 IF EV=0 THEN PRINT AT(28,0); "Der Einsiedler schweigt verbissen":RETURN
9520 WINDOW:CLS:WINDOW 13,20,0,31
9530 SV=1:PRINT "DER EINSIEDLER VERRAET DIR"
9540 PRINT "EINEN ZAUBERSPRUCH. AUSSERDEM "
9550 PRINT "RAET ER, DEN WEISSEN OBELISK ZU"
9560 PRINT "SUCHEN":PRINT "DORT SOLL DER SCHATZ RUHEN!":PAUSE 50:RETURN
9570 IF OZ<>4 OR(GV<>5 AND GV<>6)THEN PRINT "SO GEHT ES NICHT.":RETURN
9580 K=DV(OZ):KK=1:GOSUB 8440
9590 IF H(GV)=0 THEN PRINT "Das ist bereits ausverkauft !":RETURN
9600 PRINT "Der Haendler gibt es Ihnen.":PV=PV+GV(GV)
9610 DV(OZ)=DV(OZ)-GV(GV):RETURN
9620 IF GV=2 THEN PRINT "Den Schluessel koennen Sie nicht allein tragen.": RETURN
9630 IF GV>6 THEN PRINT "DAS IST NICHT MOEGLICH.":RETURN
9640 IF GV>4 THEN PRINT "Dagegen hat der Haendler etwas!":RETURN
9650 K=DV(OZ):KK=1:GOSUB 8440
9660 IF H(GV)=0 THEN PRINT "DAS GIBT ES HIER GAR NICHT.":RETURN
9670 PRINT "OKAY!":PV=PV+GV(GV):DV(OZ)=DV(OZ)-GV(GV):RETURN
9680 NV=0:ON OZ GOTO 9710,9760,9800,9850,9910,9950,10020,10100
9690 IF OZ>8 THEN ON OZ-8 GOTO 10140,10180,10240,10280,10330,10380,10410,10450
9700 RETURN
9710 ON RV GOTO 9720,9730,9740,9750
9720 OZ=10:RETURN
9730 PRINT "DORTHIN BRAUCHEN SIE NICHT GEHEN.":PAUSE 40:CLS:RETURN
9740 OZ=9:RETURN
9750 OZ=11:RETURN
9760 ON RV GOTO 9770,9780,9730,9790
9770 OZ=5:RETURN
9780 OZ=9:RETURN
9790 OZ=3:RETURN
9800 ON RV GOTO 9810,9820,9830,9840
9810 OZ=13:RETURN
9820 OZ=10:RETURN
9830 OZ=2:RETURN
9840 OZ=12:RETURN
9850 ON RV GOTO 9860,9870,9880,9890
9860 OZ=14:RETURN
9870 OZ=11:RETURN
9880 OZ=12:RETURN
9890 BEEP:PRINT "Sie fielen in ein Loch voll":PRINT " T R E I B S A N D "
9900 PRINT "....Ruhen Sie in Frieden !":PAUSE 50:GOTO 10
9910 ON RV GOTO 9920,9930,9730,9940
9920 OZ=15:RETURN
9930 OZ=2:RETURN
9940 OZ=13:RETURN
9950 IF RB=1 THEN ON RV GOTO 9980,9990,10000,10010
9960 PRINT "Die Raeuber haben Sie nicht"
9970 PRINT "einfach gehen lassen.":PRINT "Nun ist's aus.":PAUSE 50:GOTO 10
9980 OZ=7:RETURN
9990 OZ=12:RETURN
10000 OZ=13:RETURN
10010 OZ=14:RETURN
10020 ON RV GOTO 9730,10030,10040,10070
10030 OZ=6:RETURN
10040 BEEP:BEEP:PRINT "Es war einmal ein Loewe ...":PAUSE 20:PRINT
10050 PRINT "Er hatte eine hungrige Familie":PAUSE 20:PRINT
10060 PRINT "Sie wurden leider sein Opfer (!)":PAUSE 50:GOTO 10
10070 BEEP:BEEP:PRINT "Bis heute weiss leider keiner...":PAUSE 20
10080 PRINT "wohin Sie sich in der":PAUSE 20:PRINT
10090 PRINT "Wueste verirrt haben.":PAUSE 50:GOTO 10
10100 K=PV:KK=1:GOSUB 8440
10110 IF H(4)=1 THEN ON RV GOTO 10070,10130,9890,9730
10120 PRINT "SIE LAUFEN IM KREISE!":PAUSE 10:RETURN
10130 OZ=15:RETURN
10140 ON RV GOTO 10150,9730,10160,10170
10150 OZ=3:RETURN
10160 OZ=2:RETURN
10170 OZ=1:RETURN
10180 ON RV GOTO 10190,10200,10210,9730
10190 OZ=3:RETURN
10200 OZ=1:RETURN
10210 BEEP:PRINT "Man fand Sie drei Wochen spaeter":PAUSE 20
10220 PRINT "tot unter einem Felsen.":PAUSE 20:PRINT
10230 PRINT "Sie sind leider abgestuerzt !":PAUSE 50:GOTO 10
10240 ON RV GOTO 10250,9730,10260,10270
10250 OZ=10:RETURN
10260 OZ=1:RETURN
10270 OZ=4:RETURN
10280 ON RV GOTO 10290,10300,10310,10320
10290 OZ=6:RETURN
10300 OZ=11:RETURN
10310 OZ=3:RETURN
10320 OZ=4:RETURN
10330 ON RV GOTO 10340,10350,10360,10370
10340 OZ=16:RETURN
10350 OZ=3:RETURN
10360 OZ=5:RETURN
10370 OZ=6:RETURN
10380 ON RV GOTO 9730,10390,10400,9890
10390 OZ=4:RETURN
10400 OZ=6:RETURN
10410 ON RV GOTO 10420,10430,9730,10440
10420 OZ=8:RETURN
10430 OZ=5:RETURN
10440 OZ=16:RETURN
10450 ON RV GOTO 10460,10490,10500,10510
10460 PRINT "Sie wurden in der Wueste"
10470 PRINT "vom einzigen Auto in der Woche":PRINT "ueberfahren.":PAUSE 50
10480 GOTO 10
10490 OZ=13:RETURN
10500 OZ=15:RETURN
10510 OZ=6:RETURN
10520 WINDOW 0,19,0,31:CLS
10530 PRINT "unter Ihnen oeffnet":PRINT "sich ploetzlich der Boden":PAUSE 20:PRINT
10540 PRINT "und Sie stuerzen in eine Grube":PAUSE 20:PRINT
10550 PRINT "in der giftige Schlangen schon":PRINT
10560 PRINT "auf Sie warten... ":PAUSE 50:GOTO 10
10570 GOSUB 12460:PAUSE 30:WINDOW:CLS:WINDOW 5,31,0,31
10580 PRINT "WIE VON GEISTERHAND BEWEGT,":PAUSE 20:PRINT
10590 PRINT "SINKT DER WEISSE OBELISK":PAUSE 20:PRINT "LANGSAM IN DEN SAND EIN."
10600 PRINT:PAUSE 20:PRINT "AN SEINER STELLE ERSCHEINT":PAUSE 20
10610 PRINT "KURZE ZEIT DANACH DER SCHATZ,":PAUSE 20:PRINT: PRINT "NACH DEM SIE SO"
10620 PRINT "LANGE GESUCHT HABEN. ":PAUSE 20:PRINT:PRINT " SOLCH EIN GLUECK":PAUSE 2
10630 PRINT "HAT MAN IM LEBEN NUR EINMAL !":PAUSE 30:PRINT
10640 PRINT "SIE SOLLTEN ALLEN":PAUSE 30
10650 PRINT "EINEN AUSGEBEN , MEIN FREUND !!":PAUSE 50:PRINT "(c) RO":END
10660 WINDOW 0,19,0,31:CLS
10670 PRINT:PRINT: PRINT "SIE SEHEN DEN WEISSEN OBELISKEN."
10680 PRINT "AUF SEINER VORDERSEITE IST DAS"
10690 PRINT "BILD EINER GOTTHEIT DARGESTELLT."
10700 PRINT "ALLERDINGS FEHLT DIESEM GOTT"
10710 PRINT "EINES SEINER DIAMANTENEN AUGEN."
10720 PRINT "DER WEIT GEOEFFNETE MUND":PRINT "ERINNERT AN EIN SCHLUESSELLOCH"
10730 PRINT "ABER FUER EINEN GIGANTISCHEN":PRINT "S C H L U E S S E L .
10740 RETURN
10750 K=DV(5):KK=1:GOSUB 8440
10760 IF H(2)=0 THEN PRINT "HIER GIBT ES NUR DIE SPHINX .":RETURN
10770 PRINT AT(28,0);"DIE SPHINX BEWACHT EINEN GROSSEN"
10780 PRINT AT(29,0);"STEINERNEN SCHLUESSEL.":RETURN
10790 K=DV(8):KK=1:GOSUB 8440
10800 IF H(1)=0 THEN PRINT "HIER IST NICHTS MEHR ZU SEHEN.":RETURN
10810 PRINT "Im Sand liegt ein Diamant.":RETURN
10820 DATA " "
10830 DATA " "
10840 DATA " "
10850 DATA " "
10860 DATA " "
10870 DATA " "
10880 DATA " "
10890 DIM A$(28):RESTORE 10820:FOR I=1 TO 7:READ A$(I):NEXT
10900 DATA "",""," "
10910 DATA " ",""," "
10920 DATA " "," "," "
10930 DATA " "," "," "
10940 DATA " ",""," "
10950 DATA ""," "," "
10960 DATA ""," ",""
10970 DATA ""," ",""
10980 DATA ""," ",""
10990 DATA ""," ",""
11000 DATA ""," ",""
11010 DATA ""," ",""
11020 DATA ""," ",""
11030 DATA ""," ",""
11040 DATA ""," ",""
11050 DIM B$(45):FOR I=1 TO 15:READ B$(I),B$(I+15),B$(I+30):NEXT I
11060 DATA " "
11070 DATA " "
11080 DATA " "
11090 DATA " "
11100 DATA " "
11110 DATA " "
11120 DATA " "," "
11130 DATA " "," "
11140 DATA " "," "
11150 DATA " "," "
11160 DATA " "," "
11170 DATA " "," "
11180 DATA "",""
11190 DATA "",""
11200 DATA " ",""
11210 DATA " "," "
11220 DATA " "," "
11230 DATA " "," "
11240 DATA " "," "
11250 DATA " "," "
11260 DATA " "," "
11270 DATA "",""
11280 DIM C$(38):FOR I=1 TO 6:READ C$(I):NEXT
11290 FOR I=7 TO 22:READ C$(I),C$(I+16):NEXT I
11300 DATA " "
11310 DATA " "
11320 DATA " "
11330 DATA " "
11340 DATA " "
11350 DATA " "
11360 DATA " "
11370 DATA " "
11380 DATA " "
11390 DATA " "
11400 DATA " "
11410 DATA " "
11420 DATA " "
11430 DIM E$(40):FOR I=1 TO 13:READ E$(I):NEXT
11440 DATA " "
11450 DATA " "
11460 DATA " "
11470 DATA ""
11480 DATA ""
11490 DATA ""
11500 DATA ""
11510 DATA ""
11520 DATA " "
11530 DATA ""
11540 DATA " "
11550 DATA ""
11560 FOR I=14 TO 25:READ E$(I):NEXT
11570 DATA " "
11580 DATA " "
11590 DATA " "
11600 DATA " "
11610 DATA " "
11620 DATA " "
11630 DATA " "
11640 DATA " "
11650 DATA " "
11660 DATA " "
11670 DATA " "
11680 FOR I=26 TO 36:READ E$(I):NEXT
11690 DATA " "
11700 DATA " "
11710 DATA " "
11720 DATA " "
11730 DATA " "
11740 DATA " "
11750 DATA " "
11760 DATA " "
11770 DATA " "
11780 DATA " "
11790 DATA " "
11800 DATA " "
11810 DATA " "
11820 DATA " "
11830 DATA " "
11840 DATA " "
11850 DATA " "
11860 DATA " "
11870 DATA " "
11880 DATA " "
11890 DATA " "
11900 FOR I=8 TO 28:READ A$(I):NEXT
11910 WV=30:SV=0:RB=0:OB=0:DIM G$(16),D$(16),H$(27),H(16),GV(16),DV(16):OZ=1
11920 DATA "NORD","SUED","OST","WEST":FOR I=1 TO 4:READ R$(I):H$(I+23)=R$(I):NEXT
11930 DATA "GEHE","NEHME","KAUFE","FRAGE","GEBE","SAGE","LADE","BELADE","ANTW"
11940 DATA "SCHOEPF","WERFE","VERTEI","VERTREI","TOETE","SETZE","FUELLE"
11950 DATA "SCHAU","SEHE","BLICK","FUEHRE","SCHLUES","HABE","BESITZ"
11960 FOR I=1 TO 23:READ H$(I):NEXT
11970 DATA "DIAMANT","EINEN GROSSEN DIAMANTEN",32
11980 DATA "SCHLUESSEL","EINEN STEINERNEN SCHLUESSEL"
11990 DATA 16,"GEWAND","EIN WEISSES GEWAND",8,"KOMPASS","EINEN KOMPASS",4
12000 DATA "KAMEL","EIN GUTES KAMEL",2,"SCHWERT","EIN SCHARFES SCHWERT",1
12010 DATA "WASSER","",0,"SPRUCH","",0,"RAEUBER","",0,"MICH","",0
12020 DATA "OBELISK","",0,"SPHIN","",0,"GERIPP","",0,"SAND","",0,"EINSIED","",0
12030 DATA "WAS","",0
12040 FOR I=1 TO 16:READ G$(I),D$(I),GV(I):NEXT
12050 DV(3)=4:DV(4)=3:DV(5)=16:DV(8)=32:DV(14)=8
12060 PV=0:RETURN
12070 NEW
12080 PRINT
12090 FOR I=0 TO 31: PRINT STRING$(31,"."):NEXT
12100 I=2:K=1
12110 FOR K=1 TO 13 :WINDOW I,I+1,K,K+1
12120 ON K GOSUB 12140,12150,12160,12170,12180,12190,12200,12210,12220
12130 PAUSE 5:NEXT :GOTO 12230
12140 PRINT "R":RETURN
12150 PRINT "O":RETURN
12160 PRINT " ":RETURN
12170 PRINT "1":RETURN
12180 PRINT "1":RETURN
12190 PRINT "/":RETURN
12200 PRINT "8":RETURN
12210 PRINT "8":RETURN
12220 PRINT "*":RETURN
12230 WINDOW 5,26,1,29:CLS:PAUSE 20
12240 PRINT:PRINT " TEXTADVENTURE - WUESTE":PAUSE 10
12250 PRINT AT(11,3);" Game :M. Siedentopf"
12260 PRINT AT(15,4);"Version Z1013 : K. Rothe":PAUSE 10
12270 PRINT AT(22,4);"ausfuehrl. Erlaeuterung":PRINT AT(23,4);"ueber EDITEX File
12280 IF INKEY$<>CHR$(13)THEN 12280
12290 WINDOW 9,26,2,29:CLS:PRINT "Gehen Sie auf die Suche":PRINT
12300 PRINT "nach dem in der Wueste":PRINT "RUROMI verborgenen Schatz .":PRINT
12310 PRINT "Wagen Sie das Abenteuer,":PRINT "von dem vor Ihnen":PRINT
12320 PRINT "bisher keiner zurueckkehrte."
12330 IF INKEY$<>CHR$(13)THEN 12330
12340 CLS:PRINT "Lassen Sie sich fesseln":PRINT " von diesem":PRINT
12350 PRINT " TEXTADVENTURE - GAME,":PRINT:PRINT "Das Ihnen ein Raetsel nach "
12360 PRINT "dem anderen aufgeben wird !":PRINT "Aber verzweifeln Sie nicht ,";
12370 PRINT "wenn Sie beim ersten Anlauf":PRINT "scheitern !"
12380 PRINT "Nur Phantasie kann Ihnen ":PRINT "helfen und natuerlich die"
12390 PRINT "ausfuehrliche Beschreibung"
12400 PRINT "ueber Textfile EDITEX."
12410 IF INKEY$<>CHR$(13)THEN 12410
12420 FOR I=0 TO 500:PRINT AT((RND(1)*31),(RND(1)*31));"":NEXT:WINDOW:CLS
12430 CLS:PRINT " Es geht sofort los ..."
12440!
12450 RETURN
12460 FOR K=1 TO 16
12470 FOR I=1 TO K:PRINT AT(I+3,16);" ":NEXT
12480 FOR J=1 TO 15-K:PRINT AT(J+K+3,16);B$(30+J):NEXT
12490 NEXT
12500 F$(1)=""
12510 F$(2)=" "
12520 F$(3)=""
12530 F$(4)=" "
12540 F$(5)=""
12550 F$(6)=""
12560 F$(7)=""
12570 FOR K=1 TO 7
12580 FOR I=1 TO K:PRINT AT(I-K+14,16);F$(I):NEXT I
12590 PAUSE 1:NEXT K:RETURN
30000 PRINT:PRINT:INPUT "Wer will was von mir ?" ;N$
30010 CLS:WINDOW 8,31,14,31
30020 RESTORE 30070
30030 FOR I=1 TO 63
30040 READ X,Y,Z
30050 PRINT AT(X,Y);CHR$(Z)
30060 NEXT
30070 DATA 7,3,129,7,4,139,7,5,202,7,6,202,7,7,139,7,8,128
30080 DATA 8,3,190,8,8,143
30090 DATA 9,2,174,9,3,142,9,4,129,9,5,128,9,6,129,9,7,128,9,8,191,9,9,173
30100 DATA 10,2,171,10,3,159,10,5,133,10,6,132,10,8,192,10,9,172
30110 DATA 11,3,145,11,4,213,11,5,171,11,6,172,11,8,144,11,9,18
30120 DATA 12,4,191,12,5,183,12,6,183,12,7,142
30130 DATA 18,3,129,18,4,139,18,5,202,18,6,202,18,7,139,18,8,128
30140 DATA 19,3,190,19,8,143
30150 DATA 20,2,174,20,3,142,20,4,129,20,5,128,20,6,129,20,7,128,20,8,191
30160 DATA 20,9,173,21,2,171,21,3,159,21,5,133,21,6,132,21,8,192,21,9,172
30170 DATA 22,3,145,22,5,174,22,6,173,22,8,144,22,9,18
30180 DATA 23,4,191,23,5,183,23,6,183,23,7,142
30190 PAUSE 5
30200 FOR I=1 TO 22
30210 PRINT AT(11,5);CHR$(129)
30220 PRINT AT(11,6);CHR$(128)
30230 IF I=4 THEN PRINT "Hallo ";N$:PRINT:PRINT:PRINT
30240 IF I=10 THEN PRINT "Moechtest Du":PRINT
30250 IF I=20 THEN PRINT "mit mir spielen ?":PRINT:PRINT:PRINT
30260 PRINT AT(11,5);"~~"
30270 PRINT AT(11,6);CHR$(129)
30280 PRINT AT(11,5);CHR$(128)
30290 PRINT AT(11,5);"--"
30300 PRINT AT(11,5);CHR$(129)
30310 PRINT AT(11,6);CHR$(128)
30320 PRINT AT(11,5);CHR$(171)
30330 PRINT AT(11,6);CHR$(172)
30340 NEXT I
30350 FR$=INKEY$
30360 IF FR$="J" THEN 30390
30370 IF FR$="N" THEN 30610
30380 GOTO 30350
30390 WINDOW 15,30,0,10
30400 FOR I=1 TO 14
30410 PRINT " ":PAUSE 1
30420 NEXT I
30430 PRINT AT(15,3);"Schoen"
30440 PRINT AT(11,5);CHR$(129)
30450 PRINT AT(11,6);CHR$(128)
30460 PAUSE 10
30470 FOR I=1 TO 20
30480 PRINT AT(11,5);"~~"
30490 PRINT AT(11,5);CHR$(148)
30500 PRINT AT(11,6);CHR$(151)
30510 PRINT AT(11,5);CHR$(129)
30520 PRINT AT(11,6);CHR$(128)
30530 PRINT AT(11,5);CHR$(171)
30540 PRINT AT(11,6);CHR$(172)
30550 IF I=3 THEN PRINT "Es":PRINT
30560 IF I=8 THEN PRINT "geht":PRINT
30570 IF I=12 THEN PRINT "gleich":PRINT
30580 IF I=15 THEN PRINT "los !"
30590 NEXT I:PAUSE 20
30600 RETURN
30610 WINDOW 1,15,0,10
30620 FOR I=1 TO 14
30630 PRINT " ":PAUSE 1
30640 NEXT I
30650 PRINT AT(27,0);"Dann eben nicht !"
30660 PRINT AT(22,5);"~~"
30670 PAUSE 40
30680 WINDOW:CLS:POKE 10846,95:END
