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

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

4Superprogramme<br />

<strong>für</strong> <strong>den</strong><br />

ZX SPECTRUM<br />

4.1 Programm 18: "" LP-Register " (48 К )<br />

1 BORDER 7: .. ^APER<br />

η INK 2: C<br />

" : L ET<br />

2 PRINT ''i LR'. te Л<br />

5i2 _P2 ı *_Fι.?1 Ω (Ω13 X. 1t-^ С<br />

0 LР ^ . г<br />

З INPUT z. IF z ' i OR Σ г 1O T<br />

г?EN GO TO З<br />

:λ PRINT<br />

5 DI^г ã$^(Z ^O^<br />

5 DIN ы $ (Z. ia)<br />

7 DIM C$ (^ , 1)<br />

3 PRI ΓdT "Na мe dea Rea_ ia Σ e г _ ?.•<br />

g INPUT r:$<br />

1 ι3 L ET Π =i<br />

15 BORDER 6: PAPER 6: INK O: C-<br />

7_J 20 PRINT<br />

4 О PRINT Einaabe"" I п •<br />

г ... T ı teL`^... .Q O г]derı ...<br />

^ Liste (T4')' `' '^ Li^ ε e (F Γ i Л t<br />

ξ г ) ". .- " ј LoES Ltτ e Γг e Л e i LP" ''•}^<br />

EpeiChern •э υε к.ss εε г e"<br />

53 PRUSE O: LET g$ =INKEY $<br />

53 IF q$("l" OP q$:"S" THEN GO<br />

TO 53<br />

б tд LET a =URL q$<br />

г0 G O TO 1470*a<br />

IOO FOR s=n TO z<br />

11 0 IF Э $ (s . 1) =" " THEN GO TO 1<br />

τ0<br />

12 О NEXT s<br />

125 GO TO 1 5<br />

1<strong>33</strong> POKE 23592.255: PRINT ' '"LP<br />

.- Γd г . . _ .<br />

140 PRINT "I п te Γ F г et?" .<br />

145 INRUT AT 1.3.<br />

τ 1,0; LINE $( ѕ )<br />

14 7 1F .3 $ ( 5 . 1 ) _ ' " THEN G O TO 1<br />

~ 150 PRINT a$ ť 5 ) "T i te !?" ,<br />

155 INP UT RT 1 , 0; "<br />

•<br />

__"; AT 1.0; LINE Ь $ i_<br />

57

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

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!