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