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

FIG CONVERT

FILE INFORMATION

FILENAME(S): FIG CONVERT

FILE TYPE(S): PRG

FILE SIZE: 467b

FIRST SEEN: 2025-10-19 22:48:41

APPEARS ON: 1 disk(s)

FILE HASH

52db2e33d1b4ffe7148bf2574e46999476f4d52c12abe71aada3b685ef8d6049

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C A D PART 1 2 FIG CONVERT PRG Radd Maxx 24 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 36 08 01 00 8F 20  53 45 54 20 41 20 45 51  |..6.... SET A EQ|
00000010: 55 41 4C 20 54 4F 20 50  45 54 41 53 43 49 49 20  |UAL TO PETASCII |
00000020: 43 4F 44 45 20 46 4F 52  20 45 58 49 53 54 49 4E  |CODE FOR EXISTIN|
00000030: 47 20 46 49 4C 45 00 41  08 0A 00 8F 20 41 3D 36  |G FILE.A.... A=6|
00000040: 35 00 61 08 0B 00 8F 20  46 4F 52 41 3D 34 38 54  |5.a.... FORA=48T|
00000050: 4F 35 37 3A 47 4F 53 55  42 31 30 30 3A 4E 45 58  |O57:GOSUB100:NEX|
00000060: 54 00 81 08 0C 00 8F 20  46 4F 52 41 3D 36 35 54  |T...... FORA=65T|
00000070: 4F 39 30 3A 47 4F 53 55  42 31 30 30 3A 4E 45 58  |O90:GOSUB100:NEX|
00000080: 54 00 A3 08 0D 00 8F 20  46 4F 52 41 3D 31 39 33  |T...... FORA=193|
00000090: 54 4F 32 31 38 3A 47 4F  53 55 42 31 30 30 3A 4E  |TO218:GOSUB100:N|
000000A0: 45 58 54 00 D0 08 64 00  41 24 B2 C7 28 41 29 3A  |EXT...d.A$..(A):|
000000B0: 53 51 24 B2 22 54 45 4D  50 2C 53 2C 52 22 3A 50  |SQ$."TEMP,S,R":P|
000000C0: 47 24 B2 41 24 AA 22 2E  46 49 47 2C 50 2C 57 22  |G$.A$.".FIG,P,W"|
000000D0: 00 EF 08 6E 00 9F 31 35  2C 38 2C 31 35 3A 98 31  |...n..15,8,15:.1|
000000E0: 35 2C 22 52 30 3A 54 45  4D 50 3D 22 3B 41 24 00  |5,"R0:TEMP=";A$.|
000000F0: FE 08 73 00 9F 32 2C 38  2C 32 2C 53 51 24 00 15  |..s..2,8,2,SQ$..|
00000100: 09 78 00 84 31 35 2C 45  3A 8B 45 B3 B1 30 A7 8D  |.x..15,E:.E..0..|
00000110: 32 33 35 3A 90 00 24 09  82 00 9F 33 2C 38 2C 33  |235:..$....3,8,3|
00000120: 2C 50 47 24 00 38 09 8C  00 98 33 2C C7 28 30 29  |,PG$.8....3,.(0)|
00000130: 3B C7 28 31 35 38 29 3B  00 54 09 96 00 84 32 2C  |;.(158);.T....2,|
00000140: 58 2C 59 3A 8B 58 B1 32  35 34 B0 53 54 B3 B1 30  |X,Y:.X.254.ST..0|
00000150: A7 32 32 30 00 68 09 A0  00 8B 58 B3 30 A7 58 B2  |.220.h....X.0.X.|
00000160: B6 28 58 29 B0 31 32 38  00 7C 09 AA 00 8B 59 B3  |.(X).128.|....Y.|
00000170: 30 A7 59 B2 B6 28 59 29  B0 31 32 38 00 8E 09 B4  |0.Y..(Y).128....|
00000180: 00 98 33 2C C7 28 58 29  3B C7 28 59 29 3B 00 97  |..3,.(X);.(Y);..|
00000190: 09 BE 00 89 31 35 30 00  A6 09 DC 00 98 33 2C C7  |....150......3,.|
000001A0: 28 32 35 35 29 3B 00 BC  09 E6 00 98 31 35 2C 22  |(255);......15,"|
000001B0: 53 30 3A 54 45 4D 50 22  3A A0 31 35 00 CA 09 EB  |S0:TEMP":.15....|
000001C0: 00 A0 32 3A A0 33 3A A0  31 35 00 D0 09 F0 00 8E  |..2:.3:.15......|
000001D0: 00 00 00                                          |...             |

..6.... SET A EQUAL TO PETASCII CODE FOR
 EXISTING FILE.A.... A=65.A.... FORA=48T
O57:GOSUB100:NEXT...... FORA=65TO90:GOSU
B100:NEXT...... FORA=193TO218:GOSUB100:N
EXT.P.D.A$.G(A):SQ$."TEMP,S,R":PG$.A$.".
FIG,P,W"...N..15,8,15:.15,"R0:TEMP=";A$.
..S..2,8,2,SQ$...X..15,E:.E..0..235:..$.
...3,8,3,PG$.8....3,G(0);G(158);.T....2,
X,Y:.X.254.ST..0.220.H. ..X.0.X..(X).128
.|....Y.0.Y..(Y).128......3,G(X);G(Y);..
....150......3,G(255);......15,"S0:TEMP"
: 15.J... 2: 3: 15.P.......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL