_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

CURVES

FILE INFORMATION

FILENAME(S): CURVES

FILE TYPE(S): PRG

FILE SIZE: 2K

FIRST SEEN: 2025-11-30 21:07:11

APPEARS ON: 1 disk(s)

FILE HASH

3e9ef879b67137b0b5d61c0368d4484e17f4fade110bdf0c50f146069b0060b3

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CURSOR 4 CURVES PRG DuncanTwain 32 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 11 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |.......:.59468,1|
00000010: 32 00 36 04 01 00 8F 20  43 4F 50 59 52 49 47 48  |2.6.... COPYRIGH|
00000020: 54 28 43 29 20 31 39 38  30 20 44 41 56 45 20 47  |T(C) 1980 DAVE G|
00000030: 4F 46 4F 52 54 48 00 48  04 02 00 8F 20 33 32 39  |OFORTH.H.... 329|
00000040: 2D 32 32 20 53 54 20 45  00 68 04 03 00 8F 20 50  |-22 ST E.h.... P|
00000050: 52 49 4E 43 45 20 41 4C  42 45 52 54 20 53 41 53  |RINCE ALBERT SAS|
00000060: 4B 20 43 41 4E 41 44 41  00 6E 04 04 00 3A 00 89  |K CANADA.n...:..|
00000070: 04 05 00 8F 20 43 55 52  53 4F 52 20 23 32 30 2C  |.... CURSOR #20,|
00000080: 20 4D 41 59 20 31 39 38  30 00 AA 04 06 00 8F 20  | MAY 1980...... |
00000090: 42 4F 58 20 35 35 30 2C  20 47 4F 4C 45 54 41 2C  |BOX 550, GOLETA,|
000000A0: 20 43 41 2E 20 39 33 30  31 37 00 B0 04 08 00 3A  | CA. 93017.....:|
000000B0: 00 C5 04 0A 00 8F 20 41  53 20 4F 46 20 36 20 4A  |...... AS OF 6 J|
000000C0: 55 4E 20 38 30 00 E6 04  5A 00 50 47 24 B2 22 43  |UN 80...Z.PG$."C|
000000D0: 55 52 56 45 53 22 3A 4E  4D 24 B2 22 32 30 22 3A  |URVES":NM$."20":|
000000E0: 8D 36 32 30 30 30 00 04  05 64 00 86 50 43 28 31  |.62000...d..PC(1|
000000F0: 35 29 3A 81 49 B2 30 A4  31 35 3A 87 50 43 28 49  |5):.I.0.15:.PC(I|
00000100: 29 3A 82 49 00 46 05 78  00 83 33 32 2C 31 32 33  |):.I.F.x..32,123|
00000110: 2C 31 30 38 2C 39 38 2C  31 32 36 2C 39 37 2C 31  |,108,98,126,97,1|
00000120: 32 37 2C 32 35 32 2C 31  32 34 2C 32 35 35 2C 32  |27,252,124,255,2|
00000130: 32 35 2C 32 35 34 2C 32  32 36 2C 32 33 36 2C 32  |25,254,226,236,2|
00000140: 35 31 2C 32 32 34 00 67  05 7D 00 4D 24 B2 22 91  |51,224.g.}.M$.".|
00000150: A0 20 20 20 20 20 20 20  20 20 20 9D 9D 9D 9D 9D  |.          .....|
00000160: 9D 9D 9D 9D 9D 9D 22 00  7D 05 82 00 51 31 B2 33  |......".}...Q1.3|
00000170: 33 32 36 37 3A 51 30 B2  33 32 37 36 38 00 87 05  |3267:Q0.32768...|
00000180: 96 00 47 B2 37 AD 36 00  A9 05 A0 00 50 52 24 B2  |..G.7.6.....PR$.|
00000190: 22 93 50 52 45 53 53 20  12 52 45 54 55 52 4E 92  |".PRESS .RETURN.|
000001A0: 20 46 4F 52 20 4D 45 4E  55 00 B2 05 C8 00 99 22  | FOR MENU......"|
000001B0: 93 11 00 CD 05 DC 00 99  22 11 20 20 20 20 20 12  |........".     .|
000001C0: 48 92 59 50 4F 43 59 43  4C 4F 49 44 53 00 EF 05  |H.YPOCYCLOIDS...|
000001D0: F0 00 99 22 11 20 20 20  20 20 12 54 92 52 49 47  |...".     .T.RIG|
000001E0: 4F 4E 4F 4D 45 54 52 49  43 20 4C 4F 4F 50 53 00  |ONOMETRIC LOOPS.|
000001F0: 02 06 FA 00 99 22 11 20  20 20 20 20 12 51 92 55  |.....".     .Q.U|
00000200: 49 54 00 29 06 2C 01 99  22 11 50 49 43 4B 20 4F  |IT.).,..".PICK O|
00000210: 4E 45 3A 20 22 3B 3A 8D  36 30 30 30 30 3A 59 24  |NE: ";:.60000:Y$|
00000220: B2 C8 28 49 4E 24 2C 31  29 00 3A 06 36 01 8B 59  |..(IN$,1).:.6..Y|
00000230: 24 B2 22 48 22 A7 31 30  30 30 00 4B 06 40 01 8B  |$."H".1000.K.@..|
00000240: 59 24 B2 22 54 22 A7 33  30 30 30 00 5C 06 4A 01  |Y$."T".3000.\.J.|
00000250: 8B 59 24 B2 22 51 22 A7  34 30 30 30 00 73 06 54  |.Y$."Q".4000.s.T|
00000260: 01 99 22 54 52 59 20 41  47 41 49 4E 22 3A 89 20  |.."TRY AGAIN":. |
00000270: 33 30 30 00 89 06 E8 03  99 22 93 48 59 50 4F 43  |300......".HYPOC|
00000280: 59 43 4C 4F 49 44 53 11  11 00 BB 06 BA 04 99 22  |YCLOIDS........"|
00000290: 11 52 41 44 49 55 53 20  4F 46 20 4F 55 54 45 52  |.RADIUS OF OUTER|
000002A0: 20 57 48 45 45 4C 3A 20  22 3B 3A 8D 36 30 30 30  | WHEEL: ";:.6000|
000002B0: 30 3A 52 4F B2 C5 28 49  4E 24 29 00 E3 06 BF 04  |0:RO..(IN$).....|
000002C0: 8B 52 4F B3 B1 B5 28 52  4F 29 A7 99 22 11 49 4E  |.RO...(RO)..".IN|
000002D0: 54 45 47 45 52 53 20 4F  4E 4C 59 2E 22 3A 89 31  |TEGERS ONLY.":.1|
000002E0: 32 31 30 00 F3 06 C4 04  8B 52 4F B1 B2 32 A7 31  |210......RO..2.1|
000002F0: 32 35 30 00 31 07 CE 04  99 22 11 4F 55 54 45 52  |250.1....".OUTER|
00000300: 20 57 48 45 45 4C 20 4D  55 53 54 20 48 41 56 45  | WHEEL MUST HAVE|
00000310: 20 41 20 52 41 44 49 55  53 20 4F 46 20 32 22 3A  | A RADIUS OF 2":|
00000320: 99 22 4F 52 20 4D 4F 52  45 2E 22 3A 89 31 32 31  |."OR MORE.":.121|
00000330: 30 00 63 07 E2 04 99 22  11 52 41 44 49 55 53 20  |0.c....".RADIUS |
00000340: 4F 46 20 49 4E 4E 45 52  20 57 48 45 45 4C 3A 20  |OF INNER WHEEL: |
00000350: 22 3B 3A 8D 36 30 30 30  30 3A 52 49 B2 C5 28 49  |";:.60000:RI..(I|
00000360: 4E 24 29 00 8D 07 EC 04  8B 20 52 49 B3 B1 B5 28  |N$)...... RI...(|
00000370: 52 49 29 20 A7 99 22 11  49 4E 54 45 47 45 52 53  |RI) ..".INTEGERS|
00000380: 20 4F 4E 4C 59 2E 22 3A  89 31 32 35 30 00 C7 07  | ONLY.":.1250...|
00000390: F1 04 8B 52 49 B1 B2 52  4F A7 99 22 11 49 4E 4E  |...RI..RO..".INN|
000003A0: 45 52 20 57 48 45 45 4C  20 4D 55 53 54 20 42 45  |ER WHEEL MUST BE|
000003B0: 20 53 4D 41 4C 4C 45 52  20 54 48 41 4E 22 3B 52  | SMALLER THAN";R|
000003C0: 4F 3A 89 31 32 35 30 00  D7 07 F6 04 8B 52 49 B1  |O:.1250......RI.|
000003D0: B2 31 A7 31 33 30 30 00  15 08 FB 04 99 22 11 49  |.1.1300......".I|
000003E0: 4E 4E 45 52 20 57 48 45  45 4C 20 4D 55 53 54 20  |NNER WHEEL MUST |
000003F0: 48 41 56 45 20 41 20 52  41 44 49 55 53 20 4F 46  |HAVE A RADIUS OF|
00000400: 20 31 22 3A 99 22 4F 52  20 4D 4F 52 45 2E 22 3A  | 1":."OR MORE.":|
00000410: 89 31 32 35 30 00 5C 08  14 05 99 22 11 48 4F 57  |.1250.\....".HOW|
00000420: 20 46 41 52 20 46 52 4F  4D 20 54 48 45 20 43 45  | FAR FROM THE CE|
00000430: 4E 54 45 52 20 4F 46 20  54 48 45 20 49 4E 4E 45  |NTER OF THE INNE|
00000440: 52 22 3A 99 22 57 48 45  45 4C 20 49 53 20 54 48  |R":."WHEEL IS TH|
00000450: 45 20 50 45 4E 43 49 4C  3F 20 22 3B 00 71 08 1E  |E PENCIL? ";.q..|
00000460: 05 8D 36 30 30 30 30 3A  52 50 B2 C5 28 49 4E 24  |..60000:RP..(IN$|
00000470: 29 00 AC 08 23 05 8B 49  4E 24 B2 22 22 A7 52 50  |)...#..IN$."".RP|
00000480: B2 52 49 3A 99 22 11 49  27 4C 4C 20 50 55 54 20  |.RI:.".I'LL PUT |
00000490: 49 54 20 4F 4E 20 54 48  45 20 45 44 47 45 2E 22  |IT ON THE EDGE."|
000004A0: 3A 81 54 B2 31 A4 34 30  30 3A 82 54 00 DC 08 28  |:.T.1.400:.T...(|
000004B0: 05 8B 20 52 50 B3 30 20  A7 20 99 22 11 54 48 41  |.. RP.0 . .".THA|
000004C0: 54 20 44 4F 45 53 4E 27  54 20 4D 41 4B 45 20 53  |T DOESN'T MAKE S|
000004D0: 45 4E 53 45 2E 22 3A 89  31 33 30 30 00 0C 09 32  |ENSE.":.1300...2|
000004E0: 05 8B 20 52 50 B1 52 49  20 A7 20 99 22 11 9D 22  |.. RP.RI . .".."|
000004F0: 3B 52 49 3B 22 4F 52 20  4C 45 53 53 2C 20 50 4C  |;RI;"OR LESS, PL|
00000500: 45 41 53 45 2E 22 3A 89  31 33 30 30 00 1A 09 46  |EASE.":.1300...F|
00000510: 05 50 B2 52 49 3A 4E B2  52 4F 00 43 09 50 05 54  |.P.RI:N.RO.C.P.T|
00000520: B2 B5 28 50 AD 4E 29 3A  5A B2 50 AB 54 AC 4E 3A  |..(P.N):Z.P.T.N:|
00000530: 8B 5A B3 B1 30 A7 50 B2  4E 3A 4E B2 5A 3A 89 31  |.Z..0.P.N:N.Z:.1|
00000540: 33 36 30 00 5F 09 5A 05  52 49 B2 52 49 AD 4E 3A  |360._.Z.RI.RI.N:|
00000550: 52 4F B2 52 4F AD 4E 3A  52 50 B2 52 50 AD 4E 00  |RO.RO.N:RP.RP.N.|
00000560: 71 09 82 05 52 4D B2 52  4F AB 28 52 49 AB 52 50  |q...RM.RO.(RI.RP|
00000570: 29 00 7A 09 96 05 50 B2  52 4F 00 83 09 A0 05 4E  |).z...P.RO.....N|
00000580: B2 52 49 00 96 09 A5 05  44 B2 FF AD B5 28 36 30  |.RI.....D....(60|
00000590: AA 36 30 AD 4E 29 00 AE  09 DC 05 54 31 B2 31 AB  |.60.N).....T1.1.|
000005A0: 52 4F AD 52 49 3A 54 32  B2 52 4F AB 52 49 00 B7  |RO.RI:T2.RO.RI..|
000005B0: 09 E1 05 99 50 52 24 00  C8 09 E6 05 81 49 B2 30  |....PR$......I.0|
000005C0: A4 32 AC 4E AC FF A9 44  00 D4 09 EB 05 49 49 B2  |.2.N...D.....II.|
000005D0: 49 AC 54 31 00 F3 09 F0  05 59 B2 31 32 AC 28 54  |I.T1.....Y.12.(T|
000005E0: 32 AC BE 28 49 29 AA 52  50 AC BE 28 49 49 29 29  |2..(I).RP..(II))|
000005F0: AD 52 4D 00 12 0A FA 05  58 B2 31 34 AC 28 54 32  |.RM.....X.14.(T2|
00000600: AC BF 28 49 29 AA 52 50  AC BF 28 49 49 29 29 AD  |..(I).RP..(II)).|
00000610: 52 4D 00 26 0A FE 05 A1  59 24 3A 8B 59 24 B2 43  |RM.&....Y$:.Y$.C|
00000620: 52 24 A7 32 30 30 00 30  0A 04 06 8D 35 30 30 30  |R$.200.0....5000|
00000630: 00 37 0A 0E 06 82 49 00  45 0A 13 06 99 22 11 11  |.7....I.E...."..|
00000640: 44 4F 4E 45 2E 00 5B 0A  18 06 A1 59 24 3A 8B 59  |DONE..[....Y$:.Y|
00000650: 24 B3 B1 43 52 24 A7 31  35 36 30 00 64 0A 22 06  |$..CR$.1560.d.".|
00000660: 89 32 30 30 00 8C 0A B8  0B 99 22 93 11 54 52 49  |.200......"..TRI|
00000670: 47 4F 4E 4F 4D 45 54 52  49 43 20 46 55 4E 43 54  |GONOMETRIC FUNCT|
00000680: 49 4F 4E 20 50 4C 4F 54  54 49 4E 47 00 AC 0A C2  |ION PLOTTING....|
00000690: 0B 99 22 11 55 53 49 4E  47 20 50 4F 4C 41 52 20  |..".USING POLAR |
000006A0: 43 4F 4F 52 44 49 4E 41  54 45 53 2E 00 CB 0A CC  |COORDINATES.....|
000006B0: 0B 99 22 11 11 54 48 45  20 47 45 4E 45 52 41 4C  |.."..THE GENERAL|
000006C0: 20 46 4F 52 4D 55 4C 41  20 49 53 00 E5 0A D1 0B  | FORMULA IS.....|
000006D0: 99 22 20 20 20 20 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |."    ..........|
000006E0: A4 A4 A4 A4 A4 00 00 0B  D6 0B 99 22 20 20 20 20  |..........."    |
000006F0: 12 52 20 3D 20 46 20 28  20 4D 20 2A 20 41 20 29  |.R = F ( M * A )|
00000700: 00 32 0B E0 0B 99 22 11  59 4F 55 20 43 41 4E 20  |.2....".YOU CAN |
00000710: 43 48 4F 4F 53 45 20 12  46 92 91 9D A4 11 20 28  |CHOOSE .F..... (|
00000720: 54 48 45 20 46 55 4E 43  54 49 4F 4E 29 2C 20 41  |THE FUNCTION), A|
00000730: 4E 44 00 69 0B EA 0B 99  22 11 12 4D 92 91 9D A4  |ND.i...."..M....|
00000740: 11 20 28 54 48 45 20 4D  55 4C 54 49 50 4C 49 45  |. (THE MULTIPLIE|
00000750: 52 29 2E 20 12 41 92 91  9D A4 11 20 49 53 20 54  |R). .A..... IS T|
00000760: 48 45 20 41 4E 47 4C 45  2E 00 93 0B 1C 0C 99 22  |HE ANGLE......."|
00000770: 11 11 59 4F 55 20 43 41  4E 20 43 48 4F 4F 53 45  |..YOU CAN CHOOSE|
00000780: 20 54 48 45 20 46 55 4E  43 54 49 4F 4E 20 46 52  | THE FUNCTION FR|
00000790: 4F 4D 3A 00 B8 0B 26 0C  99 22 11 20 20 20 31 29  |OM:...&..".   1)|
000007A0: 20 53 49 4E 45 22 3B A3  32 30 29 3B 22 34 29 20  | SINE";.20);"4) |
000007B0: 43 4F 53 45 43 41 4E 54  00 DD 0B 30 0C 99 22 11  |COSECANT...0..".|
000007C0: 20 20 20 32 29 20 43 4F  53 49 4E 45 22 3B A3 32  |   2) COSINE";.2|
000007D0: 30 29 3B 22 35 29 20 53  45 43 41 4E 54 00 06 0C  |0);"5) SECANT...|
000007E0: 3A 0C 99 22 11 20 20 20  33 29 20 54 41 4E 47 45  |:..".   3) TANGE|

.......:.59468,12.6.... COPYRIGHT(C) 198
0 DAVE GOFORTH.H.... 329-22 ST E.H.... P
RINCE ALBERT SASK CANADA.N...:...... CUR
SOR #20, MAY 1980...... BOX 550, GOLETA,
 CA. 93017.....:.E.... AS OF 6 JUN 80...
Z.PG$."CURVES":NM$."20":.62000...D..PC(1
5):.I.0.15:.PC(I):.I.F.X..32,123,108,98,
126,97,127,252,124,255,225,254,226,236,2
51,224.G.}.M$.".           ...........".
}...Q1.33267:Q0.32768.....G.7.6... .PR$.
".PRESS .RETURN. FOR MENU...H.."...M....
".     .H.YPOCYCLOIDS......".     .T.RIG
ONOMETRIC LOOPS......".     .Q.UIT.).,..
".PICK ONE: ";:.60000:Y$.H(IN$,1).:.6..Y
$."H".1000.K.@..Y$."T".3000.\.J..Y$."Q".
4000.S.T.."TRY AGAIN":. 300......".HYPOC
YCLOIDS........".RADIUS OF OUTER WHEEL: 
";:.60000:RO.E(IN$)......RO...(RO)..".IN
TEGERS ONLY.":.1210...D..RO..2.1250.1.N.
.".OUTER WHEEL MUST HAVE A RADIUS OF 2":
."OR MORE.":.1210.C....".RADIUS OF INNER
 WHEEL: ";:.60000:RI.E(IN$)...... RI...(
RI) ..".INTEGERS ONLY.":.1250.G....RI..R
O..".INNER WHEEL MUST BE SMALLER THAN";R
O:.1250.W....RI..1.1300......".INNER WHE
EL MUST HAVE A RADIUS OF 1":."OR MORE.":
.1250.\....".HOW FAR FROM THE CENTER OF 
THE INNER":."WHEEL IS THE PENCIL? ";.Q..
..60000:RP.E(IN$)...#..IN$."".RP.RI:.".I
'LL PUT IT ON THE EDGE.":.T.1.400:.T...(
.. RP.0 . .".THAT DOESN'T MAKE SENSE.":.
1300...2.. RP.RI . ."..";RI;"OR LESS, PL
EASE.":.1300...F.P.RI:N.RO.C.P.T..(P.N):
Z.P.T.N:.Z..0.P.N:N.Z:.1360._.Z.RI.RI.N:
RO.RO.N:RP.RP.N.Q...RM.RO.(RI.RP).Z...P.
RO... .N.RI.....D....(60.60.N).....T1.1.
RO.RI:T2.RO.RI......PR$.H....I.0.2.N...D
.T...II.I.T1.....Y.12.(T2..(I).RP..(II))
.RM.....X.14.(T2..(I).RP..(II)).RM.&....
Y$:.Y$.CR$.200.0....5000.7....I.E...."..
DONE..[....Y$:.Y$..CR$.1560.D."..200....
.."..TRIGONOMETRIC FUNCTION PLOTTING...B
..".USING POLAR COORDINATES..K.L.."..THE
 GENERAL FORMULA IS...Q.."    ..........
........V.."    .R = F ( M * A ).2....".
YOU CAN CHOOSE .F..... (THE FUNCTION), A
ND.I...."..M..... (THE MULTIPLIER). .A..
... IS THE ANGLE......."..YOU CAN CHOOSE
 THE FUNCTION FROM:...&..".   1) SINE";.
20);"4) COSECANT...0..".   2) COSINE";.2
0);"5) SECANT...:..".   3) TANGE
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL