2bc0 5d9e 0000 B ... PYRAMIDE
wie [394f2a0bb7be25783b2e456a784ed303], aber hier ist noch ein Patch in den Zeilen: 2610 IF TZ=0 THEN 2700 2620 POKE TZ-64,195 2700 POKE TN-64,195:RETURN
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    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 Z ***
 2610 IF TZ=0 THEN 2700
 2620 POKE TZ-64,195
 2700 POKE TN-64,195:RETURN
 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