home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / scroller (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  28 lines
  1. 20 fori=828to938step10:fora=0to9:readb:c=c+b:pokei+a,b
  2. 21 iff=0thenf=1:g=g+b:goto25
  3. 22 iff=1thenf=0:h=h+b
  4. 25 next:e=e+c
  5. 30 readd:ifc<>dthenprint"error in data statement "i"[157].":end
  6. 40 c=0:nexti
  7. 50 ifg<>8025orh<>7617thenprint"one or more entries in wrong order":end
  8. 60 ife<>15642thenprint"error in data statements.  check for typing error.":end
  9. 70 print"scroller poked into memory.  now saving ml version."
  10. 80 goto60100
  11. 90 end
  12. 828 data 160, 0, 169, 0, 133, 251, 169, 4, 133, 252, 1271
  13. 838 data 177, 251, 141, 253, 3, 165, 251, 201, 232, 240, 1914
  14. 848 data 42, 200, 177, 251, 136, 145, 251, 200, 192, 39, 1633
  15. 858 data 144, 245, 173, 253, 3, 145, 251, 160, 0, 32, 1406
  16. 868 data 105, 3, 76, 70, 3, 165, 251, 24, 105, 40, 842
  17. 878 data 133, 251, 176, 1, 96, 165, 252, 24, 105, 1, 1204
  18. 888 data 133, 252, 96, 96, 160, 39, 169, 0, 133, 251, 1329
  19. 898 data 169, 4, 133, 252, 165, 251, 201, 232, 240, 239, 1886
  20. 908 data 177, 251, 141, 253, 3, 136, 177, 251, 200, 145, 1734
  21. 918 data 251, 136, 192, 0, 240, 3, 76, 145, 3, 173, 1219
  22. 928 data 253, 3, 145, 251, 160, 39, 32, 105, 3, 76, 1067
  23. 938 data 134, 3, 0, 0, 0, 0, 0, 0, 0, 0, 137
  24. 60100 open15,8,15,"s:scrollermla"
  25. 60105 open1,8,1,"0:scrollermla,p,w":print#1,chr$(60)chr$(3);
  26. 60110 restore:fori=828to947:print#1,chr$(peek(i));:next
  27. 60120 close1:input#15,a$,b$,c$,d$:printa$,b$:close15:end
  28.