home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 August
/
1985-08.d64
/
toolbox
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
64 lines
10 gosub 600
20 print"[147]run 100 for sine curve"
30 print "run 200 for joystick plotting"
40 end
100 gosub 1000:poke flag,0
110 sys clear:sys colr,1
120 for x=0 to 319 step.5
130 y= int(100+60*sin(x/10))
140 sys plot,x,y
150 next
160 poke 198,0:wait 198,15:gosub 2000:end
200 gosub 1000
205 sys clear:sys colr,1
210 yj(1)=-1:yj(2)=1:xj(4)=-1:xj(5)=-1:yj(5)=-1:xj(6)=-1:yj(6)=1:xj(8)=1
215 xj(9)=1:yj(9)=-1:xj(10)=1:yj(10)=1
220 jv=15-(peek(56320)and15)
230 x=x+xj(jv)
240 y=y+yj(jv):poke flag,0
245 if(peek(56320)and16)=0then poke flag,1
250 sys plot,x,y:goto 220
600 sa=49152:for a=sa to sa+186:read b:ck=ck+b:poke a,b:next
605 if ck=19865 then return
610 print "[147] error in data ":end
620 data 169,0,133,2,169,32
630 data 133,3,162,32,160,0
640 data 152,145,2,136,208,251
650 data 230,3,202,208,246,96
660 data 169,0,133,2,169,4
670 data 133,3,32,177,192,152
680 data 162,4,160,0,145,2
690 data 136,208,251,230,3,202
700 data 208,246,96,32,177,192
710 data 133,5,152,41,248,133
720 data 4,152,41,7,133,6
730 data 32,177,192,152,74,74
740 data 74,133,3,152,41,248
750 data 133,2,169,0,133,251
760 data 162,3,6,2,38,251
770 data 202,208,249,165,3,24
780 data 101,251,133,3,152,41
790 data 7,24,101,2,133,2
800 data 144,2,230,3,24,101
810 data 4,133,2,165,3,105
820 data 32,133,3,165,3,101
830 data 5,133,3,166,6,232
840 data 169,0,56,106,202,208
850 data 252,166,252,240,27,160
860 data 0,72,81,2,145,2
870 data 169,0,133,162,165,162
880 data 201,2,208,250,104,73
890 data 255,49,2,145,2,24
900 data 144,6,160,0,17,2
910 data 145,2,96,32,253,174
920 data 32,158,173,32,170,177
930 data 96
1000 rem turn on hires graphics
1010 sa = 49152:poke53272,peek(53272)or8:rem put bit map at 8192
1020 poke 53265,peek(53265)or32:rem turn bit map on
1025 clear = sa:colr = sa+24:plot = sa+51:flag = 252
1030 return
2000 rem turn off hires graphics
2010 poke 53272,21:poke 53265,27:rem restore default values
2020 print "[147]":return