0 REM123456789012345678901234567890123456789012345678901234567890123
1 REM1234567890123456789012345678901234567890123456789012345678901234567890
2 REM1234567890123456789012345678901234567890123456789012345678901234567890
3 REM1234567890123456789012345678901234567890123456789012345678901234567890
20 IF A THEN 110
100 A=-1:LOAD"RAM.EXE",8,1
110 REM MOVE BASIC ROM INTO RAM AT $A000 - $BFFF
120 DATA 165,1,41,254,133,1,96,160,255,200,32,32,8,190,1,1,32,6,8,138,153,1,1
130 DATA 200,208,240,165,1,9,1,133,1,96,32,6,8,24,162,255,232,160,255,200,185
135 DATA 75,8,133,20,185,151,8,48,01,96,133,21,185,227,8,129,20,144,235
139 DATA 0
140 AD = 2054
150 READ A : IF A<>0 THEN POKE AD,A : AD = AD+1 : GOTO 150
155 REM
156 REM QUIKWORD LOADER QW -
157 REM ALTER BASIC ROM FOR QUIKWORD
158 REM
160 REM COPY ROM -
165 POKE 2068,0 : POKE 2075,0
170 FOR X = 160 TO 191
190 POKE 2069,X : POKE 2076,X
200 SYS 2061
210 NEXT X
220 POKE 2068,1 : POKE 2075,1
221 REM DATA FOR ROM EXECUTE ALTERATION
223 X=0 : DATA 225,167,76,226,167,105,227,167,192
224 DATA 173,175,76,174,175,74,175,175,196
227 DATA 0
228 READ T1 : IF T1=0 THEN 230
229 READ T2,T3 : POKE 2123+X,T1:POKE2199+X,T2:POKE2275+X,T3:X=X+1:GOTO 228
230 SYS 2087 : REM ALTER ROM
231 REM
232 POKE 42500,76 : POKE 42501,194 : POKE 42502,192
240 REM
241 POKE 774,150 : POKE 775,192
250 REM
251 POKE 40996,49:POKE 40997,193
300 PRINT"[147]LOAD";CHR$(34);"QUIKWORD";CHR$(34);",8RUN";
310 POKE 631,13 : POKE 632,13 : POKE 198,2 : END