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