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