home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 September / 1991-09.d64 / speedswap (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  41 lines
  1. 0 clr
  2. 10 rem copyright 1991 compute publications intl ltd - all rights reserved
  3. 20 poke808,234:print"[147][155]";:dimx,q$,a,b,c,s,e,e$:x=121:e$="[196][193][212][193][160][197][210][210][207][210] in [204]ines"
  4. 30 s=828:e=934:gosub180:ifc<>11409thenprinte$190"-"250:stop
  5. 40 syss:print"[211]peed[211]cript 3.2 [211]peed[211]wap":print"[151][195]opyright 1991"
  6. 50 print"[195][207][205][208][213][212][197] [208]ublications [201]ntl [204]td":print"[193]ll [210]ights [210]eserved"
  7. 60 s=53000:e=53226:gosub180:ifc<>25771thenprinte$260"-"390:sys906:stop
  8. 70 print"[208]ress [195][210][211][210] up/down to select size       (in bytes) of each text area."
  9. 80 print"[208]ress [210][197][212][213][210][206] to load [211]peed[211]cript."
  10. 90 print"[208]ress [195][212][210][204]/[195]= from within [211]peed[211]cript   to swap text areas."
  11. 100 fora=.to1:print"[212]ext [193]rea"aspc(8)"[196]isk [194]locks":next
  12. 110 print"[212]otal [194]ytes 43264   [212]otal [194]locks 169[145]"
  13. 120 print"[145][145]"spc(11-(x<77))x*256-9472spc(13-(x<137)-(x<47))" "x-37
  14. 130 printspc(11-(x>166));52992-(x+1)*256;spc(13-(x>106)-(x>196));" ";206-x
  15. 140 getq$:on-(q$=""orq$="[145]")goto170:ifq$<>chr$(13)then140
  16. 150 poke53041,x:x=x+1:poke53209,x:poke53218,x:poke53224,x:poke53226,x
  17. 160 sys906:print"[147][155][204]oading [211]peed[211]cript...":poke808,237:syss:end
  18. 170 x=x+(q$="")-(q$="[145]"):x=x-162*((x=40)-(x=203)):poke646,-(x=121):goto120
  19. 180 c=.:fora=s toe:readb:pokea,b:c=c+b:next:return
  20. 190 data120,169,0,141,14,220,169,27,141,17,208,169,91,141,20,3,169
  21. 200 data3,141,21,3,169,1,141,26,208,141,18,208,88,96,169,58,172
  22. 210 data135,3,205,18,208,208,8,169,1,172,136,3,140,32,208,140,33
  23. 220 data208,141,18,208,201,1,240,8,169,1,141,25,208,76,188,254,169
  24. 230 data1,141,25,208,76,49,234,0,12,0,120,169,0,141,26,208,141
  25. 240 data32,208,141,33,208,169,49,141,20,3,169,234,141,21,3,169,1
  26. 250 data141,14,220,88,96
  27. 260 data169,5,162,8,168,32,186,255,169,11,162,205,160,207,32,189,255
  28. 270 data169,0,133,10,141,8,32,32,213,255,169,76,162,207,141,134,10
  29. 280 data142,135,10,142,11,32,169,121,141,177,9,169,37,141,9,32,173
  30. 290 data29,13,141,235,207,173,44,13,141,236,207,32,55,9,76,13,8
  31. 300 data162,49,142,38,216,173,11,32,201,207,240,1,202,142,38,4,173
  32. 310 data141,2,201,6,208,103,165,2,160,0,145,57,132,162,165,162,41
  33. 320 data16,240,250,162,3,189,12,32,157,220,207,202,16,247,162,3,189
  34. 330 data19,32,157,227,207,202,16,247,160,16,185,8,32,190,216,207,153
  35. 340 data216,207,138,153,8,32,136,16,240,162,1,181,57,188,233,207,157
  36. 350 data233,207,152,149,57,202,16,242,173,29,13,172,235,207,140,29,13
  37. 360 data141,235,207,173,44,13,172,236,207,140,44,13,141,236,207,160,0
  38. 370 data177,57,133,2,32,246,9,76,228,255,83,80,69,69,68,83,67
  39. 380 data82,73,80,84,0,122,0,207,0,0,0,0,40,0,122,0,0
  40. 390 data0,0,0,122,0,122
  41.