[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference oass::babynames

Title:A list of All the BABYNAMES (shadow copy)
Notice:BABYNAMES is now on-line and writable! Enjoy...
Moderator:OASS::BURDEN_D
Created:Tue Feb 13 1996
Last Modified:Fri May 30 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:996
Total number of notes:7139

113.0. "Baby Anouncement Mail Message program." by MTBLUE::FREEMAN_KEVI () Thu Aug 06 1987 14:25

	The following program mails a generic message to whom ever you choose,
	the specifics of your new baby and allows you less time on the system
	and more with the little one.  If anyone wishes to expand on it please
	mail me a version ie. Bells and Whistles graphics etc.  Probably re-
	invented the wheel though!   

						Regards, Kevin F.
						Proud Person
T.RTitleUserPersonal
Name		DateLines
113.1Let me know if any Bugs please.MTBLUE::FREEMAN_KEVIThu Aug 06 1987 14:2699
$A5:
$ !CLEAR SCREEN
$ SAY ""
$ !CURSOR HOME
$ SAY ""
$ SAY:== WRITE SYS$OUTPUT
$ SAY "This is a program that Allows an individual to mail the specifics of His or"
$ SAY "Her proud new addition.  In this new age some categories are already"
$ SAY "predetermined.  It may be even faster to have a distribution list already"
$ SAY "set-up.  When mailing takes over separate individuals by comma's.  My"
$ SAY "congratulation to you and send no money just a Cigar :-)  Kevin Freeman"
$ SAY ""
$ WT == "WRITE BABY"
$ INQUIRE/NOPUNCT TYPE "Girl or <Boy> "
$ IF TYPE .NES. "G" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "G" THEN TYPE = "G I R L"
$ INQUIRE/NOPUNCT WEIGHT "lbs.-oz's "
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT
$ LEN = F$LENGTH(WEIGHT)
$ ! go center it.
$ GOSUB A2
$ WEIGHT = FIX
$ INQUIRE/NOPUNCT LENGTH "Length? "
$ FIX = LENGTH
$ LEN = F$LENGTH(LENGTH)
$ GOSUB A2
$ LENGTH = FIX
$ INQUIRE/NOPUNCT NAME "Name? "
$ FIX = NAME
$ LEN = F$LENGTH(NAME)
$ GOSUB A2
$ NAME = FIX
$ INQUIRE/NOPUNCT WHOM "To whom do you wish to Mail this to? "
$ CREATE BABY.TXT
$ OPEN/APPEND BABY BABY.TXT
$ !CLEAR SCREEN
$ WT ""
$ !CURSOR HOME
$ WT ""
$ !REVERSE VIDEO
$ WT ""
$ !DOUBLE HEIGHT & WIDTH
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#3             I T ' S    A               "
$ WT "#4             I T ' S    A               "
$ WT "#3              ''TYPE'!!                 "
$ WT "#4              ''TYPE'!!                 "
$ WT "#6                                        "
$ WT "#6''WEIGHT'"
$ WT "#6''LENGTH'"
$ WT "#6                                        "
$ WT "#6''NAME'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ !ATTRIBUTES OFF
$ WT ""
$ CLOSE BABY
$ TY BABY.TXT;
$ INQUIRE/NOPUNCT GOOD "Is this ok (N/<Y>)? "
$ IF GOOD .EQS. "N" THEN GOTO A5
$ ! I'm keeping track of babynames as well you obviously have the liberty to
$ ! delete my name if you so desire.
$ MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT NM%RANGLY::FREEMAN_KEVI,'WHOM
$ PURGE BABY.TXT
$ DEL BABY.TXT;
$ EXIT
$A2:
$ ! Determine the center of the text so as to add equal amount of spacing on
$ ! both sides.
$ LEN1 = (40 - 'LEN) / 2
$ LEN2 = LEN1
$A4:
$ ! adding spaces on both ends
$ FIX = " " + "''FIX'" + " "
$ LEN2 = LEN2 - 1
$ IF LEN2 .NES. 0 THEN GOTO A4
$ varable_name = LEN
$ ! if the LEN was an odd number then add an additional space on the end
$ IF .NOT. varable_name THEN GOTO A3
$ FIX = "''FIX'" + " "
$A3:
$ RETURN 1
113.2Borrowed parts from other .COM filesMTBLUE::FREEMAN_KEVIMon Aug 17 1987 10:33248
$A5:
$ SAY:== WRITE SYS$OUTPUT
$ !CLEAR SCREEN
$ SAY ""
$ !CURSOR HOME
$ SAY ""
$ SAY "This is a program that Allows an individual to mail the specifics of His or"
$ SAY "Her proud new addition.  In this new age some categories are already"
$ SAY "predetermined.  It may be even faster to have a distribution list already"
$ SAY "set-up.  When mailing takes over separate individuals by comma's.  My"
$ SAY "congratulation to you and send no money just a Cigar :-)  Kevin Freeman"
$ SAY ""
$ WT == "WRITE BABY"
$ INQUIRE/NOPUNCT TYPE "Girl or <Boy> "
$ IF TYPE .NES. "G" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "G" THEN TYPE = "G I R L"
$ INQUIRE/NOPUNCT WEIGHT "lbs.-oz's "
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT
$ LEN = F$LENGTH(WEIGHT)
$ ! go center it.
$ GOSUB A2
$ WEIGHT = FIX
$ INQUIRE/NOPUNCT LENGTH "Length? "
$ FIX = LENGTH
$ LEN = F$LENGTH(LENGTH)
$ GOSUB A2
$ LENGTH = FIX
$ INQUIRE/NOPUNCT NAME "Name? "
$ FIX = NAME
$ LEN = F$LENGTH(NAME)
$ GOSUB A2
$ NAME = FIX
$ INQUIRE/NOPUNCT WHOM "To whom do you wish to Mail this to? "
$ CREATE BABY.TXT
$ OPEN/APPEND BABY BABY.TXT
$ !CLEAR SCREEN
$ WT ""
$ !CURSOR HOME
$ WT ""
$ WT "(0"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ !WT "q\ /q"
$ !WT "   "
$ !WT "q\ /q "
$ !WT "    q\ /"
$ !WT "q     "
$ !WT "q\ /q "
$ WT "   "
$ WT "(B[?5h[?5l"
$ WT ""
$ WT "(0"
$ WT "/(B~~(0// /(Bo(0\([    >/ooo\\ ssu"
$ WT "/     \\/o\/  /    \// \/  /      /\  \"
$ WT "\  \      x \  \\  \     x  \  \"
$ WT "(\ss\qqqqj\  \  \\mvjj \/  \  \s/\"
$ WT "< \     \   \   \ \/\/ \ \     )   \   /o /"
$ WT "mq/ \sssss/\sss/  /  /"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT " [?5h   [?5l   "
$ WT "     "
$ WT "   "
$ WT "    "
$ WT " [?5h\*"
$ WT "[?5lO  O[?5hy"
$ WT "f[?5l*.."
$ WT "[?5h...[?5l.."
$ WT ".[?5h...[?5l."
$ WT ".  .."
$ WT "* *[?5h  "
$ WT "  [?5l   "
$ WT "     "
$ WT "   (Bo"
$ WT "o(0       "
$ WT "    .."
$ WT " .  "
$ WT " .  "
$ WT ".  "
$ WT "     "
$ WT "  "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT "[?5h  [?5l "
$ WT "     "
$ WT "    "
$ WT "    "
$ WT "   "
$ WT "[?5h  [?5l         "
$ WT "           "
$ WT "[?5h     [?5l af"
$ WT "           f"
$ WT "     "
$ WT "       "
$ WT "[?5h    [?5l f"
$ WT "[?5h.    [?5l      "
$ WT "        "
$ WT "    (0aa"
$ WT "ff.."
$ WT "[?5h"
$ WT "[?5l     "
$ WT "[?5h  [?5l  "
$ WT "           "
$ WT "           "
$ WT "[?5h   [?5l     "
$ WT "           "
$ WT "[?5h [?5l    "
$ WT "       "
$ WT "[?5h  [?5l   "
$ WT "           "
$ WT "        "
$ WT "    (0 "
$ WT "    "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f "
$ WT "f f f"
$ WT " f f "
$ WT "f f f "
$ WT "f f f "
$ WT "f f"
$ WT " ."
$ WT "O"
$ WT "?#3?#4"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "[?5h[?5l(B"
$ !REVERSE VIDEO
$ WT ""
$ !DOUBLE HEIGHT & WIDTH
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#3             I T ' S    A               "
$ WT "#4             I T ' S    A               "
$ WT "#3               B O Y !!                 "
$ WT "#4               B O Y !!                 "
$ WT "#6                                        "
$ WT "#6''WEIGHT'"
$ WT "#6''LENGTH'"
$ WT "#6                                        "
$ WT "#6''NAME'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT ""
$ !ATTRIBUTES OFF
$ WT ""
$ CLOSE BABY
$ TY BABY.TXT;
$ INQUIRE/NOPUNCT GOOD "Is this ok (N/<Y>)? "
$ IF GOOD .EQS. "N" THEN GOTO A5
$ ! I'm keeping track of babynames as well you obviously have the liberty to
$ ! delete my name if you so desire.
$ MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT NM%RANGLY::FREEMAN_KEVI,'WHOM
$ PURGE BABY.TXT
$ DEL BABY.TXT;
$ EXIT
$A2:
$ ! Determine the center of the text so as to add equal amount of spacing on
$ ! both sides.
$ LEN1 = (40 - 'LEN) / 2
$ LEN2 = LEN1
$A4:
$ ! adding spaces on both ends
$ FIX = " " + "''FIX'" + " "
$ LEN2 = LEN2 - 1
$ IF LEN2 .NES. 0 THEN GOTO A4
$ varable_name = LEN
$ ! if the LEN was an odd number then add an additional space on the end
$ IF .NOT. varable_name THEN GOTO A3
$ FIX = "''FIX'" + " "
$A3:
$ RETURN 1
113.3How come no one caught the bug of only boys selection!DNEAST::FREEMAN_KEVIThe Squeeky Wheel = NeglectMon Oct 31 1988 11:39254
$A5:
$ SAY:== WRITE SYS$OUTPUT
$ !CLEAR SCREEN
$ SAY ""
$ !CURSOR HOME
$ SAY ""
$ SAY "This is a program that Allows an individual to mail the specifics of His or"
$ SAY "Her proud new addition.  In this new age some categories are already"
$ SAY "predetermined.  It may be even faster to have a distribution list already"
$ SAY "set-up.  When mailing takes over separate individuals by comma's.  My"
$ SAY "congratulation to you and send no money just a Cigar :-)  Kevin Freeman"
$ SAY ""
$ WT == "WRITE BABY"
$ INQUIRE/NOPUNCT TYPE "G-Girl or <B-Boy> "
$ IF TYPE .EQS. "" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "B" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "BOY" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "G" THEN TYPE = "G I R L"
$ IF TYPE .EQS. "GIRL" THEN TYPE = "G I R L"
$ READ/PROMPT="Date/Time? " SYS$COMMAND DTM
$ FIX = DTM
$ LEN = F$LENGTH(DTM)
$ GOSUB A2
$ DTM = FIX
$ READ/PROMPT="lbs.-oz's? " SYS$COMMAND WEIGHT
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT
$ LEN = F$LENGTH(WEIGHT)
$ ! go center it.
$ GOSUB A2
$ WEIGHT = FIX
$ READ/PROMPT="Length? " SYS$COMMAND LENGTH
$ FIX = LENGTH
$ LEN = F$LENGTH(LENGTH)
$ GOSUB A2
$ LENGTH = FIX
$ READ/PROMPT="Name? " SYS$COMMAND NAME
$ FIX = NAME
$ LEN = F$LENGTH(NAME)
$ GOSUB A2
$ NAME = FIX
$ INQUIRE/NOPUNCT WHOM "To whom do you wish to Mail this to? "
$ CREATE BABY.TXT
$ OPEN/APPEND BABY BABY.TXT
$ WT ""
$ !CLEAR SCREEN CURSOR HOME
$ WT ""
$ WT "(0"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ !WT "q\ /q"
$ !WT "   "
$ !WT "q\ /q "
$ !WT "    q\ /"
$ !WT "q     "
$ !WT "q\ /q "
$ WT "   "
$ WT "(B[?5h[?5l"
$ WT ""
$ WT "(0"
$ WT "/(B~~(0// /(Bo(0\([    >/ooo\\ ssu"
$ WT "/     \\/o\/  /    \// \/  /      /\  \"
$ WT "\  \      x \  \\  \     x  \  \"
$ WT "(\ss\qqqqj\  \  \\mvjj \/  \  \s/\"
$ WT "< \     \   \   \ \/\/ \ \     )   \   /o /"
$ WT "mq/ \sssss/\sss/  /  /"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT " [?5h   [?5l   "
$ WT "     "
$ WT "   "
$ WT "    "
$ WT " [?5h\*"
$ WT "[?5lO  O[?5hy"
$ WT "f[?5l*.."
$ WT "[?5h...[?5l.."
$ WT ".[?5h...[?5l."
$ WT ".  .."
$ WT "* *[?5h  "
$ WT "  [?5l   "
$ WT "     "
$ WT "   (Bo"
$ WT "o(0       "
$ WT "    .."
$ WT " .  "
$ WT " .  "
$ WT ".  "
$ WT "     "
$ WT "  "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT "[?5h  [?5l "
$ WT "     "
$ WT "    "
$ WT "    "
$ WT "   "
$ WT "[?5h  [?5l         "
$ WT "           "
$ WT "[?5h     [?5l af"
$ WT "           f"
$ WT "     "
$ WT "       "
$ WT "[?5h    [?5l f"
$ WT "[?5h.    [?5l      "
$ WT "        "
$ WT "    (0aa"
$ WT "ff.."
$ WT "[?5h"
$ WT "[?5l     "
$ WT "[?5h  [?5l  "
$ WT "           "
$ WT "           "
$ WT "[?5h   [?5l     "
$ WT "           "
$ WT "[?5h [?5l    "
$ WT "       "
$ WT "[?5h  [?5l   "
$ WT "           "
$ WT "        "
$ WT "    (0 "
$ WT "    "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f "
$ WT "f f f"
$ WT " f f "
$ WT "f f f "
$ WT "f f f "
$ WT "f f"
$ WT " ."
$ WT "O"
$ WT "?#3?#4"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "[?5h[?5l(B"
$ !REVERSE VIDEO
$ WT ""
$ !DOUBLE HEIGHT & WIDTH
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#3              I T ' S    A              "
$ WT "#4              I T ' S    A              "
$ WT "#3               ''TYPE' !!               "
$ WT "#4               ''TYPE' !!               "
$ WT "#6                                        "
$ WT "#6''DTM'"
$ WT "#6''WEIGHT'"
$ WT "#6''LENGTH'"
$ WT "#6                                        "
$ WT "#6''NAME'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT ""
$ !ATTRIBUTES OFF
$ WT ""
$ CLOSE BABY
$ TY BABY.TXT;
$ INQUIRE/NOPUNCT GOOD "Is this ok (N/<Y>)? "
$ IF GOOD .EQS. "N" THEN GOTO A5
$ ! I'm keeping track of babynames as well you obviously have the liberty to
$ ! delete my name if you so desire.
$ SAY "Mailing the file now......."
$ WHOM1 = F$LENGTH(WHOM)
$ WHOM2 = F$LOCATE(",",WHOM)
$ WHOM3 = F$LOCATE("@",WHOM)
$ IF WHOM1 .NES. WHOM2 .OR. WHOM1 .NES. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT NM%RANGLY::FREEMAN_KEVI,'WHOM
$ IF WHOM1 .EQS. WHOM2 .AND. WHOM1 .EQS. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT 'WHOM
$ PURGE BABY.TXT
$ DEL BABY.TXT;
$ EXIT
$A2:
$ ! Determine the center of the text so as to add equal amount of spacing on
$ ! both sides.
$ LEN1 = LEN / 2
$A4:
$ ! adding spaces on both ends
$ FIX15 = "                    " + "''FIX'" + "                    "
$ FIX = F$EXT('LEN1,40,FIX15)
$A3:
$ RETURN_1
113.4TADSKI::KULPThu Nov 17 1988 18:446
    I did (find the bug) but I kinda re-did the whole thing anyway
    to look the way I wanted it too.  That was a long time ago though,
    don't know what I did with my copy now....
    Good thing too since we had a girl!
113.5Added option to annouce TWINS!ECADSR::HAMPTONEasy does it, Do it easy....Wed Oct 04 1989 13:47533
$!1-OCT-1989 - added option to annouce twins. Jonathan Hampton
$A5:
$ SAY:== WRITE SYS$OUTPUT
$ !CLEAR SCREEN
$ SAY ""
$ !CURSOR HOME
$ SAY ""
$ SAY "This is a program that Allows an individual to mail the specifics of His or"
$ SAY "Her proud new addition.  In this new age some categories are already"
$ SAY "predetermined.  It may be even faster to have a distribution list already"
$ SAY "set-up.  When mailing takes over separate individuals by comma's.  My"
$ SAY "congratulation to you and send no money just a Cigar :-)  Kevin Freeman"
$ SAY ""
$ WT == "WRITE BABY"
$ INQUIRE/NOPUNCT TYPE "G-Girl or <B-Boy> or T-Twins "
$ IF TYPE .EQS. "" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "B" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "BOY" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "G" THEN TYPE = "G I R L"
$ IF TYPE .EQS. "GIRL" THEN TYPE = "G I R L"
$ IF TYPE .EQS. "T" THEN  GOTO A9
$ IF TYPE .EQS. "TWINS" THEN GOTO A9
$ READ/PROMPT="Date/Time? " SYS$COMMAND DTM
$ FIX = DTM
$ LEN = F$LENGTH(DTM)
$ GOSUB A2
$ DTM = FIX
$ READ/PROMPT="lbs.-oz's? " SYS$COMMAND WEIGHT
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT
$ LEN = F$LENGTH(WEIGHT)
$ ! go center it.
$ GOSUB A2
$ WEIGHT = FIX
$ READ/PROMPT="Length? " SYS$COMMAND LENGTH
$ FIX = LENGTH
$ LEN = F$LENGTH(LENGTH)
$ GOSUB A2
$ LENGTH = FIX
$ READ/PROMPT="Name? " SYS$COMMAND NAME
$ FIX = NAME
$ LEN = F$LENGTH(NAME)
$ GOSUB A2
$ NAME = FIX
$ READ/PROMPT="Brief text: " SYS$COMMAND TEXT
$ FIX = TEXT              
$ LEN = F$LENGTH(TEXT)    
$ ! go center it.           
$ GOSUB A2                  
$ TEXT = FIX              
$ INQUIRE/NOPUNCT WHOM "To whom do you wish to Mail this to? "
$ GOSUB A7
$!For Twins
$ A9:
$ TYPE = "T W I N S"
$ READ/PROMPT="What are the sexes? " SYS$COMMAND SEX
$ FIX = SEX
$ LEN = F$LENGTH(SEX)
$ GOSUB A2            
$ SEX = FIX
$!Info for baby #1
$ READ/PROMPT="Name (baby #1)? " SYS$COMMAND NAME1
$ FIX = NAME1
$ LEN = F$LENGTH(NAME1)
$ GOSUB A2
$ NAME1 = FIX
$ READ/PROMPT="Date/Time (baby #1)? " SYS$COMMAND DTM1
$ FIX = DTM1
$ LEN = F$LENGTH(DTM1)
$ GOSUB A2
$ DTM1 = FIX
$ READ/PROMPT="lbs.-oz's (baby #1)? " SYS$COMMAND WEIGHT1
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT1
$ LEN = F$LENGTH(WEIGHT1)
$ ! go center it.
$ GOSUB A2
$ WEIGHT1 = FIX
$ READ/PROMPT="Length (baby #1)? " SYS$COMMAND LENGTH1
$ FIX = LENGTH1
$ LEN = F$LENGTH(LENGTH1)
$ GOSUB A2
$ LENGTH1 = FIX
$!Info for baby #2
$ READ/PROMPT="Name (baby #2)? " SYS$COMMAND NAME2
$ FIX = NAME2
$ LEN = F$LENGTH(NAME2)
$ GOSUB A2
$ NAME2 = FIX
$ READ/PROMPT="Date/Time (baby #2)? " SYS$COMMAND DTM2
$ FIX = DTM2
$ LEN = F$LENGTH(DTM2)
$ GOSUB A2
$ DTM2 = FIX
$ READ/PROMPT="lbs.-oz's (baby #2)? " SYS$COMMAND WEIGHT2
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT2
$ LEN = F$LENGTH(WEIGHT2)
$ ! go center it.
$ GOSUB A2
$ WEIGHT2 = FIX
$ READ/PROMPT="Length (baby #2)? " SYS$COMMAND LENGTH2
$ FIX = LENGTH2
$ LEN = F$LENGTH(LENGTH2)
$ GOSUB A2
$ LENGTH2 = FIX
$!
$ READ/PROMPT="Brief text: " SYS$COMMAND TEXT
$ FIX = TEXT              
$ LEN = F$LENGTH(TEXT)    
$ ! go center it.           
$ GOSUB A2                  
$ TEXT = FIX              
$ INQUIRE/NOPUNCT WHOM "To whom do you wish to Mail this to? "
$ GOTO A10
$ A7:
$ CREATE BABY.TXT
$ OPEN/APPEND BABY BABY.TXT
$ WT ""
$ !CLEAR SCREEN CURSOR HOME
$ WT ""
$ WT "(0"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ !WT "q\ /q"
$ !WT "   "
$ !WT "q\ /q "
$ !WT "    q\ /"
$ !WT "q     "
$ !WT "q\ /q "
$ WT "   "
$ WT "(B[?5h[?5l"
$ WT ""
$ WT "(0"
$ WT "/(B~~(0// /(Bo(0\([    >/ooo\\ ssu"
$ WT "/     \\/o\/  /    \// \/  /      /\  \"
$ WT "\  \      x \  \\  \     x  \  \"
$ WT "(\ss\qqqqj\  \  \\mvjj \/  \  \s/\"
$ WT "< \     \   \   \ \/\/ \ \     )   \   /o /"
$ WT "mq/ \sssss/\sss/  /  /"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT " [?5h   [?5l   "
$ WT "     "
$ WT "   "
$ WT "    "
$ WT " [?5h\*"
$ WT "[?5lO  O[?5hy"
$ WT "f[?5l*.."
$ WT "[?5h...[?5l.."
$ WT ".[?5h...[?5l."
$ WT ".  .."
$ WT "* *[?5h  "
$ WT "  [?5l   "
$ WT "     "
$ WT "   (Bo"
$ WT "o(0       "
$ WT "    .."
$ WT " .  "
$ WT " .  "
$ WT ".  "
$ WT "     "
$ WT "  "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT "[?5h  [?5l "
$ WT "     "
$ WT "    "
$ WT "    "
$ WT "   "
$ WT "[?5h  [?5l         "
$ WT "           "
$ WT "[?5h     [?5l af"
$ WT "           f"
$ WT "     "
$ WT "       "
$ WT "[?5h    [?5l f"
$ WT "[?5h.    [?5l      "
$ WT "        "
$ WT "    (0aa"
$ WT "ff.."
$ WT "[?5h"
$ WT "[?5l     "
$ WT "[?5h  [?5l  "
$ WT "           "
$ WT "           "
$ WT "[?5h   [?5l     "
$ WT "           "
$ WT "[?5h [?5l    "
$ WT "       "
$ WT "[?5h  [?5l   "
$ WT "           "
$ WT "        "
$ WT "    (0 "
$ WT "    "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f "
$ WT "f f f"
$ WT " f f "
$ WT "f f f "
$ WT "f f f "
$ WT "f f"
$ WT " ."
$ WT "O"
$ WT "?#3?#4"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "[?5h[?5l(B"
$ !REVERSE VIDEO
$ WT ""
$ !DOUBLE HEIGHT & WIDTH
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#3              I T ' S    A              "
$ WT "#4              I T ' S    A              "
$ WT "#3               ''TYPE' !!               "
$ WT "#4               ''TYPE' !!               "
$ WT "#6                                        "
$ WT "#6''DTM'"
$ WT "#6''WEIGHT'"
$ WT "#6''LENGTH'"
$ WT "#6                                        "
$ WT "#6''NAME'"
$ WT "#6                                        "
$ WT "#6''TEXT'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT ""
$ !ATTRIBUTES OFF
$ WT ""
$ CLOSE BABY
$ TY BABY.TXT;
$ INQUIRE/NOPUNCT GOOD "Is this ok (N/<Y>)? "
$ IF GOOD .EQS. "N" THEN GOTO A5
$ ! I'm keeping track of babynames as well you obviously have the liberty to
$ ! delete my name if you so desire.
$ SAY "Mailing the file now......."
$ WHOM1 = F$LENGTH(WHOM)
$ WHOM2 = F$LOCATE(",",WHOM)
$ WHOM3 = F$LOCATE("@",WHOM)
$ IF WHOM1 .NES. WHOM2 .OR. WHOM1 .NES. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT NM%RANGLY::FREEMAN_KEVI,'WHOM
$ IF WHOM1 .EQS. WHOM2 .AND. WHOM1 .EQS. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT 'WHOM
$ PURGE BABY.TXT
$ DEL BABY.TXT;
$ EXIT
$ A10:
$ CREATE BABY.TXT
$ OPEN/APPEND BABY BABY.TXT
$ WT ""
$ !CLEAR SCREEN CURSOR HOME
$ WT ""
$ WT "(0"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ !WT "q\ /q"
$ !WT "   "
$ !WT "q\ /q "
$ !WT "    q\ /"
$ !WT "q     "
$ !WT "q\ /q "
$ WT "   "
$ WT "(B[?5h[?5l"
$ WT ""
$ WT "(0"
$ WT "/(B~~(0// /(Bo(0\([    >/ooo\\ ssu"
$ WT "/     \\/o\/  /    \// \/  /      /\  \"
$ WT "\  \      x \  \\  \     x  \  \"
$ WT "(\ss\qqqqj\  \  \\mvjj \/  \  \s/\"
$ WT "< \     \   \   \ \/\/ \ \     )   \   /o /"
$ WT "mq/ \sssss/\sss/  /  /"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT " [?5h   [?5l   "
$ WT "     "
$ WT "   "
$ WT "    "
$ WT " [?5h\*"
$ WT "[?5lO  O[?5hy"
$ WT "f[?5l*.."
$ WT "[?5h...[?5l.."
$ WT ".[?5h...[?5l."
$ WT ".  .."
$ WT "* *[?5h  "
$ WT "  [?5l   "
$ WT "     "
$ WT "   (Bo"
$ WT "o(0       "
$ WT "    .."
$ WT " .  "
$ WT " .  "
$ WT ".  "
$ WT "     "
$ WT "  "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT "[?5h  [?5l "
$ WT "     "
$ WT "    "
$ WT "    "
$ WT "   "
$ WT "[?5h  [?5l         "
$ WT "           "
$ WT "[?5h     [?5l af"
$ WT "           f"
$ WT "     "
$ WT "       "
$ WT "[?5h    [?5l f"
$ WT "[?5h.    [?5l      "
$ WT "        "
$ WT "    (0aa"
$ WT "ff.."
$ WT "[?5h"
$ WT "[?5l     "
$ WT "[?5h  [?5l  "
$ WT "           "
$ WT "           "
$ WT "[?5h   [?5l     "
$ WT "           "
$ WT "[?5h [?5l    "
$ WT "       "
$ WT "[?5h  [?5l   "
$ WT "           "
$ WT "        "
$ WT "    (0 "
$ WT "    "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f "
$ WT "f f f"
$ WT " f f "
$ WT "f f f "
$ WT "f f f "
$ WT "f f"
$ WT " ."
$ WT "O"
$ WT "?#3?#4"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "[?5h[?5l(B"
$ !REVERSE VIDEO
$ WT ""
$ !DOUBLE HEIGHT & WIDTH
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#3                I T ' S                 "
$ WT "#4                I T ' S                 "
$ WT "#3               ''TYPE' !!               "
$ WT "#4               ''TYPE' !!               "
$ WT "#6                                        "
$ WT "#6''SEX'"
$ WT "#6                                        "
$ WT "#6''NAME1'"
$ WT "#6                                        "
$ WT "#6''DTM1'"
$ WT "#6''WEIGHT1'"
$ WT "#6''LENGTH1'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6''NAME2'"
$ WT "#6                                        "
$ WT "#6''DTM2'"
$ WT "#6''WEIGHT2'"
$ WT "#6''LENGTH2'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6''TEXT'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT ""
$ !ATTRIBUTES OFF
$ WT ""
$ CLOSE BABY
$ TY BABY.TXT;
$ INQUIRE/NOPUNCT GOOD "Is this ok (N/<Y>)? "
$ IF GOOD .EQS. "N" THEN GOTO A5
$ ! I'm keeping track of babynames as well you obviously have the liberty to
$ ! delete my name if you so desire.
$ SAY "Mailing the file now......."
$ WHOM1 = F$LENGTH(WHOM)
$ WHOM2 = F$LOCATE(",",WHOM)
$ WHOM3 = F$LOCATE("@",WHOM)
$ IF WHOM1 .NES. WHOM2 .OR. WHOM1 .NES. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT NM%RANGLY::FREEMAN_KEVI,'WHOM
$ IF WHOM1 .EQS. WHOM2 .AND. WHOM1 .EQS. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT 'WHOM
$ PURGE BABY.TXT
$ DEL BABY.TXT;
$ EXIT
$A2:
$ ! Determine the center of the text so as to add equal amount of spacing on
$ ! both sides.
$ LEN1 = LEN / 2
$A4:
$ ! adding spaces on both ends
$ FIX15 = "                    " + "''FIX'" + "                    "
$ FIX = F$EXT('LEN1,40,FIX15)
$A3:
$ RETURN
113.6Minor spacing Bugs fixed.DNEAST::FREEMAN_KEVIThe Squeeky Wheel = NeglectTue Oct 10 1989 17:23532
$!10-oct-1989 - fixed minor spacing bugs fireworks don't work well with
$!vt300 series terminals anyone have a fix
$!1-OCT-1989 - added option to annouce twins. Jonathan Hampton
$A5:
$ SAY:== WRITE SYS$OUTPUT
$ !CLEAR SCREEN
$ SAY ""
$ !CURSOR HOME
$ SAY ""
$ SAY "This is a program that Allows an individual to mail the specifics of His or"
$ SAY "Her proud new addition.  In this new age some categories are already"
$ SAY "predetermined.  It may be even faster to have a distribution list already"
$ SAY "set-up.  When mailing takes over separate individuals by comma's.  My"
$ SAY "congratulation to you and send no money just a Cigar :-)  Kevin Freeman"
$ SAY ""
$ WT == "WRITE BABY"
$ INQUIRE/NOPUNCT TYPE "G-Girl or <B-Boy> or T-Twins "
$ IF TYPE .EQS. "" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "B" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "BOY" THEN TYPE = " B O Y "
$ IF TYPE .EQS. "G" THEN TYPE = "G I R L"
$ IF TYPE .EQS. "GIRL" THEN TYPE = "G I R L"
$ IF TYPE .EQS. "T" THEN  GOTO A9
$ IF TYPE .EQS. "TWINS" THEN GOTO A9
$ READ/PROMPT="Date/Time? " SYS$COMMAND DTM
$ FIX = DTM
$ LEN = F$LENGTH(DTM)
$ GOSUB A2
$ DTM = FIX
$ READ/PROMPT="lbs.-oz's? " SYS$COMMAND WEIGHT
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT
$ LEN = F$LENGTH(WEIGHT)
$ ! go center it.
$ GOSUB A2
$ WEIGHT = FIX
$ READ/PROMPT="Length? " SYS$COMMAND LENGTH
$ FIX = LENGTH
$ LEN = F$LENGTH(LENGTH)
$ GOSUB A2
$ LENGTH = FIX
$ READ/PROMPT="Name? " SYS$COMMAND NAME
$ FIX = NAME
$ LEN = F$LENGTH(NAME)
$ GOSUB A2
$ NAME = FIX
$ READ/PROMPT="Brief text: " SYS$COMMAND TEXT
$ FIX = TEXT              
$ LEN = F$LENGTH(TEXT)    
$ ! go center it.           
$ GOSUB A2                  
$ TEXT = FIX              
$ INQUIRE/NOPUNCT WHOM "To whom do you wish to Mail this to? "
$ GOSUB A7
$!For Twins
$ A9:
$ TYPE = "T W I N S"
$ READ/PROMPT="What are the sexes? " SYS$COMMAND SEX
$ FIX = SEX
$ LEN = F$LENGTH(SEX)
$ GOSUB A2            
$ SEX = FIX
$!Info for baby #1
$ READ/PROMPT="Name (baby #1)? " SYS$COMMAND NAME1
$ FIX = NAME1
$ LEN = F$LENGTH(NAME1)
$ GOSUB A2
$ NAME1 = FIX
$ READ/PROMPT="Date/Time (baby #1)? " SYS$COMMAND DTM1
$ FIX = DTM1
$ LEN = F$LENGTH(DTM1)
$ GOSUB A2
$ DTM1 = FIX
$ READ/PROMPT="lbs.-oz's (baby #1)? " SYS$COMMAND WEIGHT1
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT1
$ LEN = F$LENGTH(WEIGHT1)
$ ! go center it.
$ GOSUB A2
$ WEIGHT1 = FIX
$ READ/PROMPT="Length (baby #1)? " SYS$COMMAND LENGTH1
$ FIX = LENGTH1
$ LEN = F$LENGTH(LENGTH1)
$ GOSUB A2
$ LENGTH1 = FIX
$!Info for baby #2
$ READ/PROMPT="Name (baby #2)? " SYS$COMMAND NAME2
$ FIX = NAME2
$ LEN = F$LENGTH(NAME2)
$ GOSUB A2
$ NAME2 = FIX
$ READ/PROMPT="Date/Time (baby #2)? " SYS$COMMAND DTM2
$ FIX = DTM2
$ LEN = F$LENGTH(DTM2)
$ GOSUB A2
$ DTM2 = FIX
$ READ/PROMPT="lbs.-oz's (baby #2)? " SYS$COMMAND WEIGHT2
$ ! this sets up the subroutine to center the weight in the middle of the screen
$ FIX = WEIGHT2
$ LEN = F$LENGTH(WEIGHT2)
$ ! go center it.
$ GOSUB A2
$ WEIGHT2 = FIX
$ READ/PROMPT="Length (baby #2)? " SYS$COMMAND LENGTH2
$ FIX = LENGTH2
$ LEN = F$LENGTH(LENGTH2)
$ GOSUB A2
$ LENGTH2 = FIX
$!
$ READ/PROMPT="Brief text: " SYS$COMMAND TEXT
$ FIX = TEXT              
$ LEN = F$LENGTH(TEXT)    
$ ! go center it.           
$ GOSUB A2                  
$ TEXT = FIX              
$ INQUIRE/NOPUNCT WHOM "To whom do you wish to Mail this to? "
$ GOTO A10
$ A7:
$ CREATE BABY.TXT
$ OPEN/APPEND BABY BABY.TXT
$ WT ""
$ !CLEAR SCREEN CURSOR HOME
$ WT ""
$ WT "(0"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ !WT "q\ /q"
$ !WT "   "
$ !WT "q\ /q "
$ !WT "    q\ /"
$ !WT "q     "
$ !WT "q\ /q "
$ WT "   "
$ WT "(B[?5h[?5l"
$ WT ""
$ WT "(0"
$ WT "/(B~~(0// /(Bo(0\([    >/ooo\\ ssu"
$ WT "/     \\/o\/  /    \// \/  /      /\  \"
$ WT "\  \      x \  \\  \     x  \  \"
$ WT "(\ss\qqqqj\  \  \\mvjj \/  \  \s/\"
$ WT "< \     \   \   \ \/\/ \ \     )   \   /o /"
$ WT "mq/ \sssss/\sss/  /  /"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT " [?5h   [?5l   "
$ WT "     "
$ WT "   "
$ WT "    "
$ WT " [?5h\*"
$ WT "[?5lO  O[?5hy"
$ WT "f[?5l*.."
$ WT "[?5h...[?5l.."
$ WT ".[?5h...[?5l."
$ WT ".  .."
$ WT "* *[?5h  "
$ WT "  [?5l   "
$ WT "     "
$ WT "   (Bo"
$ WT "o(0       "
$ WT "    .."
$ WT " .  "
$ WT " .  "
$ WT ".  "
$ WT "     "
$ WT "  "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT "[?5h  [?5l "
$ WT "     "
$ WT "    "
$ WT "    "
$ WT "   "
$ WT "[?5h  [?5l         "
$ WT "           "
$ WT "[?5h     [?5l af"
$ WT "           f"
$ WT "     "
$ WT "       "
$ WT "[?5h    [?5l f"
$ WT "[?5h.    [?5l      "
$ WT "        "
$ WT "    (0aa"
$ WT "ff.."
$ WT "[?5h"
$ WT "[?5l     "
$ WT "[?5h  [?5l  "
$ WT "           "
$ WT "           "
$ WT "[?5h   [?5l     "
$ WT "           "
$ WT "[?5h [?5l    "
$ WT "       "
$ WT "[?5h  [?5l   "
$ WT "           "
$ WT "        "
$ WT "    (0 "
$ WT "    "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f "
$ WT "f f f"
$ WT " f f "
$ WT "f f f "
$ WT "f f f "
$ WT "f f"
$ WT " ."
$ WT "O"
$ WT "?#3?#4"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "[?5h[?5l(B"
$ !REVERSE VIDEO
$ WT ""
$ !DOUBLE HEIGHT & WIDTH
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#3              I T ' S    A              "
$ WT "#4              I T ' S    A              "
$ WT "#3               ''TYPE' !!               "
$ WT "#4               ''TYPE' !!               "
$ WT "#6                                        "
$ WT "#6''DTM'"
$ WT "#6''WEIGHT'"
$ WT "#6''LENGTH'"
$ WT "#6                                        "
$ WT "#6''NAME'"
$ WT "#6                                        "
$ WT "#6''TEXT'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT ""
$ !ATTRIBUTES OFF
$ WT ""
$ CLOSE BABY
$ TY BABY.TXT;
$ INQUIRE/NOPUNCT GOOD "Is this ok (N/<Y>)? "
$ IF GOOD .EQS. "N" THEN GOTO A5
$ ! I'm keeping track of babynames as well you obviously have the liberty to
$ ! delete my name if you so desire.
$ SAY "Mailing the file now......."
$ WHOM1 = F$LENGTH(WHOM)
$ WHOM2 = F$LOCATE(",",WHOM)
$ WHOM3 = F$LOCATE("@",WHOM)
$ IF WHOM1 .NES. WHOM2 .OR. WHOM1 .NES. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT NM%RANGLY::FREEMAN_KEVI,'WHOM
$ IF WHOM1 .EQS. WHOM2 .AND. WHOM1 .EQS. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT 'WHOM
$ PURGE BABY.TXT
$ DEL BABY.TXT;
$ EXIT
$ A10:
$ CREATE BABY.TXT
$ OPEN/APPEND BABY BABY.TXT
$ WT ""
$ !CLEAR SCREEN CURSOR HOME
$ WT ""
$ WT "(0"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ !WT "q\ /q"
$ !WT "   "
$ !WT "q\ /q "
$ !WT "    q\ /"
$ !WT "q     "
$ !WT "q\ /q "
$ WT "   "
$ WT "(B[?5h[?5l"
$ WT ""
$ WT "(0"
$ WT "/(B~~(0// /(Bo(0\([    >/ooo\\ ssu"
$ WT "/     \\/o\/  /    \// \/  /      /\  \"
$ WT "\  \      x \  \\  \     x  \  \"
$ WT "(\ss\qqqqj\  \  \\mvjj \/  \  \s/\"
$ WT "< \     \   \   \ \/\/ \ \     )   \   /o /"
$ WT "mq/ \sssss/\sss/  /  /"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT " [?5h   [?5l   "
$ WT "     "
$ WT "   "
$ WT "    "
$ WT " [?5h\*"
$ WT "[?5lO  O[?5hy"
$ WT "f[?5l*.."
$ WT "[?5h...[?5l.."
$ WT ".[?5h...[?5l."
$ WT ".  .."
$ WT "* *[?5h  "
$ WT "  [?5l   "
$ WT "     "
$ WT "   (Bo"
$ WT "o(0       "
$ WT "    .."
$ WT " .  "
$ WT " .  "
$ WT ".  "
$ WT "     "
$ WT "  "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f"
$ WT " f f"
$ WT " f "
$ WT " f f"
$ WT " f f"
$ WT " f f"
$ WT " f f f"
$ WT " f "
$ WT "[?5h  [?5l "
$ WT "     "
$ WT "    "
$ WT "    "
$ WT "   "
$ WT "[?5h  [?5l         "
$ WT "           "
$ WT "[?5h     [?5l af"
$ WT "           f"
$ WT "     "
$ WT "       "
$ WT "[?5h    [?5l f"
$ WT "[?5h.    [?5l      "
$ WT "        "
$ WT "    (0aa"
$ WT "ff.."
$ WT "[?5h"
$ WT "[?5l     "
$ WT "[?5h  [?5l  "
$ WT "           "
$ WT "           "
$ WT "[?5h   [?5l     "
$ WT "           "
$ WT "[?5h [?5l    "
$ WT "       "
$ WT "[?5h  [?5l   "
$ WT "           "
$ WT "        "
$ WT "    (0 "
$ WT "    "
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "\/q\\  /q"
$ WT "\    "
$ WT "  "
$ WT "ff f "
$ WT "f f f"
$ WT " f f "
$ WT "f f f "
$ WT "f f f "
$ WT "f f"
$ WT " ."
$ WT "O"
$ WT "?#3?#4"
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "[?5h[?5l(B"
$ !REVERSE VIDEO
$ WT ""
$ !DOUBLE HEIGHT & WIDTH
$ WT ""
$ WT ""
$ WT ""
$ WT ""
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#3                I T ' S                 "
$ WT "#4                I T ' S                 "
$ WT "#3             ''TYPE' !!               "
$ WT "#4             ''TYPE' !!               "
$ WT "#6                                        "
$ WT "#6''SEX'"
$ WT "#6                                        "
$ WT "#6''NAME1'"
$ WT "#6                                        "
$ WT "#6''DTM1'"
$ WT "#6''WEIGHT1'"
$ WT "#6''LENGTH1'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6''NAME2'"
$ WT "#6                                        "
$ WT "#6''DTM2'"
$ WT "#6''WEIGHT2'"
$ WT "#6''LENGTH2'"
$ WT "#6                                        "
$ WT "#6                                        "
$ WT "#6''TEXT'"
$ wt ""
$ !ATTRIBUTES OFF
$ CLOSE BABY
$ TY BABY.TXT;
$ INQUIRE/NOPUNCT GOOD "Is this ok (N/<Y>)? "
$ IF GOOD .EQS. "N" THEN GOTO A5
$ ! I'm keeping track of babynames as well you obviously have the liberty to
$ ! delete my name if you so desire.
$ SAY "Mailing the file now......."
$ WHOM1 = F$LENGTH(WHOM)
$ WHOM2 = F$LOCATE(",",WHOM)
$ WHOM3 = F$LOCATE("@",WHOM)
$ IF WHOM1 .NES. WHOM2 .OR. WHOM1 .NES. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT NM%RANGLY::FREEMAN_KEVI,'WHOM
$ IF WHOM1 .EQS. WHOM2 .AND. WHOM1 .EQS. WHOM3 THEN MAIL/SUBJECT=" type at your MAIL> prompt  EXT/NOHEADER TT" BABY.TXT 'WHOM
$ PURGE BABY.TXT
$ DEL BABY.TXT;
$ EXIT
$A2:
$ ! Determine the center of the text so as to add equal amount of spacing on
$ ! both sides.
$ LEN1 = LEN / 2
$A4:
$ ! adding spaces on both ends
$ FIX15 = "                    " + "''FIX'" + "                    "
$ FIX = F$EXT('LEN1,40,FIX15)
$A3:
$ RETURN
113.7doesn't work for meRAINBW::BHARRISONFri Mar 02 1990 04:147
    
      Help- I keep getting error messages after each question
    says something about verbs and has  /GOSUB/ on each line
    What's wrong ?????    I think this is a great file but I
    can't get it to work !!
                        Bummmed out
113.8need more infoSHALDU::MCBLANEMon Mar 05 1990 14:555
Hmm.  It works for me.  Can you be more specific about the message,
what type of terminal you are using and how you are answering the
questions?

-Amy
113.9how's thisRAINBW::BHARRISONMon Mar 05 1990 21:1110
     I'm using a vt100 or a vt200 and neither works right !!
    the error message is (Unreconized command verb check spelling) \GOSUB\
    after every answer except the first - girl or boy
    I've tried entering the answers with and without quotes" "
    I've tried without spaces between words !!
     Can you tell me how you enter your answers and mail me your 
    file to see how it looks compared to mine.
    
                          still bummed
113.10...but I'm no VMS expertECADSR::HAMPTONEasy does it, Do it easy....Tue Mar 06 1990 13:035
    A quick guess....try doing a HELP GOSUB at the dcl prompt.  If there
    is no help info available, then it is probably the version VMS you
    are using.
    
    -Hamp
113.11Displaying on uVAX...ECADSR::HAMPTONEasy does it, Do it easy....Mon Mar 26 1990 14:495
    When displaying on a microvax, I get horizontal lines across the
    screen separating each line of text.  It works fine with a vt100.
    Does anyone have fix for this?
    
    -Hamp