home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / line locker.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  3.1 KB  |  80 lines
  1. 0 rem"[160][160][212][200][201][211][160][208][210][207][199][210][193][205][160][196][201][211][208][204][193][217][211][160][193][160][204][207][195][203][197][196][160][204][201][206][197][160][160][160]"
  2. 2 gosub60100:clr:poke53280,2:print"[147]"
  3. 3 d1$="....................[211][195][210][207][204][204][201][206][199]......."
  4. 4 d2$="...................................."
  5. 7 poke251,2:rem set up color of text, poke with 0-8
  6. 9 fori=828to840:readx:pokei,x:next:fori= 841to 861:readx:pokei,x:next
  7. 10 data120,169,73,141,20,3,169,3,141,21,3,88,96,160
  8. 11 data0,185,7,8,153,0,4,165,251,153,0,216,200,192,40,208,240,76,49,234
  9. 20 sys828:print"[147]   [212]he first line of the screen is"
  10. 22 print"locked which will prevent scrolling"
  11. 24 print"from erasing it. [194]ut, since this is"
  12. 25 print"wedged in the [201][210][209] vector, it flickers"
  13. 26 print"quite a bit ..."
  14. 27 print"   [208]ress [211][208][193][195][197] to scroll dummy text.":poke198,.
  15. 28 geta$:ifa$<>" "then28
  16. 30 print"[147]"
  17. 32 fora=1to80:printd1$d2$;:next
  18. 34 print"[147]    [193]nother way to do this is to use"
  19. 36 print"the 64's built-in scroll routines. [201]t"
  20. 38 print"does the same thing, and allows you to"
  21. 40 print"leave any number of lines at the top"
  22. 42 print"or bottom of the screen. [201]n order to"
  23. 44 print"use them, you'll need to disable"
  24. 46 print"[198][193][211][212][204][207][193][196] (if it's installed) and copy"
  25. 48 print"[194][193][211][201][195] and [203][197][210][206][193][204] [210][207][205] to the [210][193][205] that"
  26. 50 print"lies beneath each. [212]hen, when you [208][207][203][197]"
  27. 52 print"the number of lines you want to stay"
  28. 54 print"fixed at the top of the screen, plus 1,"
  29. 56 print"in address 59639 they won't scroll --"
  30. 58 print"and there's no flicker, either!"
  31. 60 print"   [208]ress [211][208][193][195][197] to scroll dummy text.":poke198,.
  32. 62 geta$:ifa$<>" "then62
  33. 64 sys65418:print"[147]":gosub1000
  34. 65 print"[147]   [212]histextwillnotscrolloffthescreen."
  35. 66 fora=1to80:printd1$d2$;:next:print""
  36. 68 poke1,55:print"     [212]o set things back to normal,"
  37. 70 print"   [208][207][203][197] 1,55. [198]or a description of how"
  38. 72 print"   to use the [210][207][205] routines, see lines"
  39. 74 print"   1000 - 1110 of this program."
  40. 76 print"[208]ress [193][146] to see demo again; [210][197][212][213][210][206][146] to"
  41. 78 print"quit."
  42. 80 a=peek(197):ifa=10then20
  43. 82 ifa=1then60000
  44. 84 goto80
  45. 999 stop
  46. 1000 poke770,131:poke771,164:rem             disable fastload
  47. 1010 poke88,.:poke89,192 :rem copies
  48. 1020 poke90,.:poke91,192 :rem basic to
  49. 1030 poke781,33:poke782,.:rem ram
  50. 1040 sys41964:rem actually does the                       copying of bytes
  51. 1050 poke88,254:poke89,255:rem copies
  52. 1060 poke90,254:poke91,255:rem kernal
  53. 1070 poke781,33:poke782,. :rem to ram
  54. 1080 sys41964:rem actually does the                       copying of bytes
  55. 1090 poke59639,7:rem don't scroll the                  ^     top 8 lines
  56. 1091 rem the 7 ^ means 7 + 1 (8) lines           will not scroll on top ...
  57. 1100 poke1,53:rem switch in the new                       scroll routine
  58. 1110 return
  59. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  60. 60010 print"[147]";:ifer<>63thenend
  61. 60020 load"hello connect",8
  62. 60099 stop
  63. 60100 sys65418:poke53280,10:poke53281,1
  64. 60110 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  65. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  66. 60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
  67. 60140 fora=217to242:pokea,peek(a)or128:next
  68. 60150 print"[144]          [204][207][193][196][211][212][193][210] [208]resents:"
  69. 60155 print"                              [146]"
  70. 60160 print"             [204]ine [204]ocker      [152] [146]"
  71. 60165 print"                              [152] [146]"
  72. 60170 print"         [194]y [196]onald [200]. [199]raham  [152] [146]"
  73. 60175 print"                              [152] [146]"
  74. 60180 print"           ([195])opyright 1987   [152] [146]"
  75. 60185 print"                              [152] [146]"
  76. 60187 print"        [152]                       [146]"
  77. 60190 print"       [208]ress [211][208][193][195][197] to continue.":poke198,.
  78. 60193 geta$:ifa$<>" "then60193
  79. 60197 return
  80.