Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav » degrees+
degrees+
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 » Commodore tapes » Commodore_64 » drawer_tr_tape01a_d60_c64_tape.wav |
| Filename: | degrees+ |
| Read OK: | ✔ |
| File size: | 0181 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
1000 REM DEGREES 1010 XT=INT(X+LE*SIN(((2*π/360)*DE+0.5))) 1020 YT=INT(Y+LE*COS(((2*π/360)*DE+0.5))) 1030 IF PEN THEN GOSUB 2000:RETURN 1040 X=XT:Y=YT:RETURN 2000 REM DRAW X,Y TO XT,YT 2010 IF ABS(YT-Y)>ABS(XT-X) THEN 2070 2020 IF XT=X THEN RETURN 2030 U=ABS(XT-X)/ABS(YT-Y) 2040 FORL=X TO XT STEP SGN(XT-X) 2050 X=X+1:Y=Y+U:SYSPLOT,X,Y:NEXT 2060 X=XT:Y=YT:RETURN 2070 IF YT=Y THEN RETURN 2080 U=ABS(YT-Y)/ABS(XT-X) 2090 FORL=Y TO YT STEP SGN(XT-X) 2100 Y=Y+1:X=X+U:SYSPLOT,X,Y:NEXT 2110 GOTO 2060
�� DEGREES 4�XT��(X�LE��(((2���360)�DE�0.5))) Y�YT��(Y�LE��(((2���360)�DE�0.5))) n� PEN � � 2000:� ~X�XT:Y�YT:� ��� DRAW X,Y TO XT,YT ��� �(YT�Y)��(XT�X) � 2070 ��� XT�X � � ��U��(XT�X)��(YT�Y) ���L�X � XT � �(XT�X) X�X�1:Y�Y�U:�PLOT,X,Y:� X�XT:Y�YT:� + � YT�Y � � A U��(YT�Y)��(XT�X) Y *�L�Y � YT � �(XT�X) u 4Y�Y�1:X�X�U:�PLOT,X,Y:� � >� 2060
OH.C. degrees@4H.Cxt..(x.le..(((2...360).de.0.5)))@yH.Cyt..(y.le..(((2...360).de.0.5)))@NHFD. pen . . 2000:.@.HPDx.xt:y.yt:.@.H.G. draw x,y to xt,yt@.H.G. .(yt.y)..(xt.x) . 2070@.H.G. xt.x . .@.H.Gu..(xt.x)..(yt.y)@.H.G.l.x . xt . .(xt.x)@LIBHx.x.1:y.y.u:.plot,x,y:.@£ILHx.xt:y.yt:.@+IVH. yt.y . .@aI Hu..(yt.y)..(xt.x)@yI*H.l.y . yt . .(xt.x)@UI4Hy.y.1:x.x.u:.plot,x,y:.@.I>H. 2060@@@
00000000 0f 08 e8 03 8f 20 44 45 47 52 45 45 53 00 34 08 |..... DEGREES.4.| 00000010 f2 03 58 54 b2 b5 28 58 aa 4c 45 ac bf 28 28 28 |..XT..(X.LE..(((| 00000020 32 ac ff ad 33 36 30 29 ac 44 45 aa 30 2e 35 29 |2...360).DE.0.5)| 00000030 29 29 00 59 08 fc 03 59 54 b2 b5 28 59 aa 4c 45 |)).Y...YT..(Y.LE| 00000040 ac be 28 28 28 32 ac ff ad 33 36 30 29 ac 44 45 |..(((2...360).DE| 00000050 aa 30 2e 35 29 29 29 00 6e 08 06 04 8b 20 50 45 |.0.5))).n.... PE| 00000060 4e 20 a7 20 8d 20 32 30 30 30 3a 8e 00 7e 08 10 |N . . 2000:..~..| 00000070 04 58 b2 58 54 3a 59 b2 59 54 3a 8e 00 96 08 d0 |.X.XT:Y.YT:.....| 00000080 07 8f 20 44 52 41 57 20 58 2c 59 20 54 4f 20 58 |.. DRAW X,Y TO X| 00000090 54 2c 59 54 00 b3 08 da 07 8b 20 b6 28 59 54 ab |T,YT...... .(YT.| 000000a0 59 29 b1 b6 28 58 54 ab 58 29 20 a7 20 32 30 37 |Y)..(XT.X) . 207| 000000b0 30 00 c2 08 e4 07 8b 20 58 54 b2 58 20 a7 20 8e |0...... XT.X . .| 000000c0 00 d8 08 ee 07 55 b2 b6 28 58 54 ab 58 29 ad b6 |.....U..(XT.X)..| 000000d0 28 59 54 ab 59 29 00 f0 08 f8 07 81 4c b2 58 20 |(YT.Y)......L.X | 000000e0 a4 20 58 54 20 a9 20 b4 28 58 54 ab 58 29 00 0c |. XT . .(XT.X)..| 000000f0 09 02 08 58 b2 58 aa 31 3a 59 b2 59 aa 55 3a 9e |...X.X.1:Y.Y.U:.| 00000100 50 4c 4f 54 2c 58 2c 59 3a 82 00 1c 09 0c 08 58 |PLOT,X,Y:......X| 00000110 b2 58 54 3a 59 b2 59 54 3a 8e 00 2b 09 16 08 8b |.XT:Y.YT:..+....| 00000120 20 59 54 b2 59 20 a7 20 8e 00 41 09 20 08 55 b2 | YT.Y . ..A. .U.| 00000130 b6 28 59 54 ab 59 29 ad b6 28 58 54 ab 58 29 00 |.(YT.Y)..(XT.X).| 00000140 59 09 2a 08 81 4c b2 59 20 a4 20 59 54 20 a9 20 |Y.*..L.Y . YT . | 00000150 b4 28 58 54 ab 58 29 00 75 09 34 08 59 b2 59 aa |.(XT.X).u.4.Y.Y.| 00000160 31 3a 58 b2 58 aa 55 3a 9e 50 4c 4f 54 2c 58 2c |1:X.X.U:.PLOT,X,| 00000170 59 3a 82 00 80 09 3e 08 89 20 32 30 36 30 00 00 |Y:....>.. 2060..| 00000180 00 |.| 00000181
.