Viel mehr als 33 Programme für den Sinclair Spectrum

1 320 IF C, $ ="£'• THEN LET 5 С H=SOH -
,
134 IF C $ =" -" THEN GO TO 1 3 00
і30 PRINT RT R.5:-
1350 LET R =R 1: ίET E=5 1
370 GO TO 1260
1 3 9 г3 `ET E=E-1
1391 IF E1 RNO NOT 5OH THEN G O
Т . ј4
139 2 PRINT RT R,5;" "
1"39 З LET R =R2+1
139 5 GO TO 1250
1300 LET T=PEEK 2.Э 5 г 2 +255 fPEEh 2
3b г 3+55ς36 *F• EE К 23ε г 4
14- 0 5 PRINT RT R1.51" "
2 4- 05 PRINT RT R, 5; "
1 41 0 LET PT=PT-INT £T: î ıЗť
1 "š "1õ FOR '=1 TO 50
1-т 1' NEXT XT I
14-20 LET :C$= ' > "+STF?$ RT+"
1460 PRINT RT 5*t)+1. _ O INVEPSE i
$
1470 PR ‚NT RT fl ,0: " ^
1 4_ 75 IF T_N К,EY$ ; " T HEN GO TO 14-
140 i► IF INKEY =" " THEN GO TO 1 г18
149 0 IF INY.E't'$=" .í" THEN GO TO 12
1500 PRINT ΓıT 1;" "
1505 IF INt:E ,, , $ ί ' " THEN GO TO 15
8ς
1 E10 IF I1-Jt:EY $=" " THEN GO TO 151
ί
1520 IF INhEY$=" ,i" THEN GO TO 15
1530 GO TO 93 9 8
;ì541 CLS
1550 RUN 10 0
00 PRINT ц ιη, "E і Ω г" Л гi+?ft2? Σ7 г Gdu
^
μ01 '3 LET 5=48384: FOR 1=15515 16 TO
1 E" 3 8'_
20 2 ί POkE (1+8) ' PEEK I
‚і 030 NEXT I
2 0 4 0 POKE 23507'24-9
20-50 гRESTORE
2050 F OR τ = 1 T•7 4-
2070 RERD F4$
2060 LET ÑDL>R=E•3-'44 +8 +:CCsL'•E
;7-'0R0 FOR J=0 T Lг 7
2100 RERD P
2110 POK.E t=4E?OF + _• , R
2120 NEXT U
2130 NE XT I
2 1 4-0 INPUT " " OLS
2150 PRINT " "1Р IELFINLE IT ξJNG
2 16 0 PRINT "JE NRCH GROESSE DRL»
EPT ES ε τλíε N HOr"TENT. EIS ORS LR_-
119