Steuerung: S4 C
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
0 REM BY JENS MOECKEL MAGDEBURGER STR.1B RIESA,8400
10 OUT(1)=207;OUT(1)=0
11 GOTO3000
12 PO.H.(2065),0;PO.H.(2066),0
13 OUT(2)=95
15 T=0
20 OUTC.12
22 P." ****** swarm of meteors ****** "
24 PO.H.(EC40),32
25 PO.H.(EC00),32
98 PO.H.(20FD),0
100 PO.H.(20FE),H.(F0);PO.H.(20FF),H.(EF)
101 PO.H.(20FF),H.(EE)
1000 F.I=1TO1500
1006 CALLH.(203E)
1007 F.J=1TO(1500-RND(100)-I)/10;N.J
1008 CALLH.(203E)
1010 PO.H.(EC40)+RND(32),42
1015 PO.H.(EC40)+RND(64),42
1025 IFPEEK(H.(20FD))=1G.2000
1030 N.I
1500 P.;P.;P.;P.
1520 P."MIT ",#1,T," TREFFERN GESCHAFFT !!!"
1530 GOTO2100
2000 REM
2005 OUT(0)=1
2010 PO.H.(20FD),0
2020 H=H.(EE00)+PEEK(H.(20FE))
2025 OUT(0)=0
2030 POKEH,42
2031 OUT(0)=1
2032 POKEH+1,42
2033 F.L=1TO30;N.L
2034 POKEH-32,42
2035 OUT(0)=0
2036 POKEH+32,42
2037 OUT(0)=1
2038 POKEH-1,42
2039 F.L=1TO30;N.L
2040 POKEH,32
2041 OUT(0)=0
2042 POKEH+33,42
2043 F.L=1TO30;N.L
2044 POKEH+29,42
2045 OUT(0)=1
2046 POKEH-65,42
2047 F.L=1TO30;N.L
2048 POKEH+32,32
2049 OUT(0)=0
2050 POKEH+63,42
2051 F.L=1TO30;N.L
2052 POKEH-34,42
2053 OUT(0)=1
2054 POKEH,42
2055 F.L=1TO30;N.L
2056 POKEH+1,32
2057 OUT(0)=0
2058 POKEH-1,32
2059 F.L=1TO30;N.L
2060 POKEH-32,32
2061 OUT(0)=1
2062 POKEH+33,32
2063 OUT(0)=0
2064 POKEH-98,42
2065 F.L=1TO30;N.L
2066 POKEH+29,32
2067 OUT(0)=1
2068 POKEH-65,32
2069 OUT(0)=0
2070 POKEH+63,32
2071 F.L=1TO30;N.L
2072 POKEH-34,32
2073 OUT(0)=1
2074 POKEH-98,32
2075 F.L=1TO30;N.L
2076 POKEH,32
2077 OUT(0)=0
2080 T=T+1
2082 U=H.(EC00);IFT>6U=U+18
2084 PO.U+T,202
2086 IFT<4F.L=1TO2000;N.L;G.1030
2090 P.;PRI.;P.;P.;P."Tja , das war's dann wohl !"
2100 P.;P.;P."Noch ein Spielchen ? (ja=ent):",;L=INC.;OUTC.L
2110 IFL=13GOTO12
2200 OUTC.12;P.;P.;P." AUF WIEDERSEH'N";F.I=1TO2000
2210 NEXTI;P."END";STOP
3000 REM
3010 OUTC.12
3020 P.;P.;P.;P.;P.;P.
3100 P." "
3110 P." "
3120 P." "
3130 P." "
3140 P." "
3150 P." "
3160 P." "
3170 P.;P.;P.
3180 P." of meteors"
3190 P.;P.;P.;P.
3200 P.""
3210 P." Eingaben: "
3220 P." "
3230 P." C = rechts/S4= links "
3240 P.""
3260 P.;P.;P." enter";POKEH.(EFA0),32;L=INC.
3270 GOTO12
0 ⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
⇘
JENS MOECKEL⇘
RIESA,MAGDEBURGER STR.1B! !⇘
6 #* 6 h e8* ~*(`^ : +~* W : #~⇘
* 6" !+6:e <'2e :f <'2f :f :e ! 6 ?⇘
V ⇘
⇘
⇘
⇘