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

UD$

FILE INFORMATION

FILENAME(S): UD$

FILE TYPE(S): PRG

FILE SIZE: 449b

FIRST SEEN: 2025-11-30 19:47:16

APPEARS ON: 1 disk(s)

FILE HASH

db7606f3ef123946647e06e452028eba3d44c0c0312fb53a076aba4f5ffa0090

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
HJ LPEDISK A3 1 UD$ PRG Curtcool, Frank 8 12 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 21 08 F0 55 53 50  24 B2 22 20 20 20 20 20  |..!..USP$."     |
00000010: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000020: 22 00 2A 08 FA 55 50 B2  31 32 00 42 08 04 56 41  |".*..UP.12.B..VA|
00000030: 24 B2 22 22 3A 41 31 24  B2 22 22 3A 41 32 24 B2  |$."":A1$."":A2$.|
00000040: 22 22 00 4F 08 0E 56 55  44 24 B2 C4 28 51 29 00  |"".O..VUD$..(Q).|
00000050: 5D 08 18 56 41 4E B2 C5  28 55 44 24 29 00 63 08  |]..VAN..(UD$).c.|
00000060: 22 56 8F 00 84 08 2C 56  8F 20 20 2A 2A 2A 20 52  |"V....,V.  *** R|
00000070: 4F 55 4E 44 20 54 4F 20  32 20 50 4C 41 43 45 53  |OUND TO 2 PLACES|
00000080: 20 2A 2A 2A 00 8A 08 36  56 8F 00 9D 08 40 56 41  | ***...6V....@VA|
00000090: 31 B2 AB 28 B5 28 41 4E  29 AB 41 4E 29 00 BE 08  |1..(.(AN).AN)...|
000000A0: 4A 56 41 31 B2 B4 28 41  31 29 AC B5 28 B6 28 41  |JVA1..(A1)..(.(A|
000000B0: 31 AC 31 30 30 29 AA 2E  35 29 AD 31 30 30 00 C4  |1.100)..5).100..|
000000C0: 08 54 56 8F 00 E1 08 5E  56 8F 20 20 2A 2A 2A 20  |.TV....^V.  *** |
000000D0: 46 4F 52 4D 41 54 20 4E  55 4D 42 45 52 20 2A 2A  |FORMAT NUMBER **|
000000E0: 2A 00 E7 08 68 56 8F 00  F4 08 72 56 41 24 B2 C4  |*...hV....rVA$..|
000000F0: 28 41 31 29 00 0E 09 7C  56 8B 20 41 31 B3 2E 30  |(A1)...|V. A1..0|
00000100: 31 20 A7 20 41 24 B2 22  30 2E 30 30 22 20 00 24  |1 . A$."0.00" .$|
00000110: 09 86 56 8B 20 C3 28 41  24 29 B2 34 20 A7 20 32  |..V. .(A$).4 . 2|
00000120: 32 32 31 30 00 3F 09 90  56 8B 20 C3 28 41 24 29  |2210.?..V. .(A$)|
00000130: B1 34 20 A7 20 41 24 B2  C8 28 41 24 2C 34 29 00  |.4 . A$..(A$,4).|
00000140: 5A 09 9A 56 8B 20 C3 28  41 24 29 B3 34 20 A7 20  |Z..V. .(A$).4 . |
00000150: 41 24 B2 41 24 AA 22 30  22 20 00 60 09 A4 56 8F  |A$.A$."0" .`..V.|
00000160: 00 78 09 AE 56 8F 20 20  2A 2A 2A 20 4A 55 53 54  |.x..V.  *** JUST|
00000170: 49 46 59 20 2A 2A 2A 20  00 7F 09 B8 56 8F 20 00  |IFY *** ....V. .|
00000180: 8F 09 C2 56 41 24 B2 C9  28 41 24 2C 33 29 20 00  |...VA$..(A$,3) .|
00000190: A3 09 CC 56 41 24 B2 C4  28 B5 28 41 4E 29 29 AA  |...VA$..(.(AN)).|
000001A0: 41 24 20 00 B7 09 D6 56  55 44 24 B2 C9 28 53 50  |A$ ....VUD$..(SP|
000001B0: 24 AA 41 24 2C 50 29 00  BE 09 E0 56 8E 20 00 00  |$.A$,P)....V. ..|
000001C0: 00                                                |.               |

..!..USP$."                     ".*..UP.
12.B..VA$."":A1$."":A2$."".O..VUD$.D(Q).
]..VAN.E(UD$).C."V....,V.  *** ROUND TO 
2 PLACES ***...6V....@VA1..(.(AN).AN)...
JVA1..(A1)..(.(A1.100)..5).100.D.TV....^
V.  *** FORMAT NUMBER ***...HV....RVA$.D
(A1)...|V. A1..01 . A$."0.00" .$..V. C(A
$).4 . 22210.?..V. C(A$).4 . A$.H(A$,4).
Z..V. C(A$).4 . A$.A$."0" .`..V..X..V.  
*** JUSTIFY *** ...V. ...BVA$.I(A$,3) .
..LVA$.D(.(AN)).A$ ...VVUD$.I(SP$.A$,P).
...V. ...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL