10REM SmartBASIC V2.0 enhancements
14REM by ADAMagic SOFTWARE
15REM put to public domain 11/10/87
16REM CATALOG to CAT change not made to preserve 100% compatability 
17TEXT:VTAB 10
18? " Install 40 columns? (no demo)  (y/n) "; :GET a$:IF a$="n" OR a$="N" THEN 180
19IF a$="y" OR a$="Y" THEN 21
20?:? CHR$(7); " y or n please!":GOTO 18
21REM 40 columns with INVERSE
22REM -NO sprites in 40 col. mode-
23FOR x=17205 TO 17287:READ a:POKE x, a:NEXT
30POKE 17302, 192:POKE 17291, 192:POKE 18176, 40:POKE 17339, 240:POKE 17323, 39:POKE 17326, 0
60POKE 18460, 205:POKE 18461, 121:POKE 18462, 67
100DATA 1,240,7,205,32,253,205,56,253,33,0,220,17,0,0,1,0,4,205,29,253,33,0,220,126,238,255,119
110DATA 35,62,224,188,40,2,24,244,62,0,245,87,30,0,33,0,0,1,128,0,205,23,253,241,238,4,87,30,0
120DATA 33,0,220,1,0,4,205,26,253,24,15,41,197,229,41,41,193,58,3,66,183,32,1,9,193,201
150FOR x=24512 TO 24538:READ a:POKE x, a:NEXT
160DATA 33,32,32,34,42,66,175,50,3,66,50,71,66,205,239,95,205,19,67,33,248,2,62,255,205,198,67
164REM change the cursor:::::::::::::  poke 17350,201:TEXT will get back the   underline cursor
165FOR x=17350 TO 17357:READ a:POKE x, a:NEXT
170DATA 17,8,0,205,38,253,201,0
171FOR x=17183 TO 17188:READ a:POKE x, a:NEXT
172DATA 62,32,50,58,66,0
180REM correct the color tables
190FOR x=0 TO 15:POKE 25378+x, x:POKE 25360+x, x:NEXT
220REM get rid of poke limit
230POKE 1648, 255:POKE 1649, 255
240REM change ^C and ^S
250POKE 1633, 27:REM escape = ^C
260POKE 1634, 144:REM wildcard = ^S
270REM sprite bug fixes
275IF a$="y" OR a$="Y" THEN 290
280POKE 17229, 200:REM fix sequence
290POKE 11943, 208:REM fix on/off USE 12454,208 in EXTMEM
295IF a$="y" OR a$="Y" THEN 400
298REM ---------------------
299REM 32 col.TEXT & SPRITES
300REM ---------------------
301POKE 16788, 1:REM change DRAW command to draw sprites
302POKE 17184, 7:REM aqua bkg
303POKE 17240, 244:REM blue screen & white text
304POKE 17251, 27:REM INVERSE yel bkg & blk text
305TEXT:?:INVERSE:? "                              ":? "       SmartBASIC V2.0        ":? "                              "
306VTAB 12:? "     TEXT AND SPRITES!!!      ":NORMAL
307POKE 17339, 226:CALL 17338:REM normal size sprites
308FOR x=255 TO 0 STEP -1
309HCOLOR =1:DRAW 1 AT x, 50
310HCOLOR =3:DRAW 2 AT x, 70
311HCOLOR =2:DRAW 3 AT x, 90
312HCOLOR =9:DRAW 4 AT x, 110
313NEXT
314POKE 17339, 227:CALL 17338:REM double size sprites
315?:? "     & SIMPLE ANIMATION!"
316FOR x=0 TO 255
317HCOLOR =1:DRAW 1 AT x, 10
318HCOLOR =3:DRAW 2 AT x, 60
319HCOLOR =2:DRAW 3 AT x, 110
320HCOLOR =9:DRAW 4 AT x, 160
321NEXT:CALL 64809:REM erase sprites
322POKE 16788, 0:REM return DRAW command to normal
350?:?:? " LIST the program and read the           REM statements.":?:?:?:END
400POKE 17206, 244:REM blue screen and white text
440TEXT:INVERSE:? "                                       ":? "     SmartBASIC V2.0 (40 columns)      ":? "                                
450NORMAL:GOTO 350
500END
550REM --- MORE TO COME! ---
600REM anybody care to tackle a 40 column driver for CP/M?
