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

CIRCLE

FILE INFORMATION

FILENAME(S): CIRCLE

FILE TYPE(S): SEQ

FILE SIZE: 297b

FIRST SEEN: 2025-11-02 16:30:38

APPEARS ON: 2 disk(s)

FILE HASH

8bd7c1ac7902ba9b04d2e9b65aa218f20662c845f8541e372644a3db0e176ba0

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
GAMES D C CIRCLE SEQ Treasure Chest - OzzyC64 27 12 DOWNLOAD FILE
ALI CIRCLE SEQ Treasure Chest - Reamigation 4 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 56 41 52 20 5A 2C 58 2C  59 2C 54 2C 51 2C 4C 3A  |VAR Z,X,Y,T,Q,L:|
00000010: 49 4E 54 45 47 45 52 3B  0D 41 2C 42 2C 43 2C 44  |INTEGER;.A,B,C,D|
00000020: 2C 52 2C 50 3A 52 45 41  4C 3B 0D 62 65 67 69 6E  |,R,P:REAL;.begin|
00000030: 0D 77 69 6E 64 6F 77 28  31 34 29 3B 0D 52 3A 3D  |.window(14);.R:=|
00000040: 34 30 3B 0D 5A 3A 3D 31  3B 0D 43 3A 3D 31 3B 0D  |40;.Z:=1;.C:=1;.|
00000050: 70 61 70 65 72 28 31 30  29 3B 0D 69 6E 6B 28 33  |paper(10);.ink(3|
00000060: 29 3B 0D 50 4C 4F 54 28  30 2C 30 2C 30 2C 30 2C  |);.PLOT(0,0,0,0,|
00000070: 30 29 3B 0D 50 4C 4F 54  28 31 2C 30 2C 30 2C 30  |0);.PLOT(1,0,0,0|
00000080: 2C 30 29 3B 0D 68 69 72  65 73 28 31 29 3B 0D 46  |,0);.hires(1);.F|
00000090: 4F 52 20 4C 3A 3D 20 30  20 54 4F 20 33 35 39 20  |OR L:= 0 TO 359 |
000000A0: 44 4F 20 42 45 47 49 4E  3B 0D 50 3A 3D 43 2A 4C  |DO BEGIN;.P:=C*L|
000000B0: 3B 0D 41 3A 3D 20 52 20  2A 20 43 4F 53 20 28 50  |;.A:= R * COS (P|
000000C0: 29 3B 0D 42 3A 3D 20 52  20 2A 20 53 49 4E 20 28  |);.B:= R * SIN (|
000000D0: 50 29 3B 0D 58 3A 3D 52  4F 55 4E 44 28 41 29 3B  |P);.X:=ROUND(A);|
000000E0: 0D 59 3A 3D 52 4F 55 4E  44 28 42 29 3B 0D 69 6E  |.Y:=ROUND(B);.in|
000000F0: 6B 28 7A 29 3B 0D 7A 3A  3D 7A 2B 31 3B 0D 50 4C  |k(z);.z:=z+1;.PL|
00000100: 4F 54 28 32 2C 79 2B 31  35 30 2C 78 2B 31 35 30  |OT(2,y+150,x+150|
00000110: 2C 58 2B 31 35 30 2C 59  2B 31 35 30 29 3B 0D 45  |,X+150,Y+150);.E|
00000120: 4E 44 3B 0D 65 6E 64 2E  0D                       |ND;.end..       |

VAR Z,X,Y,T,Q,L:INTEGER;.A,B,C,D,R,P:REA
L;.BEGIN.WINDOW(14);.R:=40;.Z:=1;.C:=1;.
PAPER(10);.INK(3);.PLOT(0,0,0,0,0);.PLOT
(1,0,0,0,0);.HIRES(1);.FOR L:= 0 TO 359 
DO BEGIN;.P:=C*L;.A:= R * COS (P);.B:= R
 * SIN (P);.X:=ROUND(A);.Y:=ROUND(B);.IN
K(Z);.Z:=Z+1;.PLOT(2,Y+150,X+150,X+150,Y
+150);.END;.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL