home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
37.dms
/
37.adf
/
hiqix.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
1KB
|
61 lines
1 scnclr
2 goto 10000
3 rem****
4 screen 1,4
6 c=1
7 nc=0
8 input "tail length";tl
9 scnclr
10 x = 24 : y = 50
11 xx=24 : yy=50
20 z = 24 : k = 100
21 zz=24 : kk=100
30 dx = 5 : dy = 5
31 ex=5 : ey=5
40 dz = 7 : dk = 7
41 ez=7 : ek=7
42 pena 0 : paint (10,10)
50 c=c+1 : pena c
51 draw (x,y to z,k)
52 gosub 5000
60 x = x + dx
70 z = z + dz
80 if x < 4 or x > 640 then dx = - dx
90 if z < 4 or z > 640 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 = 16 then c = 2
140 get a$ : if a$ = chr$ (13) then 1000
150 goto 50
1000 end
5000 cc=0 : pena cc
5001 nc=nc+1 : if nc < tl then return
5050 draw (xx,yy to zz,kk)
5060 xx=xx+ex
5070 zz=zz+ez
5080 if xx < 4 or xx> 640 then ex=-ex
5090 if zz < 4 or zz> 640 then ez=-ez
5100 yy=yy+ey
5110 kk=kk+ek
5120 if yy < 5 or yy > 200 then ey=-ey
5130 if kk < 5 or kk > 200 then ek=-ek
5140 return
10000 rgb 2,2,0,0
10010 rgb 3,3,0,0
10020 rgb 4,4,0,0
10030 rgb 5,5,0,0
10040 rgb 6,6,0,0
10050 rgb 7,7,0,0
10060 rgb 8,8,0,0
10070 rgb 9,9,0,0
10080 rgb 10,10,0,0
10090 rgb 11,11,0,0
10100 rgb 12,12,0,0
10110 rgb 13,13,0,0
10120 rgb 14,14,0,0
10130 rgb 15,15,0,0
10131 rgb 0,5,5,5
10140 goto 3