home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
AUTOP2_0.ZIP
/
AUTOVIEW.PPS
< prev
next >
Wrap
Text File
|
1994-10-23
|
2KB
|
110 lines
STRING Automessage
STRING byline
STRING aline
STRING g1
STRING g2
STRING g3
STRING g4
STRING g5
STRING bname
STRING bnamelast
STRING wdate
STRING qinfo
STRING qname
STRING qnamelast
STRING maybe
STRING qline1
STRING qline2
STRING opline1
STRING line1
STRING line2
STRING line3
STRING line4
STRING line5
STRING ch
Automessage = PPEPATH()+"AUTOM.PLS"
CLS
FOPEN 1,automessage,O_RW,S_DN
while (!FERR(1)) do
FGET 1,byline
TOKENIZE byline
GETTOKEN g1
GETTOKEN g2
GETTOKEN bname
GETTOKEN bnamelast
GETTOKEN g3
GETTOKEN wdate
FGET 1,qinfo
TOKENIZE qinfo
GETTOKEN g4
GETTOKEN maybe
GETTOKEN g5
GETTOKEN qname
GETTOKEN qnamelast
if (maybe = "YES") then
FGET 1,aline
FGET 1,qline1
FGET 1,qline2
FGET 1,opline1
FGET 1,line1
FGET 1,line2
FGET 1,line3
FGET 1,line4
FGET 1,line5
PRINTLN "@X0AAutomessage By: @X09"+bname+" "+bnamelast+" @X0AOn: @X09"+wdate
PRINTLN "@X0AQuoted Text By: @X09"+qname+" "+qnamelast
PRINTLN "@X0A"+aline
PRINTLN "@X0B-> @X09"+qline1
PRINTLN "@X0B-> @X09"+qline2
PRINTLN opline1
PRINTLN "@X09"+line1
PRINTLN "@X09"+line2
PRINTLN "@X09"+line3
PRINTLN "@X09"+line4
PRINTLN "@X09"+line5
NEWLINE
GOTO END
elseif (maybe = "NO") then
FGET 1,aline
FGET 1,line1
FGET 1,line2
FGET 1,line3
FGET 1,line4
FGET 1,line5
PRINTLN "@X0AAutomessage By: @X09"+bname+" "+bnamelast+" @X0AOn: @X09"+wdate
PRINTLN "@X0A"+aline
PRINTLN "@X09"+line1
PRINTLN "@X09"+line2
PRINTLN "@X09"+line3
PRINTLN "@X09"+line4
PRINTLN "@X09"+line5
NEWLINE
GOTO END
endif
endwhile
PRINTLN "@X0CError! ("+automessage+")"
FCLOSE 1
WAIT
END
:END
FCLOSE 1
NEWLINE
PRINT "@X0APress a [@X02ENTER@X0A] to continue ..."
WHILE (ch != Chr(13)) DO
ch = inkey()
PRINT " /"
DELAY 2
BACKUP 2
PRINT " -"
DELAY 2
BACKUP 2
PRINT " \"
DELAY 2
BACKUP 2
PRINT " |"
DELAY 2
BACKUP 2
ENDWHILE