home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / MsgAChange < prev    next >
Encoding:
Text File  |  1996-09-16  |  766 b   |  54 lines
  1. {
  2. | Change Message area
  3. | Alex Howarth (15 September 1996)
  4.  
  5. REPORT "Change Message Area"
  6. STD CLS
  7. OPENMESSAGEBASE
  8. BATTR 7,4
  9. PRINT "#" TAB 4
  10. PRINT "Name:"
  11. TAB 35
  12. PRINT "n/m"
  13. TAB 40
  14. PRINT "#"
  15. TAB 44
  16. PRINT "Name:"
  17. TAB 75
  18. PRINT "n/m"
  19. CLL
  20. NL
  21. BATTR 7,0
  22. t%=0
  23. STARTMORE
  24. curarea%=1
  25. REPEAT
  26.   READMAREA curarea%
  27.   TAB t%    BFG 7 PRINT curarea%
  28.   TAB t%+4  BFG 2 PRINT MESSAGEAREANAME
  29.   TAB t%+35 BFG 3 PRINT MESSAGEAREAMAIL
  30.   
  31.   t%=t%+40
  32.   
  33.   IF t%>40 THEN
  34.     t%=0
  35.   ENDIF
  36.   NL
  37.   curarea%=curarea%+1
  38. UNTIL curarea%>MESSAGEAREAS
  39. ENDMORE
  40. NL
  41. BFG 3
  42. PRINT "Current message area name "
  43. CLL BFG 1
  44. READMAREA MSGAREA
  45. PRINT MESSAGEAREANAME+" (#"+MSGAREA+")"
  46. NL NL
  47. PRINT "Enter new area : "
  48. BFG 7
  49. INPUT ma%,4
  50. IF (ma%>0) AND (ma%<=MESSAGEAREAS) THEN
  51.   MSGAREA=ma%
  52. ENDIF
  53. CLOSEMESSAGEBASE
  54. }