1000 392e 0000 b ... CENTIPEDE 1
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⇘
      ⇘
      210R
 3376 )
65280 210R
 3376 )
65280 )
65280 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 210R
 3376 )
65280 ⇘
      ⇘
      ⇘
      1⇘
      ⇘
      ⇘
      ⇘
      ⇘
      ⇘
      ⇘
      ⇘
      !⇘
      ⇘
      CLOAD
65280 ⇘
      ⇘
      ⇘
      A