Metropoli BBS
VIEWER: view.bat MODE: TEXT (ASCII)
@echo off
if not "%@eval[2+2]" == "4" goto end

setlocal
iff %1x == x then
    set fil=*.usr
else
    set fil=%1
endiff
set x=%@findfirst[%fil]
do while "%x" != ""

   ren /q %x temp.$$$
   ren /q install.gph %x
   ren /q temp.$$$ install.gph
   install
   ren /q %x temp.$$$
   ren /q install.gph %x
   ren /q temp.$$$ install.gph
   set x=%@findnext[%fil]
   set k=0
   inkey /W0 %%k
   iff %k != 0 then
       unset /q x
   endiff

enddo
endlocal
quit
:end
echo 4DOS required!
[ RETURN TO DIRECTORY ]