LG-CORRECTARC

FILE INFORMATION

FILENAME(S): LG-CORRECTARC

FILE TYPE(S): PRG

FILE SIZE: 949b

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

APPEARS ON: 1 disk(s)

FILE HASH

d08b1f7a46011a72c01f1657cf121a1c1d905277654ed322fefa1721b451e026

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOGO FILES	LG-CORRECTARC	PRG	DuncanTwain	26	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 41 52 43  52 49 47 48 54 31 20 3A  |. TO ARCRIGHT1 :|
00000010: 53 49 5A 45 20 3A 44 45  47 52 45 45 53 0D 20 52  |SIZE :DEGREES. R|
00000020: 45 50 45 41 54 20 28 20  51 55 4F 54 49 45 4E 54  |EPEAT ( QUOTIENT|
00000030: 20 3A 44 45 47 52 45 45  53 20 31 30 20 29 20 5B  | :DEGREES 10 ) [|
00000040: 46 44 20 3A 53 49 5A 45  2A 31 30 20 52 54 20 31  |FD :SIZE*10 RT 1|
00000050: 30 5D 0D 20 43 4F 52 52  9E 7C 9E 20 AE 13 F8 EC  |0]. CORR.|. ....|
00000060: 01 20 4C 67 85 63 C8 B1  57 70 09 15 20 3A 53 49  |. Lg.c..Wp.. :SI|
00000070: 5A 45 20 28 20 52 45 4D  41 49 4E 44 45 52 20 3A  |ZE ( REMAINDER :|
00000080: 44 45 47 52 45 45 53 20  31 30 20 29 0D 45 4E 44  |DEGREES 10 ).END|
00000090: 0D 0D 54 4F 20 43 49 52  43 4C 45 20 3A 52 41 44  |..TO CIRCLE :RAD|
000000A0: 49 55 53 0D 20 43 49 52  43 4C 45 32 20 3A 52 41  |IUS. CIRCLE2 :RA|
000000B0: 44 49 55 53 20 2A 20 30  2E 30 31 37 34 0D 45 4E  |DIUS * 0.0174.EN|
000000C0: 44 0D 0D 54 4F 20 43 49  52 43 4C 45 32 20 3A 53  |D..TO CIRCLE2 :S|
000000D0: 49 5A 45 0D 20 52 45 50  45 41 54 20 33 36 30 20  |IZE. REPEAT 360 |
000000E0: 5B 46 44 20 3A 53 49 5A  45 20 52 54 20 31 5D 0D  |[FD :SIZE RT 1].|
000000F0: 45 4E 44 0D 0D 54 4F 20  43 49 52 43 4C 45 31 0D  |END..TO CIRCLE1.|
00000100: 20 52 45 50 45 41 54 20  33 36 30 20 5B 46 44 20  | REPEAT 360 [FD |
00000110: 31 20 52 54 20 31 5D 0D  45 4E 44 0D 0D 54 4F 20  |1 RT 1].END..TO |
00000120: 50 45 54 41 4C 20 3A 53  49 5A 45 0D 20 41 52 43  |PETAL :SIZE. ARC|
00000130: 52 49 47 48 54 20 3A 53  49 5A 45 20 36 30 0D 20  |RIGHT :SIZE 60. |
00000140: 52 54 20 31 32 30 20 41  52 43 52 49 47 48 54 20  |RT 120 ARCRIGHT |
00000150: 3A 53 49 5A 45 20 36 30  20 52 54 20 31 32 30 0D  |:SIZE 60 RT 120.|
00000160: 45 4E 44 0D 0D 54 4F 20  46 4C 4F 57 45 52 20 3A  |END..TO FLOWER :|
00000170: 53 49 5A 45 0D 20 52 45  50 45 41 54 20 36 20 5B  |SIZE. REPEAT 6 [|
00000180: 50 45 54 41 4C 20 3A 53  49 5A 45 20 52 54 20 36  |PETAL :SIZE RT 6|
00000190: 30 5D 0D 45 4E 44 0D 0D  54 4F 20 41 52 43 4C 45  |0].END..TO ARCLE|
000001A0: 46 54 31 20 3A 53 49 5A  45 20 3A 44 45 47 52 45  |FT1 :SIZE :DEGRE|
000001B0: 45 53 0D 20 52 45 50 45  41 54 20 3A 44 45 47 52  |ES. REPEAT :DEGR|
000001C0: 45 45 53 20 5B 46 44 20  3A 53 49 5A 45 20 4C 54  |EES [FD :SIZE LT|
000001D0: 20 31 5D 0D 45 4E 44 0D  0D 54 4F 20 41 52 43 52  | 1].END..TO ARCR|
000001E0: 49 47 48 54 20 3A 52 41  44 49 55 53 20 3A 44 45  |IGHT :RADIUS :DE|
000001F0: 47 52 45 45 53 0D 20 41  52 43 52 49 47 48 54 31  |GREES. ARCRIGHT1|
00000200: 20 3A 52 41 44 49 55 53  20 2A 20 30 2E 30 31 37  | :RADIUS * 0.017|
00000210: 34 20 3A 44 45 47 52 45  45 53 0D 45 4E 44 0D 0D  |4 :DEGREES.END..|
00000220: 54 4F 20 41 52 43 4C 45  46 54 20 3A 52 41 44 49  |TO ARCLEFT :RADI|
00000230: 55 53 20 3A 44 45 47 52  45 45 53 0D 20 41 52 43  |US :DEGREES. ARC|
00000240: 4C 45 46 54 31 20 3A 52  41 44 49 55 53 20 2A 20  |LEFT1 :RADIUS * |
00000250: 30 2E 30 31 37 34 20 3A  44 45 47 52 45 45 53 0D  |0.0174 :DEGREES.|
00000260: 45 4E 44 0D 0D 54 4F 20  52 41 59 20 3A 53 49 5A  |END..TO RAY :SIZ|
00000270: 45 0D 20 41 52 43 4C 45  46 54 20 3A 53 49 5A 45  |E. ARCLEFT :SIZE|
00000280: 20 39 30 0D 20 41 52 43  52 49 47 48 54 20 3A 53  | 90. ARCRIGHT :S|
00000290: 49 5A 45 20 39 30 0D 20  41 52 43 4C 45 46 54 20  |IZE 90. ARCLEFT |
000002A0: 3A 53 49 5A 45 20 39 30  0D 20 41 52 43 52 49 47  |:SIZE 90. ARCRIG|
000002B0: 48 54 20 3A 53 49 5A 45  20 39 30 0D 45 4E 44 0D  |HT :SIZE 90.END.|
000002C0: 0D 54 4F 20 53 55 4E 20  3A 53 49 5A 45 0D 20 52  |.TO SUN :SIZE. R|
000002D0: 45 50 45 41 54 20 39 20  5B 52 41 59 20 3A 53 49  |EPEAT 9 [RAY :SI|
000002E0: 5A 45 20 52 54 20 31 36  30 5D 0D 45 4E 44 0D 0D  |ZE RT 160].END..|
000002F0: 54 4F 20 43 49 52 43 4C  45 33 20 3A 53 49 5A 45  |TO CIRCLE3 :SIZE|
00000300: 0D 20 52 45 50 45 41 54  20 33 36 20 5B 46 44 20  |. REPEAT 36 [FD |
00000310: 3A 53 49 5A 45 2A 31 30  20 52 54 20 31 30 5D 0D  |:SIZE*10 RT 10].|
00000320: 45 4E 44 0D 0D 54 4F 20  43 4F 52 52 9E 7C 9E 20  |END..TO CORR.|. |
00000330: AE 13 F8 EC 01 20 4C 67  85 63 C8 B1 57 70 09 15  |..... Lg.c..Wp..|
00000340: 20 3A 53 49 5A 45 20 3A  41 4D 4F 55 4E 54 0D 20  | :SIZE :AMOUNT. |
00000350: 46 44 20 3A 53 49 5A 45  20 2A 20 3A 41 4D 4F 55  |FD :SIZE * :AMOU|
00000360: 4E 54 0D 20 52 54 20 3A  41 4D 4F 55 4E 54 0D 45  |NT. RT :AMOUNT.E|
00000370: 4E 44 0D 0D 54 4F 20 43  4F 52 52 45 43 54 41 52  |ND..TO CORRECTAR|
00000380: 43 20 3A 53 49 5A 45 20  3A 41 4D 4F 55 4E 54 0D  |C :SIZE :AMOUNT.|
00000390: 20 46 44 20 3A 53 49 5A  45 20 2A 20 3A 41 4D 4F  | FD :SIZE * :AMO|
000003A0: 55 4E 54 0D 20 52 54 20  3A 41 4D 4F 55 4E 54 0D  |UNT. RT :AMOUNT.|
000003B0: 45 4E 44 0D 0D                                    |END..           |

. TO ARCRIGHT1 :SIZE :DEGREES. REPEAT ( 
QUOTIENT :DEGREES 10 ) [FD :SIZE*10 RT 1
0]. CORR.|. ..... LG.CH.WP.. :SIZE ( REM
AINDER :DEGREES 10 ).END..TO CIRCLE :RAD
IUS. CIRCLE2 :RADIUS * 0.0174.END..TO CI
RCLE2 :SIZE. REPEAT 360 [FD :SIZE RT 1].
END..TO CIRCLE1. REPEAT 360 [FD 1 RT 1].
END..TO PETAL :SIZE. ARCRIGHT :SIZE 60. 
RT 120 ARCRIGHT :SIZE 60 RT 120.END..TO 
FLOWER :SIZE. REPEAT 6 [PETAL :SIZE RT 6
0].END..TO ARCLEFT1 :SIZE :DEGREES. REPE
AT :DEGREES [FD :SIZE LT 1].END..TO ARCR
IGHT :RADIUS :DEGREES. ARCRIGHT1 :RADIUS
 * 0.0174 :DEGREES.END..TO ARCLEFT :RADI
US :DEGREES. ARCLEFT1 :RADIUS * 0.0174 :
DEGREES.END..TO RAY :SIZE. ARCLEFT :SIZE
 90. ARCRIGHT :SIZE 90. ARCLEFT :SIZE 90
. ARCRIGHT :SIZE 90.END..TO SUN :SIZE. R
EPEAT 9 [RAY :SIZE RT 160].END..TO CIRCL
E3 :SIZE. REPEAT 36 [FD :SIZE*10 RT 10].
END..TO CORR.|. ..... LG.CH.WP.. :SIZE :
AMOUNT. FD :SIZE * :AMOUNT. RT :AMOUNT.E
ND..TO CORRECTARC :SIZE :AMOUNT. FD :SIZ
E * :AMOUNT. RT :AMOUNT.END..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL