0 POKE 65497,0
5 PALETTE RGB
10 HSCREEN 4
12 PALETTE 2,0
15 HCOLOR 2
20 HPRINT(34,0), "Welcome to YACCS!":HPRINT(24,1),"(Yet another Color Computer Site)"
30 HPRINT(2,3),"You might ask yourself, 'Why does this site look so weird?' (plain, boring)" :HPRINT(0,4),"The answer is that it recreates the look of the Tandy Color Computer 3's"
40 HPRINT (0,5),"80 columns screen. Not as personal as the":HCOLOR 3:HPRINT(42,5),"32 Columns mode":HCOLOR 2:HPRINT(58,5),"but a lot nicer to":HPRINT(0,6),"use."
50 HPRINT(2,7),"I'm actually using a":HCOLOR 3:HPRINT(23,7),"BASIC":HCOLOR 2:HPRINT(29,7),"program to create this page. If you want to see the"
55 HCOLOR 3:HPRINT(0,8),"listing":HCOLOR 2:HPRINT(7,8),", feel free to do it."
60 HPRINT(2,9),"The main reason for this website, is showoff... I mean, show the programs I'm":HPRINT(0,10),"always writing, but also to help other CoCo users, and show to whoever might"
70 HPRINT(0,11),"be around what, the heck a CoCo is, and why do I still care about it."
80 HPRINT (10,14),"My":HPRINT(7,15),"programs"
90 HPRINT (21,14),"What's":HPRINT(21,15),"a CoCo?"
100 HPRINT(35,14),"Favorite":HPRINT(35,15),"programs"
110 HPRINT (49,14),"My CoCo":HPRINT(49,15),"hardware"
120 HPRINT (63,14),"Thoughts":HPRINT(63,15),"& things"
130 HCIRCLE(312,140),36,3,.2:HPAINT(312,140),2,3
140 HCIRCLE(312,140),36,3,1.8,0,.5
150 HCIRCLE(312,185),24,3,.3,0,.5
160 HCOLOR 3
170 HLINE(336,185)-(320,178),PSET:HLINE-(320,170),PSET
180 HLINE(288,185)-(304,178),PSET:HLINE-(304,170),PSET
190 HPAINT(312,180),1,3:HPAINT(312,150),1,3
200 HCIRCLE(314,142),34,3,1.8,.3,.5
210 HCIRCLE(314,142),32,3,1.9,.3,.5
220 HLINE(307,181)-(307,172),PSET:HCIRCLE(312,181),5,3,1,0,.5
225 GOTO 270
230 HCIRCLE(276,146),12,3,1,.23,.75
240 HCIRCLE(277,146),7,3,1,.23,.75:HPAINT(275,142),1,3
250 HCIRCLE(348,146),12,3,1,.75,.3
260 HCIRCLE(347,146),7,3,1,.75,.3 ':HPAINT(349,142),1,3
270 REM
440 HCOLOR 2
450 HPRINT(36,18),"Asimov":HPRINT(36,19),"Awards"
500 A$="C3R80D26L80U26D3C2BR3R72D20L72U20"
510 HDRAW"BM48,106"+A$
520 HDRAW"BM154,106"+A$
530 HDRAW"BM272,106"+A$
540 HDRAW"BM384,106"+A$
550 HDRAW"BM496,106"+A$
1000 SOUND 1,10:EXEC 44539