10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED 20 POKE53280,6:POKE53281,6 30 PRINT"[147]"TAB(14)" FONT MAGIC [146]":PRINTTAB(13)"COPYRIGHT 1990" 40 PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC.":PRINTTAB(11)"ALL RIGHTS RESERVED" 50 REM MAIN 60 FORA=49152TO49357:READAA:POKEA,AA:NEXT 70 DATA173,24,208,41,14,168,201,14 80 DATA240,124,162,0,152,201,12,208 90 DATA30,189,0,48,157,0,56,189,0,49 100 DATA157,0,57,189,0,50,157,0,58,189 110 DATA0,51,157,0,59,232,208,229,76 120 DATA129,192,169,0,141,14,220,169 130 DATA51,133,1,162,0,152,201,4,208 140 DATA30,189,0,208,157,0,56,189,0 150 DATA209,157,0,57,189,0,210,157,0 160 DATA58,189,0,211,157,0,59,232,208 170 DATA229,76,120,192,189,0,216,157,0 180 DATA56,189,0,217,157,0,57,189,0 190 DATA218,157,0,58,189,0,219,157,0 200 DATA59,232,208,229,169,55,133,1 210 DATA169,1,141,14,220,169,30,141,24 220 DATA208,169,248,141,199,192,141 230 DATA203,192,169,59,141,200,192,169 240 DATA63,141,204,192,32,225,192,173 250 DATA199,192,56,233,8,141,199,192 260 DATA141,203,192,176,239,206,200 270 DATA192,206,204,192,173,200,192 280 DATA201,55,208,226,96,169,189,141 290 DATA198,192,76,198,192,168,169,157 300 DATA141,198,192,152,189,248,59,96 310 DATA157,248,63,96 320 REM Y-EXPANDER 330 FORA=49358TO49437:READAA:POKEA,AA:NEXT 340 DATA169,225,141,153,192,169,192 350 DATA141,154,192,32,0,192,169,255 360 DATA141,7,61,96,169,7,141,234,192 370 DATA141,242,192,162,7,206,234,192 380 DATA32,183,192,162,7,206,242,192 390 DATA206,242,192,32,202,192,202,32 400 DATA202,192,173,242,192,16,228,162 410 DATA3,32,183,192,168,138,10,170 420 DATA152,32,191,192,232,32,191,192 430 DATA202,138,74,170,202,16,234,96 440 REM X-EXPANDER 450 FORA=49438TO49505:READAA:POKEA,AA:NEXT 460 DATA169,49,141,153,192,169,193,141 470 DATA154,192,32,0,192,169,255,141,7 480 DATA61,96,162,7,32,183,192,72,41 490 DATA15,168,185,82,193,32,202,192 500 DATA104,41,240,74,74,74,74,168,185 510 DATA82,193,32,191,192,202,16,226 520 DATA96,0,3,12,15,48,51,60,63,192 530 DATA195,204,207,240,243,252,255 540 REM UNDERLINER 550 FORA=49506TO49545:READAA:POKEA,AA:NEXT 560 DATA169,117,141,153,192,169,193 570 DATA141,154,192,32,0,192,169,0,141 580 DATA7,63,96,162,7,32,183,192,73 590 DATA255,32,202,192,202,32,183,192 600 DATA32,202,192,202,16,247,96 610 REM ** DEMO *** 620 PRINT"[147]" 630 POKE53272,20:SYS49438:REM X EXPAND 640 FORX=65TO90 650 PRINTCHR$(X); 660 PRINT"";CHR$(X);"[146]";:NEXT 670 PRINT:PRINT"XX[146] EE[146]XX[146]PP[146]AA[146]NN[146]DD[146]" 680 FORX=1TO2000:NEXT:PRINT"[147]" 690 POKE53272,20:SYS49358:REM Y EXPAND 700 FORX=65TO90 710 PRINTCHR$(X); 720 PRINT"[157]";CHR$(X);"[146][145]";:NEXT 730 PRINT:PRINT"Y EXPAND":PRINT"Y EXPAND" 740 FORX=1TO2000:NEXT:PRINT"[147]" 750 POKE53272,20:SYS49506:REM UNDERLINE 760 FORX=65TO90 770 PRINT"";CHR$(X);:NEXT 780 PRINT:PRINT"UNDERLINE TEXT" 790 FORX=1TO2000:NEXT:PRINT"[147]"