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 34 2C 32 2C 22 |,197.CHAR,14,2,"|
000000A0: 41 55 47 55 53 54 20 31 39 39 31 22 0D 43 48 41 |AUGUST 1991".CHA|
000000B0: 52 2C 32 2C 35 2C 22 53 55 4E 22 3A 43 48 41 52 |R,2,5,"SUN":CHAR|
000000C0: 2C 32 2C 38 2C 22 4D 4F 4E 22 3A 43 48 41 52 2C |,2,8,"MON":CHAR,|
000000D0: 32 2C 31 31 2C 22 54 55 45 22 3A 43 48 41 52 2C |2,11,"TUE":CHAR,|
000000E0: 32 2C 31 34 2C 22 57 45 44 22 3A 43 48 41 52 2C |2,14,"WED":CHAR,|
000000F0: 32 2C 31 37 2C 22 54 48 55 22 3A 43 48 41 52 2C |2,17,"THU":CHAR,|
00000100: 32 2C 32 30 2C 22 46 52 49 22 3A 43 48 41 52 2C |2,20,"FRI":CHAR,|
00000110: 32 2C 32 33 2C 22 53 41 54 22 0D 43 48 41 52 2C |2,23,"SAT".CHAR,|
00000120: 39 2C 35 2C 22 20 22 3A 43 48 41 52 2C 39 2C 38 |9,5," ":CHAR,9,8|
00000130: 2C 22 20 22 3A 43 48 41 52 2C 39 2C 31 31 2C 22 |," ":CHAR,9,11,"|
00000140: 20 22 3A 43 48 41 52 2C 39 2C 31 34 2C 22 20 22 | ":CHAR,9,14," "|
00000150: 3A 43 48 41 52 2C 39 2C 31 37 2C 22 31 22 3A 43 |:CHAR,9,17,"1":C|
00000160: 48 41 52 2C 39 2C 32 30 2C 22 32 22 3A 43 48 41 |HAR,9,20,"2":CHA|
00000170: 52 2C 39 2C 32 33 2C 22 33 22 0D 43 48 41 52 2C |R,9,23,"3".CHAR,|
00000180: 31 35 2C 35 2C 22 34 22 3A 43 48 41 52 2C 31 35 |15,5,"4":CHAR,15|
00000190: 2C 38 2C 22 35 22 3A 43 48 41 52 2C 31 35 2C 31 |,8,"5":CHAR,15,1|
000001A0: 31 2C 22 36 22 3A 43 48 41 52 2C 31 35 2C 31 34 |1,"6":CHAR,15,14|
000001B0: 2C 22 37 22 3A 43 48 41 52 2C 31 35 2C 31 37 2C |,"7":CHAR,15,17,|
000001C0: 22 38 22 3A 43 48 41 52 2C 31 35 2C 32 30 2C 22 |"8":CHAR,15,20,"|
000001D0: 39 22 3A 43 48 41 52 2C 31 35 2C 32 33 2C 22 31 |9":CHAR,15,23,"1|
000001E0: 30 22 0D 43 48 41 52 2C 32 32 2C 35 2C 22 31 31 |0".CHAR,22,5,"11|
000001F0: 22 3A 43 48 41 52 2C 32 32 2C 38 2C 22 31 32 22 |":CHAR,22,8,"12"|
00000200: 3A 43 48 41 52 2C 32 32 2C 31 31 2C 22 31 33 22 |:CHAR,22,11,"13"|
00000210: 3A 43 48 41 52 2C 32 32 2C 31 34 2C 22 31 34 22 |:CHAR,22,14,"14"|
00000220: 3A 43 48 41 52 2C 32 32 2C 31 37 2C 22 31 35 22 |:CHAR,22,17,"15"|
00000230: 3A 43 48 41 52 2C 32 32 2C 32 30 2C 22 31 36 22 |:CHAR,22,20,"16"|
00000240: 3A 43 48 41 52 2C 32 32 2C 32 33 2C 22 31 37 22 |:CHAR,22,23,"17"|
00000250: 0D 43 48 41 52 2C 32 39 2C 35 2C 22 31 38 22 3A |.CHAR,29,5,"18":|
00000260: 43 48 41 52 2C 32 39 2C 38 2C 22 31 39 22 3A 43 |CHAR,29,8,"19":C|
00000270: 48 41 52 2C 32 39 2C 31 31 2C 22 32 30 22 3A 43 |HAR,29,11,"20":C|
00000280: 48 41 52 2C 32 39 2C 31 34 2C 22 32 31 22 3A 43 |HAR,29,14,"21":C|
00000290: 48 41 52 2C 32 39 2C 31 37 2C 22 32 32 22 3A 43 |HAR,29,17,"22":C|
000002A0: 48 41 52 2C 32 39 2C 32 30 2C 22 32 33 22 3A 43 |HAR,29,20,"23":C|
000002B0: 48 41 52 2C 32 39 2C 32 33 2C 22 32 34 22 0D 43 |HAR,29,23,"24".C|
000002C0: 48 41 52 2C 33 36 2C 35 2C 22 32 35 22 3A 43 48 |HAR,36,5,"25":CH|
000002D0: 41 52 2C 33 36 2C 38 2C 22 32 36 22 3A 43 48 41 |AR,36,8,"26":CHA|
000002E0: 52 2C 33 36 2C 31 31 2C 22 32 37 22 3A 43 48 41 |R,36,11,"27":CHA|
000002F0: 52 2C 33 36 2C 31 34 2C 22 32 38 22 3A 43 48 41 |R,36,14,"28":CHA|
00000300: 52 2C 33 36 2C 31 37 2C 22 32 39 22 3A 43 48 41 |R,36,17,"29":CHA|
00000310: 52 2C 33 36 2C 32 30 2C 22 33 30 22 3A 43 48 41 |R,36,20,"30":CHA|
00000320: 52 2C 33 36 2C 32 33 2C 22 33 31 22 0D 53 4C 4F |R,36,23,"31".SLO|
00000330: 57 3A 43 4C 4F 53 45 31 3A 50 4F 4B 45 31 35 33 |W:CLOSE1:POKE153|
00000340: 2C 30 0D |,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,14,2,"
AUGUST 1991".CHAR,2,5,"SUN":CHAR,2,8,"MO
N":CHAR,2,11,"TUE":CHAR,2,14,"WED":CHAR,
2,17,"THU":CHAR,2,20,"FRI":CHAR,2,23,"SA
T".CHAR,9,5," ":CHAR,9,8," ":CHAR,9,11,"
":CHAR,9,14," ":CHAR,9,17,"1":CHAR,9,20
,"2":CHAR,9,23,"3".CHAR,15,5,"4":CHAR,15
,8,"5":CHAR,15,11,"6":CHAR,15,14,"7":CHA
R,15,17,"8":CHAR,15,20,"9":CHAR,15,23,"1
0".CHAR,22,5,"11":CHAR,22,8,"12":CHAR,22
,11,"13":CHAR,22,14,"14":CHAR,22,17,"15"
:CHAR,22,20,"16":CHAR,22,23,"17".CHAR,29
,5,"18":CHAR,29,8,"19":CHAR,29,11,"20":C
HAR,29,14,"21":CHAR,29,17,"22":CHAR,29,2
0,"23":CHAR,29,23,"24".CHAR,36,5,"25":CH
AR,36,8,"26":CHAR,36,11,"27":CHAR,36,14,
"28":CHAR,36,17,"29":CHAR,36,20,"30":CHA
R,36,23,"31".SLOW:CLOSE1:POKE153,0.