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