home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / Lines / Script < prev    next >
Encoding:
Text File  |  1996-09-16  |  831 b   |  43 lines
  1. {
  2. | Lines script 
  3. | For NewsFlash BBS
  4. | Alex Howarth 1995/6
  5. | Integrated version
  6.  
  7. REPORT "Lines script"
  8. DECLARE aline,78
  9. LOCATE 0,DLINES-1
  10. NL
  11. TAB 0 STD CLL 
  12. BFG 7 PRINT "Do you wish to "
  13. BFG 6 PRINT "A"
  14. BFG 7 PRINT "dd a line, "
  15. BFG 6 PRINT "V"
  16. BFG 7 PRINT "iew lines or "
  17. BFG 6 PRINT "C"
  18. BFG 7 PRINT "ancel?"
  19. GETd lineresponse,"CAV"
  20. IF lineresponse="A" THEN
  21.   REPORT "Adding a line"
  22.   CLEARRECORD
  23.   BFG 7
  24.   TAB 0 STD CLL
  25.   PRINT "Enter line: "
  26.   INPUT aline,78
  27.   RECORDPRINT "{BFG 6}Opened for {BFG 2}"+USERNAME
  28.   RECORDPRINT "{BFG 3}- "+aline
  29.   WRITERECORD "<NewsFlash$Temp>.Lines"
  30.   RUNAPP "<NewsFlash$BBS>Scripts.Lines.Trim"
  31.   OSCLI "Settype <NewsFlash$Temp>.Lines &FFF"
  32. ENDIF
  33. IF lineresponse="V" THEN
  34.   REPORT "Viewing lines"
  35.   ATTR 7,0
  36.   CLS
  37.   STARTMORE
  38.   SCRIPT "<NewsFlash$Temp>.Lines"
  39.   ENDMORE
  40.   NL
  41.   GOSUB anykey
  42. ENDIF
  43. }