KOALA FILE SPLIT

FILE INFORMATION

FILENAME(S): KOALA FILE SPLIT

FILE TYPE(S): PRG

FILE SIZE: 3.3K

FIRST SEEN: 2025-12-01 01:08:54

APPEARS ON: 2 disk(s)

FILE HASH

d3b3453f8b2d782d757be6ac1dec3974c49e05a41e2d766570ec55b6c7e0b8eb

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GRAFIC UTILITY	KOALA FILE SPLIT	PRG	hedning, loot	24	5	DOWNLOAD FILE
DISK	KOALA FILE SPLIT	PRG	hedning, loot	12	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 26 08 64 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..&.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 4B  08 6E 00 8F 20 2A 20 4B  |******.K.n.. * K|
00000030: 4F 41 4C 41 20 46 49 4C  45 20 53 50 4C 49 54 2E  |OALA FILE SPLIT.|
00000040: 20 20 20 20 20 20 20 20  20 20 2A 00 70 08 78 00  |          *.p.x.|
00000050: 8F 20 2A 20 20 20 20 20  20 20 20 20 20 20 20 20  |. *             |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2A  |               *|
00000070: 00 95 08 82 00 8F 20 2A  20 42 59 20 50 41 54 52  |...... * BY PATR|
00000080: 49 43 20 48 45 44 4C 49  4E 2E 20 28 43 29 20 31  |IC HEDLIN. (C) 1|
00000090: 39 38 36 20 2A 00 BA 08  8C 00 8F 20 2A 2A 2A 2A  |986 *...... ****|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 DF 08 96 00 8F  |**********......|
000000C0: 20 2A 20 20 20 20 20 20  20 20 20 56 41 52 49 41  | *         VARIA|
000000D0: 42 4C 45 52 2E 20 20 20  20 20 20 20 20 20 2A 00  |BLER.         *.|
000000E0: 04 09 A0 00 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..... **********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000100: 2A 2A 2A 2A 00 1D 09 AA  00 8F 20 53 56 20 20 20  |****...... SV   |
00000110: 2D 20 53 54 41 52 54 20  56 41 52 44 45 00 35 09  |- START VARDE.5.|
00000120: B4 00 8F 20 45 56 20 20  20 2D 20 53 4C 55 54 20  |... EV   - SLUT |
00000130: 56 41 52 44 45 00 4D 09  BE 00 8F 20 49 20 20 20  |VARDE.M.... I   |
00000140: 20 2D 20 4C 4F 4F 50 20  49 4E 44 45 58 00 60 09  | - LOOP INDEX.`.|
00000150: C8 00 8F 20 53 20 20 20  20 2D 20 53 4C 41 53 4B  |... S    - SLASK|
00000160: 00 7D 09 E6 00 8F 20 41  44 52 20 20 2D 20 41 44  |.}.... ADR  - AD|
00000170: 52 45 53 53 20 46 4F 52  20 44 41 54 41 00 9B 09  |RESS FOR DATA...|
00000180: F0 00 8F 20 4C 41 44 52  20 2D 20 4C 41 44 44 4E  |... LADR - LADDN|
00000190: 49 4E 47 53 20 41 44 52  45 53 53 00 B8 09 2C 01  |INGS ADRESS...,.|
000001A0: 8F 20 4E 24 20 20 20 2D  20 4C 41 47 52 41 52 20  |. N$   - LAGRAR |
000001B0: 46 49 4C 20 4E 41 4D 4E  00 CB 09 36 01 8F 20 41  |FIL NAMN...6.. A|
000001C0: 24 20 20 20 2D 20 53 4C  41 53 4B 00 E6 09 40 01  |$   - SLASK...@.|
000001D0: 8F 20 45 52 24 20 20 2D  20 46 45 4C 4D 45 44 44  |. ER$  - FELMEDD|
000001E0: 45 4C 41 4E 44 45 00 00  0A 4A 01 8F 20 45 4E 24  |ELANDE...J.. EN$|
000001F0: 20 20 2D 20 45 52 52 4F  52 20 4E 55 4D 4D 45 52  |  - ERROR NUMMER|
00000200: 00 19 0A 54 01 8F 20 45  54 24 20 20 2D 20 45 52  |...T.. ET$  - ER|
00000210: 52 4F 52 20 54 52 41 43  4B 00 33 0A 5E 01 8F 20  |ROR TRACK.3.^.. |
00000220: 45 53 24 20 20 2D 20 45  52 52 4F 52 20 53 45 43  |ES$  - ERROR SEC|
00000230: 54 4F 52 00 57 0A 72 01  8F 20 4C 24 20 20 20 2D  |TOR.W.r.. L$   -|
00000240: 20 4C 41 47 52 41 52 20  44 45 4C 20 41 56 20 46  | LAGRAR DEL AV F|
00000250: 49 4C 20 4E 41 4D 4E 00  7C 0A 90 01 8F 20 2A 2A  |IL NAMN.|.... **|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 A1 0A 9A  |************....|
00000280: 01 8F 20 2A 20 20 20 20  20 20 20 20 44 45 46 49  |.. *        DEFI|
00000290: 4E 49 45 52 49 4E 47 2E  20 20 20 20 20 20 20 20  |NIERING.        |
000002A0: 2A 00 C6 0A A4 01 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |*...... ********|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002C0: 2A 2A 2A 2A 2A 2A 00 CC  0A AE 01 8F 00 E5 0A B8  |******..........|
000002D0: 01 96 20 A5 20 48 49 47  48 28 58 29 B2 B5 28 58  |.. . HIGH(X)..(X|
000002E0: AD 32 35 36 29 00 05 0B  C2 01 96 20 A5 20 20 4C  |.256)...... .  L|
000002F0: 4F 57 28 58 29 B2 58 AB  32 35 36 AC A5 20 48 49  |OW(X).X.256.. HI|
00000300: 47 48 28 58 29 00 2A 0B  F4 01 8F 20 2A 2A 2A 2A  |GH(X).*.... ****|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 4F 0B FE 01 8F  |**********.O....|
00000330: 20 2A 20 20 20 20 20 20  20 20 49 4E 49 54 49 4E  | *        INITIN|
00000340: 45 52 49 4E 47 2E 20 20  20 20 20 20 20 20 2A 00  |ERING.        *.|
00000350: 74 0B 08 02 8F 20 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |t.... **********|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000370: 2A 2A 2A 2A 00 7A 0B 12  02 8F 00 8D 0B 1C 02 88  |****.z..........|
00000380: 20 4C 24 B2 22 81 50 49  43 20 3F 20 22 00 93 0B  | L$.".PIC ? "...|
00000390: 26 02 8F 00 B8 0B 58 02  8F 20 2A 2A 2A 2A 2A 2A  |&.....X.. ******|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A  00 DD 0B 62 02 8F 20 2A  |********...b.. *|
000003C0: 20 20 20 20 20 20 20 48  55 56 55 44 20 50 52 4F  |       HUVUD PRO|
000003D0: 47 52 41 4D 2E 20 20 20  20 20 20 20 2A 00 02 0C  |GRAM.       *...|
000003E0: 6C 02 8F 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |l.. ************|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000400: 2A 2A 00 08 0C 76 02 8F  00 18 0C 7B 02 8B 20 53  |**...v.....{.. S|
00000410: B1 30 20 A7 20 38 30 30  00 30 0C 80 02 97 20 35  |.0 . 800.0.... 5|
00000420: 33 32 38 30 2C 36 3A 97  20 35 33 32 38 31 2C 36  |3280,6:. 53281,6|
00000430: 00 69 0C 8A 02 99 20 C7  28 31 34 29 22 93 9F CB  |.i.... .(14)"...|
00000440: 4F 41 4C 41 20 C6 49 4C  45 20 D3 50 4C 49 54 2E  |OALA .ILE .PLIT.|
00000450: 20 20 20 20 20 20 20 C2  59 20 D0 41 54 52 49 43  |       .Y .ATRIC|
00000460: 20 C8 45 44 4C 49 4E 05  22 00 8B 0C 94 02 99 22  | .EDLIN."......"|
00000470: 11 CE 41 4D 45 20 4F 46  20 46 49 4C 45 20 54 4F  |..AME OF FILE TO|
00000480: 20 42 45 20 53 50 4C 49  54 22 3B 00 A2 0C 9E 02  | BE SPLIT";.....|
00000490: 97 20 31 39 38 2C 30 3A  85 20 4E 24 3A 41 24 B2  |. 198,0:. N$:A$.|
000004A0: 4E 24 00 DD 0C A8 02 8B  20 C3 28 4E 24 29 B1 39  |N$...... .(N$).9|
000004B0: 20 A7 20 99 22 11 CE 4F  20 4D 4F 52 45 20 54 48  | . ."..O MORE TH|
000004C0: 41 4E 20 4E 49 4E 45 20  43 48 41 52 41 43 54 45  |AN NINE CHARACTE|
000004D0: 52 53 2E 22 3A 8D 20 33  30 30 30 3A 8A 00 F8 0C  |RS.":. 3000:....|
000004E0: AD 02 4E 24 B2 C8 28 41  24 AA 22 20 20 20 20 20  |..N$..(A$."     |
000004F0: 20 20 20 20 22 2C 38 29  00 FE 0C B2 02 8F 00 23  |    ",8).......#|
00000500: 0D BC 02 8F 20 2A 20 20  20 20 20 20 20 42 4F 52  |.... *       BOR|
00000510: 4A 41 20 41 52 42 45 54  41 2E 20 20 20 20 20 20  |JA ARBETA.      |
00000520: 20 20 2A 00 29 0D C6 02  8F 00 46 0D D0 02 99 22  |  *.).....F...."|
00000530: 11 11 C9 4E 53 45 52 54  20 53 4F 55 52 43 45 20  |...NSERT SOURCE |
00000540: 44 49 53 4B 2E 22 00 62  0D DA 02 8D 20 33 30 30  |DISK.".b.... 300|
00000550: 30 3A 8F 20 2D 20 57 41  49 54 20 46 4F 52 20 4B  |0:. - WAIT FOR K|
00000560: 45 59 00 81 0D E4 02 8D  20 33 31 30 30 3A 8F 20  |EY...... 3100:. |
00000570: 2D 20 4C 4F 41 44 49 4E  47 20 4D 45 53 53 41 47  |- LOADING MESSAG|
00000580: 45 00 89 0D EE 02 53 B2  31 00 99 0D F8 02 93 20  |E.....S.1...... |
00000590: 4C 24 AA 4E 24 2C 38 2C  31 00 9F 0D 02 03 8F 00  |L$.N$,8,1.......|
000005A0: C3 0D 0C 03 8F 20 20 44  45 4C 41 20 46 49 4C 20  |.....  DELA FIL |
000005B0: 4F 43 48 20 53 4B 52 49  56 20 54 49 4C 4C 20 44  |OCH SKRIV TILL D|
000005C0: 49 53 4B 00 C9 0D 16 03  8F 00 EB 0D 20 03 99 22  |ISK......... .."|
000005D0: 11 11 C9 4E 53 45 52 54  20 44 45 53 54 49 4E 41  |...NSERT DESTINA|
000005E0: 54 49 4F 4E 20 44 49 53  4B 2E 22 00 07 0E 2A 03  |TION DISK."...*.|
000005F0: 8D 20 33 30 30 30 3A 8F  20 2D 20 57 41 49 54 20  |. 3000:. - WAIT |
00000600: 46 4F 52 20 4B 45 59 00  16 0E 34 03 4E 24 B2 22  |FOR KEY...4.N$."|
00000610: 47 2F 22 AA 41 24 00 2F  0E 3E 03 8D 20 33 32 30  |G/".A$./.>.. 320|
00000620: 30 3A 8F 20 2D 20 4F 50  45 4E 20 46 49 4C 45 00  |0:. - OPEN FILE.|
00000630: 4D 0E 43 03 8D 20 35 30  30 30 3A 8F 20 2D 20 43  |M.C.. 5000:. - C|
00000640: 48 45 43 4B 20 4F 4E 20  45 52 52 4F 52 00 6A 0E  |HECK ON ERROR.j.|
00000650: 45 03 8D 20 33 31 30 30  3A 8F 20 2D 20 57 52 49  |E.. 3100:. - WRI|
00000660: 54 45 20 4D 45 53 53 41  47 45 00 90 0E 48 03 53  |TE MESSAGE...H.S|
00000670: 56 B2 30 3A 45 56 B2 37  39 39 39 3A 41 44 52 B2  |V.0:EV.7999:ADR.|
00000680: 32 34 35 37 36 3A 4C 41  44 52 B2 32 34 35 37 36  |24576:LADR.24576|
00000690: 00 AA 0E 52 03 8D 20 33  33 30 30 3A 8F 20 2D 20  |...R.. 3300:. - |
000006A0: 57 52 49 54 45 20 46 49  4C 45 00 C8 0E 57 03 8D  |WRITE FILE...W..|
000006B0: 20 35 30 30 30 3A 8F 20  2D 20 43 48 45 43 4B 20  | 5000:. - CHECK |
000006C0: 4F 4E 20 45 52 52 4F 52  00 D1 0E 59 03 A0 20 31  |ON ERROR...Y.. 1|
000006D0: 35 00 D7 0E 5C 03 8F 00  FC 0E 66 03 8F 20 2A 20  |5...\.....f.. * |
000006E0: 53 4B 52 49 56 20 46 49  4C 20 4E 55 4D 4D 45 52  |SKRIV FIL NUMMER|
000006F0: 20 54 56 5D 20 20 20 20  20 20 20 2A 00 02 0F 70  | TV]       *...p|
00000700: 03 8F 00 12 0F 7A 03 4E  24 B2 22 46 31 2F 22 AA  |.....z.N$."F1/".|
00000710: 41 24 00 2B 0F 84 03 8D  20 33 32 30 30 3A 8F 20  |A$.+.... 3200:. |
00000720: 2D 20 4F 50 45 4E 20 46  49 4C 45 00 49 0F 89 03  |- OPEN FILE.I...|
00000730: 8D 20 35 30 30 30 3A 8F  20 2D 20 43 48 45 43 4B  |. 5000:. - CHECK|
00000740: 20 4F 4E 20 45 52 52 4F  52 00 66 0F 8B 03 8D 20  | ON ERROR.f.... |
00000750: 33 31 30 30 3A 8F 20 2D  20 57 52 49 54 45 20 4D  |3100:. - WRITE M|
00000760: 45 53 53 41 47 45 00 8B  0F 8E 03 53 56 B2 30 3A  |ESSAGE.....SV.0:|
00000770: 45 56 B2 39 39 39 3A 41  44 52 B2 33 32 35 37 36  |EV.999:ADR.32576|
00000780: 3A 4C 41 44 52 B2 31 36  33 38 34 00 A5 0F 98 03  |:LADR.16384.....|
00000790: 8D 20 33 33 30 30 3A 8F  20 2D 20 57 52 49 54 45  |. 3300:. - WRITE|
000007A0: 20 46 49 4C 45 00 C3 0F  9D 03 8D 20 35 30 30 30  | FILE...... 5000|
000007B0: 3A 8F 20 2D 20 43 48 45  43 4B 20 4F 4E 20 45 52  |:. - CHECK ON ER|
000007C0: 52 4F 52 00 CC 0F 9F 03  A0 20 31 35 00 D2 0F A2  |ROR...... 15....|
000007D0: 03 8F 00 F7 0F AC 03 8F  20 2A 20 53 4B 52 49 56  |........ * SKRIV|
000007E0: 20 46 49 4C 20 4E 55 4D  4D 45 52 20 54 52 45 20  | FIL NUMMER TRE |
000007F0: 20 20 20 20 20 20 2A 00  FD 0F B6 03 8F 00 0D 10  |      *.........|
00000800: C0 03 4E 24 B2 22 46 32  2F 22 AA 41 24 00 26 10  |..N$."F2/".A$.&.|
00000810: CA 03 8D 20 33 32 30 30  3A 8F 20 2D 20 4F 50 45  |... 3200:. - OPE|
00000820: 4E 20 46 49 4C 45 00 44  10 CF 03 8D 20 35 30 30  |N FILE.D.... 500|
00000830: 30 3A 8F 20 2D 20 43 48  45 43 4B 20 4F 4E 20 45  |0:. - CHECK ON E|
00000840: 52 52 4F 52 00 61 10 D1  03 8D 20 33 31 30 30 3A  |RROR.a.... 3100:|
00000850: 8F 20 2D 20 57 52 49 54  45 20 4D 45 53 53 41 47  |. - WRITE MESSAG|
00000860: 45 00 86 10 D4 03 53 56  B2 30 3A 45 56 B2 39 39  |E.....SV.0:EV.99|
00000870: 39 3A 41 44 52 B2 33 33  35 37 36 3A 4C 41 44 52  |9:ADR.33576:LADR|
00000880: B2 35 35 32 39 36 00 A0  10 DE 03 8D 20 33 33 30  |.55296...... 330|
00000890: 30 3A 8F 20 2D 20 57 52  49 54 45 20 46 49 4C 45  |0:. - WRITE FILE|
000008A0: 00 BE 10 E3 03 8D 20 35  30 30 30 3A 8F 20 2D 20  |...... 5000:. - |
000008B0: 43 48 45 43 4B 20 4F 4E  20 45 52 52 4F 52 00 C7  |CHECK ON ERROR..|
000008C0: 10 E5 03 A0 20 31 35 00  CD 10 E8 03 8F 00 F1 10  |.... 15.........|
000008D0: F2 03 8F 20 2A 20 41 56  53 4C 55 54 41 20 20 20  |... * AVSLUTA   |
000008E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008F0: 2A 00 F7 10 FC 03 8F 00  17 11 06 04 8D 20 33 34  |*............ 34|
00000900: 30 30 3A 8F 20 2D 20 43  4C 45 41 52 20 4D 45 53  |00:. - CLEAR MES|
00000910: 53 2E 20 41 52 45 41 00  26 11 10 04 97 20 32 31  |S. AREA.&.... 21|
00000920: 34 2C 32 31 3A 99 00 50  11 1A 04 99 22 C4 4F 20  |4,21:..P....".O |
00000930: 59 4F 55 20 57 41 4E 54  20 54 4F 20 53 50 4C 49  |YOU WANT TO SPLI|
00000940: 54 20 41 4E 4F 54 48 45  52 20 46 49 4C 45 22 3B  |T ANOTHER FILE";|
00000950: 00 61 11 24 04 97 20 31  39 38 2C 30 3A 85 20 41  |.a.$.. 198,0:. A|
00000960: 24 00 79 11 2E 04 8B 20  C8 28 41 24 2C 31 29 B2  |$.y.... .(A$,1).|
00000970: 22 59 22 20 A7 20 9C 3A  8A 00 87 11 38 04 97 20  |"Y" . .:....8.. |
00000980: 32 2C 30 3A 9E 20 32 00  8D 11 9A 0B 8F 00 B1 11  |2,0:. 2.........|
00000990: A4 0B 8F 20 2A 20 57 41  49 54 20 46 4F 52 20 4B  |... * WAIT FOR K|
000009A0: 45 59 20 54 4F 20 42 45  20 50 55 53 48 45 44 20  |EY TO BE PUSHED |
000009B0: 2A 00 B7 11 AE 0B 8F 00  D7 11 B8 0B 8D 20 33 34  |*............ 34|
000009C0: 30 30 3A 8F 20 2D 20 43  4C 45 41 52 20 4D 45 53  |00:. - CLEAR MES|
000009D0: 53 2E 20 41 52 45 41 00  EF 11 C2 0B 41 B2 C2 28  |S. AREA.....A..(|
000009E0: 32 31 34 29 3A 97 20 32  31 34 2C 32 31 3A 99 00  |214):. 214,21:..|
000009F0: 12 12 CC 0B 99 22 D0 52  45 53 53 20 5B D2 C5 D4  |.....".RESS [...|
00000A00: D5 D2 CE 5D 20 54 4F 20  43 4F 4E 54 49 4E 55 45  |...] TO CONTINUE|
00000A10: 2E 22 00 1E 12 D6 0B 92  20 31 39 37 2C 31 00 3E  |."...... 197,1.>|
00000A20: 12 E0 0B 8D 20 33 34 30  30 3A 8F 20 2D 20 43 4C  |.... 3400:. - CL|
00000A30: 45 41 52 20 4D 45 53 53  2E 20 41 52 45 41 00 4E  |EAR MESS. AREA.N|
00000A40: 12 EA 0B 97 20 32 31 34  2C 41 AB 31 3A 99 00 54  |.... 214,A.1:..T|
00000A50: 12 F4 0B 8E 00 5A 12 FE  0B 8F 00 7E 12 08 0C 8F  |.....Z.....~....|
00000A60: 20 2A 20 57 52 49 54 45  20 4C 4F 41 44 2F 57 52  | * WRITE LOAD/WR|
00000A70: 49 54 45 20 4D 45 53 53  41 47 45 20 20 2A 00 84  |ITE MESSAGE  *..|
00000A80: 12 12 0C 8F 00 98 12 1C  0C 53 24 B2 22 CC 4F 41  |.........S$.".OA|
00000A90: 44 49 4E 47 2E 2E 2E 22  00 B5 12 26 0C 8B 20 53  |DING..."...&.. S|
00000AA0: B3 B1 30 20 A7 20 53 24  B2 22 D7 52 49 54 49 4E  |..0 . S$.".RITIN|
00000AB0: 47 2E 2E 2E 22 00 C3 12  30 0C 99 22 11 22 53 24  |G..."...0.."."S$|
00000AC0: 3B 4E 24 00 C9 12 3A 0C  8E 00 CF 12 62 0C 8F 00  |;N$...:.....b...|
00000AD0: F3 12 6C 0C 8F 20 2A 20  4F 50 45 4E 20 46 49 4C  |..l.. * OPEN FIL|
00000AE0: 45 20 46 4F 52 20 57 52  49 54 45 20 20 20 20 20  |E FOR WRITE     |
00000AF0: 20 20 2A 00 F9 12 76 0C  8F 00 19 13 80 0C 9F 20  |  *...v........ |
00000B00: 31 2C 38 2C 33 2C 4E 24  AA 22 2C 50 2C 57 22 3A  |1,8,3,N$.",P,W":|
00000B10: 9F 20 31 35 2C 38 2C 31  35 00 1F 13 8A 0C 8E 00  |. 15,8,15.......|
00000B20: 25 13 C6 0C 8F 00 49 13  D0 0C 8F 20 2A 20 57 52  |%.....I.... * WR|
00000B30: 49 54 45 20 46 49 4C 45  20 54 4F 20 44 49 53 4B  |ITE FILE TO DISK|
00000B40: 20 20 20 20 20 20 20 20  2A 00 4F 13 DA 0C 8F 00  |        *.O.....|
00000B50: 76 13 E4 0C 98 31 2C C7  28 A5 20 4C 4F 57 28 4C  |v....1,.(. LOW(L|
00000B60: 41 44 52 29 29 3B C7 28  A5 20 48 49 47 48 28 4C  |ADR));.(. HIGH(L|
00000B70: 41 44 52 29 29 3B 00 86  13 EE 0C 81 20 49 B2 53  |ADR));...... I.S|
00000B80: 56 20 A4 20 45 56 00 9E  13 F8 0C 3A 20 20 20 98  |V . EV.....:   .|
00000B90: 31 2C C7 28 C2 28 49 AA  41 44 52 29 29 3B 00 A6  |1,.(.(I.ADR));..|
00000BA0: 13 02 0D 82 20 49 00 B1  13 0C 0D 98 31 3A A0 20  |.... I......1:. |
00000BB0: 31 00 B7 13 2A 0D 8F 00  DB 13 34 0D 8F 20 2A 20  |1...*.....4.. * |
00000BC0: 43 4C 45 41 52 20 4D 45  53 53 41 47 45 20 41 52  |CLEAR MESSAGE AR|
00000BD0: 45 41 20 20 20 20 20 20  20 20 2A 00 E1 13 3E 0D  |EA        *...>.|
00000BE0: 8F 00 F1 13 48 0D 81 20  49 B2 32 32 20 A4 20 32  |....H.. I.22 . 2|
00000BF0: 34 00 09 14 52 0D 3A 20  20 20 97 20 37 38 31 2C  |4...R.:   . 781,|
00000C00: 49 3A 9E 20 35 39 39 30  33 00 11 14 5C 0D 82 20  |I:. 59903...\.. |
00000C10: 49 00 17 14 66 0D 8E 00  1D 14 6A 13 8F 00 41 14  |I...f.....j...A.|
00000C20: 74 13 8F 20 2A 20 45 52  52 4F 52 20 48 41 4E 44  |t.. * ERROR HAND|
00000C30: 4C 45 52 20 46 4F 52 20  44 49 53 4B 20 20 20 20  |LER FOR DISK    |
00000C40: 2A 00 47 14 7E 13 8F 00  5F 14 88 13 84 31 35 2C  |*.G.~..._....15,|
00000C50: 45 4E 24 2C 45 52 24 2C  45 54 24 2C 45 53 24 00  |EN$,ER$,ET$,ES$.|
00000C60: 72 14 A6 13 8B 20 45 4E  24 B2 22 30 30 22 20 A7  |r.... EN$."00" .|
00000C70: 20 8E 00 92 14 B0 13 8D  20 33 34 30 30 3A 8F 20  | ....... 3400:. |
00000C80: 2D 20 43 4C 45 41 52 20  4D 45 53 53 2E 20 41 52  |- CLEAR MESS. AR|
00000C90: 45 41 00 A1 14 BA 13 97  20 32 31 34 2C 32 30 3A  |EA...... 214,20:|
00000CA0: 99 00 CD 14 C4 13 99 20  22 C4 49 53 4B 20 45 52  |....... ".ISK ER|
00000CB0: 52 4F 52 3A 22 45 4E 24  3B 22 20 22 45 52 24 3B  |ROR:"EN$;" "ER$;|
00000CC0: 22 20 22 45 54 24 3B 22  20 22 45 53 24 00 F1 14  |" "ET$;" "ES$...|
00000CD0: CE 13 99 22 11 D0 52 45  53 53 20 5B D2 C5 D4 D5  |..."..RESS [....|
00000CE0: D2 CE 5D 20 54 4F 20 52  45 2D 53 54 41 52 54 2E  |..] TO RE-START.|
00000CF0: 22 00 FE 14 D8 13 A0 20  31 3A A0 20 31 35 00 0A  |"...... 1:. 15..|
00000D00: 15 E2 13 92 20 31 39 37  2C 31 00 12 15 EC 13 9C  |.... 197,1......|
00000D10: 3A 8A 00 00 00 53 00 81  00 00 00 00 FF F9 FF F9  |:....S..........|
00000D20: FF F9 FF F1 FF F9 FF F9  FF F9 FF F1 00 0E 00 06  |................|
00000D30: 00                                                |.               |

..&.D.. ******************************.K
.N.. * KOALA FILE SPLIT.          *.P.X.
. *                            *...... *
 BY PATRIC HEDLIN. (C) 1986 *...... ****
**************************...... *      
   VARIABLER.         *... .. **********
********************...... SV   - START 
VARDE.5.... EV   - SLUT VARDE.M.... I   
 - LOOP INDEX.`.H.. S    - SLASK.}.... A
DR  - ADRESS FOR DATA...... LADR - LADDN
INGS ADRESS...,.. N$   - LAGRAR FIL NAMN
.K.6.. A$   - SLASK...@.. ER$  - FELMEDD
ELANDE...J.. EN$  - ERROR NUMMER...T.. E
T$  - ERROR TRACK.3.^.. ES$  - ERROR SEC
TOR.W.R.. L$   - LAGRAR DEL AV FIL NAMN.
|.... ******************************....
.. *        DEFINIERING.        *.F.... 
******************************.L........
.. . HIGH(X)..(X.256)...B.. .  LOW(X).X.
256.. HIGH(X).*.... ********************
**********.O.... *        INITINERING.  
      *.T.... **************************
****.Z.......... L$.".PIC ? "...&.....X.
. ******************************...B.. *
       HUVUD PROGRAM.       *...L.. ****
**************************...V.....{.. S
.0 . 800.0.... 53280,6:. 53281,6.I.... G
(14)"..KOALA FILE SPLIT.       BY PATRIC
 HEDLIN."......".NAME OF FILE TO BE SPLI
T";...... 198,0:. N$:A$.N$...... C(N$).9
 . .".NO MORE THAN NINE CHARACTERS.":. 3
000:......N$.H(A$."         ",8).......#
.... *       BORJA ARBETA.        *.).F.
..F.P.."..INSERT SOURCE DISK.".B.Z.. 300
0:. - WAIT FOR KEY...... 3100:. - LOADIN
G MESSAGE.....S.1...... L$.N$,8,1.......
C....  DELA FIL OCH SKRIV TILL DISK.I...
.... .."..INSERT DESTINATION DISK."...*.
. 3000:. - WAIT FOR KEY...4.N$."G/".A$./
.>.. 3200:. - OPEN FILE.M.C.. 5000:. - C
HECK ON ERROR.J.E.. 3100:. - WRITE MESSA
GE...H.SV.0:EV.7999:ADR.24576:LADR.24576
...R.. 3300:. - WRITE FILE.H.W.. 5000:. 
- CHECK ON ERROR.Q.Y.  15.W.\.....F.. * 
SKRIV FIL NUMMER TV]       *...P.....Z.N
$."F1/".A$.+.... 3200:. - OPEN FILE.I...
. 5000:. - CHECK ON ERROR.F.... 3100:. -
 WRITE MESSAGE.....SV.0:EV.999:ADR.32576
:LADR.16384...... 3300:. - WRITE FILE.C.
... 5000:. - CHECK ON ERROR.L...  15.R..
........ * SKRIV FIL NUMMER TRE       *.
..........N$."F2/".A$.&.J.. 3200:. - OPE
N FILE.D.O.. 5000:. - CHECK ON ERROR.A.Q
.. 3100:. - WRITE MESSAGE...T.SV.0:EV.99
9:ADR.33576:LADR.55296. .... 3300:. - WR
ITE FILE...... 5000:. - CHECK ON ERROR.G
...  15.M.......... * AVSLUTA           
        *............ 3400:. - CLEAR MES
S. AREA.&.... 214,21:..P...."DO YOU WANT
 TO SPLIT ANOTHER FILE";.A.$.. 198,0:. A
$.Y.... H(A$,1)."Y" . .:....8.. 2,0:. 2.
........... * WAIT FOR KEY TO BE PUSHED 
*.......W.... 3400:. - CLEAR MESS. AREA.
..B.A.B(214):. 214,21:....L.."PRESS [RET
URN] TO CONTINUE."...V.. 197,1.>.... 340
0:. - CLEAR MESS. AREA.N.... 214,A.1:..T
.....Z.....~.... * WRITE LOAD/WRITE MESS
AGE  *...........S$."LOADING..."...&.. S
..0 . S$."WRITING...".C.0.."."S$;N$.I.:.
..O.B.....L.. * OPEN FILE FOR WRITE     
  *...V........ 1,8,3,N$.",P,W":. 15,8,1
5.......%.F...I.P.. * WRITE FILE TO DISK
        *.O.Z...V....1,G(. LOW(LADR));G(
. HIGH(LADR));...... I.SV . EV.....:   .
1,G(B(I.ADR));...... I......1:  1...*...
..4.. * CLEAR MESSAGE AREA        *...>.
....H.. I.22 . 24...R.:   . 781,I:. 5990
3...\.. I...F.....J...A.T.. * ERROR HAND
LER FOR DISK    *.G.~..._....15,EN$,ER$,
ET$,ES$.R.... EN$."00" . ....... 3400:. 
- CLEAR MESS. AREA...... 214,20:..M.D.. 
"DISK ERROR:"EN$;" "ER$;" "ET$;" "ES$...
N..".PRESS [RETURN] TO RE-START."...X.  
1:  15...... 197,1......:....S..........
.................

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL