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