|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 934 (0x3a6)
Types: TextFile
Names: »INPARAMS.I«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP004_V0801.D!CSS127.D!INPARAMS.I«
%LIST %LIST %LIST "----------------------------------------------------------------------- " " MODULE NAME: INPARAMS IMPORT DECLARATIONS " MODULE ID NMB: CSS/127 " MODULE VERSION: 01 " MODULE RELEASE: 01 " RELEASE DATE: 830518 " "----------------------------------------------------------------------- %NOLIST %NOLIST %NOLIST " N o t e: " " This module requires UTILITYHELP " import var ifiletype: filetype; "input file descr ofiletype: filetype; "output file descr import procedure inparams(r6); "all registers destroyed "============================" " " This procedure reads the second line of the parameter file " searching for " " I:<file-id> O:<file-id> " " " If found, the files are opened, and streams connected. " The output file is reset, too. " If not found, current input and/or current output are " used as defaults. " «a5»