Viel mehr als 33 Programme für den Sinclair Spectrum

4-0 GO 5ü6 550 0
•-4- 7 @ LET 5=100*F
34-75 LET Y =28
5-0 GO 5Uß 550 0
5 4- 85 LET K. =100*F
540 RETURN
5500 LET F=INT (OT -INT (C`тг"Y 3 iF'Y+
551 ť3 LET F= (F; ıι') tPZ*2
550 LET F=SIN F
5530 RETU R N
5 5 00 REM : ОнTU λ35UEßERLAUF
5810 IF T:31 ιчND i λt = 1 OF λ1= 5 OR
Н=5 OR λ1 =7 OR Г-1=8 OR M=1 ιl OR M=1
- THEN GO TO 5700
5520 IF T RNO £M= 4 OR λ1 =5 OP
М = У THEN GO TO 5700
5550 IF T :'2ß RNO М =2 RND ‚NT i.J .-
33 = Ј : 4 AND ( INT r.J; 2QQ 3 < :.J і 10Ø С
P •Jl4ØØ= τNT (•JìçL00š 3 THEN GO TO
5700
^700
5640 IF т >29 RN О M =2 THEN GO TO
5550 RETURN
57 0 0 LET T=1
5710 LET M=H+1
г 20 IF M< 13 THEN RETURN
730 LET ')=J+1
- 7 d-^,ı LET N=i
575 0 RETURN
5003 RESTORE . FOR Z0 TO 7: Rε Fк
C• A
ô ί-'110 POKE U5R "a"+ τ, я : NEXT I: R
°Т J п Λ+
Є 020 DRTR 0, 0: 24 0 .+_•0 .. 24 .. 0, 0
Wichtige Variablen:
DS Datum nach der Datumseingabe (GOSU В 5000)
TS Wochentag des Tatums nach GOSU В 5300
LS Code-Tabelle für die Länge der einzelnen Namen der
Wochentage
WS Tabelie der Wochentagsnamen
T, M, J Datum aufgeschlüsselt in Tage, Monat und Jahr nach
GOSU В 5000
G Geist-Wert
K Körper-Wert
S Seelischer Wert
Geben Sie das Programm ein und speichern Sie es mit GOTO 9000.
81