home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 005 / autop2_0.zip / AUTOVIEW.PPS < prev    next >
Text File  |  1994-10-23  |  2KB  |  110 lines
  1. STRING Automessage
  2. STRING byline
  3. STRING aline
  4. STRING g1
  5. STRING g2
  6. STRING g3
  7. STRING g4
  8. STRING g5
  9. STRING bname
  10. STRING bnamelast
  11. STRING wdate
  12. STRING qinfo
  13. STRING qname
  14. STRING qnamelast
  15. STRING maybe
  16. STRING qline1
  17. STRING qline2
  18. STRING opline1
  19. STRING line1
  20. STRING line2
  21. STRING line3
  22. STRING line4
  23. STRING line5
  24. STRING ch
  25.  
  26. Automessage = PPEPATH()+"AUTOM.PLS"
  27.  
  28.     CLS
  29.     FOPEN 1,automessage,O_RW,S_DN
  30.         while (!FERR(1)) do
  31.         FGET 1,byline
  32.         TOKENIZE byline
  33.         GETTOKEN g1
  34.         GETTOKEN g2
  35.         GETTOKEN bname
  36.         GETTOKEN bnamelast
  37.         GETTOKEN g3
  38.         GETTOKEN wdate
  39.         FGET 1,qinfo
  40.         TOKENIZE qinfo
  41.         GETTOKEN g4
  42.         GETTOKEN maybe
  43.         GETTOKEN g5
  44.         GETTOKEN qname
  45.         GETTOKEN qnamelast
  46.         if (maybe = "YES") then
  47.             FGET 1,aline
  48.             FGET 1,qline1
  49.             FGET 1,qline2
  50.             FGET 1,opline1
  51.             FGET 1,line1
  52.             FGET 1,line2
  53.             FGET 1,line3
  54.             FGET 1,line4
  55.             FGET 1,line5
  56.                                 PRINTLN "@X0AAutomessage By: @X09"+bname+" "+bnamelast+" @X0AOn: @X09"+wdate
  57.                                 PRINTLN "@X0AQuoted Text By: @X09"+qname+" "+qnamelast
  58.                 PRINTLN "@X0A"+aline
  59.                 PRINTLN "@X0B-> @X09"+qline1
  60.                 PRINTLN "@X0B-> @X09"+qline2
  61.                 PRINTLN opline1
  62.                 PRINTLN "@X09"+line1
  63.                 PRINTLN "@X09"+line2
  64.                 PRINTLN "@X09"+line3
  65.                 PRINTLN "@X09"+line4
  66.                 PRINTLN "@X09"+line5
  67.                 NEWLINE
  68.                 GOTO END
  69.          elseif (maybe = "NO") then
  70.             FGET 1,aline
  71.             FGET 1,line1
  72.             FGET 1,line2
  73.             FGET 1,line3
  74.             FGET 1,line4
  75.             FGET 1,line5
  76.                 PRINTLN "@X0AAutomessage By: @X09"+bname+" "+bnamelast+" @X0AOn: @X09"+wdate
  77.                 PRINTLN "@X0A"+aline
  78.                 PRINTLN "@X09"+line1
  79.                 PRINTLN "@X09"+line2
  80.                 PRINTLN "@X09"+line3
  81.                 PRINTLN "@X09"+line4
  82.                 PRINTLN "@X09"+line5
  83.                 NEWLINE
  84.                 GOTO END
  85.          endif
  86.     endwhile
  87.     PRINTLN "@X0CError! ("+automessage+")"
  88.     FCLOSE 1
  89.     WAIT
  90.     END
  91. :END
  92. FCLOSE 1
  93. NEWLINE
  94. PRINT "@X0APress a [@X02ENTER@X0A] to continue ..."
  95. WHILE (ch != Chr(13)) DO
  96. ch = inkey()
  97. PRINT " /"
  98. DELAY 2
  99. BACKUP 2
  100. PRINT " -"
  101. DELAY 2
  102. BACKUP 2
  103. PRINT " \"
  104. DELAY 2
  105. BACKUP 2
  106. PRINT " |"
  107. DELAY 2
  108. BACKUP 2
  109. ENDWHILE
  110.