Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199312.adf » !StarInfo_StarInfo » Creer/Square
Creer/Square
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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199312.adf » !StarInfo_StarInfo |
| Filename: | Creer/Square |
| Read OK: | ✔ |
| File size: | 0203 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >Square
2REM By Bryan Creer
3REM For 32-bit machines
4REM (c) BAU December 1993
5:
6MODE 9:OFF
7ORIGIN 640,512
8FOR b%=0 TO 3
9 FOR g%=0 TO 3
10 COLOUR b%+4*g%,0,g%*64,b%*64
11 NEXT
12NEXT
13FOR x%=-640 TO 636 STEP 4
14 FOR y%=-512 TO 508 STEP 4
15 p%=POINT(x%,y%)
16 s%=FNspacing
17 IF p%=0 THEN
18 c%=RND(15)
19 GCOL c%
20 POINT x%,y%
21 p% = c%
22 ENDIF
23 GCOL p%
24 POINT x%+s%,y%
25 NEXT
26NEXT
27VDU7
28IFGET
29ON
30END
31:
32DEF FNspacing
33IF x%<-200 THEN = 192
34IF x%> 200 THEN = 192
35IF y%<-200 THEN = 192
36IF y%> 200 THEN = 192
37=160
� >Square
� By Bryan Creer
� For 32-bit machines
� (c) BAU December 1993
:
� 9:�
ȑ 640,512
� b%=0 � 3
� g%=0 � 3
� b%+4*g%,0,g%*64,b%*64
�
�
� x%=-640 � 636 � 4
� y%=-512 � 508 � 4
p%=�x%,y%)
s%=�spacing
� p%=0 �
c%=�(15)
� c%
Ȓ x%,y%
p% = c%
�
� p%
Ȓ x%+s%,y%
�
�
�7
�
�
�
:
� �spacing
!� x%<-200 � = 192
"� x%> 200 � = 192
#� y%<-200 � = 192
$� y%> 200 � = 192
%=160
� 00000000 0d 00 01 10 f4 20 20 20 20 3e 53 71 75 61 72 65 |..... >Square| 00000010 0d 00 02 15 f4 20 42 79 20 20 42 72 79 61 6e 20 |..... By Bryan | 00000020 43 72 65 65 72 0d 00 03 19 f4 20 46 6f 72 20 33 |Creer..... For 3| 00000030 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 0d 00 |2-bit machines..| 00000040 04 1b f4 20 28 63 29 20 42 41 55 20 44 65 63 65 |... (c) BAU Dece| 00000050 6d 62 65 72 20 31 39 39 33 0d 00 05 05 3a 0d 00 |mber 1993....:..| 00000060 06 09 eb 20 39 3a 87 0d 00 07 0e c8 91 20 36 34 |... 9:....... 64| 00000070 30 2c 35 31 32 0d 00 08 0e e3 20 62 25 3d 30 20 |0,512..... b%=0 | 00000080 b8 20 33 0d 00 09 0f 20 e3 20 67 25 3d 30 20 b8 |. 3.... . g%=0 .| 00000090 20 33 0d 00 0a 1d 20 20 fb 20 62 25 2b 34 2a 67 | 3.... . b%+4*g| 000000a0 25 2c 30 2c 67 25 2a 36 34 2c 62 25 2a 36 34 0d |%,0,g%*64,b%*64.| 000000b0 00 0b 06 20 ed 0d 00 0c 05 ed 0d 00 0d 17 e3 20 |... ........... | 000000c0 78 25 3d 2d 36 34 30 20 b8 20 36 33 36 20 88 20 |x%=-640 . 636 . | 000000d0 34 0d 00 0e 18 20 e3 20 79 25 3d 2d 35 31 32 20 |4.... . y%=-512 | 000000e0 b8 20 35 30 38 20 88 20 34 0d 00 0f 10 20 20 70 |. 508 . 4.... p| 000000f0 25 3d b0 78 25 2c 79 25 29 0d 00 10 11 20 20 73 |%=.x%,y%).... s| 00000100 25 3d a4 73 70 61 63 69 6e 67 0d 00 11 0e 20 20 |%=.spacing.... | 00000110 e7 20 70 25 3d 30 20 8c 0d 00 12 0f 20 20 20 63 |. p%=0 ..... c| 00000120 25 3d b3 28 31 35 29 0d 00 13 0b 20 20 20 e6 20 |%=.(15).... . | 00000130 63 25 0d 00 14 0f 20 20 20 c8 92 20 78 25 2c 79 |c%.... .. x%,y| 00000140 25 0d 00 15 0e 20 20 20 70 25 20 3d 20 63 25 0d |%.... p% = c%.| 00000150 00 16 07 20 20 cd 0d 00 17 0a 20 20 e6 20 70 25 |... ..... . p%| 00000160 0d 00 18 11 20 20 c8 92 20 78 25 2b 73 25 2c 79 |.... .. x%+s%,y| 00000170 25 0d 00 19 06 20 ed 0d 00 1a 05 ed 0d 00 1b 06 |%.... ..........| 00000180 ef 37 0d 00 1c 06 e7 a5 0d 00 1d 05 ee 0d 00 1e |.7..............| 00000190 05 e0 0d 00 1f 05 3a 0d 00 20 0e dd 20 a4 73 70 |......:.. .. .sp| 000001a0 61 63 69 6e 67 0d 00 21 15 e7 20 78 25 3c 2d 32 |acing..!.. x%<-2| 000001b0 30 30 20 8c 20 3d 20 31 39 32 0d 00 22 15 e7 20 |00 . = 192..".. | 000001c0 78 25 3e 20 32 30 30 20 8c 20 3d 20 31 39 32 0d |x%> 200 . = 192.| 000001d0 00 23 15 e7 20 79 25 3c 2d 32 30 30 20 8c 20 3d |.#.. y%<-200 . =| 000001e0 20 31 39 32 0d 00 24 15 e7 20 79 25 3e 20 32 30 | 192..$.. y%> 20| 000001f0 30 20 8c 20 3d 20 31 39 32 0d 00 25 08 3d 31 36 |0 . = 192..%.=16| 00000200 30 0d ff |0..| 00000203
.