Expanded Description
| Topic |
Description |
| Name |
space2html |
| Synopsis |
/infobank/programs/html/space2html/space2html.for |
| Description |
Program to convert space.txt to space.html.
|
| AUTHOR |
Clint Steele 12/1/2000
|
| Reads |
read (90, '(q,a)', end = 999) Length, InFile(1:Length)
read (90, '(q,a)', end = 999) Length, OutFile(1:Length)
read (90, '(q,a)', end = 999) Length, Title(1:Length)
read (91, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a,/)', end = 999) Length, Path(1:Length)
|
| Writes |
write (92, '(a)') '<
write (92, '(a,/)')
* '<TABLE BORDER="3" WIDTH="500"
* ' <TR
* ' <TD bgcolor="#00FFFF
write (ALine, '(1024x)')
write (92, '(a,/)')
* ' </TD
* ' </TR
* ' <T
write (92, '(a,/)')
* ' <TD bgcolor="#00FFFF
write (92, '(a,/)')
* ' <TD bgcolor="#00FFFF
write (92, '(a,/,a)')
* ' </TD
* ' <TD bgcolor="#CCFFFF
write (92, '(a,/)')
* '<TABLE BORDER="0"
* ' <TR
* ' <TD bgcolor="#00FFFF
write (92, '(a,/)')
* ' ',
* ' </TD
* ' <T
write (92, '(a)') '<
write (92, '(a)')
* ALine(1:ALineLength)
write (92, '(a)') '</
write (92, '(a,/)')
* ' </TD
* ' </TR
* '</TABL
write (92, '(a,/)')
* ' </TD
* ' </TR
* '</TABL
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/html/space2html/space.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = InFile(1:Length))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:Length))
|
| Calls |
call htmlhead (92, Title(1:Length))
call stringlen (ALine(1:ALineLength),
* ALineLength)
call htmlfoot (92, Path(1:Length))
|
|
