Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: F-PC Forth Tutorial
Message-ID: <631.UUL1.3#5129@willett.UUCP>
Date: 8 Mar 90 01:02:42 GMT
Organization: Latest link in the ForthNet chain.  (Pgh, PA)
Lines: 72


 Date: 03-06-90 (10:46)              Number: 506 (Echo)
   To: ALL                           Refer#: NONE
 From: JUDE DASHIELL                   Read: (N/A)
 Subj: DATA BASE ASSIGMENT - 2       Status: PUBLIC MESSAGE

 TO:  Jack Brown
 FROM:  Mr. Jude T. DaShiell
 SUBJECT:  database homework assignment  Part 2

  An example of the calculations involved before anything
 goes into the database is as follows:

 Givens:
 DATE--September 19, 1989,
 FLIGHT--1672

 9+1+9+1+9+8+9=46
 4+6=10
 1+0=1
 Date Value=1

 1+6+7+2=16
 1+6=7
 Flight Value=7
 Correspondence in above table=-1 or discordant.

 Now down to forth:
 The first word I am defining is airtable and its purpose is to show the
 available flights that have been documented in this database: If it
 works the way I wanted it to, you just type airtable cr to see the
 available flights.

 : airtable cr
 ." AVAILABLE AIR CRASHES ARE: " cr
 ." FLIGHT 1672 " cr
 ." FLIGHT 5050 " cr ;

 : FLIGHT1672 CR
 ." FLIGHT 1672 DATE SEPTEMBER 19, 1989 " CR
 ." FLIGHT VALUE 7 DATE VALUE 1 " CR
 ." FORECASE VALUE -1 " CR ;

 : FLIGHT5050 CR
 ." FLIGHT 5050 DATE SEPTEMBER 20, 1989 " CR
 ." FLIGHT VALUE 1 DATE VALUE 2 " CR
 ." FORECAST VALUE -1 " CR ;

 I hope this is interesting enough for your collection.

 One note about the language operation on my computer and this has to do
 with the speech synthesizer.  I normally use the word slow for operation
 of the language.  I find that when I run these words the output to my
 speech synthesizer slows down very much when numbers are spoken by the
 forth language.  I don't know why this should be but the frequency of
 the speech synthesizer is lowered and under dos after the forth language
 is run the same thing happens each time I hit a decimal point or period
 key. Have you any ideas for a fix? We can get the active cooperation of
 artic technologies on this matter if necessary since any software
 developer willing to work with Artic will be warmly welcomed.

 Mr. Jude T. DaShiell

 P.S.
 Sorry about the delay in turning this assignment in, work got very busy
 and I just got my head out from under recently.  The work is down to a
 steady frantic now and will probably remain their for awhile.

 NET/Mail : British Columbia Forth Board - Burnaby BC - (604)434-5886   
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: 'uunet!willett!dwp' or 'willett!dwp@gateway.sei.cmu.edu'