Viel mehr als 33 Programme für den Sinclair Spectrum

160 FOR y=0 TO zi -1
170 PRINT AT tt, y; INK E;
18 0 PRINT RT z Σ -1 , y; INK E•; "
1 =0 NEXT y
О DI м x (7) : D τм ц (7)
_1sε^ LET λ =τ г_ ї 2
320 LET ц =p
33 LET xi=i
3 4 ζ LET y1=1
=,E ί IF aτтя. έ +y 1 , ?< ) =22 THEN LE
¡^ у 1 =- у 1
350 IF ЯTT€2 í ц , л +ti Σ ) =22 THEN LE
Г ì: 1 = - x 1
370 LET X =Y, +x 1 : LET υ = ц + υ 1
3 г30 PRINT RT y : x; INK 5;"0"
_η90 IF x=x (6) RNO ц = ц (6) FıND X=
: л Ri'dD У = ц ( 2 ϊ τ tiEiц 5TfIP
‚00 LET :; (7) =x (6) _ LET y (7) = ц (E•
4-10 LET ?(( б ?=х (5): LET у (6)= у (5
420 LET х (5) =x (4) LET у (5) =9 (4
430 LET x (4) =x (3) : LET LI (4) =y (?
.-40 LET x (3) _'( (2) : LET у (EY) = у (.
4ı50 LET x (2) =x (1) . LET у (2) = у (;
1.60 LET X (1) =X: LET γ (1) ц
^+7 0 PRINT AT у (7) ,y; (7) ; INK 1;'
^ ..
ч.$0 Pt=tINT AT INT (RND* (zz -2) +13
.INT (RND+ (z +_ -2) +2) ; INK б ; •j!"
4.90 PRINT AT ‚NT (RND эέ (zz -2) +1)
1NT (RND* (z L-2) +2) ; INK 1;"'
600 о To 350
Sie können ja mal messen, welche Technik schneller ist !
Die dritte Version der Raupe benutzt PEEK und POKE, um den
Attributsspeicher zu füllen und zu lesen. In bp wird das erste Byte
dieses Speichers festgehalten, daß die Printposition 0,0 kennzeichnet.
Die Adressen der Körperteile sind in p(7) gespeichert, p ist der aktuelle
Raupenkopf:
10 REr1 5 ε h ε ndε Я a ι+pe
20 LET z τ =22
$ t1 LET 2L=$2
4.0 LET bF =22528
Σ @1:`• FOR ?c' =1 TO z= -2 : FOR y =1 TO
^ --
110 POKE b ρ + x *_ E +y , ίд : NEXT ц : (d
ç'-,T x
17