home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D01.D64 / cal.aug < prev    next >
Encoding:
Text File  |  2019-04-13  |  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.