Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » StarInfo/Vibe/COLPAT

StarInfo/Vibe/COLPAT

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars
Filename: StarInfo/Vibe/COLPAT
Read OK: ✔
File size: 04A8 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > COLPAT
   20
   30MODE31:OFF
   40FORN%=1TO15:COLOURN%,255,16*N%,0:NEXT
   50FORN%=255TO1STEP-1
   60PROCP(256-N%)
   70CIRCLE FILL 800,600,N%*2
   80NEXT
   90END
  100
  110DEFPROCP(P%)
  120LOCAL A%,B%,C%,P1%,P2%,C1%,C2%,N%,M%,T1$(),T2$(),D1%(),D2%()
  130DIM T1$(4),T2$(4),D1%(4),D2%(4)
  140A%=P%DIV16:B%=P%MOD16
  150IFA%=15 B%=0
  160IFA%=0:A%=1:B%=0
  170RESTORE 440
  180FORN%=1TO4:READP1%,P2%
  190IF B%<P1% T1$(N%)="0" ELSE T1$(N%)="1"
  200IF B%<P2% T1$(N%)+="0" ELSE T1$(N%)+="1"
  210NEXT
  220FORN%=1TO4:READP1%,P2%
  230IF B%<P1% T2$(N%)="0" ELSE T2$(N%)="1"
  240IF B%<P2% T2$(N%)+="0" ELSE T2$(N%)+="1"
  250NEXT
  260FORM%=1TO4
  270C1%=A%:IF LEFT$(T1$(M%),1)="1" C1%+=1
  280C2%=A%:IF RIGHT$(T1$(M%),1)="1" C2%+=1
  290C%=8:FORN%=1TO4
  300D1%(M%)=D1%(M%)*2:IF C%ANDC1% D1%(M%)+=1
  310D1%(M%)=D1%(M%)*2:IF C%ANDC2% D1%(M%)+=1
  320C%=C%/2:NEXT
  330C1%=A%:IF LEFT$(T2$(M%),1)="1" C1%+=1
  340C2%=A%:IF RIGHT$(T2$(M%),1)="1" C2%+=1
  350C%=8:FORN%=1TO4
  360D2%(M%)=D2%(M%)*2:IF C%ANDC1% D2%(M%)+=1
  370D2%(M%)=D2%(M%)*2:IF C%ANDC2% D2%(M%)+=1
  380C%=C%/2:NEXT,
  390VDU23,2,D1%(1),D1%(2),D1%(3),D1%(4),D1%(1),D1%(2),D1%(3),D1%(4)
  400VDU23,3,D2%(1),D2%(2),D2%(3),D2%(4),D2%(1),D2%(2),D2%(3),D2%(4)
  410VDU23,4,D1%(1),D1%(2),D1%(3),D1%(4),D1%(1),D1%(2),D1%(3),D1%(4)
  420VDU23,5,D2%(1),D2%(2),D2%(3),D2%(4),D2%(1),D2%(2),D2%(3),D2%(4)
  430GCOL80,0
  440DATA 16,8,4,12,14,6,2,10,13,5,1,9,15,7,3,11
  450ENDPROC


� > COLPAT

	�31:�
(�N%=1�15:�N%,255,16*N%,0:�
2�N%=255�1�-1
<�P(256-N%)
Fȏ Ȑ 800,600,N%*2
P�
Z�
d
n��P(P%)
x<� A%,B%,C%,P1%,P2%,C1%,C2%,N%,M%,T1$(),T2$(),D1%(),D2%()
�!� T1$(4),T2$(4),D1%(4),D2%(4)
�A%=P%�16:B%=P%�16
��A%=15 B%=0
��A%=0:A%=1:B%=0
�
� �txA
��N%=1�4:�P1%,P2%
�&� B%<P1% T1$(N%)="0" � T1$(N%)="1"
�(� B%<P2% T1$(N%)+="0" � T1$(N%)+="1"
��
��N%=1�4:�P1%,P2%
�&� B%<P1% T2$(N%)="0" � T2$(N%)="1"
�(� B%<P2% T2$(N%)+="0" � T2$(N%)+="1"
��
�M%=1�4
#C1%=A%:� �T1$(M%),1)="1" C1%+=1
#C2%=A%:� �T1$(M%),1)="1" C2%+=1
"C%=8:�N%=1�4
,)D1%(M%)=D1%(M%)*2:� C%�C1% D1%(M%)+=1
6)D1%(M%)=D1%(M%)*2:� C%�C2% D1%(M%)+=1
@
C%=C%/2:�
J#C1%=A%:� �T2$(M%),1)="1" C1%+=1
T#C2%=A%:� �T2$(M%),1)="1" C2%+=1
^C%=8:�N%=1�4
h)D2%(M%)=D2%(M%)*2:� C%�C1% D2%(M%)+=1
r)D2%(M%)=D2%(M%)*2:� C%�C2% D2%(M%)+=1
|C%=C%/2:�,
�A�23,2,D1%(1),D1%(2),D1%(3),D1%(4),D1%(1),D1%(2),D1%(3),D1%(4)
�A�23,3,D2%(1),D2%(2),D2%(3),D2%(4),D2%(1),D2%(2),D2%(3),D2%(4)
�A�23,4,D1%(1),D1%(2),D1%(3),D1%(4),D1%(1),D1%(2),D1%(3),D1%(4)
�A�23,5,D2%(1),D2%(2),D2%(3),D2%(4),D2%(1),D2%(2),D2%(3),D2%(4)
�	�80,0
�,� 16,8,4,12,14,6,2,10,13,5,1,9,15,7,3,11
��
�
00000000  0d 00 0a 0e f4 20 3e 20  43 4f 4c 50 41 54 0d 00  |..... > COLPAT..|
00000010  14 04 0d 00 1e 09 eb 33  31 3a 87 0d 00 28 1e e3  |.......31:...(..|
00000020  4e 25 3d 31 b8 31 35 3a  fb 4e 25 2c 32 35 35 2c  |N%=1.15:.N%,255,|
00000030  31 36 2a 4e 25 2c 30 3a  ed 0d 00 32 10 e3 4e 25  |16*N%,0:...2..N%|
00000040  3d 32 35 35 b8 31 88 2d  31 0d 00 3c 0e f2 50 28  |=255.1.-1..<..P(|
00000050  32 35 36 2d 4e 25 29 0d  00 46 16 c8 8f 20 c8 90  |256-N%)..F... ..|
00000060  20 38 30 30 2c 36 30 30  2c 4e 25 2a 32 0d 00 50  | 800,600,N%*2..P|
00000070  05 ed 0d 00 5a 05 e0 0d  00 64 04 0d 00 6e 0b dd  |....Z....d...n..|
00000080  f2 50 28 50 25 29 0d 00  78 3c ea 20 41 25 2c 42  |.P(P%)..x<. A%,B|
00000090  25 2c 43 25 2c 50 31 25  2c 50 32 25 2c 43 31 25  |%,C%,P1%,P2%,C1%|
000000a0  2c 43 32 25 2c 4e 25 2c  4d 25 2c 54 31 24 28 29  |,C2%,N%,M%,T1$()|
000000b0  2c 54 32 24 28 29 2c 44  31 25 28 29 2c 44 32 25  |,T2$(),D1%(),D2%|
000000c0  28 29 0d 00 82 21 de 20  54 31 24 28 34 29 2c 54  |()...!. T1$(4),T|
000000d0  32 24 28 34 29 2c 44 31  25 28 34 29 2c 44 32 25  |2$(4),D1%(4),D2%|
000000e0  28 34 29 0d 00 8c 15 41  25 3d 50 25 81 31 36 3a  |(4)....A%=P%.16:|
000000f0  42 25 3d 50 25 83 31 36  0d 00 96 0f e7 41 25 3d  |B%=P%.16.....A%=|
00000100  31 35 20 42 25 3d 30 0d  00 a0 13 e7 41 25 3d 30  |15 B%=0.....A%=0|
00000110  3a 41 25 3d 31 3a 42 25  3d 30 0d 00 aa 0a f7 20  |:A%=1:B%=0..... |
00000120  8d 74 78 41 0d 00 b4 14  e3 4e 25 3d 31 b8 34 3a  |.txA.....N%=1.4:|
00000130  f3 50 31 25 2c 50 32 25  0d 00 be 26 e7 20 42 25  |.P1%,P2%...&. B%|
00000140  3c 50 31 25 20 54 31 24  28 4e 25 29 3d 22 30 22  |<P1% T1$(N%)="0"|
00000150  20 8b 20 54 31 24 28 4e  25 29 3d 22 31 22 0d 00  | . T1$(N%)="1"..|
00000160  c8 28 e7 20 42 25 3c 50  32 25 20 54 31 24 28 4e  |.(. B%<P2% T1$(N|
00000170  25 29 2b 3d 22 30 22 20  8b 20 54 31 24 28 4e 25  |%)+="0" . T1$(N%|
00000180  29 2b 3d 22 31 22 0d 00  d2 05 ed 0d 00 dc 14 e3  |)+="1"..........|
00000190  4e 25 3d 31 b8 34 3a f3  50 31 25 2c 50 32 25 0d  |N%=1.4:.P1%,P2%.|
000001a0  00 e6 26 e7 20 42 25 3c  50 31 25 20 54 32 24 28  |..&. B%<P1% T2$(|
000001b0  4e 25 29 3d 22 30 22 20  8b 20 54 32 24 28 4e 25  |N%)="0" . T2$(N%|
000001c0  29 3d 22 31 22 0d 00 f0  28 e7 20 42 25 3c 50 32  |)="1"...(. B%<P2|
000001d0  25 20 54 32 24 28 4e 25  29 2b 3d 22 30 22 20 8b  |% T2$(N%)+="0" .|
000001e0  20 54 32 24 28 4e 25 29  2b 3d 22 31 22 0d 00 fa  | T2$(N%)+="1"...|
000001f0  05 ed 0d 01 04 0b e3 4d  25 3d 31 b8 34 0d 01 0e  |.......M%=1.4...|
00000200  23 43 31 25 3d 41 25 3a  e7 20 c0 54 31 24 28 4d  |#C1%=A%:. .T1$(M|
00000210  25 29 2c 31 29 3d 22 31  22 20 43 31 25 2b 3d 31  |%),1)="1" C1%+=1|
00000220  0d 01 18 23 43 32 25 3d  41 25 3a e7 20 c2 54 31  |...#C2%=A%:. .T1|
00000230  24 28 4d 25 29 2c 31 29  3d 22 31 22 20 43 32 25  |$(M%),1)="1" C2%|
00000240  2b 3d 31 0d 01 22 10 43  25 3d 38 3a e3 4e 25 3d  |+=1..".C%=8:.N%=|
00000250  31 b8 34 0d 01 2c 29 44  31 25 28 4d 25 29 3d 44  |1.4..,)D1%(M%)=D|
00000260  31 25 28 4d 25 29 2a 32  3a e7 20 43 25 80 43 31  |1%(M%)*2:. C%.C1|
00000270  25 20 44 31 25 28 4d 25  29 2b 3d 31 0d 01 36 29  |% D1%(M%)+=1..6)|
00000280  44 31 25 28 4d 25 29 3d  44 31 25 28 4d 25 29 2a  |D1%(M%)=D1%(M%)*|
00000290  32 3a e7 20 43 25 80 43  32 25 20 44 31 25 28 4d  |2:. C%.C2% D1%(M|
000002a0  25 29 2b 3d 31 0d 01 40  0d 43 25 3d 43 25 2f 32  |%)+=1..@.C%=C%/2|
000002b0  3a ed 0d 01 4a 23 43 31  25 3d 41 25 3a e7 20 c0  |:...J#C1%=A%:. .|
000002c0  54 32 24 28 4d 25 29 2c  31 29 3d 22 31 22 20 43  |T2$(M%),1)="1" C|
000002d0  31 25 2b 3d 31 0d 01 54  23 43 32 25 3d 41 25 3a  |1%+=1..T#C2%=A%:|
000002e0  e7 20 c2 54 32 24 28 4d  25 29 2c 31 29 3d 22 31  |. .T2$(M%),1)="1|
000002f0  22 20 43 32 25 2b 3d 31  0d 01 5e 10 43 25 3d 38  |" C2%+=1..^.C%=8|
00000300  3a e3 4e 25 3d 31 b8 34  0d 01 68 29 44 32 25 28  |:.N%=1.4..h)D2%(|
00000310  4d 25 29 3d 44 32 25 28  4d 25 29 2a 32 3a e7 20  |M%)=D2%(M%)*2:. |
00000320  43 25 80 43 31 25 20 44  32 25 28 4d 25 29 2b 3d  |C%.C1% D2%(M%)+=|
00000330  31 0d 01 72 29 44 32 25  28 4d 25 29 3d 44 32 25  |1..r)D2%(M%)=D2%|
00000340  28 4d 25 29 2a 32 3a e7  20 43 25 80 43 32 25 20  |(M%)*2:. C%.C2% |
00000350  44 32 25 28 4d 25 29 2b  3d 31 0d 01 7c 0e 43 25  |D2%(M%)+=1..|.C%|
00000360  3d 43 25 2f 32 3a ed 2c  0d 01 86 41 ef 32 33 2c  |=C%/2:.,...A.23,|
00000370  32 2c 44 31 25 28 31 29  2c 44 31 25 28 32 29 2c  |2,D1%(1),D1%(2),|
00000380  44 31 25 28 33 29 2c 44  31 25 28 34 29 2c 44 31  |D1%(3),D1%(4),D1|
00000390  25 28 31 29 2c 44 31 25  28 32 29 2c 44 31 25 28  |%(1),D1%(2),D1%(|
000003a0  33 29 2c 44 31 25 28 34  29 0d 01 90 41 ef 32 33  |3),D1%(4)...A.23|
000003b0  2c 33 2c 44 32 25 28 31  29 2c 44 32 25 28 32 29  |,3,D2%(1),D2%(2)|
000003c0  2c 44 32 25 28 33 29 2c  44 32 25 28 34 29 2c 44  |,D2%(3),D2%(4),D|
000003d0  32 25 28 31 29 2c 44 32  25 28 32 29 2c 44 32 25  |2%(1),D2%(2),D2%|
000003e0  28 33 29 2c 44 32 25 28  34 29 0d 01 9a 41 ef 32  |(3),D2%(4)...A.2|
000003f0  33 2c 34 2c 44 31 25 28  31 29 2c 44 31 25 28 32  |3,4,D1%(1),D1%(2|
00000400  29 2c 44 31 25 28 33 29  2c 44 31 25 28 34 29 2c  |),D1%(3),D1%(4),|
00000410  44 31 25 28 31 29 2c 44  31 25 28 32 29 2c 44 31  |D1%(1),D1%(2),D1|
00000420  25 28 33 29 2c 44 31 25  28 34 29 0d 01 a4 41 ef  |%(3),D1%(4)...A.|
00000430  32 33 2c 35 2c 44 32 25  28 31 29 2c 44 32 25 28  |23,5,D2%(1),D2%(|
00000440  32 29 2c 44 32 25 28 33  29 2c 44 32 25 28 34 29  |2),D2%(3),D2%(4)|
00000450  2c 44 32 25 28 31 29 2c  44 32 25 28 32 29 2c 44  |,D2%(1),D2%(2),D|
00000460  32 25 28 33 29 2c 44 32  25 28 34 29 0d 01 ae 09  |2%(3),D2%(4)....|
00000470  e6 38 30 2c 30 0d 01 b8  2c dc 20 31 36 2c 38 2c  |.80,0...,. 16,8,|
00000480  34 2c 31 32 2c 31 34 2c  36 2c 32 2c 31 30 2c 31  |4,12,14,6,2,10,1|
00000490  33 2c 35 2c 31 2c 39 2c  31 35 2c 37 2c 33 2c 31  |3,5,1,9,15,7,3,1|
000004a0  31 0d 01 c2 05 e1 0d ff                           |1.......|
000004a8

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .