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

POLY.L

FILE INFORMATION

FILENAME(S): POLY.L

FILE TYPE(S): SEQ

FILE SIZE: 266b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

4043ddb404a2b43594891165b8b2d35cb487803af5616d00a471f2f6057ff43c

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL POLY.L SEQ hedning, Mattias H00r 9 1 DOWNLOAD FILE
CCS COMAL POLY.L SEQ hedning, Mattias H00r 9 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 50 4F 4C 59 28 53  |9000 PROC POLY(S|
00000010: 2C 52 29 20 43 4C 4F 53  45 44 0D 39 30 31 30 20  |,R) CLOSED.9010 |
00000020: 4C 3A 3D 32 2A 52 2A 53  49 4E 28 50 49 2F 53 29  |L:=2*R*SIN(PI/S)|
00000030: 0D 39 30 32 30 20 41 3A  3D 33 36 30 2F 53 0D 39  |.9020 A:=360/S.9|
00000040: 30 33 30 20 50 45 4E 55  50 20 0D 39 30 34 30 20  |030 PENUP .9040 |
00000050: 46 4F 52 57 41 52 44 20  52 0D 39 30 35 30 20 52  |FORWARD R.9050 R|
00000060: 49 47 48 54 20 39 30 2B  41 2F 32 0D 39 30 36 30  |IGHT 90+A/2.9060|
00000070: 20 50 45 4E 44 4F 57 4E  20 0D 39 30 37 30 20 46  | PENDOWN .9070 F|
00000080: 4F 52 20 53 53 3A 3D 31  20 54 4F 20 53 20 44 4F  |OR SS:=1 TO S DO|
00000090: 0D 39 30 38 30 20 46 4F  52 57 41 52 44 20 4C 0D  |.9080 FORWARD L.|
000000A0: 39 30 39 30 20 52 49 47  48 54 20 41 0D 39 31 30  |9090 RIGHT A.910|
000000B0: 30 20 45 4E 44 46 4F 52  20 53 53 0D 39 31 31 30  |0 ENDFOR SS.9110|
000000C0: 20 52 49 47 48 54 20 39  30 2D 41 2F 32 0D 39 31  | RIGHT 90-A/2.91|
000000D0: 32 30 20 50 45 4E 55 50  20 0D 39 31 33 30 20 46  |20 PENUP .9130 F|
000000E0: 4F 52 57 41 52 44 20 52  0D 39 31 34 30 20 52 49  |ORWARD R.9140 RI|
000000F0: 47 48 54 20 31 38 30 0D  39 31 35 30 20 45 4E 44  |GHT 180.9150 END|
00000100: 50 52 4F 43 20 50 4F 4C  59 0D                    |PROC POLY.      |

9000 PROC POLY(S,R) CLOSED.9010 L:=2*R*S
IN(PI/S).9020 A:=360/S.9030 PENUP .9040 
FORWARD R.9050 RIGHT 90+A/2.9060 PENDOWN
 .9070 FOR SS:=1 TO S DO.9080 FORWARD L.
9090 RIGHT A.9100 ENDFOR SS.9110 RIGHT 9
0-A/2.9120 PENUP .9130 FORWARD R.9140 RI
GHT 180.9150 ENDPROC POLY.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL