CORRECTARC".LOGO

FILE INFORMATION

FILENAME(S): CORRECTARC".LOGO

FILE TYPE(S): PRG

FILE SIZE: 949b

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

APPEARS ON: 1 disk(s)

FILE HASH

86468b70ea86481b5062aa02c20f8de9a58f4acf3661e54ce7c7ac61671f0927

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CBM 64 LOGO	CORRECTARC".LOGO	PRG	DuncanTwain	4	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 30 54 4F 20 43 4F 52  52 45 43 54 41 52 43 20  |.0TO CORRECTARC |
00000010: 3A 53 49 5A 45 20 3A 41  4D 4F 55 4E 54 0D 20 46  |:SIZE :AMOUNT. F|
00000020: 44 20 3A 53 49 5A 45 20  2A 20 3A 41 4D 4F 55 4E  |D :SIZE * :AMOUN|
00000030: 54 0D 20 52 54 20 3A 41  4D 4F 55 4E 54 0D 45 4E  |T. RT :AMOUNT.EN|
00000040: 44 0D 0D 54 4F 20 43 4F  52 52 9E 7C 9E 20 AE 13  |D..TO CORR.|. ..|
00000050: F8 EC 01 20 4C 67 85 63  C8 B1 57 70 09 15 20 3A  |... Lg.c..Wp.. :|
00000060: 53 49 5A 45 20 3A 41 4D  4F 55 4E 54 0D 20 46 44  |SIZE :AMOUNT. FD|
00000070: 20 3A 53 49 5A 45 20 2A  20 3A 41 4D 4F 55 4E 54  | :SIZE * :AMOUNT|
00000080: 0D 20 52 54 20 3A 41 4D  4F 55 4E 54 0D 45 4E 44  |. RT :AMOUNT.END|
00000090: 0D 0D 54 4F 20 43 49 52  43 4C 45 33 20 3A 53 49  |..TO CIRCLE3 :SI|
000000A0: 5A 45 0D 20 52 45 50 45  41 54 20 33 36 20 5B 46  |ZE. REPEAT 36 [F|
000000B0: 44 20 3A 53 49 5A 45 2A  31 30 20 52 54 20 31 30  |D :SIZE*10 RT 10|
000000C0: 5D 0D 45 4E 44 0D 0D 54  4F 20 53 55 4E 20 3A 53  |].END..TO SUN :S|
000000D0: 49 5A 45 0D 20 52 45 50  45 41 54 20 39 20 5B 52  |IZE. REPEAT 9 [R|
000000E0: 41 59 20 3A 53 49 5A 45  20 52 54 20 31 36 30 5D  |AY :SIZE RT 160]|
000000F0: 0D 45 4E 44 0D 0D 54 4F  20 52 41 59 20 3A 53 49  |.END..TO RAY :SI|
00000100: 5A 45 0D 20 41 52 43 4C  45 46 54 20 3A 53 49 5A  |ZE. ARCLEFT :SIZ|
00000110: 45 20 39 30 0D 20 41 52  43 52 49 47 48 54 20 3A  |E 90. ARCRIGHT :|
00000120: 53 49 5A 45 20 39 30 0D  20 41 52 43 4C 45 46 54  |SIZE 90. ARCLEFT|
00000130: 20 3A 53 49 5A 45 20 39  30 0D 20 41 52 43 52 49  | :SIZE 90. ARCRI|
00000140: 47 48 54 20 3A 53 49 5A  45 20 39 30 0D 45 4E 44  |GHT :SIZE 90.END|
00000150: 0D 0D 54 4F 20 41 52 43  4C 45 46 54 20 3A 52 41  |..TO ARCLEFT :RA|
00000160: 44 49 55 53 20 3A 44 45  47 52 45 45 53 0D 20 41  |DIUS :DEGREES. A|
00000170: 52 43 4C 45 46 54 31 20  3A 52 41 44 49 55 53 20  |RCLEFT1 :RADIUS |
00000180: 2A 20 31 2E 37 34 4E 32  20 3A 44 45 47 52 45 45  |* 1.74N2 :DEGREE|
00000190: 53 0D 45 4E 44 0D 0D 54  4F 20 41 52 43 4C 45 46  |S.END..TO ARCLEF|
000001A0: 54 31 20 3A 53 49 5A 45  20 3A 44 45 47 52 45 45  |T1 :SIZE :DEGREE|
000001B0: 53 0D 20 52 45 50 45 41  54 20 3A 44 45 47 52 45  |S. REPEAT :DEGRE|
000001C0: 45 53 20 5B 46 44 20 3A  53 49 5A 45 20 4C 54 20  |ES [FD :SIZE LT |
000001D0: 31 5D 0D 45 4E 44 0D 0D  54 4F 20 46 4C 4F 57 45  |1].END..TO FLOWE|
000001E0: 52 20 3A 53 49 5A 45 0D  20 52 45 50 45 41 54 20  |R :SIZE. REPEAT |
000001F0: 36 20 5B 50 45 54 41 4C  20 3A 53 49 5A 45 20 52  |6 [PETAL :SIZE R|
00000200: 54 20 36 30 5D 0D 45 4E  44 0D 0D 54 4F 20 50 45  |T 60].END..TO PE|
00000210: 54 41 4C 20 3A 53 49 5A  45 0D 20 41 52 43 52 49  |TAL :SIZE. ARCRI|
00000220: 47 48 54 20 3A 53 49 5A  45 20 36 30 0D 20 52 54  |GHT :SIZE 60. RT|
00000230: 20 31 32 30 20 41 52 43  52 49 47 48 54 20 3A 53  | 120 ARCRIGHT :S|
00000240: 49 5A 45 20 36 30 20 52  54 20 31 32 30 0D 45 4E  |IZE 60 RT 120.EN|
00000250: 44 0D 0D 54 4F 20 43 49  52 43 4C 45 31 0D 20 52  |D..TO CIRCLE1. R|
00000260: 45 50 45 41 54 20 33 36  30 20 5B 46 44 20 31 20  |EPEAT 360 [FD 1 |
00000270: 52 54 20 31 5D 0D 45 4E  44 0D 0D 54 4F 20 43 49  |RT 1].END..TO CI|
00000280: 52 43 4C 45 32 20 3A 53  49 5A 45 0D 20 52 45 50  |RCLE2 :SIZE. REP|
00000290: 45 41 54 20 33 36 30 20  5B 46 44 20 3A 53 49 5A  |EAT 360 [FD :SIZ|
000002A0: 45 20 52 54 20 31 5D 0D  45 4E 44 0D 0D 54 4F 20  |E RT 1].END..TO |
000002B0: 43 49 52 43 4C 45 20 3A  52 41 44 49 55 53 0D 20  |CIRCLE :RADIUS. |
000002C0: 43 49 52 43 4C 45 32 20  3A 52 41 44 49 55 53 20  |CIRCLE2 :RADIUS |
000002D0: 2A 20 31 2E 37 34 4E 32  0D 45 4E 44 0D 0D 54 4F  |* 1.74N2.END..TO|
000002E0: 20 41 52 43 52 49 47 48  54 20 3A 52 41 44 49 55  | ARCRIGHT :RADIU|
000002F0: 53 20 3A 44 45 47 52 45  45 53 0D 20 41 52 43 52  |S :DEGREES. ARCR|
00000300: 49 47 48 54 31 20 3A 52  41 44 49 55 53 20 2A 20  |IGHT1 :RADIUS * |
00000310: 31 2E 37 34 4E 32 20 3A  44 45 47 52 45 45 53 0D  |1.74N2 :DEGREES.|
00000320: 45 4E 44 0D 0D 54 4F 20  41 52 43 52 49 47 48 54  |END..TO ARCRIGHT|
00000330: 31 20 3A 53 49 5A 45 20  3A 44 45 47 52 45 45 53  |1 :SIZE :DEGREES|
00000340: 0D 20 52 45 50 45 41 54  20 28 20 51 55 4F 54 49  |. REPEAT ( QUOTI|
00000350: 45 4E 54 20 3A 44 45 47  52 45 45 53 20 31 30 20  |ENT :DEGREES 10 |
00000360: 29 20 5B 46 44 20 3A 53  49 5A 45 2A 31 30 20 52  |) [FD :SIZE*10 R|
00000370: 54 20 31 30 5D 0D 20 43  4F 52 52 9E 7C 9E 20 AE  |T 10]. CORR.|. .|
00000380: 13 F8 EC 01 20 4C 67 85  63 C8 B1 57 70 09 15 20  |.... Lg.c..Wp.. |
00000390: 3A 53 49 5A 45 20 28 20  52 45 4D 41 49 4E 44 45  |:SIZE ( REMAINDE|
000003A0: 52 20 3A 44 45 47 52 45  45 53 20 31 30 20 29 0D  |R :DEGREES 10 ).|
000003B0: 45 4E 44 0D 0D                                    |END..           |

.0TO CORRECTARC :SIZE :AMOUNT. FD :SIZE 
* :AMOUNT. RT :AMOUNT.END..TO CORR.|. ..
... LG.CH.WP.. :SIZE :AMOUNT. FD :SIZE *
 :AMOUNT. RT :AMOUNT.END..TO CIRCLE3 :SI
ZE. REPEAT 36 [FD :SIZE*10 RT 10].END..T
O SUN :SIZE. REPEAT 9 [RAY :SIZE RT 160]
.END..TO RAY :SIZE. ARCLEFT :SIZE 90. AR
CRIGHT :SIZE 90. ARCLEFT :SIZE 90. ARCRI
GHT :SIZE 90.END..TO ARCLEFT :RADIUS :DE
GREES. ARCLEFT1 :RADIUS * 1.74N2 :DEGREE
S.END..TO ARCLEFT1 :SIZE :DEGREES. REPEA
T :DEGREES [FD :SIZE LT 1].END..TO FLOWE
R :SIZE. REPEAT 6 [PETAL :SIZE RT 60].EN
D..TO PETAL :SIZE. ARCRIGHT :SIZE 60. RT
 120 ARCRIGHT :SIZE 60 RT 120.END..TO CI
RCLE1. REPEAT 360 [FD 1 RT 1].END..TO CI
RCLE2 :SIZE. REPEAT 360 [FD :SIZE RT 1].
END..TO CIRCLE :RADIUS. CIRCLE2 :RADIUS 
* 1.74N2.END..TO ARCRIGHT :RADIUS :DEGRE
ES. ARCRIGHT1 :RADIUS * 1.74N2 :DEGREES.
END..TO ARCRIGHT1 :SIZE :DEGREES. REPEAT
 ( QUOTIENT :DEGREES 10 ) [FD :SIZE*10 R
T 10]. CORR.|. ..... LG.CH.WP.. :SIZE ( 
REMAINDER :DEGREES 10 ).END..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL