1000 21ff 0000 b ... SWARM
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           ⇘
      ⇘
      ⇘
      ⇘
      