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

CIRCREGPOLY".LOG

FILE INFORMATION

FILENAME(S): CIRCREGPOLY".LOG

FILE TYPE(S): PRG

FILE SIZE: 133b

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

APPEARS ON: 1 disk(s)

FILE HASH

e637b15b04dc8ad886f3d1204c2f34ddff672ad0ffe5c37e3e0c14844a2f72e5

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CBM 64 LOGO CIRCREGPOLY".LOG PRG DuncanTwain 3 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 30 54 4F 20 43 49 52  43 20 3A 53 20 3A 41 20  |.0TO CIRC :S :A |
00000010: 3A 52 41 44 0D 20 46 44  20 3A 53 0D 20 49 46 20  |:RAD. FD :S. IF |
00000020: 28 20 28 20 58 43 4F 52  20 2A 20 58 43 4F 52 20  |( ( XCOR * XCOR |
00000030: 29 20 2B 20 28 20 59 43  4F 52 20 2A 20 59 43 4F  |) + ( YCOR * YCO|
00000040: 52 20 29 20 29 20 3E 20  28 20 3A 52 41 44 20 2A  |R ) ) > ( :RAD *|
00000050: 20 3A 52 41 44 20 29 20  54 48 45 4E 20 52 54 20  | :RAD ) THEN RT |
00000060: 31 38 30 20 45 4C 53 45  20 52 54 20 3A 41 0D 20  |180 ELSE RT :A. |
00000070: 43 49 52 43 20 3A 53 20  3A 41 20 3A 52 41 44 0D  |CIRC :S :A :RAD.|
00000080: 45 4E 44 0D 0D                                    |END..           |

.0TO CIRC :S :A :RAD. FD :S. IF ( ( XCOR
 * XCOR ) + ( YCOR * YCOR ) ) > ( :RAD *
 :RAD ) THEN RT 180 ELSE RT :A. CIRC :S 
:A :RAD.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL