home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 April
/
64er_Magazin_89-04_1989_Markt__Technik_de.d64
/
vollmond
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
235b
|
14 lines
100 :
110 rem maerz-vollmonde 1900-2099
120 rem (w) by fred seyferth
130 rem (c) by 64'er
140 :
150 input"[147]welches jahr";j
160 :
170 a=19*(j-19*int(j/19))+24
180 b=a-30*int(a/30)+22
190 ifb>31thenb=b-30
200 :
210 print"vollmond am"b"[157].maerz"j
220 :