home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PWAEF21.ZIP
/
EXTERNAL.ZIP
/
EFPWAFV.PPS
< prev
next >
Wrap
Text File
|
1994-12-04
|
2KB
|
63 lines
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; EFPWAFV.PPE by Drew [PWA]
; Last updated 12-04-94
;
; This is a little front-end for use with PWAFV. This was hacked together
; from the modified FLAG.PPS that comes with PWAFV.
;
; To install this, copy this PPE and its config file (EFPWAFV.CFG) into the
; directory of your choice (the most logical place would be in the same
; directory as EFLAG or PWAFV), and then edit either PROMPT1.CFG and/or
; PROMPT2.CFG and for your "V"iew command, make it point at this ppe.
;
; ie: !C:\PPE\EFLAG\EFPWAFV.PPE
;
; You will then have to edit EFPWAFV.CFG, which contains only one line, and
; have it indicate the full pathname (location) of PWAFV.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
STRING PWAFV ' Name and Location of PWA File Viewer
STRING PWA_FV_PPE ' Name and location of PWA File View CNF File
STRING FVTFILE
PWA_FV_PPE = READLINE(STRING(PPEPATH()+ "EFPWAFV.CFG"),1)
' ^- Initialize Variable PWAFV as the corect path
string filename
filename = gettoken()
'*** Added by Defcon 4 for use with PWA File Viewer
IF (EXIST(PWA_FV_PPE)) THEN
'If the CNF file exists then continue to view fiel
LET FVTFILE = MID(PWA_FV_PPE,1,STRING((LEN(PWA_FV_PPE)-9)))
FCREATE 1,FVTFILE + "FILE.$"+STRING(PCBNODE()),O_RW,S_DN
'Creates temporary file to call PWAFV
FPUTLN 1,"!"+PWA_FV_PPE+" "+FILENAME
'Writes location of PWAFV and the file being viewed
FCLOSE 1
DISPFILE FVTFILE + "FILE.$"+STRING(PCBNODE()),0
DELETE FVTFILE+"FILE.$"+STRING(PCBNODE())
'Closes temporary file and then displays it thus call PWAFV. After
'user finishes viewing the file, the temporary file is deleted
END
ELSE
PRINTLN "** Error, you cannot view files because FLAG.PPE cannont find"
PRINTLN "** either FLAGFV.DAT or the PWAFV PPE. Make sure the sysop"
PRINT "** coppied the DAT file to the "
PRINTLN PPEPATH() + " directory"
END
'Display error message if it cannot find the correct files
ENDIF
'*** End of Defcon 4's modifiction for use with PWA File Viewer