home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
37.dms
/
37.adf
/
sly5.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
922b
|
38 lines
5 scnclr
6 c=1
10 x = 24 : y = 50
20 z = 24 : k = 100
30 dx = 3 : dy = 3
40 dz = 5 : dk = 5
50 circle (x,y) ,10 ,1
51 c = c+1 : peno c
60 x = x + dx
70 z = z + dz
80 if x < 4 or x > 320 then dx = - dx
90 if z < 4 or z > 320 then dz = - dz
100 y = y + dy
110 k = k + dk
120 if y < 5 or y > 200 then dy = - dy
130 if k < 5 or k > 200 then dk = -dk
131 if c = 31 then c = 1
140 get a$ : if a$ = chr$ (13) then goto 160
141 if g=6 then goto 160
150 goto 50
160 g=6
165 c1=0
170 x1 = 24 : y1 = 50
175 z = 24 : k = 50
180 dx1 = 3 : dy1 = 3
185 dz = 5 : dk = 5
186 peno c1
190 circle (x1,y1) ,10 ,1
200 x1 = x1 + dx
205 z = z + dz
210 if x1 < 4 or x1 > 320 then dx1 = - dx1
215 if z < 4 or z > 320 then dz = - dz
220 y1 = y1 + dy1
225 k = k + dk
230 if y1 < 5 or y1 > 200 then dy1 = - dy1
235 if k < 5 or k > 200 then dk = -dk
250 goto 50