00000000: 8A 04 1B 05 1E 06 00 0A 24 00 28 43 29 20 31 39 |........$.(C) 19|
00000010: 38 33 20 43 4F 4D 41 4C 20 55 53 45 52 53 20 47 |83 COMAL USERS G|
00000020: 52 4F 55 50 20 28 55 53 41 29 00 14 09 07 01 02 |ROUP (USA)......|
00000030: 00 90 3A 00 1E 24 8C 8F 02 00 02 00 10 93 8F 03 |..:..$..........|
00000040: 00 02 00 04 93 94 8F 04 00 02 00 10 93 94 8F 05 |................|
00000050: 00 02 00 02 93 94 C5 00 28 1A 8C 8E 06 01 02 00 |........(.......|
00000060: 01 90 04 01 92 8E 07 01 02 00 01 90 04 01 92 94 |................|
00000070: C5 00 32 23 8C 8F 08 01 02 00 80 90 02 00 84 92 |..2#............|
00000080: 02 00 03 93 8F 09 01 02 00 01 90 04 01 92 02 00 |................|
00000090: 10 93 94 C5 00 3C 0F 0C 08 02 00 80 19 03 03 2A |.....<.........*|
000000A0: 2A 2A 3C 00 46 36 0C 08 02 00 81 19 03 03 53 45 |**<.F6........SE|
000000B0: 51 3C 0C 08 02 00 82 19 03 03 50 52 47 3C 42 0C |Q<........PRG<B.|
000000C0: 08 02 00 83 19 03 03 55 53 52 3C 42 0C 08 02 00 |.......USR<B....|
000000D0: 84 19 03 03 52 45 4C 3C 42 00 50 06 7F 0A 81 00 |....REL<B.P.....|
000000E0: 5A 09 07 0B 02 00 00 3A 00 64 2D B5 03 22 C9 4E |Z......:.d-..".N|
000000F0: 53 45 52 54 20 44 49 53 4B 20 54 4F 20 43 41 54 |SERT DISK TO CAT|
00000100: 41 4C 4F 47 20 49 4E 20 44 52 49 56 45 20 30 3A |ALOG IN DRIVE 0:|
00000110: B7 09 05 BA BB 00 6E 06 7F 0C 81 00 78 05 CF D1 |......n.....x...|
00000120: 00 82 04 00 00 8C 09 70 0C 00 00 00 7B 00 96 08 |.......p....{...|
00000130: 03 02 49 30 7E 00 A0 09 07 0D 02 00 02 3A 00 AA |..I0~........:..|
00000140: 0D DB 04 0D DC 03 02 24 30 DD DE 00 B4 07 07 0E |.......$0.......|
00000150: 44 3A 00 BE 0F 7F 0F 02 00 8E 0D 07 0D 10 07 0E |D:..............|
00000160: 16 00 C8 12 7F 10 09 02 12 02 00 10 0D 07 0D 10 |................|
00000170: 07 0E 16 00 D2 0F 7F 0F 02 00 02 0D 07 0D 10 07 |................|
00000180: 0E 16 00 DC 12 7F 10 09 03 12 02 00 02 0D 07 0D |................|
00000190: 10 07 0E 16 00 E6 1D 5F 03 05 C4 49 53 4B 3A 65 |......._...ISK:e|
000001A0: 67 06 02 65 67 03 03 C9 C4 3A 65 67 06 03 65 60 |g..eg....:eg..e`|
000001B0: 61 00 F0 0F 7F 0F 02 00 5C 0D 07 0D 10 07 0E 16 |a.......\.......|
000001C0: 00 FA 09 07 11 02 00 00 3A 01 04 09 07 12 02 02 |........:.......|
000001D0: 98 3A 01 0E 04 95 01 18 0E 07 13 0A 14 07 0D 10 |.:..............|
000001E0: 07 0E 16 3A 01 22 0F 7F 0F 02 00 02 0D 07 0D 10 |...:."..........|
000001F0: 07 0E 16 01 2C 12 7F 10 09 04 12 02 00 10 0D 07 |....,...........|
00000200: 0D 10 07 0E 16 01 36 0F 7F 0F 02 00 09 0D 07 0D |......6.........|
00000210: 10 07 0E 16 01 40 1B 07 15 0A 14 07 0D 10 07 0E |.....@..........|
00000220: 16 02 01 00 0A 14 07 0D 10 07 0E 16 24 27 3A 01 |............$':.|
00000230: 4A 18 68 04 13 02 00 81 2A 04 13 02 00 84 30 39 |J.h.....*.....09|
00000240: 6A 07 13 02 00 80 3A 01 54 14 5F 06 04 65 67 0C |j.....:.T._..eg.|
00000250: 08 07 13 16 65 67 04 15 64 60 61 01 5E 0C 68 04 |....eg..d`a.^.h.|
00000260: 0B 04 01 34 69 00 00 01 68 17 5F 03 0E 54 4F 4F |...4i...h._..TOO|
00000270: 20 4D 41 4E 59 20 46 49 4C 45 53 65 60 61 01 72 | MANY FILESe`a.r|
00000280: 0F 6D 00 00 04 13 02 00 80 32 69 00 00 01 7C 09 |.m.......2i...|.|
00000290: 07 0B 02 00 01 3D 01 86 08 07 12 04 15 40 01 90 |.....=.......@..|
000002A0: 0B 0C 09 07 0B 1C 06 04 3C 01 9A 0B 0B 07 07 0B |........<.......|
000002B0: 1C 04 15 3B 01 A4 0B 0B 06 07 0B 1C 04 13 3B 01 |...;..........;.|
000002C0: AE 04 6F 01 B8 07 07 16 43 3A 01 C2 09 07 11 02 |..o.....C:......|
000002D0: 00 01 3D 01 CC 0D 68 04 11 02 00 08 2C 69 00 00 |..=...h.....,i..|
000002E0: 01 D6 09 07 11 02 00 00 3A 01 E0 07 07 16 44 3A |........:.....D:|
000002F0: 01 EA 04 6F 01 F4 13 68 04 16 6A 7F 0F 02 00 02 |...o...h..j.....|
00000300: 0D 07 0D 10 07 0E 16 01 FE 09 DA 04 0E 96 00 00 |................|
00000310: 02 08 05 CF D1 02 12 19 5F 03 0C 42 4C 4F 43 4B |........_..BLOCK|
00000320: 53 20 46 52 45 45 3A 65 67 04 12 64 60 61 02 1C |S FREE:eg..d`a..|
00000330: 05 7D 0C 02 26 04 00 02 30 1D 00 20 44 49 53 4B |.}..&...0.. DISK|
00000340: 27 47 45 54 20 52 4F 55 54 49 4E 45 53 20 46 4F |'GET ROUTINES FO|
00000350: 4C 4C 4F 57 02 3A 04 00 02 44 0D E9 14 00 00 02 |LLOW.:...D......|
00000360: 72 17 75 0E 7C 02 4E 0B E4 02 07 EA E5 04 17 E6 |r.u.|.N.........|
00000370: 02 58 08 E7 02 07 E9 E8 02 62 0A 07 0E 02 00 90 |.X.......b......|
00000380: D8 3A 02 6C 1C EF 02 07 E8 D8 F2 00 56 41 4C 55 |.:.l........VALU|
00000390: 45 20 4F 46 20 43 48 41 52 41 43 54 45 52 02 76 |E OF CHARACTER.v|
000003A0: 05 EC 14 02 80 04 00 02 8A 09 70 0A 00 00 00 7C |..........p....||
000003B0: 02 94 10 83 18 00 00 02 07 E8 84 02 07 F7 85 87 |................|
000003C0: 02 9E 08 AF 07 19 B0 B3 02 A8 0A E4 05 18 E5 04 |................|
000003D0: 19 E6 02 B2 07 8B 18 00 00 02 BC 1F AA AD 00 00 |................|
000003E0: AD 00 A2 AD 00 00 AD 00 20 AD 00 C6 AD 00 FF AD |........ .......|
000003F0: 00 20 AD 00 CF AB 00 00 02 C6 1F AA AD 00 FF AD |. ..............|
00000400: 00 8D AD 00 E8 AD 00 07 AD 00 20 AD 00 CC AD 00 |.......... .....|
00000410: FF AD 00 60 AB 00 00 02 D0 05 7D 0A 02 DA 04 00 |...`......}.....|
00000420: 02 E4 0F 70 0F 00 00 03 72 1A 72 17 75 0E 7C 02 |...p....r.r.u.|.|
00000430: EE 1B 83 1B 0F 00 02 00 01 84 04 1A 85 88 07 1C |................|
00000440: 0A 14 07 17 10 07 0E 16 3A 89 02 F8 05 7D 0F 03 |........:....}..|
00000450: 02 04 00 03 0C 11 70 10 00 00 04 77 1D 72 1A 72 |......p....w.r.r|
00000460: 17 75 0E 7C 03 16 08 09 1D 03 00 3C 03 20 1F 83 |.u.|.......<. ..|
00000470: 1B 0F 00 02 00 01 84 04 1A 85 88 0C 1D 08 1B 1D |................|
00000480: 0A 14 07 17 10 07 0E 16 4B 3C 89 03 2A 05 7D 10 |........K<..*.}.|
00000490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000520: 00 09 4D 41 58 27 46 49 4C 45 53 09 44 49 53 4B |..MAX'FILES.DISK|
00000530: 27 4E 41 4D 45 07 44 49 53 4B 27 49 44 09 46 49 |'NAME.DISK'ID.FI|
00000540: 4C 45 27 4E 41 4D 45 04 54 45 58 54 0A 46 49 4C |LE'NAME.TEXT.FIL|
00000550: 45 27 54 59 50 45 53 0B 46 49 4C 45 27 42 4C 4F |E'TYPES.FILE'BLO|
00000560: 43 4B 53 04 54 59 50 45 0A 46 49 4C 45 27 4E 41 |CKS.TYPE.FILE'NA|
00000570: 4D 45 53 0D 44 49 53 4B 27 47 45 54 27 49 4E 49 |MES.DISK'GET'INI|
00000580: 54 0A 46 49 4C 45 27 43 4F 55 4E 54 08 52 45 41 |T.FILE'COUNT.REA|
00000590: 44 27 44 49 52 0B 4D 41 53 54 45 52 27 46 49 4C |D'DIR.MASTER'FIL|
000005A0: 45 08 46 49 4C 45 27 45 4E 44 0D 44 49 53 4B 27 |E.FILE'END.DISK'|
000005B0: 47 45 54 27 53 4B 49 50 0F 44 49 53 4B 27 47 45 |GET'SKIP.DISK'GE|
000005C0: 54 27 53 54 52 49 4E 47 0B 42 4C 4F 43 4B 27 43 |T'STRING.BLOCK'C|
000005D0: 4F 55 4E 54 0B 42 4C 4F 43 4B 53 27 46 52 45 45 |OUNT.BLOCKS'FREE|
000005E0: 09 54 48 49 53 27 54 59 50 45 08 44 49 53 4B 27 |.THIS'TYPE.DISK'|
000005F0: 47 45 54 06 42 4C 4F 43 4B 53 0A 42 4C 4F 43 4B |GET.BLOCKS.BLOCK|
00000600: 27 46 4C 41 47 08 46 49 4C 45 27 4E 55 4D 03 4C |'FLAG.FILE'NUM.L|
00000610: 4F 43 01 56 05 43 4F 55 4E 54 01 58 01 59 04 49 |OC.V.COUNT.X.Y.I|
00000620: 54 45 4D 00 00 27 19 83 |TEM..'.. |
........$.(C) 1983 COMAL USERS GROUP (US
A)........:..$..........................
......E.(.......................E.2#....
...........................E.<.........*
**<.F6........SEQ<........PRG<B........U
SR<B........REL<B.P....Z......:.D-.."IN
SERT DISK TO CATALOG IN DRIVE 0:......N.
...X.OQ.......P....{.....I0~. ......:..
.......$0.......D:...............H....
............R.........................
......._..DISK:EG..EG..ID:EG..E`A......
\...............:........:..............
...:.".............,................6.
............@......................$':.
J.H.....*.....09J.....:.T._..EG.....EG..
D`A.^.H....4I...H._..TOO MANY FILESE`A.R
.M.......2I...|......=.......@..........
<..........;..........;...O.....C:.B....
..=.L.H.....,I...V......:.....D:...O...H
..J..............Z........OQ..._..BLOCK
S FREE:EG..D`A...}..&...0.. DISK'GET ROU
TINES FOLLOW.:...D......R.U.|.N.........
.X.......B......X:.L.....X..VALUE OF CHA
RACTER.V..........P....|................
........................................
..F..... ..O....F................ ..L..
...`....P.}..Z.....P....R.R.U.|.........
................:....}........P....W.R.R
.U.|.......<. ..........................
K<..*.}.................................
........................................
........................................
..................................MAX'FI
LES.DISK'NAME.DISK'ID.FILE'NAME.TEXT.FIL
E'TYPES.FILE'BLOCKS.TYPE.FILE'NAMES.DISK
'GET'INIT.FILE'COUNT.READ'DIR.MASTER'FIL
E.FILE'END.DISK'GET'SKIP.DISK'GET'STRING
.BLOCK'COUNT.BLOCKS'FREE.THIS'TYPE.DISK'
GET.BLOCKS.BLOCK'FLAG.FILE'NUM.LOC.V.COU
NT.X.Y.ITEM..'..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL