10 REM COPYRIGHT 1989 COMPUTE PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 GOSUB1000:REM INSTALL SHADES
30 RESTORE:SYS49152,0,0,2,8,7,1
40 PRINT""TAB(16)"SHADES"
50 PRINTTAB(12)"COPYRIGHT 1989"
60 PRINTTAB(6)"COMPUTE! PUBLICATIONS, INC."
70 PRINTTAB(10)"ALL RIGHTS RESERVED"
80 PRINT"                                        "
90 PRINTTAB(5)"SHADES PROVIDES A NEW GRAPHICS
100 [153][163]5)"MODE THAT ENHANCES TEXT WITH
110 PRINTTAB(5)"A FOUR COLOR SHADING EFFECT.
120 [153][163]5)"YOU CAN EASILY TRANSFORM YOUR
130 PRINTTAB(5)"NORMAL TEXT SCREENS INTO
140 [153][163]5)"PROFESSIONAL LOOKING DISPLAYS.
150 PRINT"                                        "
160 PRINTTAB(5)"PRESS ANY KEY TO CHANGE COLORS
170 [153][163]10)"OR <RETURN> TO EXIT";
180 [151]198,0:[146]198,1:[161]A$:[139]A$[178][199](13)[167]220
190 [135]C1,C2,C3,C4:[139]C1[178][171]1[167][140]:[137]180
200 [158]49250,C1,C2,C3,C4:[137]180
210 [158]49250,0,C2,C3,C4:[141]240:[158]49250,0,0,C3,C4:[141]240
220 [158]49250,0,0,0,C3:[141]240:[158]49250,0,0,0,0:[158]49275:[153]"LOAD":[128]
230 [131]14,1,8,7,1,7,8,2,14,1,8,9,5,7,8,9,6,14,8,2,6,14,3,1,-1,-1,-1,-1
240 [129]DL[178]1[164]100:[130]:[142]
1000 [151]785,232:[151]786,7:[151]209,232:[151]210,7:[151]211,0:[151]213,39
1010 RL[178]1050:[153]" S&$WAIT(null)HDWAITATN$WAITCLOSEDWAITPEEKCLOSE":[158]47083(RL),[183](0)
1020 [129]U[178]49152[164]49358:[135]Q:[151]U,Q:CK[178]CK[170]Q:[130]
1030 [139]CK[179][177]26792[167][153]"ERROR IN DATA":[128]
1040 [142]
1050 [131]162,26,181,216,9,128,149,216,202,208,247,32,155,183,142,32,208,32
1060 [131]155,183,169,160,160,251,153,255,3,153,249,4,153,243,5,153,237,6
1070 [131]136,208,241,138,160,251,153,255,215,153,249,216,153,243,217,153,237
1080 [131]218,136,208,241,141,134,2,120,169,127,141,13,220,169,1,141,26,208,169
1090 [131]48,133,251,141,18,208,169,27,141,17,208,169,152,141,20,3,169,192
1100 [131]141,21,3,169,5,133,2,88,32,155,183,142,169,2,32,155,183,142
1110 [131]168,2,32,155,183,142,167,2,32,155,183,142,170,2,96,120,169,49
1120 [131]141,20,3,169,234,141,21,3,169,240,141,26,208,169,255,141,13,220
1130 [131]173,169,2,141,33,208,88,96,169,1,141,25,208,198,2,208,4,162
1140 [131]4,134,2,166,2,189,166,2,141,33,208,165,251,24,105,2,201,252
1150 [131]176,11,133,251,141,18,208,104,168,104,170,104,64,169,48,133,251,141
1160 [131]18,208,169,5,133,2,76,49,234