Expanded Description
| Topic |
Description |
| Name |
doequip |
| Synopsis |
/infobank/programs/gaz/gazboothill/qgaz2html/doequip.for |
| Description |
Subroutine to determine equipment types within a gazette area
for GAZ2HTML.
|
| Reads |
read (96, '(q,a)', end = 7099)
* MapLineLength, MapLine(1:MapLineLength)
read (MapLine(Blank+1:FirstComma-1), '(i)')
* Left(EntityCount)
read (MapLine(SecondComma+1:MapLineLength), '(i)')
* Top(EntityCount)
|
| Writes |
write (MetaName, '(255x)')
write (HtmlName, '(255x)')
|
| Opens |
open (unit = 92,
* name = HtmlName(1:HtmlNameLength),
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
open (unit = 96,
* name = '/infobank/gazette/imagemap/'//
* Area(1:AreaLength)//'.gif.map',
* access = 'sequential',
* form = 'formatted',
* status = 'unknown')
|
| Calls |
call stringlen (Equip(1,EquipLoop), Length1)
call stringlen (Equip(2,EquipLoop), Length2)
call stringlen (Equip(3,EquipLoop), Length3)
call stringlen (MetaName, MetaNameLength)
call changecase ('SMALLS', MetaName(1:MetaNameLength))
call stringlen (HtmlName, HtmlNameLength)
call stringlen (MapLine(1:MapLineLength), MapLineLength)
|
|
