start tok64 d64-yp0dZZ 0 REM dmz 5/1988 1 DATAanuari,ebruari,ars,pril,aj,uni,uli,ugusti,eptember,ktober,ovember,ecember 2 INPUT"{ct n}{sh -}r";y:INPUT"M]nad";m:FORi=1TOm:a=a+d-2:d=33-(i-NOTi>7AND3^-(i=2)) 3 READm$:NEXT:s=y/100:PRINT"{down}{sh -}r:"y" M]nad: "MID$("JFMAMJJASOND",m,1)m$ 4 PRINT"M]n{space*2}Tis{space*2}Ons{space*2}Tor{space*2}Fre{space*2}L{pound}r{space*2}S{pound}n":IFINT(s)=sTHENy=s 5 k=INT(y/4)=y/4ANDm<3:FORi=1TOd+NOTm^k:b=a+s*125+INT(s/4)-INT(s)+k+i 6 v=b-INT(b/7)*7AND7:PRINTTAB(v*5-NOTi>9)iCHR$(7+v);:NEXT stop tok64 (bastext 1.0)