Viel mehr als 33 Programme für den Sinclair Spectrum

74
{4 0 CL5
г 50 PRINT INK 5 "
10 LET SYN UML =29 5305á
I 7 0 LET "5 N =-5'>'"N Ulg L .% 2
15 0 LET TЯGE 1 =TAG +31 f τ MON řIT - 1 ı +
55 *'3 ЯHR
i90 IF MONAτ> 2 THEN GO TO 250
200 LET TRGE2=2NT ( ( ЈAHR-i) !4) -
‚NT ((3 ı4) * ( INT ί i јRHR -1) ı 100) ?+
1) 21 0 .LET TRGE =TЯGE 1 +TRGE2
220 LET !.lςгς: t-tENΣPG=TЯΣ'E- έ INT (TЯ
ť;E ї 7l * 7)
230 GO SUB 500+2t^л *(.tOCHENTAG
241 GO TO 270
250 LET TRGE=TRGEI-INT τ.4 *MONЯ
T +2.-3) +INT ( ј RHR ў4? -INT ί ί 3.ї 4 д + ť
'NT ( ЈıaHR. 100 λ +1 ) λ
280 GO T O 22 0
2^λ LET Я = ί TAGE-5782 0 1? %5YN UML
280 REM : TNN =TЯG E NACH NEUMONO
200 LET TNN=INT i5YN UML эε ( A-INT
rn ) +.^)
300 IF TNN > 3N THEN G ť? ТС' 330
3Σ0 LET FHй5E =4t (Tt•ΣN-•51J)
:320 GO TO 34ι?
330 LET PíiASE=$-* τ (TNN-5YN UML)
SN)
=з :i ελ LET flf Й SE= Σl.λT '5 Е +.5)
350 GO SUB 64-0
350 LET TЯG =τЯζ + 1
370 IF TFı G •έ =2 ц OR TнG •: =30 RNO М
•=)NRT г > 2 OR T Я G г =3 i RND ť NONAT 2
RHO MONRΣ 4- RNO NONAT B RHO t-:
Cı ΓŠRT 9 RND MONAT