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