(FILECREATED "22-May-85 11:37:26" ("compiled on " {PHYLUM}RELEASE1.2>LIBRARY>ARIDEMO.;8) "20-Dec-84 12:07:22" recompiled changes: ARI.RunDemo in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "22-May-85 11:36:47" {PHYLUM}RELEASE1.2>LIBRARY>ARIDEMO.;8 8508 changes to: ( VARS ARIDEMOCOMS) (FNS ARI.RunDemo) previous date: "30-Apr-85 11:46:09" {PHYLUM}RELEASE1.2>LIBRARY>ARIDEMO.;6) ARI.RunDemo D1 (P 21Q NextCard P 20Q CurrentCard P 17Q LessonBox P 16Q FirstCard P 15Q Cards P 14Q Box P 2 LessonMenuItems P 1 MainMenu P 0 LessonBoxes) oooohZ`i ` X `do@ H,d_ gOho_O Oh_O&_Ooh dKd`d`$d`dg dgjdndhdL Y0I _dgH hO __d O`O dMdJd`d`$d`dg dgjdndhdN dgOdO o h_"pdg(O_h_"`o PO OOdg(O_h_"3o #O OOg O _"O")O O"d O"_ (712Q NCP.BringUpCard 707Q ARI.LessonCardPosition 700Q ARI.DeactivateCards 656Q ARI.DeactivateCards 621Q PROMPTPRINT 544Q PROMPTPRINT 503Q PROMPTPRINT 454Q MENU 352Q NCP.CardTitle 333Q NCP.BringUpCard 330Q ARI.LessonCardPosition 317Q ARI.ReturnDaughterCardsInOrder 306Q NCP.CloseNoteFile 303Q ARI.DeactivateCards 266Q MENU 164Q \NCONC2 102Q NCP.CardTitle 51Q NCP.ActivateCards 45Q ARI.ReturnDaughterCardsInOrder 37Q NCP.OpenNoteFile) (646Q End% Lesson 572Q Next 515Q Previous 460Q First 425Q DEFAULTMENUHELDFN 416Q CLRPROMPT 407Q ARI.LessonMenuPosition 400Q ARI.LessonMenuTitleFont 371Q ARI.LessonMenuFont 344Q MENUTYPE# 274Q **QUIT** 232Q DEFAULTMENUHELDFN 223Q CLRPROMPT 214Q ARI.MainMenuPosition 205Q ARI.MainMenuTitleFont 176Q ARI.MainMenuFont 105Q QUOTE 54Q MENUTYPE# 42Q ARI.StartingFileBox 33Q ARI.DemoFileName) ( 616Q "You're at the last lesson element!" 541Q "You're at the first lesson element!" 500Q "You're already looking at the first lesson element." 157Q (**QUIT** (QUOTE **QUIT**) "End this instructional session and close up shop.") 116Q ("Work on this lesson next.") 62Q "Choose next lesson" 22Q (End% Lesson (QUOTE End% Lesson) "End this lesson returning to main lesson menu.") 16Q (First (QUOTE First) "Bring up first element of this lesson.") 12Q (Previous (QUOTE Previous) "Go back to previous element of this lesson.") 6 (Next (QUOTE Next) "Move to next element of this lesson.")) ARI.LessonCardPosition D1 (I 0 Card) @g `(6 NCP.CardProp) (13Q ARI.DefaultLessonCardPosition 3 POSITION) () ARI.ReturnDaughterCardsInOrder D1 (P 0 ActiveFlg I 0 Card) G@ H@ 0@ g @hdlIdKJh\J&LH@ (103Q NCP.DeactivateCards 32Q NCP.CardTypeInheritedFn 24Q NCP.CardType 14Q NCP.ActivateCards 3 NCP.ActiveCardP) (27Q CollectLinksInCardFn) () ARI.DeactivateCards D1 (P 2 Win P 1 Card I 0 Cards) .@ddh!HhY Z I HXnd (51Q MOVEW 34Q NCP.DeactivateCards 25Q NCP.CardWindow) NIL () (PRETTYCOMPRINT ARIDEMOCOMS) (RPAQQ ARIDEMOCOMS ((GLOBALVARS ARI.DemoFileName ARI.ContentsCardPosition ARI.DefaultLessonCardPosition ARI.MainMenuFont ARI.MainMenuTitleFont ARI.MainMenuPosition ARI.LessonMenuFont ARI.LessonMenuTitleFont ARI.LessonMenuPosition ARI.StartingFileBox) (VARS ( ARI.DemoFileName (QUOTE {PHYLUM}RELEASE1.2>DEMO>7STEPSDEMO)) (ARI.ContentsCardPosition ( QUOTE (400 . 500))) (ARI.MainMenuFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE MRR))) ( ARI.MainMenuTitleFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE BRR))) (ARI.MainMenuPosition (QUOTE ( 900 . 600))) (ARI.LessonMenuFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE MRR))) ( ARI.LessonMenuTitleFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE BRR))) (ARI.LessonMenuPosition (QUOTE (800 . 500))) (ARI.DefaultLessonCardPosition (QUOTE (100 . 500)))) (INITVARS (ARI.StartingFileBox ( QUOTE NC00001))) (FNS ARI.RunDemo ARI.LessonCardPosition ARI.ReturnDaughterCardsInOrder ARI.DeactivateCards))) (RPAQQ ARI.DemoFileName {PHYLUM}RELEASE1.2>DEMO>7STEPSDEMO) (RPAQQ ARI.ContentsCardPosition (400 . 500)) (RPAQ ARI.MainMenuFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE MRR))) (RPAQ ARI.MainMenuTitleFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE BRR))) (RPAQQ ARI.MainMenuPosition (900 . 600)) (RPAQ ARI.LessonMenuFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE MRR))) (RPAQ ARI.LessonMenuTitleFont (FONTCREATE (QUOTE TIMESROMAN) 14 (QUOTE BRR))) (RPAQQ ARI.LessonMenuPosition (800 . 500)) (RPAQQ ARI.DefaultLessonCardPosition (100 . 500)) (RPAQ? ARI.StartingFileBox (QUOTE NC00001)) (PUTPROPS ARIDEMO COPYRIGHT ("Xerox Corporation" 1985)) NIL