2REM SmartBASIC 1.0 fix  
4REM by ADAMagic Software
6REM for public domain
8REM 6/87
10REM *** RECOMMENDED FOR
12REM *** USE ON A VIRGIN
14REM *** COPY OF SMART
16REM *** BASIC V1.0 ONLY!
18REM 
20TEXT:INVERSE:? "           SB1FIX             ":NORMAL:?
22? " BSAVE,BLOAD & BRUN fixed"
24? " Dedicated keys are active"
26? " DATA/REM space bump fix"
28? " TEXT,COLOR,HCOLOR and SCRN"
30? " now use the same color code"
32? " Use ADAM or parallel printer"
34? " CALL 10 for ADAM printer"
36? " CALL 25 for parallel printer"
38? " POKE limit set to 65535(dec)"
40? " Input line length  239 chars."
42? " Softswitch 32/40 columns"
44? " TEXT = switch to 32 columns"
46? " & = switch to 40 columns"
48? " RESTORL command added"
50? " Various other goodies & fixes"
52REM parallel printer driver
54REM by Wayne Motel
56DATA 229,33,21,245,34,100,252,33,252,244,34,103,252,225,201
58DATA 229,33,70,0,34,100,252,33,57 ,0,34,103,252,225,201
60DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
62DATA 229,33,41,0,54,3,43,119,205,99,252,225,201
64DATA 126,254,3,40,13,245,219,64,230,1,40,250,241,211,64,35,24,238,201
66DATA 0,229,33,40,0,205,99,252,225,201
68FOR x=10 TO 98:READ a:POKE x,a:NEXT
70REM -CALL 10- PR#1 outputs to ADAM printer
72REM -CALL 25- PR#1 outputs to parallel printer
74REM you only have to CALL ONCE all PR#1 commands after that will go to the printer you picked until you reset or CALL again 
76REM install RESTORL command
78POKE 797,173:POKE 798,3:POKE 6551,89:POKE 6552,4
80DATA 217,13,217,19,26,205,239,5,237,67,79,63
82DATA 205,240,48,210,184,32,34,245,62,62,0,50,249,62,201
84FOR x=1113 TO 1139:READ a:POKE x,a:NEXT
86DATA 82,69,83,84,79,82,76
88FOR x=800 TO 806:READ a:POKE x,a:NEXT
90REM the RESTORL replaces the NOBREAK command
92REM RESTORL works like the RESTORE command but requires a line number
94REM for example RESTORL 2060 would restore the data pointer to line 2060
96POKE 16149,255:POKE 16150,255:REM reset poke limit to top of memory
98REM BSAVE & BLOAD fixes
100POKE 19459,34:POKE 19460,249
102DATA 16601,63817,19585
104FOR x=1 TO 3:READ a:POKE a,35:POKE a+1,249:NEXT
106DATA 16604,19558,19563,19576,19595
108FOR x=1 TO 5:READ a:POKE a,73:POKE a+1,249:NEXT
110POKE 19566,72:POKE 19567,249
112POKE 11954,32:POKE 20389,0:REM eliminate BRUN error message
114REM DATA/REM space fix
116POKE 15824,216:POKE 15830,8:POKE 15831,55:POKE 15832,19
118REM SCRN,HCOLOR,& COLOR   fix 
120POKE 18728,121:POKE 18729,0:POKE 18730,0
122POKE 18735,121:POKE 18736,0:POKE 18737,0
124POKE 19256,0:POKE 19257,0:POKE 19258,0
126REM change color tables
128FOR x=0 TO 15:POKE 18765+x,x:POKE 18781+x,x:NEXT
130REM 40 column driver
132REM by Digital Express
134REM TEXT=32 column...&=40 column 
136DATA 17985,18036,18098,18162,18174,18188,18210,18234,18401,18410,18427
138FOR x=1 TO 11:READ adr:POKE adr,131:POKE adr+1,45:NEXT
140POKE 17166,192:POKE 17177,192
142POKE 17059,241:POKE 17115,241:POKE 17126,246:REM new default background,text and inverse colors
144DATA 41,197,229,41,41,193,58,112,66,183,32,1,9,193,201
146FOR x=0 TO 14:READ ml:POKE x+11692,ml:NEXT
148DATA 245,229,62,30,50,47,67,62,224,50,63,67,62,32,50,68,70
150DATA 62,41,50,96,71,33,41,41,34,97,71,225,241,195,57,43
152FOR x=0 TO 32:READ ml:POKE x+11707,ml:NEXT
154DATA 245,229,62,39,50,47,67,62,240,50,63,67,62,40,50,68,70
156DATA 62,205,50,96,71,33,172,45,34,97,71,225,241,195,57,43
158FOR x=0 TO 32:READ ml:POKE x+11740,ml:NEXT
160POKE 6421+2*41,187:POKE 6422+2*41,45
162POKE 813,208:POKE 816,38:REM changed T to & command to eliminate problems with t variables
164POKE 6421+2*66,220:POKE 6422+2*66,45
166REM other changes
168POKE 12185,239:REM make line length 239 characters
170POKE 16134,27:REM make ESCAPE = ^C
172POKE 16135,144:REM make WILD CARD = ^S
174POKE 12374,148:REM make INSERT = ^N
176POKE 12375,151:REM make DELETE = ^O
177POKE 12376,145:REM make UNDO = ^X
178POKE 17302,149:POKE 18320,149:REM make PRINT = ^P
180POKE 12380,150:POKE 18307,150:POKE 19311,150:REM make CLEAR = ^L
182POKE 23240,32:REM allow spaces in file & volume names 
184POKE 25308,2:REM make directory 2 blocks long - 70 file names
186POKE 21019,11:REM lets BRUN accept a drive suffix
188POKE 20619,72:REM allows 'h' type file recovery
190POKE 13357,0:POKE 13349,0:REM get rid of extra spaces after ; and , in program listings
192POKE 1145,0:REM turn off prompt allows easy editing of lines with 5 digit line numbers
194POKE 18607,0:POKE 18633,0:REM make GR screen transparent
196POKE 25431,0:POKE 25471,0:REM make HGR screen transparent
198?:?:? " LIST program and":? " read REM statements"
200END
