Viel mehr als 33 Programme für den Sinclair Spectrum

ändern Sie für Bedienelement 2 bitte folgende Zeilen um (nur die
unterrstrichenen Zeichen sind zu ändern):
230 LET x=x+(INKEY$="7" AND x(21)—(INKEYS="3" AND x)0)
240 LET y= γ+11 NKEYS="1" AND y(31)—(IN К EYS="5" AND у)0)
2.10 Programm 10: " Todeshohle ""
10 RЯNDOMIZE : EOR:DER 1: PЯ PER
1: INF:: CL^-
20 EI Γ9 ^ q (2i : DIM τ' (2) : LET !=1
_ :_T О : LET p=29
30 LET d = I.PδT (A.НE9гЭ ) : LET k = Σ4 d
; (RNO +91
4[:) LET f = INT( ı=iN)++ 22 +1)
50 LET rn,=2NT (RNíη эF23+1)
ő 4l FOR Ω =1 T O 24
70 LET х =R Ω -1
80 IF INT L.< ip) tp =x THEN GO TO
200
ДО NEXT Ω
100 GO TO 5 0
200 PRINT "5 Рі e Le Γ ' :CHR$ L L +E.
4?;" ist i π H о et ì e ':g(L) " `"I
л W e ι cl,e Richtung tu Ω g 'geht z'"''
210 LET Γ ( L) =q(L λ
220 INPUT RT fl, Cλ; "^^ ω a e Γ t 5 θe i
L.wae Γ ts φue с k м+ae г т_s"; -a$: IF Э $ < г
"‚" RND $>"" AND Э $< λ " Г " THEN
G O TO 220
23 ц1 LET 3= Lg L L 3 +Ω AND 3$ = " ц ")+;.
q (L 1 +m AND ab="r") +2+р - q ) ANLη
240 LET 3 = •3 -INT (•a. í p1 +p
250 CL5
2 Б 0 IF e< 24 THEN LET д ( i =a
270 PRINT " 5p i? e г ': CHR $ (+84
; k ε+ roAı t " "ì ue ε ki^ae г ts" AND a$
":-ei tü{öeã t5" AND a$= ^ '; "vo
rtiaeti" AND ifl IF г
ε L )= д ( 1 THEN PRINT "e i Ω е 53 ί λ.ιJ?
е ", INK2; 111111"
275 IF .д ε ) r L ) THEN PRINT ••H
the q(j) .. .
28 0 IF q ( L λ < >23 THEN GO TO 320
290 PRINT ` IPdK. 6; ERIGHT 1; "Si
τп ί υ es_•e ( N Γ . 1 i= t FLA ύH 1; d:
PRINT ' "5Lh Lue53e L Н -.2 is t in h
.λ8 h Le N Γ . ": F L R 3H 1: f; FL Я SH iT
310 LET 2=k
320 IF g( L)