Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape01a_acorn_eu_1989_july.wav » CIRCLE
CIRCLE
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_tape01a_acorn_eu_1989_july.wav |
| Filename: | CIRCLE |
| Read OK: | ✔ |
| File size: | 0139 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-6-10_D-E610.ssd » CIRCLE
- AEW website » database » database_tapes_Electron-User-6-10_EU6-10_E.uef » CIRCLE
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape01a_acorn_eu_1989_july.wav » CIRCLE
File contents
10MODE 4:INPUT ' "Type in a number (1 - 400)";Y 20IF Y<1 OR Y>400 THEN GOTO 10 ELSE CLS:radius=100 30FOR J=0 TO 2*PI STEP 2*PI/36 40circle=SQR((radius*COS(J))^2+(Y-(radius*SIN(J)))^2) 50PROCcircle(circle,radius*COS(J)+640,radius*SIN(J)+512) 60NEXT:END 70DEF PROCcircle(r,x,y) 80MOVE r*COS(0)+x,r*SIN(0)+y 90FOR I=0 TO 2*PI+0.05 STEP 0.05:DRAW r*COS(I)+x,r*SIN(I)+y:NEXT 100ENDPROC
*� 4:� ' "Type in a number (1 - 400)";Y )� Y<1 � Y>400 � � �TJ@ � �:radius=100 � J=0 � 2*� � 2*�/36 (1circle=�((radius*�(J))^2+(Y-(radius*�(J)))^2) 23�circle(circle,radius*�(J)+640,radius*�(J)+512) <�:� F� �circle(r,x,y) P� r*�(0)+x,r*�(0)+y Z1� I=0 � 2*�+0.05 � 0.05:� r*�(I)+x,r*�(I)+y:� d� �
00000000 0d 00 0a 2a eb 20 34 3a e8 20 27 20 22 54 79 70 |...*. 4:. ' "Typ| 00000010 65 20 69 6e 20 61 20 6e 75 6d 62 65 72 20 28 31 |e in a number (1| 00000020 20 2d 20 34 30 30 29 22 3b 59 0d 00 14 29 e7 20 | - 400)";Y...). | 00000030 59 3c 31 20 84 20 59 3e 34 30 30 20 8c 20 e5 20 |Y<1 . Y>400 . . | 00000040 8d 54 4a 40 20 8b 20 db 3a 72 61 64 69 75 73 3d |.TJ@ . .:radius=| 00000050 31 30 30 0d 00 1e 18 e3 20 4a 3d 30 20 b8 20 32 |100..... J=0 . 2| 00000060 2a af 20 88 20 32 2a af 2f 33 36 0d 00 28 31 63 |*. . 2*./36..(1c| 00000070 69 72 63 6c 65 3d b6 28 28 72 61 64 69 75 73 2a |ircle=.((radius*| 00000080 9b 28 4a 29 29 5e 32 2b 28 59 2d 28 72 61 64 69 |.(J))^2+(Y-(radi| 00000090 75 73 2a b5 28 4a 29 29 29 5e 32 29 0d 00 32 33 |us*.(J)))^2)..23| 000000a0 f2 63 69 72 63 6c 65 28 63 69 72 63 6c 65 2c 72 |.circle(circle,r| 000000b0 61 64 69 75 73 2a 9b 28 4a 29 2b 36 34 30 2c 72 |adius*.(J)+640,r| 000000c0 61 64 69 75 73 2a b5 28 4a 29 2b 35 31 32 29 0d |adius*.(J)+512).| 000000d0 00 3c 07 ed 3a e0 0d 00 46 14 dd 20 f2 63 69 72 |.<..:...F.. .cir| 000000e0 63 6c 65 28 72 2c 78 2c 79 29 0d 00 50 17 ec 20 |cle(r,x,y)..P.. | 000000f0 72 2a 9b 28 30 29 2b 78 2c 72 2a b5 28 30 29 2b |r*.(0)+x,r*.(0)+| 00000100 79 0d 00 5a 31 e3 20 49 3d 30 20 b8 20 32 2a af |y..Z1. I=0 . 2*.| 00000110 2b 30 2e 30 35 20 88 20 30 2e 30 35 3a df 20 72 |+0.05 . 0.05:. r| 00000120 2a 9b 28 49 29 2b 78 2c 72 2a b5 28 49 29 2b 79 |*.(I)+x,r*.(I)+y| 00000130 3a ed 0d 00 64 05 e1 0d ff |:...d....| 00000139
.