Viel mehr als 33 Programme für den Sinclair Spectrum

4052 LET c =28: IF d25 THEN LET
с =2+ ď
4- 0 53 PRINT AT 1 2 , c : •'
«Ø55 IF INf^EY $ г >'•.' AN б INtiEY $ C
HR $ а RND іλdKiУ $ ; ? C`-1-FR $ 4 THEN
TO š ε1 Ø 5 5
4.050 PRINT т 13, Eь ;'•WE• г t .•
4.0 61 IF INF,E`rt - $ _.. .• THE M GO ТС' 4-05
3
4.762 LET i $ =INKE' Ѓ $: IF í $=Сii•Ct$ i
=з THEN LET í $=" _'•
4 -053 IF i $ =C3-?R$ 9 THEN GO TO 4-4-
4058- IF í $ =C'-HR $ д THEN LET d =d - 3.
- ť d ?i λ ' GO TD .iiá-t^^
40 65 IF i$ =CHR$ 1 2 THEN LET d $ i2
LET d $ i 3' =a $ : G η TO d- ı^^0Ø
ıi ıΣι6zš LET d$i2. d ) =í$: PRINT Яτ 13
^,-•° ıı_+t••
ó д?tЭ 2F IN К E'1 $ •" •' THEN GO ТС' 4-0
^Ø
4-080 PRINT RT 3.d_ , Ø; '•^" : PRUSE
0: LET i $ =INKEY$
4000 IF { í $ i " ıλ " С f2 "0) AND
$; т ' Х THEN LET i$=ItÝ4:E`Ý $: G TO
d•Ø9Ø
a100 LET d$ i3 ,d λ= í $: IF d =20i^^Ø Т
HEN LET j$i3, ď +i •' GO TO 1 ί
4•11 0 IF d$t3,3 2 ="Y" THEM GO TG
о
4. 120 PRINT RT τ#- , Ø; •• Ze i τ • ' . G ť? т =='
λ. 04.0
5000 PRINT RT 11.0; FLRSH 3; " ς " _
INPUT ••T ť ιц p п-''•; t; " S,Ei ε-d ε г ha lu гз
^ μ• , .^ ., ; цı
50 1 0 FOP i=i ТС' "s LET d1
5020 LET >:= б t ϊ- ιηL>E d$t2,d? -.i7 λ
50:30 LET = (UR L d$ ť -3,d λ +1 ,ґ t : IF'
:a' : 99 THEN SEEP z , :к
503 5 IF X =99 THEN PЯ t_~3 E 50+Z
THENGO
T C+ 5020
50.4.0 LET d=d +1 : І d $ í-3,d? i" л;'•
5 0 50 NEXT i
5 '50 G ı? TO 20
5 ί η 0 RESTORE C:2t-1 ď '4-3.
5 ί 1Ø FOP i =1 ТО 4-3: AEAi'г a: LET
-э ť i ť =a : NEXT i: RETŽíRN
$020 DAτ A 3 , 99 , - Σ 1 , -9 99 . -6 , -á , -
1,99, 99, 99,99,99.99,99.99,
=' 93 ,-S г 1Ø,?9,13, ι^,15 : 15
1á , 2, d•.• -1 3 -7 '.5. -5, - 1, 11, -10 ?
-J }
^ Γa ιλι^l FOR i=1.1 ТС' 255 STEP 16: PL
C'-τ з ,7': DR Я tλ 0.24: NEXT
«
i
1Э PLOT 032: DR ı^i,s 255.0: :
C'
PL ı1"'
: L? R R W 255,0
% ť 2;э LET п $=ι-нR$
ч ^.$
21 +z-4-εR$
2
i + .. ..
ì
}L:
+ C HR $ Ø
1šг_ı 3ιcl PRINT Aτ 18, -" .
t. c'^ ^ п^' •
'г t^.i Ø F` ґ ' 2 NŤ 'η ','EF7 1 : .. ' •
E r^. ^. ^ l= L:
г о p C V B N
7050 RETURN
123