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

LG-POLYSPIRAL

FILE INFORMATION

FILENAME(S): LG-POLYSPIRAL

FILE TYPE(S): PRG

FILE SIZE: 426b

FIRST SEEN: 2025-11-30 21:14:32

APPEARS ON: 1 disk(s)

FILE HASH

e0ac5fa4af57811737fcc8ea0151d42f1f44711b9398e59f8891f73c7aaa19a5

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-POLYSPIRAL PRG DuncanTwain 9 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 50 4F 4C  59 53 50 49 20 3A 53 49  |. TO POLYSPI :SI|
00000010: 44 45 20 3A 41 4E 47 4C  45 0D 20 46 44 20 3A 53  |DE :ANGLE. FD :S|
00000020: 49 44 45 20 52 54 20 3A  41 4E 47 4C 45 0D 20 50  |IDE RT :ANGLE. P|
00000030: 4F 4C 59 53 50 49 20 28  20 3A 53 49 44 45 20 2B  |OLYSPI ( :SIDE +|
00000040: 20 33 20 29 20 3A 41 4E  47 4C 45 0D 45 4E 44 0D  | 3 ) :ANGLE.END.|
00000050: 0D 54 4F 20 50 4F 4C 59  53 50 49 52 41 4C 20 3A  |.TO POLYSPIRAL :|
00000060: 53 49 20 3A 41 4E 20 3A  49 4E 43 0D 20 50 4F 4C  |SI :AN :INC. POL|
00000070: 59 53 54 45 50 20 3A 53  49 20 3A 41 4E 0D 20 50  |YSTEP :SI :AN. P|
00000080: 4F 4C 59 53 50 49 52 41  4C 20 28 20 3A 53 49 20  |OLYSPIRAL ( :SI |
00000090: 2B 20 3A 49 4E 43 20 29  20 3A 41 4E 20 3A 49 4E  |+ :INC ) :AN :IN|
000000A0: 43 0D 45 4E 44 0D 0D 54  4F 20 54 57 4F 50 4F 4C  |C.END..TO TWOPOL|
000000B0: 59 20 3A 53 49 31 20 3A  41 4E 31 20 3A 53 49 32  |Y :SI1 :AN1 :SI2|
000000C0: 20 3A 41 4E 32 0D 20 50  4F 4C 59 53 54 45 50 20  | :AN2. POLYSTEP |
000000D0: 3A 53 49 31 20 3A 41 4E  31 0D 20 50 4F 4C 59 53  |:SI1 :AN1. POLYS|
000000E0: 54 45 50 20 3A 53 49 32  20 3A 41 4E 32 0D 20 54  |TEP :SI2 :AN2. T|
000000F0: 57 4F 50 4F 4C 59 20 3A  53 49 31 20 3A 41 4E 31  |WOPOLY :SI1 :AN1|
00000100: 20 3A 53 49 32 20 3A 41  4E 32 0D 45 4E 44 0D 0D  | :SI2 :AN2.END..|
00000110: 54 4F 20 50 4F 4C 59 20  3A 53 49 20 3A 41 4E 0D  |TO POLY :SI :AN.|
00000120: 20 46 44 20 3A 53 49 20  52 54 20 3A 41 4E 0D 20  | FD :SI RT :AN. |
00000130: 50 4F 4C 59 20 3A 53 49  20 3A 41 4E 0D 45 4E 44  |POLY :SI :AN.END|
00000140: 0D 0D 54 4F 20 50 4F 4C  59 53 54 45 50 20 3A 53  |..TO POLYSTEP :S|
00000150: 49 20 3A 41 4E 0D 20 46  44 20 3A 53 49 20 52 54  |I :AN. FD :SI RT|
00000160: 20 3A 41 4E 0D 45 4E 44  0D 0D 54 4F 20 49 4E 53  | :AN.END..TO INS|
00000170: 50 49 20 3A 53 49 20 3A  41 4E 0D 20 50 4F 4C 59  |PI :SI :AN. POLY|
00000180: 53 54 45 50 20 3A 53 49  20 3A 41 4E 0D 20 49 4E  |STEP :SI :AN. IN|
00000190: 53 50 49 20 3A 53 49 20  28 20 3A 41 4E 20 2B 20  |SPI :SI ( :AN + |
000001A0: 31 30 20 29 0D 45 4E 44  0D 0D                    |10 ).END..      |
. TO POLYSPI :SIDE :ANGLE. FD :SIDE RT :
ANGLE. POLYSPI ( :SIDE + 3 ) :ANGLE.END.
.TO POLYSPIRAL :SI :AN :INC. POLYSTEP :S
I :AN. POLYSPIRAL ( :SI + :INC ) :AN :IN
C.END..TO TWOPOLY :SI1 :AN1 :SI2 :AN2. P
OLYSTEP :SI1 :AN1. POLYSTEP :SI2 :AN2. T
WOPOLY :SI1 :AN1 :SI2 :AN2.END..TO POLY 
:SI :AN. FD :SI RT :AN. POLY :SI :AN.END
..TO POLYSTEP :SI :AN. FD :SI RT :AN.END
..TO INSPI :SI :AN. POLYSTEP :SI :AN. IN
SPI :SI ( :AN + 10 ).END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL