noch für die Originaltastatur
Steuerung:
Links
Rechts
S1 Runter
S2 Hoch
Space Feuer
Zeichensatz UTF-8+Z1013()-CTRL()-ohne Umlaute(äöüß)
1 G.10
3 REMAA! ~O(#} >y2! !6 #AA⇘
>V>AAAAA>>AAAAAAA
10 G.100
20 F.F=1TO130
30 PO.43,H.(A1);PO.44,H.(EC)
31 P.#0,F,
35 PO.Q,Z
40 C.H.(1160);W=PE.(H.(1187));PO.4,0
45 IFW=6V=0;IFPE.(Q+1)=32Q=Q+1;PO.Q-1,32;PO.Q,Z;N.F
47 IFW=4V=0;IFPE.(Q-1)=32Q=Q-1;PO.Q+1,32;PO.Q,Z;N.F
48 IFW=1V=0;IFPE.(Q-32)=32Q=Q-32;PO.Q+32,32;PO.Q,Z;N.F
50 IFW=0V=0;IFPE.(Q+32)=32Q=Q+32;PO.Q-32,32;PO.Q,Z;N.F
70 REM
74 E=RND(4)
75 B=B-E;PO.B,Y;PO.B+1,32
76 PO.B-150,Y;PO.B-149,32
77 C=C+E;PO.C,Y;PO.C-1,32
78 PO.C+150,Y;PO.C+149,32
80 IFQ=H.(ED80)G.191
95 IFF<130N.F
97 PO.H.(11A7),99;C.H.(11A0)
98 U=U+1;PO.U,32;IFU=H.(EC44)PO.43,0;PO.44,H.(EE);P.;P." GAME ⇘
OVER ";P.;F.F=1TO2000;N.F;G.100
99 B=H.(EFD9);C=H.(EDA0);PO.H.(ECA3),255;G.20
100 A=H.(62);B=H.(26);GOS.500;F.F=1TO4000;N.F
103 G.900
110 OUTC.12
112 A=H.(E0);B=H.(20);GOS.500
113 U=H.(EC42)
114 Y=126
115 B=H.(EFD9)
116 C=H.(EDA0)
150 Q=H.(EFF0)
155 Z=196
160 L=0
170 C.H.(11BB)
190 G.20
191 L=L+1;IFL=4G.100
194 OUTC.12;PO.H.(EC00),32
195 PO.27,H.(E1);PO.28,H.(24);PO.29,H.(80);PO.30,H.(EE);PO.35,H.(80);
PO.36,H.(01);C.H.(F51D)
196 IFZ=123RE.
197 PO.H.(EC5B),42;PO.H.(ED0A),42;PO.H.(ED52),42;PO.H.(EDC4),42;
PO.H.(EE19),42;PO.H.(EC75),42
200 Q=H.(EE70)
202 Y=26
203 U=H.(EC15)
204 O=0
205 P=50
210 P." UFO: LIVE: ",
215 PO.H.(EC1F),32
217 F.F=1TO2000;N.F
240 B=H.(EC2D);G.311
250 F.F=1TO28
260 PO.Q,Z
265 IFQ=H.(EE80)PO.Q,32;Q=Q-1
270 C.H.(1160);W=PE.(H.(1187))
275 IFW=6Q=Q+1;PO.Q-1,32;PO.Q,Z
277 IFW=4Q=Q-1;PO.Q+1,32;PO.Q,Z
278 IFW=5GOS.400
280 B=B+M;PO.B-M,32;PO.B,Y
283 IFPE.(B+32)>42C.H.(20BA);PO.B,32;U=U+1;PO.U,32;F=28
300 IFF<28N.F
302 O=O+1;IFO=50D=0;F.F=1TO20;C.H.(11BB);N.F;G.600
303 P=50-O;PO.43,H.(09);PO.44,H.(EC);P.#0,P,
304 PO.H.(EC0B),32;IFU<H.(EC19)G.310
305 IFU=H.(EC19)F.F=1TO3
306 PO.27,0;PO.28,H.(EC)
307 PO.29,H.(93);PO.30,H.(3B)
308 PO.35,0;PO.36,H.(04);C.H.(F51D);A=0;B=H.(E4);GOS.500;A=H.(93);
B=H.(3B);GOS.500;N.F
309 P." GAME OVER ",;G.550
310 A=RND(31);B=H.(EC20)+A
311 M=32;IFP<11M=RND(6)+28
320 G.250
400 F.J=Q-32TOQ-544STEP-32
410 IFPE.(J)=26PO.J,32;F=28;RE.
420 PO.J,161;PO.J,32;N.J;RE.
500 PO.27,A
501 PO.28,B
502 PO.29,0
503 PO.30,H.(EC)
504 PO.35,0
505 PO.36,H.(04)
506 C.H.(F51D)
510 RE.
550 F.F=1TO32;C.H.(1188);C.H.(20BA);N.F;G.191
600 U=0;D=D+1;IFD=3L=2;G.191
601 PO.H.(11A7),22
602 R=0
603 OUTC.12;PO.H.(EC00),32
604 Z=123;GOS.195
605 S=1000
606 T=0
612 P=H.(EC60);O=H.(EE40)
615 A=RND(18);B=RND(12)
617 PO.P,199;P=P+A;PO.P,36;P=P+B;T=T+1
618 IFP<OG.615
620 Q=H.(EE70)
621 Z=196
638 P."TIME: DOLLARS: LIVE: "
639 P."",
640 M=H.(EFA0)
641 F.F=0TO864STEP32;M=M-32;IFPE.(M)=36T=T-1
642 PO.H.(EFA0)-F,255;N.F
643 F.F=1TO31;OUTC.255;N.F;M=H.(EC5F)
644 F.F=0TO704STEP32;M=M+32;IFPE.(M)=36T=T-1
645 PO.H.(EC5F)+F,255;N.F;PO.H.(EF1F),191
647 V=4;C.H.(11A0)
650 F.F=1TO32000
660 IFPE.(Q)#32A=PE.(Q);PO.Q,Z;GOS.800
662 PO.Q,Z
670 C.H.(1160);W=PE.(H.(1187))
672 IFW=255W=V
675 IFW=6V=W;Q=Q+1;PO.Q-1,32;N.F
677 IFW=4V=W;Q=Q-1;PO.Q+1,32;N.F
679 IFW=1V=W;Q=Q-32;PO.Q+32,32;N.F
681 IFW=0V=W;Q=Q+32;PO.Q-32,32;N.F
799 N.F
800 PO.43,H.(05);PO.44,H.(EC)
803 B=S-F;P.#3,B,
804 PO.H.(EC08),32
805 IFB<5P.;P.;P.;P.;P.;P." GAME OVER TIME ";P.;P.;GOS.1100;
G.600
806 IFU=TPO.43,0;PO.44,H.(EE);P.;P." HERZLICHEN GLUECKWUNSCH";P.;
GOS.1100;G.100
810 IFA=255PO.Q,255;Q=H.(EE70);V=4;RE.
815 IFA=36U=U+1;PO.43,H.(11);PO.44,H.(EC);P.#1,U,;PO.H.(EC13),32;
C.H.(11A0);RE.
820 R=R+2;PO.H.(EC18)+R,32;IFR=8P.;P.;P.;P.;P.;P.;P." GAME OVER ⇘
";P.;P.;P.;GOS.1100;G.600
830 C.H.(20BA)
850 RE.
900 GOS.990
902 P."HERR STANIUS IN NEW YORK "
903 P.;GOS.1100
904 GOS.990;P."(c)'DEZ.87 by dIRK SCHAEDLICH ";P.;GOS.1000
908 A=H.(EF2E);B=H.(EF39);IFPE.(A)#100C.H.(07AF);REM
909 IFPE.(B)#76C.H.(07AF);REM
910 GOS.990;P."STEUERUNG: ";P.
911 GOS.1000
920 GOS.990;P."L.< R.> vS1 ^S2 SCHUSS "
921 P.;GOS.1000
922 GOS.1000
930 GOS.990;P."VIEL SPASS!"
931 P.;GOS.1000
932 G.110
989 F.F=1TO32000;N.F
990 PO.43,0;PO.44,H.(EF)
991 P.
992 RE.
1000 PO.H.(EF60),199
1001 F.F=1TO3000
1005 N.F;RE.
1100 PO.H.(EF60),199
1101 F.F=415TO500STEP3
1110 PO.H.(11A7),F+99
1115 C.H.(11A0)
1117 C.H.(11BB)
1120 N.F;RE.
11843 FKB
61216 BB)
1120 N.F;RE.
5443 LIVE ⇘
A E TIME ⇘
G ⇘
⇘
⇘
⇘
~ ~ ~ ~ ~ ~ ~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ⇘
~ ~ ~ ~ ~ ~~~ ~ ~ ~ ~~ ~ ~~~ ~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~~ ~~⇘
~~ ~ ~ ~~ ~ ~ ~~ ~ ~~ ~ ~ ~~ ~ ~~ ~ ~ ~ ~ ~ ~ ~~~ ~⇘
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~~ ~~ ~ ~ ~ ~ ~ ~ ~ ~~ ~ ⇘
~ ~ ~~ ~~ ~~ ~~ ~~ ~ ~ ~ ~~ ~ ~ ~ ~ ~ ~ ~ ~~ ~~ ~ ~ ~ ~ ~⇘
~ ~ ~ ~ ~ ~ ~ ~ ~ ~~~ ~ ~ ~ ~ ~ ~ ~~ ~ ~~ ~ ~ ~~ ~ ⇘
~~ ~ ~ ~~ ~ ~ ~~ ~~ ~~ ~ ~ ~ ~ ~ ~ ~ ~~ ~~ ~~~ ~ ~~ ~ ~⇘
~ ~~~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ⇘
⇘
A ⇘
E G ⇘
⇘
⇘
⇘
⇘
⇘
A E G ⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
