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

POLY'AS.L

FILE INFORMATION

FILENAME(S): POLY'AS.L

FILE TYPE(S): SEQ

FILE SIZE: 266b

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

APPEARS ON: 2 disk(s)

FILE HASH

d7e2021c28d1ece407e9360e7e9816f67d2342b5571c4c2041835a26dd967b45

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 50 4F 4C 59 27 41  |9000 PROC POLY'A|
00000010: 53 28 58 2C 59 2C 53 2C  52 2C 41 29 20 43 4C 4F  |S(X,Y,S,R,A) CLO|
00000020: 53 45 44 0D 39 30 31 30  20 50 45 4E 55 50 20 0D  |SED.9010 PENUP .|
00000030: 39 30 32 30 20 4E 3A 3D  36 2E 32 38 33 31 38 35  |9020 N:=6.283185|
00000040: 33 31 2F 53 0D 39 30 33  30 20 41 3A 3D 52 41 44  |31/S.9030 A:=RAD|
00000050: 28 41 29 0D 39 30 34 30  20 46 4F 52 20 54 3A 3D  |(A).9040 FOR T:=|
00000060: 30 20 54 4F 20 36 2E 32  38 33 31 38 35 33 31 2B  |0 TO 6.28318531+|
00000070: 4E 20 53 54 45 50 20 4E  20 44 4F 0D 39 30 35 30  |N STEP N DO.9050|
00000080: 20 58 27 3A 3D 52 2A 43  4F 53 28 54 2B 41 29 0D  | X':=R*COS(T+A).|
00000090: 39 30 36 30 20 59 27 3A  3D 52 2A 53 49 4E 28 54  |9060 Y':=R*SIN(T|
000000A0: 2B 41 29 0D 39 30 37 30  20 53 58 3A 3D 41 53 50  |+A).9070 SX:=ASP|
000000B0: 45 43 54 2A 58 27 2B 58  0D 39 30 38 30 20 53 59  |ECT*X'+X.9080 SY|
000000C0: 3A 3D 59 2D 59 27 0D 39  30 39 30 20 44 52 41 57  |:=Y-Y'.9090 DRAW|
000000D0: 54 4F 20 53 58 2C 53 59  0D 39 31 30 30 20 50 45  |TO SX,SY.9100 PE|
000000E0: 4E 44 4F 57 4E 20 0D 39  31 31 30 20 45 4E 44 46  |NDOWN .9110 ENDF|
000000F0: 4F 52 20 54 0D 39 31 32  30 20 45 4E 44 50 52 4F  |OR T.9120 ENDPRO|
00000100: 43 20 50 4F 4C 59 27 41  53 0D                    |C POLY'AS.      |

9000 PROC POLY'AS(X,Y,S,R,A) CLOSED.9010
 PENUP .9020 N:=6.28318531/S.9030 A:=RAD
(A).9040 FOR T:=0 TO 6.28318531+N STEP N
 DO.9050 X':=R*COS(T+A).9060 Y':=R*SIN(T
+A).9070 SX:=ASPECT*X'+X.9080 SY:=Y-Y'.9
090 DRAWTO SX,SY.9100 PENDOWN .9110 ENDF
OR T.9120 ENDPROC POLY'AS.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL