Steuerung: ⇦ ⇨ ␣
Zeichensatz UTF-8+Z1013()-CTRL()-ohne Umlaute(äöüß)
10 GOS.10000
15 GOS.4000;G.6000
50 W=0;S=M+1;L=4;D=0;F=7;G=N
60 IFS=1G.80
70 S=S-1
80 IFL=10G.100
90 L=L+1
100 W=W+1
110 IFW=6G.9000
500 OUTC.12
505 GOS.4060
510 H=H.(ED40)
515 PO.H.(EC00),32
520 F.X=0TO31
530 PO.H+X*32,180
540 PO.H+32*X+31,181
550 N.X
560 H=H.(EFE0)
570 F.X=0TO31
580 PO.H+X,199
590 N.X
640 Y=H.(ED62)
650 F.X=1TOL
660 PO.Y+RND(541),255
670 N.X
680 H=H.(EFAF)
690 PO.H,183;PO.H+31,255;PO.H+32,255;PO.H+33,255
700 H=H.(ED81)
710 F.X=1TO8
720 PO.H,140;H=H+1
730 N.X
732 PO.H.(3C00),82;PO.H.(3C01),8
734 PO.H.(3C02),12;PO.H.(3C03),8
740 IFW<3G.790
750 H=H.(ED7E)
760 F.X=1TO8
770 PO.H,140;H=H-1
780 N.X
782 PO.H.(3C04),76;PO.H.(3C05),8
784 PO.H.(3C06),11;PO.H.(3C07),23
790 H=H.(EFAF)
795 P=H
800 G.2500
2000 F.X=1TO14
2010 Z=H.(3C00)+(X-1)*4;E=100
2020 B=PE.(Z);C=PE.(Z+1);A=PE.(Z+2)*32+PE.(Z+3)+H.(EC00)
2022 IFC=0N.X;G.2490
2025 IFB=76E=Q-A;B=82;G.2040
2030 B=76;E=A-Q
2040 IFE#0G.2060
2050 IFC=1PO.(Z+1),0;G.2490
2053 C=C-1;IFB=76A=A-C;G.2120
2056 A=A+C;G.2120
2060 IFE=C-1PO.(Z+1),C-1;G.2490
2063 IFE<0N.X;G.2490
2066 IFE>C-1N.X;G.2490
2070 PO.(Z+1),E
2073 IFB=76A=A-C+1
2076 IFB=82A=A+C-1
2080 C=C-E-1;F.X=1TO14
2090 Z=H.(3C00)+(X-1)*4
2100 IFPE.(Z+1)#0N.X
2120 PO.(Z),B;PO.(Z+1),C;A=A-H.(EC00)
2130 PO.(Z+2),A/32;PO.(Z+3),A-(A/32)*32;G.2490
2490 REM
2500 V=0;F.X=1TO14
2501 F.E=1TOS
2504 C.15184;R=PE.(14848)
2505 IFR=32G.3000
2506 IFR=9H=H+1;G.5100
2508 IFR=8H=H-1;G.5100
2509 N.E
2510 Z=H.(3C00)+(X-1)*4
2515 IFPE.(Z+1)=0N.X;G.2740
2520 B=PE.(Z);C=PE.(Z+1);A=PE.(Z+2)*32+PE.(Z+3)+H.(EC00)
2525 IFA>H.(EF9F)G.7100
2540 IFB=76G.2630
2550 IFPE.(A+1)=32G.2610
2560 F.Y=ATOA-CSTE.-1;PO.Y,32;N.Y
2570 A=A+32;B=76
2580 F.Y=ATOA-C+1STE.-1
2590 IFPE.(Y)=32G.2600
2591 Y=Y+1;IFY-1=AA=A+32;G.2660
2592 F.E=YTOA;PO.E,32;N.E;A=Y;G.2650
2600 PO.Y,140;N.Y;A=Y+1;G.2700
2610 A=A+1;PO.A-C,32;PO.A,140;G.2700
2630 IFPE.(A-1)=32G.2690
2640 F.Y=ATOA+C;PO.Y,32;N.Y
2650 A=A+32;B=82
2660 F.Y=ATOA+C-1
2670 IFPE.(Y)=32G.2680
2673 Y=Y-1;IFY+1=AA=A+32;G.2580
2675 F.E=YTOASTE.-1;PO.E,32;N.E;G.2570
2680 PO.Y,140;N.Y;A=Y-1;G.2700
2690 A=A-1;PO.A+C,32;PO.A,140
2700 PO.(Z),B;PO.(Z+1),C;A=A-H.(EC00)
2710 PO.(Z+2),A/32;PO.(Z+3),A-(A/32)*32
2720 IFW>3G.4500
2730 V=V+1;N.X
2740 IFV#0G.2490
2750 OUTC.12;T=0;G.8020
3000 PO.H-32,58
3005 F.Q=H-64TOH-608ST.-32
3040 IFPE.(Q)=32PO.Q,58;PO.Q+32,32;N.Q;PO.Q+32,32;G.2490
3050 IFPE.(Q)=255PO.Q+32,32;PO.Q,189;G.2490
3060 IFPE.(Q)=189PO.Q+32,32;PO.Q,182;G.2490
3070 IFPE.(Q)=182PO.Q+32,32;PO.Q,176;G.2490
3080 IFPE.(Q)=176PO.Q+32,32;PO.Q,32;G.2490
3090 IFPE.(Q)=140PO.Q+32,32;PO.Q,32;G.2000
3095 IFPE.(Q)=201PO.Q+32,32;PO.Q,32;G.2490
4000 Y=H.(3D00)
4010 F.X=1TO10
4020 @(X)=0
4030 PO.Y,84;PO.Y+1,72;PO.Y+2,70;PO.Y+3,65;PO.Y+4,71;PO.Y+5,45
4035 PO.Y+6,83;PO.Y+7,111;PO.Y+8,102;PO.Y+9,116;PO.Y+10,119
4040 PO.Y+11,97;PO.Y+12,114;PO.Y+13,101;PO.Y+14,32;Y=Y+15
4045 N.X
4050 RE.
4060 Y=H.(3C00)
4070 F.X=1TO56;PO.Y,0;Y=Y+1
4080 N.X;RE.
4500 IFW=5G.4505
4503 IFRND(2)#1G.2730
4505 IFRND(3)#1G.2730
4510 A=A+H.(EC00)
4520 F.R=A+64TOH.(EFC0)ST.32
4530 IFPE.(R)=32PO.R,201;PO.R-32,32;N.R;PO.R-32,32;G.2730
4540 IFPE.(R)=183PO.R-32,32;G.7100
4550 IFPE.(R)=140PO.R-32,32;G.2730
4560 PO.R,32;PO.R-32,32;G.2730
5100 IFH=H.(EFA1)H=P;G.2510
5120 IFH=H.(EFBE)H=P;G.2510
5130 PO.P,32;PO.P+31,32;PO.P+32,32;PO.P+33,32
5140 PO.H,183;PO.H+31,255;PO.H+32,255;PO.H+33,255;P=H;G.2510
6000 OUTC.12;T=10;U=20
6010 PR." THFAG PRESENTS...";PR.;PR.
6020 PR." "
6021 PR." "
6022 PR." "
6023 PR." "
6024 PR." "
6025 PR.;PR.;PR.
6030 PR."",
6035 PR."",
6040 PR.""
6050 PR.;PR.;PR.;PR.
6085 PR." THE FIRST Z1013 VERSION OF THE";PR.
6086 PR." NEW ARCADE GAME"
6090 PO.H.(EEC0),32
6095 GOS.21000
6100 F.X=1TO5000;N.X
6110 OUTC.12
6120 F.X=1TO5;PR.;N.X
6200 PR."CENTIPEDE is the greatest new"
6201 PR."idea since space invaders.";PR.
6202 PR."Your base is being invaded by"
6203 PR."hostile segmented aliens. These"
6210 PR."aliens aim to destroy You. If"
6211 PR."they bomb You, or You allow them",
6212 PR."to overrun base camp, You lose a",
6220 PR."base. Aliens turn each time they",
6221 PR."enncounter an obstacle. If shot"
6222 PR."in the middle, they break into"
6223 PR."two independent halves. You must",
6224 PR."shoot all segments before they"
6225 PR."land. Fire accurately. You must"
6230 PR."score a direct hit, else You merely deflect the aliens."
6235 PR.;PR.;PR.
6240 PR.;TAB(20);PR."ENTER"
6245 PO.H.(EF40),32
6247 GOS.21000
6250 W=INC.;OUTC.12
6260 F.X=1TO7;PR.;N.X
6270 PR."Your lazer base is moved left"
6280 PR."and right by cursor-keys: ( <-- and --> )."
6282 PR." Use space-key to fire.";PR.;PR.
6290 PR."The successive waves of aliens"
6291 PR."get succcesively faster and more",
6292 PR."difficult..."
6300 PR.;PR.;PR.;PR."A table of scores is kept, so"
6301 PR."competitions can easily be held."
6310 PR.;PR.;PR.;PR.;TAB(20);PR."ENTER"
6315 PO.H.(EF60),32
6317 GOS.21000
6320 W=INC.;OUTC.12
6325 F.X=1TO5;PR.;N.X
6330 PR."You may now set parameters for the game:"
6335 PR.
6340 PR."1) What speed? (20=slow 1=blitz)",
6350 INP." "M
6360 IFM<1G.6340
6370 IFM>20G.6340
6400 PR."2) How many bases a game? (1-3)"
6410 INP." "N
6420 IFN<1G.6400
6430 IFN>3G.6400
6440 PR.;PR.;PR.;TAB(20);PR."OK."
6460 PR.;PR.;PR." PREPARE YOURSELF..."
6480 F.X=1TO3000;N.X;G.50
7100 F.X=PTOH.(ED40)ST.-32
7110 PO.X,157;PO.X+32,32;N.X
7120 OUTC.12;G=G-1
7140 PR.;PR.;PR.;PR.
7145 IFG=0PR."Earthling...You are defeated!!!";G.8000
7150 PR." You have",#2,G," base",
7160 IFG=1PR." left!"
7170 IFG>1PR."s left!"
7180 PR.;PR.
7200 T=440;G.8020
8000 PO.H.(ECA0),32
8005 F.X=1TO3000;N.X
8010 OUTC.12;IFG=0G.9000
8020 PR." *** SCORING X",#2,W," ***"
8030 D=D+W*(32+F-PE.(Z+2))
8050 PR.;PR.;PR.;PR." Your score so far:",#2,D
8060 PR.;PR.;PR.;PR."Earthling...You dare to survive."
8070 PR." Prepare for next wave"
8080 PR.;PR.;IFW=2G.8110
8090 IFW#4G.8140
8110 PR." EXPECT REINFORCEMENT ===================="
8120 PR.;PR."We have brought more troops to aid our invasion."
8140 IFW=3PR.;PR.;PR." *** Our troops are armed ***"
8150 PR.;PR.;PR.
8160 IFS=1S=2
8170 PR." Delay factor now :",#2,S-1
8180 F.X=1TO10000;N.X
8190 G.(60+T)
9000 OUTC.12
9010 F.X=1TO11;PR.;N.X
9020 PR." **** GAME OVER ****"
9030 PR.;PR.;PR.;PR." Your scored:",#5,D
9035 PO.H.(EE00),32
9040 F.X=1TO10
9050 IFD>=@(X)G.9070
9060 N.X;G.9160
9070 F.R=10TOXST.-1
9080 @(R)=@(R-1)
9090 Y=H.(3D00)+(R-1)*15
9100 F.Z=1TO15
9110 PO.Y+Z-1,PE.(Y+Z-16)
9120 N.Z;N.R
9130 @(X)=D;Y=H.(3D00)+(X-1)*15
9140 PR.;PR.;PR."Enter Your name for score table."
9145 F.X=1TO15
9150 W=INC.;OUTC.W;IFW=13G.9160
9155 PO.(Y+X-1),W;N.X
9160 IFX>14G.9168
9162 F.Z=XTO15
9164 PO.(Y+Z-1),32;N.Z
9168 PR.;PR.;PR.
9170 PR."Rank Score Player **** ***** ******";
PR.
9190 F.X=1TO10
9200 PR.#3,X,;TAB(4);PR.#4,@(X),;TAB(4)
9210 Y=H.(3D00)+(X-1)*15
9220 F.Z=1TO15
9230 OUTC.(PE.(Y+Z-1))
9240 N.Z;PR.;N.X
9250 PR.;PR.;PR."Press P to play again, or any other key! ",
9260 W=INC.;OUTC.12
9270 IFW=80G.6325
9280 F.X=1TO15;PR.;N.X
9290 TAB(7);PR."GOODBYE!!!"
9300 PR.;PR.;PR.;PR.;STOP
10000 Y=H.(3B50)
10010 PO.Y,H.(CD);PO.Y+1,H.(30);PO.Y+2,H.(F1);PO.Y+3,H.(32)
10020 PO.Y+4,0;PO.Y+5,H.(3A);PO.Y+6,H.(C9);RE.
21000 RE.
65280 ⇘
⇘
⇘
A⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
1⇘
⇘
210R
3376 )
65280 210R
3376 )
65280 )
65280 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 210R
3376 )
65280 ⇘
⇘
⇘
1⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
!⇘
⇘
CLOAD
65280 ⇘
⇘
⇘
A