00000000: 55 24 3D 43 48 52 24 28 31 34 35 29 2B 43 48 52 |U$=CHR$(145)+CHR|
00000010: 24 28 31 34 35 29 2B 43 48 52 24 28 31 34 35 29 |$(145)+CHR$(145)|
00000020: 0D 50 52 49 4E 54 43 48 52 24 28 31 34 37 29 43 |.PRINTCHR$(147)C|
00000030: 48 52 24 28 35 29 3B 0D 43 4F 4C 4F 52 30 2C 37 |HR$(5);.COLOR0,7|
00000040: 3A 43 4F 4C 4F 52 34 2C 37 3A 43 4F 4C 4F 52 31 |:COLOR4,7:COLOR1|
00000050: 2C 32 0D 46 41 53 54 0D 47 52 41 50 48 49 43 31 |,2.FAST.GRAPHIC1|
00000060: 2C 31 3A 42 4F 58 2C 32 2C 32 2C 33 31 38 2C 31 |,1:BOX,2,2,318,1|
00000070: 39 39 3A 42 4F 58 2C 34 2C 33 32 2C 35 30 2C 31 |99:BOX,4,32,50,1|
00000080: 39 37 3A 42 4F 58 2C 35 32 2C 33 32 2C 33 31 36 |97:BOX,52,32,316|
00000090: 2C 31 39 37 0D 43 48 41 52 2C 31 35 2C 32 2C 22 |,197.CHAR,15,2,"|
000000A0: 4A 55 4E 45 20 31 39 39 31 22 0D 43 48 41 52 2C |JUNE 1991".CHAR,|
000000B0: 32 2C 35 2C 22 53 55 4E 22 3A 43 48 41 52 2C 32 |2,5,"SUN":CHAR,2|
000000C0: 2C 38 2C 22 4D 4F 4E 22 3A 43 48 41 52 2C 32 2C |,8,"MON":CHAR,2,|
000000D0: 31 31 2C 22 54 55 45 22 3A 43 48 41 52 2C 32 2C |11,"TUE":CHAR,2,|
000000E0: 31 34 2C 22 57 45 44 22 3A 43 48 41 52 2C 32 2C |14,"WED":CHAR,2,|
000000F0: 31 37 2C 22 54 48 55 22 3A 43 48 41 52 2C 32 2C |17,"THU":CHAR,2,|
00000100: 32 30 2C 22 46 52 49 22 3A 43 48 41 52 2C 32 2C |20,"FRI":CHAR,2,|
00000110: 32 33 2C 22 53 41 54 22 0D 43 48 41 52 2C 39 2C |23,"SAT".CHAR,9,|
00000120: 35 2C 22 33 30 22 3A 43 48 41 52 2C 39 2C 38 2C |5,"30":CHAR,9,8,|
00000130: 22 20 22 3A 43 48 41 52 2C 39 2C 31 31 2C 22 20 |" ":CHAR,9,11," |
00000140: 22 3A 43 48 41 52 2C 39 2C 31 34 2C 22 20 22 3A |":CHAR,9,14," ":|
00000150: 43 48 41 52 2C 39 2C 31 37 2C 22 20 22 3A 43 48 |CHAR,9,17," ":CH|
00000160: 41 52 2C 39 2C 32 30 2C 22 20 22 3A 43 48 41 52 |AR,9,20," ":CHAR|
00000170: 2C 39 2C 32 33 2C 22 31 22 0D 43 48 41 52 2C 31 |,9,23,"1".CHAR,1|
00000180: 35 2C 35 2C 22 32 22 3A 43 48 41 52 2C 31 35 2C |5,5,"2":CHAR,15,|
00000190: 38 2C 22 33 22 3A 43 48 41 52 2C 31 35 2C 31 31 |8,"3":CHAR,15,11|
000001A0: 2C 22 34 22 3A 43 48 41 52 2C 31 35 2C 31 34 2C |,"4":CHAR,15,14,|
000001B0: 22 35 22 3A 43 48 41 52 2C 31 35 2C 31 37 2C 22 |"5":CHAR,15,17,"|
000001C0: 36 22 3A 43 48 41 52 2C 31 35 2C 32 30 2C 22 37 |6":CHAR,15,20,"7|
000001D0: 22 3A 43 48 41 52 2C 31 35 2C 32 33 2C 22 38 22 |":CHAR,15,23,"8"|
000001E0: 0D 43 48 41 52 2C 32 32 2C 35 2C 22 39 22 3A 43 |.CHAR,22,5,"9":C|
000001F0: 48 41 52 2C 32 32 2C 38 2C 22 31 30 22 3A 43 48 |HAR,22,8,"10":CH|
00000200: 41 52 2C 32 32 2C 31 31 2C 22 31 31 22 3A 43 48 |AR,22,11,"11":CH|
00000210: 41 52 2C 32 32 2C 31 34 2C 22 31 32 22 3A 43 48 |AR,22,14,"12":CH|
00000220: 41 52 2C 32 32 2C 31 37 2C 22 31 33 22 3A 43 48 |AR,22,17,"13":CH|
00000230: 41 52 2C 32 32 2C 32 30 2C 22 31 34 22 3A 43 48 |AR,22,20,"14":CH|
00000240: 41 52 2C 32 32 2C 32 33 2C 22 31 35 22 0D 43 48 |AR,22,23,"15".CH|
00000250: 41 52 2C 32 39 2C 35 2C 22 31 36 22 3A 43 48 41 |AR,29,5,"16":CHA|
00000260: 52 2C 32 39 2C 38 2C 22 31 37 22 3A 43 48 41 52 |R,29,8,"17":CHAR|
00000270: 2C 32 39 2C 31 31 2C 22 31 38 22 3A 43 48 41 52 |,29,11,"18":CHAR|
00000280: 2C 32 39 2C 31 34 2C 22 31 39 22 3A 43 48 41 52 |,29,14,"19":CHAR|
00000290: 2C 32 39 2C 31 37 2C 22 32 30 22 3A 43 48 41 52 |,29,17,"20":CHAR|
000002A0: 2C 32 39 2C 32 30 2C 22 32 31 22 3A 43 48 41 52 |,29,20,"21":CHAR|
000002B0: 2C 32 39 2C 32 33 2C 22 32 32 22 0D 43 48 41 52 |,29,23,"22".CHAR|
000002C0: 2C 33 36 2C 35 2C 22 32 33 22 3A 43 48 41 52 2C |,36,5,"23":CHAR,|
000002D0: 33 36 2C 38 2C 22 32 34 22 3A 43 48 41 52 2C 33 |36,8,"24":CHAR,3|
000002E0: 36 2C 31 31 2C 22 32 35 22 3A 43 48 41 52 2C 33 |6,11,"25":CHAR,3|
000002F0: 36 2C 31 34 2C 22 32 36 22 3A 43 48 41 52 2C 33 |6,14,"26":CHAR,3|
00000300: 36 2C 31 37 2C 22 32 37 22 3A 43 48 41 52 2C 33 |6,17,"27":CHAR,3|
00000310: 36 2C 32 30 2C 22 32 38 22 3A 43 48 41 52 2C 33 |6,20,"28":CHAR,3|
00000320: 36 2C 32 33 2C 22 32 39 22 0D 53 4C 4F 57 3A 43 |6,23,"29".SLOW:C|
00000330: 4C 4F 53 45 31 3A 50 4F 4B 45 31 35 33 2C 30 0D |LOSE1:POKE153,0.|
U$=CHR$(145)+CHR$(145)+CHR$(145).PRINTCH
R$(147)CHR$(5);.COLOR0,7:COLOR4,7:COLOR1
,2.FAST.GRAPHIC1,1:BOX,2,2,318,199:BOX,4
,32,50,197:BOX,52,32,316,197.CHAR,15,2,"
JUNE 1991".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"
.CHAR,9,5,"30":CHAR,9,8," ":CHAR,9,11,"
":CHAR,9,14," ":CHAR,9,17," ":CHAR,9,20,
" ":CHAR,9,23,"1".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"
.CHAR,22,5,"9":CHAR,22,8,"10":CHAR,22,11
,"11":CHAR,22,14,"12":CHAR,22,17,"13":CH
AR,22,20,"14":CHAR,22,23,"15".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".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,3
6,23,"29".SLOW:CLOSE1:POKE153,0.