EXPANDER
FILE INFORMATION
FILENAME(S): EXPANDER
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-19 22:48:42
APPEARS ON: 1 disk(s)
FILE HASH
88cd334ef6e61b8f4e585829848189a71e342ffce50e7b516319d481221d93bd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 MORE 86 51 | EXPANDER | PRG | Radd Maxx | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 0A 00 8F 20 45 58 50 41 4E 44 45 52 |....... EXPANDER| 00000010: 20 56 45 52 53 49 4F 4E 20 32 2E 31 30 00 30 08 | VERSION 2.10.0.| 00000020: 14 00 8F 20 4D 4F 44 49 46 49 45 44 20 42 59 3A |... MODIFIED BY:| 00000030: 00 41 08 1E 00 8F 20 4D 52 2E 20 52 41 53 54 45 |.A.... MR. RASTE| 00000040: 52 00 66 08 28 00 8F 20 4A 55 4E 45 20 38 2C 20 |R.f.(.. JUNE 8, | 00000050: 31 39 38 36 20 41 4E 44 20 4A 55 4E 45 20 31 37 |1986 AND JUNE 17| 00000060: 2C 20 31 39 38 36 00 6C 08 32 00 3A 00 76 08 3C |, 1986.l.2.:.v.<| 00000070: 00 89 20 32 32 30 00 7C 08 46 00 3A 00 9D 08 50 |.. 220.|.F.:...P| 00000080: 00 8F 20 3E 3E 3E 3E 3E 3E 20 53 55 42 52 4F 55 |.. >>>>>> SUBROU| 00000090: 54 49 4E 45 53 20 3C 3C 3C 3C 3C 3C 3C 00 A3 08 |TINES <<<<<<<...| 000000A0: 5A 00 3A 00 B1 08 64 00 8D 31 31 30 3A 56 31 B2 |Z.:...d..110:V1.| 000000B0: 56 00 C1 08 6E 00 A1 23 35 2C 43 24 3A 8D 31 34 |V...n..#5,C$:.14| 000000C0: 30 00 D2 08 78 00 8B 43 24 B2 22 22 A7 56 B2 30 |0...x..C$."".V.0| 000000D0: 3A 8E 00 E0 08 82 00 56 B2 C6 28 43 24 29 3A 8E |:......V..(C$):.| 000000E0: 00 F5 08 8C 00 84 31 35 2C 45 4E 2C 45 4D 24 2C |......15,EN,EM$,| 000000F0: 45 54 2C 45 53 00 01 09 96 00 8B 45 4E B2 30 A7 |ET,ES......EN.0.| 00000100: 8E 00 17 09 A0 00 99 22 93 12 44 49 53 4B 20 45 |......."..DISK E| 00000110: 52 52 4F 52 22 3A 99 00 29 09 AA 00 99 45 4E 3B |RROR":..)....EN;| 00000120: 45 4D 24 3B 45 54 3B 45 53 00 33 09 B4 00 89 31 |EM$;ET;ES.3....1| 00000130: 30 36 30 00 39 09 BE 00 3A 00 5A 09 C8 00 8F 20 |060.9...:.Z.... | 00000140: 2A 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 41 |***** INITIALIZA| 00000150: 54 49 4F 4E 20 2A 2A 2A 2A 2A 00 60 09 D2 00 3A |TION *****.`...:| 00000160: 00 7E 09 DC 00 97 20 35 33 32 38 30 2C 31 34 3A |.~.... 53280,14:| 00000170: 97 35 33 32 38 31 2C 36 3A 99 22 05 22 3B 00 C3 |.53281,6:.".";..| 00000180: 09 E6 00 99 22 93 22 3B A6 31 36 29 3B 22 12 45 |....".";.16);".E| 00000190: 58 50 41 4E 44 45 52 11 11 22 3A 99 22 20 20 20 |XPANDER..":." | 000001A0: 20 4D 4F 44 49 46 49 45 44 20 42 59 20 4D 52 2E | MODIFIED BY MR.| 000001B0: 20 52 41 53 54 45 52 20 2D 20 36 2F 31 33 2F 38 | RASTER - 6/13/8| 000001C0: 36 11 22 00 E5 09 F0 00 99 22 20 12 49 4E 50 55 |6."......" .INPU| 000001D0: 54 92 20 46 49 4C 45 20 49 4E 20 12 44 52 49 56 |T. FILE IN .DRIV| 000001E0: 45 20 23 30 11 00 09 0A FA 00 99 22 20 12 4F 55 |E #0......." .OU| 000001F0: 54 50 55 54 92 20 46 49 4C 45 20 49 4E 20 12 44 |TPUT. FILE IN .D| 00000200: 52 49 56 45 20 23 30 11 11 00 39 0A 22 01 85 22 |RIVE #0...9.".."| 00000210: 11 12 49 4E 50 55 54 20 46 49 4C 45 4E 41 4D 45 |..INPUT FILENAME| 00000220: 20 28 24 20 46 4F 52 20 44 49 52 45 43 54 4F 52 | ($ FOR DIRECTOR| 00000230: 59 29 20 92 22 3B 46 4C 24 00 52 0A 2C 01 8B 20 |Y) .";FL$.R.,.. | 00000240: 46 4C 24 20 B2 20 22 24 22 20 A7 20 89 20 31 30 |FL$ . "$" . . 10| 00000250: 38 30 00 68 0A 36 01 8B 46 4C 24 B2 22 2A 22 A7 |80.h.6..FL$."*".| 00000260: 99 22 93 9A 11 22 3A 80 00 74 0A 40 01 86 43 28 |."...":..t.@..C(| 00000270: 32 35 36 29 00 81 0A 54 01 9F 31 35 2C 38 2C 31 |256)...T..15,8,1| 00000280: 35 00 9C 0A 5E 01 9F 35 2C 38 2C 35 2C 22 30 3A |5...^..5,8,5,"0:| 00000290: 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 00 A5 0A 68 |".FL$.",P,R"...h| 000002A0: 01 8D 31 34 30 00 C9 0A 72 01 99 3A 99 22 4F 4B |..140...r..:."OK| 000002B0: 2C 20 57 4F 52 4B 49 4E 47 20 4F 4E 20 4C 49 4E |, WORKING ON LIN| 000002C0: 45 23 20 2E 2E 2E 2E 2E 11 00 DF 0A 7C 01 46 4F |E# .........|.FO| 000002D0: 24 B2 C8 28 46 4C 24 2C 31 34 29 AA 22 2F 55 00 |$..(FL$,14)."/U.| 000002E0: F1 0A 86 01 98 31 35 2C 22 53 30 3A 22 AA 46 4F |.....15,"S0:".FO| 000002F0: 24 00 0B 0B 90 01 9F 36 2C 38 2C 36 2C 22 30 3A |$......6,8,6,"0:| 00000300: 22 AA 46 4F 24 AA 22 2C 50 2C 57 00 14 0B 9A 01 |".FO$.",P,W.....| 00000310: 8D 31 34 30 00 2A 0B A4 01 8D 31 30 30 3A 98 36 |.140.*....100:.6| 00000320: 2C C7 28 56 31 29 3B 43 24 3B 00 37 0B AE 01 46 |,.(V1);C$;.7...F| 00000330: B2 31 3A 89 36 30 30 00 3D 0B B8 01 3A 00 5B 0B |.1:.600.=...:.[.| 00000340: C2 01 8F 20 2A 2A 2A 2A 2A 20 4F 55 54 50 55 54 |... ***** OUTPUT| 00000350: 20 54 48 49 53 20 4C 49 4E 45 23 00 61 0B CC 01 | THIS LINE#.a...| 00000360: 3A 00 76 0B D6 01 4C 4E B2 4E 4C 3A 8B 4C 4B B2 |:.v...LN.NL:.LK.| 00000370: 30 A7 31 30 33 30 00 7F 0B E0 01 99 4C 4E 2C 00 |0.1030......LN,.| 00000380: 91 0B EA 01 98 36 2C C7 28 31 29 3B C7 28 31 29 |.....6,.(1);.(1)| 00000390: 3B 00 A5 0B F4 01 98 36 2C C7 28 4C 4C 29 3B C7 |;......6,.(LL);.| 000003A0: 28 4C 48 29 3B 00 AB 0B FE 01 3A 00 D0 0B 08 02 |(LH);.....:.....| 000003B0: 8F 20 2A 2A 2A 2A 2A 20 52 45 41 44 20 54 48 49 |. ***** READ THI| 000003C0: 53 20 42 41 53 49 43 20 50 47 4D 20 4C 49 4E 45 |S BASIC PGM LINE| 000003D0: 00 D6 0B 12 02 3A 00 DE 0B 1C 02 58 B2 31 00 EE |.....:.....X.1..| 000003E0: 0B 26 02 8D 31 31 30 3A 43 28 58 29 B2 56 00 02 |.&..110:C(X).V..| 000003F0: 0C 30 02 8B 56 B1 30 A7 58 B2 58 AA 31 3A 89 35 |.0..V.0.X.X.1:.5| 00000400: 35 30 00 08 0C 3A 02 3A 00 2A 0C 44 02 8F 20 2A |50...:.:.*.D.. *| 00000410: 2A 2A 2A 2A 20 47 45 54 20 4E 45 58 54 20 4C 49 |**** GET NEXT LI| 00000420: 4E 4B 20 26 20 4C 49 4E 45 23 00 30 0C 4E 02 3A |NK & LINE#.0.N.:| 00000430: 00 4B 0C 58 02 8D 31 30 30 3A 4C 4B B2 56 AA 56 |.K.X..100:LK.V.V| 00000440: 31 3A 8B 4C 4B B2 30 A7 36 32 30 00 6D 0C 62 02 |1:.LK.0.620.m.b.| 00000450: 8D 31 30 30 3A 4E 4C B2 56 31 AA 28 32 35 36 AC |.100:NL.V1.(256.| 00000460: 56 29 3A 4C 4C B2 56 31 3A 4C 48 B2 56 00 7D 0C |V):LL.V1:LH.V.}.| 00000470: 6C 02 8B 46 A7 46 B2 30 3A 89 34 37 30 00 83 0C |l..F.F.0:.470...| 00000480: 76 02 3A 00 A9 0C 80 02 8F 20 2A 2A 2A 2A 2A 20 |v.:...... ***** | 00000490: 42 52 45 41 4B 20 55 50 20 4C 49 4E 45 20 49 46 |BREAK UP LINE IF| 000004A0: 20 50 4F 53 53 49 42 4C 45 00 AF 0C 8A 02 3A 00 | POSSIBLE.....:.| 000004B0: B7 0C 94 02 58 B2 31 00 BD 0C 9E 02 3A 00 D5 0C |....X.1.....:...| 000004C0: A8 02 8F 20 53 4B 49 50 20 49 46 20 4E 4F 54 20 |... SKIP IF NOT | 000004D0: 43 4F 4C 4F 4E 00 DB 0C B2 02 3A 00 ED 0C BC 02 |COLON.....:.....| 000004E0: 8B 43 28 58 29 B3 B1 35 38 A7 38 33 30 00 FA 0C |.C(X)..58.830...| 000004F0: C6 02 8B 58 B2 31 A7 39 37 30 00 12 0D D0 02 4C |...X.1.970.....L| 00000500: 4E B2 4C 4E AA 31 3A 8B 4C 4E B1 B2 4E 4C A7 39 |N.LN.1:.LN..NL.9| 00000510: 37 30 00 29 0D DA 02 98 36 2C C7 28 30 29 3B C7 |70.)....6,.(0);.| 00000520: 28 31 29 3B C7 28 31 29 3B 00 46 0D E4 02 48 B2 |(1);.(1);.F...H.| 00000530: B5 28 4C 4E AD 32 35 36 29 3A 4C B2 4C 4E AB 28 |.(LN.256):L.LN.(| 00000540: 32 35 36 AC 48 29 00 58 0D EE 02 98 36 2C C7 28 |256.H).X....6,.(| 00000550: 4C 29 3B C7 28 48 29 3B 00 77 0D F8 02 58 B2 58 |L);.(H);.w...X.X| 00000560: AA 31 3A 8B 43 28 58 29 B2 33 32 B0 43 28 58 29 |.1:.C(X).32.C(X)| 00000570: B2 35 38 A7 37 36 30 00 80 0D 02 03 89 37 30 30 |.58.760......700| 00000580: 00 86 0D 0C 03 3A 00 A5 0D 16 03 8F 20 43 4F 50 |.....:...... COP| 00000590: 59 20 52 45 53 54 20 4F 46 20 4C 49 4E 45 20 49 |Y REST OF LINE I| 000005A0: 46 20 2D 2D 2D 00 C7 0D 20 03 8F 20 20 47 4F 54 |F ---... .. GOT| 000005B0: 4F 2C 20 45 4E 44 2C 20 52 55 4E 2C 20 49 46 2C |O, END, RUN, IF,| 000005C0: 20 52 45 54 55 52 4E 00 E4 0D 2A 03 8F 20 20 52 | RETURN...*.. R| 000005D0: 45 4D 2C 20 53 54 4F 50 2C 20 4C 49 53 54 2C 20 |EM, STOP, LIST, | 000005E0: 43 4F 4E 54 00 EA 0D 34 03 3A 00 05 0E 3E 03 8B |CONT...4.:...>..| 000005F0: 43 28 58 29 B3 31 32 38 B0 43 28 58 29 B1 31 35 |C(X).128.C(X).15| 00000600: 35 A7 39 33 30 00 20 0E 48 03 8B 43 28 58 29 B2 |5.930. .H..C(X).| 00000610: 31 32 38 B0 43 28 58 29 B1 31 35 33 A7 38 37 30 |128.C(X).153.870| 00000620: 00 3B 0E 52 03 8B 43 28 58 29 B3 31 33 37 B0 43 |.;.R..C(X).137.C| 00000630: 28 58 29 B1 31 34 34 A7 39 33 30 00 56 0E 5C 03 |(X).144.930.V.\.| 00000640: 8B 43 28 58 29 B2 31 34 30 B0 43 28 58 29 B2 31 |.C(X).140.C(X).1| 00000650: 34 31 A7 39 33 30 00 66 0E 66 03 98 36 2C C7 28 |41.930.f.f..6,.(| 00000660: 43 28 58 29 29 3B 00 7D 0E 70 03 8B 43 28 58 29 |C(X));.}.p..C(X)| 00000670: B1 30 A7 58 B2 58 AA 31 3A 89 38 37 30 00 86 0E |.0.X.X.1:.870...| 00000680: 7A 03 89 34 37 30 00 8C 0E 84 03 3A 00 A4 0E 8E |z..470.....:....| 00000690: 03 8F 20 53 4B 49 50 20 49 46 20 4E 4F 54 20 51 |.. SKIP IF NOT Q| 000006A0: 55 4F 54 45 00 AA 0E 98 03 3A 00 BC 0E A2 03 8B |UOTE.....:......| 000006B0: 43 28 58 29 B3 B1 33 34 A7 39 37 30 00 D2 0E AC |C(X)..34.970....| 000006C0: 03 98 36 2C C7 28 43 28 58 29 29 3B 3A 58 B2 58 |..6,.(C(X));:X.X| 000006D0: AA 31 00 EA 0E B6 03 8B 43 28 58 29 B2 33 34 B0 |.1......C(X).34.| 000006E0: 43 28 58 29 B2 30 A7 39 37 30 00 F3 0E C0 03 89 |C(X).0.970......| 000006F0: 39 34 30 00 03 0F CA 03 98 36 2C C7 28 43 28 58 |940......6,.(C(X| 00000700: 29 29 3B 00 1A 0F D4 03 8B 43 28 58 29 B1 30 A7 |));......C(X).0.| 00000710: 58 B2 58 AA 31 3A 89 37 30 30 00 23 0F DE 03 89 |X.X.1:.700.#....| 00000720: 34 37 30 00 29 0F E8 03 3A 00 48 0F F2 03 8F 20 |470.)...:.H.... | 00000730: 2A 2A 2A 20 45 4E 44 20 4F 46 20 42 41 53 49 43 |*** END OF BASIC| 00000740: 20 50 52 4F 47 52 41 4D 00 4E 0F FC 03 3A 00 60 | PROGRAM.N...:.`| 00000750: 0F 06 04 98 36 2C C7 28 30 29 3B C7 28 30 29 3B |....6,.(0);.(0);| 00000760: 00 8B 0F 10 04 8B 53 50 B2 31 32 38 A7 97 35 33 |......SP.128..53| 00000770: 32 39 36 2C 30 3A 8F 20 53 57 49 54 43 48 20 54 |296,0:. SWITCH T| 00000780: 4F 20 53 4C 4F 57 20 4D 4F 44 45 00 9D 0F 1A 04 |O SLOW MODE.....| 00000790: 99 22 93 12 44 4F 4E 45 22 3A 99 3A 99 00 AB 0F |."..DONE":.:....| 000007A0: 24 04 A0 35 3A A0 36 3A A0 31 35 00 B1 0F 2E 04 |$..5:.6:.15.....| 000007B0: 80 00 CF 0F 38 04 9F 38 2C 38 2C 30 2C 22 24 30 |....8..8,8,0,"$0| 000007C0: 22 3A 4E 24 B2 C7 28 30 29 3A 58 24 B2 4E 24 00 |":N$..(0):X$.N$.| 000007D0: E9 0F 42 04 A1 23 38 2C 41 24 2C 41 24 2C 41 24 |..B..#8,A$,A$,A$| 000007E0: 2C 41 24 2C 41 24 2C 41 24 00 00 10 4C 04 A1 23 |,A$,A$,A$...L..#| 000007F0: 38 2C 41 24 3A 8B 41 24 B2 22 22 A7 31 31 32 30 |8,A$:.A$."".1120| 00000800: 00 13 10 56 04 58 24 B2 58 24 AA 41 24 3A 89 31 |...V.X$.X$.A$:.1| 00000810: 31 30 30 00 23 10 60 04 99 22 11 20 20 20 20 22 |100.#.`..". "| 00000820: 20 58 24 00 41 10 6A 04 A1 23 38 2C 41 24 2C 41 | X$.A.j..#8,A$,A| 00000830: 24 3A 8B 41 24 B2 22 22 A7 A0 38 3A 89 31 31 37 |$:.A$.""..8:.117| 00000840: 30 00 6B 10 74 04 A1 23 38 2C 41 24 2C 42 24 3A |0.k.t..#8,A$,B$:| 00000850: 42 24 B2 C4 28 C6 28 41 24 AA 4E 24 29 AA C6 28 |B$..(.(A$.N$)..(| 00000860: 42 24 AA 4E 24 29 AC 32 35 36 29 00 92 10 7E 04 |B$.N$).256)...~.| 00000870: A1 23 38 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 22 |.#8,A$:.A$."".."| 00000880: 20 20 20 22 42 24 3A 42 24 B2 22 22 3A 89 31 31 | "B$:B$."":.11| 00000890: 33 30 00 A5 10 88 04 42 24 B2 42 24 AA 41 24 3A |30.....B$.B$.A$:| 000008A0: 89 31 31 35 30 00 AC 10 92 04 A0 38 00 B6 10 9C |.1150......8....| 000008B0: 04 89 20 32 39 30 00 00 00 |.. 290... |
....... EXPANDER VERSION 2.10.0.... MODI FIED BY:.A.... MR. RASTER.F.(.. JUNE 8, 1986 AND JUNE 17, 1986.L.2.:.V.<.. 220.| .F.:...P.. >>>>>> SUBROUTINES <<<<<<<... Z.:...D..110:V1.V.A.N..#5,C$:.140.R.X..C $."".V.0:......V.F(C$):.......15,EN,EM$, ET,ES......EN.0..... .."..DISK ERROR":.. )....EN;EM$;ET;ES.3....1060.9...:.Z.H.. ***** INITIALIZATION *****.`.R.:.~.... 5 3280,14:.53281,6:.".";.C....".";.16);".E XPANDER..":." MODIFIED BY MR. RASTER - 6/13/86."......" .INPUT. FILE IN .DRIV E #0......." .OUTPUT. FILE IN .DRIVE #0. ..9.".."..INPUT FILENAME ($ FOR DIRECTOR Y) .";FL$.R.,.. FL$ . "$" . . 1080.H.6.. FL$."*".."...":..T.@..C(256)...T..15,8,1 5...^..5,8,5,"0:".FL$.",P,R"...H..140.I. R..:."OK, WORKING ON LINE# .........|.FO $.H(FL$,14)."/U......15,"S0:".FO$......6 ,8,6,"0:".FO$.",P,W......140.*....100:.6 ,G(V1);C$;.7...F.1:.600.=...:.[.B.. **** * OUTPUT THIS LINE#.A.L.:.V.V.LN.NL:.LK. 0.1030.....LN,......6,G(1);G(1);......6 ,G(LL);G(LH);.....:.P.... ***** READ THI S BASIC PGM LINE.V...:.....X.1...&..110: C(X).V...0..V.0.X.X.1:.550...:.:.*.D.. * **** GET NEXT LINK & LINE#.0.N.:.K.X..10 0:LK.V.V1:.LK.0.620.M.B..100:NL.V1.(256. V):LL.V1:LH.V.}.L..F.F.0:.470...V.:..... . ***** BREAK UP LINE IF POSSIBLE.....:. ....X.1.....:.U.... SKIP IF NOT COLON... ..:......C(X)..58.830...F..X.1.970...P.L N.LN.1:.LN..NL.970.).Z..6,G(0);G(1);G(1) ;.F...H..(LN.256):L.LN.(256.H).X....6,G( L);G(H);.W...X.X.1:.C(X).32.C(X).58.760. .....700.....:...... COPY REST OF LINE I F ---.G. .. GOTO, END, RUN, IF, RETURN. ..*.. REM, STOP, LIST, CONT...4.:...>.. C(X).128.C(X).155.930. .H..C(X).128.C(X) .153.870.;.R..C(X).137.C(X).144.930.V.\. .C(X).140.C(X).141.930.F.F..6,G(C(X));.} .P..C(X).0.X.X.1:.870...Z..470.....:.... .. SKIP IF NOT QUOTE.....:......C(X)..34 .970.R....6,G(C(X));:X.X.1......C(X).34. C(X).0.970......940...J..6,G(C(X));...T. .C(X).0.X.X.1:.700.#....470.)...:.H.... *** END OF BASIC PROGRAM.N...:.`....6,G( 0);G(0);......SP.128..53296,0:. SWITCH T O SLOW MODE......"..DONE":.:....$. 5: 6: 15.......O.8..8,8,0,"$0":N$.G(0):X$.N$. ..B..#8,A$,A$,A$,A$,A$,A$...L..#8,A$:.A$ ."".1120...V.X$.X$.A$:.1100.#.`..". " X$.A.J..#8,A$,A$:.A$."". 8:.1170.K.T..# 8,A$,B$:B$.D(F(A$.N$).F(B$.N$).256)...~. .#8,A$:.A$."".." "B$:B$."":.1130.....B $.B$.A$:.1150..... 8...... 290...
> CLICK IMAGE PREVIEW FOR FULL MODAL