home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 December / 1984-12.d64 / autoline_vic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  984 b   |  28 lines
  1. 10 poke56,30:poke55,0:rem pointers to normal top of memory on vic
  2. 20 print"[147]place at top memory,":print"or in cassette buffer"
  3. 30 input"(t[146]/c[146])";a$:ifa$<>"t"anda$<>"c"then30
  4. 40 if a$="c" then sa=828:goto70
  5. 50 t=peek(55)+peek(56)*256:t=t-104:poke56,int(t/256):poke55,t-int(t/256)*256:sa=t
  6. 60 poke52,int(t/256):poke51,t-int(t/256)*256
  7. 70 fori=satosa+103:reada:x=x+a:pokei,a:next
  8. 80 sb=sa+29:pokesa+7,int(sb/256):pokesa+2,sb-int(sb/256)*256
  9. 90 sc=sa+88:pokesa+23,int(sc/256):pokesa+18,sc-int(sc/256)*256
  10. 100 if x<>11575 then print"error in data statements.":end
  11. 110 in=10:pokesa+46,in:rem increment change
  12. 120 print"[147]sys"str$(sa)" to run[146]":new
  13. 130 data 120,169,89,141,2,3,169
  14. 140 data 3,141,3,3,169,0,133
  15. 150 data 20,133,21,169,148,141,20
  16. 160 data 3,169,3,141,21,3,88
  17. 170 data 96,173,21,3,201,234,208
  18. 180 data 6,32,138,255,76,131,196
  19. 190 data 165,20,24,105,10,133,99
  20. 200 data 165,21,105,0,133,98,162
  21. 210 data 144,56,32,73,220,32,221
  22. 220 data 221,162,0,189,1,1,240
  23. 230 data 6,157,119,2,232,208,245
  24. 240 data 169,32,157,119,2,232,134
  25. 250 data 198,76,131,196,32,225,255
  26. 260 data 208,8,32,138,255,169,13
  27. 270 data 32,210,255,76,191,234
  28.