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

ARCS.LOGO

FILE INFORMATION

FILENAME(S): ARCS.LOGO

FILE TYPE(S): PRG

FILE SIZE: 664b

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

APPEARS ON: 1 disk(s)

FILE HASH

4c57c36e4b2d8867ffac8e40087dbfad1bb6c6e477fb5c6adf143670b7203e8d

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CBM 64 LOGO ARCS.LOGO PRG DuncanTwain 19 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 43 4F 52  52 45 43 54 41 52 43 52  |. TO CORRECTARCR|
00000010: 20 3A 53 49 5A 45 20 3A  41 4D 4F 55 4E 54 0D 20  | :SIZE :AMOUNT. |
00000020: 46 4F 52 57 41 52 44 20  3A 53 49 5A 45 20 2A 20  |FORWARD :SIZE * |
00000030: 3A 41 4D 4F 55 4E 54 0D  20 52 49 47 48 54 20 3A  |:AMOUNT. RIGHT :|
00000040: 41 4D 4F 55 4E 54 0D 45  4E 44 0D 0D 54 4F 20 41  |AMOUNT.END..TO A|
00000050: 52 43 52 31 20 3A 53 49  5A 45 20 3A 44 45 47 52  |RCR1 :SIZE :DEGR|
00000060: 45 45 53 0D 20 52 45 50  45 41 54 20 51 55 4F 54  |EES. REPEAT QUOT|
00000070: 49 45 4E 54 20 3A 44 45  47 52 45 45 53 20 35 20  |IENT :DEGREES 5 |
00000080: 5B 46 4F 52 57 41 52 44  20 3A 53 49 5A 45 20 2A  |[FORWARD :SIZE *|
00000090: 20 35 20 52 49 47 48 54  20 35 5D 0D 20 43 4F 52  | 5 RIGHT 5]. COR|
000000A0: 52 45 43 54 41 52 43 52  20 3A 53 49 5A 45 20 28  |RECTARCR :SIZE (|
000000B0: 20 52 45 4D 41 49 4E 44  45 52 20 3A 44 45 47 52  | REMAINDER :DEGR|
000000C0: 45 45 53 20 31 30 20 29  0D 45 4E 44 0D 0D 54 4F  |EES 10 ).END..TO|
000000D0: 20 41 52 43 52 20 3A 52  41 44 49 55 53 20 3A 44  | ARCR :RADIUS :D|
000000E0: 45 47 52 45 45 53 0D 20  52 49 47 48 54 20 32 2E  |EGREES. RIGHT 2.|
000000F0: 35 0D 20 41 52 43 52 31  20 3A 52 41 44 49 55 53  |5. ARCR1 :RADIUS|
00000100: 20 2A 20 30 2E 30 31 37  34 35 33 20 3A 44 45 47  | * 0.017453 :DEG|
00000110: 52 45 45 53 0D 20 4C 45  46 54 20 32 2E 35 0D 45  |REES. LEFT 2.5.E|
00000120: 4E 44 0D 0D 54 4F 20 43  49 52 43 4C 45 52 20 3A  |ND..TO CIRCLER :|
00000130: 52 41 44 49 55 53 0D 20  41 52 43 52 20 3A 52 41  |RADIUS. ARCR :RA|
00000140: 44 49 55 53 20 33 36 30  0D 45 4E 44 0D 0D 54 4F  |DIUS 360.END..TO|
00000150: 20 43 4F 52 52 45 43 54  41 52 43 4C 20 3A 53 49  | CORRECTARCL :SI|
00000160: 5A 45 20 3A 41 4D 4F 55  4E 54 0D 20 46 4F 52 57  |ZE :AMOUNT. FORW|
00000170: 41 52 44 20 3A 53 49 5A  45 20 2A 20 3A 41 4D 4F  |ARD :SIZE * :AMO|
00000180: 55 4E 54 0D 20 4C 45 46  54 20 3A 41 4D 4F 55 4E  |UNT. LEFT :AMOUN|
00000190: 54 0D 45 4E 44 0D 0D 54  4F 20 41 52 43 4C 31 20  |T.END..TO ARCL1 |
000001A0: 3A 53 49 5A 45 20 3A 44  45 47 52 45 45 53 0D 20  |:SIZE :DEGREES. |
000001B0: 52 45 50 45 41 54 20 51  55 4F 54 49 45 4E 54 20  |REPEAT QUOTIENT |
000001C0: 3A 44 45 47 52 45 45 53  20 35 20 5B 46 4F 52 57  |:DEGREES 5 [FORW|
000001D0: 41 52 44 20 3A 53 49 5A  45 20 2A 20 35 20 4C 45  |ARD :SIZE * 5 LE|
000001E0: 46 54 20 35 5D 0D 20 43  4F 52 52 45 43 54 41 52  |FT 5]. CORRECTAR|
000001F0: 43 4C 20 3A 53 49 5A 45  20 28 20 52 45 4D 41 49  |CL :SIZE ( REMAI|
00000200: 4E 44 45 52 20 3A 44 45  47 52 45 45 53 20 31 30  |NDER :DEGREES 10|
00000210: 20 29 0D 45 4E 44 0D 0D  54 4F 20 41 52 43 4C 20  | ).END..TO ARCL |
00000220: 3A 52 41 44 49 55 53 20  3A 44 45 47 52 45 45 53  |:RADIUS :DEGREES|
00000230: 0D 20 4C 45 46 54 20 32  2E 35 0D 20 41 52 43 4C  |. LEFT 2.5. ARCL|
00000240: 31 20 3A 52 41 44 49 55  53 20 2A 20 30 2E 30 31  |1 :RADIUS * 0.01|
00000250: 37 34 35 33 20 3A 44 45  47 52 45 45 53 0D 20 52  |7453 :DEGREES. R|
00000260: 49 47 48 54 20 32 2E 35  0D 45 4E 44 0D 0D 54 4F  |IGHT 2.5.END..TO|
00000270: 20 43 49 52 43 4C 45 4C  20 3A 52 41 44 49 55 53  | CIRCLEL :RADIUS|
00000280: 0D 20 41 52 43 4C 20 3A  52 41 44 49 55 53 20 33  |. ARCL :RADIUS 3|
00000290: 36 30 0D 45 4E 44 0D 0D                           |60.END..        |

. TO CORRECTARCR :SIZE :AMOUNT. FORWARD 
:SIZE * :AMOUNT. RIGHT :AMOUNT.END..TO A
RCR1 :SIZE :DEGREES. REPEAT QUOTIENT :DE
GREES 5 [FORWARD :SIZE * 5 RIGHT 5]. COR
RECTARCR :SIZE ( REMAINDER :DEGREES 10 )
.END..TO ARCR :RADIUS :DEGREES. RIGHT 2.
5. ARCR1 :RADIUS * 0.017453 :DEGREES. LE
FT 2.5.END..TO CIRCLER :RADIUS. ARCR :RA
DIUS 360.END..TO CORRECTARCL :SIZE :AMOU
NT. FORWARD :SIZE * :AMOUNT. LEFT :AMOUN
T.END..TO ARCL1 :SIZE :DEGREES. REPEAT Q
UOTIENT :DEGREES 5 [FORWARD :SIZE * 5 LE
FT 5]. CORRECTARCL :SIZE ( REMAINDER :DE
GREES 10 ).END..TO ARCL :RADIUS :DEGREES
. LEFT 2.5. ARCL1 :RADIUS * 0.017453 :DE
GREES. RIGHT 2.5.END..TO CIRCLEL :RADIUS
. ARCL :RADIUS 360.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL