home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1991 January
/
1991-01.d64
/
mod#1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
390b
|
14 lines
20 m$=mn$(mn):print chr$(147);chr$(5);spc((40-len(m$))/2);m$
25 print spc(17);yr
30 print:print" sun mon tue wed thr fri sat"
40 for t=1 to 6
45 l1$=chr$(167):l2$=chr$(175):l3$=chr$(186)
50 print chr$(144);:gosub200:gosub210:gosub210:next:gosub200
55 r$=chr$(13):print chr$(19);r$;r$;r$
60 for l=1 to 6:print" ";l1$:print spc(36);l1$
70 print spc(36);l1$:next:print" ";l1$
100 return
200 print" ";:for l=1 to 7:print l2$;l2$;l2$;l2$;l3$;:next:print:return
210 print" ";:for l=1 to 7:print l1$;" ";:next:print:return
999 end