1520 SPIROGRAPH
FILE INFORMATION
FILENAME(S): 1520 SPIROGRAPH
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-10-20 14:29:56
APPEARS ON: 1 disk(s)
FILE HASH
f50b33da571524930dd6301eff3eaf3bcb452fd6e4221b9de51cf06831c29b36
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0054GR | 1520 SPIROGRAPH | PRG | Treasure Chest - Klaus Der Suhler | 30 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 11 1C 0A 00 44 45 B2 30 20 3A 20 41 4E B2 |......DE.0 : AN.| 00000010: 30 00 5F 1C 14 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |0._.... --------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000060: 7A 1C 1E 00 8F 20 50 52 4F 47 52 41 4D 20 3A 20 |z.... PROGRAM : | 00000070: 53 50 49 52 4F 47 52 41 50 48 00 A7 1C 28 00 8F |SPIROGRAPH...(..| 00000080: 20 41 55 54 48 4F 52 20 20 3A 20 4E 45 44 20 4D | AUTHOR : NED M| 00000090: 41 5A 45 52 41 4C 4C 20 26 20 44 45 4E 4E 49 53 |AZERALL & DENNIS| 000000A0: 20 42 41 59 4F 4D 49 00 D5 1C 32 00 8F 20 20 20 | BAYOMI...2.. | 000000B0: 20 20 20 20 20 20 20 20 49 42 4D 20 50 43 20 55 | IBM PC U| 000000C0: 53 45 52 20 47 52 4F 55 50 20 4F 46 20 57 49 4E |SER GROUP OF WIN| 000000D0: 4E 49 50 45 47 00 03 1D 3C 00 8F 20 50 55 52 50 |NIPEG...<.. PURP| 000000E0: 4F 53 45 20 3A 20 54 4F 20 44 52 41 57 20 53 50 |OSE : TO DRAW SP| 000000F0: 49 52 4F 47 52 41 50 48 53 20 55 53 49 4E 47 20 |IROGRAPHS USING | 00000100: 54 48 45 00 2A 1D 46 00 8F 20 20 20 20 20 20 20 |THE.*.F.. | 00000110: 20 20 20 20 48 59 43 59 43 4C 4F 49 44 41 4C 20 | HYCYCLOIDAL | 00000120: 45 51 55 41 54 49 4F 4E 53 2E 00 4C 1D 50 00 8F |EQUATIONS..L.P..| 00000130: 20 42 41 53 49 43 20 38 20 3A 20 4D 41 52 4B 20 | BASIC 8 : MARK | 00000140: 53 45 4C 46 20 39 2F 32 31 2F 38 37 00 99 1D 5A |SELF 9/21/87...Z| 00000150: 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------| 00000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A6 1D 64 00 99 20 |---------...d.. | 000001A0: C7 28 31 34 37 29 00 EB 1D 6E 00 85 20 22 52 55 |.(147)...n.. "RU| 000001B0: 4E 20 44 45 4D 4F 20 28 59 2F 4E 29 20 20 20 20 |N DEMO (Y/N) | 000001C0: 20 20 20 20 20 20 20 20 20 3A 20 22 3B 44 45 24 | : ";DE$| 000001D0: 20 3A 20 8B 20 44 45 24 20 B2 20 22 59 22 20 A7 | : . DE$ . "Y" .| 000001E0: 20 37 30 30 20 3A 20 41 4E B2 31 00 14 1E 78 00 | 700 : AN.1...x.| 000001F0: 85 20 22 52 41 44 49 55 53 20 4F 46 20 46 49 58 |. "RADIUS OF FIX| 00000200: 45 44 20 43 49 52 43 4C 45 20 20 20 20 20 3A 20 |ED CIRCLE : | 00000210: 22 3B 52 31 00 3D 1E 82 00 85 20 22 52 41 44 49 |";R1.=.... "RADI| 00000220: 55 53 20 4F 46 20 52 4F 4C 4C 49 4E 47 20 43 49 |US OF ROLLING CI| 00000230: 52 43 4C 45 20 20 20 3A 20 22 3B 52 32 00 66 1E |RCLE : ";R2.f.| 00000240: 8C 00 85 20 22 52 41 44 49 55 53 20 4F 46 20 54 |... "RADIUS OF T| 00000250: 52 41 43 49 4E 47 20 50 4F 49 4E 54 20 20 20 20 |RACING POINT | 00000260: 3A 20 22 3B 54 52 00 8F 1E 96 00 85 20 22 54 52 |: ";TR...... "TR| 00000270: 41 43 49 4E 47 20 50 4F 49 4E 54 20 49 4E 43 52 |ACING POINT INCR| 00000280: 45 4D 45 4E 54 20 20 20 20 3A 20 22 3B 49 54 00 |EMENT : ";IT.| 00000290: B7 1E A0 00 85 20 22 49 4E 49 54 49 41 4C 20 53 |..... "INITIAL S| 000002A0: 49 5A 45 20 46 41 43 54 4F 52 20 20 20 20 20 20 |IZE FACTOR | 000002B0: 20 20 3A 20 22 3B 43 00 E0 1E AA 00 85 20 22 46 | : ";C...... "F| 000002C0: 49 4E 41 4C 20 53 49 5A 45 20 46 41 43 54 4F 52 |INAL SIZE FACTOR| 000002D0: 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B 45 58 | : ";EX| 000002E0: 00 09 1F B4 00 85 20 22 50 48 41 53 45 20 49 4E |...... "PHASE IN| 000002F0: 43 52 45 4D 45 4E 54 20 28 41 42 4F 55 54 20 2E |CREMENT (ABOUT .| 00000300: 31 29 20 3A 20 22 3B 50 46 00 32 1F BE 00 85 20 |1) : ";PF.2.... | 00000310: 22 53 49 5A 45 20 46 41 43 54 4F 52 20 49 4E 43 |"SIZE FACTOR INC| 00000320: 52 45 4D 45 4E 54 20 20 20 20 20 20 3A 20 22 3B |REMENT : ";| 00000330: 49 31 00 5B 1F C8 00 85 20 22 50 41 52 41 4D 45 |I1.[.... "PARAME| 00000340: 54 45 52 20 28 54 29 20 49 4E 43 52 45 4D 45 4E |TER (T) INCREMEN| 00000350: 54 20 20 20 20 3A 20 22 3B 49 32 00 85 1F D2 00 |T : ";I2.....| 00000360: 85 20 22 53 4F 55 4E 44 20 45 46 46 45 43 54 53 |. "SOUND EFFECTS| 00000370: 20 28 59 2F 4E 29 20 20 20 20 20 20 20 20 3A 20 | (Y/N) : | 00000380: 22 3B 41 4E 24 00 9B 1F DC 00 8B 20 41 4E 24 20 |";AN$...... AN$ | 00000390: B2 20 22 59 22 20 A7 20 32 36 30 00 BC 1F E6 00 |. "Y" . 260.....| 000003A0: 8B 20 41 4E 24 20 B2 20 22 4E 22 20 A7 20 41 4E |. AN$ . "N" . AN| 000003B0: 20 B2 20 31 20 3A 20 89 20 33 31 30 00 E0 1F F0 | . 1 : . 310....| 000003C0: 00 8B 20 41 4E 24 20 B3 B1 20 22 59 22 20 B0 20 |.. AN$ .. "Y" . | 000003D0: 41 4E 24 20 B3 B1 20 22 4E 22 20 A7 20 32 31 30 |AN$ .. "N" . 210| 000003E0: 00 2D 20 FA 00 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.- ...----------| 000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 59 20 |-------------.Y | 00000430: 04 01 46 31 20 B2 20 35 30 30 30 20 3A 20 46 32 |..F1 . 5000 : F2| 00000440: 20 B2 20 46 31 AB 31 30 30 30 20 3A 20 46 33 20 | . F1.1000 : F3 | 00000450: B2 20 46 31 AB 32 30 30 30 00 6F 20 0E 01 4D 31 |. F1.2000.o ..M1| 00000460: 20 B2 20 28 46 31 AB 28 58 31 AC 31 30 29 29 00 | . (F1.(X1.10)).| 00000470: 85 20 18 01 4D 32 20 B2 20 28 46 32 AB 28 58 31 |. ..M2 . (F2.(X1| 00000480: AC 31 30 29 29 00 9B 20 22 01 4D 33 20 B2 20 28 |.10)).. ".M3 . (| 00000490: 46 33 AB 28 58 31 AC 31 30 29 29 00 E8 20 2C 01 |F3.(X1.10)).. ,.| 000004A0: 8F 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------| 000004B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 00 03 21 36 01 50 49 B2 |--------..!6.PI.| 000004F0: 20 33 2E 31 34 31 35 39 33 20 20 20 3A 20 8D 20 | 3.141593 : . | 00000500: 36 31 30 00 13 21 40 01 9F 31 2C 36 2C 31 3A 9F |610..!@..1,6,1:.| 00000510: 34 2C 36 00 28 21 4A 01 98 31 2C 22 4D 22 2C 30 |4,6.(!J..1,"M",0| 00000520: 2C AB 33 30 30 3A 98 34 00 57 21 54 01 47 20 B2 |,.300:.4.W!T.G .| 00000530: 20 28 52 31 AA 52 32 29 AD 52 32 20 3A 20 4D 20 | (R1.R2).R2 : M | 00000540: B2 20 52 31 AA 52 32 20 20 3A 20 8F 20 45 50 49 |. R1.R2 : . EPI| 00000550: 43 59 43 4C 4F 49 44 00 87 21 5E 01 48 20 B2 20 |CYCLOID..!^.H . | 00000560: 28 52 31 AB 52 32 29 AD 52 32 20 3A 20 4E 20 B2 |(R1.R2).R2 : N .| 00000570: 20 52 31 AB 52 32 20 20 3A 20 8F 20 48 59 50 4F | R1.R2 : . HYPO| 00000580: 43 59 43 4C 4F 49 44 00 9B 21 68 01 81 20 4A B2 |CYCLOID..!h.. J.| 00000590: 31 20 A4 20 45 58 20 A9 20 49 31 00 B3 21 72 01 |1 . EX . I1..!r.| 000005A0: 46 20 B2 20 46 20 AA 20 50 46 20 20 3A 20 54 20 |F . F . PF : T | 000005B0: B2 20 30 00 DC 21 7C 01 58 20 B2 20 32 34 30 AA |. 0..!|.X . 240.| 000005C0: 36 AC 4A AD 43 AC 28 4E AC BE 28 54 AA 46 29 AA |6.J.C.(N..(T.F).| 000005D0: 54 52 AC BE 28 48 AC 54 AA 46 29 29 00 05 22 86 |TR..(H.T.F))..".| 000005E0: 01 59 20 B2 20 32 34 30 AA 36 AC 4A AD 43 AC 28 |.Y . 240.6.J.C.(| 000005F0: 4E AC BF 28 54 AA 46 29 AB 54 52 AC BF 28 48 AC |N..(T.F).TR..(H.| 00000600: 54 AA 46 29 29 00 14 22 90 01 98 31 2C 22 4D 22 |T.F)).."...1,"M"| 00000610: 2C 58 2C 59 00 2F 22 9A 01 81 20 54 B2 30 20 A4 |,X,Y./"... T.0 .| 00000620: 20 32 AC 44 AC 50 49 AA 2E 31 20 A9 20 49 32 00 | 2.D.PI..1 . I2.| 00000630: 59 22 A4 01 58 31 20 B2 20 32 34 30 AA 36 AC 4A |Y"..X1 . 240.6.J| 00000640: AD 43 AC 28 4E AC BE 28 54 AA 46 29 AA 54 52 AC |.C.(N..(T.F).TR.| 00000650: BE 28 48 AC 54 AA 46 29 29 00 83 22 AE 01 59 31 |.(H.T.F)).."..Y1| 00000660: 20 B2 20 32 34 30 AA 36 AC 4A AD 43 AC 28 4E AC | . 240.6.J.C.(N.| 00000670: BF 28 54 AA 46 29 AB 54 52 AC BF 28 48 AC 54 AA |.(T.F).TR..(H.T.| 00000680: 46 29 29 00 96 22 B8 01 8B 20 59 31 20 B3 20 31 |F)).."... Y1 . 1| 00000690: 20 A7 20 35 35 30 00 A9 22 C2 01 8B 20 58 31 20 | . 550.."... X1 | 000006A0: B3 20 31 20 A7 20 35 35 30 00 CB 22 CC 01 98 31 |. 1 . 550.."...1| 000006B0: 2C 22 44 22 2C 58 31 2C 59 31 20 3A 20 8B 20 41 |,"D",X1,Y1 : . A| 000006C0: 4E 20 B2 20 30 20 A7 20 35 30 30 00 EA 22 D6 01 |N . 0 . 500.."..| 000006D0: DA 20 31 2C 46 31 AA 28 58 31 AC 31 30 29 2C 35 |. 1,F1.(X1.10),5| 000006E0: 2C 32 2C 4D 31 2C 59 31 2C 30 00 0A 23 E0 01 DA |,2,M1,Y1,0..#...| 000006F0: 20 32 2C 46 32 AA 28 58 31 AC 31 30 29 2C 31 30 | 2,F2.(X1.10),10| 00000700: 2C 32 2C 4D 32 2C 59 31 2C 30 00 2A 23 EA 01 DA |,2,M2,Y1,0.*#...| 00000710: 20 33 2C 46 33 AA 28 58 31 AC 31 30 29 2C 31 35 | 3,F3.(X1.10),15| 00000720: 2C 32 2C 4D 33 2C 59 31 2C 30 00 3E 23 F4 01 58 |,2,M3,Y1,0.>#..X| 00000730: 20 B2 20 58 31 20 3A 20 59 20 B2 20 59 31 00 44 | . X1 : Y . Y1.D| 00000740: 23 FE 01 82 00 55 23 08 02 54 52 20 B2 20 54 52 |#....U#..TR . TR| 00000750: 20 AA 20 49 54 00 64 23 12 02 82 20 3A 20 99 20 | . IT.d#... : . | 00000760: C7 28 37 29 00 87 23 1C 02 99 20 22 50 52 45 53 |.(7)..#... "PRES| 00000770: 53 20 53 50 41 43 45 42 41 52 20 54 4F 20 43 4F |S SPACEBAR TO CO| 00000780: 4E 54 49 4E 55 45 22 00 A3 23 26 02 A1 20 41 24 |NTINUE"..#&.. A$| 00000790: 20 3A 20 8B 20 41 24 20 B2 20 22 22 20 20 A7 20 | : . A$ . "" . | 000007A0: 35 35 30 00 BB 23 30 02 8B 20 41 24 20 B3 B1 20 |550..#0.. A$ .. | 000007B0: C7 28 33 32 29 20 A7 20 35 35 30 00 CD 23 3A 02 |.(32) . 550..#:.| 000007C0: 98 31 2C 22 4D 22 2C 30 2C AB 32 34 30 00 D4 23 |.1,"M",0,.240..#| 000007D0: 44 02 98 34 00 EA 23 4E 02 98 31 3A A0 31 3A 98 |D..4..#N..1:.1:.| 000007E0: 34 3A A0 34 3A 89 20 31 30 30 00 F0 23 58 02 80 |4:.4:. 100..#X..| 000007F0: 00 16 24 62 02 8F 20 2A 2A 2A 20 4C 45 41 53 54 |..$b.. *** LEAST| 00000800: 20 43 4F 4D 4D 4F 4E 20 4D 55 4C 54 49 50 4C 45 | COMMON MULTIPLE| 00000810: 20 28 4C 43 4D 29 00 3F 24 6C 02 8D 20 36 34 30 | (LCM).?$l.. 640| 00000820: 20 3A 20 4C 43 4D 20 B2 20 52 31 AC 52 32 AD 47 | : LCM . R1.R2.G| 00000830: 43 44 20 3A 20 44 20 B2 20 4C 43 4D AD 52 31 00 |CD : D . LCM.R1.| 00000840: 45 24 76 02 8E 00 6D 24 80 02 8F 20 2A 2A 2A 20 |E$v...m$... *** | 00000850: 47 52 45 41 54 45 53 54 20 43 4F 4D 4D 4F 4E 20 |GREATEST COMMON | 00000860: 44 49 56 49 53 4F 52 20 28 47 43 44 29 00 81 24 |DIVISOR (GCD)..$| 00000870: 8A 02 58 20 B2 20 52 31 20 3A 20 59 20 B2 20 52 |..X . R1 : Y . R| 00000880: 32 00 B3 24 94 02 52 20 B2 20 58 AB B5 28 58 AD |2..$..R . X..(X.| 00000890: 59 29 AC 59 20 3A 20 8B 20 52 20 B3 B1 20 30 20 |Y).Y : . R .. 0 | 000008A0: A7 20 58 B2 59 20 3A 20 59 B2 52 20 3A 20 89 20 |. X.Y : Y.R : . | 000008B0: 36 36 30 00 BF 24 9E 02 47 43 44 20 B2 20 59 00 |660..$..GCD . Y.| 000008C0: C5 24 A8 02 8E 00 0C 25 B2 02 8F 20 2D 2D 2D 2D |.$.....%... ----| 000008D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 2C 25 BC |------------.,%.| 00000910: 02 87 20 52 31 2C 52 32 2C 54 52 2C 49 54 2C 43 |.. R1,R2,TR,IT,C| 00000920: 2C 45 58 2C 50 46 2C 49 31 2C 49 32 00 5C 25 C6 |,EX,PF,I1,I2.\%.| 00000930: 02 44 45 20 B2 20 44 45 20 AA 20 31 20 3A 20 8B |.DE . DE . 1 : .| 00000940: 20 44 45 20 B2 20 35 20 A7 20 44 45 20 B2 20 30 | DE . 5 . DE . 0| 00000950: 20 3A 20 8C 20 3A 20 89 20 31 31 30 00 66 25 D0 | : . : . 110.f%.| 00000960: 02 89 20 33 31 30 00 86 25 DA 02 83 20 39 36 2C |.. 310..%... 96,| 00000970: 32 34 2C 36 30 2C 2D 33 2C 31 32 2C 34 2C 2E 32 |24,60,-3,12,4,.2| 00000980: 2C 2E 31 2C 2E 32 00 A9 25 E4 02 83 20 33 39 2C |,.1,.2..%... 39,| 00000990: 32 36 2C 35 32 2C 2D 31 2E 35 2C 35 2C 33 2E 35 |26,52,-1.5,5,3.5| 000009A0: 2C 2E 32 2C 2E 31 2C 2E 32 00 CA 25 EE 02 83 20 |,.2,.1,.2..%... | 000009B0: 38 30 2C 34 30 2C 34 30 2C 2D 34 2C 31 30 2C 31 |80,40,40,-4,10,1| 000009C0: 30 2C 2E 34 2C 2E 31 2C 2E 31 00 EC 25 F8 02 83 |0,.4,.1,.1..%...| 000009D0: 20 34 39 2C 32 38 2C 35 36 2C 2D 33 2C 31 32 2C | 49,28,56,-3,12,| 000009E0: 34 2E 38 2C 2E 32 2C 2E 31 2C 2E 31 00 0B 26 02 |4.8,.2,.1,.1..&.| 000009F0: 03 83 20 36 34 2C 32 34 2C 35 36 2C 2D 33 2C 36 |.. 64,24,56,-3,6| 00000A00: 2C 32 2C 2E 31 2C 2E 31 2C 2E 32 00 31 26 0C 03 |,2,.1,.1,.2.1&..| 00000A10: 83 20 31 37 31 2C 31 34 2E 32 35 2C 34 32 2E 37 |. 171,14.25,42.7| 00000A20: 35 2C 2D 38 2C 36 2C 31 2C 2E 32 2C 2E 31 2C 2E |5,-8,6,1,.2,.1,.| 00000A30: 32 00 00 00 |2... |
......DE.0 : AN.0._.... ----------------
----------------------------------------
---------------.Z.... PROGRAM : SPIROGRA
PH...(.. AUTHOR : NED MAZERALL & DENNIS
BAYOMI.U.2.. IBM PC USER GROU
P OF WINNIPEG...<.. PURPOSE : TO DRAW SP
IROGRAPHS USING THE.*.F.. HYCY
CLOIDAL EQUATIONS..L.P.. BASIC 8 : MARK
SELF 9/21/87...Z.. ---------------------
----------------------------------------
---------...D.. G(147)...N.. "RUN DEMO (
Y/N) : ";DE$ : . DE$ . "Y" .
700 : AN.1...X.. "RADIUS OF FIXED CIRCL
E : ";R1.=.... "RADIUS OF ROLLING CI
RCLE : ";R2.F.... "RADIUS OF TRACING P
OINT : ";TR...... "TRACING POINT INCR
EMENT : ";IT... .. "INITIAL SIZE FACT
OR : ";C...... "FINAL SIZE FACTOR
: ";EX...... "PHASE INCREMENT
(ABOUT .1) : ";PF.2.... "SIZE FACTOR INC
REMENT : ";I1.[.H.. "PARAMETER (T)
INCREMENT : ";I2...R.. "SOUND EFFECTS
(Y/N) : ";AN$...... AN$ . "Y" .
260...... AN$ . "N" . AN . 1 : . 310....
.. AN$ .. "Y" . AN$ .. "N" . 210.- ...--
----------------------------------------
-----------------------------.Y ..F1 . 5
000 : F2 . F1.1000 : F3 . F1.2000.O ..M1
. (F1.(X1.10)).. ..M2 . (F2.(X1.10))..
".M3 . (F3.(X1.10)).. ,..---------------
----------------------------------------
----------------..!6.PI. 3.141593 : .
610..!@..1,6,1:.4,6.(!J..1,"M",0,.300:.4
.W!T.G . (R1.R2).R2 : M . R1.R2 : . EPI
CYCLOID..!^.H . (R1.R2).R2 : N . R1.R2
: . HYPOCYCLOID..!H.. J.1 . EX . I1..!R.
F . F . PF : T . 0..!|.X . 240.6.J.C.(N
..(T.F).TR..(H.T.F)).."..Y . 240.6.J.C.(
N..(T.F).TR..(H.T.F)).."...1,"M",X,Y./".
.. T.0 . 2.D.PI..1 . I2.Y"..X1 . 240.6.J
.C.(N..(T.F).TR..(H.T.F)).."..Y1 . 240.6
.J.C.(N..(T.F).TR..(H.T.F)).."... Y1 . 1
. 550.."B.. X1 . 1 . 550.K"L..1,"D",X1,
Y1 : . AN . 0 . 500.."V.Z 1,F1.(X1.10),5
,2,M1,Y1,0..#..Z 2,F2.(X1.10),10,2,M2,Y1
,0.*#..Z 3,F3.(X1.10),15,2,M3,Y1,0.>#..X
. X1 : Y . Y1.D#....U#..TR . TR . IT.D#
... : . G(7)..#... "PRESS SPACEBAR TO CO
NTINUE"..#&.. A$ : . A$ . "" . 550..#0.
. A$ .. G(32) . 550.M#:..1,"M",0,.240.T#
D..4..#N..1: 1:.4: 4:. 100..#X....$B.. *
** LEAST COMMON MULTIPLE (LCM).?$L.. 640
: LCM . R1.R2.GCD : D . LCM.R1.E$V...M$
... *** GREATEST COMMON DIVISOR (GCD)..$
..X . R1 : Y . R2..$..R . X..(X.Y).Y : .
R .. 0 . X.Y : Y.R : . 660..$..GCD . Y.
E$.....%... ----------------------------
------------------------------------.,%.
.. R1,R2,TR,IT,C,EX,PF,I1,I2.\%F.DE . DE
. 1 : . DE . 5 . DE . 0 : . : . 110.F%P
.. 310..%Z.. 96,24,60,-3,12,4,.2,.1,.2..
%... 39,26,52,-1.5,5,3.5,.2,.1,.2.J%...
80,40,40,-4,10,10,.4,.1,.1..%... 49,28,5
6,-3,12,4.8,.2,.1,.1..&... 64,24,56,-3,6
,2,.1,.1,.2.1&... 171,14.25,42.75,-8,6,1
,.2,.1,.2...
> CLICK IMAGE PREVIEW FOR FULL MODAL