home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
36.dms
/
36.adf
/
colours.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
161b
|
9 lines
5 n% = 20
10 for x% = 0 to 7
20 for y% = 0 to 3
30 pena x%*4 + y%
40 a% = x%*n%
50 b% = y%*n%
60 box(a%,b%;a%+n%,b%+n%),1
70 next y%,x%