Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » StarInfo/Vibe/ANGLE
StarInfo/Vibe/ANGLE
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 1997-01 B.adf » Regulars |
| Filename: | StarInfo/Vibe/ANGLE |
| Read OK: | ✔ |
| File size: | 0155 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > ANGLE 20 30MODE31:OFF 40*POINTER 50MOUSETO 100,100 60XC=800:YC=600:XE=XC:YE=YC 70REPEAT 80MOUSE X,Y,B 90XG=XE:YG=YE 100XE=X-XC:YE=Y-YC 110D=SQR(XE^2+YE^2) 120XE=XE/D:YE=YE/D 130SI=DEGASN(XE) 140 150IF YE<=0 SI=180-SI ELSE SI=360+SI 160IF SI>360 SI=SI-360 170 180GCOL0:LINE 800,600,400*XG+800,400*YG+600 190GCOL7:LINE 800,600,400*XE+800,400*YE+600:VDU30:PRINTSI:WAIT 200UNTIL0
� > ANGLE �31:� ( *POINTER 2ȗ� 100,100 < XC=800:YC=600:XE=XC:YE=YC F� P ȗ X,Y,B ZXG=XE:YG=YE dXE=X-XC:YE=Y-YC nD=�(XE^2+YE^2) xXE=XE/D:YE=YE/D � SI=��(XE) � �!� YE<=0 SI=180-SI � SI=360+SI �� SI>360 SI=SI-360 � �&�0:� 800,600,400*XG+800,400*YG+600 �1�7:� 800,600,400*XE+800,400*YE+600:�30:�SI:Ȗ ��0 �
00000000 0d 00 0a 0d f4 20 3e 20 41 4e 47 4c 45 0d 00 14 |..... > ANGLE...| 00000010 04 0d 00 1e 09 eb 33 31 3a 87 0d 00 28 0c 2a 50 |......31:...(.*P| 00000020 4f 49 4e 54 45 52 0d 00 32 0f c8 97 b8 20 31 30 |OINTER..2.... 10| 00000030 30 2c 31 30 30 0d 00 3c 1d 58 43 3d 38 30 30 3a |0,100..<.XC=800:| 00000040 59 43 3d 36 30 30 3a 58 45 3d 58 43 3a 59 45 3d |YC=600:XE=XC:YE=| 00000050 59 43 0d 00 46 05 f5 0d 00 50 0c c8 97 20 58 2c |YC..F....P... X,| 00000060 59 2c 42 0d 00 5a 0f 58 47 3d 58 45 3a 59 47 3d |Y,B..Z.XG=XE:YG=| 00000070 59 45 0d 00 64 13 58 45 3d 58 2d 58 43 3a 59 45 |YE..d.XE=X-XC:YE| 00000080 3d 59 2d 59 43 0d 00 6e 12 44 3d b6 28 58 45 5e |=Y-YC..n.D=.(XE^| 00000090 32 2b 59 45 5e 32 29 0d 00 78 13 58 45 3d 58 45 |2+YE^2)..x.XE=XE| 000000a0 2f 44 3a 59 45 3d 59 45 2f 44 0d 00 82 0d 53 49 |/D:YE=YE/D....SI| 000000b0 3d 9d 98 28 58 45 29 0d 00 8c 04 0d 00 96 21 e7 |=..(XE).......!.| 000000c0 20 59 45 3c 3d 30 20 53 49 3d 31 38 30 2d 53 49 | YE<=0 SI=180-SI| 000000d0 20 8b 20 53 49 3d 33 36 30 2b 53 49 0d 00 a0 16 | . SI=360+SI....| 000000e0 e7 20 53 49 3e 33 36 30 20 53 49 3d 53 49 2d 33 |. SI>360 SI=SI-3| 000000f0 36 30 0d 00 aa 04 0d 00 b4 26 e6 30 3a 86 20 38 |60.......&.0:. 8| 00000100 30 30 2c 36 30 30 2c 34 30 30 2a 58 47 2b 38 30 |00,600,400*XG+80| 00000110 30 2c 34 30 30 2a 59 47 2b 36 30 30 0d 00 be 31 |0,400*YG+600...1| 00000120 e6 37 3a 86 20 38 30 30 2c 36 30 30 2c 34 30 30 |.7:. 800,600,400| 00000130 2a 58 45 2b 38 30 30 2c 34 30 30 2a 59 45 2b 36 |*XE+800,400*YE+6| 00000140 30 30 3a ef 33 30 3a f1 53 49 3a c8 96 0d 00 c8 |00:.30:.SI:.....| 00000150 06 fd 30 0d ff |..0..| 00000155
.