Expanded Description
| Topic |
Description |
| Name |
imagemapcheck |
| Synopsis |
/infobank/programs/gaz/imagemapcheck/imagemapcheck.for |
| Description |
Program to check <area>.gif.map image map
|
| AUTHOR |
Clint Steele 9/21/2001
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (ALine(Tab(4)+1:Tab(5)-1), '(a)') AreaID(AreaTotal)
read (ALine(Tab(7)+1:Tab(8)-1), '(i)') Level(AreaTotal)
read (ALine(Tab(8)+1:Tab(9)-1), '(a)') Area(AreaTotal)
read (91, '(a)', end = 98) ImageLine
|
| Writes |
write (AreaID(AreaTotal), '(4x)')
write (Area(AreaTotal), '(255x)')
write (92, '(a)') 'The current image map for '//
* Area(AreaLoop)(1:AreaLength)//' ('//
* AreaID(AreaLoop)(1:IDLength)//')...'
write (ImageID, '(4x)')
write (92, '(t4,a)') 'Remove link to: '//
* Area(Loop)(1:AreaLength)//' ('//
* AreaID(Loop)(1:IDLength)//')'
write (92, '(t4,a)')
* 'Add link to: '//
* Area(Loop)(1:AreaLength)//' ('//
* AreaID(Loop)(1:IDLength)//')'
write (92, '(a,/)') '========================'
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/gazette.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/gaz/'//
* 'imagemapcheck/imagemapcheck.summary')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/gazette/imagemap/'//
* SmallID(AreaLoop)(1:IDLength)//
* '.gif.map')
|
| Calls |
call changecase ('SMALLS', SmallID(AreaTotal))
call stringlen (Area(AreaTotal), AreaLength)
call stringlen (SmallID(AreaLoop), IDLength)
call stringlen (Area(AreaLoop), AreaLength)
call stringlen
* (Area(Loop), AreaLength)
call stringlen
* (AreaID(Loop), IDLength)
call stringlen (Area(Loop), AreaLength)
call stringlen (AreaID(Loop), IDLength)
call stringlen
* (Area(Loop), AreaLength)
call stringlen
* (AreaID(Loop), IDLength)
call stringlen (Area(Loop), AreaLength)
call stringlen (AreaID(Loop), IDLength)
call stringlen (Area(Loop), AreaLength)
call stringlen (AreaID(Loop), IDLength)
call stringlen (Area(Loop), AreaLength)
call stringlen (AreaID(Loop), IDLength)
|
|
