2bc0 6000 0302 B ... PYRAMIDE(laeuft)
Sie wollen eine Pyramide
ausrauben. Zwei boese Gespenster
wollen Sie  daran hindern.

Sie koennen sich mit den Tasten
   Q-E-A-D-Y-C bewegen und mit
   S-W oder X springen.

Wenn Sie ein Schwert oder
eine Hacke tragen, bewirken
W oder X das Werfen des Schwerts
oder das Hacken eines Lochs.  Am
besten probieren Sie es selbst.
(Zum Glueck haben Sie 10 Leben.)
Koennen Sie  nicht mehr weiter,
druecken Sie ' U '.         

2! geandert fuer Z1013 von         R.Riedel Suhl *Y43RK* 
5 CLEAR:WINDOW
10 WINDOW:CLS:OUT 136,0:FOR I=1 TO 8:P$(I)="Y43RK Software":NEXT I:GOTO 9000
11 B=1
100 REM *** CYCLUS ***
110 IF GO=0 THEN GOSUB 2600
190 IF ZG>0 THEN ZG=ZG-1:GOTO 280
200 REM *** G-STRAT ***
202 S1=G:S2=SG
205 U=PEEK(G+32):LS=PEEK(G-1):RS=PEEK(G+1):ON SGN(EG-EM)+2 GOTO 210,235,225
210 IF U=188 THEN R=31:EG=EG+1:SG=SG-1:GOTO 255 
215 IF U=189 THEN R=33:EG=EG+1:SG=SG+1:GOTO 255
220 GOTO 235
225 IF LS=189 THEN R=-33:EG=EG-1:SG=SG-1:GOTO 255
230 IF RS=188 THEN R=-31:EG=EG-1:SG=SG+1:GOTO 255
235 IF ABS(EG-EM)<3 THEN ON SGN(SG-SM)+2 GOTO 240,240,250
237 ON SGN(R)+2 GOTO 250,250,240
240 R=V1:IF RS=199 OR RS=182 THEN 3500
245 SG=SG+1:GOTO 255
250 R=-V1:IF LS=199 OR LS=182 THEN 3600
252 SG=SG-1
255 POKE G,VG:GW=GW+R:G=INT(GW):VG=PEEK(G):IF VG=255 THEN 3000
257 POKE G,207:IF S1=G THEN SG=S2
260 IF VG=196 THEN 2000
265 U=PEEK(G+32):IF U=199 OR U>181 AND U<190 THEN 280
270 EG=EG+1:R=40:GOTO 255
280 REM *** G END ***
290 IF ZH>0 THEN ZH=ZH-1:GOTO 380
300 REM *** H-STRAT ***
302 S1=H:S2=SH
305 U=PEEK(H+32):LS=PEEK(H-1):RS=PEEK(H+1):ON SGN(EH-EM)+2 GOTO 310,335,325
310 IF U=188 THEN S=31:EH=EH+1:SH=SH-1:GOTO 355
315 IF U=189 THEN S=33:EH=EH+1:SH=SH+1:GOTO 355
320 GOTO 335
325 IF LS=189 THEN S=-33:EH=EH-1:SH=SH-1:GOTO 355
330 IF RS=188 THEN S=-31:EH=EH-1:SH=SH+1:GOTO 355
335 ON SGN(SH-SM)+2 GOTO 340,340,350
340 S=V2:IF RS=199 OR RS=182 THEN 3700
345 SH=SH+1:GOTO 355
350 S=-V2:IF LS=199 OR LS=182 THEN 3800
352 SH=SH-1
355 POKE H,VH:HW=HW+S:H=INT(HW):VH=PEEK(H):IF VH=207 THEN 3100
357 POKE H,255:IF S1=H THEN SH=S2
360 IF VH=196 THEN 2000
365 U=PEEK(H+32):IF U=199 OR U>181 AND U<190 THEN 380
370 EH=EH+1:S=32:GOTO 355
380 REM *** H END ***
500 REM *** MENSCH ***
510 U=PEEK(M+32):LS=PEEK(M-1):RS=PEEK(M+1)
520 J=PEEK(4)
521 IF J=65 THEN 550
522 IF J=68 THEN 570
523 IF J=89 THEN 590
524 IF J=67 THEN 600
525 IF J=69 THEN 620
526 IF J=81 THEN 610
527 IF J=83 THEN 700
528 IF J=87 THEN 800
529 IF J=88 THEN 855
530 IF J=85 THEN 2000
540 GOTO 100
550 IF LS=199 OR LS=182 OR U=189 AND LS=189 AND PEEK(M+31)<>182 THEN 100
560 W1=-1:SM=SM-1:GOTO 630
570 IF RS=199 OR RS=182 OR U=188 AND RS=188 AND PEEK(M+33)<>182 THEN 100
580 W1=1:SM=SM+1:GOTO 630
590 IF U=188 THEN W1=31:EM=EM+1:SM=SM-1:GOTO 630:ELSE 550
600 IF U=189 THEN W1=33:EM=EM+1:SM=SM+1:GOTO 630:ELSE 570
610 IF LS=189 THEN W1=-33:EM=EM-1:SM=SM-1:GOTO 630:ELSE 550
620 IF RS=188 THEN W1=-31:EM=EM-1:SM=SM+1:GOTO 630:ELSE 570
630 POKE M,VM:M=M+W1:VM=PEEK(M):POKE M,196:U=PEEK(M+32)
640 IF VM=140 THEN VM=32:GO=GO-1:PZ=PZ+20+B*10:PRINT AT(0,27);PZ
650 IF VM=207 OR VM=255 THEN 2000
660 IF VM=161 AND AU=1 THEN AU=2:VM=32:GOSUB 2500
670 IF VM=169 AND AU=1 THEN AU=3:VM=32:GOSUB 2500
680 IF VM=159 OR VM=192 THEN 2900
690 IF U>181 AND U<190 OR U=199 THEN 100:ELSE W1=32:EM=EM+1:GOTO 630
700 ON AU GOTO 710,790,790
710 IF U=188 OR U=189 THEN 100
720 FOR I=1 TO 2:POKE M,VM:M=M-32:VM=PEEK(M):POKE M,196
730 NEXT I
740 IF VM=161 AND AU=1 THEN AU=2:VM=32:GOSUB 2500
745 IF VM=140 THEN GO=GO-1:VM=32:PZ=PZ+20+B*10:PRINT AT(0,26);PZ
750 IF VM=169 AND AU=1 THEN AU=3:VM=32:GOSUB 2500
760 IF VM=195 THEN VM=32:GOSUB 2800
770 FOR I=1 TO 2:POKE M,VM:M=M+32:VM=PEEK(M):POKE M,196:NEXT I
780 GOTO 100
790 GOTO 100
800 ON AU GOTO 804,910,980
804 LS=PEEK(M-33):IF LS=199 OR LS=182 THEN 100
805 POKE M,VM:M=M-33:VM=PEEK(M):LS=PEEK(M-1):POKE M,196:SM=SM-1
810 IF LS=199 OR LS=182 THEN W1=32:GOTO 630
815 POKE M,VM:M=M-33:VM=PEEK(M):LS=PEEK(M-1):U=PEEK(M+32):POKE M,196:SM=SM-1
820 IF VM=161 AND AU=1 THEN AU=2:VM=32:GOSUB 2500
823 IF VM=140 THEN GO=GO-1:VM=32:PZ=PZ+20+B*30:PRINT AT(0,26);PZ 
825 IF VM=169 AND AU=1 THEN AU=3:VM=32:GOSUB 2500
830 IF VM=195 THEN GOSUB 2800
835 IF LS=199 OR U=182 THEN W1=0:EM=EM-2:GOTO 630 
840 POKE M,VM:M=M+31:VM=PEEK(M):LS=PEEK(M-1):U=PEEK(M+32):POKE M,196:SM=SM-1
845 IF LS=199 OR U=199 OR U=182 OR LS=182 THEN W1=0:EM=EM-1:GOTO 630
850 W1=31:SM=SM-1:GOTO 630
855 ON AU GOTO 859,920,992
859 RS=PEEK(M-31):IF RS=182 OR RS=199 THEN 100
860 POKE M,VM:M=M-31:VM=PEEK(M):RS=PEEK(M+1):POKE M,196:SM=SM+1
865 IF RS=199 OR RS=182 THEN W1=0:GOTO 630
870 POKE M,VM:M=M-31:VM=PEEK(M):RS=PEEK(M+1):U=PEEK(M+32):POKE M,196:SM=SM+1
875 IF VM=161 AND AU=1 THEN AU=2:VM=32:GOSUB 2500
880 IF VM=169 AND AU=1 THEN AU=3:VM=32:GOSUB 2500
885 IF VM=195 THEN GOSUB 2800
890 IF RS=199 OR U=182 THEN W1=0:EM=EM-2:GOTO 630
895 POKE M,VM:M=M+33:VM=PEEK(M):RS=PEEK(M+1):U=PEEK(M+32):POKE M,196:SM=SM+1
900 IF RS=199 OR U=199 OR U=182 OR RS=182 THEN W1=0:EM=EM-1:GOTO 630
905 W1=33:SM=SM+1:GOTO 630
910 IF LS=199 THEN 100
915 AU=1:GOSUB 2500:W1=-1:W2=M:GOTO 930
920 IF RS=199 THEN 100
925 AU=1:GOSUB 2500:W1=1:W2=M:GOTO 930
930 W2=W2+W1:W3=PEEK(W2)
935 IF W3=207 THEN 6100
940 IF W3=255 THEN 6200
945 IF W3=199 AND W1<>32 THEN W2=W2-W1:W1=32:GOTO 930
950 IF W3=199 OR W3=182 THEN W2=W2-32:GOTO 960
955 POKE W2,161:POKE W2,W3:GOTO 930
960 W3=PEEK(W2)
965 IF W3=32 THEN POKE W2,161:GOTO 100 
970 FOR I=1 TO 2:POKE W2,W3:W2=W2-32:W3=PEEK(W2):POKE W2,161:NEXT
975 GOTO 100
980 IF PEEK(M+31)<>182 THEN 100
985 POKE M+31,32:AU=1:GOSUB 2500
990 GOTO 100
992 IF PEEK(M+33)<>182 THEN 100
994 POKE M+33,32:AU=1:GOSUB 2500
996 GOTO 100
1000 REM *** OBJ ***
1010 READ Z1:IF Z1=40 THEN RETURN:ELSE READ S1,PR$
1020 PRINT AT(Z1,S1);PR$:GOTO 1000
1100 REM *** TREPP L H ***
1110 READ Z1:IF Z1=40 THEN RETURN:ELSE READ S1,Z2
1120 FOR I=Z1 TO Z2 STEP-1:PRINT AT(I,S1);"":S1=S1-1:NEXT:GOTO 1100 
1200 REM *** TREPP R H ***
1210 READ Z1:IF Z1=40 THEN RETURN:ELSE READ S1,Z2
1220 FOR I=Z2 TO Z1 STEP 1:PRINT AT(I,S1);"":S1=S1-1:NEXT:GOTO 1200 
1300 REM *** DATA-READING ***
1310 READ M,VM,AU,EM,SM,GW,R,VG,ZG,EG,SG,HW,S,VH,ZH,EH,SH,TZ,TN,GO,V1,V2
1320 G=GW:H=HW:FOR I=3 TO 22:PRINT AT(I,0);"":PRINT AT(I,31);"":NEXT
1330 PRINT AT(23,0);STRING$(32,""):PRINT AT(2,0);STRING$(32,"")
1340 POKE M,196:RETURN
2000 REM *** TOT ***
2005 LB=LB-1:PRINT AT(0,5);LB:IF LB=0 THEN 2100
2020 FOR I=5 TO 1 STEP-1:PRINT AT(1,0);"          Ein Leben weniger !   ":PAUSE I*2
2022 PRINT AT(1,0);"                                ":PAUSE I+1:NEXT
2030 W1=2:GOTO 9200
2100 REM *** GAME OVER ***
2110 PRINT AT(12,10);"":PRINT AT(14,10);""
2120 PRINT AT(13,10);"GAME  OVER":PAUSE 7
2130 FOR I=6 TO 1 STEP-1:PRINT AT(13,11);"          ":PAUSE INT(I*1.2)
2140 PRINT AT(13,11);"GAME  OVER":PAUSE I:NEXT I
2200 PZ=PZ+99*LB:CLS:PRINT "  ";P$;" erhielt ";PZ;" Punkte.":PRINT:GOSUB 10600
2260 PRINT AT(25,20);">ENTER<":A$=INKEY$:IF A$=""THEN 2260
2265 PZ=0:B=1:GOTO 10500
2500 PRINT AT(1,12);A$(AU):RETURN
2600 REM *** TUER ZU ***
2800 PRINT AT(3,12);"TUER GEOEFFNET":REM *** TUER OE ***
2800 PRINT AT(3,12);"Tuer geoeffnet":   REM *** TUER OE ***
2810 IF M=TZ-64 THEN W1=TZ:ELSE W1=TN
2820 POKE W1-32,193:POKE W1-31,137
2830 IF M=W1 THEN VM=159:GOTO 2850
2835 IF G=W1 THEN VG=159:GOTO 2850
2840 IF H=W1 THEN VH=159:ELSE POKE W1,159
2850 IF M=W1+1 THEN VM=192:GOTO 2870
2855 IF G=W1+1 THEN VG=192:GOTO 2870
2860 IF H=W1+1 THEN VH=192:ELSE POKE W1+1,192
2870 RETURN
2900 REM *** TUER D ***
2910 IF M=TZ OR M=TZ+1 THEN B=B-1:W1=1
2920 IF M=TN OR M=TN+1 THEN B=B+1:W1=0
2930 CLS:GOTO 9200
3000 REM *** G1 INIT ***
3010 WW=0:VG=32:GW=-5014:ZG=20:SG=18:EG=3:G=-5014:GOTO 280
3100 REM *** G2 INIT ***
3110 WW=0:VH=32:HW=-5013:ZH=20:SH=19:EH=3:H=-5013:GOTO 380
3500 IF LS=199 OR LS=182 THEN POKE G,VG:GOTO 3000:ELSE 250
3600 IF RS=199 OR RS=182 THEN POKE G,VG:GOTO 3000:ELSE 240
3700 IF LS=199 OR LS=182 THEN POKE H,VH:GOTO 3100:ELSE 350 
3800 IF RS=199 OR RS=182 THEN POKE H,VH:GOTO 3100:ELSE 340
6100 REM *** G1 T ***
6110 POKE W2,202:W3=VG:VG=161:ZG=50:GOTO 965
6200 REM *** G2 T ***
6210 POKE W2,202:W3=VH:VH=161:ZH=50:GOTO 965
9000 PRINT STRING$(30,""):PRINT "";TAB(29);""
9001 A$(1)="keine  ":A$(2)="Schwert":A$(3)="Hacke  "
9002 PRINT "  Programm    ''PYRAMIDE''";TAB(29);"":PRINT "";TAB(29);""
9003 PRINT STRING$(30,""):PRINT:PRINT "Nach einem Programm von KONAMI" 
9004 PRINT:PRINT "                         (Japan)":PRINT
9005 PRINT "   Z 1013 Version 1.1 ":PRINT:PRINT "                   ** Y43RK **
9006 PRINT:PRINT:PRINT "Kurzerlaeuterungen (J/N) ?";
9007 PRINT AT(16,26);" ": A$=INKEY$:IF A$="N"THEN CLS:GOTO 9030
9008 IF A$<>"J"THEN 9007
9009 OUT 136,20:CLS:PRINT "Sie (  ) wollen eine Pyramide  ausrau";
9011 PRINT "ben. Zwei boese Gespensterwollen Sie ";
9013 PRINT " daran hindern .Sie  koennen sich mit den";
9014 PRINT " Tasten        Q-E-A-D-Y-C bewegen und mit     S-W ";
9016 PRINT "oder X springen.         Wenn Sie ein Schwert () oder ";
9017 PRINT "  eine Hacke () tragen, bewirken W oder X das ";
9019 PRINT "Werfen des Schwertsoder das Hacken ei";
9021 PRINT "nes Lochs.  Ambesten probieren Sie es ";
9023 PRINT "selbst. (Zum Glueck haben Sie 10 Leben.)Koennen Sie ";
9024 PRINT " nicht mehr weiter, druecken Sie ' U '."
9025 PRINT:PRINT "Figuren :";TAB(10);" Mensch (Sie)":PRINT
9026 PRINT TAB(10);"  Gespenster":PRINT:PRINT TAB(10);"  G O L D":PRINT
9027 PRINT TAB(10);"  Hacke bzw. Schwert":PRINT TAB(10)"  Tuerklinke"
9028 PRINT AT(24,0);" ":PRINT AT(28,25);">ENTER<"
9029 A$=INKEY$:IF A$=""THEN 9029
9030 CLS:GOSUB 12250:DATA 23,2,"",8,9,"",40
9032 RESTORE 9030:GOSUB 1000:PRINT AT(0,0);"DEFA-Dokumentarfilm 0815"
9034 S1=8:S2=10:FOR I=9 TO 21 STEP 2:PRINT AT(I,S1);"":PRINT AT(I,S2);""
9036 PRINT AT(I+1,S1);"":PRINT AT(I+1,S2);"":S1=S1-1:S2=S2+1:NEXT I
9038 FOR I=17 TO 20:PRINT AT(39-I,I);"":NEXT
9040 FOR I=8 TO 18:PRINT AT(I,I+2);"":NEXT
9050 A$="  ":B$=" "
9055 FOR I=28 TO 22 STEP-1:PRINT AT(18,I);A$:PRINT AT(19,I);B$:PAUSE 4:BEEP:NEXT
9060 PRINT AT(20,21);" ":FOR I=22 TO 20 STEP-1:PRINT AT(21,I);"":PAUSE 2
9061 PRINT AT(21,I);" ":NEXT
9062 PRINT AT(21,I);""
9063 GOSUB 12000:GOTO 13000
9064 PRINT AT(2,5);"ACHTUNG !! (GESPENST)"
9065 FOR I=9 TO 21:PRINT AT(7,I);"":PAUSE 2
9066 PRINT AT(7,I);" ":NEXT I
9073 FOR I=21 TO 9 STEP-1:PRINT AT(7,I);"":PAUSE 2:PRINT AT(7,I);" ":NEXT
9074 PRINT AT(7,I+1);""
9100 WINDOW 27,29,0,31:INPUT "Ihr Name bitte ? ";P$:WINDOW 
9110 B=1:LB=10
9200 REM *** allg Steuerp.***
9204 IF W1=2 THEN 9215
9205 CLS:PRINT AT(5,10);"Ihre Richtung:":IF B=0 THEN B=1       
9206 IF W1=0 THEN PRINT AT(10,3);B-1:A$="":ELSE PRINT AT(10,3);B:A$=""
9207 IF W1=0 THEN PRINT AT(10,28);B:ELSE PRINT AT(10,28);B+1:GOTO 9209
9208 FOR I=6 TO 24:PRINT AT(10,I);" ",A$:PAUSE 2:NEXT:GOTO 9210
9209 FOR I=25 TO 6 STEP-1:PRINT AT(10,I);A$," ":PAUSE 2:NEXT
9210 FOR J=5 TO 1:PRINT AT(10,I);A$:PAUSE J:PRINT AT(10,I);"    ":PAUSE J:NEXT:BEEP
9215 ON B GOTO 9220,9222,9225,9227,9230,9231
9220 RESTORE 10000:GOTO 9300
9222 RESTORE 10040:GOTO 9300
9225 RESTORE 10070:GOTO 9300
9227 RESTORE 10200:GOTO 9300
9230 RESTORE 10300:GOTO 9300
9231 GOTO 2200
9300 CLS:GOSUB 1000:GOSUB 1100:GOSUB 1200:GOSUB 1300 
9305 PRINT AT(0,0);"Leben",LB:PRINT AT(0,10);"Pyramide",B
9306 PRINT AT(1,0);"Ausruestung ",A$(AU):PRINT AT(1,22);P$
9307 PRINT AT(0,22);"Pkt:",PZ
9310 GOTO 100
10000 REM *** data bild 1 ***
10003 DATA 8,0,"     ",12,0,""    
10006 DATA 12,24,"",16,0,""
10009 DATA 20,0,"      ",7,28,"",11,1,""
10012 DATA 19,29,"",22,1,"",22,30,"",22,3,"",19,20,"",40
10021 DATA 11,6,8,15,5,12,19,5,16,19,28,16,15,20,8,40
10024 DATA 11,30,8,22,6,20,22,29,20,15,30,12,19,18,16,40   
10027 DATA-4895,32,1,7,1,-4411,0,32,50,22,5,-4388,0,32,105,22,36  
10030 DATA 0,-4614,5,.7,.5
10039 REM **data bild 2 **
10040 DATA 6,1,"   ",5,1,"",5,24,"",10,17,"" 
10041 DATA 8,18,""
10043 DATA 9,1," ",12,19,"",10,13,""
10046 DATA 13,1,"",12,1,"",17,25,"",14,30,""
10049 DATA 15,19,"",14,20,"",16,16,"",17,14,"",18,11,"       "    
10052 DATA 19,1,"        ",22,1,"",22,28,"",21,30,"",40
10055 DATA 12,11,9,22,10,19,16,28,12,7,27,6,40
10058 DATA 8,6,6,18,7,13,22,22,17,11,27,8,40
10061 DATA-4871,32,1,7,35,-4954,1,32,3,5,6,-4584,-1,32,20,16,32
10064 DATA-4868,-4949,6,0.7,0.6
10070 REM *** data bild 3 ***
10073 DATA 6,3,"",6,23,"  ",5,13,"",5,29,""
10076 DATA 5,23,"    ",10,22,"",14,14,"",11,28,""
10079 DATA 18,9,"",17,20,"",16,21,""
10082 DATA 15,30,"",22,3,"",20,26,"",21,26," ",22,26,"  "
10085 DATA 7,3,"",8,3,"",9,3,"",10,3," ",11,3," ",12,3," "
10088 DATA 13,3,"",14,3,"     ",15,3," ",16,3,"",17,3,""
10091 DATA 18,1," ",19,1,"",12,23,"",40
10094 DATA 17,16,6,14,25,12,12,29,10,17,8,15,40,13,22,6,10,30,6,22,8,18
10095 DATA 22,24,16,40
10097 DATA-4807,32,1,9,28,-4934,-1,32,25,5,34,-4396,-1,32,30,22,28
10100 DATA-4810,-4408,7,0.6,0.7
10200 REM *** data bild 4 ***
10205 DATA 6,1,"",6,17,"",5,1,"   ",7,1,""
10210 DATA 5,21," ",7,13,"",8,28,"",10,1,"",9,27,""
10215 DATA 12,1,"",14,1,"",15,1,"",16,10,"",22,1,"",12,14,""
10220 DATA 19,1,"",18,11,"  ",17,11,"",15,11,""
10225 DATA 14,11,"",13,11,"",12,22,"",11,27,""
10230 DATA 16,23,"",17,23,"",18,27,"",19,27,"",22,29,"" 
10235 DATA 20,27,"",40
10240 DATA 14,7,10,22,8,19,16,27,12,10,15,6,40
10245 DATA 9,5,6,18,7,15,22,24,17,40
10250 DATA-4400,32,2,22,24,-4830,1,32,3,9,10,-4412,1,32,0,22,4
10255 DATA-4400,-4953,8,.7,.7
10300 REM *** data bild 5 ***
10305 DATA 6,1,"     ",5,11,"",5,27,"" 
10310 DATA 10,1,"     ",9,11,"",9,18,""
10315 DATA 9,24,"",9,30,"",14,2,"      "
10320 DATA 13,3,"",13,14,"   ",17,9,"    ",17,30,"",21,1,"",21,8,""
10325 DATA 18,1,"      ",21,16,"",21,30,""
10330 DATA 22,1,"     ",40
10335 DATA 14,29,10,40,9,7,6,17,7,14,21,27,18,40
10340 DATA-4956,32,1,5,4,-4827,1,32,2,9,13,-4947,1,32,2,5,13
10345 DATA-4956,-4931,10,.9,.9
10500 CLS:PRINT:PRINT:PRINT:PRINT:PRINT "Noch mal    J/N";
10510 NO$=INKEY$:IF NO$=""THEN 10510
10520 IF NO$="J"THEN 9100:ELSE END
10600 IF PZ<300 THEN 10700
10610 IF PZ>=300 AND PZ<630 THEN 10750
10620 IF PZ>=630 AND PZ<900 THEN 10800
10630 IF PZ>=900 AND PZ<1140 THEN 10850
10640 IF PZ>=1140 AND PZ<1290 THEN 10900
10650 IF PZ>=1290 AND PZ<1800 THEN 10950
10660 IF PZ>=1800 THEN 11000
10670 RETURN
10700 PRINT AT(7,0);"Du musst viel mehr ueben ":RETURN
10750 PRINT AT(7,0);"Schon ganz gut,aber es sind mehr"
10760 PRINT AT(8,5);"Punkte moeglich ":RETURN
10800 PRINT AT(7,0);"Das ist gutes Mittelmass fuer "
10810 PRINT AT(8,3);"einen Anfaenger wie Dich":RETURN
10850 PRINT AT(7,0);"Hurra ,Du naeherst Dich langsam"
10860 PRINT AT(8,2);"dem Rekord---Mach weiter so":RETURN
10900 PRINT AT(7,0);"Diese Punktzahl ist ansehenswert"
10910 PRINT AT(8,2);"Du sicherst Dir bestimmt einen "
10920 PRINT AT(9,3);"Platz in der Bestenliste ":RETURN
10950 PRINT AT(7,0);"Schau an,ICH haette nie gedacht"
10960 PRINT AT(8,1);"das es jemand so weit bringt":RETURN
11000 PRINT AT(7,5);"B E S T E N L I S T E "
11010 PRINT AT(10,1);P$:PRINT AT(10,9);" ist in die Bestenliste"
11020 PRINT AT(12,2);"aufgenommen":RETURN
12000 PRINT AT(19,I-2);""
12010 PRINT AT(18,I-1);""
12020 PRINT AT(18,I);CHR$(159)
12030 PRINT AT(19,I);CHR$(159)
12040 PRINT AT(20,I-2);""
12060 PRINT AT(9,14);"PHARAO"
12200 RETURN
12250 S1=15:S2=17:FOR I=3 TO 11 STEP 2:PRINT AT(I,S1);CHR$(153)
12255 PRINT AT(I,S2);CHR$(155)
12260 PRINT AT(I+1,S1);CHR$(152)
12265 PRINT AT(I+1,S2);CHR$(156):S1=S1-1:S2=S2+1:NEXT I
12280 FOR I=23 TO 25:PRINT AT(35-I,I-1);CHR$(144):NEXT
12290 FOR I=2 TO 9:PRINT AT(I,I+15);CHR$(145):NEXT
12300 PRINT AT(2,16);CHR$(157)
12310 Q$=CHR$(158)
12320 PRINT AT(13,11);" "+" "+" "+" "+Q$+Q$+Q$+Q$+Q$+Q$+Q$
12322 PRINT AT(9,25);"~~~~~~~~~~~~~~~~"
12324 PRINT AT(8,26);" "
12326 PRINT AT(6,26);"":PRINT AT(7,26);""
12328 PRINT AT(4,25);""
12330 PRINT AT(5,26);"  "
12350 RETURN
13000 PRINT AT(16,6);""
13010 PRINT AT(17,5);"o    "
13020 PRINT AT(18,5);"o"
13030 PRINT AT(19,4);"     "
13040 PRINT AT(20,4);""
13050 PRINT AT(21,4);"o   "
13060 PRINT AT(15,6);"Schatz"
13061 PRINT AT(0,0);"D"
13065 FOR A=1 TO 3:PRINT AT(2,2);"ACHTUNG Gespenst":PAUSE 15
13066 PRINT AT(2,2);          "                ":PAUSE 5
13070 PRINT AT(14,8);"":PAUSE 2:PRINT AT(14,8);" ":PAUSE 1:PRINT AT(16,9);""
13080 PAUSE 4:PRINT AT(16,9);" ":PAUSE 3:PRINT AT(12,6);"":PAUSE 2
13090 PRINT AT(12,6);" "
13092 PAUSE 5:PRINT AT(17,7);"":PAUSE 9:PRINT AT(17,7);" ":PAUSE 2
13094 PRINT AT(21,8);"":PAUSE 7:PRINT AT(21,8);" ":PAUSE 2
13096 PRINT AT(18,9);"":PAUSE 8:PRINT AT(18,9);" ":PAUSE 11
13100 NEXT
13200 GOTO 9100