: MESSGE.600, Copyright 1985 by David Dunn Thomas, Timonium, MD   ,<: :"Press any key ";()" "();: :P$$():: ,: C$;C$;C$;" Super Message Writer "C$;C$;C$: (,)(,),,BF: ,,:"";::C$():L$"L;"( : ,,: C$;C$;C$" Super Message Writer "C$;C$;C$:  ,:"by .^Dave^. Thomas":  ,!: :"Copyright 1985": : I ::  ,:"Text files are prepared with this program for uploading to SIG/Forum message board or to the Data Library. If preparing a message, you will be prompted" "for addressee's name and then (separately) for their User ID. Upon completing message preparation, you'll be asked for the Section number for leaving the message. That will be appended to file, as well as proper /EXit command." "FILge or SED (line number editor) are supported, based on your responses." :" Program may also be used for preparing documentation, just respond":"negatively to queries about message header and storing of messages.": :   : "MESSGE.TXT" AS 1::      )"MESSGE.TXT currently exists, continuing":  )"now will result in APPENDing to that file."::  )"Do you wish to ontinue or bort?"; M$$(): M$"C" M$"c"  : M$"A" M$"a" : :   :   "MESSGE.TXT" APPEND AS 1t "Do you wish to prepare message header? ";:A$$(): A$"Y" A$"y" " : A$"N" A$"n" 0 :  """: "Name of addressee: ";H$:H$L$H$( )$ "User ID of addressee: ";I$: (I$,)"7" (I$,,)"," (I$) & : H$H$I$";": (S&"Sorry, that is an invalid User ID.": : ,: $~( "Subject of message: ";S$:H$H$S$* : H$:: "Is that correct? ";,M$$(): M$"Y" M$"y" . : M$"N" M$"n" " : ,. #,H$0 : "Prepare your message one line at a time; backspace as necessary to correct.":"Indent to force a new paragraph; type Q alone when message completed.": 2 : "Type your line, then press ENTER."4 "";M$: (M$) O "Line too long, redo please...": : 296 M$"Q" M$"q" :{8 #,M$: : "Line printed to file ...; continue.": : 4:MM: M F< :"Is this text file intended for a SIG/Forum message board? [y/n]";*>M$$(): M$"Y" M$"y" B : M$"N" M$"n" @ : : >@"Very well, this file will be ready for UPLoad to Data Library."::: : RB"On the SIG/Forum where you'll be leaving this message, are you set for the line numbered SEDitor, or the FILGE editor? [S/F]";ODM$$(): M$"S" M$"s" T : M$"F" M$"f" T : : DiF T #,"": JyH #, "/EX"J: "What Section/Topic number do you wish to leave the message under?":M$$()L M$"0" M$ "9" JNM$"S"M$: #,M$kP "Do you wish to send another message? ";:A$$(): A$"Y" A$"y"  : A$"N" A$"n" R: ,,:"Message file is now ready!":::" For verification copy, use the System Manager's opy command and print".T" the MESSGE.TXT file to PRN: being sure to include colon!"V:" Suggest that System Manager's `Name' command be used to change MESSGE.TXT name to some other, meaningful name. Use of MESSGE.BAS again may cause some unwanted results as MESSGE.TXT receives appended text." X : ,,: