Home » Archimedes archive » Acorn User » AU 1994-02.adf » !StarInfo_StarInfo » One-Liners/50Hz
One-Liners/50Hz
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 1994-02.adf » !StarInfo_StarInfo |
| Filename: | One-Liners/50Hz |
| Read OK: | ✔ |
| File size: | 0107 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >50Hz by Alistair Turnbull (c) AU February 1994 20MODE12:OFF:REPEAT:A%+=1:A=PI*(A%AND63)/32:COLOUR128+(8-A%AND15):VDU11:GCOL0,8-A%AND15:MOVE640-X%,768-Y%:MOVEBYX%<<1,Y%<<1:X%=400*COS(A):Y%=100*SIN(A):PLOT85,640-X%,800-Y%:PLOT81,X%<<1,Y%<<1:WAIT:FORC%=8-A%TO23-A%:E%=C%+A%:COLOURC%,E%<<4,E%-2<<4,E%-4<<4:NEXT:UNTIL0
5� >50Hz by Alistair Turnbull (c) AU February 1994 ��12:�:�:A%+=1:A=�*(A%�63)/32:�128+(8-A%�15):�11:�0,8-A%�15:�640-X%,768-Y%:�BYX%<<1,Y%<<1:X%=400*�(A):Y%=100*�(A):�85,640-X%,800-Y%:�81,X%<<1,Y%<<1:Ȗ:�C%=8-A%�23-A%:E%=C%+A%:�C%,E%<<4,E%-2<<4,E%-4<<4:�:�0 �
00000000 0d 00 0a 35 f4 20 3e 35 30 48 7a 20 62 79 20 41 |...5. >50Hz by A| 00000010 6c 69 73 74 61 69 72 20 54 75 72 6e 62 75 6c 6c |listair Turnbull| 00000020 20 28 63 29 20 41 55 20 46 65 62 72 75 61 72 79 | (c) AU February| 00000030 20 31 39 39 34 0d 00 14 d0 eb 31 32 3a 87 3a f5 | 1994.....12:.:.| 00000040 3a 41 25 2b 3d 31 3a 41 3d af 2a 28 41 25 80 36 |:A%+=1:A=.*(A%.6| 00000050 33 29 2f 33 32 3a fb 31 32 38 2b 28 38 2d 41 25 |3)/32:.128+(8-A%| 00000060 80 31 35 29 3a ef 31 31 3a e6 30 2c 38 2d 41 25 |.15):.11:.0,8-A%| 00000070 80 31 35 3a ec 36 34 30 2d 58 25 2c 37 36 38 2d |.15:.640-X%,768-| 00000080 59 25 3a ec 42 59 58 25 3c 3c 31 2c 59 25 3c 3c |Y%:.BYX%<<1,Y%<<| 00000090 31 3a 58 25 3d 34 30 30 2a 9b 28 41 29 3a 59 25 |1:X%=400*.(A):Y%| 000000a0 3d 31 30 30 2a b5 28 41 29 3a f0 38 35 2c 36 34 |=100*.(A):.85,64| 000000b0 30 2d 58 25 2c 38 30 30 2d 59 25 3a f0 38 31 2c |0-X%,800-Y%:.81,| 000000c0 58 25 3c 3c 31 2c 59 25 3c 3c 31 3a c8 96 3a e3 |X%<<1,Y%<<1:..:.| 000000d0 43 25 3d 38 2d 41 25 b8 32 33 2d 41 25 3a 45 25 |C%=8-A%.23-A%:E%| 000000e0 3d 43 25 2b 41 25 3a fb 43 25 2c 45 25 3c 3c 34 |=C%+A%:.C%,E%<<4| 000000f0 2c 45 25 2d 32 3c 3c 34 2c 45 25 2d 34 3c 3c 34 |,E%-2<<4,E%-4<<4| 00000100 3a ed 3a fd 30 0d ff |:.:.0..| 00000107
.