home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / NETBASIC / WEB / SHOWCODE.BAS < prev    next >
BASIC Source File  |  1996-06-21  |  599b  |  26 lines
  1. '  Filename : showcode.bas
  2.  
  3. #include "HTML.H"
  4. #include "FIO.H"
  5.  
  6. Sub Main
  7.         Local("fHandle")
  8.         Local("SzBuf")
  9.  
  10.         DOC:HEADING("Showcode.bas")
  11.         DOC:Body(DOC_LTGRAY,DOC_BLACK)
  12.  
  13.         SourceFile="netbasic\web\smpcard.bas"
  14.         fHandle=FIO:Open(SourceFile,"r")
  15.         If(SYS:Error:Number !=0)
  16.            Print("Error open file, script terminated")
  17.            End Sub
  18.         EndIf
  19.  
  20.         Do While(!FIO:Eof(fHandle))
  21.            SzBuf=FIO:Read:String(fHandle)
  22.            Print(SzBuf);NewLine
  23.         EndDo
  24.         NewLine;FIO:Close(fHandle)
  25. End Sub
  26.