home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #1 / Commodore_Disk_User_Vol.4_1_1990_-.d64 / cal.aug < prev    next >
Encoding:
Text File  |  1990-01-01  |  835 b   |  14 lines
  1. u$=chr$(145)+chr$(145)+chr$(145)
  2. printchr$(147)chr$(5);
  3. color0,7:color4,7:color1,2
  4. fast
  5. graphic1,1:box,2,2,318,199:box,4,32,50,197:box,52,32,316,197
  6. char,14,2,"august 1991"
  7. char,2,5,"sun":char,2,8,"mon":char,2,11,"tue":char,2,14,"wed":char,2,17,"thu":char,2,20,"fri":char,2,23,"sat"
  8. char,9,5," ":char,9,8," ":char,9,11," ":char,9,14," ":char,9,17,"1":char,9,20,"2":char,9,23,"3"
  9. char,15,5,"4":char,15,8,"5":char,15,11,"6":char,15,14,"7":char,15,17,"8":char,15,20,"9":char,15,23,"10"
  10. char,22,5,"11":char,22,8,"12":char,22,11,"13":char,22,14,"14":char,22,17,"15":char,22,20,"16":char,22,23,"17"
  11. char,29,5,"18":char,29,8,"19":char,29,11,"20":char,29,14,"21":char,29,17,"22":char,29,20,"23":char,29,23,"24"
  12. char,36,5,"25":char,36,8,"26":char,36,11,"27":char,36,14,"28":char,36,17,"29":char,36,20,"30":char,36,23,"31"
  13. slow:close1:poke153,0
  14.