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: | 02B7 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
10 GRAPH=49152:PLOT=49464:NRM=49152+19
20 COLOUR=49379:CLG=49152+35
30 UNPLOT=49460:CHAR=49644
990 REM DEGREE ROUTINE
991 REM VARIBLES:
992 REM LE=LENGTH OF LINE
993 REM DE=DEGREES
994 REM TX=X START POSITION
995 REM TY=Y START POSITION
1000 IF DE>359 THEN DE=DE-360:GOTO1000
1010 IF DE<0 THEN DE=DE+360:GOTO1010
1020 CO=DE:IF DE>180 THEN X=-1:CO=360-CO:GOTO1040
1030 X=1
1040 IF CO>90 THEN CO=180-CO:Y=1:GOTO1060
1050 Y=-1
1060 IF CO>45 THEN FF=1:CO=90-CO:GOTO1080
1070 FF=0
1080 IF CO<>0 THEN D=45/CO:AT=INT(D):GOTO1100
1090 D=99999:AT=D
1100 IF FF=1 THEN 1150
1110 FOR LO=1 TO LE
1120 TY=TY+1*Y
1130 IF LO>AT THEN TX=TX+1*X:AT=AT+D:LO=LO+(CO*2/100)
1140 SYSPLOT,TX,TY:NEXT:RETURN
1150 FOR LO=1 TO LE
1160 TX=TX+1*X
1170 IF LO>AT THEN TY=TY+1*Y:AT=AT+D:LO=LO+(CO*2/100)
1180 SYSPLOT,TX,TY:NEXT:RETURN
) GRAPH�49152:PLOT�49464:NRM�49152�19 G COLOUR�49379:CLG�49152�35 c UNPLOT�49460:CHAR�49644 x�� DEGREE ROUTINE ��� VARIBLES: ��� LE=LENGTH OF LINE ��� DE=DEGREES ��� TX=X START POSITION ��� TY=Y START POSITION �� DE�359 � DE�DE�360:�1000 ! �� DE�0 � DE�DE�360:�1010 K �CO�DE:� DE�180 � X��1:CO�360�CO:�1040 S X�1 u � CO�90 � CO�180�CO:Y�1:�1060 ~ Y��1 � $� CO�45 � FF�1:CO�90�CO:�1080 � .FF�0 � 8� CO��0 � D�45�CO:AT��(D):�1100 � BD�99999:AT�D � L� FF�1 � 1150 V� LO�1 � LE `TY�TY�1�Y ? j� LO�AT � TX�TX�1�X:AT�AT�D:LO�LO�(CO�2�100) S t�PLOT,TX,TY:�:� c ~� LO�1 � LE q �TX�TX�1�X � �� LO�AT � TY�TY�1�Y:AT�AT�D:LO�LO�(CO�2�100) � ��PLOT,TX,TY:�:�
)HJ@graph.49152:plot.49464:nrm.49152.19@gHT@colour.49379:clg.49152.35@CH.@unplot.49460:char.49644@XH.C. degree routine@.H.C. varibles:@.H.C. le=length of line@.H.C. de=degrees@.H.C. tx=x start position@.H.C. ty=y start position@DI.C. de.359 . de.de.360:.1000@!I.C. de.0 . de.de.360:.1010@kI.Cco.de:. de.180 . x..1:co.360.co:.1040@sIFDx.1@UIPD. co.90 . co.180.co:y.1:.1060@.IZDy..1@.I$D. co.45 . ff.1:co.90.co:.1080@.I.Dff.0@.I8D. co..0 . d.45.co:at..(d):.1100@.IbDd.99999:at.d@.IlD. ff.1 . 1150@@JvD. lo.1 . le@NJ.Dty.ty.1.y@?JJD. lo.at . tx.tx.1.x:at.at.d:lo.lo.(co.2.100)@sJTD.plot,tx,ty:.:.@CJ.D. lo.1 . le@QJ.Dtx.tx.1.x@.J.D. lo.at . ty.ty.1.y:at.at.d:lo.lo.(co.2.100)@.J.D.plot,tx,ty:.:.@@@
00000000 29 08 0a 00 47 52 41 50 48 b2 34 39 31 35 32 3a |)...GRAPH.49152:| 00000010 50 4c 4f 54 b2 34 39 34 36 34 3a 4e 52 4d b2 34 |PLOT.49464:NRM.4| 00000020 39 31 35 32 aa 31 39 00 47 08 14 00 43 4f 4c 4f |9152.19.G...COLO| 00000030 55 52 b2 34 39 33 37 39 3a 43 4c 47 b2 34 39 31 |UR.49379:CLG.491| 00000040 35 32 aa 33 35 00 63 08 1e 00 55 4e 50 4c 4f 54 |52.35.c...UNPLOT| 00000050 b2 34 39 34 36 30 3a 43 48 41 52 b2 34 39 36 34 |.49460:CHAR.4964| 00000060 34 00 78 08 de 03 8f 20 44 45 47 52 45 45 20 52 |4.x.... DEGREE R| 00000070 4f 55 54 49 4e 45 00 88 08 df 03 8f 20 56 41 52 |OUTINE...... VAR| 00000080 49 42 4c 45 53 3a 00 a0 08 e0 03 8f 20 4c 45 3d |IBLES:...... LE=| 00000090 4c 45 4e 47 54 48 20 4f 46 20 4c 49 4e 45 00 b1 |LENGTH OF LINE..| 000000a0 08 e1 03 8f 20 44 45 3d 44 45 47 52 45 45 53 00 |.... DE=DEGREES.| 000000b0 cb 08 e2 03 8f 20 54 58 3d 58 20 53 54 41 52 54 |..... TX=X START| 000000c0 20 50 4f 53 49 54 49 4f 4e 00 e5 08 e3 03 8f 20 | POSITION...... | 000000d0 54 59 3d 59 20 53 54 41 52 54 20 50 4f 53 49 54 |TY=Y START POSIT| 000000e0 49 4f 4e 00 04 09 e8 03 8b 20 44 45 b1 33 35 39 |ION...... DE.359| 000000f0 20 a7 20 44 45 b2 44 45 ab 33 36 30 3a 89 31 30 | . DE.DE.360:.10| 00000100 30 30 00 21 09 f2 03 8b 20 44 45 b3 30 20 a7 20 |00.!.... DE.0 . | 00000110 44 45 b2 44 45 aa 33 36 30 3a 89 31 30 31 30 00 |DE.DE.360:.1010.| 00000120 4b 09 fc 03 43 4f b2 44 45 3a 8b 20 44 45 b1 31 |K...CO.DE:. DE.1| 00000130 38 30 20 a7 20 58 b2 ab 31 3a 43 4f b2 33 36 30 |80 . X..1:CO.360| 00000140 ab 43 4f 3a 89 31 30 34 30 00 53 09 06 04 58 b2 |.CO:.1040.S...X.| 00000150 31 00 75 09 10 04 8b 20 43 4f b1 39 30 20 a7 20 |1.u.... CO.90 . | 00000160 43 4f b2 31 38 30 ab 43 4f 3a 59 b2 31 3a 89 31 |CO.180.CO:Y.1:.1| 00000170 30 36 30 00 7e 09 1a 04 59 b2 ab 31 00 a0 09 24 |060.~...Y..1...$| 00000180 04 8b 20 43 4f b1 34 35 20 a7 20 46 46 b2 31 3a |.. CO.45 . FF.1:| 00000190 43 4f b2 39 30 ab 43 4f 3a 89 31 30 38 30 00 a9 |CO.90.CO:.1080..| 000001a0 09 2e 04 46 46 b2 30 00 cd 09 38 04 8b 20 43 4f |...FF.0...8.. CO| 000001b0 b3 b1 30 20 a7 20 44 b2 34 35 ad 43 4f 3a 41 54 |..0 . D.45.CO:AT| 000001c0 b2 b5 28 44 29 3a 89 31 31 30 30 00 de 09 42 04 |..(D):.1100...B.| 000001d0 44 b2 39 39 39 39 39 3a 41 54 b2 44 00 f0 09 4c |D.99999:AT.D...L| 000001e0 04 8b 20 46 46 b2 31 20 a7 20 31 31 35 30 00 00 |.. FF.1 . 1150..| 000001f0 0a 56 04 81 20 4c 4f b2 31 20 a4 20 4c 45 00 0e |.V.. LO.1 . LE..| 00000200 0a 60 04 54 59 b2 54 59 aa 31 ac 59 00 3f 0a 6a |.`.TY.TY.1.Y.?.j| 00000210 04 8b 20 4c 4f b1 41 54 20 a7 20 54 58 b2 54 58 |.. LO.AT . TX.TX| 00000220 aa 31 ac 58 3a 41 54 b2 41 54 aa 44 3a 4c 4f b2 |.1.X:AT.AT.D:LO.| 00000230 4c 4f aa 28 43 4f ac 32 ad 31 30 30 29 00 53 0a |LO.(CO.2.100).S.| 00000240 74 04 9e 50 4c 4f 54 2c 54 58 2c 54 59 3a 82 3a |t..PLOT,TX,TY:.:| 00000250 8e 00 63 0a 7e 04 81 20 4c 4f b2 31 20 a4 20 4c |..c.~.. LO.1 . L| 00000260 45 00 71 0a 88 04 54 58 b2 54 58 aa 31 ac 58 00 |E.q...TX.TX.1.X.| 00000270 a2 0a 92 04 8b 20 4c 4f b1 41 54 20 a7 20 54 59 |..... LO.AT . TY| 00000280 b2 54 59 aa 31 ac 59 3a 41 54 b2 41 54 aa 44 3a |.TY.1.Y:AT.AT.D:| 00000290 4c 4f b2 4c 4f aa 28 43 4f ac 32 ad 31 30 30 29 |LO.LO.(CO.2.100)| 000002a0 00 b6 0a 9c 04 9e 50 4c 4f 54 2c 54 58 2c 54 59 |......PLOT,TX,TY| 000002b0 3a 82 3a 8e 00 00 00 |:.:....| 000002b7
.