Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape09a_acorn_eu_1990_march.wav » EYE
EYE
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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape09a_acorn_eu_1990_march.wav |
| Filename: | EYE |
| Read OK: | ✔ |
| File size: | 01A4 bytes |
| Load address: | 2000 |
| Exec address: | 1900 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » database » database_5_25_discs_Electron-User-7-06_D-E706.ssd » EYE
- AEW website » database » database_tapes_Electron-User-7-06_EU7-6_E.uef » EYE
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape09a_acorn_eu_1990_march.wav » EYE
File contents
10REM Eye 20REM By P. Charlesworth 30REM (c) Electron User 40MODE 4 50VDU 19,1,0;0; 60VDU 19,0,6;0; 70VDU 23,1,0;0;0;0; 80VDU 29,139;11; 90MOVE 0,0 100DRAW 0,1000 110DRAW 1000,1000 120DRAW 1000,0 130DRAW 0,0 140FOR A=1 TO 1000 STEP 40 150MOVE 0,A 160DRAW 1000-A,0 170NEXT A 180FOR A=1000 TO 1 STEP -40 190MOVE 1000,A 200DRAW 1000-A,1000 210NEXT A 220FOR C=0 TO 2*PI STEP 0.15 230MOVE 650,500 240DRAW 500+COS(C)*200,500+SIN(C)*200 250MOVE 350,500 260DRAW 500+COS(C)*200,500+SIN(C)*200 270NEXT C 280VDU 7
� Eye � By P. Charlesworth � (c) Electron User (� 4 2� 19,1,0;0; <� 19,0,6;0; F� 23,1,0;0;0;0; P� 29,139;11; Z � 0,0 d � 0,1000 n� 1000,1000 x � 1000,0 � � 0,0 �� A=1 � 1000 � 40 � � 0,A �� 1000-A,0 �� A �� A=1000 � 1 � -40 � � 1000,A �� 1000-A,1000 �� A �� C=0 � 2*� � 0.15 � � 650,500 � � 500+�(C)*200,500+�(C)*200 � � 350,500 � 500+�(C)*200,500+�(C)*200 � C � 7 �
00000000 0d 00 0a 09 f4 20 45 79 65 0d 00 14 18 f4 20 42 |..... Eye..... B| 00000010 79 20 50 2e 20 43 68 61 72 6c 65 73 77 6f 72 74 |y P. Charleswort| 00000020 68 0d 00 1e 17 f4 20 28 63 29 20 45 6c 65 63 74 |h..... (c) Elect| 00000030 72 6f 6e 20 55 73 65 72 0d 00 28 07 eb 20 34 0d |ron User..(.. 4.| 00000040 00 32 0f ef 20 31 39 2c 31 2c 30 3b 30 3b 0d 00 |.2.. 19,1,0;0;..| 00000050 3c 0f ef 20 31 39 2c 30 2c 36 3b 30 3b 0d 00 46 |<.. 19,0,6;0;..F| 00000060 13 ef 20 32 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b |.. 23,1,0;0;0;0;| 00000070 0d 00 50 10 ef 20 32 39 2c 31 33 39 3b 31 31 3b |..P.. 29,139;11;| 00000080 0d 00 5a 09 ec 20 30 2c 30 0d 00 64 0c df 20 30 |..Z.. 0,0..d.. 0| 00000090 2c 31 30 30 30 0d 00 6e 0f df 20 31 30 30 30 2c |,1000..n.. 1000,| 000000a0 31 30 30 30 0d 00 78 0c df 20 31 30 30 30 2c 30 |1000..x.. 1000,0| 000000b0 0d 00 82 09 df 20 30 2c 30 0d 00 8c 15 e3 20 41 |..... 0,0..... A| 000000c0 3d 31 20 b8 20 31 30 30 30 20 88 20 34 30 0d 00 |=1 . 1000 . 40..| 000000d0 96 09 ec 20 30 2c 41 0d 00 a0 0e df 20 31 30 30 |... 0,A..... 100| 000000e0 30 2d 41 2c 30 0d 00 aa 07 ed 20 41 0d 00 b4 16 |0-A,0..... A....| 000000f0 e3 20 41 3d 31 30 30 30 20 b8 20 31 20 88 20 2d |. A=1000 . 1 . -| 00000100 34 30 0d 00 be 0c ec 20 31 30 30 30 2c 41 0d 00 |40..... 1000,A..| 00000110 c8 11 df 20 31 30 30 30 2d 41 2c 31 30 30 30 0d |... 1000-A,1000.| 00000120 00 d2 07 ed 20 41 0d 00 dc 16 e3 20 43 3d 30 20 |.... A..... C=0 | 00000130 b8 20 32 2a af 20 88 20 30 2e 31 35 0d 00 e6 0d |. 2*. . 0.15....| 00000140 ec 20 36 35 30 2c 35 30 30 0d 00 f0 1f df 20 35 |. 650,500..... 5| 00000150 30 30 2b 9b 28 43 29 2a 32 30 30 2c 35 30 30 2b |00+.(C)*200,500+| 00000160 b5 28 43 29 2a 32 30 30 0d 00 fa 0d ec 20 33 35 |.(C)*200..... 35| 00000170 30 2c 35 30 30 0d 01 04 1f df 20 35 30 30 2b 9b |0,500..... 500+.| 00000180 28 43 29 2a 32 30 30 2c 35 30 30 2b b5 28 43 29 |(C)*200,500+.(C)| 00000190 2a 32 30 30 0d 01 0e 07 ed 20 43 0d 01 18 07 ef |*200..... C.....| 000001a0 20 37 0d ff | 7..| 000001a4
.