home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
37.dms
/
37.adf
/
col.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
4KB
|
147 lines
1 goto 200
5 rem
10 scnclr
11 c=0 : c1=1 : c2=2 : c3=3 : c4=4 : c5=5 : c6=6 : c7=7 : c8=8
12 c9=9 : c10=10 : c11=11 : c12=12 : c13=13 : c14=14 : c15=15 : c16=16
13 c17=17 :c18=18 : c19=19 : c20=20 : c21=21 : c22=22 : c23=23 : c24=24
14 c25=25 : c26=26 : c27=27 : c28=28 : c29=29 : c30=30 : c31=31
15 y=1 : y1=47 : y2=95 : y3=141
16 pena c
17 draw (1,y to 37,y)
18 if y=46 then c=c+1 : if c=32 then c=0
19 y=y+1 : if y=47 then y=1
20 pena c1
21 draw (38,y to 74,y)
22 if y=46 then c1=c1+1 : if c1=32 then c1=0
23 pena c2
24 draw (75,y to 111,y)
25 if y=46 then c2=c2+1 : if c2=32 then c2=0
26 pena c3
27 draw (112,y to 148,y)
28 if y=46 then c3=c3+1 : if c3=32 then c3=0
29 pena c4
30 draw (149,y to 185,y)
31 if y=46 then c4=c4+1 : if c4=32 then c4=0
32 pena c5
33 draw (186,y to 222,y)
34 if y=46 then c5=c5+1 : if c5=32 then c5=0
35 pena c6
36 draw (223,y to 259,y)
37 if y=46 then c6=c6+1 : if c6=32 then c6=0
38 pena c7
39 draw (260,y to 297,y)
40 if y=46 then c7=c7+1 : if c7=32 then c7=0
41 pena c8
42 draw (1,y1 to 37,y1)
43 if y1=93 then c8=c8+1 : if c8=32 then c8=0
44 y1=y1+1 : if y1=94 then y1=47
45 pena c9
46 draw (38,y1 to 74,y1)
47 if y1=93 then c9=c9+1 : if c9=32 then c9=0
48 pena c10
49 draw (75,y1 to 111,y1)
50 if y1=93 then c10=c10+1 : if c10=32 then c10=0
51 pena c11
52 draw (112,y1 to 149,y1)
53 if y1=93 then c11=c11+1 : if c11=32 then c11=0
54 pena c12
55 draw (149,y1 to 185,y1)
56 if y1=93 then c12=c12+1 : if c12=32 then c12=0
57 pena c13
58 draw (186,y1 to 222,y1)
59 if y1=93 then c13=c13+1 : if c13=32 then c13=0
60 pena c14
61 draw (223,y1 to 259,y1)
62 if y1=93 then c14=c14+1 : if c14=32 then c14=0
63 pena c15
64 draw (260,y1 to 296,y1)
65 if y1=93 then c15=c15+1 : if c15=32 then c15=0
66 pena c16
67 draw (1,y2 to 37,y2)
68 if y2=140 then c16=c16+1 : if c16=32 then c16=0
69 y2=y2+1 : if y2=141 then y2=94
70 pena c17
71 draw (38,y2 to 74,y2)
72 if y2=140 then c17=c17+1 : if c17=32 then c17=0
73 pena c18
74 draw (75,y2 to 111,y2)
75 if y2=140 then c18=c18+1 : if c18=32 then c18=0
76 pena c19
77 draw (112,y2 to 148,y2)
78 if y2=140 then c19=c19+1 : if c19=32 then c19=0
79 pena c20
80 draw (149,y2 to 185,y2)
81 if y2=140 then c20=c20+1 : if c20=32 then c20=0
82 pena c21
83 draw (186,y2 to 222,y2)
84 if y2=140 then c21=c21+1 : if c21=32 then c21=0
85 pena c22
86 draw (223,y2 to 259,y2)
87 if y2=140 then c22=c22+1 : if c22=32 then c22=0
88 pena c23
89 draw (260,y2 to 297,y2)
90 if y2=140 then c23=c23+1 : if c23=32 then c23=0
91 pena c24
92 draw (1,y3 to 37,y3)
93 if y3=187 then c24=c24+1 : if c24=32 then c24=0
94 y3=y3+1 : if y3=188 then y3=141
95 pena c25
96 draw (38,y3 to 74,y3)
97 if y3=187 then c25=c25+1 : if c25=32 then c25=0
98 pena c26
99 draw (75,y3 to 111,y3)
100 if y3=187 then c26=c26+1 : if c26=32 then c26=0
101 pena c27
102 draw (112,y3 to 148,y3)
103 if y3=187 then c27=c27+1 : if c27=32 then c27=0
104 pena c28
105 draw (149,y3 to 185,y3)
106 if y3=187 then c28=c28+1 : if c28=32 then c28=0
107 pena c29
108 draw (186,y3 to 222,y3)
109 if y3=187 then c29=c29+1 : if c29=32 then c29=0
110 pena c30
111 draw (223,y3 to 259,y3)
112 if y3=187 then c30=c30+1 : if c30=32 then c30=0
113 pena c31
114 draw (260,y3 to 296,y3)
115 if y3=187 then c31=c31+1 : if c31=32 then c31=0
116 ask mouse x%, y%, b%
117 if b% <> 0 then end
118 goto 16
200 screen 0,5,0
210 rgb 0,0,0,0
215 rgb 1,3,0,0
220 rgb 2,5,0,0
230 rgb 3,7,0,0
240 rgb 4,8,0,0
250 rgb 5,10,0,0
260 rgb 6,12,0,0
270 rgb 7,15,0,0
280 rgb 8,15,4,0
290 rgb 9,15,8,0
300 rgb 10,15,12,0
310 rgb 11,15,15,0
320 rgb 12,0,5,0
330 rgb 13,0,6,0
340 rgb 14,0,7,0
350 rgb 15,0,8,0
360 rgb 16,0,10,0
370 rgb 17,0,12,0
380 rgb 18,0,15,0
390 rgb 19,0,15,5
400 rgb 20,0,15,10
410 rgb 21,0,15,15
420 rgb 22,0,0,7
430 rgb 23,0,0,8
440 rgb 24,0,0,9
450 rgb 25,0,0,10
460 rgb 26,0,0,11
470 rgb 27,0,0,12
475 rgb 28,0,0,15
480 rgb 29,5,5,15
490 rgb 30,10,10,15
495 rgb 31,15,15,15
500 goto 5
1000 rgb 1,15,0,0