Home » Archimedes archive » Acorn User » AU 1995-09.adf » !Regulars » Regulars/StarInfo/One-liners/Green/Columns
Regulars/StarInfo/One-liners/Green/Columns
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 1995-09.adf » !Regulars |
| Filename: | Regulars/StarInfo/One-liners/Green/Columns |
| Read OK: | ✔ |
| File size: | 0119 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Columns 20REM >By 14 year old Alister Fields 30MODE 9:OFF:FORY=0TO1024STEP4:FORX=0TO320STEP4:GCOL0,Y*SINCOSRADX:X2=X:Y2=Y:POINT X2,Y2:NEXT:NEXT:FORXPOS=320TO960STEP320:RECTANGLE0,0,320,1024TOXPOS,0:NEXT:r=0:g=0:b=0:REPEAT:FOR c=0 TO 15:COLOUR c,127*(SINRADr+1),127*(COSRAD(g+16)+1),127*(-SINRAD(b+24)+1):r+=5:g-=7:b+=9:NEXT:r-=75:g+=105:b-=135:WAIT:WAIT:UNTIL0
� >Columns $� >By 14 year old Alister Fields �� 9:�:�Y=0�1024�4:�X=0�320�4:�0,Y*���X:X2=X:Y2=Y:Ȓ X2,Y2:�:�:�XPOS=320�960�320:ȓ0,0,320,1024�XPOS,0:�:r=0:g=0:b=0:�:� c=0 � 15:� c,127*(��r+1),127*(��(g+16)+1),127*(-��(b+24)+1):r+=5:g-=7:b+=9:�:r-=75:g+=105:b-=135:Ȗ:Ȗ:�0 �
00000000 0d 00 0a 0e f4 20 3e 43 6f 6c 75 6d 6e 73 0d 00 |..... >Columns..| 00000010 14 24 f4 20 3e 42 79 20 31 34 20 79 65 61 72 20 |.$. >By 14 year | 00000020 6f 6c 64 20 41 6c 69 73 74 65 72 20 46 69 65 6c |old Alister Fiel| 00000030 64 73 0d 00 1e e5 eb 20 39 3a 87 3a e3 59 3d 30 |ds..... 9:.:.Y=0| 00000040 b8 31 30 32 34 88 34 3a e3 58 3d 30 b8 33 32 30 |.1024.4:.X=0.320| 00000050 88 34 3a e6 30 2c 59 2a b5 9b b2 58 3a 58 32 3d |.4:.0,Y*...X:X2=| 00000060 58 3a 59 32 3d 59 3a c8 92 20 58 32 2c 59 32 3a |X:Y2=Y:.. X2,Y2:| 00000070 ed 3a ed 3a e3 58 50 4f 53 3d 33 32 30 b8 39 36 |.:.:.XPOS=320.96| 00000080 30 88 33 32 30 3a c8 93 30 2c 30 2c 33 32 30 2c |0.320:..0,0,320,| 00000090 31 30 32 34 b8 58 50 4f 53 2c 30 3a ed 3a 72 3d |1024.XPOS,0:.:r=| 000000a0 30 3a 67 3d 30 3a 62 3d 30 3a f5 3a e3 20 63 3d |0:g=0:b=0:.:. c=| 000000b0 30 20 b8 20 31 35 3a fb 20 63 2c 31 32 37 2a 28 |0 . 15:. c,127*(| 000000c0 b5 b2 72 2b 31 29 2c 31 32 37 2a 28 9b b2 28 67 |..r+1),127*(..(g| 000000d0 2b 31 36 29 2b 31 29 2c 31 32 37 2a 28 2d b5 b2 |+16)+1),127*(-..| 000000e0 28 62 2b 32 34 29 2b 31 29 3a 72 2b 3d 35 3a 67 |(b+24)+1):r+=5:g| 000000f0 2d 3d 37 3a 62 2b 3d 39 3a ed 3a 72 2d 3d 37 35 |-=7:b+=9:.:r-=75| 00000100 3a 67 2b 3d 31 30 35 3a 62 2d 3d 31 33 35 3a c8 |:g+=105:b-=135:.| 00000110 96 3a c8 96 3a fd 30 0d ff |.:..:.0..| 00000119
.