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