Steuerung: ⇦ ⇨ S ␣ Der Wurm ist mittels der Kursortasten so zu steuern, dass er mit wenig Zuegen alle weissen Flaechen auffrisst. Dabei waechst der Wurm. Er darf weder anstossen noch sich selbst auffressen.

Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1 T=5000
    2 K=0;J=0
    3 M=0
    5 O.12
   10 T.(320)
   11 P."    B.B.Computerspiel"
   12 P.;P.;P."        WURM'L"
   13 T.(64);P."              enter"
   14 F.A=0TO31
   15 B=H.(EC00)
   16 PO.B+A,140
   17 PO.B+A*32,140
   18 PO.B+A*32+31,140
   19 PO.B+A+30*32,140
   20 N.A
   30 A=INC.
   31 O.12
   40 P."Der Wurm ist mittels der Kursor-",
   42 P."tasten so zu steuern, dass er"
   44 P."mit wenig Zuegen alle weissen"
   46 P."Flaechen auffrisst. Dabei"
   48 P."waechst der Wurm. Er darf"
   50 P."weder anstossen noch sich selbst",
   52 P."auffressen."
   60 P.;P."enter"
   70 A=INC.;O.12
  100 REM BILDAUFBAU
  101 P.;P."NUN GEHT'S LOS"
  110 P.;P."(ENTER)"
  111 A=INC.;O.12
  120 PO.27,0
  121 PO.28,H.(EC)
  122 PO.29,0
  123 PO.30,H.(F0)
  124 C.(H.(F6D1))
  125 O.12
  130 F.A=0TO31
  131 PO.H.(EC00)+A,198
  132 PO.H.(EC20)+A,198
  133 PO.H.(EC00)+A*32,198
  134 PO.H.(EC00)+A*32+31,198
  140 N.A
  150 PO.27,H.(20)
  160 PO.28,H.(EF)
  170 PO.29,H.(FF)
  180 PO.30,H.(EF)
  190 PO.35,198
  200 PO.36,0
  210 C.(H.(F50B))
  222 M=0;L=0;T=5000
  223 L=1
  230 PO.27,H.(60)
  240 PO.28,H.(EF)
  250 PO.29,H.(00)
  260 PO.30,H.(F0)
  270 C.(H.(F6D1))
  280 GOS.320
  290 G.330
  320 REMWURM'L
  321 P."             ",
  322 P."           "
  325 RET.
  330 PO.27,H.(A0)
  340 PO.28,H.(EF)
  350 PO.29,0
  360 PO.30,H.(F0)
  370 C.(H.(F6D1))
  380 O.12
  390 REM FELDER
  400 I=6000
  420 F=H.(EC42)
  430 D=6;E=9
  440 G=6;H=4
  450 GOS.I
  460 F=H.(EC55)
  470 D=5;E=2
  480 G=2;H=6
  490 GOS.I
  500 F=H.(ED2F)
  510 D=4;E=9
  520 G=7;H=2
  530 GOS.I
  540 F=H.(EE62)
  550 D=4;E=10
  560 G=3;H=5
  566 H=4
  570 GOS.I
  575 GOS.16000
  580 S=1
  590 W=H.(EF1D)
  600 V=W;PO.W,138
  601 U=8
  620 REM STEUERUNG
  630 GOS.17000
  635 PRINTU,
  640 G.14000
  660 GOS.15000
  661 REM ABFRAGE
  670 Q=PE.(R)
  680 IFQ=140G.7000
  690 IFQ=199G.8000
  700 IFQ=198G.7000
  710 IFQ=32G.730
  719 IFQ=64G.7000
  720 STOP
  730 REM KRIECHEN
  740 PO.W,140;PO.V,32
  750 W=R
  770 O=PE.(H.(3D00)+L)
  780 IFO=8V=V-1
  790 IFO=9V=V+1
  800 IFO=32V=V+32
  810 IFO=83V=V-32
  820 PO.W,138
  830 M=M+1
  840 G.9000
 4999 ST.
 5000 REM TIME
 5010 F.A=1TOZ*1000
 5020 N.A
 5030 RET.
 5999 ST.
 6000 REM FELDER
 6010 A=RND(G)-1;B=RND(H)-1
 6020 A=F+A*32+B
 6030 F.B=ATOA+E-1
 6040 F.C=0TOD-1
 6050 PO.B+C*32,199
 6060 N.C
 6070 N.B
 6080 RET.
 6999 ST.
 7000 REM K.O.
 7010 PO.W,32
 7020 F.B=1TO5
 7030 PO.W,202
 7040 Z=1;GOS.T
 7050 PO.W,32
 7060 N.B
 7070 O.12
 7080 F.A=1TO500
 7090 P."Knack out!!!!!"
 7100 N.A
 7110 PO.27,0
 7120 PO.28,H.(EC)
 7130 PO.29,0
 7140 PO.30,H.(F0)
 7150 C.(H.(F6D1))
 7160 O.12
 7170 G.10000
 7999 ST.
 8000 REM FRESSEN
 8010 PO.W,140
 8020 L=L+1
 8030 W=R
 8040 PO.W,138
 8050 M=M+1
 8060 G.9000
 8999 ST.
 9000 REM ANZEIGE
 9010 O.12
 9020 P."ZUG-Nr.:   ",#4,M
 9030 P."LAeNGE :    ",#4,L
 9035 IFM=9000IFL=141G.12000
 9040 IFL=141G.13000
 9050 IFM=9000G.11000
 9060 G.620
 9999 ST.
10000 REM AUSWERTUNG
10010 T.(96)
10020 GOS.320
10030 P.;P."SCHWACH !"
10040 Z=1;GOS.T
10050 P.;P."            VERSTEUERT?"
10060 Z=2;GOS.T
10070 T.(64)
10080 P."DU D U M M E R BUB'  !"
10090 Z=2;GOS.T
10100 P.;P."             Naja..."
10110 Z=1;GOS.T
10120 O.12
10130 T.(96);P."Noch'n Spielchen ?"
10140 P.;P."                 (J/N)"
10150 B=INC.
10160 IFB=74O.12;G.101
10170 G.1
10999 ST.
11000 REM Bemerkung
11010 PO.27,0
11020 PO.28,H.(ED)
11030 PO.29,0
11040 PO.30,H.(EE)
11050 C.(H.(F6D1))
11060 O.12
11070 P.;P."Wie lang willst'n"
11080 P."   noch  spiel'n ?"
11090 PO.27,0
11100 PO.28,H.(EC)
11111 PO.29,0
11120 PO.30,H.(F0)
11130 C.(H.(F6D1))
11140 Z=3;GOS.T
11150 O.12;T.(96)
11160 P."J E T Z T"
11170 P."          I S T"
11180 P."                SCHLUSS!"
11190 Z=3;GOS.T;O.12
11200 G.1
11999 ST.
12000 REM
12010 PO.27,0
12020 PO.28,H.(EC)
12030 PO.29,0
12040 PO.30,H.(F0)
12050 C.(H.(F6D1))
12060 T.(96)
12070 P."KNAPP!"
12080 Z=1;GOS.T;O.12
12090 T.(96)
12100 P."EIN ZUG MEHR UND DANN"
12110 P.;P."WUeRDE ICH SAGEN:"
12120 B=1;GOS.T
12130 P.;G.11160
12140 STOP
13000 Z=1
13001 Z=1
13010 PO.28,H.(EC)
13020 PO.29,0
13030 PO.30,H.(F0)
13040 C.(H.(F6D1))
13050 P.;P.;P."G"
13055 GOS.T
13060 P." E";P."  S"
13066 GOS.T
13070 P."   C"
13077 GOS.T
13080 P."    H"
13088 GOS.T
13090 P."     A";P."      F"
13099 GOS.T
13100 P."       T"
13101 GOS.T
13110 P."        !"
13111 GOS.T
13200 O.12
13210 T.(96)
13222 P."Mit",#4,M," Zuegen."
13333 P.;P."*enter*"
13340 A=INC.;G.10100
14000 REM KONTROLLE
14010 IFS=1IFU=9G.620
14020 IFS=2IFU=32G.620
14030 IFS=3IFU=8G.620
14040 IFS=4IFU=83G.620
14050 IFU=8R=W-1;S=1;G.14100
14060 IFU=9R=W+1;S=3;G.14100
14070 IFU=32R=W+32;S=4;G.14100
14080 IFU=83R=W-32;S=2;G.14100
14090 G.620
14100 G.660
15000 REM Tab.(im RAM)
15010 PO.27,0
15020 PO.28,H.(3D)
15030 PO.29,0
15040 PO.30,H.(3E)
15050 PO.35,0
15060 PO.36,H.(01)
15070 C.(H.(F51D))
15080 PO.27,0
15090 PO.28,H.(3E)
15100 PO.29,1
15110 PO.30,H.(3D)
15120 PO.35,0
15130 PO.36,H.(01)
15140 C.(H.(F51D))
15150 PO.H.(3D01),U
15160 RET.
16000 B=H.(EE23)
16010 F.A=0TO11
16020 PO.B+A,64
16030 N.A
16040 PO.B-32,64
16050 PO.B+43,64
16060 B=H.(EC31)
16070 F.A=0TO7
16080 PO.B+A*32,64
16090 N.A
16100 B=H.(ED13)
16110 F.A=0TO7
16120 PO.A+B,64
16130 N.A
16140 B=H.(ED3A)
16150 F.A=0TO4
16160 PO.A*32+B,64
16170 N.A
16180 B=H.(ED1C);PO.B,64
16190 PO.B+1,64;PO.B+2,64
16200 B=H.(EDF9)
16210 F.A=0TO3
16220 PO.A*32+B,64
16230 N.A
16240 B=H.(EEAF)
16250 F.A=0TO4
16260 PO.A*32+B,64
16270 N.A
16280 B=H.(EF14)
16290 F.A=0TO4
16300 PO.B-(A*32-A),64
16310 N.A
16999 RET.
17000 P=U
17001 IFM>1G.17035
17002 PO.H.(F0),H.(CD)
17003 PO.H.(F1),H.(30)
17004 PO.H.(F2),H.(F1)
17009 PO.H.(F3),H.(32)
17010 PO.H.(F4),H.(E0)
17020 PO.H.(F5),0
17030 PO.H.(F6),H.(C9)
17035 FORA=0TO5
17050 C.(H.(F0))
17060 U=PE.(H.(E0))
17070 IFU#0RET.
17080 N.A
17090 U=P;RET.