Comment
=============================================================

Copyright 1990-1995 by Marc Perkel

=============================================================
EndComment

Var
  ThisPath
  ErrorArray
  ExecError
  CompName
  ListA
  ListB
  TargetDir
  Shareware
  RegFile

Shareware = False

StandardIO
ClearScreenFirst Off
ThisPath = Path
XmsOverlays
EmsOverlays

Swapping

CompileSysFile ('BREAK')
CompileSysFile ('NOVSYNC')
CompileComFile ('BOOTWARM')
CompileComFile ('BOOTCOLD')
;CompileSysFile ('HOTMAX')

TargetDir = '\PUBLIC\SHNSK'

CopyAFile ('BREAK.SYS')
CopyAFile ('NOVSYNC.SYS')
CopyAFile ('BREAK.DOC')
CopyAFile ('NOVSYNC.DOC')
CopyAFile ('REBOOT.DOC')
CopyAFile ('BOOTWARM.COM')
CopyAFile ('BOOTCOLD.COM')
;CopyAFile ('HOTMAX.SYS')

TargetDir = '\PUBLIC\REALNSK'

CopyAFile ('BREAK.SYS')
CopyAFile ('NOVSYNC.SYS')
CopyAFile ('BREAK.DOC')
CopyAFile ('NOVSYNC.DOC')
CopyAFile ('REBOOT.DOC')
CopyAFile ('BOOTWARM.COM')
CopyAFile ('BOOTCOLD.COM')
;CopyAFile ('HOTMAX.SYS')

TargetDir = '\HTML\DOWNLOAD\REAL'

CopyAFile ('BREAK.SYS')
CopyAFile ('NOVSYNC.SYS')
CopyAFile ('BREAK.DOC')
CopyAFile ('NOVSYNC.DOC')
CopyAFile ('REBOOT.DOC')
CopyAFile ('BOOTWARM.COM')
CopyAFile ('BOOTCOLD.COM')
;CopyAFile ('HOTMAX.SYS')

TargetDir = '\HTML\DOWNLOAD\SHARE'

CopyAFile ('BREAK.SYS')
CopyAFile ('NOVSYNC.SYS')
CopyAFile ('BREAK.DOC')
CopyAFile ('NOVSYNC.DOC')
CopyAFile ('REBOOT.DOC')
CopyAFile ('BOOTWARM.COM')
CopyAFile ('BOOTCOLD.COM')
;CopyAFile ('HOTMAX.SYS')

TargetDir = 'N:'

CopyAFile ('BREAK.SYS')
CopyAFile ('NOVSYNC.SYS')
CopyAFile ('BREAK.DOC')
CopyAFile ('NOVSYNC.DOC')
CopyAFile ('REBOOT.DOC')
CopyAFile ('BOOTWARM.COM')
CopyAFile ('BOOTCOLD.COM')
;CopyAFile ('HOTMAX.SYS')

TargetDir = 'F:\BBS\DLOADS\TYMESOFT'

CopyAFile ('BREAK.SYS')
CopyAFile ('NOVSYNC.SYS')
CopyAFile ('BREAK.DOC')
CopyAFile ('NOVSYNC.DOC')
CopyAFile ('REBOOT.DOC')
CopyAFile ('BOOTWARM.COM')
CopyAFile ('BOOTCOLD.COM')
;CopyAFile ('HOTMAX.SYS')

TargetDir = 'F:\BBS\DLOADS\SPECIAL'

CopyAFile ('BREAK.SYS')
CopyAFile ('NOVSYNC.SYS')
CopyAFile ('BREAK.DOC')
CopyAFile ('NOVSYNC.DOC')
CopyAFile ('REBOOT.DOC')
CopyAFile ('BOOTWARM.COM')
CopyAFile ('BOOTCOLD.COM')
;CopyAFile ('HOTMAX.SYS')

ChDir 'F:\BBS\DLOADS\TYMESOFT'
Rezip
ChDir 'F:\BBS\DLOADS\SPECIAL'
Rezip
ChDir 'F:\HTML\DOWNLOAD\REAL'
Rezip
ChDir 'F:\HTML\DOWNLOAD\SHARE'
Rezip


ChDir ThisPath

;------ Show Errors if any

if NumberOfElements (ErrorArray) > 0
   Writeln 'Errors:'
   Loop NumberOfElements(ErrorArray)
      Writeln '==> ' ErrorArray[LoopIndex]
   EndLoop
else
   Writeln 'No Errors!'
endif

ExitMenu

;=========================================================

;------ Subroutines

Procedure Rezip

   DelFile 'NOVSYNC.ZIP'
   ExecLine ('ZIP.EXE NOVSYNC N:NOVSYNC.DOC N:NOVSYNC.SYS')

   DelFile 'BREAK.ZIP'
   ExecLine ('ZIP.EXE BREAK N:BREAK.DOC N:BREAK.SYS')

   DelFile 'REBOOT.ZIP'
   ExecLine ('ZIP.EXE REBOOT N:REBOOT.DOC N:BOOTWARM.COM N:BOOTCOLD.COM')

EndProc


Procedure MoveFile (Name)
   ExecLine('N:MOVE.EXE ' + Name + ' ' + TargetDir)
EndProc


Procedure CopyAFile (Name)
   ExecLine('NCOPY.EXE ' + Name + ' ' + TargetDir)
EndProc


Procedure CompileSysFile (Name)
   Writeln '==> Compiling ' Name ' ...'
   Writeln
   ExecLine('TASM.EXE ' + Name)
   ExecLine('TLINK ' + Name)
   ExecLine('EXE2BIN ' + Name)
   ExecLine('MOVE.EXE ' + Name + '.BIN ' + Name + '.SYS')
   DelFile(Name + '.OBJ')
   DelFile(Name + '.EXE')
   DelFile(Name + '.MAP')
EndProc


Procedure CompileComFile (Name)
   Writeln '==> Compiling ' Name ' ...'
   Writeln
   ExecLine('TASM.EXE ' + Name)
   ExecLine('TLINK ' + Name)
   ExecLine('EXE2BIN ' + Name)
   DelFile(Name + '.OBJ')
   DelFile(Name + '.EXE')
   DelFile(Name + '.MAP')
EndProc


Procedure ExecLine (St)
   AbortGen
   Writeln '--> ' St
   Execute (St)
   ExecError = ReturnCode <> 0
   if ExecError
      WriteErrorMsg ('Error ' + Str(ReturnCode) + ' while Executing: ' + St)
   endif
   Writeln
EndProc


Procedure WriteErrorMsg (St)
   Writeln (Char(7) + '==> Error: ' + St)
   ErrorArray[NumberOfElements(ErrorArray) + 1] = St
   Wait 300
EndProc


Procedure AbortGen
var Ch
   if not KbdReady then return
   Ch = ReadKey
   if Ch = Esc then ExitMenu
EndProc