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: <620.UUL1.3#5129@willett.UUCP>
Date: 6 Mar 90 01:04:33 GMT
Organization: Latest link in the ForthNet chain.  (Pgh, PA)
Lines: 41


 Date: 03-04-90 (12:49)              Number: 503 (Echo)
   To: JACK BROWN                    Refer#: NONE
 From: JUDE DASHIELL                   Read: NO
 Subj: 2ND HOMEWORK ASSIGNMENT       Status: PUBLIC MESSAGE

 \ 2nd homework assignment to run type initials
 \ from: Mr. Jude T. DaShiell 3/4/1990.
 : l1 177 emit ;
 : l2 9 0 ;
 : l3 8 0 ;
 : l4 7 0 ;
 : l5 6 0 ;
 : l6 5 0 ;
 : l7 4 0 ;
 : l8 3 0 ;
 : l9 l2 do space loop ;
 : l10 l4 do space loop ;
 : l11 l5 do space loop ;
 : l12 l6 do space loop ;
 : l13 l2 do l1 loop space ;
 : l14 l3 do l1 loop cr ;
 : l15 l4 do l1 loop ;
 : l16 l13 l13 l14 ;
 : l17 l12 l1 ;
 : l18 l9 l1 ;
 : l19 l10 l1 ;
 : l20 l9 l1 cr ;
 : l21 l17 l18 l19 l20 ;
 : l22 l4 do l20 loop ;
 : l23 l1 l8 ;
 : l24 l1 l9 ;
 : l25 l1 l12 ;
 : l26 l1 l10 ;
 : l27 l1 cr ;
 : l28 l23 l24 l25 l26 l27 ;
 : l29 space l15 l11 l1 l12 l14 cr ;
 : initials l16 l22 l28 l29 ;
-----
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'