home *** CD-ROM | disk | FTP | other *** search
- ECHO OFF PFS WRITE
- CLS
- TYPE CPC.TXT
- IF NOT EXIST CPC.TXT GOTO COPYRT
- REM Run PFS:Write
- ECHO ... PFS Write Operating Under Universal Globals 3.40 ...
- ECHO ...
- SET 'PFS*=#!"C:\PFS;
- SET .HLP=#!"C:\PFS;
- SET SETUP.WRI=#!"C:\PFS\SETUP.WRI;SETUP.WRI
- SET 'WRITE=#!"C:\PFS;
- SET XS.SYS=#!"C:\PFS\XS.SYS
- UNI .RU -FDTOEP ON >NUL
- WRITE
- IF NOT EXIST WRITE.EXE GOTO END
- UNI .RC -# >NUL
- UNI .RU -.* OFF >NUL
- ECHO ON
- GOTO STOP
- :END
- CLS
- UNI .RC -# > NUL
- ECHO ... Unable to find PFS Write command files ...
- GOTO STOP
- :COPYRT
- CLS
- ECHO ... Unable to find CPC.TXT. Please fix.
- GOTO STOP
- :STOP
-