Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
10 DOKE 863,4097
20!----------------------------------
30!Copyright by M.Augsten
40! 8028 Dresden
50! Clara-Zetkin-Str.45
60!----------------------------------
der Maschinencode dazwischen wird hier nicht angezeigt.
10 BORDER 4:WINDOW:PAPER 5:INK 6:CLS
15 CALL*6CA:!ZUFS
20 GOSUB 10000:!UMRANDUNG
30 WINDOW 1,19,1,38:PRINT AT(0,0);"":PAPER 1:INK 2:CLS
35 POKE(1563),15:LE=15:DOKE 1566,0:!LEBEN,PKT
40 CR=-4317:E1=-5027:E2=-5013:BF=112: HC=32:KW=2000:MA=10
41 GOSUB 5000
50 PRINT " "
60 PRINT
70 PRINT
80 PRINT " HHHH HH HHH HHH HHHHH"
90 PRINT " HH HH HH HH HH HH HH HH"
100 PRINT "HHHHHHHHHHHHHHHH";
110 PRINT " HH HH HH HH HH HH HH HH"
120 PRINT " FFFF LL OO OO OO OO RRRRR"
130 PRINT " HH HH HH HH HH HH HHHH"
140 PRINT "HHHHHHHHHHHHHHHH";
150 PRINT " HH HHHH HH HH HH HH HH HH
160 PRINT " HH HHHH HHH HHH HH HH"
170 PRINT
180 PRINT
190 PRINT
200 PRINT " M. Augsten 8028 Dresden"
210 PRINT
220 PRINT " Clara-Zetkin-Str.45"
230 PRINT " * *";
240 GOSUB 10320:!AUSGABEFELD
250 CALL*A30:!INS
260 FOR I=1 TO 10:NEXT:J=J+1
270 IF J>=200 THEN PRINT PAPER 1;AT(22,18);"<ENTER>":IF INKEY$=CHR$(13)THEN 290
280 GOTO 250
290 PAPER 1:INK 8:CLS
300 PRINT AT(21,5);"Spielanleitung gewuenscht (J,N)?"
310 A$=INKEY$
320 IF A$="J"OR A$="j"THEN 1000
330 IF A$="N"OR A$="n"THEN 2000
340 GOTO 310
1000 WINDOW 1,19,1,38:CLS
1010 PRINT:PRINT " Spielanleitung"
1020 PRINT " --------------"
1030 PRINT
1040 PRINT
1050 PRINT " Steuerung der Spielfigur:"
1060 PRINT
1070 PRINT " Taste -> rechts"
1080 PRINT " <- links"
1090 PRINT " hoch"
1100 PRINT " runter"
1110 PRINT " Space Sprung"
1120 PRINT " B Stop"
1130 PRINT
1140 WINDOW 4,19,1,38:PAUSE 50:CLS
1150 PRINT:PRINT " Hindernisse und Gegner :"
1160 PRINT
1180 PRINT " o Gegner
1190 PRINT " Moor"
1200 PRINT " Springpunkt
1210 PRINT
1220 PRINT " Kraftkeks "
1230 PRINT " Ausgang der Etage"
1240 PRINT
1250 PRINT " u.a.
1260!
1270!
1280!
1290!
1300!
1310!
1320!
1330 PAUSE 50:CLS
1400 GOTO 2000
2000!STEUERUNG BILDAUSWAHL
2010 B=1:BR=1:FOR I=1 TO 4:MK(I)=2:NEXT
2020 FOR BI=BR TO B
2030 ON BI GOSUB 10100,10400,10700,11000:! ,11300,11600
2035 WINDOW 21,22,1,38:CLS:GOSUB 4000
2040 MA=MK(BI):GOSUB 3000
2045 IF MK(BI)<15 THEN MK(BI)=MK(BI)+2
2050 NEXT:IF B=1 THEN BR=2:ELSE BR=1
2060 B=B+1
2070 IF B=4 THEN B=1
2080 GOTO 2020
3000!STEUERUNG BILD
3010 GOSUB 5000:!POKE-ROUTINE
3020 MI=1:POKE(30),0:POKE(31),0:POKE CR,196:P=INT(DEEK(1566)/100)
3030 MT=0:SE=0: GOSUB 4100
3050 CALL *6D8
3060 GOSUB 4200:IF PEEK(30)>=MI THEN 3300
3070 IF PEEK(1735)=0 THEN 3050
3080 F=PEEK(1735):DOKE 1552,12000:CALL*BB4
3090 IF F<>ASC("")THEN 3200
3100!ZEITGUTSCHRIFT
3105 MT=PEEK(30):SE=PEEK(31)
3110 ZE=MT*60+SE:POKE(1563),PEEK(1563)+1:!KORREKTUR LEBEN
3120 ZE=MI*60-ZE
3130 FOR I=1 TO ZE
3140 DOKE 1566,DEEK(1566)+1:P1=INT(DEEK(1566)/100)
3150 IF P1>P THEN POKE 1563,PEEK(1563)+1:P=P1:!LEBEN+1
3155 SE=SE+1:IF SE=60 THEN SE=0:MT=MT+1
3160 GOSUB 4100
3170 NEXT
3180 RETURN
3200 WINDOW 21,22,1,38:CLS
3201 IF PEEK(1563)=0 THEN 30000
3205 IF F=ASC("")THEN PRINT " Sie sind ins Moor gefallen !"
3206 IF F=ASC("o")THEN PRINT " Sie wurden soeben gefressen !"
3210 PAUSE 12:GOSUB 4000:GOTO 3010
3300 WINDOW 21,22,1,38:CLS:PRINT "Zeitueberschreitung dies kostet"
3301 POKE DEEK(1537),PEEK(1549)
3302 PRINT " ein Leben !";:POKE 1563,PEEK(1563)-1
3310 DOKE 1552,1200:CALL*BB4:PAUSE 20:GOSUB 4000: GOTO 3010
4000 CLS:PRINT AT(21,2);"Punkte:"
4010 PRINT AT(21,20);"max. Zeit :"
4020 LE=20:PRINT AT(22,2);"Leben :",LE
4040 RETURN
4100 PRINT AT(21,9);DEEK(1566)
4110 PRINT AT(21,31);MI,": 0"
4120 PRINT AT(22,9);PEEK(1563)
4130 PRINT AT(22,31);MT,":",SE
4140 RETURN
4200 PRINT AT(21,9);DEEK(1566):PRINT AT(22,31);PEEK(30),":",PEEK(31):RETURN
5000!POKE-ANFANGSWERTE
5010 DOKE(1537),CR:!CURSOR-SPIELER
5020 DOKE (1539),E1:!EINWURF1
5030 DOKE (1541),E2:!EINWURF2
5040 POKE (1547),BF:!BALLFARBE
5050 POKE (1548),BH:!BALLFARBENHINT.
5060 POKE (1549),HC:!HINTGR.CUR.
5070 DOKE (1552),KW:!WAIT-KONST
5080 POKE (1568),MA:!MAX.BALLANZ.
5090 POKE (1732),0:!MOM.ANZ.BAELLE
5095 POKE (1550),66:!RIHTG."B"
5100 POKE (1735),0:!FEHLER-KEINE
5110 RETURN
6000 INPUT X,A,B,C
6010 M=X*16^3+ A*16^2+B*16+C:N=M-65536
6020 PRINT M,N: GOTO 6000
10000!UMRANDUNG
10010 WINDOW:PAPER 2:CLS
10020 PRINT AT(0,0);"":FOR I=1 TO 38:PRINT AT(0,I);"":NEXT
10030 PRINT AT(0,39);""
10040 FOR I=1 TO 22:PRINT AT(I,0);"":PRINT AT(I,39);"":NEXT
10050 PRINT AT(20,0);"":PRINT AT(20,39);""
10060 FOR I=1 TO 38:PRINT AT(20,I);"":NEXT
10070 PRINT AT(23,0);"":PRINT AT(23,39);""
10080 FOR I=1 TO 38:PRINT AT(23,I);"":NEXT
10090 RETURN
10100 WINDOW 1,19,1,38:PAPER 1:INK 8:CLS
10110 CR=-4358:E1=-5027:E2=-5013:RI=66
10120 BF=112:HC=32 :KW=4000
10130 PRINT " "
10140 PRINT " "
10142 PRINT " "
10145 PRINT " H "
10150 PRINT " H ";
10160 PRINT " H"
10170 PRINT " H"
10180 PRINT " H"
10190 PRINT " H"
10210 PRINT " H"
10220 PRINT " H"
10230 PRINT " H H "
10240 PRINT " H H"
10250 PRINT " H H"
10260 PRINT " H H"
10270 PRINT " H H "
10280 PRINT " H H"
10290 PRINT " H H"
10300 PRINT " * *";
10310 RETURN
10320 WINDOW 21,22,1,38:PAPER 5:CLS:RETURN
10400 WINDOW 1,19,1,38:PAPER 2:INK 7:CLS
10410 CR=-4358:E1=-5011:E2=-5030:RI=66
10420 BF=65 :HC=32:KW=4000
10430 PRINT " "
10440 PRINT " "
10450 PRINT " H H H";
10460 PRINT "H HH";
10470 PRINT " H H H"
10480 PRINT " "
10490 PRINT " H H H H"
10500 PRINT "HH H H"
10510 PRINT " H H "
10520 PRINT " H H H"
10530 PRINT " H H H"
10540 PRINT " H H H ";
10550 PRINT " H H"
10560 PRINT " H"
10570 PRINT " H H H H "
10580 PRINT "HHHH"
10590 PRINT " H H H H"
10600 PRINT
10610 PRINT " * *";
10620 RETURN
10700 WINDOW 1,19,1,38:PAPER 3:INK 6:CLS
10710 CR=-4998:E1=-5005:E2=-5013:RI=66
10720 BF=82:HC=32:KW=4000
10730 PRINT " ";
10740 PRINT " ";
10750 PRINT
10760 PRINT " "
10780 PRINT " "
10790 PRINT
10800 PRINT " "
10810 PRINT " "
10820 PRINT " H "
10830 PRINT " H H"
10840 PRINT " H H H
10850 PRINT " H H
10860 PRINT " H H"
10870 PRINT " H
10880 PRINT " H H"
10890 PRINT " H H"
10900 PRINT " H H"
10910 PRINT " H "
10920 PRINT " * ";
10930 RETURN
11000 WINDOW 1,19,1,38:PAPER 4:INK 5:CLS
11010 CR=-4358:E1=-5021:E2=-5020:RI=66
11020 BF=3:HC=32:KW=4000
11030 PRINT " "
11040 PRINT " "
11050 PRINT " "
11060 PRINT " "
11070 PRINT " H H"
11080 PRINT " H H"
11090 PRINT " H H H H"
11100 PRINT " H HH H"
11110 PRINT "H H H HH H H H";
11120 PRINT "H H HH H H";
11130 PRINT "H H HH H H";
11140 PRINT "H HH H";
11150 PRINT " H HH H"
11160 PRINT "H HH H";
11170 PRINT " H HH H"
11180 PRINT " H H"
11190 PRINT " H H"
11200 PRINT " "
11210 PRINT " * *";
11220 RETURN
20000 PRINT(14*16*16*16+14*16*16+15*16+10)-65536
30000 WINDOW 21,22,1,38:CLS
30010 WINDOW 1,19,1,38:CLS:PRINT " A b s c h l u s z s t a n d"
30020 PRINT:PRINT:PRINT
30030 PRINT " Sie erreichten :":PRINT:PRINT
30040 PRINT " ";DEEK(1566);"Punkte"
30050 PRINT:PRINT:PRINT
30070 PRINT " Wollen Sie es noch einmal versuchen ?"
30080 A$=INKEY$
30090 IF A$="J"THEN RUN
30100 IF A$<>"N"THEN 30080
30110 WINDOW:CLS:OUT 128,3
30120 PRINT AT(10,5);"Hoffentlich sind Sie":PRINT AT(12,5);"naechstes mal besser !"
30130 PAUSE 50:CLS:END