Werbung
PROGRAMMBEISPIELE
PROGRAMMLISTING
1Q0:"A":
WAIT
O:
USING
:
CLS
20:PRINT
"STJAHR
MO
N.
Tac
"
3@:CURSOR
6:
INPUT
R
H@:CURSOR
15:
INPUT
S
50:CURSOR
21:
INPUT
T
6@;:H=R
7@:CURSOR
24:
PRINT
"ZI
JAHR
MON.
TAG
iL
8@:CURSOR
30:
INPUT
F
9@:CURSOR
39:
INPUT
V
10@:CURSOR
45:
INPUT
W
110:H=R
12@:G=S:I=T
130:GOSUB
58@
140: J=I:H=F
150:G=V:I=W
160:GOSUB
500
170:X=1I-J
18Q:CURSOR
24;
PRINT
"##
EHR
XS UT AGE
HHH ERE
SENET
200:WAIT
: PRINT
210:WAIT
@:
GOTO
76
500:IF
G-3>=@
LET
G=G+1:
GOTO
520
510:G=G+13:H=H-1
520:Is
INT
(365.25*H)+
INT
(30.6*G)+I
53@:IsI-
INT
(H/100)+
INT
(H/400)-306-122:
RETURN
600:"Z":
END
SPEICHERINHALT
Starttag
Zielmonat
Anzahl
der
Tage
207
Werbung
