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