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

4-13

FILE INFORMATION

FILENAME(S): 4-13

FILE TYPE(S): PRG

FILE SIZE: 517b

FIRST SEEN: 2025-11-30 21:12:26

APPEARS ON: 2 disk(s)

FILE HASH

92c8211e3f15476564159f4e17ddc65981377e8b91aae933d524b172f0a2f836

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOTUS SOFT 4-13 PRG DuncanTwain 19 9 DOWNLOAD FILE
PROG 64 WEST 4-13 PRG DuncanTwain 19 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 32 08 00 00 8F 20  2A 20 4E 55 4D 42 45 52  |..2.... * NUMBER|
00000010: 20 50 41 43 4B 2F 20 55  4E 50 41 43 4B 20 53 55  | PACK/ UNPACK SU|
00000020: 42 52 4F 55 54 49 4E 45  53 20 46 4F 52 20 36 34  |BROUTINES FOR 64|
00000030: 20 2A 00 46 08 0A 00 85  20 22 4E 55 4D 42 45 52  | *.F.... "NUMBER|
00000040: 22 3B 20 4E 53 24 00 76  08 63 00 8F 20 50 41 43  |"; NS$.v.c.. PAC|
00000050: 4B 20 4E 55 4D 42 45 52  20 53 54 52 49 4E 47 20  |K NUMBER STRING |
00000060: 4E 53 24 20 49 4E 54 4F  20 4E 50 24 2D 2D 2D 2D  |NS$ INTO NP$----|
00000070: 2D 2D 2D 2D 2D 2D 00 A4  08 64 00 8B 20 C3 28 4E  |------...d.. .(N|
00000080: 53 24 29 20 B3 B1 20 B5  28 C3 28 4E 53 24 29 AD  |S$) .. .(.(NS$).|
00000090: 32 29 AC 32 20 A7 20 4E  53 24 B2 22 30 22 20 AA  |2).2 . NS$."0" .|
000000A0: 20 4E 53 24 00 C3 08 6E  00 4E 50 24 B2 22 22 3A  | NS$...n.NP$."":|
000000B0: 20 81 20 4A B2 31 20 A4  20 C3 28 4E 53 24 29 20  | . J.1 . .(NS$) |
000000C0: A9 20 32 00 EA 08 78 00  4E 50 24 20 B2 20 4E 50  |. 2...x.NP$ . NP|
000000D0: 24 20 AA 20 C7 28 C5 28  CA 28 4E 53 24 2C 4A 2C  |$ . .(.(.(NS$,J,|
000000E0: 32 29 29 AA 33 33 29 3A  20 82 00 19 09 C7 00 8F  |2)).33): .......|
000000F0: 20 55 4E 50 41 43 4B 20  4E 50 24 20 49 4E 54 4F  | UNPACK NP$ INTO|
00000100: 20 4E 55 4D 42 45 52 20  53 54 52 49 4E 47 20 4E  | NUMBER STRING N|
00000110: 53 24 2D 2D 2D 2D 2D 2D  2D 00 4B 09 C8 00 4E 53  |S$-------.K...NS|
00000120: 24 B2 22 22 3A 20 81 20  4A B2 31 20 A4 20 C3 28  |$."": . J.1 . .(|
00000130: 4E 50 24 29 3A 20 4E 49  24 B2 C4 28 C6 28 CA 28  |NP$): NI$..(.(.(|
00000140: 4E 50 24 2C 4A 29 29 AB  33 33 29 00 86 09 D2 00  |NP$,J)).33).....|
00000150: 4E 49 24 B2 C9 28 4E 49  24 2C C3 28 4E 49 24 29  |NI$..(NI$,.(NI$)|
00000160: AB 31 29 20 20 20 20 20  20 20 20 20 20 20 20 20  |.1)             |
00000170: 20 20 20 3A 8F 4F 56 45  20 4C 45 41 44 49 4E 47  |   :.OVE LEADING|
00000180: 20 53 50 41 43 45 00 C1  09 DC 00 4E 49 24 B2 C9  | SPACE.....NI$..|
00000190: 28 22 30 30 22 AA 4E 49  24 2C 32 29 3A 20 4E 53  |("00".NI$,2): NS|
000001A0: 24 B2 4E 53 24 AA 4E 49  24 3A 20 82 20 3A 8F 20  |$.NS$.NI$: . :. |
000001B0: 41 44 44 20 4C 45 41 44  49 4E 47 20 5A 45 52 4F  |ADD LEADING ZERO|
000001C0: 53 00 02 0A 2C 01 99 3A  20 99 20 22 55 4E 50 41  |S...,..: . "UNPA|
000001D0: 43 4B 45 44 20 46 4F 52  4D 20 49 53 20 22 20 4E  |CKED FORM IS " N|
000001E0: 53 24 3A 20 99 22 50 41  43 4B 45 44 20 56 45 52  |S$: ."PACKED VER|
000001F0: 53 49 4F 4E 20 49 53 20  22 4E 50 24 3A 20 89 20  |SION IS "NP$: . |
00000200: 31 30 00 00 00                                    |10...           |

..2.... * NUMBER PACK/ UNPACK SUBROUTINE
S FOR 64 *.F.... "NUMBER"; NS$.V.C.. PAC
K NUMBER STRING NS$ INTO NP$----------..
.D.. C(NS$) .. .(C(NS$).2).2 . NS$."0" .
 NS$.C.N.NP$."": . J.1 . C(NS$) . 2...X.
NP$ . NP$ . G(E(J(NS$,J,2)).33): ....G..
 UNPACK NP$ INTO NUMBER STRING NS$------
-.K.H.NS$."": . J.1 . C(NP$): NI$.D(F(J(
NP$,J)).33)...R.NI$.I(NI$,C(NI$).1)     
           :.OVE LEADING SPACE.A...NI$.I
("00".NI$,2): NS$.NS$.NI$: . :. ADD LEAD
ING ZEROS...,..: . "UNPACKED FORM IS " N
S$: ."PACKED VERSION IS "NP$: . 10...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL