09.03.2013 Aufrufe

Viel mehr als 33 Programme für den Sinclair Spectrum

Viel mehr als 33 Programme für den Sinclair Spectrum

Viel mehr als 33 Programme für den Sinclair Spectrum

MEHR ANZEIGEN
WENIGER ANZEIGEN

Erfolgreiche ePaper selbst erstellen

Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.

70<br />

1 ј 85 LET 1Ù (e) = τ Nт ıı C г )<br />

11 IF 1λ, Σ2? ì εт OR ßt f2? .•12 тi-iξN έ ^<br />

TO 1^ι6 C^<br />

Z -> 1115 PINT Ят z ? i 3_2 24 S. ξ ξ ej>^д); *1<br />

t Č ^<br />

L12 PRINT RT ze i Le . 6; "<br />

Z<br />

113' INPt.JT *? i n<br />

:3.1 4' 2F £ s f? • =-304^ Ч О ' ť =.^. г = ^ti^i'^č<br />

й THEN GO TO 1 130<br />

і 5' LET h3 Ь e п =ha Ь 2 п +2in<br />

1170 LET r=ein<br />

11δ0 G O 5US 2ς@0<br />

1190 LET e$(e)=z$<br />

1.20 INPUT I $ (:= )<br />

1200 PRINT RT z ť í te . 7; e$ (? λ<br />

1220 PRINT aT Z2ìtt'.16; Σ $ (e) j"<br />

1 č 3O INPUT ť $ ί 2<br />

1240 PRINT aT z ť i L ε 3 Ğ ; c$ ( ε)<br />

1250 LET ze i te=zei +_ _+'1<br />

1260 LET ε =ε + 1<br />

1270 IF e 200 THEN G O TG 15 0 0<br />

:ì. 2s0 GO TQ 104-0<br />

13Z ıZε IF ZCx le :3 THEN ^0 T •0 Ѕ -4<br />

131 0 LET z е i e=z г i l?-1<br />

13 20 LET г = г -1<br />

1<strong>33</strong>0 LET h Э Ğгп =h3 be п - г?RL 2$ j.?<br />

1"3 35 PRINT RT z ei t? .ç}.:<br />

1141 GO TO 104- 0<br />

150 ί+ L-L°^<br />

1510 PRINT "Der τ eüei ч ie ě г e 5Pei<br />

л h ť Γ ^+ L Э t Z í 5 t Sì,^ L t. '<br />

15 20 PRINT ,, "5t? t ť i ι F. die e τ ü te<br />

• 50 ε i п ti 3e- a? L огѕс t-ae π - '<br />

і53 INPUT q$<br />

i.5.i ί1 IF g$="Ne i п " OR g$="?"}2i Ω ` г.<br />

HEN GO TO 200<br />

1 Є 50 CL5<br />

1 570 FOR ‚ 1 =1 T U 15<br />

:<br />

0<br />

ς60 LET г (.i ť =t (.}+5îti)<br />

L50 LET П)<br />

і ' LE7 ε $ i. •¡) =e Ъ ј +ςι-^?<br />

1 5 42 LET t j) =t $ ı: j+SØ)<br />

15E2 LET ı= $ C j λ C$( j+50 λ<br />

1 ί 3 ί NEXT •λ<br />

1640 LET e=151<br />

15 PRINT "Pdeue τ Rlatz t 9ε= c<br />

?`ε2 =f ε п .,<br />

. 155 0 O LS<br />

C, ί ) =" C . ί +5Q)<br />

15700<br />

0: TO 230<br />

2000 IF e = ί THEN GO T =ь 20 +0<br />

=''г 1 0 ^ET εl лп = e - 1 0<br />

2020 I F •J o n ε 1 THEN ΣN LET ••^ o п = 1<br />

2030 LET zu=e -i<br />

20 40 CL;=<br />

205' 5' PRINT ' С ''<br />

•?i-'_► 50 INPUT i<br />

2 č 80 P R INT оΓ3.'_f_}.^ ι.<br />

20 90 PR тNT . I $<br />

2 і00 PRINT .•3$; г,$

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!