home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 December
/
1988-12.d64
/
newquick
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
41 lines
10 rem copyright 1988 compute! publications, inc. - all rights reserved
15 print"[147]":poke53280,14:poke53281,6
20 print" [195]opyright 1988 [195][207][205][208][213][212][197]! [208]ub., [201]nc."
30 printtab(11)"[193]ll [210]ights [210]eserved":print""
40 printtab(11)"[209]uick [210]elocator"
50 print" [209]uick must be residing in memory"
60 print" before attempting to relocate it."
70 input"[211][207][213][210][195][197] [194][204][207][195][203]([196][197][195])";oa
80 input"[196][197][211][212][201][206][193][212][201][207][206] [194][204][207][195][203]";m
90 ifm>203or(m<192andm>155)orm<54then80
100 ifm=oathen210
110 oa=oa*256:sa=m*256
120 ifm<160thenpoke56,m:poke52,m:poke51,0:poke55,0
130 fori=0to1023:pokesa+i,peek(oa+i):next
140 ifm<160thenpoke1+sa,11:goto160
150 poke1+sa,74:ss=sa:mm=m
160 ss=sa:mm=m:ii=15:gosub340
170 ss=sa:mm=mm+1:ii=9:gosub340
180 mm=mm+1:pokess+233,mm
190 ss=sa:mm=mm+2:ii=13:gosub340
200 poke ss+36,mm+1:pokess+30,m-1
210 print"save file [y[146]/n[146]] ";
220 gets$:ifs$<>"n"ands$<>"y"then220
230 prints$:ifs$="n"thenend
240 print:input"filename [without '0:']";n$
250 n$="0:"+n$
260 l=len(n$):lm=0:hm=m+4:mm=lm+hm*256:poke157,255
270 fori=0tol-1:pokemm+i,asc(mid$(n$,i+1,1)):next:pokemm+l,13
280 poke780,l+1:poke781,lm:poke782,hm:sys189+255*256
290 poke780,1:poke781,8:poke782,1:sys186+255*256
300 poke251,0:poke252,m:poke780,251:poke781,0:poke782,m+4:sys216+255*256
310 open15,8,15:input#15,a,b$,c,d:close15
320 ifa<>0thenprint:printa;b$;c;d
330 end
340 fori=1toii:reada:ifa<0thenss=ss+256:next
350 pokess+a,mm
360 next:return
370 data2,18,79,88,-1,44,47,133,165,242,245,253,-1,35,38
380 data159,162,203,-1,2,26,41,142,248
390 data112,150,210,226,241,244,-1,9,16,63,84,110,218