home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | b0 0a 00 00 c4 0b 00 00 |Archive.|........|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 41 64 61 00 4d 65 | 00 00 00 00 ff ff ff ff |.!Ada.Me|........|
|00000070| 46 ff ff ff 0d f5 0c 4d | 03 00 00 00 ff ff ff ff |F......M|........|
|00000080| f0 03 00 80 82 21 42 6f | 6f 74 00 00 00 00 00 00 |.....!Bo|ot......|
|00000090| 1b 01 00 00 45 eb ff ff | 2e d9 ea 8b 03 00 a9 49 |....E...|.......I|
|000000a0| 1b 01 00 00 1c 04 00 00 | 82 21 68 65 6c 70 00 00 |........|.!help..|
|000000b0| 00 00 00 00 c0 05 00 00 | 45 ff ff ff cc dc ea 8b |........|E.......|
|000000c0| 03 00 2a 6d c0 05 00 00 | 5b 05 00 00 82 21 52 75 |..*m....|[....!Ru|
|000000d0| 6e 00 00 00 00 00 00 00 | 60 04 00 00 45 eb ff ff |n.......|`...E...|
|000000e0| 48 e7 ea 8b 03 00 0d 9d | 60 04 00 00 3f 0b 00 00 |H.......|`...?...|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 00 00 e4 03 00 00 |.!Sprite|s.......|
|00000100| 45 f9 ff ff db e4 ea 8b | 03 00 fb 34 e4 03 00 00 |E.......|...4....|
|00000110| c3 0f 00 00 82 61 64 61 | 00 00 00 00 00 00 00 00 |.....ada|........|
|00000120| ff ff ff ff 45 dc fd ff | e6 8a 94 a5 33 00 00 00 |....E...|....3...|
|00000130| ff ff ff ff 20 01 00 80 | 82 70 72 65 64 65 66 00 |.... ...|.predef.|
|00000140| 00 00 00 00 36 62 00 00 | 45 ff ff ff 60 c4 ef 8b |....6b..|E...`...|
|00000150| 03 00 67 ec 36 62 00 00 | cb 13 00 00 00 21 52 65 |..g.6b..|.....!Re|
|00000160| 61 64 4d 65 00 00 00 00 | d4 03 00 00 45 ff ff ff |adMe....|....E...|
|00000170| f8 a9 65 85 03 00 bd 2a | d4 03 00 00 24 00 00 00 |..e....*|....$...|
|00000180| 82 62 69 6e 00 00 00 00 | 00 00 00 00 ff ff ff ff |.bin....|........|
|00000190| 45 dc fd ff 55 8b 94 a5 | 33 00 00 00 ff ff ff ff |E...U...|3.......|
|000001a0| f8 01 00 80 82 61 64 61 | 62 69 6e 64 00 00 00 00 |.....ada|bind....|
|000001b0| ff 58 01 00 45 f8 ff ff | a7 64 26 a5 03 00 27 a5 |.X..E...|.d&...'.|
|000001c0| ff 58 01 00 25 76 00 00 | 82 61 64 61 63 6f 6d 70 |.X..%v..|.adacomp|
|000001d0| 00 00 00 00 ef 2e 00 00 | 45 f8 ff ff 4d 44 1c a5 |........|E...MD..|
|000001e0| 03 00 61 5d ef 2e 00 00 | 48 cf 01 00 82 61 64 61 |..a]....|H....ada|
|000001f0| 65 78 65 63 00 00 00 00 | ff 0d 01 00 45 f8 ff ff |exec....|....E...|
|00000200| 3c 82 8b a5 03 00 ac 5b | ff 0d 01 00 5b fe 01 00 |<......[|....[...|
|00000210| 82 61 64 61 6c 69 62 00 | 00 00 00 00 9f 23 00 00 |.adalib.|.....#..|
|00000220| 45 f8 ff ff 75 b8 1c a5 | 03 00 51 ae 9f 23 00 00 |E...u...|..Q..#..|
|00000230| 7e 0c 03 00 00 21 52 65 | 61 64 4d 65 00 00 00 00 |~....!Re|adMe....|
|00000240| d4 03 00 00 45 ff ff ff | f8 a9 65 85 03 00 bd 2a |....E...|..e....*|
|00000250| d4 03 00 00 24 00 00 00 | 82 44 65 73 63 00 00 00 |....$...|.Desc...|
|00000260| 00 00 00 00 ef 06 00 00 | 45 ff ff ff b8 df ea 8b |........|E.......|
|00000270| 03 00 7d 84 ef 06 00 00 | 41 30 03 00 82 6c 69 62 |..}.....|A0...lib|
|00000280| 00 00 00 00 00 00 00 00 | ff ff ff ff 45 dc fd ff |........|....E...|
|00000290| b6 92 94 a5 33 00 00 00 | ff ff ff ff 84 03 00 80 |....3...|........|
|000002a0| 82 61 64 61 66 72 6f 6e | 74 00 00 00 ef c4 03 00 |.adafron|t.......|
|000002b0| 45 f8 ff ff 18 8c 8b a5 | 03 00 ea 5c ef c4 03 00 |E.......|...\....|
|000002c0| 54 37 03 00 82 61 64 61 | 67 65 6e 00 00 00 00 00 |T7...ada|gen.....|
|000002d0| df 16 02 00 45 f8 ff ff | ea 87 1b a5 03 00 dd 3e |....E...|.......>|
|000002e0| df 16 02 00 67 fc 06 00 | 82 61 64 61 69 6e 74 00 |....g...|.adaint.|
|000002f0| 00 00 00 00 60 7a 02 00 | 45 fd ff ff 0a 7d 8b a5 |....`z..|E....}..|
|00000300| 03 00 fa ed 60 7a 02 00 | 6a 13 09 00 82 70 72 65 |....`z..|j....pre|
|00000310| 64 65 66 00 00 00 00 00 | ff ff ff ff 45 dc fd ff |def.....|....E...|
|00000320| 4f a1 94 a5 33 00 00 00 | ff ff ff ff 60 03 00 80 |O...3...|....`...|
|00000330| 82 61 78 71 00 00 00 00 | 00 00 00 00 8c 93 01 00 |.axq....|........|
|00000340| 45 ff ff ff 5f 0d 8c a5 | 03 00 1a 03 8c 93 01 00 |E..._...|........|
|00000350| ee 8d 0b 00 82 6c 69 62 | 00 00 00 00 00 00 00 00 |.....lib|........|
|00000360| 51 07 00 00 45 ff ff ff | 62 0d 8c a5 03 00 9c 0d |Q...E...|b.......|
|00000370| 51 07 00 00 9e 21 0d 00 | 82 74 72 63 00 00 00 00 |Q....!..|.trc....|
|00000380| 00 00 00 00 33 62 00 00 | 45 ff ff ff 83 0d 8c a5 |....3b..|E.......|
|00000390| 03 00 f8 fe 33 62 00 00 | 13 29 0d 00 00 00 00 00 |....3b..|.)......|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 21 52 65 61 64 4d 65 | 00 00 00 00 d4 03 00 00 |.!ReadMe|........|
|000003d0| 45 ff ff ff f8 a9 65 85 | 03 00 bd 2a d4 03 00 00 |E.....e.|...*....|
|000003e0| 24 00 00 00 82 4d 65 73 | 73 61 67 65 73 00 00 00 |$....Mes|sages...|
|000003f0| 2b 0c 00 00 45 ff ff ff | 6d eb ea 8b 03 00 76 74 |+...E...|m.....vt|
|00000400| 2b 0c 00 00 6a 8b 0d 00 | 82 54 65 6d 70 6c 61 74 |+...j...|.Templat|
|00000410| 65 73 00 00 93 0b 00 00 | 45 ec ff ff a2 e2 ea 8b |es......|E.......|
|00000420| 13 00 4a 25 93 0b 00 00 | b9 97 0d 00 00 00 00 00 |..J%....|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 82 21 41 64 61 42 69 6e | 64 00 00 00 ff ff ff ff |.!AdaBin|d.......|
|00000460| 45 dc fd ff e3 a5 94 a5 | 33 00 00 00 ff ff ff ff |E.......|3.......|
|00000470| 10 05 00 80 82 21 68 65 | 6c 70 00 00 00 00 00 00 |.....!he|lp......|
|00000480| b1 02 00 00 45 ff ff ff | 61 06 06 8c 03 00 55 91 |....E...|a.....U.|
|00000490| b1 02 00 00 70 a3 0d 00 | 82 21 52 75 6e 00 00 00 |....p...|.!Run...|
|000004a0| 00 00 00 00 85 03 00 00 | 45 eb ff ff 63 06 06 8c |........|E...c...|
|000004b0| 03 00 90 88 85 03 00 00 | 45 a6 0d 00 82 21 53 70 |........|E....!Sp|
|000004c0| 72 69 74 65 73 00 00 00 | e4 03 00 00 45 f9 ff ff |rites...|....E...|
|000004d0| 65 06 06 8c 03 00 d9 ec | e4 03 00 00 ee a9 0d 00 |e.......|........|
|000004e0| 82 44 65 73 63 00 00 00 | 00 00 00 00 c1 03 00 00 |.Desc...|........|
|000004f0| 45 ff ff ff 66 06 06 8c | 03 00 52 98 c1 03 00 00 |E...f...|..R.....|
|00000500| f6 ad 0d 00 82 4d 65 73 | 73 61 67 65 73 00 00 00 |.....Mes|sages...|
|00000510| 22 0b 00 00 45 ff ff ff | 68 06 06 8c 03 00 1a f4 |"...E...|h.......|
|00000520| 22 0b 00 00 db b1 0d 00 | 82 54 65 6d 70 6c 61 74 |".......|.Templat|
|00000530| 65 73 00 00 d5 08 00 00 | 45 ec ff ff a1 06 06 8c |es......|E.......|
|00000540| 13 00 ed b0 d5 08 00 00 | 21 bd 0d 00 00 00 00 00 |........|!.......|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 82 21 41 64 61 4c 69 62 | 00 00 00 00 ff ff ff ff |.!AdaLib|........|
|00000580| 45 dc fd ff ce a8 94 a5 | 33 00 00 00 ff ff ff ff |E.......|3.......|
|00000590| 30 06 00 80 82 21 68 65 | 6c 70 00 00 00 00 00 00 |0....!he|lp......|
|000005a0| 51 01 00 00 45 ff ff ff | 43 ba 01 8c 03 00 04 5a |Q...E...|C......Z|
|000005b0| 51 01 00 00 1a c6 0d 00 | 82 21 52 75 6e 00 00 00 |Q.......|.!Run...|
|000005c0| 00 00 00 00 7d 03 00 00 | 45 eb ff ff 44 ba 01 8c |....}...|E...D...|
|000005d0| 03 00 59 f0 7d 03 00 00 | 8f c7 0d 00 82 21 53 70 |..Y.}...|.....!Sp|
|000005e0| 72 69 74 65 73 00 00 00 | e4 03 00 00 45 f9 ff ff |rites...|....E...|
|000005f0| 46 ba 01 8c 03 00 43 5e | e4 03 00 00 30 cb 0d 00 |F.....C^|....0...|
|00000600| 82 44 65 73 63 00 00 00 | 00 00 00 00 b6 02 00 00 |.Desc...|........|
|00000610| 45 ff ff ff 48 ba 01 8c | 03 00 35 24 b6 02 00 00 |E...H...|..5$....|
|00000620| 38 cf 0d 00 82 4d 65 73 | 73 61 67 65 73 00 00 00 |8....Mes|sages...|
|00000630| dc 0a 00 00 45 ff ff ff | 4a ba 01 8c 03 00 b2 53 |....E...|J......S|
|00000640| dc 0a 00 00 12 d2 0d 00 | 82 54 65 6d 70 6c 61 74 |........|.Templat|
|00000650| 65 73 00 00 95 08 00 00 | 45 ec ff ff 6f ba 01 8c |es......|E...o...|
|00000660| 13 00 ad 6f 95 08 00 00 | 12 dd 0d 00 00 00 00 00 |...o....|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 82 21 52 65 61 64 4d 65 | 00 00 00 00 d4 03 00 00 |.!ReadMe|........|
|000006a0| 45 ff ff ff f8 a9 65 85 | 03 00 bd 2a d4 03 00 00 |E.....e.|...*....|
|000006b0| 24 00 00 00 82 44 6f 63 | 73 00 00 00 00 00 00 00 |$....Doc|s.......|
|000006c0| ff ff ff ff 46 ff ff ff | 33 43 b8 5a 03 00 00 00 |....F...|3C.Z....|
|000006d0| ff ff ff ff 74 07 00 80 | 82 21 52 65 61 64 4d 65 |....t...|.!ReadMe|
|000006e0| 32 00 74 6f db 1b 00 00 | 45 ff ff ff 35 69 94 a5 |2.to....|E...5i..|
|000006f0| 03 00 e9 18 db 1b 00 00 | cb e5 0d 00 82 61 64 61 |........|.....ada|
|00000700| 65 64 00 75 6c 61 74 6f | a2 40 00 00 45 ff ff ff |ed.ulato|.@..E...|
|00000710| 49 13 5b 8c 03 00 1f bf | a2 40 00 00 ca 01 0e 00 |I.[.....|.@......|
|00000720| 82 61 70 70 65 6e 64 69 | 78 5f 66 00 ed 15 00 00 |.appendi|x_f.....|
|00000730| 45 ff ff ff 50 15 5b 8c | 03 00 c9 a5 ed 15 00 00 |E...P.[.|........|
|00000740| 90 42 0e 00 82 43 6f 70 | 79 69 6e 67 00 61 74 6f |.B...Cop|ying.ato|
|00000750| 3e 46 00 00 43 ff ff ff | 78 0e 20 b6 03 00 3e dc |>F..C...|x. ...>.|
|00000760| 3e 46 00 00 a1 58 0e 00 | 82 52 45 41 44 4d 45 00 |>F...X..|.README.|
|00000770| 6c 61 74 6f 03 1a 00 00 | 44 ff ff ff 30 f4 12 26 |lato....|D...0..&|
|00000780| 13 00 04 06 03 1a 00 00 | 03 9f 0e 00 82 72 65 6c |........|.....rel|
|00000790| 65 61 73 65 00 61 74 6f | f0 0b 00 00 44 ff ff ff |ease.ato|....D...|
|000007a0| 30 f4 12 26 13 00 c8 03 | f0 0b 00 00 2a b9 0e 00 |0..&....|....*...|
|000007b0| 00 65 20 46 50 45 6d 75 | 6c 61 74 6f 72 20 30 20 |.e FPEmu|lator 0 |
|000007c0| 52 4d 4c 6f 61 64 20 53 | 79 73 74 65 6d 3a 6d 6f |RMLoad S|ystem:mo|
|000007d0| 70 6c 6c 65 82 45 78 61 | 6d 70 6c 65 73 00 00 00 |plle.Exa|mples...|
|000007e0| ff ff ff ff 46 ff ff ff | 2a 4b b8 5a 03 00 00 00 |....F...|*K.Z....|
|000007f0| ff ff ff ff 8c 0a 00 80 | 82 61 64 61 00 46 72 6f |........|.ada.Fro|
|00000800| 6e 74 65 6e ff ff ff ff | 45 dc fd ff b0 ab 94 a5 |nten....|E.......|
|00000810| 33 00 00 00 ff ff ff ff | fc 09 00 80 82 61 6c 6c |3.......|.....all|
|00000820| 6f 63 5f 74 65 73 74 00 | d7 01 00 00 45 ff ff ff |oc_test.|....E...|
|00000830| 6c 81 b5 85 03 00 eb 55 | d7 01 00 00 3e c5 0e 00 |l......U|....>...|
|00000840| 82 62 75 66 66 65 72 5f | 67 5f 70 00 c5 04 00 00 |.buffer_|g_p.....|
|00000850| 45 ff ff ff c6 a6 5b 85 | 03 00 92 f0 c5 04 00 00 |E.....[.|........|
|00000860| 39 c7 0e 00 82 64 65 61 | 6c 6c 6f 63 00 00 00 00 |9....dea|lloc....|
|00000870| 80 02 00 00 45 ff ff ff | 74 c4 5b 85 03 00 e3 41 |....E...|t.[....A|
|00000880| 80 02 00 00 22 cc 0e 00 | 82 64 65 6c 61 79 5f 74 |...."...|.delay_t|
|00000890| 65 73 74 00 28 04 00 00 | 45 ff ff ff 0f df 5b 85 |est.(...|E.....[.|
|000008a0| 03 00 94 99 28 04 00 00 | c6 ce 0e 00 82 68 65 6c |....(...|.....hel|
|000008b0| 6c 6f 00 00 00 00 00 00 | 84 00 00 00 45 ff ff ff |lo......|....E...|
|000008c0| bd eb 5b 85 03 00 bf ed | 84 00 00 00 12 d3 0e 00 |..[.....|........|
|000008d0| 82 69 6f 00 00 00 00 00 | 00 00 00 00 e4 00 00 00 |.io.....|........|
|000008e0| 45 ff ff ff b1 01 5c 85 | 03 00 e0 40 e4 00 00 00 |E.....\.|...@....|
|000008f0| ba d3 0e 00 82 72 61 6e | 64 6f 6d 00 00 00 00 00 |.....ran|dom.....|
|00000900| 50 0a 00 00 45 ff ff ff | 53 01 5b 85 03 00 83 e1 |P...E...|S.[.....|
|00000910| 50 0a 00 00 c2 d4 0e 00 | 82 72 61 6e 64 6f 6d 5f |P.......|.random_|
|00000920| 00 00 00 00 b6 01 00 00 | 45 ff ff ff 42 00 5b 85 |........|E...B.[.|
|00000930| 03 00 43 74 b6 01 00 00 | 36 df 0e 00 82 73 68 65 |..Ct....|6....she|
|00000940| 6c 6c 74 65 73 74 00 00 | 24 09 00 00 45 ff ff ff |lltest..|$...E...|
|00000950| 89 26 c0 a4 03 00 aa 0d | 24 09 00 00 10 e1 0e 00 |.&......|$.......|
|00000960| 82 53 48 45 4c 4c 5f 00 | 00 00 00 00 44 07 00 00 |.SHELL_.|....D...|
|00000970| 45 ff ff ff d9 ae 5c 85 | 03 00 a4 99 44 07 00 00 |E.....\.|....D...|
|00000980| 58 ea 0e 00 82 73 69 65 | 76 65 5f 70 75 6d 70 00 |X....sie|ve_pump.|
|00000990| 98 05 00 00 45 ff ff ff | 27 7a c1 a4 03 00 61 18 |....E...|'z....a.|
|000009a0| 98 05 00 00 c0 f1 0e 00 | 82 73 6f 72 74 5f 70 75 |........|.sort_pu|
|000009b0| 6d 70 00 00 c8 09 00 00 | 45 ff ff ff 57 65 5d 85 |mp......|E...We].|
|000009c0| 03 00 73 c6 c8 09 00 00 | 7c f7 0e 00 82 73 74 61 |..s.....||....sta|
|000009d0| 63 6b 00 00 00 00 00 00 | 74 04 00 00 45 ff ff ff |ck......|t...E...|
|000009e0| 18 88 5d 85 03 00 76 68 | 74 04 00 00 68 01 0f 00 |..]...vh|t...h...|
|000009f0| 82 73 74 61 63 6b 5f 00 | 00 00 00 00 1c 04 00 00 |.stack_.|........|
|00000a00| 45 ff ff ff ef 88 5d 85 | 03 00 3f 4f 1c 04 00 00 |E.....].|..?O....|
|00000a10| 00 06 0f 00 82 74 65 73 | 74 5f 69 6e 74 00 00 00 |.....tes|t_int...|
|00000a20| c5 02 00 00 45 ff ff ff | 91 9e 5d 85 03 00 8c 80 |....E...|..].....|
|00000a30| c5 02 00 00 40 0a 0f 00 | 00 00 00 00 00 00 00 00 |....@...|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 82 63 00 65 |........|.....c.e|
|00000a60| 20 46 72 6f 6e 74 65 6e | ff ff ff ff 45 dc fd ff | Fronten|....E...|
|00000a70| 0c ad 94 a5 33 00 00 00 | ff ff ff ff 68 0a 00 80 |....3...|....h...|
|00000a80| 82 70 72 6f 63 00 00 00 | 00 00 00 00 51 01 00 00 |.proc...|....Q...|
|00000a90| 45 ff ff ff b8 bf 8d 6a | 03 00 cc c2 51 01 00 00 |E......j|....Q...|
|00000aa0| 29 0d 0f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |).......|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 75 72 65 20 46 72 6f |........|.ure Fro|
|00000ad0| 6e 74 65 6e 64 20 31 2e | 31 33 20 45 72 72 6f 72 |ntend 1.|13 Error|
|00000ae0| 20 59 6f 75 20 6e 65 65 | 70 17 76 65 00 00 00 00 | You nee|p.ve....|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b10| 3d 3d 3d 3d 3d 3d 3d 0a | 0a 54 68 65 20 70 72 6f |=======.|.The pro|
|00000b20| 67 72 61 6d 73 20 61 64 | 61 63 6f 6d 70 2c 20 61 |grams ad|acomp, a|
|00000b30| 64 61 62 69 6e 64 2c 20 | 61 64 61 65 78 65 63 2c |dabind, |adaexec,|
|00000b40| 20 61 64 61 6c 69 62 2c | 20 61 64 61 67 65 6e 2c | adalib,| adagen,|
|00000b50| 20 61 64 61 70 72 73 2c | 20 61 64 61 73 65 6d 20 | adaprs,| adasem |
|00000b60| 61 6e 64 0a 74 68 65 20 | 61 64 61 69 6e 74 20 70 |and.the |adaint p|
|00000b70| 61 72 74 69 61 6c 6c 79 | 20 6c 69 6e 6b 65 64 20 |artially| linked |
|00000b80| 6c 69 62 72 61 72 79 20 | 61 72 65 20 63 6f 76 65 |library |are cove|
|00000b90| 72 65 64 20 62 79 20 74 | 68 65 20 47 4e 55 20 47 |red by t|he GNU G|
|00000ba0| 65 6e 65 72 61 6c 20 50 | 75 62 6c 69 63 0a 4c 69 |eneral P|ublic.Li|
|00000bb0| 63 65 6e 73 65 20 28 73 | 65 65 20 44 6f 63 2e 43 |cense (s|ee Doc.C|
|00000bc0| 6f 70 79 69 46 69 6c 65 | 44 61 74 61 82 21 52 65 |opyiFile|Data.!Re|
|00000bd0| 61 64 4d 65 00 00 00 00 | d4 03 00 00 45 ff ff ff |adMe....|....E...|
|00000be0| f8 a9 65 85 03 00 bd 2a | 20 20 20 20 20 20 20 20 |..e....*| |
|00000bf0| 20 20 20 20 20 20 20 20 | 41 64 61 2f 45 64 0a 20 | |Ada/Ed. |
|00000c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3d | | =|
|00000c10| 3d 3d 3d 3d 3d 0a 0a 54 | 68 69 73 20 69 73 20 61 |=====..T|his is a|
|00000c20| 20 70 6f 72 74 20 6f 66 | 20 74 68 65 20 41 64 61 | port of| the Ada|
|00000c30| 2f 45 64 20 74 72 61 6e | 73 6c 61 74 6f 72 20 61 |/Ed tran|slator a|
|00000c40| 6e 64 20 69 6e 74 65 72 | 70 72 65 74 65 72 20 66 |nd inter|preter f|
|00000c50| 6f 72 20 74 68 65 20 41 | 64 61 0a 70 72 6f 67 72 |or the A|da.progr|
|00000c60| 61 6d 6d 69 6e 67 20 6c | 61 6e 67 75 61 67 65 20 |amming l|anguage |
|00000c70| 74 6f 20 74 68 65 20 41 | 63 6f 72 6e 20 72 61 6e |to the A|corn ran|
|00000c80| 67 65 20 6f 66 20 41 52 | 4d 20 62 61 73 65 64 20 |ge of AR|M based |
|00000c90| 6d 61 63 68 69 6e 65 73 | 2c 20 72 75 6e 6e 69 6e |machines|, runnin|
|00000ca0| 67 20 75 6e 64 65 72 0a | 52 49 53 43 2d 4f 53 2e |g under.|RISC-OS.|
|00000cb0| 20 41 73 20 73 75 63 68 | 2c 20 74 68 69 73 20 70 | As such|, this p|
|00000cc0| 61 63 6b 61 67 65 20 69 | 73 20 63 6f 76 65 72 65 |ackage i|s covere|
|00000cd0| 64 20 62 79 20 74 68 65 | 20 46 53 46 20 47 65 6e |d by the| FSF Gen|
|00000ce0| 65 72 61 6c 20 50 75 62 | 6c 69 63 20 4c 69 63 65 |eral Pub|lic Lice|
|00000cf0| 6e 73 65 0a 28 73 65 65 | 20 74 68 65 20 66 69 6c |nse.(see| the fil|
|00000d00| 65 20 44 6f 63 73 2e 43 | 6f 70 79 69 6e 67 20 61 |e Docs.C|opying a|
|00000d10| 6e 64 20 6c 61 74 65 72 | 20 66 6f 72 20 64 65 74 |nd later| for det|
|00000d20| 61 69 6c 73 29 2e 0a 0a | 54 68 69 73 20 70 6f 72 |ails)...|This por|
|00000d30| 74 20 69 73 20 a9 20 31 | 39 39 34 2c 20 50 65 74 |t is . 1|994, Pet|
|00000d40| 65 72 20 42 75 72 77 6f | 6f 64 0a 0a 54 68 61 6e |er Burwo|od..Than|
|00000d50| 6b 73 20 67 6f 20 74 6f | 20 74 68 65 20 4e 65 77 |ks go to| the New|
|00000d60| 20 59 6f 72 6b 20 55 6e | 69 76 65 72 73 69 74 79 | York Un|iversity|
|00000d70| 20 66 6f 72 20 77 72 69 | 74 69 6e 67 20 61 6e 64 | for wri|ting and|
|00000d80| 20 69 6d 70 6c 65 6d 65 | 6e 74 69 6e 67 20 74 68 | impleme|nting th|
|00000d90| 69 73 0a 73 6f 66 74 77 | 61 72 65 2e 0a 0a 49 6e |is.softw|are...In|
|00000da0| 73 74 61 6c 6c 61 74 69 | 6f 6e 0a 3d 3d 3d 3d 3d |stallati|on.=====|
|00000db0| 3d 3d 3d 3d 3d 3d 3d 0a | 0a 53 65 65 20 21 52 65 |=======.|.See !Re|
|00000dc0| 61 64 4d 65 20 66 6f 72 | 20 64 65 74 61 69 6c 73 |adMe for| details|
|00000dd0| 0a 0a 43 6f 70 79 72 69 | 67 68 74 73 0a 3d 3d 3d |..Copyri|ghts.===|
|00000de0| 3d 3d 3d 3d 3d 3d 3d 0a | 0a 54 68 65 20 70 72 6f |=======.|.The pro|
|00000df0| 67 72 61 6d 73 20 61 64 | 61 63 6f 6d 70 2c 20 61 |grams ad|acomp, a|
|00000e00| 64 61 62 69 6e 64 2c 20 | 61 64 61 65 78 65 63 2c |dabind, |adaexec,|
|00000e10| 20 61 64 61 6c 69 62 2c | 20 61 64 61 67 65 6e 2c | adalib,| adagen,|
|00000e20| 20 61 64 61 70 72 73 2c | 20 61 64 61 73 65 6d 20 | adaprs,| adasem |
|00000e30| 61 6e 64 0a 74 68 65 20 | 61 64 61 69 6e 74 20 70 |and.the |adaint p|
|00000e40| 61 72 74 69 61 6c 6c 79 | 20 6c 69 6e 6b 65 64 20 |artially| linked |
|00000e50| 6c 69 62 72 61 72 79 20 | 61 72 65 20 63 6f 76 65 |library |are cove|
|00000e60| 72 65 64 20 62 79 20 74 | 68 65 20 47 4e 55 20 47 |red by t|he GNU G|
|00000e70| 65 6e 65 72 61 6c 20 50 | 75 62 6c 69 63 0a 4c 69 |eneral P|ublic.Li|
|00000e80| 63 65 6e 73 65 20 28 73 | 65 65 20 44 6f 63 2e 43 |cense (s|ee Doc.C|
|00000e90| 6f 70 79 69 6e 67 29 2e | 0a 0a 54 68 65 20 65 78 |opying).|..The ex|
|00000ea0| 61 6d 70 6c 65 20 41 64 | 61 20 61 6e 64 20 43 20 |ample Ad|a and C |
|00000eb0| 70 72 6f 67 72 61 6d 73 | 20 61 72 65 20 a9 20 31 |programs| are . 1|
|00000ec0| 39 39 34 2c 20 50 65 74 | 65 72 20 42 75 72 77 6f |994, Pet|er Burwo|
|00000ed0| 6f 64 2c 20 61 6e 64 20 | 61 72 65 20 61 6c 73 6f |od, and |are also|
|00000ee0| 0a 63 6f 76 65 72 65 64 | 20 62 79 20 74 68 65 20 |.covered| by the |
|00000ef0| 47 50 4c 2e 0a 0a 43 6f | 6e 74 61 63 74 69 6e 67 |GPL...Co|ntacting|
|00000f00| 20 6d 65 0a 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | me.====|========|
|00000f10| 3d 0a 0a 43 75 72 72 65 | 6e 74 6c 79 20 49 20 63 |=..Curre|ntly I c|
|00000f20| 61 6e 20 62 65 20 63 6f | 6e 74 61 63 74 65 64 20 |an be co|ntacted |
|00000f30| 61 73 20 3a 0a 45 2d 4d | 61 69 6c 20 2d 20 61 64 |as :.E-M|ail - ad|
|00000f40| 61 65 64 40 61 72 63 61 | 6e 67 65 6c 2e 64 65 6d |aed@arca|ngel.dem|
|00000f50| 6f 6e 2e 63 6f 2e 75 6b | 0a 0a 50 6f 73 74 20 2d |on.co.uk|..Post -|
|00000f60| 20 20 20 50 65 74 65 72 | 20 42 75 72 77 6f 6f 64 | Peter| Burwood|
|00000f70| 0a 20 20 20 20 20 20 20 | 20 20 32 30 35 20 4d 61 |. | 205 Ma|
|00000f80| 73 6f 6e 73 20 41 76 65 | 6e 75 65 0a 20 20 20 20 |sons Ave|nue. |
|00000f90| 20 20 20 20 20 48 61 72 | 72 6f 77 0a 20 20 20 20 | Har|row. |
|00000fa0| 20 20 20 20 20 4d 69 64 | 64 78 0a 20 20 20 20 20 | Mid|dx. |
|00000fb0| 20 20 20 20 48 41 33 20 | 35 41 5a 0a 46 69 6c 65 | HA3 |5AZ.File|
|00000fc0| 44 61 74 61 82 21 42 6f | 6f 74 00 00 00 00 00 00 |Data.!Bo|ot......|
|00000fd0| 1b 01 00 00 45 eb ff ff | 2e d9 ea 8b 03 00 a9 49 |....E...|.......I|
|00000fe0| 7c 0a 7c 20 41 64 61 20 | 21 42 6f 6f 74 0a 7c 20 ||.| Ada |!Boot.| |
|00000ff0| 28 43 29 20 43 6f 70 79 | 72 69 67 68 74 20 50 65 |(C) Copy|right Pe|
|00001000| 74 65 72 20 42 75 72 77 | 6f 6f 64 2c 20 31 39 39 |ter Burw|ood, 199|
|00001010| 34 0a 7c 0a 49 66 20 22 | 3c 41 64 61 24 50 61 74 |4.|.If "|<Ada$Pat|
|00001020| 68 3e 22 20 3d 20 22 22 | 20 54 68 65 6e 20 53 65 |h>" = ""| Then Se|
|00001030| 74 20 52 75 6e 24 50 61 | 74 68 20 3c 52 75 6e 24 |t Run$Pa|th <Run$|
|00001040| 50 61 74 68 3e 2c 61 64 | 61 3a 62 69 6e 2e 0a 49 |Path>,ad|a:bin..I|
|00001050| 63 6f 6e 53 70 72 69 74 | 65 73 20 3c 4f 62 65 79 |conSprit|es <Obey|
|00001060| 24 44 69 72 3e 2e 21 53 | 70 72 69 74 65 73 0a 2a |$Dir>.!S|prites.*|
|00001070| 53 65 74 20 41 64 61 24 | 50 61 74 68 20 3c 4f 62 |Set Ada$|Path <Ob|
|00001080| 65 79 24 44 69 72 3e 2e | 0a 2a 53 65 74 20 41 64 |ey$Dir>.|.*Set Ad|
|00001090| 61 46 72 6f 6e 74 20 61 | 64 61 3a 6c 69 62 2e 61 |aFront a|da:lib.a|
|000010a0| 64 61 66 72 6f 6e 74 0a | 2a 53 65 74 20 47 45 4e |dafront.|*Set GEN|
|000010b0| 20 61 64 61 3a 6c 69 62 | 2e 61 64 61 67 65 6e 0a | ada:lib|.adagen.|
|000010c0| 2a 53 65 74 20 42 4e 44 | 20 61 64 61 62 69 6e 64 |*Set BND| adabind|
|000010d0| 0a 2a 53 65 74 20 49 4e | 54 20 61 64 61 3a 6c 69 |.*Set IN|T ada:li|
|000010e0| 62 0a 2a 53 65 74 20 41 | 64 61 45 44 50 52 45 44 |b.*Set A|daEDPRED|
|000010f0| 45 46 20 61 64 61 3a 6c | 69 62 0a 46 69 6c 65 44 |EF ada:l|ib.FileD|
|00001100| 61 74 61 82 21 68 65 6c | 70 00 00 00 00 00 00 c0 |ata.!hel|p.......|
|00001110| 05 00 00 45 ff ff ff cc | dc ea 8b 03 00 2a 6d 20 |...E....|.....*m |
|00001120| 20 20 41 64 61 0a 20 20 | 20 7e 7e 7e 0a 20 20 20 | Ada. | ~~~. |
|00001130| 50 75 72 70 6f 73 65 3a | 20 20 41 64 61 20 43 6f |Purpose:| Ada Co|
|00001140| 6d 70 69 6c 65 72 0a 0a | 20 20 20 53 65 74 75 70 |mpiler..| Setup|
|00001150| 3a 0a 20 20 20 20 20 20 | 49 63 6f 6e 20 20 20 20 |:. |Icon |
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001170| 41 63 74 69 6f 6e 2f 4d | 65 61 6e 69 6e 67 20 20 |Action/M|eaning |
|00001180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001190| 20 20 20 20 20 44 65 66 | 61 75 6c 74 0a 20 20 20 | Def|ault. |
|000011a0| 20 20 20 2d 2d 2d 2d 20 | 20 20 20 20 20 20 20 20 | ---- | |
|000011b0| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 2d 2d 2d | | -----|
|000011c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 20 20 20 20 20 20 |--------|- |
|000011d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011e0| 2d 2d 2d 2d 2d 2d 2d 0a | 20 20 20 20 20 20 53 6f |-------.| So|
|000011f0| 75 72 63 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |urce | |
|00001200| 20 20 20 20 20 20 4e 61 | 6d 65 20 6f 66 20 66 69 | Na|me of fi|
|00001210| 6c 65 20 74 6f 20 62 65 | 20 63 6f 6d 70 69 6c 65 |le to be| compile|
|00001220| 64 20 20 20 20 20 20 20 | 20 20 20 20 20 6e 69 6c |d | nil|
|00001230| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 | | (|
|00001250| 74 79 70 65 64 20 6f 72 | 20 64 72 61 67 67 65 64 |typed or| dragged|
|00001260| 29 2e 0a 20 20 20 20 20 | 20 4c 69 62 72 61 72 79 |).. | Library|
|00001270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001280| 20 41 64 61 20 6c 69 62 | 72 61 72 79 20 74 6f 20 | Ada lib|rary to |
|00001290| 68 6f 6c 64 20 75 6e 69 | 74 73 20 20 20 20 20 20 |hold uni|ts |
|000012a0| 20 20 20 20 20 20 20 20 | 6e 69 6c 0a 20 20 20 20 | |nil. |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012c0| 20 20 20 20 20 20 20 20 | 20 20 28 74 79 70 65 64 | | (typed|
|000012d0| 20 6f 72 20 64 72 61 67 | 67 65 64 29 2e 0a 20 20 | or drag|ged).. |
|000012e0| 20 20 20 20 4f 62 6a 65 | 63 74 73 20 20 20 20 20 | Obje|cts |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4c 69 73 74 | | List|
|00001300| 20 6f 66 20 65 78 74 65 | 72 6e 61 6c 20 6f 62 6a | of exte|rnal obj|
|00001310| 65 63 74 20 66 69 6c 65 | 73 20 74 6f 20 20 20 20 |ect file|s to |
|00001320| 20 20 20 6e 69 6c 0a 20 | 20 20 20 20 20 20 20 20 | nil. | |
|00001330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001340| 20 20 20 20 20 69 6e 63 | 6c 75 64 65 20 69 6e 20 | inc|lude in |
|00001350| 74 68 65 20 62 69 6e 64 | 69 6e 67 0a 20 20 20 20 |the bind|ing. |
|00001360| 20 20 42 69 6e 64 20 65 | 78 65 63 75 74 61 62 6c | Bind e|xecutabl|
|00001370| 65 20 20 20 20 20 20 20 | 20 20 49 6e 76 6f 6b 65 |e | Invoke|
|00001380| 20 74 68 65 20 41 64 61 | 20 62 69 6e 64 65 72 20 | the Ada| binder |
|00001390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013a0| 20 6f 66 66 0a 20 20 20 | 20 20 20 4e 65 77 20 6c | off. | New l|
|000013b0| 69 62 72 61 72 79 20 20 | 20 20 20 20 20 20 20 20 |ibrary | |
|000013c0| 20 20 20 43 72 65 61 74 | 65 20 61 20 6e 65 77 20 | Creat|e a new |
|000013d0| 41 64 61 20 6c 69 62 72 | 61 72 79 20 20 20 20 20 |Ada libr|ary |
|000013e0| 20 20 20 20 20 20 20 20 | 20 20 6f 66 66 0a 20 20 | | off. |
|000013f0| 20 20 20 20 44 65 62 75 | 67 20 20 20 20 20 20 20 | Debu|g |
|00001400| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 6f 6d 70 | | Comp|
|00001410| 69 6c 65 20 69 6e 20 64 | 65 62 75 67 67 69 6e 67 |ile in d|ebugging|
|00001420| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 20 20 20 | informa|tion |
|00001430| 20 20 20 6f 66 66 0a 20 | 20 20 20 20 20 54 68 72 | off. | Thr|
|00001440| 6f 77 62 61 63 6b 20 20 | 20 20 20 20 20 20 20 20 |owback | |
|00001450| 20 20 20 20 20 52 65 70 | 6f 72 74 20 65 72 72 6f | Rep|ort erro|
|00001460| 72 73 20 61 6e 64 20 77 | 61 72 6e 69 6e 67 73 20 |rs and w|arnings |
|00001470| 74 6f 20 74 68 65 20 20 | 20 20 20 20 6f 6e 0a 20 |to the | on. |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 65 64 69 | | edi|
|000014a0| 74 6f 72 0a 0a 20 20 20 | 4d 65 6e 75 3a 0a 20 20 |tor.. |Menu:. |
|000014b0| 20 20 20 20 45 6e 74 72 | 79 20 20 20 20 20 20 20 | Entr|y |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 63 74 69 | | Acti|
|000014d0| 6f 6e 2f 4d 65 61 6e 69 | 6e 67 20 20 20 20 20 20 |on/Meani|ng |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000014f0| 20 44 65 66 61 75 6c 74 | 0a 20 20 20 20 20 20 2d | Default|. -|
|00001500| 2d 2d 2d 2d 20 20 20 20 | 20 20 20 20 20 20 20 20 |---- | |
|00001510| 20 20 20 20 20 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -|--------|
|00001520| 2d 2d 2d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |----- | |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 2d 2d | | ----|
|00001540| 2d 2d 2d 0a 20 20 20 20 | 20 20 4d 61 69 6e 20 70 |---. | Main p|
|00001550| 72 6f 67 72 61 6d 20 20 | 20 3d 3e 20 20 20 20 20 |rogram | => |
|00001560| 20 20 73 65 74 20 74 68 | 65 20 6e 61 6d 65 20 6f | set th|e name o|
|00001570| 66 20 74 68 65 20 6d 61 | 69 6e 20 70 72 6f 67 72 |f the ma|in progr|
|00001580| 61 6d 20 75 6e 69 74 20 | 20 6f 66 66 0a 20 20 20 |am unit | off. |
|00001590| 20 20 20 4c 69 73 74 69 | 6e 67 20 20 20 20 20 20 | Listi|ng |
|000015a0| 20 20 20 20 20 20 20 20 | 20 20 20 67 65 6e 65 72 | | gener|
|000015b0| 61 74 65 20 61 20 63 6f | 6d 70 69 6c 61 74 69 6f |ate a co|mpilatio|
|000015c0| 6e 20 6c 69 73 74 69 6e | 67 20 20 20 20 20 20 20 |n listin|g |
|000015d0| 20 20 6f 66 66 0a 20 20 | 20 20 20 20 56 65 72 62 | off. | Verb|
|000015e0| 6f 73 65 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ose | |
|000015f0| 20 20 20 20 67 69 76 65 | 20 61 20 64 65 73 63 72 | give| a descr|
|00001600| 69 70 74 69 76 65 20 74 | 72 61 63 65 20 6f 66 20 |iptive t|race of |
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 6f 66 66 0a 20 | | off. |
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 75 62 | | sub|
|00001640| 73 69 64 69 61 72 79 20 | 70 72 6f 67 72 61 6d 73 |sidiary |programs|
|00001650| 20 69 6e 76 6f 6b 65 64 | 20 62 79 20 61 64 61 63 | invoked| by adac|
|00001660| 6f 6d 70 0a 20 20 20 20 | 20 20 41 73 73 65 6d 62 |omp. | Assemb|
|00001670| 6c 65 72 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ler | |
|00001680| 20 20 4f 75 74 70 75 74 | 20 76 69 72 74 75 61 6c | Output| virtual|
|00001690| 20 6d 61 63 68 69 6e 65 | 20 61 73 73 65 6d 62 6c | machine| assembl|
|000016a0| 79 20 63 6f 64 65 20 20 | 20 6f 66 66 0a 20 20 20 |y code | off. |
|000016b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 69 6e 20 74 68 | | in th|
|000016d0| 65 20 6c 69 73 74 69 6e | 67 20 66 69 6c 65 0a 46 |e listin|g file.F|
|000016e0| 69 6c 65 44 61 74 61 82 | 21 52 75 6e 00 00 00 00 |ileData.|!Run....|
|000016f0| 00 00 00 60 04 00 00 45 | eb ff ff 48 e7 ea 8b 03 |...`...E|...H....|
|00001700| 00 0d 9d 7c 0a 7c 20 41 | 64 61 20 21 52 75 6e 0a |...|.| A|da !Run.|
|00001710| 7c 20 28 43 29 20 43 6f | 70 79 72 69 67 68 74 20 || (C) Co|pyright |
|00001720| 50 65 74 65 72 20 42 75 | 72 77 6f 6f 64 2c 20 31 |Peter Bu|rwood, 1|
|00001730| 39 39 34 0a 7c 0a 2a 49 | 66 20 22 3c 53 79 73 74 |994.|.*I|f "<Syst|
|00001740| 65 6d 24 50 61 74 68 3e | 22 20 3d 20 22 22 20 54 |em$Path>|" = "" T|
|00001750| 68 65 6e 20 45 72 72 6f | 72 20 30 20 53 79 73 74 |hen Erro|r 0 Syst|
|00001760| 65 6d 20 72 65 73 6f 75 | 72 63 65 73 20 63 61 6e |em resou|rces can|
|00001770| 6e 6f 74 20 62 65 20 66 | 6f 75 6e 64 0a 2a 57 69 |not be f|ound.*Wi|
|00001780| 6d 70 53 6c 6f 74 20 2d | 4d 69 6e 20 31 32 38 6b |mpSlot -|Min 128k|
|00001790| 20 2d 4d 61 78 20 31 32 | 38 6b 0a 2a 49 63 6f 6e | -Max 12|8k.*Icon|
|000017a0| 53 70 72 69 74 65 73 20 | 3c 4f 62 65 79 24 44 69 |Sprites |<Obey$Di|
|000017b0| 72 3e 2e 21 53 70 72 69 | 74 65 73 0a 2a 49 66 20 |r>.!Spri|tes.*If |
|000017c0| 22 3c 41 64 61 24 50 61 | 74 68 3e 22 20 3d 20 22 |"<Ada$Pa|th>" = "|
|000017d0| 22 20 54 68 65 6e 20 53 | 65 74 20 52 75 6e 24 50 |" Then S|et Run$P|
|000017e0| 61 74 68 20 3c 52 75 6e | 24 50 61 74 68 3e 2c 61 |ath <Run|$Path>,a|
|000017f0| 64 61 3a 62 69 6e 2e 0a | 2a 53 65 74 20 41 64 61 |da:bin..|*Set Ada|
|00001800| 24 44 69 72 20 3c 4f 62 | 65 79 24 44 69 72 3e 0a |$Dir <Ob|ey$Dir>.|
|00001810| 2a 53 65 74 20 41 64 61 | 24 50 61 74 68 20 3c 4f |*Set Ada|$Path <O|
|00001820| 62 65 79 24 44 69 72 3e | 2e 0a 2a 53 65 74 20 41 |bey$Dir>|..*Set A|
|00001830| 64 61 46 72 6f 6e 74 20 | 61 64 61 3a 6c 69 62 2e |daFront |ada:lib.|
|00001840| 61 64 61 66 72 6f 6e 74 | 0a 2a 53 65 74 20 47 45 |adafront|.*Set GE|
|00001850| 4e 20 61 64 61 3a 6c 69 | 62 2e 61 64 61 67 65 6e |N ada:li|b.adagen|
|00001860| 0a 2a 53 65 74 20 42 4e | 44 20 61 64 61 62 69 6e |.*Set BN|D adabin|
|00001870| 64 0a 2a 53 65 74 20 49 | 4e 54 20 61 64 61 3a 6c |d.*Set I|NT ada:l|
|00001880| 69 62 0a 2a 53 65 74 20 | 41 64 61 45 44 50 52 45 |ib.*Set |AdaEDPRE|
|00001890| 44 45 46 20 61 64 61 3a | 6c 69 62 0a 2a 52 4d 45 |DEF ada:|lib.*RME|
|000018a0| 6e 73 75 72 65 20 46 50 | 45 6d 75 6c 61 74 6f 72 |nsure FP|Emulator|
|000018b0| 20 30 20 52 4d 4c 6f 61 | 64 20 53 79 73 74 65 6d | 0 RMLoa|d System|
|000018c0| 3a 6d 6f 64 75 6c 65 73 | 2e 66 70 65 6d 75 6c 61 |:modules|.fpemula|
|000018d0| 74 6f 72 0a 2a 52 4d 45 | 6e 73 75 72 65 20 46 50 |tor.*RME|nsure FP|
|000018e0| 45 6d 75 6c 61 74 6f 72 | 20 32 2e 38 30 20 45 72 |Emulator| 2.80 Er|
|000018f0| 72 6f 72 20 59 6f 75 20 | 6e 65 65 64 20 46 50 45 |ror You |need FPE|
|00001900| 6d 75 6c 61 74 6f 72 20 | 32 2e 38 30 20 74 6f 20 |mulator |2.80 to |
|00001910| 72 75 6e 20 21 41 64 61 | 0a 2a 52 4d 45 6e 73 75 |run !Ada|.*RMEnsu|
|00001920| 72 65 20 53 68 61 72 65 | 64 43 4c 69 62 72 61 72 |re Share|dCLibrar|
|00001930| 79 20 30 20 53 79 73 74 | 65 6d 3a 6d 6f 64 75 6c |y 0 Syst|em:modul|
|00001940| 65 73 2e 63 6c 69 62 0a | 2a 52 4d 45 6e 73 75 72 |es.clib.|*RMEnsur|
|00001950| 65 20 53 68 61 72 65 64 | 43 4c 69 62 72 61 72 79 |e Shared|CLibrary|
|00001960| 20 33 2e 37 35 20 45 72 | 72 6f 72 20 59 6f 75 20 | 3.75 Er|ror You |
|00001970| 6e 65 65 64 20 43 6c 69 | 62 20 33 2e 37 35 20 74 |need Cli|b 3.75 t|
|00001980| 6f 20 72 75 6e 20 21 41 | 64 61 0a 2a 52 4d 45 6e |o run !A|da.*RMEn|
|00001990| 73 75 72 65 20 46 72 6f | 6e 74 45 6e 64 20 30 20 |sure Fro|ntEnd 0 |
|000019a0| 53 79 73 74 65 6d 3a 6d | 6f 64 75 6c 65 73 2e 66 |System:m|odules.f|
|000019b0| 72 6f 6e 74 65 6e 64 0a | 2a 52 4d 45 6e 73 75 72 |rontend.|*RMEnsur|
|000019c0| 65 20 46 72 6f 6e 74 65 | 6e 64 20 31 2e 31 33 20 |e Fronte|nd 1.13 |
|000019d0| 45 72 72 6f 72 20 59 6f | 75 20 6e 65 65 64 20 76 |Error Yo|u need v|
|000019e0| 65 72 73 69 6f 6e 20 31 | 2e 31 33 20 6f 66 20 74 |ersion 1|.13 of t|
|000019f0| 68 65 20 46 72 6f 6e 74 | 45 6e 64 20 6d 6f 64 75 |he Front|End modu|
|00001a00| 6c 65 20 74 6f 20 72 75 | 6e 20 21 41 64 61 0a 2a |le to ru|n !Ada.*|
|00001a10| 52 4d 45 6e 73 75 72 65 | 20 54 61 73 6b 57 69 6e |RMEnsure| TaskWin|
|00001a20| 64 6f 77 20 30 20 53 79 | 73 74 65 6d 3a 6d 6f 64 |dow 0 Sy|stem:mod|
|00001a30| 75 6c 65 73 2e 74 61 73 | 6b 0a 2a 52 4d 45 6e 73 |ules.tas|k.*RMEns|
|00001a40| 75 72 65 20 54 61 73 6b | 57 69 6e 64 6f 77 20 30 |ure Task|Window 0|
|00001a50| 2e 32 39 20 45 72 72 6f | 72 20 59 6f 75 20 6e 65 |.29 Erro|r You ne|
|00001a60| 65 64 20 76 65 72 73 69 | 6f 6e 20 30 2e 32 39 20 |ed versi|on 0.29 |
|00001a70| 6f 66 20 74 68 65 20 74 | 61 73 6b 77 69 6e 64 6f |of the t|askwindo|
|00001a80| 77 20 6d 6f 64 75 6c 65 | 20 74 6f 20 72 75 6e 20 |w module| to run |
|00001a90| 21 41 64 61 0a 2a 52 4d | 45 6e 73 75 72 65 20 44 |!Ada.*RM|Ensure D|
|00001aa0| 44 45 55 74 69 6c 73 20 | 30 20 53 79 73 74 65 6d |DEUtils |0 System|
|00001ab0| 3a 6d 6f 64 75 6c 65 73 | 2e 64 64 65 75 74 69 6c |:modules|.ddeutil|
|00001ac0| 73 0a 2a 52 4d 45 6e 73 | 75 72 65 20 44 44 45 55 |s.*RMEns|ure DDEU|
|00001ad0| 74 69 6c 73 20 31 2e 35 | 30 20 45 72 72 6f 72 20 |tils 1.5|0 Error |
|00001ae0| 59 6f 75 20 6e 65 65 64 | 20 76 65 72 73 69 6f 6e |You need| version|
|00001af0| 20 31 2e 35 30 20 6f 66 | 20 74 68 65 20 44 44 45 | 1.50 of| the DDE|
|00001b00| 55 74 69 6c 73 20 6d 6f | 64 75 6c 65 20 74 6f 20 |Utils mo|dule to |
|00001b10| 72 75 6e 20 21 41 64 61 | 0a 2a 57 69 6d 70 53 6c |run !Ada|.*WimpSl|
|00001b20| 6f 74 20 2d 4d 69 6e 20 | 36 34 6b 20 2d 4d 61 78 |ot -Min |64k -Max|
|00001b30| 20 36 34 6b 0a 2a 46 72 | 6f 6e 74 45 6e 64 5f 53 | 64k.*Fr|ontEnd_S|
|00001b40| 74 61 72 74 20 2d 61 70 | 70 20 41 64 61 20 2d 64 |tart -ap|p Ada -d|
|00001b50| 65 73 63 20 3c 41 64 61 | 24 44 69 72 3e 2e 64 65 |esc <Ada|$Dir>.de|
|00001b60| 73 63 0a 46 69 6c 65 44 | 61 74 61 82 21 53 70 72 |sc.FileD|ata.!Spr|
|00001b70| 69 74 65 73 00 00 00 e4 | 03 00 00 45 f9 ff ff db |ites....|...E....|
|00001b80| e4 ea 8b 03 00 fb 34 02 | 00 00 00 10 00 00 00 e8 |......4.|........|
|00001b90| 03 00 00 d4 02 00 00 21 | 61 64 61 00 00 00 00 00 |.......!|ada.....|
|00001ba0| 00 00 00 04 00 00 00 10 | 00 00 00 00 00 00 00 07 |........|........|
|00001bb0| 00 00 00 2c 00 00 00 80 | 01 00 00 0c 00 00 00 00 |...,....|........|
|00001bc0| 20 00 95 be be 7b 00 40 | 33 07 00 34 73 00 02 00 | ....{.@|3..4s...|
|00001bd0| 00 00 00 70 20 50 e9 eb | eb bb 07 34 33 07 00 34 |...p P..|...43..4|
|00001be0| 33 07 02 07 00 00 00 00 | 20 50 e9 be be be 27 34 |3.......| P....'4|
|00001bf0| 33 43 44 33 33 07 02 00 | 00 00 00 70 20 50 e9 eb |3CD33...|...p P..|
|00001c00| eb bb 07 00 34 33 33 33 | 07 00 02 07 00 00 00 00 |....4333|........|
|00001c10| 20 50 e9 be be be 37 02 | 00 24 32 07 40 02 02 00 | P....7.|.$2.@...|
|00001c20| 00 00 00 70 20 00 95 ee | eb 7b 00 00 00 24 32 07 |...p ...|.{...$2.|
|00001c30| 00 00 02 07 00 00 00 00 | 20 00 95 be be 7b 01 22 |........| ....{."|
|00001c40| 02 24 32 07 31 01 02 00 | 00 00 00 70 20 00 50 e9 |.$2.1...|...p .P.|
|00001c50| bb 07 00 00 00 24 32 07 | 00 00 02 06 00 00 00 00 |.....$2.|........|
|00001c60| 20 30 30 31 25 10 20 21 | 00 24 32 17 31 00 02 00 | 001%. !|.$2.1...|
|00001c70| 00 00 00 70 20 00 00 30 | 05 00 00 00 00 24 32 07 |...p ..0|.....$2.|
|00001c80| 00 00 02 07 00 00 00 00 | 20 20 13 31 25 10 32 01 |........| .1%.2.|
|00001c90| 01 24 32 17 32 00 02 00 | 00 00 00 70 20 10 22 32 |.$2.2...|...p ."2|
|00001ca0| 05 00 00 00 00 24 32 07 | 00 00 02 07 00 00 00 00 |.....$2.|........|
|00001cb0| 20 03 00 30 05 22 00 01 | 10 24 32 07 10 01 02 00 | ..0."..|.$2.....|
|00001cc0| 00 00 00 10 03 00 07 30 | 05 00 20 00 34 33 33 33 |.......0|.. .4333|
|00001cd0| 07 00 02 31 00 00 00 03 | 00 00 07 34 43 00 00 34 |...1....|...4C..4|
|00001ce0| 33 43 44 33 33 17 32 00 | 00 00 00 00 00 07 ee 43 |3CD33.2.|.......C|
|00001cf0| 34 00 00 34 33 07 00 34 | 33 05 00 00 00 00 00 00 |4..43..4|3.......|
|00001d00| e0 ee ee 42 24 00 00 40 | 33 07 00 34 53 00 00 00 |...B$..@|3..4S...|
|00001d10| 00 00 00 ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001d20| ff ff ff ff 00 00 00 ff | ff ff ff ff ff ff ff ff |........|........|
|00001d30| ff ff ff ff ff ff ff ff | 00 00 00 ff ff ff ff ff |........|........|
|00001d40| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 ff |........|........|
|00001d50| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001d60| 00 00 00 ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001d70| ff ff ff ff 00 00 00 ff | ff ff ff ff ff ff ff ff |........|........|
|00001d80| ff ff ff ff ff ff ff ff | 00 00 00 ff ff ff ff ff |........|........|
|00001d90| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 ff |........|........|
|00001da0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001db0| 00 00 00 ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001dc0| ff ff ff ff 00 00 00 ff | ff ff ff ff ff ff ff ff |........|........|
|00001dd0| ff ff ff ff ff ff ff ff | 00 00 00 ff ff ff ff ff |........|........|
|00001de0| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 ff |........|........|
|00001df0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001e00| 00 00 00 ff ff 0f 00 f0 | 0f ff ff ff ff ff ff ff |........|........|
|00001e10| ff ff ff ff 00 00 00 ff | 0f 00 00 f0 0f 00 f0 ff |........|........|
|00001e20| ff ff ff ff ff ff ff ff | 00 00 00 0f 00 00 00 ff |........|........|
|00001e30| ff 00 00 ff ff ff ff ff | ff ff ff 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 ff ff 00 00 ff | ff 0f 00 ff ff 0f 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 f0 | 0f 00 00 f0 ff 0f 00 ff |........|........|
|00001e60| ff 00 00 00 00 00 00 04 | 01 00 00 73 6d 21 61 64 |........|...sm!ad|
|00001e70| 61 00 00 00 00 00 00 02 | 00 00 00 08 00 00 00 00 |a.......|........|
|00001e80| 00 00 00 03 00 00 00 2c | 00 00 00 98 00 00 00 0c |.......,|........|
|00001e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 02 |........|........|
|00001ea0| ee 0e 30 03 30 03 03 00 | 00 00 00 02 ee 0e 30 33 |..0.0...|......03|
|00001eb0| 33 03 00 00 00 00 00 02 | ee 0e 00 20 03 00 03 00 |3.......|... ....|
|00001ec0| 00 00 00 02 ee 0e 00 20 | 03 00 00 00 00 00 00 02 |....... |........|
|00001ed0| 30 00 00 20 03 00 03 00 | 00 00 00 12 32 00 00 20 |0.. ....|....2.. |
|00001ee0| 03 00 00 00 00 00 00 00 | 30 00 32 33 33 03 30 00 |........|0.233.0.|
|00001ef0| 00 00 00 00 40 03 30 03 | 30 03 00 00 00 00 00 00 |....@.0.|0.......|
|00001f00| 00 00 00 00 00 00 00 f0 | ff ff ff ff ff ff ff ff |........|........|
|00001f10| ff ff ff f0 ff ff ff ff | ff ff ff ff ff ff ff f0 |........|........|
|00001f20| ff ff ff ff ff ff ff ff | ff ff ff f0 ff ff ff ff |........|........|
|00001f30| ff ff ff ff ff ff ff f0 | ff ff ff ff ff ff ff ff |........|........|
|00001f40| ff ff ff f0 ff ff ff ff | ff 00 f0 ff ff ff ff f0 |........|........|
|00001f50| ff ff ff 00 f0 00 ff ff | ff ff ff f0 ff ff ff 00 |........|........|
|00001f60| f0 0f f0 0f f0 0f 00 f0 | ff ff ff 46 69 6c 65 44 |........|...FileD|
|00001f70| 61 74 61 82 70 72 65 64 | 65 66 00 00 00 00 00 36 |ata.pred|ef.....6|
|00001f80| 62 00 00 45 ff ff ff 60 | c4 ef 8b 03 00 67 ec 2d |b..E...`|.....g.-|
|00001f90| 2d 20 0a 2d 2d 20 0a 2d | 2d 20 20 20 20 20 20 20 |- .-- .-|- |
|00001fa0| 20 20 20 20 20 20 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a | |********|
|00001fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 0a 2d 2d 20 20 |********|** .-- |
|00001fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 20 20 | | * |
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 20 | | * |
|00002000| 20 0a 2d 2d 20 20 20 20 | 20 20 20 20 20 20 20 20 | .-- | |
|00002010| 20 20 20 2a 20 20 20 20 | 20 20 20 20 20 20 20 54 | * | T|
|00002020| 20 20 65 20 20 78 20 20 | 74 20 20 20 20 20 20 20 | e x |t |
|00002030| 20 20 20 20 2a 20 0a 2d | 2d 20 20 20 20 20 20 20 | * .-|- |
|00002040| 20 20 20 20 20 20 20 20 | 2a 20 20 20 20 20 20 20 | |* |
|00002050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002060| 20 20 20 20 20 20 20 20 | 20 2a 20 20 0a 2d 2d 20 | | * .-- |
|00002070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 20 | | * |
|00002080| 20 20 20 20 49 6e 70 75 | 74 20 2f 20 4f 75 74 70 | Inpu|t / Outp|
|00002090| 75 74 20 20 50 61 63 6b | 61 67 65 20 20 20 20 2a |ut Pack|age *|
|000020a0| 20 0a 2d 2d 09 09 20 2a | 09 09 09 09 20 20 2a 0a | .--.. *|.... *.|
|000020b0| 2d 2d 09 09 20 2a 09 20 | 20 20 20 20 61 6e 64 20 |--.. *. | and |
|000020c0| 6f 74 68 65 72 09 09 20 | 20 2a 0a 2d 2d 09 09 20 |other.. | *.--.. |
|000020d0| 2a 09 09 09 09 20 20 2a | 0a 2d 2d 09 09 20 2a 20 |*.... *|.--.. * |
|000020e0| 20 20 20 20 20 20 20 50 | 72 65 64 65 66 69 6e 65 | P|redefine|
|000020f0| 64 20 55 6e 69 74 73 09 | 20 20 2a 0a 2d 2d 20 20 |d Units.| *.-- |
|00002100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 20 20 | | * |
|00002110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 20 | | * |
|00002130| 20 0a 2d 2d 20 20 20 20 | 20 20 20 20 20 20 20 20 | .-- | |
|00002140| 20 20 20 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 | * | |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002160| 20 20 20 20 2a 20 20 0a | 2d 2d 09 09 20 2a 09 20 | * .|--.. *. |
|00002170| 20 20 20 20 41 44 41 20 | 50 72 6f 6a 65 63 74 09 | ADA |Project.|
|00002180| 20 20 2a 0a 2d 2d 09 09 | 20 2a 09 20 20 43 6f 75 | *.--..| *. Cou|
|00002190| 72 61 6e 74 20 49 6e 73 | 74 69 74 75 74 65 09 20 |rant Ins|titute. |
|000021a0| 20 2a 0a 2d 2d 09 09 20 | 2a 09 20 4e 65 77 20 59 | *.--.. |*. New Y|
|000021b0| 6f 72 6b 20 55 6e 69 76 | 65 72 73 69 74 79 09 20 |ork Univ|ersity. |
|000021c0| 20 2a 0a 2d 2d 09 09 20 | 2a 09 20 20 32 35 31 20 | *.--.. |*. 251 |
|000021d0| 4d 65 72 63 65 72 20 53 | 74 72 65 65 74 2c 09 20 |Mercer S|treet,. |
|000021e0| 20 2a 0a 2d 2d 09 09 20 | 2a 09 20 20 4e 65 77 20 | *.--.. |*. New |
|000021f0| 59 6f 72 6b 2c 20 4e 59 | 20 31 30 30 31 32 09 20 |York, NY| 10012. |
|00002200| 20 2a 0a 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 | *.-- | |
|00002210| 20 20 20 20 2a 20 20 20 | 20 20 20 20 20 20 20 20 | * | |
|00002220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002230| 20 20 20 20 20 2a 20 20 | 0a 2d 2d 20 20 20 20 20 | * |.-- |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 2a 2a 2a 2a 2a 2a | | ******|
|00002250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 20 0a 2d 2d |********|**** .--|
|00002270| 20 0a 2d 2d 20 0a 2d 2d | 0a 70 72 61 67 6d 61 20 | .-- .--|.pragma |
|00002280| 70 61 67 65 3b 0a 2d 2d | 20 20 54 68 69 73 20 66 |page;.--| This f|
|00002290| 69 6c 65 20 63 6f 6e 74 | 61 69 6e 73 20 73 65 76 |ile cont|ains sev|
|000022a0| 65 72 61 6c 20 6f 66 20 | 74 68 65 20 70 72 65 64 |eral of |the pred|
|000022b0| 65 66 69 6e 65 64 20 41 | 64 61 20 70 61 63 6b 61 |efined A|da packa|
|000022c0| 67 65 20 73 70 65 63 2d | 0a 2d 2d 20 20 69 66 69 |ge spec-|.-- ifi|
|000022d0| 63 61 74 69 6f 6e 73 2e | 20 20 54 68 65 79 20 64 |cations.| They d|
|000022e0| 6f 20 6e 6f 74 20 61 63 | 74 75 61 6c 6c 79 20 69 |o not ac|tually i|
|000022f0| 6d 70 6c 65 6d 65 6e 74 | 20 74 68 65 20 70 61 63 |mplement| the pac|
|00002300| 6b 61 67 65 27 73 0a 2d | 2d 20 20 6f 70 65 72 61 |kage's.-|- opera|
|00002310| 74 69 6f 6e 73 2c 20 77 | 68 69 63 68 20 61 72 65 |tions, w|hich are|
|00002320| 20 63 6f 64 65 64 20 69 | 6e 20 74 68 65 20 69 6d | coded i|n the im|
|00002330| 70 6c 65 6d 65 6e 74 61 | 74 69 6f 6e 20 6c 61 6e |plementa|tion lan|
|00002340| 67 75 61 67 65 20 43 2c | 0a 2d 2d 20 20 62 75 74 |guage C,|.-- but|
|00002350| 20 74 68 65 79 20 70 72 | 6f 76 69 64 65 20 61 6e | they pr|ovide an|
|00002360| 20 69 6e 74 65 72 66 61 | 63 65 20 74 6f 20 74 68 | interfa|ce to th|
|00002370| 65 6d 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 73 |em throu|gh the s|
|00002380| 74 61 6e 64 61 72 64 20 | 0a 2d 2d 20 20 70 72 6f |tandard |.-- pro|
|00002390| 63 65 64 75 72 65 2f 66 | 75 6e 63 74 69 6f 6e 20 |cedure/f|unction |
|000023a0| 63 61 6c 6c 69 6e 67 20 | 6d 65 63 68 61 6e 69 73 |calling |mechanis|
|000023b0| 6d 2e 20 54 68 65 20 70 | 72 65 64 65 66 69 6e 65 |m. The p|redefine|
|000023c0| 64 20 70 61 63 6b 61 67 | 65 73 20 61 72 65 3a 0a |d packag|es are:.|
|000023d0| 2d 2d 0a 2d 2d 20 20 20 | 20 20 20 2e 20 54 68 65 |--.-- | . The|
|000023e0| 20 53 59 53 54 45 4d 20 | 70 61 63 6b 61 67 65 2e | SYSTEM |package.|
|000023f0| 0a 2d 2d 0a 2d 2d 20 20 | 20 20 20 20 2e 20 54 68 |.--.-- | . Th|
|00002400| 65 20 49 4f 5f 45 58 43 | 45 50 54 49 4f 4e 53 20 |e IO_EXC|EPTIONS |
|00002410| 70 61 63 6b 61 67 65 2e | 0a 2d 2d 0a 2d 2d 20 20 |package.|.--.-- |
|00002420| 09 2e 20 54 68 65 20 67 | 65 6e 65 72 69 63 20 53 |.. The g|eneric S|
|00002430| 45 51 55 45 4e 54 49 41 | 4c 5f 49 4f 20 70 61 63 |EQUENTIA|L_IO pac|
|00002440| 6b 61 67 65 2e 0a 2d 2d | 0a 2d 2d 20 20 20 20 20 |kage..--|.-- |
|00002450| 20 2e 20 54 68 65 20 67 | 65 6e 65 72 69 63 20 44 | . The g|eneric D|
|00002460| 49 52 45 43 54 5f 49 4f | 20 70 61 63 6b 61 67 65 |IRECT_IO| package|
|00002470| 2e 0a 2d 2d 20 0a 2d 2d | 20 20 09 2e 20 54 68 65 |..-- .--| .. The|
|00002480| 20 54 45 58 54 5f 49 4f | 20 70 61 63 6b 61 67 65 | TEXT_IO| package|
|00002490| 2e 20 20 0a 2d 2d 0a 2d | 2d 09 2e 20 54 68 65 20 |. .--.-|-.. The |
|000024a0| 43 41 4c 45 4e 44 41 52 | 20 70 61 63 6b 61 67 65 |CALENDAR| package|
|000024b0| 20 61 6e 64 20 74 68 65 | 20 70 72 65 64 65 66 69 | and the| predefi|
|000024c0| 6e 65 64 20 73 75 62 70 | 72 6f 67 72 61 6d 73 20 |ned subp|rograms |
|000024d0| 0a 2d 2d 09 20 20 55 4e | 43 48 45 43 4b 45 44 5f |.--. UN|CHECKED_|
|000024e0| 43 4f 4e 56 45 52 53 49 | 4f 4e 20 61 6e 64 20 55 |CONVERSI|ON and U|
|000024f0| 4e 43 48 45 43 4b 45 44 | 5f 44 45 41 4c 4c 4f 43 |NCHECKED|_DEALLOC|
|00002500| 41 54 49 4f 4e 2e 0a 2d | 2d 0a 2d 2d 0a 70 72 61 |ATION..-|-.--.pra|
|00002510| 67 6d 61 20 70 61 67 65 | 3b 0a 0a 70 61 63 6b 61 |gma page|;..packa|
|00002520| 67 65 20 53 59 53 54 45 | 4d 20 69 73 0a 0a 20 20 |ge SYSTE|M is.. |
|00002530| 20 74 79 70 65 20 4e 41 | 4d 45 20 20 20 20 69 73 | type NA|ME is|
|00002540| 20 28 45 4c 58 53 49 5f | 42 53 44 2c 20 45 4c 58 | (ELXSI_|BSD, ELX|
|00002550| 53 49 5f 45 4e 49 58 2c | 20 50 43 5f 44 4f 53 2c |SI_ENIX,| PC_DOS,|
|00002560| 20 0a 09 09 20 20 20 20 | 20 53 55 4e 5f 55 4e 49 | ... | SUN_UNI|
|00002570| 58 2c 20 56 41 58 5f 55 | 4e 49 58 2c 20 56 41 58 |X, VAX_U|NIX, VAX|
|00002580| 5f 56 4d 53 2c 20 52 49 | 53 43 5f 4f 53 29 20 3b |_VMS, RI|SC_OS) ;|
|00002590| 20 0a 0a 20 20 20 53 59 | 53 54 45 4d 5f 4e 41 4d | .. SY|STEM_NAM|
|000025a0| 45 20 20 3a 20 63 6f 6e | 73 74 61 6e 74 20 4e 41 |E : con|stant NA|
|000025b0| 4d 45 20 3a 3d 20 52 49 | 53 43 5f 4f 53 3b 0a 20 |ME := RI|SC_OS;. |
|000025c0| 20 20 53 54 4f 52 41 47 | 45 5f 55 4e 49 54 20 3a | STORAG|E_UNIT :|
|000025d0| 20 63 6f 6e 73 74 61 6e | 74 20 20 20 20 20 20 3a | constan|t :|
|000025e0| 3d 20 33 32 3b 0a 20 20 | 20 4d 45 4d 4f 52 59 5f |= 32;. | MEMORY_|
|000025f0| 53 49 5a 45 20 20 3a 20 | 63 6f 6e 73 74 61 6e 74 |SIZE : |constant|
|00002600| 20 20 20 20 20 20 3a 3d | 20 32 2a 2a 31 36 20 2d | :=| 2**16 -|
|00002610| 20 31 3b 0a 0a 20 20 20 | 2d 2d 20 53 79 73 74 65 | 1;.. |-- Syste|
|00002620| 6d 20 44 65 70 65 6e 64 | 65 6e 74 20 4e 61 6d 65 |m Depend|ent Name|
|00002630| 64 20 4e 75 6d 62 65 72 | 73 3a 0a 0a 20 20 20 4d |d Number|s:.. M|
|00002640| 49 4e 5f 49 4e 54 20 20 | 20 20 20 20 3a 20 63 6f |IN_INT | : co|
|00002650| 6e 73 74 61 6e 74 20 20 | 20 20 20 20 3a 3d 20 2d |nstant | := -|
|00002660| 32 2a 2a 33 31 3b 0a 20 | 20 20 4d 41 58 5f 49 4e |2**31;. | MAX_IN|
|00002670| 54 20 20 20 20 20 20 3a | 20 63 6f 6e 73 74 61 6e |T :| constan|
|00002680| 74 20 20 20 20 20 20 3a | 3d 20 20 32 2a 2a 33 31 |t :|= 2**31|
|00002690| 2d 31 3b 0a 20 20 20 4d | 41 58 5f 44 49 47 49 54 |-1;. M|AX_DIGIT|
|000026a0| 53 20 20 20 3a 20 63 6f | 6e 73 74 61 6e 74 20 20 |S : co|nstant |
|000026b0| 20 20 20 20 3a 3d 20 36 | 3b 0a 20 20 20 4d 41 58 | := 6|;. MAX|
|000026c0| 5f 4d 41 4e 54 49 53 53 | 41 20 3a 20 63 6f 6e 73 |_MANTISS|A : cons|
|000026d0| 74 61 6e 74 20 20 20 20 | 20 20 3a 3d 20 33 31 3b |tant | := 31;|
|000026e0| 0a 20 20 20 46 49 4e 45 | 5f 44 45 4c 54 41 20 20 |. FINE|_DELTA |
|000026f0| 20 3a 20 63 6f 6e 73 74 | 61 6e 74 20 20 20 20 20 | : const|ant |
|00002700| 20 3a 3d 20 32 2e 30 2a | 2a 28 2d 33 30 29 3b 0a | := 2.0*|*(-30);.|
|00002710| 20 20 20 54 49 43 4b 20 | 20 20 20 20 20 20 20 20 | TICK | |
|00002720| 3a 20 63 6f 6e 73 74 61 | 6e 74 20 20 20 20 20 20 |: consta|nt |
|00002730| 3a 3d 20 30 2e 30 31 3b | 0a 0a 20 20 20 2d 2d 20 |:= 0.01;|.. -- |
|00002740| 4f 74 68 65 72 20 53 79 | 73 74 65 6d 20 44 65 70 |Other Sy|stem Dep|
|00002750| 65 6e 64 65 6e 74 20 44 | 65 63 6c 61 72 61 74 69 |endent D|eclarati|
|00002760| 6f 6e 73 0a 0a 20 20 20 | 73 75 62 74 79 70 65 20 |ons.. |subtype |
|00002770| 50 52 49 4f 52 49 54 59 | 20 69 73 20 49 4e 54 45 |PRIORITY| is INTE|
|00002780| 47 45 52 20 72 61 6e 67 | 65 20 31 20 2e 2e 20 34 |GER rang|e 1 .. 4|
|00002790| 3b 0a 0a 20 20 20 74 79 | 70 65 20 53 45 47 4d 45 |;.. ty|pe SEGME|
|000027a0| 4e 54 5f 54 59 50 45 20 | 69 73 20 6e 65 77 20 49 |NT_TYPE |is new I|
|000027b0| 4e 54 45 47 45 52 20 72 | 61 6e 67 65 20 30 2e 2e |NTEGER r|ange 0..|
|000027c0| 32 35 35 3b 0a 20 20 20 | 74 79 70 65 20 4f 46 46 |255;. |type OFF|
|000027d0| 53 45 54 5f 54 59 50 45 | 20 20 69 73 20 6e 65 77 |SET_TYPE| is new|
|000027e0| 20 49 4e 54 45 47 45 52 | 20 72 61 6e 67 65 20 30 | INTEGER| range 0|
|000027f0| 2e 2e 33 32 37 36 37 3b | 0a 2d 2d 20 20 20 74 79 |..32767;|.-- ty|
|00002800| 70 65 20 41 44 44 52 45 | 53 53 20 69 73 20 72 65 |pe ADDRE|SS is re|
|00002810| 63 6f 72 64 0a 2d 2d 20 | 20 20 20 20 20 20 20 53 |cord.-- | S|
|00002820| 45 47 4d 45 4e 54 20 3a | 20 53 45 47 4d 45 4e 54 |EGMENT :| SEGMENT|
|00002830| 5f 54 59 50 45 20 3a 3d | 20 53 45 47 4d 45 4e 54 |_TYPE :=| SEGMENT|
|00002840| 5f 54 59 50 45 27 4c 41 | 53 54 3b 0a 2d 2d 20 20 |_TYPE'LA|ST;.-- |
|00002850| 20 20 20 20 20 20 4f 46 | 46 53 45 54 20 20 3a 20 | OF|FSET : |
|00002860| 4f 46 46 53 45 54 5f 54 | 59 50 45 20 20 3a 3d 20 |OFFSET_T|YPE := |
|00002870| 4f 46 46 53 45 54 5f 54 | 59 50 45 27 4c 41 53 54 |OFFSET_T|YPE'LAST|
|00002880| 3b 0a 2d 2d 20 20 20 65 | 6e 64 20 72 65 63 6f 72 |;.-- e|nd recor|
|00002890| 64 3b 0a 20 20 20 74 79 | 70 65 20 44 4f 4e 54 45 |d;. ty|pe DONTE|
|000028a0| 56 45 52 54 52 59 54 4f | 55 53 45 54 48 49 53 54 |VERTRYTO|USETHIST|
|000028b0| 59 50 45 20 69 73 20 6c | 69 6d 69 74 65 64 20 70 |YPE is l|imited p|
|000028c0| 72 69 76 61 74 65 3b 0a | 20 20 20 74 79 70 65 20 |rivate;.| type |
|000028d0| 41 44 44 52 45 53 53 20 | 69 73 20 61 63 63 65 73 |ADDRESS |is acces|
|000028e0| 73 20 44 4f 4e 54 45 56 | 45 52 54 52 59 54 4f 55 |s DONTEV|ERTRYTOU|
|000028f0| 53 45 54 48 49 53 54 59 | 50 45 3b 0a 0a 20 20 20 |SETHISTY|PE;.. |
|00002900| 53 59 53 54 45 4d 5f 45 | 52 52 4f 52 20 3a 20 65 |SYSTEM_E|RROR : e|
|00002910| 78 63 65 70 74 69 6f 6e | 3b 0a 0a 70 72 69 76 61 |xception|;..priva|
|00002920| 74 65 0a 0a 20 20 20 74 | 79 70 65 20 44 4f 4e 54 |te.. t|ype DONT|
|00002930| 45 56 45 52 54 52 59 54 | 4f 55 53 45 54 48 49 53 |EVERTRYT|OUSETHIS|
|00002940| 54 59 50 45 20 69 73 20 | 6e 65 77 20 49 4e 54 45 |TYPE is |new INTE|
|00002950| 47 45 52 3b 0a 0a 65 6e | 64 20 53 59 53 54 45 4d |GER;..en|d SYSTEM|
|00002960| 3b 0a 0a 70 61 63 6b 61 | 67 65 20 49 4f 5f 45 58 |;..packa|ge IO_EX|
|00002970| 43 45 50 54 49 4f 4e 53 | 20 69 73 0a 0a 20 20 20 |CEPTIONS| is.. |
|00002980| 53 54 41 54 55 53 5f 45 | 52 52 4f 52 20 3a 20 65 |STATUS_E|RROR : e|
|00002990| 78 63 65 70 74 69 6f 6e | 3b 0a 20 20 20 4d 4f 44 |xception|;. MOD|
|000029a0| 45 5f 45 52 52 4f 52 20 | 20 20 3a 20 65 78 63 65 |E_ERROR | : exce|
|000029b0| 70 74 69 6f 6e 3b 0a 20 | 20 20 4e 41 4d 45 5f 45 |ption;. | NAME_E|
|000029c0| 52 52 4f 52 20 20 20 3a | 20 65 78 63 65 70 74 69 |RROR :| excepti|
|000029d0| 6f 6e 3b 0a 20 20 20 55 | 53 45 5f 45 52 52 4f 52 |on;. U|SE_ERROR|
|000029e0| 20 20 20 20 3a 20 65 78 | 63 65 70 74 69 6f 6e 3b | : ex|ception;|
|000029f0| 0a 20 20 20 44 45 56 49 | 43 45 5f 45 52 52 4f 52 |. DEVI|CE_ERROR|
|00002a00| 20 3a 20 65 78 63 65 70 | 74 69 6f 6e 3b 0a 20 20 | : excep|tion;. |
|00002a10| 20 45 4e 44 5f 45 52 52 | 4f 52 20 20 20 20 3a 20 | END_ERR|OR : |
|00002a20| 65 78 63 65 70 74 69 6f | 6e 3b 0a 20 20 20 44 41 |exceptio|n;. DA|
|00002a30| 54 41 5f 45 52 52 4f 52 | 20 20 20 3a 20 65 78 63 |TA_ERROR| : exc|
|00002a40| 65 70 74 69 6f 6e 3b 0a | 20 20 20 4c 41 59 4f 55 |eption;.| LAYOU|
|00002a50| 54 5f 45 52 52 4f 52 20 | 3a 20 65 78 63 65 70 74 |T_ERROR |: except|
|00002a60| 69 6f 6e 3b 0a 0a 65 6e | 64 20 49 4f 5f 45 58 43 |ion;..en|d IO_EXC|
|00002a70| 45 50 54 49 4f 4e 53 3b | 0a 0a 70 72 61 67 6d 61 |EPTIONS;|..pragma|
|00002a80| 20 70 61 67 65 3b 0a 77 | 69 74 68 20 49 4f 5f 45 | page;.w|ith IO_E|
|00002a90| 58 43 45 50 54 49 4f 4e | 53 3b 0a 67 65 6e 65 72 |XCEPTION|S;.gener|
|00002aa0| 69 63 0a 20 20 20 20 74 | 79 70 65 20 45 4c 45 4d |ic. t|ype ELEM|
|00002ab0| 45 4e 54 5f 54 59 50 45 | 20 69 73 20 70 72 69 76 |ENT_TYPE| is priv|
|00002ac0| 61 74 65 3b 0a 0a 70 61 | 63 6b 61 67 65 20 53 45 |ate;..pa|ckage SE|
|00002ad0| 51 55 45 4e 54 49 41 4c | 5f 49 4f 20 69 73 0a 0a |QUENTIAL|_IO is..|
|00002ae0| 20 20 20 20 74 79 70 65 | 20 46 49 4c 45 5f 54 59 | type| FILE_TY|
|00002af0| 50 45 20 69 73 20 6c 69 | 6d 69 74 65 64 20 70 72 |PE is li|mited pr|
|00002b00| 69 76 61 74 65 3b 0a 20 | 20 20 20 0a 20 20 20 20 |ivate;. | . |
|00002b10| 74 79 70 65 20 46 49 4c | 45 5f 4d 4f 44 45 20 69 |type FIL|E_MODE i|
|00002b20| 73 20 28 49 4e 5f 46 49 | 4c 45 2c 20 4f 55 54 5f |s (IN_FI|LE, OUT_|
|00002b30| 46 49 4c 45 29 3b 0a 20 | 20 20 20 20 20 0a 0a 20 |FILE);. | .. |
|00002b40| 20 20 20 2d 2d 20 46 69 | 6c 65 20 6d 61 6e 61 67 | -- Fi|le manag|
|00002b50| 65 6d 65 6e 74 0a 0a 0a | 20 20 20 20 70 72 6f 63 |ement...| proc|
|00002b60| 65 64 75 72 65 20 43 52 | 45 41 54 45 20 20 20 28 |edure CR|EATE (|
|00002b70| 46 49 4c 45 20 3a 20 69 | 6e 20 6f 75 74 20 46 49 |FILE : i|n out FI|
|00002b80| 4c 45 5f 54 59 50 45 3b | 0a 20 20 20 20 20 20 20 |LE_TYPE;|. |
|00002b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ba0| 20 4d 4f 44 45 20 3a 20 | 69 6e 20 46 49 4c 45 5f | MODE : |in FILE_|
|00002bb0| 4d 4f 44 45 20 3a 3d 20 | 4f 55 54 5f 46 49 4c 45 |MODE := |OUT_FILE|
|00002bc0| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;. | |
|00002bd0| 20 20 20 20 20 20 20 20 | 20 20 4e 41 4d 45 20 3a | | NAME :|
|00002be0| 20 69 6e 20 53 54 52 49 | 4e 47 20 20 20 20 3a 3d | in STRI|NG :=|
|00002bf0| 20 22 22 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 | "";. | |
|00002c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 46 4f 52 | | FOR|
|00002c10| 4d 20 3a 20 69 6e 20 53 | 54 52 49 4e 47 20 20 20 |M : in S|TRING |
|00002c20| 20 3a 3d 20 22 22 29 3b | 0a 20 20 20 20 70 72 61 | := "");|. pra|
|00002c30| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00002c40| 28 43 52 45 41 54 45 2c | 53 49 4f 5f 43 52 45 41 |(CREATE,|SIO_CREA|
|00002c50| 54 45 2c 45 4c 45 4d 45 | 4e 54 5f 54 59 50 45 29 |TE,ELEME|NT_TYPE)|
|00002c60| 3b 0a 0a 20 20 20 20 70 | 72 6f 63 65 64 75 72 65 |;.. p|rocedure|
|00002c70| 20 4f 50 45 4e 20 20 20 | 20 20 28 46 49 4c 45 20 | OPEN | (FILE |
|00002c80| 3a 20 69 6e 20 6f 75 74 | 20 46 49 4c 45 5f 54 59 |: in out| FILE_TY|
|00002c90| 50 45 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |PE;. | |
|00002ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 4f 44 45 | | MODE|
|00002cb0| 20 3a 20 69 6e 20 46 49 | 4c 45 5f 4d 4f 44 45 3b | : in FI|LE_MODE;|
|00002cc0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002cd0| 20 20 20 20 20 20 20 20 | 20 4e 41 4d 45 20 3a 20 | | NAME : |
|00002ce0| 69 6e 20 53 54 52 49 4e | 47 3b 0a 20 20 20 20 20 |in STRIN|G;. |
|00002cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002d00| 20 20 20 46 4f 52 4d 20 | 3a 20 69 6e 20 53 54 52 | FORM |: in STR|
|00002d10| 49 4e 47 20 3a 3d 20 22 | 22 29 3b 0a 20 20 20 20 |ING := "|");. |
|00002d20| 70 72 61 67 6d 61 20 49 | 4f 5f 69 6e 74 65 72 66 |pragma I|O_interf|
|00002d30| 61 63 65 28 4f 50 45 4e | 2c 53 49 4f 5f 4f 50 45 |ace(OPEN|,SIO_OPE|
|00002d40| 4e 2c 45 4c 45 4d 45 4e | 54 5f 54 59 50 45 29 3b |N,ELEMEN|T_TYPE);|
|00002d50| 0a 0a 20 20 20 20 70 72 | 6f 63 65 64 75 72 65 20 |.. pr|ocedure |
|00002d60| 43 4c 4f 53 45 20 20 20 | 20 28 46 49 4c 45 20 3a |CLOSE | (FILE :|
|00002d70| 20 69 6e 20 6f 75 74 20 | 46 49 4c 45 5f 54 59 50 | in out |FILE_TYP|
|00002d80| 45 29 3b 0a 20 20 20 20 | 70 72 61 67 6d 61 20 49 |E);. |pragma I|
|00002d90| 4f 5f 69 6e 74 65 72 66 | 61 63 65 28 43 4c 4f 53 |O_interf|ace(CLOS|
|00002da0| 45 2c 53 49 4f 5f 43 4c | 4f 53 45 29 3b 0a 0a 20 |E,SIO_CL|OSE);.. |
|00002db0| 20 20 20 70 72 6f 63 65 | 64 75 72 65 20 44 45 4c | proce|dure DEL|
|00002dc0| 45 54 45 20 20 20 28 46 | 49 4c 45 20 3a 20 69 6e |ETE (F|ILE : in|
|00002dd0| 20 6f 75 74 20 46 49 4c | 45 5f 54 59 50 45 29 3b | out FIL|E_TYPE);|
|00002de0| 0a 20 20 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |. pra|gma IO_i|
|00002df0| 6e 74 65 72 66 61 63 65 | 28 44 45 4c 45 54 45 2c |nterface|(DELETE,|
|00002e00| 53 49 4f 5f 44 45 4c 45 | 54 45 29 3b 0a 0a 20 20 |SIO_DELE|TE);.. |
|00002e10| 20 20 70 72 6f 63 65 64 | 75 72 65 20 52 45 53 45 | proced|ure RESE|
|00002e20| 54 20 20 20 20 28 46 49 | 4c 45 20 3a 20 69 6e 20 |T (FI|LE : in |
|00002e30| 6f 75 74 20 46 49 4c 45 | 5f 54 59 50 45 3b 20 4d |out FILE|_TYPE; M|
|00002e40| 4f 44 45 20 3a 20 69 6e | 20 20 46 49 4c 45 5f 4d |ODE : in| FILE_M|
|00002e50| 4f 44 45 29 3b 0a 20 20 | 20 20 70 72 61 67 6d 61 |ODE);. | pragma|
|00002e60| 20 49 4f 5f 69 6e 74 65 | 72 66 61 63 65 28 52 45 | IO_inte|rface(RE|
|00002e70| 53 45 54 2c 53 49 4f 5f | 52 45 53 45 54 5f 4d 4f |SET,SIO_|RESET_MO|
|00002e80| 44 45 2c 45 4c 45 4d 45 | 4e 54 5f 54 59 50 45 29 |DE,ELEME|NT_TYPE)|
|00002e90| 3b 0a 20 20 20 20 70 72 | 6f 63 65 64 75 72 65 20 |;. pr|ocedure |
|00002ea0| 52 45 53 45 54 20 20 20 | 20 28 46 49 4c 45 20 3a |RESET | (FILE :|
|00002eb0| 20 69 6e 20 6f 75 74 20 | 46 49 4c 45 5f 54 59 50 | in out |FILE_TYP|
|00002ec0| 45 29 3b 0a 20 20 20 20 | 70 72 61 67 6d 61 20 49 |E);. |pragma I|
|00002ed0| 4f 5f 69 6e 74 65 72 66 | 61 63 65 28 52 45 53 45 |O_interf|ace(RESE|
|00002ee0| 54 2c 53 49 4f 5f 52 45 | 53 45 54 2c 45 4c 45 4d |T,SIO_RE|SET,ELEM|
|00002ef0| 45 4e 54 5f 54 59 50 45 | 29 3b 0a 0a 20 20 20 20 |ENT_TYPE|);.. |
|00002f00| 66 75 6e 63 74 69 6f 6e | 20 20 4d 4f 44 45 20 20 |function| MODE |
|00002f10| 20 20 20 28 46 49 4c 45 | 20 3a 20 69 6e 20 46 49 | (FILE| : in FI|
|00002f20| 4c 45 5f 54 59 50 45 29 | 20 20 72 65 74 75 72 6e |LE_TYPE)| return|
|00002f30| 20 46 49 4c 45 5f 4d 4f | 44 45 3b 0a 20 20 20 20 | FILE_MO|DE;. |
|00002f40| 70 72 61 67 6d 61 20 49 | 4f 5f 69 6e 74 65 72 66 |pragma I|O_interf|
|00002f50| 61 63 65 28 4d 4f 44 45 | 2c 53 49 4f 5f 4d 4f 44 |ace(MODE|,SIO_MOD|
|00002f60| 45 29 3b 0a 0a 20 20 20 | 20 66 75 6e 63 74 69 6f |E);.. | functio|
|00002f70| 6e 20 20 4e 41 4d 45 20 | 20 20 20 20 28 46 49 4c |n NAME | (FIL|
|00002f80| 45 20 3a 20 69 6e 20 46 | 49 4c 45 5f 54 59 50 45 |E : in F|ILE_TYPE|
|00002f90| 29 20 20 72 65 74 75 72 | 6e 20 53 54 52 49 4e 47 |) retur|n STRING|
|00002fa0| 3b 0a 20 20 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |;. pr|agma IO_|
|00002fb0| 69 6e 74 65 72 66 61 63 | 65 28 4e 41 4d 45 2c 53 |interfac|e(NAME,S|
|00002fc0| 49 4f 5f 4e 41 4d 45 29 | 3b 0a 0a 20 20 20 20 66 |IO_NAME)|;.. f|
|00002fd0| 75 6e 63 74 69 6f 6e 20 | 20 46 4f 52 4d 20 20 20 |unction | FORM |
|00002fe0| 20 20 28 46 49 4c 45 20 | 3a 20 69 6e 20 46 49 4c | (FILE |: in FIL|
|00002ff0| 45 5f 54 59 50 45 29 20 | 20 72 65 74 75 72 6e 20 |E_TYPE) | return |
|00003000| 53 54 52 49 4e 47 3b 0a | 20 20 20 20 70 72 61 67 |STRING;.| prag|
|00003010| 6d 61 20 49 4f 5f 69 6e | 74 65 72 66 61 63 65 28 |ma IO_in|terface(|
|00003020| 46 4f 52 4d 2c 53 49 4f | 5f 46 4f 52 4d 29 3b 0a |FORM,SIO|_FORM);.|
|00003030| 20 20 20 20 0a 20 20 20 | 20 66 75 6e 63 74 69 6f | . | functio|
|00003040| 6e 20 20 49 53 5f 4f 50 | 45 4e 20 20 28 46 49 4c |n IS_OP|EN (FIL|
|00003050| 45 20 3a 20 69 6e 20 46 | 49 4c 45 5f 54 59 50 45 |E : in F|ILE_TYPE|
|00003060| 29 20 20 72 65 74 75 72 | 6e 20 42 4f 4f 4c 45 41 |) retur|n BOOLEA|
|00003070| 4e 3b 0a 20 20 20 20 70 | 72 61 67 6d 61 20 49 4f |N;. p|ragma IO|
|00003080| 5f 69 6e 74 65 72 66 61 | 63 65 28 49 53 5f 4f 50 |_interfa|ce(IS_OP|
|00003090| 45 4e 2c 53 49 4f 5f 49 | 53 5f 4f 50 45 4e 29 3b |EN,SIO_I|S_OPEN);|
|000030a0| 0a 0a 20 20 20 20 2d 2d | 20 49 6e 70 75 74 20 61 |.. --| Input a|
|000030b0| 6e 64 20 4f 75 74 70 75 | 74 20 4f 70 65 72 61 74 |nd Outpu|t Operat|
|000030c0| 69 6f 6e 73 3a 0a 0a 20 | 20 20 20 70 72 6f 63 65 |ions:.. | proce|
|000030d0| 64 75 72 65 20 52 45 41 | 44 20 20 20 28 46 49 4c |dure REA|D (FIL|
|000030e0| 45 20 3a 20 69 6e 20 46 | 49 4c 45 5f 54 59 50 45 |E : in F|ILE_TYPE|
|000030f0| 3b 20 49 54 45 4d 20 3a | 20 6f 75 74 20 45 4c 45 |; ITEM :| out ELE|
|00003100| 4d 45 4e 54 5f 54 59 50 | 45 29 3b 0a 20 20 20 20 |MENT_TYP|E);. |
|00003110| 70 72 61 67 6d 61 20 49 | 4f 5f 69 6e 74 65 72 66 |pragma I|O_interf|
|00003120| 61 63 65 28 52 45 41 44 | 2c 53 49 4f 5f 52 45 41 |ace(READ|,SIO_REA|
|00003130| 44 2c 45 4c 45 4d 45 4e | 54 5f 54 59 50 45 29 3b |D,ELEMEN|T_TYPE);|
|00003140| 0a 0a 20 20 20 20 70 72 | 6f 63 65 64 75 72 65 20 |.. pr|ocedure |
|00003150| 57 52 49 54 45 20 20 28 | 46 49 4c 45 20 3a 20 69 |WRITE (|FILE : i|
|00003160| 6e 20 46 49 4c 45 5f 54 | 59 50 45 3b 20 49 54 45 |n FILE_T|YPE; ITE|
|00003170| 4d 20 3a 20 69 6e 20 45 | 4c 45 4d 45 4e 54 5f 54 |M : in E|LEMENT_T|
|00003180| 59 50 45 29 3b 0a 20 20 | 20 20 70 72 61 67 6d 61 |YPE);. | pragma|
|00003190| 20 49 4f 5f 69 6e 74 65 | 72 66 61 63 65 28 57 52 | IO_inte|rface(WR|
|000031a0| 49 54 45 2c 53 49 4f 5f | 57 52 49 54 45 2c 45 4c |ITE,SIO_|WRITE,EL|
|000031b0| 45 4d 45 4e 54 5f 54 59 | 50 45 29 3b 0a 0a 20 20 |EMENT_TY|PE);.. |
|000031c0| 20 20 66 75 6e 63 74 69 | 6f 6e 20 20 45 4e 44 5f | functi|on END_|
|000031d0| 4f 46 5f 46 49 4c 45 28 | 46 49 4c 45 20 3a 20 69 |OF_FILE(|FILE : i|
|000031e0| 6e 20 46 49 4c 45 5f 54 | 59 50 45 29 20 72 65 74 |n FILE_T|YPE) ret|
|000031f0| 75 72 6e 20 42 4f 4f 4c | 45 41 4e 3b 0a 20 20 20 |urn BOOL|EAN;. |
|00003200| 20 70 72 61 67 6d 61 20 | 49 4f 5f 69 6e 74 65 72 | pragma |IO_inter|
|00003210| 66 61 63 65 28 45 4e 44 | 5f 4f 46 5f 46 49 4c 45 |face(END|_OF_FILE|
|00003220| 2c 53 49 4f 5f 45 4e 44 | 5f 4f 46 5f 46 49 4c 45 |,SIO_END|_OF_FILE|
|00003230| 29 3b 0a 0a 20 20 20 20 | 2d 2d 20 45 78 63 65 70 |);.. |-- Excep|
|00003240| 74 69 6f 6e 73 3a 0a 0a | 20 20 20 20 53 54 41 54 |tions:..| STAT|
|00003250| 55 53 5f 45 52 52 4f 52 | 20 3a 20 65 78 63 65 70 |US_ERROR| : excep|
|00003260| 74 69 6f 6e 20 72 65 6e | 61 6d 65 73 20 49 4f 5f |tion ren|ames IO_|
|00003270| 45 58 43 45 50 54 49 4f | 4e 53 2e 53 54 41 54 55 |EXCEPTIO|NS.STATU|
|00003280| 53 5f 45 52 52 4f 52 3b | 0a 20 20 20 20 4d 4f 44 |S_ERROR;|. MOD|
|00003290| 45 5f 45 52 52 4f 52 20 | 20 20 3a 20 65 78 63 65 |E_ERROR | : exce|
|000032a0| 70 74 69 6f 6e 20 72 65 | 6e 61 6d 65 73 20 49 4f |ption re|names IO|
|000032b0| 5f 45 58 43 45 50 54 49 | 4f 4e 53 2e 4d 4f 44 45 |_EXCEPTI|ONS.MODE|
|000032c0| 5f 45 52 52 4f 52 3b 0a | 20 20 20 20 4e 41 4d 45 |_ERROR;.| NAME|
|000032d0| 5f 45 52 52 4f 52 09 20 | 3a 20 65 78 63 65 70 74 |_ERROR. |: except|
|000032e0| 69 6f 6e 20 72 65 6e 61 | 6d 65 73 20 49 4f 5f 45 |ion rena|mes IO_E|
|000032f0| 58 43 45 50 54 49 4f 4e | 53 2e 4e 41 4d 45 5f 45 |XCEPTION|S.NAME_E|
|00003300| 52 52 4f 52 3b 0a 20 20 | 20 20 55 53 45 5f 45 52 |RROR;. | USE_ER|
|00003310| 52 4f 52 09 20 3a 20 65 | 78 63 65 70 74 69 6f 6e |ROR. : e|xception|
|00003320| 20 72 65 6e 61 6d 65 73 | 20 49 4f 5f 45 58 43 45 | renames| IO_EXCE|
|00003330| 50 54 49 4f 4e 53 2e 55 | 53 45 5f 45 52 52 4f 52 |PTIONS.U|SE_ERROR|
|00003340| 3b 0a 20 20 20 20 44 45 | 56 49 43 45 5f 45 52 52 |;. DE|VICE_ERR|
|00003350| 4f 52 20 3a 20 65 78 63 | 65 70 74 69 6f 6e 20 72 |OR : exc|eption r|
|00003360| 65 6e 61 6d 65 73 20 49 | 4f 5f 45 58 43 45 50 54 |enames I|O_EXCEPT|
|00003370| 49 4f 4e 53 2e 44 45 56 | 49 43 45 5f 45 52 52 4f |IONS.DEV|ICE_ERRO|
|00003380| 52 3b 0a 20 20 20 20 45 | 4e 44 5f 45 52 52 4f 52 |R;. E|ND_ERROR|
|00003390| 09 20 3a 20 65 78 63 65 | 70 74 69 6f 6e 20 72 65 |. : exce|ption re|
|000033a0| 6e 61 6d 65 73 20 49 4f | 5f 45 58 43 45 50 54 49 |names IO|_EXCEPTI|
|000033b0| 4f 4e 53 2e 45 4e 44 5f | 45 52 52 4f 52 3b 0a 20 |ONS.END_|ERROR;. |
|000033c0| 20 20 20 44 41 54 41 5f | 45 52 52 4f 52 09 20 3a | DATA_|ERROR. :|
|000033d0| 20 65 78 63 65 70 74 69 | 6f 6e 20 72 65 6e 61 6d | excepti|on renam|
|000033e0| 65 73 20 49 4f 5f 45 58 | 43 45 50 54 49 4f 4e 53 |es IO_EX|CEPTIONS|
|000033f0| 2e 44 41 54 41 5f 45 52 | 52 4f 52 3b 0a 0a 70 72 |.DATA_ER|ROR;..pr|
|00003400| 69 76 61 74 65 0a 0a 20 | 20 20 20 55 4e 49 4e 49 |ivate.. | UNINI|
|00003410| 54 49 41 4c 49 5a 45 44 | 3a 20 63 6f 6e 73 74 61 |TIALIZED|: consta|
|00003420| 6e 74 20 3a 3d 20 30 3b | 0a 20 20 20 20 74 79 70 |nt := 0;|. typ|
|00003430| 65 20 46 49 4c 45 5f 54 | 59 50 45 20 69 73 20 72 |e FILE_T|YPE is r|
|00003440| 65 63 6f 72 64 0a 20 20 | 20 20 20 20 20 20 20 20 |ecord. | |
|00003450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 | | F|
|00003460| 49 4c 45 4e 55 4d 3a 20 | 49 4e 54 45 47 45 52 20 |ILENUM: |INTEGER |
|00003470| 3a 3d 20 55 4e 49 4e 49 | 54 49 41 4c 49 5a 45 44 |:= UNINI|TIALIZED|
|00003480| 3b 20 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; . | |
|00003490| 20 20 20 20 20 20 20 20 | 20 65 6e 64 20 72 65 63 | | end rec|
|000034a0| 6f 72 64 3b 0a 0a 65 6e | 64 20 53 45 51 55 45 4e |ord;..en|d SEQUEN|
|000034b0| 54 49 41 4c 5f 49 4f 3b | 0a 0a 70 61 63 6b 61 67 |TIAL_IO;|..packag|
|000034c0| 65 20 62 6f 64 79 20 53 | 45 51 55 45 4e 54 49 41 |e body S|EQUENTIA|
|000034d0| 4c 5f 49 4f 20 69 73 0a | 65 6e 64 20 53 45 51 55 |L_IO is.|end SEQU|
|000034e0| 45 4e 54 49 41 4c 5f 49 | 4f 3b 0a 0a 70 72 61 67 |ENTIAL_I|O;..prag|
|000034f0| 6d 61 20 70 61 67 65 3b | 0a 77 69 74 68 20 49 4f |ma page;|.with IO|
|00003500| 5f 45 58 43 45 50 54 49 | 4f 4e 53 3b 0a 67 65 6e |_EXCEPTI|ONS;.gen|
|00003510| 65 72 69 63 0a 20 20 20 | 20 74 79 70 65 20 45 4c |eric. | type EL|
|00003520| 45 4d 45 4e 54 5f 54 59 | 50 45 20 69 73 20 70 72 |EMENT_TY|PE is pr|
|00003530| 69 76 61 74 65 3b 0a 0a | 70 61 63 6b 61 67 65 20 |ivate;..|package |
|00003540| 44 49 52 45 43 54 5f 49 | 4f 20 69 73 0a 0a 20 20 |DIRECT_I|O is.. |
|00003550| 20 20 74 79 70 65 20 20 | 46 49 4c 45 5f 54 59 50 | type |FILE_TYP|
|00003560| 45 20 20 69 73 20 6c 69 | 6d 69 74 65 64 20 70 72 |E is li|mited pr|
|00003570| 69 76 61 74 65 3b 0a 0a | 20 20 20 20 74 79 70 65 |ivate;..| type|
|00003580| 20 20 20 20 46 49 4c 45 | 5f 4d 4f 44 45 20 20 20 | FILE|_MODE |
|00003590| 20 20 20 20 69 73 20 28 | 49 4e 5f 46 49 4c 45 2c | is (|IN_FILE,|
|000035a0| 20 49 4e 4f 55 54 5f 46 | 49 4c 45 2c 20 4f 55 54 | INOUT_F|ILE, OUT|
|000035b0| 5f 46 49 4c 45 29 3b 0a | 20 20 20 20 74 79 70 65 |_FILE);.| type|
|000035c0| 20 20 20 20 43 4f 55 4e | 54 20 20 20 20 20 20 20 | COUN|T |
|000035d0| 20 20 20 20 69 73 20 72 | 61 6e 67 65 20 30 20 2e | is r|ange 0 .|
|000035e0| 2e 20 49 4e 54 45 47 45 | 52 27 4c 41 53 54 3b 0a |. INTEGE|R'LAST;.|
|000035f0| 20 20 20 20 73 75 62 74 | 79 70 65 20 50 4f 53 49 | subt|ype POSI|
|00003600| 54 49 56 45 5f 43 4f 55 | 4e 54 20 20 69 73 20 43 |TIVE_COU|NT is C|
|00003610| 4f 55 4e 54 20 72 61 6e | 67 65 20 31 20 2e 2e 20 |OUNT ran|ge 1 .. |
|00003620| 43 4f 55 4e 54 27 4c 41 | 53 54 3b 20 20 20 20 0a |COUNT'LA|ST; .|
|00003630| 20 20 20 20 20 20 0a 0a | 20 20 20 20 2d 2d 20 46 | ..| -- F|
|00003640| 69 6c 65 20 6d 61 6e 61 | 67 65 6d 65 6e 74 0a 0a |ile mana|gement..|
|00003650| 0a 20 20 20 20 70 72 6f | 63 65 64 75 72 65 20 43 |. pro|cedure C|
|00003660| 52 45 41 54 45 20 20 20 | 28 46 49 4c 45 20 3a 20 |REATE |(FILE : |
|00003670| 69 6e 20 6f 75 74 20 46 | 49 4c 45 5f 54 59 50 45 |in out F|ILE_TYPE|
|00003680| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;. | |
|00003690| 20 20 20 20 20 20 20 20 | 20 20 4d 4f 44 45 20 3a | | MODE :|
|000036a0| 20 69 6e 20 46 49 4c 45 | 5f 4d 4f 44 45 20 3a 3d | in FILE|_MODE :=|
|000036b0| 20 49 4e 4f 55 54 5f 46 | 49 4c 45 3b 0a 20 20 20 | INOUT_F|ILE;. |
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000036d0| 20 20 20 20 20 4e 41 4d | 45 20 3a 20 69 6e 20 53 | NAM|E : in S|
|000036e0| 54 52 49 4e 47 20 3a 3d | 20 22 22 3b 0a 20 20 20 |TRING :=| "";. |
|000036f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003700| 20 20 20 20 20 46 4f 52 | 4d 20 3a 20 69 6e 20 53 | FOR|M : in S|
|00003710| 54 52 49 4e 47 20 3a 3d | 20 22 22 29 3b 0a 20 20 |TRING :=| "");. |
|00003720| 20 20 70 72 61 67 6d 61 | 20 49 4f 5f 69 6e 74 65 | pragma| IO_inte|
|00003730| 72 66 61 63 65 28 43 52 | 45 41 54 45 2c 44 49 4f |rface(CR|EATE,DIO|
|00003740| 5f 43 52 45 41 54 45 2c | 45 4c 45 4d 45 4e 54 5f |_CREATE,|ELEMENT_|
|00003750| 54 59 50 45 29 3b 0a 0a | 20 20 20 20 70 72 6f 63 |TYPE);..| proc|
|00003760| 65 64 75 72 65 20 4f 50 | 45 4e 20 20 20 20 20 28 |edure OP|EN (|
|00003770| 46 49 4c 45 20 3a 20 69 | 6e 20 6f 75 74 20 46 49 |FILE : i|n out FI|
|00003780| 4c 45 5f 54 59 50 45 3b | 0a 20 20 20 20 20 20 20 |LE_TYPE;|. |
|00003790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000037a0| 20 4d 4f 44 45 20 3a 20 | 69 6e 20 46 49 4c 45 5f | MODE : |in FILE_|
|000037b0| 4d 4f 44 45 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |MODE;. | |
|000037c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4e 41 | | NA|
|000037d0| 4d 45 20 3a 20 69 6e 20 | 53 54 52 49 4e 47 3b 0a |ME : in |STRING;.|
|000037e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000037f0| 20 20 20 20 20 20 20 20 | 46 4f 52 4d 20 3a 20 69 | |FORM : i|
|00003800| 6e 20 53 54 52 49 4e 47 | 20 3a 3d 20 22 22 29 3b |n STRING| := "");|
|00003810| 0a 20 20 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |. pra|gma IO_i|
|00003820| 6e 74 65 72 66 61 63 65 | 28 4f 50 45 4e 2c 44 49 |nterface|(OPEN,DI|
|00003830| 4f 5f 4f 50 45 4e 2c 45 | 4c 45 4d 45 4e 54 5f 54 |O_OPEN,E|LEMENT_T|
|00003840| 59 50 45 29 3b 0a 0a 20 | 20 20 20 70 72 6f 63 65 |YPE);.. | proce|
|00003850| 64 75 72 65 20 43 4c 4f | 53 45 20 20 20 20 28 46 |dure CLO|SE (F|
|00003860| 49 4c 45 20 3a 20 69 6e | 20 6f 75 74 20 46 49 4c |ILE : in| out FIL|
|00003870| 45 5f 54 59 50 45 29 3b | 0a 20 20 20 20 70 72 61 |E_TYPE);|. pra|
|00003880| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00003890| 28 43 4c 4f 53 45 2c 44 | 49 4f 5f 43 4c 4f 53 45 |(CLOSE,D|IO_CLOSE|
|000038a0| 29 3b 0a 0a 20 20 20 20 | 70 72 6f 63 65 64 75 72 |);.. |procedur|
|000038b0| 65 20 44 45 4c 45 54 45 | 20 20 20 28 46 49 4c 45 |e DELETE| (FILE|
|000038c0| 20 3a 20 69 6e 20 6f 75 | 74 20 46 49 4c 45 5f 54 | : in ou|t FILE_T|
|000038d0| 59 50 45 29 3b 0a 20 20 | 20 20 70 72 61 67 6d 61 |YPE);. | pragma|
|000038e0| 20 49 4f 5f 69 6e 74 65 | 72 66 61 63 65 28 44 45 | IO_inte|rface(DE|
|000038f0| 4c 45 54 45 2c 44 49 4f | 5f 44 45 4c 45 54 45 29 |LETE,DIO|_DELETE)|
|00003900| 3b 0a 0a 20 20 20 20 70 | 72 6f 63 65 64 75 72 65 |;.. p|rocedure|
|00003910| 20 52 45 53 45 54 20 20 | 20 20 28 46 49 4c 45 20 | RESET | (FILE |
|00003920| 3a 20 69 6e 20 6f 75 74 | 20 46 49 4c 45 5f 54 59 |: in out| FILE_TY|
|00003930| 50 45 3b 20 4d 4f 44 45 | 20 3a 20 69 6e 20 20 46 |PE; MODE| : in F|
|00003940| 49 4c 45 5f 4d 4f 44 45 | 29 3b 0a 20 20 20 20 70 |ILE_MODE|);. p|
|00003950| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00003960| 63 65 28 52 45 53 45 54 | 2c 44 49 4f 5f 52 45 53 |ce(RESET|,DIO_RES|
|00003970| 45 54 5f 4d 4f 44 45 2c | 45 4c 45 4d 45 4e 54 5f |ET_MODE,|ELEMENT_|
|00003980| 54 59 50 45 29 3b 0a 20 | 20 20 20 70 72 6f 63 65 |TYPE);. | proce|
|00003990| 64 75 72 65 20 52 45 53 | 45 54 20 20 20 20 28 46 |dure RES|ET (F|
|000039a0| 49 4c 45 20 3a 20 69 6e | 20 6f 75 74 20 46 49 4c |ILE : in| out FIL|
|000039b0| 45 5f 54 59 50 45 29 3b | 0a 20 20 20 20 70 72 61 |E_TYPE);|. pra|
|000039c0| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|000039d0| 28 52 45 53 45 54 2c 44 | 49 4f 5f 52 45 53 45 54 |(RESET,D|IO_RESET|
|000039e0| 2c 45 4c 45 4d 45 4e 54 | 5f 54 59 50 45 29 3b 0a |,ELEMENT|_TYPE);.|
|000039f0| 0a 20 20 20 20 66 75 6e | 63 74 69 6f 6e 20 20 4d |. fun|ction M|
|00003a00| 4f 44 45 20 20 20 20 20 | 28 46 49 4c 45 20 3a 20 |ODE |(FILE : |
|00003a10| 69 6e 20 46 49 4c 45 5f | 54 59 50 45 29 20 20 72 |in FILE_|TYPE) r|
|00003a20| 65 74 75 72 6e 20 46 49 | 4c 45 5f 4d 4f 44 45 3b |eturn FI|LE_MODE;|
|00003a30| 0a 20 20 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |. pra|gma IO_i|
|00003a40| 6e 74 65 72 66 61 63 65 | 28 4d 4f 44 45 2c 44 49 |nterface|(MODE,DI|
|00003a50| 4f 5f 4d 4f 44 45 29 3b | 0a 0a 20 20 20 20 66 75 |O_MODE);|.. fu|
|00003a60| 6e 63 74 69 6f 6e 20 20 | 4e 41 4d 45 20 20 20 20 |nction |NAME |
|00003a70| 20 28 46 49 4c 45 20 3a | 20 69 6e 20 46 49 4c 45 | (FILE :| in FILE|
|00003a80| 5f 54 59 50 45 29 20 20 | 72 65 74 75 72 6e 20 53 |_TYPE) |return S|
|00003a90| 54 52 49 4e 47 3b 0a 20 | 20 20 20 70 72 61 67 6d |TRING;. | pragm|
|00003aa0| 61 20 49 4f 5f 69 6e 74 | 65 72 66 61 63 65 28 4e |a IO_int|erface(N|
|00003ab0| 41 4d 45 2c 44 49 4f 5f | 4e 41 4d 45 29 3b 0a 0a |AME,DIO_|NAME);..|
|00003ac0| 20 20 20 20 66 75 6e 63 | 74 69 6f 6e 20 20 46 4f | func|tion FO|
|00003ad0| 52 4d 20 20 20 20 20 28 | 46 49 4c 45 20 3a 20 69 |RM (|FILE : i|
|00003ae0| 6e 20 46 49 4c 45 5f 54 | 59 50 45 29 20 20 72 65 |n FILE_T|YPE) re|
|00003af0| 74 75 72 6e 20 53 54 52 | 49 4e 47 3b 0a 20 20 20 |turn STR|ING;. |
|00003b00| 20 70 72 61 67 6d 61 20 | 49 4f 5f 69 6e 74 65 72 | pragma |IO_inter|
|00003b10| 66 61 63 65 28 46 4f 52 | 4d 2c 44 49 4f 5f 46 4f |face(FOR|M,DIO_FO|
|00003b20| 52 4d 29 3b 0a 20 20 20 | 20 0a 20 20 20 20 66 75 |RM);. | . fu|
|00003b30| 6e 63 74 69 6f 6e 20 20 | 49 53 5f 4f 50 45 4e 20 |nction |IS_OPEN |
|00003b40| 20 28 46 49 4c 45 20 3a | 20 69 6e 20 46 49 4c 45 | (FILE :| in FILE|
|00003b50| 5f 54 59 50 45 29 20 20 | 72 65 74 75 72 6e 20 42 |_TYPE) |return B|
|00003b60| 4f 4f 4c 45 41 4e 3b 0a | 20 20 20 20 70 72 61 67 |OOLEAN;.| prag|
|00003b70| 6d 61 20 49 4f 5f 69 6e | 74 65 72 66 61 63 65 28 |ma IO_in|terface(|
|00003b80| 49 53 5f 4f 50 45 4e 2c | 44 49 4f 5f 49 53 5f 4f |IS_OPEN,|DIO_IS_O|
|00003b90| 50 45 4e 29 3b 0a 0a 20 | 20 20 20 2d 2d 20 49 6e |PEN);.. | -- In|
|00003ba0| 70 75 74 20 61 6e 64 20 | 4f 75 74 70 75 74 20 4f |put and |Output O|
|00003bb0| 70 65 72 61 74 69 6f 6e | 73 3a 0a 0a 20 20 20 20 |peration|s:.. |
|00003bc0| 70 72 6f 63 65 64 75 72 | 65 20 52 45 41 44 20 20 |procedur|e READ |
|00003bd0| 20 28 46 49 4c 45 20 3a | 20 69 6e 20 46 49 4c 45 | (FILE :| in FILE|
|00003be0| 5f 54 59 50 45 3b 20 49 | 54 45 4d 20 3a 20 6f 75 |_TYPE; I|TEM : ou|
|00003bf0| 74 20 45 4c 45 4d 45 4e | 54 5f 54 59 50 45 29 3b |t ELEMEN|T_TYPE);|
|00003c00| 0a 20 20 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |. pra|gma IO_i|
|00003c10| 6e 74 65 72 66 61 63 65 | 28 52 45 41 44 2c 44 49 |nterface|(READ,DI|
|00003c20| 4f 5f 52 45 41 44 2c 45 | 4c 45 4d 45 4e 54 5f 54 |O_READ,E|LEMENT_T|
|00003c30| 59 50 45 29 3b 0a 20 20 | 20 20 70 72 6f 63 65 64 |YPE);. | proced|
|00003c40| 75 72 65 20 52 45 41 44 | 20 20 20 28 46 49 4c 45 |ure READ| (FILE|
|00003c50| 20 3a 20 69 6e 20 46 49 | 4c 45 5f 54 59 50 45 3b | : in FI|LE_TYPE;|
|00003c60| 20 49 54 45 4d 20 3a 20 | 6f 75 74 20 45 4c 45 4d | ITEM : |out ELEM|
|00003c70| 45 4e 54 5f 54 59 50 45 | 3b 0a 20 20 20 20 20 20 |ENT_TYPE|;. |
|00003c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ca0| 20 20 20 20 20 46 52 4f | 4d 20 3a 20 69 6e 20 50 | FRO|M : in P|
|00003cb0| 4f 53 49 54 49 56 45 5f | 43 4f 55 4e 54 29 3b 0a |OSITIVE_|COUNT);.|
|00003cc0| 20 20 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e | prag|ma IO_in|
|00003cd0| 74 65 72 66 61 63 65 28 | 52 45 41 44 2c 44 49 4f |terface(|READ,DIO|
|00003ce0| 5f 52 45 41 44 5f 46 52 | 4f 4d 2c 45 4c 45 4d 45 |_READ_FR|OM,ELEME|
|00003cf0| 4e 54 5f 54 59 50 45 29 | 3b 0a 0a 20 20 20 20 70 |NT_TYPE)|;.. p|
|00003d00| 72 6f 63 65 64 75 72 65 | 20 57 52 49 54 45 20 20 |rocedure| WRITE |
|00003d10| 28 46 49 4c 45 20 3a 20 | 69 6e 20 46 49 4c 45 5f |(FILE : |in FILE_|
|00003d20| 54 59 50 45 3b 20 20 49 | 54 45 4d 20 3a 20 69 6e |TYPE; I|TEM : in|
|00003d30| 20 45 4c 45 4d 45 4e 54 | 5f 54 59 50 45 29 3b 0a | ELEMENT|_TYPE);.|
|00003d40| 20 20 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e | prag|ma IO_in|
|00003d50| 74 65 72 66 61 63 65 28 | 57 52 49 54 45 2c 44 49 |terface(|WRITE,DI|
|00003d60| 4f 5f 57 52 49 54 45 2c | 45 4c 45 4d 45 4e 54 5f |O_WRITE,|ELEMENT_|
|00003d70| 54 59 50 45 29 3b 0a 20 | 20 20 20 70 72 6f 63 65 |TYPE);. | proce|
|00003d80| 64 75 72 65 20 57 52 49 | 54 45 20 20 28 46 49 4c |dure WRI|TE (FIL|
|00003d90| 45 20 3a 20 69 6e 20 46 | 49 4c 45 5f 54 59 50 45 |E : in F|ILE_TYPE|
|00003da0| 3b 20 20 49 54 45 4d 20 | 3a 20 69 6e 20 45 4c 45 |; ITEM |: in ELE|
|00003db0| 4d 45 4e 54 5f 54 59 50 | 45 3b 0a 20 20 20 20 20 |MENT_TYP|E;. |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003de0| 20 20 20 20 20 20 20 54 | 4f 20 20 20 3a 20 69 6e | T|O : in|
|00003df0| 20 50 4f 53 49 54 49 56 | 45 5f 43 4f 55 4e 54 29 | POSITIV|E_COUNT)|
|00003e00| 3b 0a 20 20 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |;. pr|agma IO_|
|00003e10| 69 6e 74 65 72 66 61 63 | 65 28 57 52 49 54 45 2c |interfac|e(WRITE,|
|00003e20| 44 49 4f 5f 57 52 49 54 | 45 5f 54 4f 2c 45 4c 45 |DIO_WRIT|E_TO,ELE|
|00003e30| 4d 45 4e 54 5f 54 59 50 | 45 29 3b 0a 0a 20 20 20 |MENT_TYP|E);.. |
|00003e40| 20 70 72 6f 63 65 64 75 | 72 65 20 53 45 54 5f 49 | procedu|re SET_I|
|00003e50| 4e 44 45 58 28 46 49 4c | 45 20 3a 20 69 6e 20 46 |NDEX(FIL|E : in F|
|00003e60| 49 4c 45 5f 54 59 50 45 | 3b 20 54 4f 20 3a 69 6e |ILE_TYPE|; TO :in|
|00003e70| 20 50 4f 53 49 54 49 56 | 45 5f 43 4f 55 4e 54 29 | POSITIV|E_COUNT)|
|00003e80| 3b 0a 20 20 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |;. pr|agma IO_|
|00003e90| 69 6e 74 65 72 66 61 63 | 65 28 53 45 54 5f 49 4e |interfac|e(SET_IN|
|00003ea0| 44 45 58 2c 44 49 4f 5f | 53 45 54 5f 49 4e 44 45 |DEX,DIO_|SET_INDE|
|00003eb0| 58 29 3b 0a 20 20 20 0a | 20 20 20 20 66 75 6e 63 |X);. .| func|
|00003ec0| 74 69 6f 6e 20 20 49 4e | 44 45 58 20 20 20 20 28 |tion IN|DEX (|
|00003ed0| 46 49 4c 45 20 3a 20 69 | 6e 20 46 49 4c 45 5f 54 |FILE : i|n FILE_T|
|00003ee0| 59 50 45 29 20 20 72 65 | 74 75 72 6e 20 50 4f 53 |YPE) re|turn POS|
|00003ef0| 49 54 49 56 45 5f 43 4f | 55 4e 54 3b 0a 20 20 20 |ITIVE_CO|UNT;. |
|00003f00| 20 70 72 61 67 6d 61 20 | 49 4f 5f 69 6e 74 65 72 | pragma |IO_inter|
|00003f10| 66 61 63 65 28 49 4e 44 | 45 58 2c 44 49 4f 5f 49 |face(IND|EX,DIO_I|
|00003f20| 4e 44 45 58 29 3b 0a 0a | 20 20 20 20 66 75 6e 63 |NDEX);..| func|
|00003f30| 74 69 6f 6e 20 20 53 49 | 5a 45 20 20 20 20 20 28 |tion SI|ZE (|
|00003f40| 46 49 4c 45 20 3a 20 69 | 6e 20 46 49 4c 45 5f 54 |FILE : i|n FILE_T|
|00003f50| 59 50 45 29 20 20 72 65 | 74 75 72 6e 20 43 4f 55 |YPE) re|turn COU|
|00003f60| 4e 54 3b 0a 20 20 20 20 | 70 72 61 67 6d 61 20 49 |NT;. |pragma I|
|00003f70| 4f 5f 69 6e 74 65 72 66 | 61 63 65 28 53 49 5a 45 |O_interf|ace(SIZE|
|00003f80| 2c 44 49 4f 5f 53 49 5a | 45 29 3b 0a 20 20 20 20 |,DIO_SIZ|E);. |
|00003f90| 20 20 0a 20 20 20 20 66 | 75 6e 63 74 69 6f 6e 20 | . f|unction |
|00003fa0| 20 45 4e 44 5f 4f 46 5f | 46 49 4c 45 28 46 49 4c | END_OF_|FILE(FIL|
|00003fb0| 45 20 3a 20 69 6e 20 46 | 49 4c 45 5f 54 59 50 45 |E : in F|ILE_TYPE|
|00003fc0| 29 20 72 65 74 75 72 6e | 20 42 4f 4f 4c 45 41 4e |) return| BOOLEAN|
|00003fd0| 3b 0a 20 20 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |;. pr|agma IO_|
|00003fe0| 69 6e 74 65 72 66 61 63 | 65 28 45 4e 44 5f 4f 46 |interfac|e(END_OF|
|00003ff0| 5f 46 49 4c 45 2c 44 49 | 4f 5f 45 4e 44 5f 4f 46 |_FILE,DI|O_END_OF|
|00004000| 5f 46 49 4c 45 29 3b 0a | 0a 20 20 20 20 2d 2d 20 |_FILE);.|. -- |
|00004010| 45 78 63 65 70 74 69 6f | 6e 73 3a 0a 0a 20 20 20 |Exceptio|ns:.. |
|00004020| 20 53 54 41 54 55 53 5f | 45 52 52 4f 52 20 3a 20 | STATUS_|ERROR : |
|00004030| 65 78 63 65 70 74 69 6f | 6e 20 72 65 6e 61 6d 65 |exceptio|n rename|
|00004040| 73 20 49 4f 5f 45 58 43 | 45 50 54 49 4f 4e 53 2e |s IO_EXC|EPTIONS.|
|00004050| 53 54 41 54 55 53 5f 45 | 52 52 4f 52 3b 0a 20 20 |STATUS_E|RROR;. |
|00004060| 20 20 4d 4f 44 45 5f 45 | 52 52 4f 52 20 20 20 3a | MODE_E|RROR :|
|00004070| 20 65 78 63 65 70 74 69 | 6f 6e 20 72 65 6e 61 6d | excepti|on renam|
|00004080| 65 73 20 49 4f 5f 45 58 | 43 45 50 54 49 4f 4e 53 |es IO_EX|CEPTIONS|
|00004090| 2e 4d 4f 44 45 5f 45 52 | 52 4f 52 3b 0a 20 20 20 |.MODE_ER|ROR;. |
|000040a0| 20 4e 41 4d 45 5f 45 52 | 52 4f 52 09 20 3a 20 65 | NAME_ER|ROR. : e|
|000040b0| 78 63 65 70 74 69 6f 6e | 20 72 65 6e 61 6d 65 73 |xception| renames|
|000040c0| 20 49 4f 5f 45 58 43 45 | 50 54 49 4f 4e 53 2e 4e | IO_EXCE|PTIONS.N|
|000040d0| 41 4d 45 5f 45 52 52 4f | 52 3b 0a 20 20 20 20 55 |AME_ERRO|R;. U|
|000040e0| 53 45 5f 45 52 52 4f 52 | 09 20 3a 20 65 78 63 65 |SE_ERROR|. : exce|
|000040f0| 70 74 69 6f 6e 20 72 65 | 6e 61 6d 65 73 20 49 4f |ption re|names IO|
|00004100| 5f 45 58 43 45 50 54 49 | 4f 4e 53 2e 55 53 45 5f |_EXCEPTI|ONS.USE_|
|00004110| 45 52 52 4f 52 3b 0a 20 | 20 20 20 44 45 56 49 43 |ERROR;. | DEVIC|
|00004120| 45 5f 45 52 52 4f 52 20 | 3a 20 65 78 63 65 70 74 |E_ERROR |: except|
|00004130| 69 6f 6e 20 72 65 6e 61 | 6d 65 73 20 49 4f 5f 45 |ion rena|mes IO_E|
|00004140| 58 43 45 50 54 49 4f 4e | 53 2e 44 45 56 49 43 45 |XCEPTION|S.DEVICE|
|00004150| 5f 45 52 52 4f 52 3b 0a | 20 20 20 20 45 4e 44 5f |_ERROR;.| END_|
|00004160| 45 52 52 4f 52 09 20 3a | 20 65 78 63 65 70 74 69 |ERROR. :| excepti|
|00004170| 6f 6e 20 72 65 6e 61 6d | 65 73 20 49 4f 5f 45 58 |on renam|es IO_EX|
|00004180| 43 45 50 54 49 4f 4e 53 | 2e 45 4e 44 5f 45 52 52 |CEPTIONS|.END_ERR|
|00004190| 4f 52 3b 0a 20 20 20 20 | 44 41 54 41 5f 45 52 52 |OR;. |DATA_ERR|
|000041a0| 4f 52 09 20 3a 20 65 78 | 63 65 70 74 69 6f 6e 20 |OR. : ex|ception |
|000041b0| 72 65 6e 61 6d 65 73 20 | 49 4f 5f 45 58 43 45 50 |renames |IO_EXCEP|
|000041c0| 54 49 4f 4e 53 2e 44 41 | 54 41 5f 45 52 52 4f 52 |TIONS.DA|TA_ERROR|
|000041d0| 3b 0a 0a 70 72 69 76 61 | 74 65 0a 0a 20 20 20 20 |;..priva|te.. |
|000041e0| 55 4e 49 4e 49 54 49 41 | 4c 49 5a 45 44 3a 20 63 |UNINITIA|LIZED: c|
|000041f0| 6f 6e 73 74 61 6e 74 20 | 3a 3d 20 30 3b 0a 20 20 |onstant |:= 0;. |
|00004200| 20 20 74 79 70 65 20 46 | 49 4c 45 5f 54 59 50 45 | type F|ILE_TYPE|
|00004210| 20 69 73 20 72 65 63 6f | 72 64 0a 20 20 20 20 20 | is reco|rd. |
|00004220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004230| 20 20 20 20 46 49 4c 45 | 4e 55 4d 3a 20 49 4e 54 | FILE|NUM: INT|
|00004240| 45 47 45 52 20 3a 3d 20 | 55 4e 49 4e 49 54 49 41 |EGER := |UNINITIA|
|00004250| 4c 49 5a 45 44 3b 20 0a | 20 20 20 20 20 20 20 20 |LIZED; .| |
|00004260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 65 6e | | en|
|00004270| 64 20 72 65 63 6f 72 64 | 3b 0a 0a 65 6e 64 20 44 |d record|;..end D|
|00004280| 49 52 45 43 54 5f 49 4f | 3b 0a 0a 70 61 63 6b 61 |IRECT_IO|;..packa|
|00004290| 67 65 20 62 6f 64 79 20 | 44 49 52 45 43 54 5f 49 |ge body |DIRECT_I|
|000042a0| 4f 20 69 73 0a 65 6e 64 | 20 44 49 52 45 43 54 5f |O is.end| DIRECT_|
|000042b0| 49 4f 3b 0a 0a 70 72 61 | 67 6d 61 20 70 61 67 65 |IO;..pra|gma page|
|000042c0| 3b 0a 77 69 74 68 20 49 | 4f 5f 45 58 43 45 50 54 |;.with I|O_EXCEPT|
|000042d0| 49 4f 4e 53 3b 0a 70 61 | 63 6b 61 67 65 20 54 45 |IONS;.pa|ckage TE|
|000042e0| 58 54 5f 49 4f 20 69 73 | 20 0a 20 20 20 20 20 0a |XT_IO is| . .|
|000042f0| 20 20 74 79 70 65 20 46 | 49 4c 45 5f 54 59 50 45 | type F|ILE_TYPE|
|00004300| 20 20 69 73 20 6c 69 6d | 69 74 65 64 20 70 72 69 | is lim|ited pri|
|00004310| 76 61 74 65 3b 0a 20 0a | 20 20 74 79 70 65 20 46 |vate;. .| type F|
|00004320| 49 4c 45 5f 4d 4f 44 45 | 20 20 69 73 20 28 49 4e |ILE_MODE| is (IN|
|00004330| 5f 46 49 4c 45 2c 20 4f | 55 54 5f 46 49 4c 45 29 |_FILE, O|UT_FILE)|
|00004340| 3b 0a 0a 20 20 74 79 70 | 65 20 43 4f 55 4e 54 20 |;.. typ|e COUNT |
|00004350| 69 73 20 72 61 6e 67 65 | 20 30 20 2e 2e 20 33 32 |is range| 0 .. 32|
|00004360| 37 36 37 3b 0a 0a 20 20 | 73 75 62 74 79 70 65 20 |767;.. |subtype |
|00004370| 50 4f 53 49 54 49 56 45 | 5f 43 4f 55 4e 54 20 49 |POSITIVE|_COUNT I|
|00004380| 53 20 43 4f 55 4e 54 20 | 72 61 6e 67 65 20 31 20 |S COUNT |range 1 |
|00004390| 2e 2e 20 43 4f 55 4e 54 | 27 4c 41 53 54 3b 0a 0a |.. COUNT|'LAST;..|
|000043a0| 20 20 55 4e 42 4f 55 4e | 44 45 44 20 3a 20 63 6f | UNBOUN|DED : co|
|000043b0| 6e 73 74 61 6e 74 20 43 | 4f 55 4e 54 20 3a 3d 20 |nstant C|OUNT := |
|000043c0| 30 3b 20 2d 2d 20 6c 69 | 6e 65 20 61 6e 64 20 70 |0; -- li|ne and p|
|000043d0| 61 67 65 20 6c 65 6e 67 | 74 68 0a 0a 20 20 73 75 |age leng|th.. su|
|000043e0| 62 74 79 70 65 20 46 49 | 45 4c 44 20 69 73 20 49 |btype FI|ELD is I|
|000043f0| 4e 54 45 47 45 52 20 72 | 61 6e 67 65 20 30 20 2e |NTEGER r|ange 0 .|
|00004400| 2e 20 31 30 30 20 3b 0a | 20 20 73 75 62 74 79 70 |. 100 ;.| subtyp|
|00004410| 65 20 4e 55 4d 42 45 52 | 5f 42 41 53 45 20 69 73 |e NUMBER|_BASE is|
|00004420| 20 49 4e 54 45 47 45 52 | 20 72 61 6e 67 65 20 32 | INTEGER| range 2|
|00004430| 20 2e 2e 20 31 36 3b 0a | 0a 20 20 74 79 70 65 20 | .. 16;.|. type |
|00004440| 54 59 50 45 5f 53 45 54 | 20 69 73 20 28 4c 4f 57 |TYPE_SET| is (LOW|
|00004450| 45 52 5f 43 41 53 45 2c | 20 55 50 50 45 52 5f 43 |ER_CASE,| UPPER_C|
|00004460| 41 53 45 29 3b 0a 0a 20 | 20 2d 2d 20 46 69 6c 65 |ASE);.. | -- File|
|00004470| 20 4d 61 6e 61 67 65 6d | 65 6e 74 0a 0a 20 20 20 | Managem|ent.. |
|00004480| 20 20 0a 20 20 70 72 6f | 63 65 64 75 72 65 20 43 | . pro|cedure C|
|00004490| 52 45 41 54 45 20 28 46 | 49 4c 45 20 3a 20 69 6e |REATE (F|ILE : in|
|000044a0| 20 6f 75 74 20 46 49 4c | 45 5f 54 59 50 45 3b 0a | out FIL|E_TYPE;.|
|000044b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000044c0| 20 20 20 20 4d 4f 44 45 | 20 3a 20 69 6e 20 46 49 | MODE| : in FI|
|000044d0| 4c 45 5f 4d 4f 44 45 20 | 3a 3d 20 4f 55 54 5f 46 |LE_MODE |:= OUT_F|
|000044e0| 49 4c 45 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ILE;. | |
|000044f0| 20 20 20 20 20 20 20 20 | 20 4e 41 4d 45 20 3a 20 | | NAME : |
|00004500| 69 6e 20 53 54 52 49 4e | 47 20 20 20 20 3a 3d 20 |in STRIN|G := |
|00004510| 22 22 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |"";. | |
|00004520| 20 20 20 20 20 20 20 20 | 46 4f 52 4d 20 3a 20 69 | |FORM : i|
|00004530| 6e 20 53 54 52 49 4e 47 | 20 20 20 20 3a 3d 20 22 |n STRING| := "|
|00004540| 22 29 3b 0a 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |");. pr|agma IO_|
|00004550| 69 6e 74 65 72 66 61 63 | 65 28 43 52 45 41 54 45 |interfac|e(CREATE|
|00004560| 2c 54 49 4f 5f 43 52 45 | 41 54 45 29 3b 0a 20 20 |,TIO_CRE|ATE);. |
|00004570| 20 20 0a 20 20 70 72 6f | 63 65 64 75 72 65 20 4f | . pro|cedure O|
|00004580| 50 45 4e 20 20 20 28 46 | 49 4c 45 20 3a 20 69 6e |PEN (F|ILE : in|
|00004590| 20 6f 75 74 20 46 49 4c | 45 5f 54 59 50 45 3b 0a | out FIL|E_TYPE;.|
|000045a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000045b0| 20 20 20 20 4d 4f 44 45 | 20 3a 20 69 6e 20 46 49 | MODE| : in FI|
|000045c0| 4c 45 5f 4d 4f 44 45 3b | 0a 20 20 20 20 20 20 20 |LE_MODE;|. |
|000045d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4e 41 4d | | NAM|
|000045e0| 45 20 3a 20 69 6e 20 53 | 54 52 49 4e 47 3b 0a 20 |E : in S|TRING;. |
|000045f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004600| 20 20 20 46 4f 52 4d 20 | 3a 20 69 6e 20 53 54 52 | FORM |: in STR|
|00004610| 49 4e 47 20 3a 3d 20 22 | 22 29 3b 0a 20 20 70 72 |ING := "|");. pr|
|00004620| 61 67 6d 61 20 49 4f 5f | 69 6e 74 65 72 66 61 63 |agma IO_|interfac|
|00004630| 65 28 4f 50 45 4e 2c 54 | 49 4f 5f 4f 50 45 4e 29 |e(OPEN,T|IO_OPEN)|
|00004640| 3b 0a 20 0a 20 20 70 72 | 6f 63 65 64 75 72 65 20 |;. . pr|ocedure |
|00004650| 43 4c 4f 53 45 20 20 28 | 46 49 4c 45 20 3a 20 69 |CLOSE (|FILE : i|
|00004660| 6e 20 6f 75 74 20 46 49 | 4c 45 5f 54 59 50 45 29 |n out FI|LE_TYPE)|
|00004670| 3b 0a 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e |;. prag|ma IO_in|
|00004680| 74 65 72 66 61 63 65 28 | 43 4c 4f 53 45 2c 54 49 |terface(|CLOSE,TI|
|00004690| 4f 5f 43 4c 4f 53 45 29 | 3b 0a 20 20 20 20 0a 20 |O_CLOSE)|;. . |
|000046a0| 20 70 72 6f 63 65 64 75 | 72 65 20 44 45 4c 45 54 | procedu|re DELET|
|000046b0| 45 20 28 46 49 4c 45 20 | 3a 20 69 6e 20 6f 75 74 |E (FILE |: in out|
|000046c0| 20 46 49 4c 45 5f 54 59 | 50 45 29 3b 0a 20 20 70 | FILE_TY|PE);. p|
|000046d0| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|000046e0| 63 65 28 44 45 4c 45 54 | 45 2c 54 49 4f 5f 44 45 |ce(DELET|E,TIO_DE|
|000046f0| 4c 45 54 45 29 3b 0a 0a | 20 20 70 72 6f 63 65 64 |LETE);..| proced|
|00004700| 75 72 65 20 52 45 53 45 | 54 20 20 28 46 49 4c 45 |ure RESE|T (FILE|
|00004710| 20 3a 20 69 6e 20 6f 75 | 74 20 46 49 4c 45 5f 54 | : in ou|t FILE_T|
|00004720| 59 50 45 3b 20 4d 4f 44 | 45 20 3a 20 69 6e 20 46 |YPE; MOD|E : in F|
|00004730| 49 4c 45 5f 4d 4f 44 45 | 29 3b 0a 20 20 70 72 61 |ILE_MODE|);. pra|
|00004740| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00004750| 28 52 45 53 45 54 2c 54 | 49 4f 5f 52 45 53 45 54 |(RESET,T|IO_RESET|
|00004760| 5f 4d 4f 44 45 29 3b 0a | 20 20 70 72 6f 63 65 64 |_MODE);.| proced|
|00004770| 75 72 65 20 52 45 53 45 | 54 20 20 28 46 49 4c 45 |ure RESE|T (FILE|
|00004780| 20 3a 20 69 6e 20 6f 75 | 74 20 46 49 4c 45 5f 54 | : in ou|t FILE_T|
|00004790| 59 50 45 29 3b 0a 20 20 | 70 72 61 67 6d 61 20 49 |YPE);. |pragma I|
|000047a0| 4f 5f 69 6e 74 65 72 66 | 61 63 65 28 52 45 53 45 |O_interf|ace(RESE|
|000047b0| 54 2c 54 49 4f 5f 52 45 | 53 45 54 29 3b 0a 0a 20 |T,TIO_RE|SET);.. |
|000047c0| 20 66 75 6e 63 74 69 6f | 6e 20 4d 4f 44 45 20 28 | functio|n MODE (|
|000047d0| 46 49 4c 45 20 3a 20 69 | 6e 20 46 49 4c 45 5f 54 |FILE : i|n FILE_T|
|000047e0| 59 50 45 29 20 20 20 20 | 20 72 65 74 75 72 6e 20 |YPE) | return |
|000047f0| 46 49 4c 45 5f 4d 4f 44 | 45 3b 0a 20 20 70 72 61 |FILE_MOD|E;. pra|
|00004800| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00004810| 28 4d 4f 44 45 2c 54 49 | 4f 5f 4d 4f 44 45 29 3b |(MODE,TI|O_MODE);|
|00004820| 0a 0a 20 20 66 75 6e 63 | 74 69 6f 6e 20 4e 41 4d |.. func|tion NAM|
|00004830| 45 20 28 46 49 4c 45 20 | 3a 20 69 6e 20 46 49 4c |E (FILE |: in FIL|
|00004840| 45 5f 54 59 50 45 29 20 | 20 20 20 20 72 65 74 75 |E_TYPE) | retu|
|00004850| 72 6e 20 53 54 52 49 4e | 47 3b 0a 20 20 70 72 61 |rn STRIN|G;. pra|
|00004860| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00004870| 28 4e 41 4d 45 2c 54 49 | 4f 5f 4e 41 4d 45 29 3b |(NAME,TI|O_NAME);|
|00004880| 0a 0a 20 20 66 75 6e 63 | 74 69 6f 6e 20 46 4f 52 |.. func|tion FOR|
|00004890| 4d 20 28 46 49 4c 45 20 | 3a 20 69 6e 20 46 49 4c |M (FILE |: in FIL|
|000048a0| 45 5f 54 59 50 45 29 20 | 20 20 20 20 72 65 74 75 |E_TYPE) | retu|
|000048b0| 72 6e 20 53 54 52 49 4e | 47 3b 20 20 20 20 20 20 |rn STRIN|G; |
|000048c0| 0a 20 20 70 72 61 67 6d | 61 20 49 4f 5f 69 6e 74 |. pragm|a IO_int|
|000048d0| 65 72 66 61 63 65 28 46 | 4f 52 4d 2c 54 49 4f 5f |erface(F|ORM,TIO_|
|000048e0| 46 4f 52 4d 29 3b 0a 0a | 20 20 66 75 6e 63 74 69 |FORM);..| functi|
|000048f0| 6f 6e 20 49 53 5f 4f 50 | 45 4e 20 28 46 49 4c 45 |on IS_OP|EN (FILE|
|00004900| 20 3a 20 69 6e 20 46 49 | 4c 45 5f 54 59 50 45 29 | : in FI|LE_TYPE)|
|00004910| 20 20 72 65 74 75 72 6e | 20 42 4f 4f 4c 45 41 4e | return| BOOLEAN|
|00004920| 3b 0a 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e |;. prag|ma IO_in|
|00004930| 74 65 72 66 61 63 65 28 | 49 53 5f 4f 50 45 4e 2c |terface(|IS_OPEN,|
|00004940| 54 49 4f 5f 49 53 5f 4f | 50 45 4e 29 3b 0a 0a 20 |TIO_IS_O|PEN);.. |
|00004950| 20 2d 2d 20 43 6f 6e 74 | 72 6f 6c 20 6f 66 20 64 | -- Cont|rol of d|
|00004960| 65 66 61 75 6c 74 20 69 | 6e 70 75 74 20 61 6e 64 |efault i|nput and|
|00004970| 20 6f 75 74 70 75 74 20 | 66 69 6c 65 73 0a 20 20 | output |files. |
|00004980| 20 20 20 0a 20 20 70 72 | 6f 63 65 64 75 72 65 20 | . pr|ocedure |
|00004990| 53 45 54 5f 49 4e 50 55 | 54 20 20 28 46 49 4c 45 |SET_INPU|T (FILE|
|000049a0| 20 3a 20 69 6e 20 46 49 | 4c 45 5f 54 59 50 45 29 | : in FI|LE_TYPE)|
|000049b0| 3b 0a 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e |;. prag|ma IO_in|
|000049c0| 74 65 72 66 61 63 65 28 | 53 45 54 5f 49 4e 50 55 |terface(|SET_INPU|
|000049d0| 54 2c 53 45 54 5f 49 4e | 50 55 54 29 3b 0a 20 20 |T,SET_IN|PUT);. |
|000049e0| 70 72 6f 63 65 64 75 72 | 65 20 53 45 54 5f 4f 55 |procedur|e SET_OU|
|000049f0| 54 50 55 54 20 28 46 49 | 4c 45 20 3a 20 69 6e 20 |TPUT (FI|LE : in |
|00004a00| 46 49 4c 45 5f 54 59 50 | 45 29 3b 0a 20 20 70 72 |FILE_TYP|E);. pr|
|00004a10| 61 67 6d 61 20 49 4f 5f | 69 6e 74 65 72 66 61 63 |agma IO_|interfac|
|00004a20| 65 28 53 45 54 5f 4f 55 | 54 50 55 54 2c 53 45 54 |e(SET_OU|TPUT,SET|
|00004a30| 5f 4f 55 54 50 55 54 29 | 3b 0a 0a 20 20 66 75 6e |_OUTPUT)|;.. fun|
|00004a40| 63 74 69 6f 6e 20 53 54 | 41 4e 44 41 52 44 5f 49 |ction ST|ANDARD_I|
|00004a50| 4e 50 55 54 20 20 72 65 | 74 75 72 6e 20 46 49 4c |NPUT re|turn FIL|
|00004a60| 45 5f 54 59 50 45 3b 0a | 20 20 70 72 61 67 6d 61 |E_TYPE;.| pragma|
|00004a70| 20 49 4f 5f 69 6e 74 65 | 72 66 61 63 65 28 53 54 | IO_inte|rface(ST|
|00004a80| 41 4e 44 41 52 44 5f 49 | 4e 50 55 54 2c 53 54 41 |ANDARD_I|NPUT,STA|
|00004a90| 4e 44 41 52 44 5f 49 4e | 50 55 54 29 3b 0a 20 20 |NDARD_IN|PUT);. |
|00004aa0| 66 75 6e 63 74 69 6f 6e | 20 53 54 41 4e 44 41 52 |function| STANDAR|
|00004ab0| 44 5f 4f 55 54 50 55 54 | 20 72 65 74 75 72 6e 20 |D_OUTPUT| return |
|00004ac0| 46 49 4c 45 5f 54 59 50 | 45 3b 0a 20 20 70 72 61 |FILE_TYP|E;. pra|
|00004ad0| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00004ae0| 28 53 54 41 4e 44 41 52 | 44 5f 4f 55 54 50 55 54 |(STANDAR|D_OUTPUT|
|00004af0| 2c 53 54 41 4e 44 41 52 | 44 5f 4f 55 54 50 55 54 |,STANDAR|D_OUTPUT|
|00004b00| 29 3b 0a 0a 20 20 66 75 | 6e 63 74 69 6f 6e 20 43 |);.. fu|nction C|
|00004b10| 55 52 52 45 4e 54 5f 49 | 4e 50 55 54 20 20 72 65 |URRENT_I|NPUT re|
|00004b20| 74 75 72 6e 20 46 49 4c | 45 5f 54 59 50 45 3b 0a |turn FIL|E_TYPE;.|
|00004b30| 20 20 70 72 61 67 6d 61 | 20 49 4f 5f 69 6e 74 65 | pragma| IO_inte|
|00004b40| 72 66 61 63 65 28 43 55 | 52 52 45 4e 54 5f 49 4e |rface(CU|RRENT_IN|
|00004b50| 50 55 54 2c 43 55 52 52 | 45 4e 54 5f 49 4e 50 55 |PUT,CURR|ENT_INPU|
|00004b60| 54 29 3b 0a 20 20 66 75 | 6e 63 74 69 6f 6e 20 43 |T);. fu|nction C|
|00004b70| 55 52 52 45 4e 54 5f 4f | 55 54 50 55 54 20 72 65 |URRENT_O|UTPUT re|
|00004b80| 74 75 72 6e 20 46 49 4c | 45 5f 54 59 50 45 3b 0a |turn FIL|E_TYPE;.|
|00004b90| 20 20 70 72 61 67 6d 61 | 20 49 4f 5f 69 6e 74 65 | pragma| IO_inte|
|00004ba0| 72 66 61 63 65 28 43 55 | 52 52 45 4e 54 5f 4f 55 |rface(CU|RRENT_OU|
|00004bb0| 54 50 55 54 2c 43 55 52 | 52 45 4e 54 5f 4f 55 54 |TPUT,CUR|RENT_OUT|
|00004bc0| 50 55 54 29 3b 0a 0a 20 | 20 2d 2d 20 53 70 65 63 |PUT);.. | -- Spec|
|00004bd0| 69 66 69 63 61 74 69 6f | 6e 20 6f 66 20 6c 69 6e |ificatio|n of lin|
|00004be0| 65 20 61 6e 64 20 70 61 | 67 65 20 6c 65 6e 67 74 |e and pa|ge lengt|
|00004bf0| 68 73 0a 0a 20 20 70 72 | 6f 63 65 64 75 72 65 20 |hs.. pr|ocedure |
|00004c00| 53 45 54 5f 4c 49 4e 45 | 5f 4c 45 4e 47 54 48 20 |SET_LINE|_LENGTH |
|00004c10| 28 46 49 4c 45 20 3a 20 | 69 6e 20 46 49 4c 45 5f |(FILE : |in FILE_|
|00004c20| 54 59 50 45 3b 20 20 54 | 4f 20 3a 20 69 6e 20 43 |TYPE; T|O : in C|
|00004c30| 4f 55 4e 54 29 3b 0a 20 | 20 70 72 61 67 6d 61 20 |OUNT);. | pragma |
|00004c40| 49 4f 5f 69 6e 74 65 72 | 66 61 63 65 28 53 45 54 |IO_inter|face(SET|
|00004c50| 5f 4c 49 4e 45 5f 4c 45 | 4e 47 54 48 2c 53 45 54 |_LINE_LE|NGTH,SET|
|00004c60| 5f 4c 49 4e 45 5f 4c 45 | 4e 47 54 48 5f 46 49 4c |_LINE_LE|NGTH_FIL|
|00004c70| 45 29 3b 0a 20 20 70 72 | 6f 63 65 64 75 72 65 20 |E);. pr|ocedure |
|00004c80| 53 45 54 5f 4c 49 4e 45 | 5f 4c 45 4e 47 54 48 20 |SET_LINE|_LENGTH |
|00004c90| 28 54 4f 20 3a 20 69 6e | 20 43 4f 55 4e 54 29 3b |(TO : in| COUNT);|
|00004ca0| 09 2d 2d 20 64 65 66 61 | 75 6c 74 20 6f 75 74 70 |.-- defa|ult outp|
|00004cb0| 75 74 20 66 69 6c 65 0a | 20 20 70 72 61 67 6d 61 |ut file.| pragma|
|00004cc0| 20 49 4f 5f 69 6e 74 65 | 72 66 61 63 65 28 53 45 | IO_inte|rface(SE|
|00004cd0| 54 5f 4c 49 4e 45 5f 4c | 45 4e 47 54 48 2c 53 45 |T_LINE_L|ENGTH,SE|
|00004ce0| 54 5f 4c 49 4e 45 5f 4c | 45 4e 47 54 48 29 3b 0a |T_LINE_L|ENGTH);.|
|00004cf0| 0a 20 20 70 72 6f 63 65 | 64 75 72 65 20 53 45 54 |. proce|dure SET|
|00004d00| 5f 50 41 47 45 5f 4c 45 | 4e 47 54 48 20 28 46 49 |_PAGE_LE|NGTH (FI|
|00004d10| 4c 45 20 3a 20 69 6e 20 | 46 49 4c 45 5f 54 59 50 |LE : in |FILE_TYP|
|00004d20| 45 3b 20 20 54 4f 20 3a | 20 69 6e 20 43 4f 55 4e |E; TO :| in COUN|
|00004d30| 54 29 3b 0a 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |T);. pr|agma IO_|
|00004d40| 69 6e 74 65 72 66 61 63 | 65 28 53 45 54 5f 50 41 |interfac|e(SET_PA|
|00004d50| 47 45 5f 4c 45 4e 47 54 | 48 2c 53 45 54 5f 50 41 |GE_LENGT|H,SET_PA|
|00004d60| 47 45 5f 4c 45 4e 47 54 | 48 5f 46 49 4c 45 29 3b |GE_LENGT|H_FILE);|
|00004d70| 0a 20 20 70 72 6f 63 65 | 64 75 72 65 20 53 45 54 |. proce|dure SET|
|00004d80| 5f 50 41 47 45 5f 4c 45 | 4e 47 54 48 20 28 54 4f |_PAGE_LE|NGTH (TO|
|00004d90| 20 3a 20 69 6e 20 43 4f | 55 4e 54 29 3b 20 20 20 | : in CO|UNT); |
|00004da0| 20 2d 2d 20 64 65 66 61 | 75 6c 74 20 6f 75 74 70 | -- defa|ult outp|
|00004db0| 75 74 20 66 69 6c 65 0a | 20 20 70 72 61 67 6d 61 |ut file.| pragma|
|00004dc0| 20 49 4f 5f 69 6e 74 65 | 72 66 61 63 65 28 53 45 | IO_inte|rface(SE|
|00004dd0| 54 5f 50 41 47 45 5f 4c | 45 4e 47 54 48 2c 53 45 |T_PAGE_L|ENGTH,SE|
|00004de0| 54 5f 50 41 47 45 5f 4c | 45 4e 47 54 48 29 3b 0a |T_PAGE_L|ENGTH);.|
|00004df0| 0a 20 20 66 75 6e 63 74 | 69 6f 6e 20 4c 49 4e 45 |. funct|ion LINE|
|00004e00| 5f 4c 45 4e 47 54 48 20 | 28 46 49 4c 45 20 3a 20 |_LENGTH |(FILE : |
|00004e10| 69 6e 20 46 49 4c 45 5f | 54 59 50 45 29 20 20 72 |in FILE_|TYPE) r|
|00004e20| 65 74 75 72 6e 20 43 4f | 55 4e 54 3b 0a 20 20 70 |eturn CO|UNT;. p|
|00004e30| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00004e40| 63 65 28 4c 49 4e 45 5f | 4c 45 4e 47 54 48 2c 4c |ce(LINE_|LENGTH,L|
|00004e50| 49 4e 45 5f 4c 45 4e 47 | 54 48 5f 46 49 4c 45 29 |INE_LENG|TH_FILE)|
|00004e60| 3b 0a 20 20 66 75 6e 63 | 74 69 6f 6e 20 4c 49 4e |;. func|tion LIN|
|00004e70| 45 5f 4c 45 4e 47 54 48 | 20 72 65 74 75 72 6e 20 |E_LENGTH| return |
|00004e80| 43 4f 55 4e 54 3b 20 20 | 2d 2d 20 64 65 66 61 75 |COUNT; |-- defau|
|00004e90| 6c 74 20 6f 75 74 70 75 | 74 20 66 69 6c 65 0a 20 |lt outpu|t file. |
|00004ea0| 20 70 72 61 67 6d 61 20 | 49 4f 5f 69 6e 74 65 72 | pragma |IO_inter|
|00004eb0| 66 61 63 65 28 4c 49 4e | 45 5f 4c 45 4e 47 54 48 |face(LIN|E_LENGTH|
|00004ec0| 2c 4c 49 4e 45 5f 4c 45 | 4e 47 54 48 29 3b 0a 20 |,LINE_LE|NGTH);. |
|00004ed0| 20 20 20 20 0a 20 20 0a | 20 20 66 75 6e 63 74 69 | . .| functi|
|00004ee0| 6f 6e 20 50 41 47 45 5f | 4c 45 4e 47 54 48 20 28 |on PAGE_|LENGTH (|
|00004ef0| 46 49 4c 45 20 3a 20 69 | 6e 20 46 49 4c 45 5f 54 |FILE : i|n FILE_T|
|00004f00| 59 50 45 29 20 20 72 65 | 74 75 72 6e 20 43 4f 55 |YPE) re|turn COU|
|00004f10| 4e 54 3b 0a 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |NT;. pr|agma IO_|
|00004f20| 69 6e 74 65 72 66 61 63 | 65 28 50 41 47 45 5f 4c |interfac|e(PAGE_L|
|00004f30| 45 4e 47 54 48 2c 50 41 | 47 45 5f 4c 45 4e 47 54 |ENGTH,PA|GE_LENGT|
|00004f40| 48 5f 46 49 4c 45 29 3b | 0a 20 20 66 75 6e 63 74 |H_FILE);|. funct|
|00004f50| 69 6f 6e 20 50 41 47 45 | 5f 4c 45 4e 47 54 48 20 |ion PAGE|_LENGTH |
|00004f60| 72 65 74 75 72 6e 20 43 | 4f 55 4e 54 3b 20 2d 2d |return C|OUNT; --|
|00004f70| 20 64 65 66 61 75 6c 74 | 20 6f 75 74 70 75 74 20 | default| output |
|00004f80| 66 69 6c 65 0a 20 20 70 | 72 61 67 6d 61 20 49 4f |file. p|ragma IO|
|00004f90| 5f 69 6e 74 65 72 66 61 | 63 65 28 50 41 47 45 5f |_interfa|ce(PAGE_|
|00004fa0| 4c 45 4e 47 54 48 2c 50 | 41 47 45 5f 4c 45 4e 47 |LENGTH,P|AGE_LENG|
|00004fb0| 54 48 29 3b 0a 0a 20 20 | 2d 2d 20 43 6f 6c 75 6d |TH);.. |-- Colum|
|00004fc0| 6e 2c 20 4c 69 6e 65 20 | 61 6e 64 20 50 61 67 65 |n, Line |and Page|
|00004fd0| 20 43 6f 6e 74 72 6f 6c | 0a 0a 20 20 70 72 6f 63 | Control|.. proc|
|00004fe0| 65 64 75 72 65 20 4e 45 | 57 5f 4c 49 4e 45 20 28 |edure NE|W_LINE (|
|00004ff0| 46 49 4c 45 20 3a 20 69 | 6e 20 46 49 4c 45 5f 54 |FILE : i|n FILE_T|
|00005000| 59 50 45 3b 20 20 53 50 | 41 43 49 4e 47 20 3a 20 |YPE; SP|ACING : |
|00005010| 69 6e 20 50 4f 53 49 54 | 49 56 45 5f 43 4f 55 4e |in POSIT|IVE_COUN|
|00005020| 54 20 3a 3d 20 31 29 3b | 0a 20 20 70 72 61 67 6d |T := 1);|. pragm|
|00005030| 61 20 49 4f 5f 69 6e 74 | 65 72 66 61 63 65 28 4e |a IO_int|erface(N|
|00005040| 45 57 5f 4c 49 4e 45 2c | 4e 45 57 5f 4c 49 4e 45 |EW_LINE,|NEW_LINE|
|00005050| 5f 46 49 4c 45 29 3b 0a | 20 20 70 72 6f 63 65 64 |_FILE);.| proced|
|00005060| 75 72 65 20 4e 45 57 5f | 4c 49 4e 45 20 28 53 50 |ure NEW_|LINE (SP|
|00005070| 41 43 49 4e 47 20 3a 20 | 69 6e 20 50 4f 53 49 54 |ACING : |in POSIT|
|00005080| 49 56 45 5f 43 4f 55 4e | 54 20 3a 3d 20 31 29 3b |IVE_COUN|T := 1);|
|00005090| 20 0a 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e | . prag|ma IO_in|
|000050a0| 74 65 72 66 61 63 65 28 | 4e 45 57 5f 4c 49 4e 45 |terface(|NEW_LINE|
|000050b0| 2c 4e 45 57 5f 4c 49 4e | 45 29 3b 0a 0a 20 20 70 |,NEW_LIN|E);.. p|
|000050c0| 72 6f 63 65 64 75 72 65 | 20 53 4b 49 50 5f 4c 49 |rocedure| SKIP_LI|
|000050d0| 4e 45 20 28 46 49 4c 45 | 20 3a 20 69 6e 20 46 49 |NE (FILE| : in FI|
|000050e0| 4c 45 5f 54 59 50 45 3b | 20 20 53 50 41 43 49 4e |LE_TYPE;| SPACIN|
|000050f0| 47 20 3a 20 69 6e 20 50 | 4f 53 49 54 49 56 45 5f |G : in P|OSITIVE_|
|00005100| 43 4f 55 4e 54 20 3a 3d | 20 31 29 3b 0a 20 20 70 |COUNT :=| 1);. p|
|00005110| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00005120| 63 65 28 53 4b 49 50 5f | 4c 49 4e 45 2c 53 4b 49 |ce(SKIP_|LINE,SKI|
|00005130| 50 5f 4c 49 4e 45 5f 46 | 49 4c 45 29 3b 0a 20 20 |P_LINE_F|ILE);. |
|00005140| 70 72 6f 63 65 64 75 72 | 65 20 53 4b 49 50 5f 4c |procedur|e SKIP_L|
|00005150| 49 4e 45 20 28 53 50 41 | 43 49 4e 47 20 3a 20 69 |INE (SPA|CING : i|
|00005160| 6e 20 50 4f 53 49 54 49 | 56 45 5f 43 4f 55 4e 54 |n POSITI|VE_COUNT|
|00005170| 20 3a 3d 20 31 29 3b 0a | 20 20 70 72 61 67 6d 61 | := 1);.| pragma|
|00005180| 20 49 4f 5f 69 6e 74 65 | 72 66 61 63 65 28 53 4b | IO_inte|rface(SK|
|00005190| 49 50 5f 4c 49 4e 45 2c | 53 4b 49 50 5f 4c 49 4e |IP_LINE,|SKIP_LIN|
|000051a0| 45 29 3b 0a 0a 20 20 66 | 75 6e 63 74 69 6f 6e 20 |E);.. f|unction |
|000051b0| 45 4e 44 5f 4f 46 5f 4c | 49 4e 45 20 28 46 49 4c |END_OF_L|INE (FIL|
|000051c0| 45 20 3a 20 69 6e 20 46 | 49 4c 45 5f 54 59 50 45 |E : in F|ILE_TYPE|
|000051d0| 29 20 72 65 74 75 72 6e | 20 42 4f 4f 4c 45 41 4e |) return| BOOLEAN|
|000051e0| 3b 0a 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e |;. prag|ma IO_in|
|000051f0| 74 65 72 66 61 63 65 28 | 45 4e 44 5f 4f 46 5f 4c |terface(|END_OF_L|
|00005200| 49 4e 45 2c 45 4e 44 5f | 4f 46 5f 4c 49 4e 45 5f |INE,END_|OF_LINE_|
|00005210| 46 49 4c 45 29 3b 0a 20 | 20 66 75 6e 63 74 69 6f |FILE);. | functio|
|00005220| 6e 20 45 4e 44 5f 4f 46 | 5f 4c 49 4e 45 20 72 65 |n END_OF|_LINE re|
|00005230| 74 75 72 6e 20 42 4f 4f | 4c 45 41 4e 3b 20 2d 2d |turn BOO|LEAN; --|
|00005240| 20 64 65 66 61 75 6c 74 | 20 69 6e 70 75 74 20 66 | default| input f|
|00005250| 69 6c 65 0a 20 20 70 72 | 61 67 6d 61 20 49 4f 5f |ile. pr|agma IO_|
|00005260| 69 6e 74 65 72 66 61 63 | 65 28 45 4e 44 5f 4f 46 |interfac|e(END_OF|
|00005270| 5f 4c 49 4e 45 2c 45 4e | 44 5f 4f 46 5f 4c 49 4e |_LINE,EN|D_OF_LIN|
|00005280| 45 29 3b 0a 0a 20 20 70 | 72 6f 63 65 64 75 72 65 |E);.. p|rocedure|
|00005290| 20 4e 45 57 5f 50 41 47 | 45 20 28 46 49 4c 45 20 | NEW_PAG|E (FILE |
|000052a0| 3a 20 69 6e 20 46 49 4c | 45 5f 54 59 50 45 29 3b |: in FIL|E_TYPE);|
|000052b0| 0a 20 20 70 72 61 67 6d | 61 20 49 4f 5f 69 6e 74 |. pragm|a IO_int|
|000052c0| 65 72 66 61 63 65 28 4e | 45 57 5f 50 41 47 45 2c |erface(N|EW_PAGE,|
|000052d0| 4e 45 57 5f 50 41 47 45 | 5f 46 49 4c 45 29 3b 0a |NEW_PAGE|_FILE);.|
|000052e0| 20 20 70 72 6f 63 65 64 | 75 72 65 20 4e 45 57 5f | proced|ure NEW_|
|000052f0| 50 41 47 45 3b 20 2d 2d | 20 64 65 66 61 75 6c 74 |PAGE; --| default|
|00005300| 20 6f 75 74 70 75 74 20 | 66 69 6c 65 0a 20 20 70 | output |file. p|
|00005310| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00005320| 63 65 28 4e 45 57 5f 50 | 41 47 45 2c 4e 45 57 5f |ce(NEW_P|AGE,NEW_|
|00005330| 50 41 47 45 29 3b 0a 0a | 20 20 70 72 6f 63 65 64 |PAGE);..| proced|
|00005340| 75 72 65 20 53 4b 49 50 | 5f 50 41 47 45 20 28 46 |ure SKIP|_PAGE (F|
|00005350| 49 4c 45 20 3a 20 69 6e | 20 46 49 4c 45 5f 54 59 |ILE : in| FILE_TY|
|00005360| 50 45 29 3b 0a 20 20 70 | 72 61 67 6d 61 20 49 4f |PE);. p|ragma IO|
|00005370| 5f 69 6e 74 65 72 66 61 | 63 65 28 53 4b 49 50 5f |_interfa|ce(SKIP_|
|00005380| 50 41 47 45 2c 53 4b 49 | 50 5f 50 41 47 45 5f 46 |PAGE,SKI|P_PAGE_F|
|00005390| 49 4c 45 29 3b 0a 20 20 | 70 72 6f 63 65 64 75 72 |ILE);. |procedur|
|000053a0| 65 20 53 4b 49 50 5f 50 | 41 47 45 3b 20 2d 2d 20 |e SKIP_P|AGE; -- |
|000053b0| 64 65 66 61 75 6c 74 20 | 69 6e 70 75 74 20 66 69 |default |input fi|
|000053c0| 6c 65 0a 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |le. pra|gma IO_i|
|000053d0| 6e 74 65 72 66 61 63 65 | 28 53 4b 49 50 5f 50 41 |nterface|(SKIP_PA|
|000053e0| 47 45 2c 53 4b 49 50 5f | 50 41 47 45 29 3b 0a 0a |GE,SKIP_|PAGE);..|
|000053f0| 20 20 66 75 6e 63 74 69 | 6f 6e 20 45 4e 44 5f 4f | functi|on END_O|
|00005400| 46 5f 50 41 47 45 20 28 | 46 49 4c 45 20 3a 20 69 |F_PAGE (|FILE : i|
|00005410| 6e 20 46 49 4c 45 5f 54 | 59 50 45 29 20 72 65 74 |n FILE_T|YPE) ret|
|00005420| 75 72 6e 20 42 4f 4f 4c | 45 41 4e 3b 0a 20 20 70 |urn BOOL|EAN;. p|
|00005430| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00005440| 63 65 28 45 4e 44 5f 4f | 46 5f 50 41 47 45 2c 45 |ce(END_O|F_PAGE,E|
|00005450| 4e 44 5f 4f 46 5f 50 41 | 47 45 5f 46 49 4c 45 29 |ND_OF_PA|GE_FILE)|
|00005460| 3b 0a 20 20 66 75 6e 63 | 74 69 6f 6e 20 45 4e 44 |;. func|tion END|
|00005470| 5f 4f 46 5f 50 41 47 45 | 20 72 65 74 75 72 6e 20 |_OF_PAGE| return |
|00005480| 42 4f 4f 4c 45 41 4e 3b | 20 20 20 20 20 20 0a 20 |BOOLEAN;| . |
|00005490| 20 70 72 61 67 6d 61 20 | 49 4f 5f 69 6e 74 65 72 | pragma |IO_inter|
|000054a0| 66 61 63 65 28 45 4e 44 | 5f 4f 46 5f 50 41 47 45 |face(END|_OF_PAGE|
|000054b0| 2c 45 4e 44 5f 4f 46 5f | 50 41 47 45 29 3b 0a 0a |,END_OF_|PAGE);..|
|000054c0| 20 20 66 75 6e 63 74 69 | 6f 6e 20 45 4e 44 5f 4f | functi|on END_O|
|000054d0| 46 5f 46 49 4c 45 20 28 | 46 49 4c 45 20 3a 20 69 |F_FILE (|FILE : i|
|000054e0| 6e 20 46 49 4c 45 5f 54 | 59 50 45 29 20 72 65 74 |n FILE_T|YPE) ret|
|000054f0| 75 72 6e 20 42 4f 4f 4c | 45 41 4e 3b 0a 20 20 70 |urn BOOL|EAN;. p|
|00005500| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00005510| 63 65 28 45 4e 44 5f 4f | 46 5f 46 49 4c 45 2c 54 |ce(END_O|F_FILE,T|
|00005520| 49 4f 5f 45 4e 44 5f 4f | 46 5f 46 49 4c 45 5f 46 |IO_END_O|F_FILE_F|
|00005530| 49 4c 45 29 3b 0a 20 20 | 66 75 6e 63 74 69 6f 6e |ILE);. |function|
|00005540| 20 45 4e 44 5f 4f 46 5f | 46 49 4c 45 20 72 65 74 | END_OF_|FILE ret|
|00005550| 75 72 6e 20 42 4f 4f 4c | 45 41 4e 3b 20 20 20 20 |urn BOOL|EAN; |
|00005560| 20 20 0a 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 | . pra|gma IO_i|
|00005570| 6e 74 65 72 66 61 63 65 | 28 45 4e 44 5f 4f 46 5f |nterface|(END_OF_|
|00005580| 46 49 4c 45 2c 54 49 4f | 5f 45 4e 44 5f 4f 46 5f |FILE,TIO|_END_OF_|
|00005590| 46 49 4c 45 29 3b 0a 0a | 20 20 70 72 6f 63 65 64 |FILE);..| proced|
|000055a0| 75 72 65 20 53 45 54 5f | 43 4f 4c 28 46 49 4c 45 |ure SET_|COL(FILE|
|000055b0| 20 3a 20 69 6e 20 46 49 | 4c 45 5f 54 59 50 45 3b | : in FI|LE_TYPE;|
|000055c0| 20 54 4f 20 3a 20 69 6e | 20 50 4f 53 49 54 49 56 | TO : in| POSITIV|
|000055d0| 45 5f 43 4f 55 4e 54 29 | 3b 0a 20 20 70 72 61 67 |E_COUNT)|;. prag|
|000055e0| 6d 61 20 49 4f 5f 69 6e | 74 65 72 66 61 63 65 28 |ma IO_in|terface(|
|000055f0| 53 45 54 5f 43 4f 4c 2c | 53 45 54 5f 43 4f 4c 5f |SET_COL,|SET_COL_|
|00005600| 46 49 4c 45 29 3b 0a 20 | 20 70 72 6f 63 65 64 75 |FILE);. | procedu|
|00005610| 72 65 20 53 45 54 5f 43 | 4f 4c 28 54 4f 20 3a 20 |re SET_C|OL(TO : |
|00005620| 69 6e 20 50 4f 53 49 54 | 49 56 45 5f 43 4f 55 4e |in POSIT|IVE_COUN|
|00005630| 54 29 3b 20 2d 2d 20 64 | 65 66 61 75 6c 74 20 6f |T); -- d|efault o|
|00005640| 75 74 70 75 74 20 66 69 | 6c 65 0a 20 20 70 72 61 |utput fi|le. pra|
|00005650| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00005660| 28 53 45 54 5f 43 4f 4c | 2c 53 45 54 5f 43 4f 4c |(SET_COL|,SET_COL|
|00005670| 29 3b 0a 0a 20 20 70 72 | 6f 63 65 64 75 72 65 20 |);.. pr|ocedure |
|00005680| 53 45 54 5f 4c 49 4e 45 | 28 46 49 4c 45 20 3a 20 |SET_LINE|(FILE : |
|00005690| 69 6e 20 46 49 4c 45 5f | 54 59 50 45 3b 20 54 4f |in FILE_|TYPE; TO|
|000056a0| 20 3a 20 69 6e 20 50 4f | 53 49 54 49 56 45 5f 43 | : in PO|SITIVE_C|
|000056b0| 4f 55 4e 54 29 3b 0a 20 | 20 70 72 61 67 6d 61 20 |OUNT);. | pragma |
|000056c0| 49 4f 5f 69 6e 74 65 72 | 66 61 63 65 28 53 45 54 |IO_inter|face(SET|
|000056d0| 5f 4c 49 4e 45 2c 53 45 | 54 5f 4c 49 4e 45 5f 46 |_LINE,SE|T_LINE_F|
|000056e0| 49 4c 45 29 3b 0a 20 20 | 70 72 6f 63 65 64 75 72 |ILE);. |procedur|
|000056f0| 65 20 53 45 54 5f 4c 49 | 4e 45 28 54 4f 20 3a 20 |e SET_LI|NE(TO : |
|00005700| 69 6e 20 50 4f 53 49 54 | 49 56 45 5f 43 4f 55 4e |in POSIT|IVE_COUN|
|00005710| 54 29 3b 20 2d 2d 20 64 | 65 66 61 75 6c 74 20 6f |T); -- d|efault o|
|00005720| 75 74 70 75 74 20 66 69 | 6c 65 0a 20 20 70 72 61 |utput fi|le. pra|
|00005730| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00005740| 28 53 45 54 5f 4c 49 4e | 45 2c 53 45 54 5f 4c 49 |(SET_LIN|E,SET_LI|
|00005750| 4e 45 29 3b 0a 20 20 0a | 20 20 66 75 6e 63 74 69 |NE);. .| functi|
|00005760| 6f 6e 20 43 4f 4c 28 46 | 49 4c 45 20 3a 20 69 6e |on COL(F|ILE : in|
|00005770| 20 46 49 4c 45 5f 54 59 | 50 45 29 20 72 65 74 75 | FILE_TY|PE) retu|
|00005780| 72 6e 20 50 4f 53 49 54 | 49 56 45 5f 43 4f 55 4e |rn POSIT|IVE_COUN|
|00005790| 54 3b 0a 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |T;. pra|gma IO_i|
|000057a0| 6e 74 65 72 66 61 63 65 | 28 43 4f 4c 2c 43 4f 4c |nterface|(COL,COL|
|000057b0| 5f 46 49 4c 45 29 3b 0a | 20 20 66 75 6e 63 74 69 |_FILE);.| functi|
|000057c0| 6f 6e 20 43 4f 4c 20 72 | 65 74 75 72 6e 20 50 4f |on COL r|eturn PO|
|000057d0| 53 49 54 49 56 45 5f 43 | 4f 55 4e 54 3b 20 2d 2d |SITIVE_C|OUNT; --|
|000057e0| 20 64 65 66 61 75 6c 74 | 20 6f 75 74 70 75 74 20 | default| output |
|000057f0| 66 69 6c 65 0a 20 20 70 | 72 61 67 6d 61 20 49 4f |file. p|ragma IO|
|00005800| 5f 69 6e 74 65 72 66 61 | 63 65 28 43 4f 4c 2c 43 |_interfa|ce(COL,C|
|00005810| 4f 4c 29 3b 0a 0a 20 20 | 66 75 6e 63 74 69 6f 6e |OL);.. |function|
|00005820| 20 4c 49 4e 45 28 46 49 | 4c 45 20 3a 20 69 6e 20 | LINE(FI|LE : in |
|00005830| 46 49 4c 45 5f 54 59 50 | 45 29 20 72 65 74 75 72 |FILE_TYP|E) retur|
|00005840| 6e 20 50 4f 53 49 54 49 | 56 45 5f 43 4f 55 4e 54 |n POSITI|VE_COUNT|
|00005850| 3b 0a 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e |;. prag|ma IO_in|
|00005860| 74 65 72 66 61 63 65 28 | 4c 49 4e 45 2c 4c 49 4e |terface(|LINE,LIN|
|00005870| 45 5f 46 49 4c 45 29 3b | 0a 20 20 66 75 6e 63 74 |E_FILE);|. funct|
|00005880| 69 6f 6e 20 4c 49 4e 45 | 20 72 65 74 75 72 6e 20 |ion LINE| return |
|00005890| 50 4f 53 49 54 49 56 45 | 5f 43 4f 55 4e 54 3b 20 |POSITIVE|_COUNT; |
|000058a0| 2d 2d 20 64 65 66 61 75 | 6c 74 20 6f 75 74 70 75 |-- defau|lt outpu|
|000058b0| 74 20 66 69 6c 65 0a 20 | 20 70 72 61 67 6d 61 20 |t file. | pragma |
|000058c0| 49 4f 5f 69 6e 74 65 72 | 66 61 63 65 28 4c 49 4e |IO_inter|face(LIN|
|000058d0| 45 2c 4c 49 4e 45 29 3b | 0a 0a 20 20 66 75 6e 63 |E,LINE);|.. func|
|000058e0| 74 69 6f 6e 20 50 41 47 | 45 28 46 49 4c 45 20 3a |tion PAG|E(FILE :|
|000058f0| 20 69 6e 20 46 49 4c 45 | 5f 54 59 50 45 29 20 72 | in FILE|_TYPE) r|
|00005900| 65 74 75 72 6e 20 50 4f | 53 49 54 49 56 45 5f 43 |eturn PO|SITIVE_C|
|00005910| 4f 55 4e 54 3b 0a 20 20 | 70 72 61 67 6d 61 20 49 |OUNT;. |pragma I|
|00005920| 4f 5f 69 6e 74 65 72 66 | 61 63 65 28 50 41 47 45 |O_interf|ace(PAGE|
|00005930| 2c 50 41 47 45 5f 46 49 | 4c 45 29 3b 0a 20 20 66 |,PAGE_FI|LE);. f|
|00005940| 75 6e 63 74 69 6f 6e 20 | 50 41 47 45 20 72 65 74 |unction |PAGE ret|
|00005950| 75 72 6e 20 50 4f 53 49 | 54 49 56 45 5f 43 4f 55 |urn POSI|TIVE_COU|
|00005960| 4e 54 3b 20 2d 2d 20 64 | 65 66 61 75 6c 74 20 6f |NT; -- d|efault o|
|00005970| 75 74 70 75 74 20 66 69 | 6c 65 0a 20 20 70 72 61 |utput fi|le. pra|
|00005980| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00005990| 28 50 41 47 45 2c 50 41 | 47 45 29 3b 0a 0a 0a 20 |(PAGE,PA|GE);... |
|000059a0| 20 2d 2d 20 43 68 61 72 | 61 63 74 65 72 20 49 6e | -- Char|acter In|
|000059b0| 70 75 74 2d 4f 75 74 70 | 75 74 0a 20 0a 20 20 70 |put-Outp|ut. . p|
|000059c0| 72 6f 63 65 64 75 72 65 | 20 47 45 54 20 28 46 49 |rocedure| GET (FI|
|000059d0| 4c 45 20 3a 20 69 6e 20 | 20 46 49 4c 45 5f 54 59 |LE : in | FILE_TY|
|000059e0| 50 45 3b 20 20 49 54 45 | 4d 20 3a 20 6f 75 74 20 |PE; ITE|M : out |
|000059f0| 43 48 41 52 41 43 54 45 | 52 29 3b 0a 20 20 70 72 |CHARACTE|R);. pr|
|00005a00| 61 67 6d 61 20 49 4f 5f | 69 6e 74 65 72 66 61 63 |agma IO_|interfac|
|00005a10| 65 28 47 45 54 2c 47 45 | 54 5f 43 48 41 52 5f 46 |e(GET,GE|T_CHAR_F|
|00005a20| 49 4c 45 5f 49 54 45 4d | 29 3b 0a 20 20 70 72 6f |ILE_ITEM|);. pro|
|00005a30| 63 65 64 75 72 65 20 47 | 45 54 20 28 49 54 45 4d |cedure G|ET (ITEM|
|00005a40| 20 3a 20 6f 75 74 20 43 | 48 41 52 41 43 54 45 52 | : out C|HARACTER|
|00005a50| 29 3b 0a 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |);. pra|gma IO_i|
|00005a60| 6e 74 65 72 66 61 63 65 | 28 47 45 54 2c 47 45 54 |nterface|(GET,GET|
|00005a70| 5f 43 48 41 52 5f 49 54 | 45 4d 29 3b 0a 20 20 70 |_CHAR_IT|EM);. p|
|00005a80| 72 6f 63 65 64 75 72 65 | 20 50 55 54 20 28 46 49 |rocedure| PUT (FI|
|00005a90| 4c 45 20 3a 20 69 6e 20 | 20 46 49 4c 45 5f 54 59 |LE : in | FILE_TY|
|00005aa0| 50 45 3b 20 20 49 54 45 | 4d 20 3a 20 69 6e 20 43 |PE; ITE|M : in C|
|00005ab0| 48 41 52 41 43 54 45 52 | 29 3b 0a 20 20 70 72 61 |HARACTER|);. pra|
|00005ac0| 67 6d 61 20 49 4f 5f 69 | 6e 74 65 72 66 61 63 65 |gma IO_i|nterface|
|00005ad0| 28 50 55 54 2c 50 55 54 | 5f 43 48 41 52 5f 46 49 |(PUT,PUT|_CHAR_FI|
|00005ae0| 4c 45 5f 49 54 45 4d 29 | 3b 0a 20 20 70 72 6f 63 |LE_ITEM)|;. proc|
|00005af0| 65 64 75 72 65 20 50 55 | 54 20 28 49 54 45 4d 20 |edure PU|T (ITEM |
|00005b00| 3a 20 69 6e 20 20 43 48 | 41 52 41 43 54 45 52 29 |: in CH|ARACTER)|
|00005b10| 3b 0a 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e |;. prag|ma IO_in|
|00005b20| 74 65 72 66 61 63 65 28 | 50 55 54 2c 50 55 54 5f |terface(|PUT,PUT_|
|00005b30| 43 48 41 52 5f 49 54 45 | 4d 29 3b 0a 0a 20 20 20 |CHAR_ITE|M);.. |
|00005b40| 20 0a 20 20 2d 2d 20 53 | 74 72 69 6e 67 20 49 6e | . -- S|tring In|
|00005b50| 70 75 74 2d 4f 75 74 70 | 75 74 0a 20 20 20 20 0a |put-Outp|ut. .|
|00005b60| 20 20 70 72 6f 63 65 64 | 75 72 65 20 47 45 54 20 | proced|ure GET |
|00005b70| 28 46 49 4c 45 20 3a 20 | 69 6e 20 20 46 49 4c 45 |(FILE : |in FILE|
|00005b80| 5f 54 59 50 45 3b 20 20 | 49 54 45 4d 20 3a 20 6f |_TYPE; |ITEM : o|
|00005b90| 75 74 20 53 54 52 49 4e | 47 29 3b 0a 20 20 70 72 |ut STRIN|G);. pr|
|00005ba0| 61 67 6d 61 20 49 4f 5f | 69 6e 74 65 72 66 61 63 |agma IO_|interfac|
|00005bb0| 65 28 47 45 54 2c 47 45 | 54 5f 53 54 52 49 4e 47 |e(GET,GE|T_STRING|
|00005bc0| 5f 46 49 4c 45 5f 49 54 | 45 4d 29 3b 0a 20 20 70 |_FILE_IT|EM);. p|
|00005bd0| 72 6f 63 65 64 75 72 65 | 20 47 45 54 20 28 49 54 |rocedure| GET (IT|
|00005be0| 45 4d 20 3a 20 6f 75 74 | 20 53 54 52 49 4e 47 29 |EM : out| STRING)|
|00005bf0| 3b 20 20 20 20 0a 20 20 | 70 72 61 67 6d 61 20 49 |; . |pragma I|
|00005c00| 4f 5f 69 6e 74 65 72 66 | 61 63 65 28 47 45 54 2c |O_interf|ace(GET,|
|00005c10| 47 45 54 5f 53 54 52 49 | 4e 47 5f 49 54 45 4d 29 |GET_STRI|NG_ITEM)|
|00005c20| 3b 0a 20 20 70 72 6f 63 | 65 64 75 72 65 20 50 55 |;. proc|edure PU|
|00005c30| 54 20 28 46 49 4c 45 20 | 3a 20 69 6e 20 20 46 49 |T (FILE |: in FI|
|00005c40| 4c 45 5f 54 59 50 45 3b | 20 20 49 54 45 4d 20 3a |LE_TYPE;| ITEM :|
|00005c50| 20 69 6e 20 53 54 52 49 | 4e 47 29 3b 0a 20 20 70 | in STRI|NG);. p|
|00005c60| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00005c70| 63 65 28 50 55 54 2c 50 | 55 54 5f 53 54 52 49 4e |ce(PUT,P|UT_STRIN|
|00005c80| 47 5f 46 49 4c 45 5f 49 | 54 45 4d 29 3b 0a 20 20 |G_FILE_I|TEM);. |
|00005c90| 70 72 6f 63 65 64 75 72 | 65 20 50 55 54 20 28 49 |procedur|e PUT (I|
|00005ca0| 54 45 4d 20 3a 20 69 6e | 20 20 53 54 52 49 4e 47 |TEM : in| STRING|
|00005cb0| 29 3b 0a 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |);. pra|gma IO_i|
|00005cc0| 6e 74 65 72 66 61 63 65 | 28 50 55 54 2c 50 55 54 |nterface|(PUT,PUT|
|00005cd0| 5f 53 54 52 49 4e 47 5f | 49 54 45 4d 29 3b 0a 0a |_STRING_|ITEM);..|
|00005ce0| 20 20 70 72 6f 63 65 64 | 75 72 65 20 47 45 54 5f | proced|ure GET_|
|00005cf0| 4c 49 4e 45 20 28 46 49 | 4c 45 20 3a 20 69 6e 20 |LINE (FI|LE : in |
|00005d00| 46 49 4c 45 5f 54 59 50 | 45 3b 20 49 54 45 4d 20 |FILE_TYP|E; ITEM |
|00005d10| 3a 20 6f 75 74 20 53 54 | 52 49 4e 47 3b 0a 20 20 |: out ST|RING;. |
|00005d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005d40| 20 20 20 20 20 20 20 20 | 20 4c 41 53 54 20 3a 20 | | LAST : |
|00005d50| 6f 75 74 20 4e 41 54 55 | 52 41 4c 29 3b 0a 20 20 |out NATU|RAL);. |
|00005d60| 70 72 61 67 6d 61 20 49 | 4f 5f 69 6e 74 65 72 66 |pragma I|O_interf|
|00005d70| 61 63 65 28 47 45 54 5f | 4c 49 4e 45 2c 47 45 54 |ace(GET_|LINE,GET|
|00005d80| 5f 4c 49 4e 45 5f 46 49 | 4c 45 29 3b 0a 20 20 70 |_LINE_FI|LE);. p|
|00005d90| 72 6f 63 65 64 75 72 65 | 20 47 45 54 5f 4c 49 4e |rocedure| GET_LIN|
|00005da0| 45 20 28 49 54 45 4d 20 | 3a 20 6f 75 74 20 20 53 |E (ITEM |: out S|
|00005db0| 54 52 49 4e 47 3b 20 4c | 41 53 54 20 3a 20 6f 75 |TRING; L|AST : ou|
|00005dc0| 74 20 4e 41 54 55 52 41 | 4c 29 3b 0a 20 20 70 72 |t NATURA|L);. pr|
|00005dd0| 61 67 6d 61 20 49 4f 5f | 69 6e 74 65 72 66 61 63 |agma IO_|interfac|
|00005de0| 65 28 47 45 54 5f 4c 49 | 4e 45 2c 47 45 54 5f 4c |e(GET_LI|NE,GET_L|
|00005df0| 49 4e 45 29 3b 0a 0a 20 | 20 70 72 6f 63 65 64 75 |INE);.. | procedu|
|00005e00| 72 65 20 50 55 54 5f 4c | 49 4e 45 20 28 46 49 4c |re PUT_L|INE (FIL|
|00005e10| 45 20 3a 20 69 6e 20 46 | 49 4c 45 5f 54 59 50 45 |E : in F|ILE_TYPE|
|00005e20| 3b 20 49 54 45 4d 20 3a | 20 69 6e 20 53 54 52 49 |; ITEM :| in STRI|
|00005e30| 4e 47 29 3b 0a 20 20 70 | 72 61 67 6d 61 20 49 4f |NG);. p|ragma IO|
|00005e40| 5f 69 6e 74 65 72 66 61 | 63 65 28 50 55 54 5f 4c |_interfa|ce(PUT_L|
|00005e50| 49 4e 45 2c 50 55 54 5f | 4c 49 4e 45 5f 46 49 4c |INE,PUT_|LINE_FIL|
|00005e60| 45 29 3b 0a 20 20 70 72 | 6f 63 65 64 75 72 65 20 |E);. pr|ocedure |
|00005e70| 50 55 54 5f 4c 49 4e 45 | 20 28 49 54 45 4d 20 3a |PUT_LINE| (ITEM :|
|00005e80| 20 69 6e 20 53 54 52 49 | 4e 47 29 3b 0a 20 20 70 | in STRI|NG);. p|
|00005e90| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00005ea0| 63 65 28 50 55 54 5f 4c | 49 4e 45 2c 50 55 54 5f |ce(PUT_L|INE,PUT_|
|00005eb0| 4c 49 4e 45 29 3b 0a 20 | 20 20 20 0a 20 20 2d 2d |LINE);. | . --|
|00005ec0| 20 47 65 6e 65 72 69 63 | 20 70 61 63 6b 61 67 65 | Generic| package|
|00005ed0| 20 66 6f 72 20 49 6e 70 | 75 74 2d 4f 75 74 70 75 | for Inp|ut-Outpu|
|00005ee0| 74 20 6f 66 20 49 6e 74 | 65 67 65 72 20 54 79 70 |t of Int|eger Typ|
|00005ef0| 65 73 0a 0a 20 20 67 65 | 6e 65 72 69 63 0a 20 20 |es.. ge|neric. |
|00005f00| 20 20 74 79 70 65 20 4e | 55 4d 20 69 73 20 72 61 | type N|UM is ra|
|00005f10| 6e 67 65 20 3c 3e 3b 0a | 20 20 70 61 63 6b 61 67 |nge <>;.| packag|
|00005f20| 65 20 49 4e 54 45 47 45 | 52 5f 49 4f 20 69 73 0a |e INTEGE|R_IO is.|
|00005f30| 0a 20 20 20 20 44 45 46 | 41 55 4c 54 5f 57 49 44 |. DEF|AULT_WID|
|00005f40| 54 48 20 3a 20 46 49 45 | 4c 44 20 3a 3d 20 4e 55 |TH : FIE|LD := NU|
|00005f50| 4d 27 57 49 44 54 48 3b | 0a 20 20 20 20 44 45 46 |M'WIDTH;|. DEF|
|00005f60| 41 55 4c 54 5f 42 41 53 | 45 20 20 3a 20 4e 55 4d |AULT_BAS|E : NUM|
|00005f70| 42 45 52 5f 42 41 53 45 | 20 3a 3d 20 31 30 3b 0a |BER_BASE| := 10;.|
|00005f80| 0a 20 20 20 20 70 72 6f | 63 65 64 75 72 65 20 47 |. pro|cedure G|
|00005f90| 45 54 20 28 46 49 4c 45 | 20 20 3a 20 69 6e 20 46 |ET (FILE| : in F|
|00005fa0| 49 4c 45 5f 54 59 50 45 | 3b 20 20 49 54 45 4d 20 |ILE_TYPE|; ITEM |
|00005fb0| 3a 20 6f 75 74 20 4e 55 | 4d 3b 20 0a 20 20 20 20 |: out NU|M; . |
|00005fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005fe0| 20 20 20 20 20 20 57 49 | 44 54 48 20 3a 20 69 6e | WI|DTH : in|
|00005ff0| 20 46 49 45 4c 44 20 3a | 3d 20 30 29 3b 0a 20 20 | FIELD :|= 0);. |
|00006000| 20 20 70 72 61 67 6d 61 | 20 49 4f 5f 69 6e 74 65 | pragma| IO_inte|
|00006010| 72 66 61 63 65 28 47 45 | 54 2c 47 45 54 5f 49 4e |rface(GE|T,GET_IN|
|00006020| 54 45 47 45 52 5f 46 49 | 4c 45 5f 49 54 45 4d 2c |TEGER_FI|LE_ITEM,|
|00006030| 4e 55 4d 29 3b 0a 0a 20 | 20 20 20 70 72 6f 63 65 |NUM);.. | proce|
|00006040| 64 75 72 65 20 47 45 54 | 20 28 49 54 45 4d 20 20 |dure GET| (ITEM |
|00006050| 3a 20 6f 75 74 20 4e 55 | 4d 3b 20 57 49 44 54 48 |: out NU|M; WIDTH|
|00006060| 20 3a 20 69 6e 20 46 49 | 45 4c 44 20 3a 3d 20 30 | : in FI|ELD := 0|
|00006070| 29 3b 0a 20 20 20 20 70 | 72 61 67 6d 61 20 49 4f |);. p|ragma IO|
|00006080| 5f 69 6e 74 65 72 66 61 | 63 65 28 47 45 54 2c 47 |_interfa|ce(GET,G|
|00006090| 45 54 5f 49 4e 54 45 47 | 45 52 5f 49 54 45 4d 2c |ET_INTEG|ER_ITEM,|
|000060a0| 4e 55 4d 29 3b 0a 0a 20 | 20 20 20 70 72 6f 63 65 |NUM);.. | proce|
|000060b0| 64 75 72 65 20 50 55 54 | 20 28 46 49 4c 45 20 20 |dure PUT| (FILE |
|000060c0| 3a 20 69 6e 20 46 49 4c | 45 5f 54 59 50 45 3b 0a |: in FIL|E_TYPE;.|
|000060d0| 20 20 20 20 09 09 20 20 | 20 49 54 45 4d 20 20 3a | .. | ITEM :|
|000060e0| 20 69 6e 20 4e 55 4d 3b | 0a 20 20 20 20 09 09 20 | in NUM;|. .. |
|000060f0| 20 20 57 49 44 54 48 20 | 3a 20 69 6e 20 46 49 45 | WIDTH |: in FIE|
|00006100| 4c 44 20 3a 3d 20 44 45 | 46 41 55 4c 54 5f 57 49 |LD := DE|FAULT_WI|
|00006110| 44 54 48 3b 0a 20 20 20 | 20 09 09 20 20 20 42 41 |DTH;. | .. BA|
|00006120| 53 45 20 20 3a 20 69 6e | 20 4e 55 4d 42 45 52 5f |SE : in| NUMBER_|
|00006130| 42 41 53 45 20 3a 3d 20 | 44 45 46 41 55 4c 54 5f |BASE := |DEFAULT_|
|00006140| 42 41 53 45 29 3b 0a 20 | 20 20 20 70 72 61 67 6d |BASE);. | pragm|
|00006150| 61 20 49 4f 5f 69 6e 74 | 65 72 66 61 63 65 28 50 |a IO_int|erface(P|
|00006160| 55 54 2c 50 55 54 5f 49 | 4e 54 45 47 45 52 5f 46 |UT,PUT_I|NTEGER_F|
|00006170| 49 4c 45 5f 49 54 45 4d | 2c 4e 55 4d 29 3b 0a 20 |ILE_ITEM|,NUM);. |
|00006180| 20 20 20 70 72 6f 63 65 | 64 75 72 65 20 50 55 54 | proce|dure PUT|
|00006190| 20 28 49 54 45 4d 20 20 | 3a 20 69 6e 20 4e 55 4d | (ITEM |: in NUM|
|000061a0| 3b 0a 20 20 20 20 09 09 | 20 20 20 57 49 44 54 48 |;. ..| WIDTH|
|000061b0| 20 3a 20 69 6e 20 46 49 | 45 4c 44 20 3a 3d 20 44 | : in FI|ELD := D|
|000061c0| 45 46 41 55 4c 54 5f 57 | 49 44 54 48 3b 0a 20 20 |EFAULT_W|IDTH;. |
|000061d0| 20 20 09 09 20 20 20 42 | 41 53 45 20 20 3a 20 69 | .. B|ASE : i|
|000061e0| 6e 20 4e 55 4d 42 45 52 | 5f 42 41 53 45 20 3a 3d |n NUMBER|_BASE :=|
|000061f0| 20 44 45 46 41 55 4c 54 | 5f 42 41 53 45 29 3b 0a | DEFAULT|_BASE);.|
|00006200| 20 20 20 20 70 72 61 67 | 6d 61 20 49 4f 5f 69 6e | prag|ma IO_in|
|00006210| 74 65 72 66 61 63 65 28 | 50 55 54 2c 50 55 54 5f |terface(|PUT,PUT_|
|00006220| 49 4e 54 45 47 45 52 5f | 49 54 45 4d 2c 4e 55 4d |INTEGER_|ITEM,NUM|
|00006230| 29 3b 0a 20 20 20 20 0a | 20 20 20 20 70 72 6f 63 |);. .| proc|
|00006240| 65 64 75 72 65 20 47 45 | 54 20 28 46 52 4f 4d 20 |edure GE|T (FROM |
|00006250| 3a 20 69 6e 20 53 54 52 | 49 4e 47 3b 20 49 54 45 |: in STR|ING; ITE|
|00006260| 4d 3a 20 6f 75 74 20 4e | 55 4d 3b 20 4c 41 53 54 |M: out N|UM; LAST|
|00006270| 3a 20 6f 75 74 20 50 4f | 53 49 54 49 56 45 29 3b |: out PO|SITIVE);|
|00006280| 0a 20 20 20 20 70 72 61 | 67 6d 61 20 49 4f 5f 69 |. pra|gma IO_i|
|00006290| 6e 74 65 72 66 61 63 65 | 28 47 45 54 2c 47 45 54 |nterface|(GET,GET|
|000062a0| 5f 49 4e 54 45 47 45 52 | 5f 53 54 52 49 4e 47 2c |_INTEGER|_STRING,|
|000062b0| 4e 55 4d 29 3b 0a 20 20 | 20 20 70 72 6f 63 65 64 |NUM);. | proced|
|000062c0| 75 72 65 20 50 55 54 20 | 28 54 4f 20 20 20 3a 20 |ure PUT |(TO : |
|000062d0| 6f 75 74 20 53 54 52 49 | 4e 47 3b 0a 20 20 20 20 |out STRI|NG;. |
|000062e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 | | I|
|000062f0| 54 45 4d 20 3a 20 69 6e | 20 20 4e 55 4d 3b 0a 20 |TEM : in| NUM;. |
|00006300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006310| 20 20 42 41 53 45 20 3a | 20 69 6e 20 20 4e 55 4d | BASE :| in NUM|
|00006320| 42 45 52 5f 42 41 53 45 | 20 3a 3d 20 44 45 46 41 |BER_BASE| := DEFA|
|00006330| 55 4c 54 5f 42 41 53 45 | 29 3b 0a 20 20 20 20 70 |ULT_BASE|);. p|
|00006340| 72 61 67 6d 61 20 49 4f | 5f 69 6e 74 65 72 66 61 |ragma IO|_interfa|
|00006350| 63 65 28 50 55 54 2c 50 | 55 54 5f 49 4e 54 45 47 |ce(PUT,P|UT_INTEG|
|00006360| 45 52 5f 53 54 52 49 4e | 47 2c 4e 55 4d 29 3b 0a |ER_STRIN|G,NUM);.|
|00006370| 0a 20 20 65 6e 64 20 49 | 4e 54 45 47 45 52 5f 49 |. end I|NTEGER_I|
|00006380| 4f 3b 0a 0a 0a 20 20 2d | 2d 20 47 65 6e 65 72 69 |O;... -|- Generi|
|00006390| 63 20 70 61 63 6b 61 67 | 65 73 20 66 6f 72 20 49 |c packag|es for I|
|000063a0| 6e 70 75 74 2d 4f 75 74 | 70 75 74 20 6f 66 20 52 |nput-Out|put of R|
|000063b0| 65 61 6c 20 54 79 70 65 | 73 0a 0a 20 20 67 65 6e |eal Type|s.. gen|
|000063c0| 65 72 69 63 0a 20 20 20 | 20 74 79 70 65 20 4e 55 |eric. | type NU|
|000063d0| 4d 20 69 73 20 64 69 67 | 69 74 73 20 3c 3e 3b 0a |M is dig|its <>;.|
|000063e0| 20 20 70 61 63 6b 61 67 | 65 20 46 4c 4f 41 54 5f | packag|e FLOAT_|
|000063f0| 49 4f 20 69 73 0a 0a 20 | 20 20 20 44 45 46 41 55 |IO is.. | DEFAU|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
