Multiple names: EXPANDER.4, EXPANDER.C
FILE INFORMATION
FILENAME(S):
• EXPANDER.4<br>• EXPANDER.C
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:19:23
APPEARS ON: 2 disk(s)
FILE HASH
aa0ae1c0a32be08593befcb27188c74d5f46bf40e8e12b09ef7196d8b5c6086f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES DISK SWA | EXPANDER.4 | PRG | DuncanTwain | 7 | 12 | DOWNLOAD FILE |
| C64 HULP 28 1 | EXPANDER.C | PRG | DuncanTwain | 8 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 18 04 1E 00 8F 20 20 20 20 20 55 4E 2D 43 |....... UN-C|
00000010: 4F 4D 50 41 43 54 4F 52 00 32 04 32 00 8F 20 20 |OMPACTOR.2.2.. |
00000020: 20 42 59 3A 52 4F 42 45 52 54 20 57 2E 42 41 4B | BY:ROBERT W.BAK|
00000030: 45 52 00 55 04 46 00 8F 20 31 35 20 57 49 4E 44 |ER.U.F.. 15 WIND|
00000040: 53 4F 52 20 44 52 2E 2C 41 54 43 4F 2C 4E 4A 20 |SOR DR.,ATCO,NJ |
00000050: 30 38 30 30 34 00 A3 04 64 00 8F 3E 4D 4F 44 2E |08004...d..>MOD.|
00000060: 52 41 59 20 54 48 4F 4D 41 53 2E 38 33 30 31 31 |RAY THOMAS.83011|
00000070: 36 20 54 4F 20 47 49 56 45 20 20 43 48 4F 49 43 |6 TO GIVE CHOIC|
00000080: 45 20 4F 46 20 44 52 49 56 45 53 20 26 20 46 49 |E OF DRIVES & FI|
00000090: 58 20 27 4C 41 53 54 20 4C 49 4E 45 27 20 42 55 |X 'LAST LINE' BU|
000000A0: 47 20 3C 00 AD 04 6E 00 89 20 32 37 30 00 B3 04 |G <...n.. 270...|
000000B0: 78 00 3A 00 D6 04 82 00 8F 3E 3E 3E 3E 3E 3E 3E |x.:......>>>>>>>|
000000C0: 20 53 55 42 52 4F 55 54 49 4E 45 53 20 3C 3C 3C | SUBROUTINES <<<|
000000D0: 3C 3C 3C 3C 3C 3C 00 DC 04 8C 00 3A 00 EB 04 96 |<<<<<<.....:....|
000000E0: 00 8D 20 31 36 30 3A 56 31 B2 56 00 FC 04 A0 00 |.. 160:V1.V.....|
000000F0: A1 23 35 2C 43 24 3A 8D 20 31 39 30 00 10 05 AA |.#5,C$:. 190....|
00000100: 00 8B 20 43 24 B2 22 22 20 A7 20 56 B2 30 3A 8E |.. C$."" . V.0:.|
00000110: 00 1E 05 B4 00 56 B2 C6 28 43 24 29 3A 8E 00 33 |.....V..(C$):..3|
00000120: 05 BE 00 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |....15,EN,EM$,ET|
00000130: 2C 45 53 00 42 05 C8 00 8B 20 45 4E B2 30 20 A7 |,ES.B.... EN.0 .|
00000140: 20 8E 00 58 05 D2 00 99 22 93 12 44 49 53 4B 20 | ..X...."..DISK |
00000150: 45 52 52 4F 52 22 3A 99 00 6A 05 DC 00 99 45 4E |ERROR":..j....EN|
00000160: 3B 45 4D 24 3B 45 54 3B 45 53 00 75 05 E6 00 89 |;EM$;ET;ES.u....|
00000170: 20 31 30 33 30 00 7B 05 F0 00 3A 00 9E 05 FA 00 | 1030.{...:.....|
00000180: 8F 20 2A 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 41 |. ***** INITIALA|
00000190: 4C 49 5A 41 54 49 4F 4E 20 2A 2A 2A 2A 2A 00 A4 |LIZATION *****..|
000001A0: 05 04 01 3A 00 C3 05 0E 01 99 22 93 22 3B A6 31 |...:......".";.1|
000001B0: 30 29 3B 22 12 55 4E 2D 43 4F 4D 50 41 43 54 4F |0);".UN-COMPACTO|
000001C0: 52 11 11 00 E6 05 18 01 85 22 20 12 49 4E 50 55 |R........" .INPU|
000001D0: 54 92 20 46 49 4C 45 20 49 4E 20 44 52 49 56 45 |T. FILE IN DRIVE|
000001E0: 23 22 3B 44 31 24 00 09 06 22 01 85 22 12 4F 55 |#";D1$..."..".OU|
000001F0: 54 50 55 54 92 20 46 49 4C 45 20 49 4E 20 44 52 |TPUT. FILE IN DR|
00000200: 49 56 45 23 22 3B 44 32 24 00 25 06 2C 01 85 22 |IVE#";D2$.%.,.."|
00000210: 12 49 4E 50 55 54 20 46 49 4C 45 4E 41 4D 45 92 |.INPUT FILENAME.|
00000220: 22 3B 46 4C 24 00 32 06 36 01 86 20 43 28 32 35 |";FL$.2.6.. C(25|
00000230: 36 29 00 40 06 40 01 9F 20 31 35 2C 38 2C 31 35 |6).@.@.. 15,8,15|
00000240: 00 5F 06 4A 01 9F 20 35 2C 38 2C 35 2C 44 31 24 |._.J.. 5,8,5,D1$|
00000250: AA 22 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 00 |.":".FL$.",P,R".|
00000260: 69 06 54 01 8D 20 31 39 30 00 8D 06 5E 01 99 3A |i.T.. 190...^..:|
00000270: 99 22 4F 4B 2C 20 57 4F 52 4B 49 4E 47 20 4F 4E |."OK, WORKING ON|
00000280: 20 4C 49 4E 45 23 20 2E 2E 2E 2E 2E 11 00 A4 06 | LINE# .........|
00000290: 68 01 46 4F 24 B2 C8 28 46 4C 24 2C 31 34 29 AA |h.FO$..(FL$,14).|
000002A0: 22 2F 55 22 00 BC 06 72 01 98 31 35 2C 22 53 22 |"/U"...r..15,"S"|
000002B0: AA 44 32 24 AA 22 3A 22 AA 46 4F 24 00 DB 06 7C |.D2$.":".FO$...||
000002C0: 01 9F 20 36 2C 38 2C 36 2C 44 32 24 AA 22 3A 22 |.. 6,8,6,D2$.":"|
000002D0: AA 46 4F 24 AA 22 2C 50 2C 57 22 00 E5 06 86 01 |.FO$.",P,W".....|
000002E0: 8D 20 31 39 30 00 FC 06 90 01 8D 20 31 35 30 3A |. 190...... 150:|
000002F0: 98 36 2C C7 28 56 31 29 3B 43 24 3B 00 0A 07 9A |.6,.(V1);C$;....|
00000300: 01 46 B2 31 3A 89 20 35 38 30 00 10 07 A4 01 3A |.F.1:. 580.....:|
00000310: 00 2E 07 AE 01 8F 20 2A 2A 2A 2A 2A 20 4F 55 54 |...... ***** OUT|
00000320: 50 55 54 20 54 48 49 53 20 4C 49 4E 45 23 00 34 |PUT THIS LINE#.4|
00000330: 07 B8 01 3A 00 4C 07 C2 01 4C 4E B2 4E 4C 3A 8B |...:.L...LN.NL:.|
00000340: 20 4C 4B B2 30 20 A7 20 31 30 31 30 00 55 07 CC | LK.0 . 1010.U..|
00000350: 01 99 4C 4E 2C 00 67 07 D6 01 98 36 2C C7 28 31 |..LN,.g....6,.(1|
00000360: 29 3B C7 28 31 29 3B 00 7B 07 E0 01 98 36 2C C7 |);.(1);.{....6,.|
00000370: 28 4C 4C 29 3B C7 28 4C 48 29 3B 00 81 07 EA 01 |(LL);.(LH);.....|
00000380: 3A 00 A6 07 F4 01 8F 20 2A 2A 2A 2A 2A 20 52 45 |:...... ***** RE|
00000390: 41 44 20 54 48 49 53 20 42 41 53 49 43 20 50 47 |AD THIS BASIC PG|
000003A0: 4D 20 4C 49 4E 45 00 AC 07 FE 01 3A 00 B4 07 08 |M LINE.....:....|
000003B0: 02 58 B2 31 00 C5 07 12 02 8D 20 31 36 30 3A 43 |.X.1...... 160:C|
000003C0: 28 58 29 B2 56 00 DD 07 1C 02 8B 20 56 B1 30 20 |(X).V...... V.0 |
000003D0: A7 20 58 B2 58 AA 31 3A 89 20 35 33 30 00 E3 07 |. X.X.1:. 530...|
000003E0: 26 02 3A 00 05 08 30 02 8F 20 2A 2A 2A 2A 2A 20 |&.:...0.. ***** |
000003F0: 47 45 54 20 4E 45 58 54 20 4C 49 4E 4B 20 26 20 |GET NEXT LINK & |
00000400: 4C 49 4E 45 23 00 0B 08 3A 02 3A 00 29 08 44 02 |LINE#...:.:.).D.|
00000410: 8D 20 31 35 30 3A 4C 4B B2 56 AA 56 31 3A 8B 20 |. 150:LK.V.V1:. |
00000420: 5A B2 31 20 A7 20 36 30 30 00 3A 08 49 02 8B 20 |Z.1 . 600.:.I.. |
00000430: 4C 4B B2 30 20 A7 20 5A B2 31 00 5D 08 4E 02 8D |LK.0 . Z.1.].N..|
00000440: 20 31 35 30 3A 4E 4C B2 56 31 AA 28 32 35 36 AC | 150:NL.V1.(256.|
00000450: 56 29 3A 4C 4C B2 56 31 3A 4C 48 B2 56 00 71 08 |V):LL.V1:LH.V.q.|
00000460: 58 02 8B 20 46 20 A7 20 46 B2 30 3A 89 20 34 35 |X.. F . F.0:. 45|
00000470: 30 00 77 08 62 02 3A 00 9D 08 6C 02 8F 20 2A 2A |0.w.b.:...l.. **|
00000480: 2A 2A 2A 20 42 52 45 41 4B 20 55 50 20 4C 49 4E |*** BREAK UP LIN|
00000490: 45 20 49 46 20 50 4F 53 53 49 42 4C 45 00 A3 08 |E IF POSSIBLE...|
000004A0: 76 02 3A 00 AB 08 80 02 58 B2 31 00 B1 08 8A 02 |v.:.....X.1.....|
000004B0: 3A 00 C9 08 94 02 8F 20 53 4B 49 50 20 49 46 20 |:...... SKIP IF |
000004C0: 4E 4F 54 20 43 4F 4C 4F 4E 00 CF 08 9E 02 3A 00 |NOT COLON.....:.|
000004D0: E4 08 A8 02 8B 20 43 28 58 29 B3 B1 35 38 20 A7 |..... C(X)..58 .|
000004E0: 20 38 31 30 00 F4 08 B2 02 8B 20 58 B2 31 20 A7 | 810...... X.1 .|
000004F0: 20 39 35 30 00 0F 09 BC 02 4C 4E B2 4C 4E AA 31 | 950.....LN.LN.1|
00000500: 3A 8B 20 4C 4E B1 B2 4E 4C 20 A7 20 39 35 30 00 |:. LN..NL . 950.|
00000510: 26 09 C6 02 98 36 2C C7 28 30 29 3B C7 28 31 29 |&....6,.(0);.(1)|
00000520: 3B C7 28 31 29 3B 00 43 09 D0 02 48 B2 B5 28 4C |;.(1);.C...H..(L|
00000530: 4E AD 32 35 36 29 3A 4C B2 4C 4E AB 28 32 35 36 |N.256):L.LN.(256|
00000540: AC 48 29 00 55 09 DA 02 98 36 2C C7 28 4C 29 3B |.H).U....6,.(L);|
00000550: C7 28 48 29 3B 00 79 09 E4 02 58 B2 58 AA 31 3A |.(H);.y...X.X.1:|
00000560: 8B 20 43 28 58 29 B2 33 32 20 B0 20 43 28 58 29 |. C(X).32 . C(X)|
00000570: B2 35 38 20 A7 20 37 34 30 00 83 09 EE 02 89 20 |.58 . 740...... |
00000580: 36 38 30 00 89 09 F8 02 3A 00 A8 09 02 03 8F 20 |680.....:...... |
00000590: 43 4F 50 59 20 52 45 53 54 20 4F 46 20 4C 49 4E |COPY REST OF LIN|
000005A0: 45 20 49 46 20 2D 2D 2D 00 C9 09 0C 03 8F 20 47 |E IF ---...... G|
000005B0: 4F 54 4F 2C 20 45 4E 44 2C 20 52 55 4E 2C 20 49 |OTO, END, RUN, I|
000005C0: 46 2C 20 52 45 54 55 52 4E 00 E5 09 16 03 8F 20 |F, RETURN...... |
000005D0: 52 45 4D 2C 20 53 54 4F 50 2C 20 4C 49 53 54 2C |REM, STOP, LIST,|
000005E0: 20 43 4F 4E 54 00 EB 09 20 03 3A 00 0B 0A 2A 03 | CONT... .:...*.|
000005F0: 8B 20 43 28 58 29 B3 31 32 38 20 B0 20 43 28 58 |. C(X).128 . C(X|
00000600: 29 B1 31 35 35 20 A7 20 39 31 30 00 2B 0A 34 03 |).155 . 910.+.4.|
00000610: 8B 20 43 28 58 29 B2 31 32 38 20 B0 20 43 28 58 |. C(X).128 . C(X|
00000620: 29 B1 31 35 33 20 A7 20 38 35 30 00 4B 0A 3E 03 |).153 . 850.K.>.|
00000630: 8B 20 43 28 58 29 B3 31 33 37 20 B0 20 43 28 58 |. C(X).137 . C(X|
00000640: 29 B1 31 34 34 20 A7 20 39 31 30 00 6B 0A 48 03 |).144 . 910.k.H.|
00000650: 8B 20 43 28 58 29 B2 31 34 30 20 B0 20 43 28 58 |. C(X).140 . C(X|
00000660: 29 B2 31 34 31 20 A7 20 39 31 30 00 7B 0A 52 03 |).141 . 910.{.R.|
00000670: 98 36 2C C7 28 43 28 58 29 29 3B 00 96 0A 5C 03 |.6,.(C(X));...\.|
00000680: 8B 20 43 28 58 29 B1 30 20 A7 20 58 B2 58 AA 31 |. C(X).0 . X.X.1|
00000690: 3A 89 20 38 35 30 00 A0 0A 66 03 89 20 34 35 30 |:. 850...f.. 450|
000006A0: 00 A6 0A 70 03 3A 00 BE 0A 7A 03 8F 20 53 4B 49 |...p.:...z.. SKI|
000006B0: 50 20 49 46 20 4E 4F 54 20 51 55 4F 54 45 00 C4 |P IF NOT QUOTE..|
000006C0: 0A 84 03 3A 00 D9 0A 8E 03 8B 20 43 28 58 29 B3 |...:...... C(X).|
000006D0: B1 33 34 20 A7 20 39 35 30 00 EF 0A 98 03 98 36 |.34 . 950......6|
000006E0: 2C C7 28 43 28 58 29 29 3B 3A 58 B2 58 AA 31 00 |,.(C(X));:X.X.1.|
000006F0: 0C 0B A2 03 8B 20 43 28 58 29 B2 33 34 20 B0 20 |..... C(X).34 . |
00000700: 43 28 58 29 B2 30 20 A7 20 39 35 30 00 16 0B AC |C(X).0 . 950....|
00000710: 03 89 20 39 32 30 00 26 0B B6 03 98 36 2C C7 28 |.. 920.&....6,.(|
00000720: 43 28 58 29 29 3B 00 41 0B C0 03 8B 20 43 28 58 |C(X));.A.... C(X|
00000730: 29 B1 30 20 A7 20 58 B2 58 AA 31 3A 89 20 36 38 |).0 . X.X.1:. 68|
00000740: 30 00 4B 0B CA 03 89 20 34 35 30 00 51 0B D4 03 |0.K.... 450.Q...|
00000750: 3A 00 70 0B DE 03 8F 20 2A 2A 2A 20 45 4E 44 20 |:.p.... *** END |
00000760: 4F 46 20 42 41 53 49 43 20 50 52 4F 47 52 41 4D |OF BASIC PROGRAM|
00000770: 00 76 0B E8 03 3A 00 88 0B F2 03 98 36 2C C7 28 |.v...:......6,.(|
00000780: 30 29 3B C7 28 30 29 3B 00 9A 0B FC 03 99 22 93 |0);.(0);......".|
00000790: 12 44 4F 4E 45 22 3A 99 3A 99 00 AB 0B 06 04 A0 |.DONE":.:.......|
000007A0: 20 35 3A A0 20 36 3A A0 20 31 35 00 00 00 | 5:. 6:. 15... |
....... UN-COMPACTOR.2.2.. BY:ROBE
RT W.BAKER.U.F.. 15 WINDSOR DR.,ATCO,NJ
08004...D..>MOD.RAY THOMAS.830116 TO GIV
E CHOICE OF DRIVES & FIX 'LAST LINE' BU
G <...N.. 270...X.:.V....>>>>>>> SUBROUT
INES <<<<<<<<<.....:...... 160:V1.V... .
.#5,C$:. 190...... C$."" . V.0:......V.F
(C$):..3....15,EN,EM$,ET,ES.B.H.. EN.0 .
..X.R.."..DISK ERROR":..J....EN;EM$;ET;
ES.U.... 1030.{...:...... ***** INITIALA
LIZATION *****.....:.C....".";.10);".UN-
COMPACTOR........" .INPUT. FILE IN DRIVE
#";D1$..."..".OUTPUT. FILE IN DRIVE#";D2
$.%.,..".INPUT FILENAME.";FL$.2.6.. C(25
6).@.@.. 15,8,15._.J.. 5,8,5,D1$.":".FL$
.",P,R".I.T.. 190...^..:."OK, WORKING ON
LINE# .........H.FO$.H(FL$,14)."/U"...R
..15,"S".D2$.":".FO$...|.. 6,8,6,D2$.":"
.FO$.",P,W"...... 190...... 150:.6,G(V1)
;C$;.....F.1:. 580.....:...... ***** OUT
PUT THIS LINE#.4...:.L.B.LN.NL:. LK.0 .
1010.U.L..LN,.G.V..6,G(1);G(1);.{....6,G
(LL);G(LH);.....:...... ***** READ THIS
BASIC PGM LINE.....:.....X.1.E.... 160:C
(X).V...... V.0 . X.X.1:. 530...&.:...0.
. ***** GET NEXT LINK & LINE#...:.:.).D.
. 150:LK.V.V1:. Z.1 . 600.:.I.. LK.0 . Z
.1.].N.. 150:NL.V1.(256.V):LL.V1:LH.V.Q.
X.. F . F.0:. 450.W.B.:...L.. ***** BREA
K UP LINE IF POSSIBLE...V.:.....X.1.....
:.I.... SKIP IF NOT COLON.O...:...... C(
X)..58 . 810...... X.1 . 950.....LN.LN.1
:. LN..NL . 950.&.F..6,G(0);G(1);G(1);.C
.P.H..(LN.256):L.LN.(256.H).U.Z..6,G(L);
G(H);.Y...X.X.1:. C(X).32 . C(X).58 . 74
0...... 680.....:...... COPY REST OF LIN
E IF ---.I.... GOTO, END, RUN, IF, RETUR
N...... REM, STOP, LIST, CONT... .:...*.
. C(X).128 . C(X).155 . 910.+.4.. C(X).1
28 . C(X).153 . 850.K.>.. C(X).137 . C(X
).144 . 910.K.H.. C(X).140 . C(X).141 .
910.{.R..6,G(C(X));...\.. C(X).0 . X.X.1
:. 850. .F.. 450...P.:...Z.. SKIP IF NOT
QUOTE.D...:.Y.... C(X)..34 . 950......6
,G(C(X));:X.X.1...... C(X).34 . C(X).0 .
950...... 920.&....6,G(C(X));.A.... C(X
).0 . X.X.1:. 680.K.J.. 450.Q.T.:.P....
*** END OF BASIC PROGRAM.V...:......6,G(
0);G(0);......"..DONE":.:...... 5: 6:
15...
> CLICK IMAGE PREVIEW FOR FULL MODAL