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: <621.UUL1.3#5129@willett.UUCP> Date: 6 Mar 90 01:04:36 GMT Organization: Latest link in the ForthNet chain. (Pgh, PA) Lines: 20 Date: 03-05-90 (00:08) Number: 504 (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: Jude T. DaShiell 3/5/1990. : l1 cr cr 2 0 do 9 0 do 35 emit loop space loop 8 0 do 35 emit loop cr ; : l2 7 0 do 4 0 do space loop 35 emit 9 0 do space loop 35 emit 5 0 do space loop 35 emit 7 0 do space loop 35 emit cr loop ; : l3 3 0 do 35 emit 3 0 do space loop 35 emit 9 0 do space loop 35 emit 5 0 do space loop 35 emit cr loop ; : l4 space 3 0 do 35 emit loop 6 0 do space loop 35 emit 5 0 do space lspace loop 8 0 do 35 emit loop cr cr ; : initials l1 l2 l3 l4 ; ----- 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'