home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 January / 1991-01.d64 / mod#2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  513b  |  18 lines
  1. 20 ly=0
  2. 30 d= val(mid$(cc$,int(yr/100)+2,1))
  3. 35 l= yr - int(yr/100)*100
  4. 40 d=d+l:d= d + int(l/4)+val(mid$(mc$,mn,1))
  5. 50 d=d+1:if (yr/4-int(yr/4))=0 and mn<3then d=d-1:ly=1
  6. 60 d=d - int(d/7)*7+1:if d>6 then d=0
  7. 70 print chr$(19):print:print:print:print:c=d:a=0:r$=chr$(13)
  8. 75 m= val(mid$(md$,(mn-1)*2+1,2)):if ly=1 and mn=2 then m=m+1
  9. 80 print spc(2+5*c);:for l=c to 6:a=a+1:if a>m then l=7:goto100
  10. 85 if a>m then l=7:goto100
  11. 87 if a=dy then printchr$(28);
  12. 90 print right$(" "+str$(a),2);spc(3);
  13. 100 print chr$(5);:next:print r$;r$:c=0:if a<m then 80
  14. 110 print chr$(19):for l=1 to 22:print:next:print spc(13);"press  any key"
  15. 120 geta$:ifa$=""then120
  16. 130 return
  17. 999 end
  18.