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