CIRCLES.BAS

FILE INFORMATION

FILENAME(S): CIRCLES.BAS

FILE TYPE(S): PRG

FILE SIZE: 1.3K

FIRST SEEN: 2025-11-30 21:15:48

APPEARS ON: 1 disk(s)

FILE HASH

705743514c821aedade801aa8fe3659c1455355a8f69d06393354f6d19b2c44a

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR DISK	CIRCLES.BAS	PRG	DuncanTwain	26	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1C 08 0A 00 8F 20  20 27 43 49 52 43 4C 45  |.......  'CIRCLE|
00000010: 53 27 20 20 49 4E 20 42  41 53 49 43 00 3B 08 14  |S'  IN BASIC.;..|
00000020: 00 8B C2 28 34 39 31 35  32 29 B3 B1 37 36 A7 93  |...(49152)..76..|
00000030: 22 48 49 52 45 53 22 2C  38 2C 31 00 41 08 64 00  |"HIRES",8,1.A.d.|
00000040: 3A 00 67 08 6E 00 48 49  52 45 53 B2 31 32 AC 34  |:.g.n.HIRES.12.4|
00000050: 30 39 36 3A 44 52 41 57  B2 48 49 AA 33 3A 50 4C  |096:DRAW.HI.3:PL|
00000060: 4F 54 B2 44 52 AA 33 00  8B 08 78 00 4D 4F 56 45  |OT.DR.3...x.MOVE|
00000070: B2 50 4C AA 33 3A 43 4C  53 43 52 B2 4D 4F AA 33  |.PL.3:CLSCR.MO.3|
00000080: 3A 44 4D 4F 44 45 B2 43  4C AA 33 00 AF 08 82 00  |:DMODE.CL.3.....|
00000090: 53 45 4C 50 43 B2 44 4D  AA 33 3A 43 4F 4C 4F 55  |SELPC.DM.3:COLOU|
000000A0: 52 B2 53 45 AA 33 3A 42  4F 58 B2 43 4F AA 33 00  |R.SE.3:BOX.CO.3.|
000000B0: D2 08 8C 00 54 45 58 54  B2 42 4F AA 33 3A 50 52  |....TEXT.BO.3:PR|
000000C0: 4E 54 B2 54 45 AA 33 3A  43 48 53 45 54 B2 50 52  |NT.TE.3:CHSET.PR|
000000D0: AA 33 00 E0 08 96 00 54  52 41 50 B2 43 48 AA 33  |.3.....TRAP.CH.3|
000000E0: 00 E6 08 A0 00 3A 00 06  09 AA 00 8F 20 20 42 41  |.....:......  BA|
000000F0: 53 49 43 20 43 49 52 43  4C 45 53 20 2D 20 50 4F  |SIC CIRCLES - PO|
00000100: 4C 59 47 4F 4E 53 00 18  09 B4 00 9E 20 48 49 52  |LYGONS...... HIR|
00000110: 45 53 2C 30 2C 31 2C 36  00 36 09 BE 00 58 43 B2  |ES,0,1,6.6...XC.|
00000120: 31 36 30 3A 59 43 B2 31  30 30 3A 58 52 B2 39 39  |160:YC.100:XR.99|
00000130: 3A 59 52 B2 37 39 00 4D  09 C8 00 53 41 B2 30 20  |:YR.79.M...SA.0 |
00000140: 3A 45 41 B2 33 36 30 3A  49 4E 43 B2 35 00 76 09  |:EA.360:INC.5.v.|
00000150: D2 00 5A 31 B2 53 41 AC  FF AD 31 38 30 3A 5A 32  |..Z1.SA...180:Z2|
00000160: B2 45 41 AC FF AD 31 38  30 3A 5A 33 B2 49 4E 43  |.EA...180:Z3.INC|
00000170: AC FF AD 31 38 30 00 96  09 DC 00 58 B2 58 43 AA  |...180.....X.XC.|
00000180: 58 52 AC BE 28 5A 31 29  3A 59 B2 59 43 AA 59 52  |XR..(Z1):Y.YC.YR|
00000190: AC BF 28 5A 31 29 00 A5  09 E6 00 9E 20 4D 4F 56  |..(Z1)...... MOV|
000001A0: 45 2C 58 2C 59 00 B7 09  F0 00 81 20 49 B2 5A 31  |E,X,Y...... I.Z1|
000001B0: A4 5A 32 20 A9 5A 33 00  D7 09 FA 00 20 20 58 B2  |.Z2 .Z3.....  X.|
000001C0: 58 43 AA 58 52 AC BE 28  49 29 3A 59 B2 59 43 AA  |XC.XR..(I):Y.YC.|
000001D0: 59 52 AC BF 28 49 29 00  E8 09 04 01 20 20 9E 20  |YR..(I).....  . |
000001E0: 44 52 41 57 2C 58 2C 59  00 EE 09 0E 01 82 00 0A  |DRAW,X,Y........|
000001F0: 0A 18 01 9E 20 50 52 4E  54 2C 31 36 2C 31 32 2C  |.... PRNT,16,12,|
00000200: 22 50 4F 4C 59 47 4F 4E  53 22 00 1B 0A 22 01 81  |"POLYGONS"..."..|
00000210: 20 54 B2 31 A4 32 30 30  30 3A 82 00 21 0A 2C 01  | T.1.2000:..!.,.|
00000220: 3A 00 42 0A 36 01 8F 20  20 42 41 53 49 43 20 43  |:.B.6..  BASIC C|
00000230: 49 52 43 4C 45 53 20 2D  20 50 4F 54 45 4E 54 49  |IRCLES - POTENTI|
00000240: 41 4C 00 54 0A 40 01 9E  20 48 49 52 45 53 2C 30  |AL.T.@.. HIRES,0|
00000250: 2C 31 2C 36 00 72 0A 4A  01 58 43 B2 31 36 30 3A  |,1,6.r.J.XC.160:|
00000260: 59 43 B2 31 30 30 3A 58  52 B2 39 39 3A 59 52 B2  |YC.100:XR.99:YR.|
00000270: 37 39 00 99 0A 54 01 50  48 49 25 B2 30 3A 59 50  |79...T.PHI%.0:YP|
00000280: 48 49 25 B2 30 3A 58 59  50 48 49 25 B2 30 3A 59  |HI%.0:XYPHI%.0:Y|
00000290: 25 B2 30 3A 58 25 B2 58  52 00 AF 0A 5E 01 46 B2  |%.0:X%.XR...^.F.|
000002A0: 30 3A 8B 20 58 52 B3 59  52 20 A7 20 46 B2 31 00  |0:. XR.YR . F.1.|
000002B0: D3 0A 68 01 8B 20 46 B2  31 20 A7 20 58 25 B2 59  |..h.. F.1 . X%.Y|
000002C0: 52 3A 54 4D B2 58 52 3A  58 52 B2 59 52 3A 59 52  |R:TM.XR:XR.YR:YR|
000002D0: B2 54 4D 00 E5 0A 72 01  8F 20 20 53 54 41 52 54  |.TM...r..  START|
000002E0: 20 4C 4F 4F 50 00 FE 0A  7C 01 20 20 59 50 48 49  | LOOP...|.  YPHI|
000002F0: 25 B2 50 48 49 25 AA 59  25 AA 59 25 AA 31 00 19  |%.PHI%.Y%.Y%.1..|
00000300: 0B 86 01 20 20 58 59 50  48 49 25 B2 59 50 48 49  |...  XYPHI%.YPHI|
00000310: 25 AB 58 25 AB 58 25 AA  31 00 33 0B 90 01 20 20  |%.X%.X%.1.3...  |
00000320: 8B 20 46 B2 30 20 A7 20  58 32 B2 58 25 3A 58 33  |. F.0 . X2.X%:X3|
00000330: B2 59 25 00 4D 0B 9A 01  20 20 8B 20 46 B2 31 20  |.Y%.M...  . F.1 |
00000340: A7 20 59 33 B2 58 25 3A  59 32 B2 59 25 00 68 0B  |. Y3.X%:Y2.Y%.h.|
00000350: A4 01 20 20 54 32 25 B2  58 25 3A 54 31 25 B2 54  |..  T2%.X%:T1%.T|
00000360: 32 25 AC 59 52 AD 58 52  00 7D 0B AE 01 20 20 8B  |2%.YR.XR.}...  .|
00000370: 20 46 B2 30 20 A7 20 59  33 B2 54 31 25 00 92 0B  | F.0 . Y3.T1%...|
00000380: B8 01 20 20 8B 20 46 B2  31 20 A7 20 58 32 B2 54  |..  . F.1 . X2.T|
00000390: 31 25 00 AD 0B C2 01 20  20 54 32 25 B2 59 25 3A  |1%.....  T2%.Y%:|
000003A0: 54 31 25 B2 54 32 25 AC  59 52 AD 58 52 00 C2 0B  |T1%.T2%.YR.XR...|
000003B0: CC 01 20 20 8B 20 46 B2  30 20 A7 20 59 32 B2 54  |..  . F.0 . Y2.T|
000003C0: 31 25 00 D7 0B D6 01 20  20 8B 20 46 B2 31 20 A7  |1%.....  . F.1 .|
000003D0: 20 58 33 B2 54 31 25 00  DF 0B E0 01 20 20 3A 00  | X3.T1%.....  :.|
000003E0: F8 0B EA 01 20 20 9E 20  50 4C 4F 54 2C 58 43 AA  |....  . PLOT,XC.|
000003F0: 58 32 2C 59 43 AA 59 32  00 11 0C F4 01 20 20 9E  |X2,YC.Y2.....  .|
00000400: 20 50 4C 4F 54 2C 58 43  AB 58 32 2C 59 43 AA 59  | PLOT,XC.X2,YC.Y|
00000410: 32 00 2A 0C FE 01 20 20  9E 20 50 4C 4F 54 2C 58  |2.*...  . PLOT,X|
00000420: 43 AB 58 32 2C 59 43 AB  59 32 00 43 0C 08 02 20  |C.X2,YC.Y2.C... |
00000430: 20 9E 20 50 4C 4F 54 2C  58 43 AA 58 32 2C 59 43  | . PLOT,XC.X2,YC|
00000440: AB 59 32 00 4B 0C 12 02  20 20 3A 00 64 0C 1C 02  |.Y2.K...  :.d...|
00000450: 20 20 9E 20 50 4C 4F 54  2C 58 43 AA 58 33 2C 59  |  . PLOT,XC.X3,Y|
00000460: 43 AA 59 33 00 7D 0C 26  02 20 20 9E 20 50 4C 4F  |C.Y3.}.&.  . PLO|
00000470: 54 2C 58 43 AB 58 33 2C  59 43 AA 59 33 00 96 0C  |T,XC.X3,YC.Y3...|
00000480: 30 02 20 20 9E 20 50 4C  4F 54 2C 58 43 AB 58 33  |0.  . PLOT,XC.X3|
00000490: 2C 59 43 AB 59 33 00 AF  0C 3A 02 20 20 9E 20 50  |,YC.Y3...:.  . P|
000004A0: 4C 4F 54 2C 58 43 AA 58  33 2C 59 43 AB 59 33 00  |LOT,XC.X3,YC.Y3.|
000004B0: B5 0C 44 02 3A 00 CE 0C  4E 02 20 20 50 48 49 25  |..D.:...N.  PHI%|
000004C0: B2 59 50 48 49 25 3A 59  25 B2 59 25 AA 31 00 FF  |.YPHI%:Y%.Y%.1..|
000004D0: 0C 58 02 20 20 8B 20 B6  28 58 59 50 48 49 25 29  |.X.  . .(XYPHI%)|
000004E0: B3 B6 28 59 50 48 49 25  29 20 A7 20 50 48 49 25  |..(YPHI%) . PHI%|
000004F0: B2 58 59 50 48 49 25 3A  58 25 B2 58 25 AB 31 00  |.XYPHI%:X%.X%.1.|
00000500: 1F 0D 62 02 20 20 8B 20  58 25 B1 59 25 20 89 20  |..b.  . X%.Y% . |
00000510: 33 38 30 20 27 4C 4F 4F  50 20 81 20 4D B0 45 00  |380 'LOOP . M.E.|
00000520: 25 0D 6C 02 3A 00 42 0D  76 02 9E 20 50 52 4E 54  |%.l.:.B.v.. PRNT|
00000530: 2C 31 36 2C 31 32 2C 22  50 4F 54 45 4E 54 49 41  |,16,12,"POTENTIA|
00000540: 4C 22 00 53 0D 80 02 81  20 54 B2 31 A4 32 30 30  |L".S.... T.1.200|
00000550: 30 3A 82 00 59 0D 8A 02  80 00 00 00              |0:..Y.......    |

.......  'CIRCLES'  IN BASIC.;....B(4915
2)..76.."HIRES",8,1.A.D.:.G.N.HIRES.12.4
096:DRAW.HI.3:PLOT.DR.3...X.MOVE.PL.3:CL
SCR.MO.3:DMODE.CL.3.....SELPC.DM.3:COLOU
R.SE.3:BOX.CO.3.R...TEXT.BO.3:PRNT.TE.3:
CHSET.PR.3.....TRAP.CH.3... .:......  BA
SIC CIRCLES - POLYGONS...... HIRES,0,1,6
.6...XC.160:YC.100:XR.99:YR.79.M.H.SA.0 
:EA.360:INC.5.V.R.Z1.SA...180:Z2.EA...18
0:Z3.INC...180.....X.XC.XR..(Z1):Y.YC.YR
..(Z1)...... MOVE,X,Y...... I.Z1.Z2 .Z3.
W...  X.XC.XR..(I):Y.YC.YR..(I).....  . 
DRAW,X,Y............ PRNT,16,12,"POLYGON
S"...".. T.1.2000:..!.,.:.B.6..  BASIC C
IRCLES - POTENTIAL.T.@.. HIRES,0,1,6.R.J
.XC.160:YC.100:XR.99:YR.79...T.PHI%.0:YP
HI%.0:XYPHI%.0:Y%.0:X%.XR...^.F.0:. XR.Y
R . F.1.S.H.. F.1 . X%.YR:TM.XR:XR.YR:YR
.TM...R..  START LOOP...|.  YPHI%.PHI%.Y
%.Y%.1.....  XYPHI%.YPHI%.X%.X%.1.3...  
. F.0 . X2.X%:X3.Y%.M...  . F.1 . Y3.X%:
Y2.Y%.H...  T2%.X%:T1%.T2%.YR.XR.}...  .
 F.0 . Y3.T1%.....  . F.1 . X2.T1%...B. 
 T2%.Y%:T1%.T2%.YR.XR.B.L.  . F.0 . Y2.T
1%.W.V.  . F.1 . X3.T1%.....  :.....  . 
PLOT,XC.X2,YC.Y2.....  . PLOT,XC.X2,YC.Y
2.*...  . PLOT,XC.X2,YC.Y2.C...  . PLOT,
XC.X2,YC.Y2.K...  :.D...  . PLOT,XC.X3,Y
C.Y3.}.&.  . PLOT,XC.X3,YC.Y3...0.  . PL
OT,XC.X3,YC.Y3...:.  . PLOT,XC.X3,YC.Y3.
..D.:.N.N.  PHI%.YPHI%:Y%.Y%.1...X.  . .
(XYPHI%)..(YPHI%) . PHI%.XYPHI%:X%.X%.1.
..B.  . X%.Y% . 380 'LOOP . M.E.%.L.:.B.
V.. PRNT,16,12,"POTENTIAL".S.... T.1.200
0:..Y.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL