home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D01.D64 / cal.mar < prev    next >
Encoding:
Text File  |  2019-04-13  |  834 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,15,2,"MARCH 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,"31":CHAR,9,8," ":CHAR,9,11," ":CHAR,9,14," ":CHAR,9,17," ":CHAR,9,20,"1":CHAR,9,23,"2"
  9. CHAR,15,5,"3":CHAR,15,8,"4":CHAR,15,11,"5":CHAR,15,14,"6":CHAR,15,17,"7":CHAR,15,20,"8":CHAR,15,23,"9"
  10. CHAR,22,5,"10":CHAR,22,8,"11":CHAR,22,11,"12":CHAR,22,14,"13":CHAR,22,17,"14":CHAR,22,20,"15":CHAR,22,23,"16"
  11. CHAR,29,5,"17":CHAR,29,8,"18":CHAR,29,11,"19":CHAR,29,14,"20":CHAR,29,17,"21":CHAR,29,20,"22":CHAR,29,23,"23"
  12. CHAR,36,5,"24":CHAR,36,8,"25":CHAR,36,11,"26":CHAR,36,14,"27":CHAR,36,17,"28":CHAR,36,20,"29":CHAR,36,23,"30"
  13. SLOW:CLOSE1:POKE153,0
  14.