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
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