íEíCfÃçü       Initializing Media      ððFIRST DIR  ‚Uªÿ BOOT       DIRECTORY  ØCALENDARAT¬DANCEALEFT1DANCERAEFT	"EDITORAEFTÓERAAS LEFT¡FILEMAKERAÍFLIGHTAEFTAFRTNWHLAFTµINIT.CALAAéJULY4ALEFT’LOGOCOPYAT´LOGODIALERA ‡LOGOMENUAT#:MAINPKRAFT'ªMENUAEFT.;MUSEUMAEFT0NEW.PETAFT5P :RW "Q [VIEW :CAL]MAKE "ITEM ITEM :RW THING :DATEPPROP "CALENDAR "NOTES LPUT :ITEM GPROP "CALENDAR "NOTESMAKE :DATE DELETE :ITEM THING :DATEROLLOVER%ENDTO ROLLOVERCSDISPLAY THING :DATEPR []PR [ROLLOVER NUMBER?]PR [OR Q TO QUIT]MAKE "RW RWIF EQUALP :RW "Q [VIEW :CAL]MAKE "ITEM ITEM :RW THING :DATEADD :ITEM FIRST BUTFIRST :CALMAKE :DATE DELETE :ITEM THING :DATEROLLOVERENDTO PREVIOUSMAKE "CAL BL FPUT LAST :CAL :CALVIEWENDTO ADD :ITEM :LISTMAKE :LIST LPUT :ITEM THING :LISTENDTO ARegisterATBLOCKS LEFT‘BLOCKS LEFT‘TO MEMONOTECSMAKE "NUM 1EXHIBET GPROP "CALENDAR "NOTESPR []PR [DATE OF MEMO:]PR [OR Q TO QUIT]MAKE "RW RWIF EQUALP :RW "Q [SEE GPROP "CALENDAR "NOTES]IF NOT NAMEP :RW [MEMONOTE]PR [NOTE TO MOVE]MAKE "RC RWMAKE "ITEM ITEM :RC GPROP "CALENDAR "NOTESCSEXHIBET DELETE :ITEM GPROP "CALENDAR "NOTESPPROP "CALENDAR "NOTES DELETE :ITEM GPROP "CALENDAR "NOTESMAKE :RW LPUT :ITEM THING :RWMEMONOTEENDTO ROLLOVER%CSDISPLAY THING :DATEPR []PR [ROLLOVER NUMBER?]PR [OR Q TO QUIT]MAKE "RW RWIF EQUALÕPLAYFNAEFT:KPOKERAEFT?PRDRIVEAFTBREADMEA    CÈRENAS LEFTW·ROADSALEFTZCSAINTALEFT]ÖSET.MUSEUMA^cSPYHUNTAFT_æTOWERALEFTa!WEIRDALEFTf`WINTERAEFTs`WORDSLIST1A€úWORDSLISTAùWORLDALEFT‚4S_TROLLS_TH„—ADAMCONA  ˆ€Readme1stAŠSubscibA  ‹DDMEMOCSPR []PR :DATEPR []PR ( SE :NUM [MEMORANDUM:]MAKE "RL RLIF EQUALP :RL [Q] [VIEW]ADD :RL :DATEMAKE "NUM ( :NUM + 1 )ADDMEMOENDTO DELMEMOCSDISPLAY THING :DATEPR []PR [DELETE NUMBER?]PR [OR Q TO QUIT]MAKE "RW RWIF EQUALP :RW "Q [VIEW]MAKE "ITEM ITEM :RW THING :DATEDISPLAY DELETE :ITEM THING :DATEPR [OK?]IF EQUALP RC "Y [MAKE :DATE DELETE :ITEM THING :DATE]DELMEMOENDTO NEXTMAKE "CAL BF LPUT FIRST :CAL :CALVIEWENDTO DELDATEPR [DELETE THIS?]MAKE "RC RCIF NOT EQUALP :RC "R Q TO QUIT]MAKE "RW RWIF EQUALP :RW "Q [SEE GPROP "CALENDAR "NOTES]MAKE "ITEM ITEM :RW GPROP "CALENDAR "NOTESMAKE "NUM 1CSEXHIBET DELETE :ITEM GPROP "CALENDAR "NOTESPR [OK?]IF EQUALP RC "Y [PPROP "CALENDAR "NOTES DELETE :ITEM GPROP "CALENDAR "NOTES]DELNOTEENDTO SEE :LISTCSMAKE "NUM 1EXHIBET :LISTPR []PR [1 ADD NOTE]PR [2 DELETE NOTE]PR [3 MAKE NOTE A MEMO]MAKE "RC RCIF EQUALP :RC 1 [MAKE "NUM 1 ADDNOTE]IF EQUALP :RC 2 [DELNOTE]IF EQUALP :RC 3 [MEMONOTE]MENUENDTO ADDNOTECSPR []FPUT LAST :CAL :CALFASTBACKENDTO SAVEITCSPR [ERASING OLD FILE...]ERF :MONTHERF "NOTESCSPR [SAVING NEW FILE...]SAVENS :MONTHSAVEPROPS "NOTESMENUENDTO MENUCS HTPR []PR [1 CHOOSE CALENDAR]PR [2 VIEW CALENDAR]PR [3 SAVE CALENDAR]PR [4 CREATE FILES]PR [5 VIEW NOTES]MAKE "RC RCIF EQUALP :RC 1 [GETMONTH]IF EQUALP :RC 3 [SAVEIT]IF EQUALP :RC 2 [MAKE "CAL THING :MONTH VIEW :CAL]IF EQUALP :RC 5 [SEE GPROP "CALENDAR "NOTES]IF EQUALP :RC 4 [CHECK ERALL LOAD "FILEMAKER]MENUENDTO VIEWMAKR Q TO QUIT]MAKE "RW RWIF EQUALP :RW "Q [SEE GPROP "CALENDAR "NOTES]MAKE "ITEM ITEM :RW GPROP "CALENDAR "NOTESMAKE "NUM 1CSEXHIBET DELETE :ITEM GPROP "CALENDAR "NOTESPR [OK?]IF EQUALP RC "Y [PPROP "CALENDAR "NOTES DELETE :ITEM GPROP "CALENDAR "NOTES]DELNOTEENDTO SEE :LISTCSMAKE "NUM 1EXHIBET :LISTPR []PR [1 ADD NOTE]PR [2 DELETE NOTE]PR [3 MAKE NOTE A MEMO]MAKE "RC RCIF EQUALP :RC 1 [MAKE "NUM 1 ADDNOTE]IF EQUALP :RC 2 [DELNOTE]IF EQUALP :RC 3 [MEMONOTE]MENUENDTO ADDNOTECSPR []WLOAD :MONTHLOAD "NOTESMAKE "CAL THING :MONTHVIEW :CALENDTO CHECKIF NAMEP "MONTH [ERF :MONTH SAVENS :MONTH]ENDTO RWOP FIRST RLENDTO DELETE :ITEM :LISTIF EMPTYP :LIST [OUTPUT :LIST]IF EQUALP :ITEM FIRST :LIST [OUTPUT BUTFIRST :LIST]OUTPUT FPUT FIRST :LIST DELETE :ITEM BUTFIRST :LISTENDTO EXHIBET :LIIF EMPTYP :LI [STOP]TYPE :NUMTYPE [\ ]PR FIRST :LIMAKE "NUM ( :NUM + 1 )EXHIBET BUTFIRST :LIENDTO DELNOTECSMAKE "NUM 1EXHIBET GPROP "CALENDAR "NOTESPR []PR [DELETE NUMBER?]PR [OY [VIEW :CAL]ERN FIRST :CALMAKE :MONTH DELETE FIRST :CAL THING :MONTHMAKE "CAL DELETE FIRST :CAL :CALVIEWENDTO FASTFORWARDCSVIEW%IF KEYP [MAKE :RC RC VIEW]MAKE "CAL BF LPUT FIRST :CAL :CALFASTFORWARDENDTO DISPLAY :LISTCSPR []REPEAT 7 [TYPE [\ ]]PR :YEARPR []PR FIRST :CALPR []MAKE "NUM 1EXHIBET :LISTENDTO PRINTOUTPRINTERDISPLAY THING FIRST :CALNOPRINTERENDTO VIEW%MAKE "DATE FIRST :CALDISPLAY THING :DATEENDTO FASTBACKCSVIEW%IF KEYP [MAKE :RC RC VIEW :CAL]MAKE "CAL BL PR ( SE :NUM [NOTE:]MAKE "RL RLIF EQUALP :RL [Q] [SEE GPROP "CALENDAR "NOTES]PPROP "CALENDAR "NOTES LPUT :RL GPROP "CALENDAR "NOTESMAKE "NUM ( :NUM + 1 )ADDNOTEENDTYP :LIST [OUTPUT :LIST]IF EQUALP :ITEM FIRST :LIST [OUTPUT BUTFIRST :LIST]OUTPUT FPUT FIRST :LIST DELETE :ITEM BUTFIRST :LISTENDTO EXHIBET :LIIF EMPTYP :LI [STOP]TYPE :NUMTYPE [\ ]PR FIRST :LIMAKE "NUM ( :NUM + 1 )EXHIBET BUTFIRST :LIENDTO DELNOTECSMAKE "NUM 1EXHIBET GPROP "CALENDAR "NOTESPR []PR [DELETE NUMBER?]PR [OE "DATE FIRST :CALDISPLAY THING :DATEPR []PR [( 1: NEXT )]PR [( 2: DELETE DATE )]PR [( 3: PREVIOUS )]MAKE "RC RCIF EQUALP :RC 1 [NEXT]IF EQUALP :RC 2 [DELDATE]IF EQUALP ASCII :RC 149 [PRINTOUT]IF EQUALP ASCII :RC 151 [DELMEMO]IF EQUALP ASCII :RC 148 [MAKE "NUM 1 ADDMEMO]IF EQUALP :RC 3 [PREVIOUS]IF EQUALP ASCII :RC 144 [ROLLOVER]IF EQUALP ASCII :RC 152 [ROLLOVER%]IF EQUALP ASCII :RC 161 [FASTFORWARD]IF EQUALP ASCII :RC 163 [FASTBACK]MENUENDTO GETMONTHPR []ERNSPR [MONTH:]MAKE "MONTH RTO STARTCT TELL ALL HOME PU HTLOAD "DANCERPUTSH 1 :PART1PUTSH 2 :PART2PUTSH 3 :PART3PUTSH 4 :PART4PUTSH 5 :PART5PUTSH 6 :PART6PUTSH 7 :PART7PUTSH 8 :PART8PUTSH 9 :PART9PUTSH 10 :PART10PUTSH 11 :PART11PUTSH 12 :PART12PUTSH 13 :PART13TELL 0 STDANCEENDTO DANCESETH 0SETSH 1WAIT 15SETSH 2RT 90SETSP 3WAIT 15SETSH 3WAIT 15SETSH 4WAIT 15SETSH 5WAIT 15SETSH 6WAIT 15SETSP 0SETSH 7WAIT 15SETSP 3SETSH 8WAIT 15SETSH 9WAIT 15SETSH 10WAIT 15SETSH 11WAIT 15SETSH 12WAIT 15SE "PART8 [3 3 3 3 1 3 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 126 0 0 0 0 0]MAKE "PART7 [3 3 3 3 1 255 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 64 32 16 8 4 2]MAKE "PART6 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 192 160 152 128 128 64 32 16 8 4 2]MAKE "PART5 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 192 160 152 128 128 127 0 0 0 0 0]MAKE "PART4 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKE "PART3 [3MAKE "PART13 [3 3 3 3 1 255 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 64 32 16 8 4 2]MAKE "PART12 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 128 128 128 0 254 128 128 128 128 64 32 16 8 4 2]MAKE "PART11 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 192 160 152 128 128 127 0 0 0 0 0]MAKE "PART10 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKE "PART9 [3 3 3 3 1 3 3 3 3 3 2 4 8 16 32 64 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKE.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 246.CALL 31726ENDTO READ :BLOCK.DEPOSIT 31733 4.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 243.CALL 31726ENDTO LOOKAT :ADDRESSTYPE :ADDRESSSETCURSOR SE [10] LAST CURSORTYPE .EXAMINE :BUFFERSTART + :ADDRESSSETCURSOR SE [20] LAST CURSORPR LETTER .EXAMINE :BUFFERSTART + :ADDRESSMAKE "RC RCIF EQUALP :RC "Q [STOP]IF EQUALP :RC "C [CHANGE SUM :ADDRESS :BUFFERSTART]IF EQUALP :RC "S [CHANGELETTER SUM :ADDRESS :BUFFERSTART]LOOKAT SUM :ADDRESS 1ENDTO CHANGELETTER : 3 3 3 1 3 3 3 3 3 4 8 16 32 64 128 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKE "PART2 [3 3 3 3 1 255 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 127 0 0 0 0 0]MAKE "PART1 [3 3 3 3 1 255 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 64 32 16 8 4 2] 127 0 0 0 0 0]MAKE "PART10 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKE "PART9 [3 3 3 3 1 3 3 3 3 3 2 4 8 16 32 64 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKETSP 0SETSH 13DANCEENDMAKE "STARTUP [START]128 128 0 255 128 128 128 128 126 0 0 0 0 0]MAKE "PART7 [3 3 3 3 1 255 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 64 32 16 8 4 2]MAKE "PART6 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 192 160 152 128 128 64 32 16 8 4 2]MAKE "PART5 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 192 160 152 128 128 127 0 0 0 0 0]MAKE "PART4 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKE "PART3 [3TO CHANGE :ADDRESSPR [NEW VALUE].DEPOSIT :ADDRESS FIRST RLLOOKAT :ADDRESS - :BUFFERSTARTENDTO LETTER :NUMIF AND ( :NUM > 64 ) ( :NUM < 91 ) [OP ITEM ( :NUM - 64 ) :ALPHA]IF AND ( :NUM > 96 ) ( :NUM < 123 ) [OP ITEM ( :NUM - 96 ) :ALPHA]OP "ENDTO SETUP.ALLOCATE 255.INSTALL 31726 [1 0 0 17 0 0 62 4 33 238 119 205 243 252 201]ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO WRITE :BLOCK.DEPOSIT 31733 4 "PART8 [3 3 3 3 1 3 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 126 0 0 0 0 0]MAKE "PART7 [3 3 3 3 1 255 3 3 3 3 2 2 2 2 2 2 192 128 128 128 0 255 128 128 128 128 64 32 16 8 4 2]MAKE "PART6 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 192 160 152 128 128 64 32 16 8 4 2]MAKE "PART5 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 192 160 152 128 128 127 0 0 0 0 0]MAKE "PART4 [3 3 3 3 1 3 3 3 3 3 252 0 0 0 0 0 192 132 136 144 32 194 132 136 144 160 64 0 0 0 0 0]MAKE "PART3 [3ADDRESSPR [NEW VALUE].DEPOSIT :ADDRESS ASCII RCLOOKAT :ADDRESS - :BUFFERSTARTENDMAKE "STARTUP [SETUP]MAKE "RC "HMAKE "ALPHA [A B C D E F G H I J K L M N O P Q R S T U V W X Y Z]MAKE "BUFFERSTART 30702 ) [OP ITEM ( :NUM - 96 ) :ALPHA]OP "ENDTO SETUP.ALLOCATE 255.INSTALL 31726 [1 0 0 17 0 0 62 4 33 238 119 205 243 252 201]ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO WRITE :BLOCK.DEPOSIT 31733 4 FIRST :INPUTENDTO ERASEFILES :LISTIF EMPTYP :LIST [STOP]ERF BL FIRST :LISTERASEFILES BF :LISTENDTO E :LIF EMPTYP :L [STOP]ERF FIRST :LE BF :LENDTO SUB :NEWITEM :OLDITEM :LISTIF EMPTYP :LIST [OP []]IF LISTP FIRST :LIST [OP FPUT SUB :NEWITEM :OLDITEM FIRST :LIST SUB :NEWITEM :OLDITEM BF :LIST]IF EQUALP :OLDITEM FIRST :LIST [OP FPUT :NEWITEM SUB :NEWITEM :OLDITEM BF :LIST]OP FPUT FIRST :LIST SUB :NEWITEM :OLDITEM BF :LISTENDTO READ.DEPOSIT 31733 4.DEPOSIT 31730 1.DEPOSIT 31738 243.CATO LETTER :NUMIF AND ( :NUM > 64 ) ( :NUM < 91 ) [OP ITEM ( :NUM - 64 ) :ALPHA]IF AND ( :NUM > 96 ) ( :NUM < 123 ) [OP ITEM ( :NUM - 96 ) :ALPHA]IF AND ( :NUM > 32 ) ( :NUM < 65 ) [OP ITEM ( :NUM - 32 ) :SYMBOL]IF AND ( :NUM > 90 ) ( :NUM < 97 ) [OP ITEM ( :NUM - 90 ) :SYMBOL2]OP "ENDTO ENTRY :ADDRESSIF EQUALP 3 .EXAMINE :ADDRESS [OP "]OP WORD LETTER .EXAMINE :ADDRESS ENTRY SUM :ADDRESS 1ENDTO PRETTYPRINT :LIST :NUMIF EMPTYP :LIST [SETCURSOR [2 18] STOP]IF :NUM > 16 [SETCURSOR SE 15 ( :NUM - T 1987] WAIT 100 ERA]MAKE "SYMBOL2 [\[ \\ \] ^ _ `]MAKE "SYMBOL [! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @]MAKE "ALPHA [A B C D E F G H I J K L M N O P Q R S T U V W X Y Z]MAKE "BUFFERSTART 30702MAKE "ERALIST []MAKE "DIRECTORY [CALENDDOC JAN FEB MAR NOTES MAY JUN APR JUL AUG SEP OCT NOV DEC CALENDAR FILEMAKER RENDOC REN ERA LOGODIALER ERADOC DIALERDOC MENUDOC LOGOMENU]MAKE "CHOICE "2NEWITEM :OLDITEM BF :LISTENDTO READ.DEPOSIT 31733 4.DEPOSIT 31730 1.DEPOSIT 31738 243.CA [1 0 0 17 0 0 62 4 33 238 119 205 243 252 201]ENDTO ERALIST :FILENUMIF EQUALP :FILENUM "Q [STOP]IF EQUALP :FILENUM "* [MAKE "ERALIST :DIRECTORY STOP]MAKE "ERALIST LPUT ITEM :FILENUM :DIRECTORY :ERALISTSETCURSOR [2 18]PR :ERALISTERALIST GETFILE RLENDTO GETFILE :INPUTIF EQUALP :INPUT [] [OP "Q]IF EQUALP :INPUT [*] [OP "*]IF EMPTYP :INPUT [OP GETFILE RL]IF NOT NUMBERP FIRST :INPUT [OP GETFILE RL]IF EQUALP FIRST :INPUT 0 [OP GETFILE RL]IF ( FIRST :INPUT ) > COUNT :DIRECTORY [OP GETFILE RL]OP.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 246.CALL 31726ENDTO READ :BLOCK.DEPOSIT 31733 4.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 243.CALL 31726ENDTO LOOKAT :ADDRESSTYPE :ADDRESSSETCURSOR SE [10] LAST CURSORTYPE .EXAMINE :BUFFERSTART + :ADDRESSSETCURSOR SE [20] LAST CURSORPR LETTER .EXAMINE :BUFFERSTART + :ADDRESSMAKE "RC RCIF EQUALP :RC "Q [STOP]IF EQUALP :RC "C [CHANGE SUM :ADDRESS :BUFFERSTART]IF EQUALP :RC "S [CHANGELETTER SUM :ADDRESS :BUFFERSTART]LOOKAT SUM :ADDRESS 1ENDTO CHANGELETTER :LL 31726ENDTO DISKSETDEVICE 4DEFINE "READ ( SUB 4 8 TEXT "READ )ENDTO TAPESETDEVICE 0DEFINE "READ ( SUB 8 4 TEXT "READ )ENDTO CHOOSEMEDIUMMAKE "CHOICE RCIF NOT MEMBERP :CHOICE [1 2] [CHOOSEMEDIUM]IF EQUALP :CHOICE 1 [TAPE] [DISK]ENDTO ERAPR []PR [1.TAPE OR 2.DISK?]CHOOSEMEDIUMCS PR [READING DIRECTORY..]READ_DIRECTORYCSPRETTYPRINT :DIRECTORY 1MAKE "ERALIST []ERALIST GETFILE RLE :ERALISTCATALOGENDMAKE "STARTUP [CS HT PR [WELCOME TO ERA] PR [WRITTEN BY ANDREW HECKERT] PR [AUGUS16 )]IF :NUM < 17 [SETCURSOR SE 2 :NUM]TYPE :NUM TYPE [\ ]PR FIRST :LISTPRETTYPRINT BF :LIST SUM :NUM 1ENDTO VIEW :ENTRYIF :ENTRY > 31740 [STOP]IF EQUALP .EXAMINE ( :ENTRY + 12 ) 16 [MAKE "DIRECTORY LPUT BL ENTRY :ENTRY :DIRECTORY]VIEW SUM :ENTRY 26ENDTO READ_DIRECTORYMAKE "DIRECTORY []SETUPREADVIEW :BUFFERSTART + 78ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO SETUP.ALLOCATE 255.INSTALL 31726TO E :LIF EMPTYP :L [STOP]ERASE FIRST :LE BUTFIRST :LENDTO DAT :DATE :DATIF NOT NUMBERP LAST :DATE [OP :DAT STOP]OP DAT BUTLAST :DATE WORD LAST :DATE :DATENDTO WEEK% :WEEK :FIRSTDAYIF EQUALP :FIRSTDAY FIRST :WEEK [OP :WEEK STOP]OP WEEK% LPUT FIRST :WEEK BF :WEEK :FIRSTDAYENDTO ADDLEAPDAYS :YEAROP SUM INT QUOTIENT ( :YEAR - 1985 ) 4 1ENDTO MONT :DATE :NUM :MONTHIF EQUALP :NUM 4 [OP :MONTH STOP]OP MONT BUTFIRST :DATE :NUM + 1 WORD :MONTH FIRST :DATEENDTO JAN1 :YEAROP ITEM SUM REMAIND "OCT "A 274 PPROP "NOV "A 305 PPROP "DEC "A 335 STOPENDTO RWOP FIRST RLENDTO MENURECYCLECSPR []PR [YEAR:]MAKE "YEAR RWLEAPYEARCSPR [1: FILES FOR JAN TO JUN]PR []PR [2: FILES FOR JUL TO DEC]PR []PR [3: FILES FOR WHOLE YEAR]RUN EVALUATE RCERALLLOAD "STARTUPENDPPROP "DEC "X 31PPROP "DEC "A 336PPROP "NOV "X 30PPROP "NOV "A 306PPROP "OCT "X 31PPROP "OCT "A 275PPROP "SEP "X 30PPROP "SEP "A 245PPROP "AUG "X 31PPROP "AUG "A 214PPROP "JUL "X 31PPROP "JUL "A 183PPROP "JUN "X 30IF EMPTYP GPROP :MONTH "Y [OP GPROP :MONTH "X]IF LEAPYEAR? :YEAR [OP GPROP :MONTH "Y]OP GPROP :MONTH "XENDTO WEEK :MONTHOP WEEK% [SUN MON TUE WED THU FRI SAT] FIRSTDAY :MONTHENDTO MONTH :WEEK :NIM :NUMMAKE :MONTH LPUT ( WORD FIRST :WEEK :MONTH :NIM ) THING :MONTHIF EQUALP :NUM :NIM [STOP]MONTH LPUT FIRST :WEEK BF :WEEK :NIM + 1 :NUMENDTO MON :DATEOP MONT :DATE 1 "ENDTO MEMOFILE :MONIF EMPTYP :MON [STOP]MAKE FIRST :MON []MEMOFILE BUTFIRST :MONENDTO MAKEFILE :MONTHRECYCLEMAKE :MONT "OCT "A 274 PPROP "NOV "A 305 PPROP "DEC "A 335 STOPENDTO RWOP FIRST RLENDTO MENURECYCLECSPR []PR [YEAR:]MAKE "YEAR RWLEAPYEARCSPR [1: FILES FOR JAN TO JUN]PR []PR [2: FILES FOR JUL TO DEC]PR []PR [3: FILES FOR WHOLE YEAR]RUN EVALUATE RCERALLLOAD "STARTUPENDPPROP "DEC "X 31PPROP "DEC "A 336PPROP "NOV "X 30PPROP "NOV "A 306PPROP "OCT "X 31PPROP "OCT "A 275PPROP "SEP "X 30PPROP "SEP "A 245PPROP "AUG "X 31PPROP "AUG "A 214PPROP "JUL "X 31PPROP "JUL "A 183PPROP "JUN "X 30MAR APR MAY JUN JUL AUG SEP OCT NOV DEC]]]ENDTO LEAPYEAR? :YEARIF EQUALP ( REMAINDER :YEAR - 1984 4 ) 0 [OP "TRUE]OP "FALSEENDTO LEAPYEARPPROP "JAN "A 1PPROP "FEB "A 32IF LEAPYEAR? :YEAR [PPROP "MAR "A 61 PPROP "APR "A 92 PPROP "MAY "A 122 PPROP "JUN "A 153 PPROP "JUL "A 183 PPROP "AUG "A 214 PPROP "SEP "A 245 PPROP "OCT "A 275 PPROP "NOV "A 306 PPROP "DEC "A 336 STOP]PPROP "MAR "A 60 PPROP "APR "A 91 PPROP "MAY "A 121 PPROP "JUN "A 152 PPROP "JUL "A 182 PPROP "AUG "A 213 PPROP "SEP "A 244 PPROPER SUM PRODUCT DIFFERENCE :YEAR 1984 365 ADDLEAPDAYS :YEAR 7 1 [SUN MON TUE WED THU FRI SAT]ENDTO ROTATE :LISTIF EQUALP JAN1 :YEAR FIRST :LIST [OP :LIST]OP ROTATE LPUT FIRST :LIST BF :LISTENDTO FIRSTDAY% :MONTHOP REMAINDER GPROP :MONTH "A 7ENDTO PPRINTERPOPSNOPRINTERENDTO FIRSTDAY :MONTHIF EQUALP FIRSTDAY% :MONTH 0 [OP LAST ROTATE [SUN MON TUE WED THU FRI SAT]]OP ITEM FIRSTDAY% :MONTH ROTATE [SUN MON TUE WED THU FRI SAT]ENDTO CLEANSEERN "WEEKERN "FIRSTDAYERN "NUMENDTO NUM :MONTHPPROP "JUN "A 153PPROP "MAY "X 31PPROP "MAY "A 122PPROP "APR "X 30PPROP "APR "A 92PPROP "MAR "X 31PPROP "MAR "A 61PPROP "FEB "X 28PPROP "FEB "Y 29PPROP "FEB "A 32PPROP "JAN "X 31PPROP "JAN "A 1"MAR "A 61 PPROP "APR "A 92 PPROP "MAY "A 122 PPROP "JUN "A 153 PPROP "JUL "A 183 PPROP "AUG "A 214 PPROP "SEP "A 245 PPROP "OCT "A 275 PPROP "NOV "A 306 PPROP "DEC "A 336 STOP]PPROP "MAR "A 60 PPROP "APR "A 91 PPROP "MAY "A 121 PPROP "JUN "A 152 PPROP "JUL "A 182 PPROP "AUG "A 213 PPROP "SEP "A 244 PPROPH []MONTH WEEK :MONTH 1 NUM :MONTHMEMOFILE THING :MONTHENDTO MAKEM :LISTIF EMPTYP :LIST [REMPROP "LIST "X STOP]MAKEFILE FIRST :LISTERF FIRST :LISTTYPE [*]SAVENS FIRST :LISTTYPE [*]PPROP "YEAR "Z :YEARPPROP "LIST "X :LISTERNSMAKE "YEAR GPROP "YEAR "ZMAKEM BF GPROP "LIST "XENDTO EVALUATE :INPUTIF NOT MEMBERP :INPUT [1 2 3] [EVALUATE RC]IF EQUALP :INPUT 1 [OP [MAKEM [JAN FEB MAR APR MAY JUN]]]IF EQUALP :INPUT 2 [OP [MAKEM [JUL AUG SEP OCT NOV DEC]]]IF EQUALP :INPUT 3 [OP [MAKEM [JAN FEB TO SINGIF ( ( RANDOM 5 )=1) [MAKE "ON 9] [MAKE "ON 0]REPEAT 5 [TOOT 0 ((RANDOM 1000)+900):ON 3]ENDTO MOVETELL 1 SETSP 20TELL 2 SETSP 40TELL 3 SETSP 50TELL [1 2 3 4 5] STTELL 6 SETSH 4 SETPC 4 PD STAMPMAKE "OK RCERDSENDTO TITLETELL ALL HOME SETH 0TELL 1 SETSH 1SETC 14 FD 20 SETH 2TELL [2 3] SETSH 2TELL 2 BK 30 SETH 34SETC 13TELL 3 LT 90 BK 20 SETH 100SETC 8TELL 4 SETSH 3 SETC 15LT 45 FD 100TELL 5 SETSH 5 SETC 14ENDTO SETPUTSH 1 :SHUTTLEPUTSH 2 :SATTELITEPUTSH 3 :MOONPUTSH 5 :\(1 TO 4\)?] TYPE CHAR 32MAKE "ANS ASCII FIRST RLIF OR :ANS<49 :ANS>52 [BEEP CS WELCOME]MAKE "NUM CHAR :ANSPRINT [ENTER THE NUMBER OR LETTER] PRINT [OF THE WORDLIST TO USE] PRINT [(1 TO 9 OR A TO Z)] MAKE "WORDSLIST WORD         "WORDSLIST RCCS SETCURSOR [4 4] TYPE SE :NUM "PLAYERSSETCURSOR [4 6] TYPE :WORDSLISTSETCURSOR [6 8] TYPE [(Y/N)?]MAKE "ANS RCIF :ANS="Y [PLAYERS.NAMES :NUM]BEEP WELCOMEENDTO RWOP FIRST RLENDTO PLAYERS.NAMES :NUMCS MAKE "CNT 1PRINT SE :WORDSLIST [WILL BE LOADED] PRKE "MOON [3 15 63 63 127 124 248 248 248 248 252 127 127   63 31 7 240 192 192 0 0 0 0 0 0 0 0 0 0 192 192 240]MAKE "SATTELITE [0 8 6 6 9 1 3 3 5 8 16 0 0 0 0 0 0 0 0 0 32 64 128 128 64 32 16 8 0 0 0 0]MAKE "SHUTTLE [0 0 0 0 0 0 127 255 63 1 0 0 0 0 0 0 0 0 0 6  14 30 255 255 254 240 240 112 0 0 0 0]MAKE "ON 0L 2 BK 30 SETH 34SETC 13TELL 3 LT 90 BK 20 SETH 100SETC 8TELL 4 SETSH 3 SETC 15LT 45 FD 100TELL 5 SETSH 5 SETC 14ENDTO SETPUTSH 1 :SHUTTLEPUTSH 2 :SATTELITEPUTSH 3 :MOONPUTSH 5 :70] PUSETHEADING 0FD 70 SETHEADING 270 PD CIRCLEL 70 PU SETHEADING 0 BK 70SETCURSOR [2 0] PRINT [PLAYER]SETCURSOR [24 0] PRINT [TYPE]SETCURSOR [2 4] PRINT [VALUE:]TELL 7 SETSH 7 PU FD 80 LT 90 FD 123 PD SETPC 15 REPEAT 10   [STAMP BK 8] PU BK 90 PD REPEAT 10 [STAMP BK 8] PU HOMEFD 50 LT 90 FD 105 PD REPEAT 6 [STAMP BK 6] PU HOMEBK 30 LT 90 FD 123 SETPC 7 PD REPEAT 20 [STAMP BK 14 STAMP]  PU HOMEBK 46 LT 90 FD 123 SETPC 15 PD REPEAT 20 [STAMP BK 14] PU    HOMEBK 87 LT 90 FD 123 SETPC 11 PD REPEAT TO ;:COMMENTENDTO LETTER.GUESSMAKE "VOWEL.FLAG "CONSONANTSETCURSOR [2 5] TYPE :P.VAL*100 TYPE CHAR 32SETCURSOR [1 15] TYPE [BUY VOWEL Y/N?]MAKE "ANS RCSETCURSOR [1 15] REPEAT 17 [TYPE CHAR 32]IF :ANS="Y [MAKE "VOWEL.FLAG "VOWEL]IF NOT OR :ANS="N :ANS="Y [BEEP LETTER.GUESS]SETCURSOR [3 15] TYPE SE [YOUR] :VOWEL.FLAGSETCURSOR [7 17]MAKE "GUESS RWSETCURSOR [7 17] TYPE CHAR 32CHECK.LETTERENDTO BEEPTOOT 0 440 15 15ENDTO WELCOMEINIT.TURTLE HTPRINT [WHEEL OF FORTUNE]TYPE [HOW MANY PLAYERS EARTHWHEN 0 [SING]ENDTO SKYSETCURSOR [10 9]PRINT [NIGHT FLITE]SETCURSOR [9 14]PRINT [BY D. JACKSCH]TELL 0 PDREPEAT 70 [SETPC (RANDOM 15) DOT SE RANDOM 256 RANDOM 192]TELL 0 PUCTWAIT 100ENDTO BEGINERDS RECYCLETHAWWRAPTELL ALL CS PU HTSETBG 1SKYSETTITLEMOVEENDMAKE "STARTUP [BEGIN]MAKE "X 4MAKE "NO 4MAKE "NAMES [SHUTTLE SATTELITE MOON EARTH]MAKE "OK "SMAKE "EARTH [4 31 63 123 112 240 120 60 62 62 254 14 78 63   31 4 96 56 244 232 112 113 125 253 249 56 57 56 254 252 248  32]MA []PRINT [ENTER PLAYER NAMES.]PRINT [] MAKE "PLAYER.LIST []REPEAT :NUM [PRINT SE [PLAYER NUMBER] :CNT MAKE "ANS RW MAKE "PLAYER.LIST LPUT :ANS :PLAYER.LIST MAKE "CNT :CNT+1 PPROP   "SCORE :ANS 0]DRAW.SCREENENDTO INIT.TURTLEERDS THAWTELL ALLCS HT SETSH 36SETC 15SETPC 15 PDSETBG 5TELL 0 STSETTEXT 0ENDTO DRAW.SCREENINIT.TURTLE SETTEXT 23WRAP CS HT TELL 0 ST SETC 1 SETPC 12PU FD 25 LT 9 PD FD 70 BK 70RT 18 FD 70 BK 70REPEAT 4 [RT 36 FD 70 BK 70]RT 18 FD 70 BK 70REPEAT 4 [RT 36 FD 70 BK EARTHWHEN 0 [SING]ENDTO SKYSETCURSOR [10 9]PRINT [NIGHT FLITE]SETCURSOR [9 14]PRINT [BY D. JACKSCH]TELL 0 PDREPEAT 70 [SETPC (RANDOM 15) DOT SE RANDOM 256 RANDOM 192]TELL 0 PUCTWAIT 100ENDTO BEGINERDS RECYCLETHAWWRAPTELL ALL CS PU HTSETBG 1SKYSETTITLEMOVEENDMAKE "STARTUP [BEGIN]MAKE "X 4MAKE "NO 4MAKE "NAMES [SHUTTLE SATTELITE MOON EARTH]MAKE "OK "SMAKE "EARTH [4 31 63 123 112 240 120 60 62 62 254 14 78 63   31 4 96 56 244 232 112 113 125 253 249 56 57 56 254 252 248  32]MA20 [STAMP BK 14] RT 90 FD 15 LT 90 REPEAT 20 [STAMP BK 14] PU HOMESETCURSOR [14 1] TYPE "BR SETCURSOR [10 2] TYPE "200         SETCURSOR [17 2] TYPE "300 SETCURSOR [8 5] TYPE "400         SETCURSOR [20 5] TYPE "500 SETCURSOR [7 9] TYPE "600         SETCURSOR [20 9] TYPE "700 SETCURSOR [8 13] TYPE "800        SETCURSOR [19 13] TYPE "900 SETCURSOR [12 14] TYPE "1000     SETCURSOR [16 13] TYPE "L SETCURSOR [17 14] TYPE "TTELL 0 COLOR.CIRDISPLAY.PLAYERSENDTO CIRCLEL :RADIUSMAKE "STEP 2* :RADIUS*3.1416/36 BE IN]PICKONE "OLDPR [NEW MEDIUM WITH SMARTLOGO] PR [WILL BE IN]PICKONE "NEWENDTO STARTUP.CALTELL ALL HT CSCHOOSEDRIVESCS PR [MAKE SURE NEW MEDIUM] PR SE [IS IN DEVICE] GPROP "NEW "DRIVE PR [...WHEN YOU ARE READY] PR [PRESS RETURN] MAKE "RC RC ERNSPPROP "FILE "LIST [FROG JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC NOTES]SETDEVICE GPROP "NEW "DRIVECREATENEWFILESERPSSETDEVICE GPROP "OLD "DRIVEIF EQUALP GPROP "OLD "DRIVE GPROP "NEW "DRIVE [PR [PUT NIADLOGO3 IN DRIVE] PR [THEN HIT RETURN] NOLOAD "PLAYFNENDMAKE "STARTUP [WELCOME]MAKE "ANS 51MAKE "STEP 12.217333MAKE "PLAYER.LIST []MAKE "NUM "3MAKE "R 21MAKE "C 2MAKE "CNT 1MAKE "WORDSLIST "WORDSLIST1        SETCURSOR [20 5] TYPE "500 SETCURSOR [7 9] TYPE "600         SETCURSOR [20 9] TYPE "700 SETCURSOR [8 13] TYPE "800        SETCURSOR [19 13] TYPE "900 SETCURSOR [12 14] TYPE "1000     SETCURSOR [16 13] TYPE "L SETCURSOR [17 14] TYPE "TTELL 0 COLOR.CIRDISPLAY.PLAYERSENDTO CIRCLEL :RADIUSMAKE "STEP 2* :RADIUS*3.1416/36TURN] NOISE 1 3 5 7 9 MAKE "RC RC]ERNS ERPROPSMAKE "STARTUP [TELL ALL HT CS PR [CALENDAR PROGRAM BY] PR [ANDREW HECKERT] WAIT 100 MENU]SAVE "STARTUPERALLLOAD "FILEMAKER MENUENDMAKE "STARTUP [STARTUP.CAL] RETURN] MAKE "RC RC ERNSPPROP "FILE "LIST [FROG JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC NOTES]SETDEVICE GPROP "NEW "DRIVECREATENEWFILESERPSSETDEVICE GPROP "OLD "DRIVEIF EQUALP GPROP "OLD "DRIVE GPROP "NEW "DRIVE [PR [PUT NIADLOGO3 IN DRIVE] PR [THEN HIT RETURN] NOTO PICKONE :DRIVEPR [1 TAPE DRIVE ONE]PR [2 TAPE DRIVE TWO]PR [3 DISK DRIVE ONE]PR [4 DISK DRIVE TWO]PPROP :DRIVE "DRIVE PICKIT RCENDTO PICKIT :CHOICEIF EQUALP :CHOICE 1 [OP 0]IF EQUALP :CHOICE 2 [OP 1]IF EQUALP :CHOICE 3 [OP 4]IF EQUALP :CHOICE 4 [OP 5]OP PICKIT RCENDTO CREATENEWFILESERNSPPROP "FILE "LIST BF GPROP "FILE "LISTIF EMPTYP GPROP "FILE "LIST [STOP]SAVENS FIRST GPROP "FILE "LISTPR SE FIRST GPROP "FILE "LIST [FILE CREATED]CREATENEWFILESENDTO CHOOSEDRIVESPR [NIADLOGO3 WILLREPEAT 36 [LT 5 FD :STEP LT 5]ENDTO COLOR.CIRMAKE "C 1REPEAT 6 [PU FD 20 SETPC :C PD FILL MAKE "C :C+2 BK 20 RT    32]MAKE "C 10 SETHEADING 180REPEAT 5 [PU FD 20 SETPC :C PD FILL MAKE "C :C-2 BK 20 RT    36]PUSETHEADING 0ENDTO DISPLAY.PLAYERSMAKE "CNT 1 MAKE "C 2 MAKE "R 21REPEAT :NUM [SETCURSOR SE :C :R TYPE ITEM :CNT :PLAYER.LIST  MAKE "C :C+7 MAKE "CNT :CNT+1]SETCURSOR [27 23]RECYCLEPLAYFNENDTO PLAYFNERPSRECYCLESETCURSOR [0 15] TYPE [LOADING DATA] SETCURSOR [23 23]LOAD :WORDSLISTISE 1 3 5 7 9 MAKE "RC RC]LOAD "FILEMAKERSETDEVICE GPROP "NEW "DRIVEIF EQUALP GPROP "OLD "DRIVE GPROP "NEW "DRIVE [PR [PUT NEW MEDIUM IN DRIVE] PR [THEN HIT RETURN] NOISE 1 3 5 7 9 MAKE "RC RC]ERNS SAVE "FILEMAKERSETDEVICE GPROP "OLD "DRIVEIF EQUALP GPROP "OLD "DRIVE GPROP "NEW "DRIVE [PR [PUT NIADLOGO3 IN DRIVE] PR [THEN HIT RETURN] NOISE 1 3 5 7 9 MAKE "RC RC]ERPSLOAD "CALENDARSETDEVICE GPROP "NEW "DRIVEIF EQUALP GPROP "OLD "DRIVE GPROP "NEW "DRIVE [PR [PUT NEW MEDIUM IN DRIVE] PR [THEN HIT REREPEAT 36 [LT 5 FD :STEP LT 5]ENDTO COLOR.CIRMAKE "C 1REPEAT 6 [PU FD 20 SETPC :C PD FILL MAKE "C :C+2 BK 20 RT    32]MAKE "C 10 SETHEADING 180REPEAT 5 [PU FD 20 SETPC :C PD FILL MAKE "C :C-2 BK 20 RT    36]PUSETHEADING 0ENDTO DISPLAY.PLAYERSMAKE "CNT 1 MAKE "C 2 MAKE "R 21REPEAT :NUM [SETCURSOR SE :C :R TYPE ITEM :CNT :PLAYER.LIST  MAKE "C :C+7 MAKE "CNT :CNT+1]SETCURSOR [27 23]RECYCLEPLAYFNENDTO PLAYFNERPSRECYCLESETCURSOR [0 15] TYPE [LOADING DATA] SETCURSOR [23 23]LOAD :WORDSLISTTO GREETINGHT CS SETBG 12SETCURSOR [3 8]PR [\*\ 4TH OF JULY GREETING\ \*]SETCURSOR [13 14] PR [BY]SETCURSOR [7 18] PR [KIP H. HAMMOND]WAIT 180ENDTO MOREIF LBUTTONP 0 [JULY4TH]IF RBUTTONP 0 [CS SETBG 5 SETSH 36 SETC 15 SETPC 15 HOME ST  S TOP]MOREENDTO AGAINWAIT 200SETBG 13SETCURSOR [4 5]PR [WANT TO SEE IT AGAIN?]SETCURSOR [2 10]WAIT 100PR [IF SO, PRESS LEFT 'FIRE'] PR [BUTTON]     PR []WAIT 100PR [IF NOT, PRESS RIGHT 'FIRE']PR [BUTTON]MOREENDTO BANGSETBG 1NOISE 6 15 1 15 15RT 1 523.25 10 90TOOT 0 261.63 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 25WAIT 50TOOT 1 523.25 10 90TOOT 0 261.63 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 25WAIT 50TOOT 1 523.25 10 180TOOT 0 261.63 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 30TOOT 0 329.63 15 30TOOT 0 261.63 15 30TOOT 0 329.63 15 30TOOT 1 783.99 10 35TOOT 0 293.66 15 35WAIT 50SAINT2ENDTO RET? :INPUTIF EQUALP ASCII :INPUT 13 [STOP]RET? RCENDTO COPY.ALLOCATE 255.INS BK 20PU RT 90 FD 30 LT 90 PDFD 20 RT 140 FD 27 LT 140 FD 20 BK 20 PURT 90 FD 30 LT 90 PDFD 20 RT 90 FD 10 BK 20 PU HOMEENDTO CURVREPEAT 40 [FD 1 LT 1]ENDTO CRACKERPU SETPC 6 SETPOS [-60 -60]SETH 45PD FD 120LT 70 CURV SETH 225 FD 120LT 70 CURV LT 180 RT 40 CURVPU SETH 315 SETPC 9 BK 20 PD FILLPU RT 90 SETPC 6 FD 50 PD FILL PU HOMEENDMAKE "STARTUP [JULY4TH]MAKE "SPARK2 [16 24 12 6 3 63 34 35 32 33 227 130 130 2 6 4  24 12 4 4 4 132 196 196 252 192 64 64 96 48 24 12]MAKE "SPARK [1 1 193[INSERT SOURCE DISK IN DISK] PR [DRIVE 1] PR [INSERT TARGET DISK IN DISK] PR [DRIVE 2] PR [THEN PRESS RETURN] RET? RC CS PR [COPYING...] COPY CS PR [COPY COMPLETE] SAINT STARTUP]0TOOT 0 392 15 25WAIT 50TOOT 1 523.25 10 180TOOT 0 261.63 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 30TOOT 0 329.63 15 30TOOT 0 261.63 15 30TOOT 0 329.63 15 30TOOT 1 783.99 10 35TOOT 0 293.66 15 35WAIT 50SAINT2ENDTO RET? :INPUTIF EQUALP ASCII :INPUT 13 [STOP]RET? RCENDTO COPY.ALLOCATE 255.INSTO SAINT2TOOT 1 783.99 10 65TOOT 0 329.63 15 20WAIT 20TOOT 0 329.63 15 20TOOT 0 293.66 15 20TOOT 1 523.25 10 110TOOT 0 261.63 15 30WAIT 30TOOT 0 261.63 15 20TOOT 0 329.63 15 30TOOT 0 392 15 30WAIT 30TOOT 1 698.46 10 55TOOT 0 392 15 20TOOT 0 349.23 15 35WAIT 50TOOT 1 698.46 10 40TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 1 523.25 10 105TOOT 0 392 15 35TOOT 0 329.63 15 35TOOT 0 261.63 15 35TOOT 1 783.99 10 35TOOT 0 293.66 15 35TOOT 1 523.25 10 40TOOT 0 261.63 15 40ENDTO SAINTTOOEPEAT 48 [SETBG BG + 1]HT CSAGAINENDTO JULY4THGREETINGPUTSH 33 :SPARKPUTSH 34 :SPARK2CS HT SETBG 4CRACKER TNT FUZESETCURSOR [4 22]PR [HAPPY 4TH OF JULY !!!]LIGHTBANGENDTO LIGHTRECYCLEPE BK 1 SETSH 33 SETC 8 ST REPEAT 60 [FD 4 SETC 10 SETSH 34  BK 4 SETC 8 SETSH 33 LT 90 FD 1 RT 90 NOISE 7 15 0 2 2]ENDTO FUZEPU SETPOS [15 40]SETH 65 SETPC 2PD REPEAT 3 [FD 60 BK 60 RT 90 FD 1 LT 90]PU FD 60 LT 90ENDTO TNTPU SETPOS [-50 -35] SETH 315 SETPC 15PD FD 20 RT 90 FD 10 BK 20 FD 10 LT 90TALL 31726 [1 0 0 17 0 0 62 4 33 238 119 205 243 252 201]COPY% 0ENDTO .INSTALL :BASE.ADR :BYTE.LISTIF EMPTYP :BYTE.LIST [STOP].DEPOSIT :BASE.ADR FIRST :BYTE.LIST.INSTALL SUM :BASE.ADR 1 BUTFIRST :BYTE.LISTENDTO COPY% :BLOCKIF EQUALP :BLOCK 160 [STOP].DEPOSIT 31730 :BLOCKREADWRITECOPY% SUM :BLOCK 1ENDTO READ.DEPOSIT 31733 4.DEPOSIT 31738 243.CALL 31726ENDTO WRITE.DEPOSIT 31733 5.DEPOSIT 31738 246.CALL 31726ENDMAKE "STARTUP [TELL ALL HT CS PR [LOGOCOPY] PR [BY ANDREW HECKERT] PR  97 49 25 13 7 3 7 13 25 48 96 0 0 0 0 0 1 31 48 96 64 248 14 3 129 128 128 128 128]                                                             HAPPY 4TH OF JULY !!!]LIGHTBANGENDTO LIGHTRECYCLEPE BK 1 SETSH 33 SETC 8 ST REPEAT 60 [FD 4 SETC 10 SETSH 34  BK 4 SETC 8 SETSH 33 LT 90 FD 1 RT 90 NOISE 7 15 0 2 2]ENDTO FUZEPU SETPOS [15 40]SETH 65 SETPC 2PD REPEAT 3 [FD 60 BK 60 RT 90 FD 1 LT 90]PU FD 60 LT 90ENDTO TNTPU SETPOS [-50 -35] SETH 315 SETPC 15PD FD 20 RT 90 FD 10 BK 20 FD 10 LT 90TO SERN "STARTUPERF "NUMBERSSAVENS "NUMBERSENDTO DIAL :DIGITIF NOT EQUALP :DIGIT 10 [PR :DIGIT]IF EQUALP :DIGIT "" [STOP]IF EQUALP :DIGIT "L [DIAL% THING FIRST FIRST :L STOP]IF EQUALP :DIGIT 0 [DIAL 10]REPEAT :DIGIT [NUMOUT 37 WAIT 2 NUMOUT 39 WAIT 2]ENDTO NUMOUT :NUM.DEPOSIT 31697 :NUM.CALL :STARTENDTO DREPEAT 4 [NUMBOUT 37 NUMBOUT 39]ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO NUMBOUT :NULOGODIALER] PR [BY ANDREW HECKERT] WHEN 4 [INITUART] LOAD "NUMBERS]MAKE "CONTROL [62 0 211 95 201]MAKE "START 31696MAKE "CHOICE "2NLIST BF :L]OP NLIST BF :LENDTO PRETTYPRINT :LIST :NUMIF EMPTYP :LIST [STOP]TYPE :NUM TYPE [\ ]TYPE FIRST :LISTSKIP DIFFERENCE 14 COUNT FIRST :LISTPR THING FIRST :LISTPRETTYPRINT BF :LIST SUM :NUM 1ENDTO LISTNUMBERSCSPRINTER?PR [SORTING...]PRETTYPRINT SORT NLIST .CONTENTS 1NOPRINTERENDTO SORT :LISTIF EMPTYP :LIST [OP []]OP INSERT FIRST :LIST SORT BF :LITEM FIRST :LIST [OP BF :LIST]OP FPUT FIRST :LIST DELETE :ITEM BF :LISTENDTO EVAL :INPUTIF EMPTYP :INPUT [OP EVAL RL]IF NOT NUMBERP FIRST :INPUT [OP EVAL RL]IF EQUALP FIRST :INPUT 0 [OP EVAL RL]IF ( FIRST :INPUT ) > ( COUNT :LISP ) [OP EVAL RL]OP FIRST :INPUTENDTO ERASEN :NUMERN ITEM :NUM :LISPOP DELETE ITEM :NUM :LISP :LISPENDTO PURGE% :LISPPRETTYPRINT :LISP 1PURGE% ERASEN EVAL RLENDTO PURGERECYCLECS PR [ONE MOMENT...]PURGE% NLIST .CONTENTSENDTO SKIP :SPACESREPEAT :SPACES [TYPE1 0 0 17 0 0 62 4 33 238 119 205 243 252 201]ENDTO VIEW :ENTRYIF :ENTRY > 31740 [STOP]IF EQUALP .EXAMINE ( :ENTRY + 12 ) 16 [MAKE "DIRECTORY LPUT ENTRY :ENTRY :DIRECTORY]VIEW SUM :ENTRY 26ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO LETTER :NUMIF AND ( :NUM > 64 ) ( :NUM < 91 ) [OP ITEM ( :NUM - 64 ) :ALPHA]IF AND ( :NUM > 96 ) ( :NUM < 123 ) [OP ITEM ( :NUM - 96 ) :ALPHA]IF AND ( :NUM > 32 ) ( :NUM < ISTENDTO INSERT :WORD :LISTIF EMPTYP :LIST [OP FPUT :WORD []]IF LESSTHAN :WORD FIRST :LIST [OP FPUT :WORD :LIST]OP FPUT FIRST :LIST INSERT :WORD BF :LISTENDTO LESSTHAN :WORD1 :WORD2IF EMPTYP :WORD1 [OP "TRUE]IF EMPTYP :WORD2 [OP "FALSE]IF ( ASCII FIRST :WORD1 ) < ( ASCII FIRST :WORD2 ) [OP "TRUE]IF ( ASCII FIRST :WORD1 ) > ( ASCII FIRST :WORD2 ) [OP "FALSE]OP LESSTHAN BF :WORD1 BF :WORD2ENDTO PRINTER?PR [PRINTER? ( Y OR N )]IF EQUALP RC "Y [PRINTER]ENDMAKE "STARTUP [TELL ALL HT CS PR [M.INSTALL :START FPUT FIRST :CONTROL FPUT :NUM BF BF :CONTROL.CALL :STARTENDTO HANGNUMBOUT 37ENDTO DIAL% :NUMBERIF EMPTYP :NUMBER [STOP]WAIT 15DIAL FIRST :NUMBERWAIT 30DIAL% BF :NUMBERENDTO PICKNUMBOUT 39ENDTO INITUART.ALLOCATE 5NUMBOUT 128NUMBOUT 64NUMBOUT 79WAIT 10NUMBOUT 55NUMBOUT 37ENDTO CALL :NUMBERINITUARTWAIT 20PICKRECYCLEWAIT 20DIAL% :NUMBERCSREPEAT 10 [PR []]PR [PICK UP RECEIVER NOW]WAIT 150HANGENDTO DELETE :ITEM :LISTIF EMPTYP :LIST [OP []]IF EQUALP :TO MENUCS HTSETTEXT 23PRETTYPRINT :DIRECTORY 1IF ( COUNT :DIRECTORY ) < 10 [CHOOSE RC]CHOOSE RLENDTO DISKDEFINE "READ ( SUB 4 8 TEXT "READ )ENDTO TAPEDEFINE "READ ( SUB 8 4 TEXT "READ )ENDTO CHOOSEMEDIUMMAKE "CHOICE RCIF NOT MEMBERP :CHOICE [1 2] [CHOOSEMEDIUM]IF EQUALP :CHOICE 1 [TAPE] [DISK]ENDTO READ_DIRECTORYMAKE "DIRECTORY []SETUPREADVIEW :BUFFERSTART + 78ENDTO READ.DEPOSIT 31733 8.DEPOSIT 31730 1.DEPOSIT 31738 243.CALL 31726ENDTO SETUP.ALLOCATE 255.INSTALL 31726 [ [\ ]]ENDTO NLIST :LIF EMPTYP :L [OP []]IF AND NOT MEMBERP FIRST :L [L START CONTROL CALLEDLIST] NAMEP FIRST :L [OP FPUT FIRST :L NLIST BF :L]OP NLIST BF :LENDTO PRETTYPRINT :LIST :NUMIF EMPTYP :LIST [STOP]TYPE :NUM TYPE [\ ]TYPE FIRST :LISTSKIP DIFFERENCE 14 COUNT FIRST :LISTPR THING FIRST :LISTPRETTYPRINT BF :LIST SUM :NUM 1ENDTO LISTNUMBERSCSPRINTER?PR [SORTING...]PRETTYPRINT SORT NLIST .CONTENTS 1NOPRINTERENDTO SORT :LISTIF EMPTYP :LIST [OP []]OP INSERT FIRST :LIST SORT BF :L65 ) [OP ITEM ( :NUM - 32 ) :SYMBOL]IF AND ( :NUM > 90 ) ( :NUM < 97 ) [OP ITEM ( :NUM - 90 ) :SYMBOL2]OP "ENDTO ENTRY :ADDRESSIF EQUALP 3 .EXAMINE :ADDRESS [OP "]OP WORD LETTER .EXAMINE :ADDRESS ENTRY SUM :ADDRESS 1ENDTO PRETTYPRINT :LIST :NUMIF EMPTYP :LIST [SETCURSOR [2 23] STOP]IF :NUM > 16 [SETCURSOR SE 15 ( :NUM - 16 )]IF :NUM < 17 [SETCURSOR SE 2 :NUM]TYPE :NUM TYPE [\ ]PR BL FIRST :LISTPRETTYPRINT BF :LIST SUM :NUM 1ENDTO CHOOSE :CHOICEIF EMPTYP :CHOICE [CHOOSE RL]IF NOT NUMBERPOSEMEDIUM ERASE "READ_DIRECTORY ERASE "READ ERASE "SETUP ERASE "VIEW ERASE ".INSTALL ERASE "LETTER ERASE "ENTRY ERASE "RET? ERASE "CHECKSAVE "STARTUPLOAD "STARTUPENDTO CHECKPR [IF YOU CONTINUE,]PR [THE STARTUP FILE ALREADY]PR [ON THE MEDIUM WILL BE]TYPE [ERASED] TYPE [\ ]PR [CONTINUE?]IF NOT EQUALP RC "Y [INSTALL]ERF "STARTUPENDMAKE "STARTUP [INSTALL]MAKE "BUFFERSTART 30702MAKE "SYMBOL2 [\[ \\ \] ^ _ `]MAKE "SYMBOL [! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @]MAKE "ALPWORD "" :WORDENDTO MENU%ERALLSETTEXT 0LOAD "DOGENDTO RET? :RCIF EQUALP ASCII :RC 13 [STOP]RET? RCENDTO INSTALLCS HTPR []PR [INSTALL MENU ON]PR []PR [1 TAPE]PR []PR [2 DISK]CHOOSEMEDIUMCSPR []TYPE [PUT] TYPE [\ ]IF EQUALP :CHOICE 1 [TYPE "TAPE] [TYPE "DISK] TYPE [\ ]PR [IN DRIVE 1]PR [AND PRESS RETURN]RET? RCIF EQUALP :CHOICE 1 [SETDEVICE 0] [SETDEVICE 4]READ_DIRECTORYIF MEMBERP "STARTUPA :DIRECTORY [CHECK]MAKE "STARTUP [MENU]ERASE "INSTALL ERASE "DISK ERASE "TAPE ERASE "CHOC [MAKE "H.C 14]IF ( INT ( ( :A.HAND.VAL * RAND ) + 1 ) + INT ( ( :H.C *     RAND ) + 1 ) + ( 10 * :A.HAND.VAL ) ) < ( :BET - ( :BET / 10 ) ) [TYPE [I'M OUT.\ ] PR.HAND "I A.FOLD OP FALSE]PR "ACCEPTED OP TRUEENDTO FIG.DISMAKE "P.DIS GET.NUM [HOW MANY?\ ] [0 1 2 3]FIG.P.DIS :P.DISMAKE "A.DIS 0IF 4 > :A.HAND.VAL [FIG.A.DIS 1]TYPE [I'LL TAKE\ ]TYPE :A.DISPR "\ CARDS.ENDTO FIG.A.BETFIG.HAND "A.CSMAKE "A.HAND.VAL :HAND.VALMAKE "A.H :H.CIF 1 = :H.C [MAKE "H.C 14]IF RAND < ( :A.HAND.VAL + 0.5 )HA [A B C D E F G H I J K L M N O P Q R S T U V W X Y Z]TO RET? :RCIF EQUALP ASCII :RC 13 [STOP]RET? RCENDTO INSTALLCS HTPR []PR [INSTALL MENU ON]PR []PR [1 TAPE]PR []PR [2 DISK]CHOOSEMEDIUMCSPR []TYPE [PUT] TYPE [\ ]IF EQUALP :CHOICE 1 [TYPE "TAPE] [TYPE "DISK] TYPE [\ ]PR [IN DRIVE 1]PR [AND PRESS RETURN]RET? RCIF EQUALP :CHOICE 1 [SETDEVICE 0] [SETDEVICE 4]READ_DIRECTORYIF MEMBERP "STARTUPA :DIRECTORY [CHECK]MAKE "STARTUP [MENU]ERASE "INSTALL ERASE "DISK ERASE "TAPE ERASE "CHO FIRST :CHOICE [CHOOSE RL]IF ( FIRST :CHOICE ) < 1 [CHOOSE RL]IF ( FIRST :CHOICE ) > COUNT :DIRECTORY [CHOOSE RL]DEFINE "MENU% SUB ( QWOTE BL ITEM FIRST :CHOICE :DIRECTORY ) ""DOG TEXT "MENU%MENU%ENDTO SUB :NEWITEM :OLDITEM :LISTIF EMPTYP :LIST [OP []]IF LISTP FIRST :LIST [OP FPUT SUB :NEWITEM :OLDITEM FIRST :LIST SUB :NEWITEM :OLDITEM BF :LIST]IF EQUALP :OLDITEM FIRST :LIST [OP FPUT :NEWITEM SUB :NEWITEM :OLDITEM BF :LIST]OP FPUT FIRST :LIST SUB :NEWITEM :OLDITEM BF :LISTENDTO QWOTE :WORDOP TO ANTETYPE  [YOU HAVE $]PR :P$TYPE [I HAVE $]PR :A$PR [ANTE UP...]MAKE "RAISE 0MAKE "P.BET 0UPDATE 5ENDTO DEAL :IPPROP "P.CS :I GET.CPPROP "A.CS :I GET.CIF :I = 5 [STOP]DEAL :I + 1ENDTO SHOW.H :SIDE :IIF :I = 1 [CG]DRAW.C "P.CS :IIF :SIDE = "FRONT [DRAW.C "A.CS :I] [DRAW.C "BACK :I]IF :I = 5 [STOP]SHOW.H :SIDE :I + 1ENDTO OPEN.BETFIG.HAND "A.CSMAKE "A.HAND.VAL :HAND.VALMAKE "A.H :H.CGET.BET "BETIF :BET = "FOLD [P.FOLD OP FALSE]IF 0.2 > RAND [PR "ACCEPTED OP TRUE]IF 1 = :H.OSEMEDIUM ERASE "READ_DIRECTORY ERASE "READ ERASE "SETUP ERASE "VIEW ERASE ".INSTALL ERASE "LETTER ERASE "ENTRY ERASE "RET? ERASE "CHECKSAVE "STARTUPLOAD "STARTUPENDTO CHECKPR [IF YOU CONTINUE,]PR [THE STARTUP FILE ALREADY]PR [ON THE MEDIUM WILL BE]TYPE [ERASED] TYPE [\ ]PR [CONTINUE?]IF NOT EQUALP RC "Y [INSTALL]ERF "STARTUPENDMAKE "STARTUP [INSTALL]MAKE "BUFFERSTART 30702MAKE "SYMBOL2 [\[ \\ \] ^ _ `]MAKE "SYMBOL [! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @]MAKE "ALP [OP INT ( :A.HAND.VAL * RAND ) + INT ( :H.C * RAND ) + :A.HAND.VAL * 10 + INT ( :P.BET /  3 ) + ( ( :P.DIS - :A.DIS ) * 2 ) + 7]OP 49.99ENDTO UPDATE :BMAKE "P.BET :P.BET + :BENDTO CLOSE.BETGET.BET :IIF :BET = "FOLD [P.FOLD OP FALSE]UPDATE :RAISEIF :BET = "CALL [MAKE "BET 0 OP TRUE]IF ( :P.BET + :BET ) > ( :A.BET * 1.5 ) [IF :A.BET = 49.99   [PR [I CALL] OP TRUE] [TYPE [I'M OUT.\ ] PR.HAND "I A.FOLD   OP FALSE]]IF NOT ( :P.BET + :BET < :A.BET ) [PR [I CALL] OP TRUE]MAKE "RAISE INT ( ( ( :A.BE.C]IF OR 3 = :A.DIS 5 = :I [STOP]FIG.A.DIS :I + 1ENDTO ZERO.PROPS :IPPROP "TALLY.CS :I 0IF :I < 5 [PPROP "TALLY.SUITS :I 0]IF :I = 13 [STOP]ZERO.PROPS :I + 1ENDTO MARK.C :CPPROP "TALLY.CS 1 + REMAINDER :C 13 1 + GPROP "TALLY.CS 1 +  REMAINDER :C 13PPROP "TALLY.SUITS 1 + INT :C / 13 1 + GPROP "TALLY.SUITS 1  + INT :C / 13ENDTO FIND.MATCH :IIF 14 = :I [MAKE "I 1]MAKE "HAND.VAL :HAND.VAL + MATCH :IIF 1 = :I [STOP]FIND.MATCH :I + 1ENDTO FLUSH :IIF 5 = GPROP "TALLY.SUITS :I [OP 5]IF 4 =COMPARE.HANDSIF :P.HAND.VAL > :A.HAND.VAL [A.FOLD STOP]IF :A.HAND.VAL > :P.HAND.VAL [P.FOLD STOP]IF 1 = :P.H [MAKE "P.H 14]IF 1 = :A.H [MAKE "A.H 14]IF :P.H > :A.H [A.FOLD STOP]IF :A.H > :P.H [P.FOLD STOP]PR "TIE!ENDTO DRAW.C :WHO :NUMPU SETH 90 BK 138IF "P.CS = :WHO [SETY 83] [SETY 3]FD :NUM * 40SETPC 15 PDREPEAT 2 [FD 33 RT 90 FD 52 RT 90]PU FD 15 LT 90 BK 25NOISE 4 0 -3 5 1IF :WHO = "BACK [SETPC 13 PD FILL SETSH 19 SETPC 10 SHADE]   [DRAW.FACE GPROP :WHO :NUM]PU HOMEENDTO GET.BET :T2200 [STOP]WIN.SOUND :I + :J :JENDTO MATCH :NUMIF 4 = GPROP "TALLY.CS :NUM [MAKE "H.C :I OP 7]IF 3 = GPROP "TALLY.CS :NUM [MAKE "H.C :I OP 3]IF 2 = GPROP "TALLY.CS :NUM [( IF 3 = :HAND.VAL [OP 1] [MAKE "H.C :I OP 1] )]OP 0ENDTO FIND.H :IIF :I = 0 [MAKE "I 13]IF 0 < GPROP "TALLY.CS :I [MAKE "H.C :I STOP]FIND.H :I - 1ENDTO STRAIGHT :NUMIF NOT 1 = GPROP "TALLY.CS :NUM [OP FALSE]IF 4 = :I - :NUM [OP TRUE]OP STRAIGHT :NUM - 1ENDTO PLAYANTEDEAL 1SHOW.H "BACK 1IF NOT OPEN.BET [STOP]UPDAMAKE "P$ :P$ + :P.BETMAKE "A$ :A$ - :P.BETENDTO GET.NUM :PROMPT :SETTYPE :PROMPTTOOT 0 2000 15 5MAKE "NUM RCPR :NUMIF MEMBERP :NUM :SET [OP :NUM]TOOT 0 128 15 10OP GET.NUM :PROMPT :SETENDTO FIG.P.DIS :IIF 0 = :I [STOP]MAKE "NUM GET.NUM [WHICH CARD?\ ] [1 2 3 4 5]PPROP "P.CS :NUM GET.CFIG.P.DIS :I - 1ENDTO GET.CMAKE "TOP.C FIRST :DECKMAKE "DECK BF :DECKOP :TOP.CENDTO FIG.A.DIS :IIF 1 = GPROP "TALLY.CS 1 + REMAINDER ( GPROP "A.CS :I ) 13   [MAKE "A.DIS :A.DIS + 1 PPROP "A.CS :I GETT - :P.BET ) / 3 ) * RAND ) + 2TYPE [I RAISE $]PR :RAISEUPDATE :BETMAKE "I "RAISEOP CLOSE.BETENDTO PR.HAND :IIF :H.C = 14 [MAKE "H.C 1]TYPE :ITYPE [\ HAVE\ ]PR ITEM :HAND.VAL + 1 :HAND.NAMESTYPE [WITH\ ]TYPE ITEM :H.C :C.NAMESPR "\ HIGH.ENDTO FIG.HAND :HANDPR "WORKING...MAKE "HAND.VAL 0ZERO.PROPS 1MAKE "I 1REPEAT 5 [MARK.C GPROP :HAND :I MAKE "I :I + 1]FIND.MATCH 2IF 4 = :HAND.VAL [MAKE "HAND.VAL 6]IF 0 = :HAND.VAL [MAKE "HAND.VAL ( FLUSH 1 ) MAKE "HAND.VAL  FIND.STRAIGHT]ENDTO  :I [OP 0]OP FLUSH :I + 1ENDTO FIND.STRAIGHTFIND.H 1IF :H.C = 1 [MAKE "I 14] [MAKE "I :H.C]IF STRAIGHT :I - 1 [( IF 5 = :HAND.VAL [( IF 1 = :H.C [OP 9] [OP 8] )] [OP 4] )]MAKE "I 5IF STRAIGHT :I [MAKE "H.C 5 ( IF 5 = :HAND.VAL [OP 8] [OP 4] )]OP :HAND.VALENDTO DRAW.FACE :CPD SETPC 15 FILLSETPC 1IF MEMBERP INT 1 + :C / 13 [1 3] [SETPC 8]SETSH INT 1 + :C / 13STAMPPUSETH 0 FD 16 LT 90 FD 8SETPC 1 SETSH 5 + REMAINDER :C 13PDSTAMPENDTO WIN.SOUND :I :JTOOT 0 :I 15 1IF OR :I < 230 :I > YPETOOT 0 2000 15 5IF :TYPE = "BET [TYPE [BET? \($,FOLD\)\ ]] [TYPE [RAISE?     \($,FOLD,CALL\)\ ]]MAKE "BET RLIF EMPTYP :BET [MAKE "BET [0]]MAKE "BET FIRST :BETIF :BET = "FOLD [STOP]IF AND :TYPE = "RAISE :BET = "CALL [STOP]IF NUMBERP :BET [IF :BET > 0 [STOP]]TOOT 0 128 15 10GET.BET :TYPEENDTO P.FOLDWIN.SOUND 1200 100TYPE [I WON $]PR :P.BET * 2MAKE "P$ :P$ - :P.BETMAKE "A$ :A$ + :P.BETENDTO RANDOP ( RANDOM 1000 ) / 1000ENDTO A.FOLDWIN.SOUND 1200 -100TYPE [YOU WON $]PR :P.BET * 2TE :BETFIG.DISSHOW.H "BACK 1MAKE "A.BET FIG.A.BETMAKE "I "BETIF NOT CLOSE.BET [STOP]UPDATE :BETSHOW.H "FRONT 1PR.HAND "IFIG.HAND "P.CSMAKE "P.HAND.VAL :HAND.VALMAKE "P.H :H.CPR.HAND "YOUCOMPARE.HANDSENDTO SHUFFLEMAKE "TOP.C RANDOM 52IF NOT MEMBERP :TOP.C :DECK [MAKE "DECK FPUT :TOP.C :DECK    NOISE 6 0 -3 5 4]IF 16 = COUNT :DECK [STOP]SHUFFLEENDTO STARTIF 0 > :P$ [PR [YOU LOST ALL YOUR MONEY!] STOP]IF 0 > :A$ [PR [I LOST ALL MY MONEY!] STOP]TYPE [PRESS ANY KEY]MAKE "I RCMAKE "DEC:OLDITEM BF :LISTENDTO CHOOSE :CHOICEIF EMPTYP :CHOICE [CHOOSE RL]IF NOT NUMBERP FIRST :CHOICE [CHOOSE RL]IF ( FIRST :CHOICE ) < 1 [CHOOSE RL]IF ( FIRST :CHOICE ) > COUNT :DIRECTORY [CHOOSE RL]DEFINE "MENU% SUB ( QWOTE BL ITEM FIRST :CHOICE :DIRECTORY ) ""DOG TEXT "MENU%MENU%ENDTO PRETTYPRINT :LIST :NUMIF EMPTYP :LIST [SETCURSOR [2 23] STOP]IF :NUM > 16 [SETCURSOR SE 15 ( :NUM - 16 )]IF :NUM < 17 [SETCURSOR SE 2 :NUM]TYPE :NUM TYPE [\ ]PR BL FIRST :LISTPRETTYPRINT BF :LIST SUM :NUM 1ENDT 87MAKE "P.BET 17MAKE "A.DIS 0MAKE "HAND.VAL 2MAKE "H.C 5MAKE "NUM "0MAKE "DECK [15 33]MAKE "I 6MAKE "A$ 18MAKE "P$ 182PPROP "P.CS "1 24PPROP "P.CS "2 9PPROP "P.CS "3 48PPROP "P.CS "4 7PPROP "P.CS "5 44PPROP "A.CS "1 14PPROP "A.CS "2 29PPROP "A.CS "3 43PPROP "A.CS "4 30PPROP "A.CS "5 40PPROP "TALLY.SUITS "1 0PPROP "TALLY.SUITS "2 1PPROP "TALLY.SUITS "3 2PPROP "TALLY.SUITS "4 2PPROP "TALLY.CS "2 2PPROP "TALLY.CS "3 0PPROP "TALLY.CS "4 1PPROP "TALLY.CS "5 2PPROP "TALLY.CS "6 0PPRA  WEIRDA WINTERA READMEA LOGOCOPYA][CHOOSE RL]IF NOT NUMBERP FIRST :CHOICE [CHOOSE RL]IF ( FIRST :CHOICE ) < 1 [CHOOSE RL]IF ( FIRST :CHOICE ) > COUNT :DIRECTORY [CHOOSE RL]DEFINE "MENU% SUB ( QWOTE BL ITEM FIRST :CHOICE :DIRECTORY ) ""DOG TEXT "MENU%MENU%ENDTO PRETTYPRINT :LIST :NUMIF EMPTYP :LIST [SETCURSOR [2 23] STOP]IF :NUM > 16 [SETCURSOR SE 15 ( :NUM - 16 )]IF :NUM < 17 [SETCURSOR SE 2 :NUM]TYPE :NUM TYPE [\ ]PR BL FIRST :LISTPRETTYPRINT BF :LIST SUM :NUM 1ENDTO QWOTE :WORDOP WORD "" :WORDENDTO MENU%ERALL SETTEXT 0IF MEMBERP "DOG [WINTER WEIRD] [LOADPICT "DOG MAKE "RC RC  ERNS LOAD "MENU STOP]  IF EQUALP "DOG "README [POFILE "README WAIT 200 LOAD "MENU STOP]ERALL RECYCLELOAD "DOGENDTO SUB :NEWITEM :OLDITEM :LISTIF EMPTYP :LIST [OP []]IF LISTP FIRST :LIST [OP FPUT SUB :NEWITEM :OLDITEM FIRST :LIST SUB :NEWITEM :OLDITEM BF :LIST]IF EQUALP :OLDITEM FIRST :LIST [OP FPUT :NEWITEM SUB :NEWITEM :OLDITEM BF :LIST]OP FPUT FIRST :LIST SUB :NEWITEM K [] CTPR [SHUFFLING DECK...]SHUFFLEPLAYSTARTENDMAKE "STARTUP [ERDS SETBG 12 TELL ALL CS HT PU TELL 1 MAKE   "P$ 100 MAKE "A$ 100 START MAKE "I RC STARTUP]MAKE "P.DIS "0MAKE "A.BET 16MAKE "C.NAMES [ACE 2 3 4 5 6 7 8 9 10 JACK QUEEN KING]MAKE "HAND.NAMES [[NOTHING] [ONE PAIR] [TWO PAIR] [THREE OF  A KIND] [A STRAIGHT] [A FLUSH] [A FULL HOUSE] [FOUR OF A     KIND] [A STRAIGHT FLUSH] [A ROYAL FLUSH]]MAKE "A.H 5MAKE "P.H 10MAKE "A.HAND.VAL 2MAKE "P.HAND.VAL 1MAKE "TOP.C 14MAKE "RAISE 3MAKE "BETO MENUCS HTSETTEXT 23PRETTYPRINT :DIRECTORY 1IF ( COUNT :DIRECTORY ) < 10 [CHOOSE RC]CHOOSE RLENDMAKE "STARTUP [MENU]MAKE "SYMBOL2 [\[ \\ \] ^ _ `]MAKE "SYMBOL [! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @]MAKE "ALPHA [A B C D E F G H I J K L M N O P Q R S T U V W X Y Z]MAKE "BUFFERSTART 30702MAKE "CHOICE "2MAKE "DIRECTORY [ROADSA FLIGHTA SAINTA FRTNWHLA NEW.PETA MUSEUMA JULY4A WORLDA  SPYHUNTA DANCEA  POKERA TOWERA   LOGOMENUA INIT.CALA LOGODIALERA RENA ERAA PRDRIVEA EDITOROP "TALLY.CS "7 0PPROP "TALLY.CS "8 0PPROP "TALLY.CS "9 0PPROP "TALLY.CS "10 0PPROP "TALLY.CS "1 0PPROP "TALLY.CS "11 0PPROP "TALLY.CS "12 0PPROP "TALLY.CS "13 0.DIS "0MAKE "A.BET 16MAKE "C.NAMES [ACE 2 3 4 5 6 7 8 9 10 JACK QUEEN KING]MAKE "HAND.NAMES [[NOTHING] [ONE PAIR] [TWO PAIR] [THREE OF  A KIND] [A STRAIGHT] [A FLUSH] [A FULL HOUSE] [FOUR OF A     KIND] [A STRAIGHT FLUSH] [A ROYAL FLUSH]]MAKE "A.H 5MAKE "P.H 10MAKE "A.HAND.VAL 2MAKE "P.HAND.VAL 1MAKE "TOP.C 14MAKE "RAISE 3MAKE "BETO AR :RT :LTMAKE "STEP 2 * :RT * 3.1416 / 36MAKE "REM REMAINDER :LT 10REPEAT :LT / 10 [RT 5 FD :STEP RT 5]IF :REM > 0 [FD :STEP * :REM / 10 RT :REM]ENDTO AL :RT :LTMAKE "STEP 2 * :RT * 3.1416 / 36MAKE "REM REMAINDER :LT 10REPEAT :LT / 10 [LT 5 FD :STEP LT 5]IF :REM > 0 [FD :STEP * :REM / 10 LT :REM]ENDTO CN :RTIF EQUALP :RT -1 [STOP]TOOT 0 200 + 50 * :RT 15 10TYPE :RT TYPE [\ ] WAIT 50CN :RT - 1ENDTO LCTP [YOU ARE BACK IN LOGO.] PR "P [\  TYPE: \ ERALL RECYCLE]P [\ AND PRESS 'RETUROYO.] ) P [] P [SO YOU GO TO THE ROOM]P [\ \ WITH THE YOYO MACHINE.] TEMP CTSETPC 14 ST HT SETPOS [110 -70] PDSETH 0 FD 80 LT 90 FD 60 LT 35 FD 20LT 110 FD 20 LT 35 FD 40 RT 90 FD 58 LT 90 FD 20PU LT 120 FD 10 PD SETSH 4 PD FILL PUSETC CL 3 SETPC 1WAIT 60 SETPOS [33 -1]P [\ YOU PUT HIS YOYO] P [ON THE MACHINE] WAIT 60 STWAIT 120 P [] P [\ AND YOU TURN IT ON.] P [] P []TEMP NOISE 2 10 0 5 5 RECYCLE YOYO 7CT P [THE YOYO WORKED FINE.] TEMPENDTO CL :RTOP LAST ITEM :RT :POENDTO ROCKETCN 10 ST.]P [\ 'R' TO READ AGAIN.]P [\ 'M' TO MIX UP STORY.]P [\ 'L' TO GO TO LOGO.]PR [] P [\ THEN PRESS RETURN.]CH [S R M L] RUN :LTENDTO RCS HT RECYCLEC1 C2 C3 C4 C5 C6ENDTO CH :RTPR []MAKE "LT RLIF NOT EMPTYP :LT [IF MEMBERP FIRST :LT :RT [PR [] STOP]]PR [] TOOT 0 150 10 8CH :RTENDTO SRECYCLEMAKE "PR [RED BLUE BLACK YELLOW WHITE GREEN] MAKE "PE [9 4 1 11 15 3]MAKE "PO []CS HTP [PICK A COLOR.] P :PRCH :PR CC :PR :PEP [NOW PICK ANOTHER COLOR.] P :PRCH :PR CC :PR :PEP [ONE MORE COLOR,TO DINOCLEAN TELL 0 HTPU SETPOS [100 -80]SETH 270 PD SETPC 1AR 70 60 AL 50 65AL 50 30AR 40 30AR 30 40 AL 30 60AL 20 10 AL 10 180AR 10 10 AR 20 50AL 30 30 AR 10 100FD 8 AR 2 90 AL 2 180 FD 10 AL 2 180 AR 2 90 FD 8AR 5 110 AR 40 20 AL 35 80AR 5 125FD 8 AR 2 90 AL 2 180 FD 10 AL 2 180 AR 2 90 FD 8AR 2 132 AL 65 60PU SETPOS [0 -60] SETPC CL 1 PD FILLPU SETPOS [-104 -50] PDIF EQUALP CL 1 1 [SETPC 15] [SETPC 1]REPEAT 45 [FD 1 BK 1 RT 8] PUSETPOS [-106 -64] PDAL 10 45ENDTO CY :RTOP FIRST 15 16 17 18 19 20 21] PU SETSH 4 SETPOS [0 -90]ASK [1 4 7 10 13 16 19] [SETC CL 1]ASK [2 5 8 11 14 17 20] [SETC CL 2]ASK [3 6 9 12 15 18 21] [SETC CL 3]EACH [NOISE 5 7 0 8 7 ST SETSP 5 WAIT 60 ( SETH ( 50 - RANDOM 100 ) )]ENDTO YOYO :RTFREEZEIF EQUALP :RT 0 [THAW PU STOP]SETPOS [33 -1]SETSP 18SETH 135 + RANDOM 200PDTHAW NOISE 4 4 0 8 10WAIT 80 FREEZE PESETH HEADING + 180THAW NOISE 4 4 0 8 10WAIT 80SETSP 0YOYO :RT - 1ENDTO C4CS WAIT 100P [\ A BOY ASKS YOU] ( PR [TO TEST HIS] CY 3 [YN']P [\ \ TO FREE MEMORY.]SETC 15 PD SETSH 36 STENDTO MMIX :PO RENDTO MIX :RTIF EMPTYP :RT [MAKE "PO :BK MAKE "BK [] STOP]IF EQUALP ( RANDOM 2 ) 1 [MAKE "BK FPUT FIRST :RT :BK] [MAKE "BK LPUT FIRST :RT :BK]MIX BF :RTENDTO C6TELL ALL HOME HT TELL [0]P [\ EVERYBODY LIKES] P [\ \ \ THE BUBBLES.] WAIT 120 P []P [\ BUT NOW IT'S TIME]P [\ \ \ TO GO HOME.] P []WAIT 120 TOOT 1 410 10 10PR [\ THE END.] PR [] PR [] TEMP CTTOOT 0 440 8 5TOOT 0 550 8 20RECYCLE CSP [PRESS]P [\ 'S' TO START OVERASK 1 [SETPOS [100 -75] SETC 9 SETSH 32]STSETSP 8NOISE 6 15 0 5 10TELL 1 REPEAT 5 [SETSH 32 WAIT 1 SETSH 33]NOISE 6 15 0 15 15REPEAT 40 [SETC 14 SETSH 34 WAIT 2 SETC 13 SETSH 33 WAIT 2]TELL [0 1] HT HOMEENDTO C3CS P [\ NEXT YOU GO TO] P [THE ROCKET ROOM.] PR []( PR [\ A] CY 2 [ROCKET IS] ) PR [] P [READY TO BLAST OFF.] P []TELL [0 1] HT PUASK 0 [SETSH 7 SETPOS [100 -80] SETPC 1 PD STAMP]ASK 0 [SETSH 27 PU FD 20 SETC CL 2 ST]P [ALL YOU HAVE TO DO IS]P [\ START THE COUNTDOWN.]TEMP ROCKETEND PLEASE.] P :PRCH :PR CC :PR :PE P []P [\  WHAT IS YOUR NAME?] PR "MAKE "U RLP [] PR [\  THANK YOU VERY MUCH.]ERN [PR PE] RECYCLEWAIT 120 RENDTO C5HT CSP [\ IT'S ALMOST TIME TO CLOSE] P [\ \ \ THE MUSEUM.] PR [] WAIT 120P [\ BUT FIRST PEOPLE WANT] P [\ \ TO SEE THE NEW] P [\ \ \ BUBBLE MACHINE.] TEMP CTP [\ YOU SET IT TO MAKE]( PR WORD CY 1 ", WORD CY 2 ", [AND] CY 3 )PR [] P [\ \ BUBBLES.] PR []SETSH 7 SETC 1 SETPOS [0 -90] STTEMP BUBS CTENDTO BUBSTELL [1 2 3 4 5 6 7 8 9 10 11 12 13 14 ITEM :RT :POENDTO C2CT P [\ THEY WANT TO SEE] P [YOUR DINOSAUR.] WAIT 100 PR "P [\ SO YOU TAKE THEM] P [\ \ DOWN THE HALL] P [INTO A LARGE ROOM.] TEMP CTP [\ AND THERE IT IS,]( PR [YOUR BIG] CY 1 [DINOSAUR.] )RECYCLEDINO TEMPENDTO TEMPRECYCLEP [] P []PR [PRESS ANY KEY] PR RCTOOT 1 640 10 1 WAIT 40PR [] PUENDTO C1RECYCLETOOT 0 320 12 7 TOOT 0 440 12 9 TOOT 0 550 12 12( TYPE [\ \ \ ] :U "'S [\ MUSEUM] ) P []WAIT 200 PR []P [\ MANY PEOPLE WANT TO] P [TO SEE YOUR NEW MUSEUM.] P [] WAITPR []WAIT 100 P [AND WENT TO SLEEP.] PR "WAIT 100( PR [\  IT SLEPT FOR] NM 3 ) PR "P [\ \ \ \ HOURS.]P [] P [] WAIT 100TOOT 1 410 10 5P [\ THE END.]TEMPTOOT 0 440 12 10 TOOT 0 550 12 5 TOOT 0 630 15 10MENU CS PD SETSH 36 SETC 15 SETPC 15 STENDTO PART3P [\  WHEN THEY WENT INTO THE]( PR [HOUSE THE] :ANIMAL ) PR []P [WAS HUNGRY.] PR []HOUSE WAIT 60( PR [\ SO] :PERSON [FED] :PZ [NEW PET] ) PR [] ( PR ( SE NM 2 [POUNDS OF] CL 2 ) ) PR []( TYPE :FOOD ". )P [] WAIT 100TEMPP [\  THEN IT WAS NITO P :APR :A PR []ENDTO STOREHT PU SETPOS [50 -50] SETH 180 SETPC 1 PD REPEAT 2 [FD 35 RT 90 FD 100 RT 90]PU SETPOS [10 -76] PD SETPC 6 SETSH 30 SHADE SETSH 7 SETPC 1 STAMP HTPU SETPOS [-18 -68] SETPC 11 PD STAMP SETPOS [-33 -68] STAMP PU SETPOS [33 -68] PD STAMP PUENDTO TRUCKPU SETC 10 SETPOS [-120 -75] SETSH 25 ST SETH 90 SETSP 9NOISE 5 0 -1 15 15NOISE 5 15 1 15 15WAIT 200 SETSP 0 HTENDTO HOUSEHT PU SETPOS [70 -45] SETH 180 PD SETPC 1REPEAT 4 [FD 50 RT 90]SETH -30 FD 50 LT 120 FD 50PUSE 0 15 5 4 15SETSP 30 WAIT 50 SETH 180 WAIT 50 SETSP 0 SETH 270WAIT 60 SETSP 20 REPEAT 40 [TOOT 1 440 7 1 TOOT 1 990 10 1] HTWAIT 100 TEMPENDTO PART1CSSETCURSOR [4 0]TOOT 0 320 12 7 TOOT 0 440 12 9 TOOT 0 550 12 12( TYPE :PERSON ['S] [\ NEW PET] )WAIT 100 P [] P []( PR [\ ] [ONE DAY] :PERSON [WENT] ) PR [] P [TO THE PET STORE.] WAIT 150 STORE WAIT 120PR [] ( PR [\ THERE WAS A] CL 1 ) PR [] WAIT 80( PR :ANIMAL [FOR SALE.] )WAIT 50 TEMPENDTO TELSTORYRECYCLE HT CSPART1PART2PART3PART4ENOKIF :RT = "S [QUESTIONS STOP]IF :RT = "R [TELSTORY STOP]IF :RT = "M [MIX :CLRS MAKE "CLRS :A MAKE "A [] MIX :NMS MAKE "NMS :A MAKE "A [] TELSTORY STOP]CTP [\ \ I AM GOING TO LOGO.]P [IF YOU WANT TO START OVER]P [\ TYPE \  'QUESTIONS']P [\ \ \ AND PRESS RETURN.] PR "P [\ PLEASE REMOVE THE TAPE]P [\ \ BEFORE YOU TURN OFF]PR [\ \ \ \ THE COMPUTER.]TEMPENDTO TTTOOT 1 555 10 5TOOT 0 440 8 8ENDTO PART4P [\  IT CLIMBED ON TOP OF]WAIT 100 ( TYPE :PERSON ['S] [\ ] CL 3 [\ ] :FURNITURE ) PR []  100P [\ SO YOU OPEN THE DOOR] P [AND LET THEM COME IN.]TEMPENDTO P :RTPR :RT PR []ENDTO CC :RT :BKIF EQUALP FIRST :LT FIRST :RT [MAKE "PO LPUT LIST FIRST :LT FIRST :BK :PO P [] STOP]CC BF :RT BF :BKENDMAKE "STARTUP [LOAD "SET.MUSEUM SET ER "SET S]MAKE "LT [M]MAKE "PE [9 4 1 11 15 3]MAKE "BK []MAKE "PR [RED BLUE BLACK YELLOW WHITE GREEN]MAKE "PO []MAKE "REM 5-50] PDIF EQUALP CL 1 1 [SETPC 15] [SETPC 1]REPEAT 45 [FD 1 BK 1 RT 8] PUSETPOS [-106 -64] PDAL 10 45ENDTO CY :RTOP FIRSTGHT]WAIT 60 SETBG 1 WAIT 60( PR ( SE [AND THE] :ANIMAL ) ) PR []P [WAS TIRED.] WAIT 150TEMPENDTO PART2CS( PR [\ ] :PRON [PAID] NM 1 [DOLLARS] ) PR [] ( PR [FOR IT.] ) PR " WAIT 120( PR ( SE [\ ] [THEN] :PRON [TOOK IT HOME] ) ) PR [] P [IN A TRUCK.] WAIT 220CG TRUCK TEMP P []( PR [\  WHEN THE] :ANIMAL ) PR [] WAIT 90P [GOT OUT OF THE TRUCK] WAIT 150P [\ A CAT SAW IT.]PUPU SETPOS [100 -70] SETSH 22 SETC 1 SETH 0 STWAIT 190 P []P [THE CAT JUMPED UP] WAIT 50P [\ \  AND RAN AWAY!]WAIT 120 NOI SETPOS [42 -35] SETPC 9 PD FILLPU SETPOS [44 -86] PD SETSH 7 SETPC 3 STAMP PU SETH 340 FD 28 PD SETPC 15 SETSH 14 STAMP SETSH 6 STAMPPU SETH 90 FD 22 PD STAMP SETSH 14 STAMP PUSETH 180 FD 12 SETPC 11 PD FILLENDTO CL :AOP ITEM :A :CLRSENDTO NM :AOP ITEM :A :NMSENDTO TEMPRECYCLE TT P [] P []PR [PRESS ANY KEY] PR RCPU SETSP 0 HT CTENDTO MENURECYCLE CS HT SETBG 5P "PRESSP [\ 'S' TO START OVER.]P [\ 'R' TO READ AGAIN.]P [\ 'M' TO MIX UP STORY.]P [\ 'L' TO GO TO LOGO.]CH [S R M L] PR "DTO NCMAKE "A RLPR []IF NOT EMPTYP :A [IF NUMBERP FIRST :A [IF ( FIRST :A ) < 100000 [MAKE "CK FIRST :A P [] PR [] STOP] [P [THAT NUMBER IS TOO HIGH.]]]]P [I CAN'T USE THAT.]NCENDTO CKMAKE "CK RLIF NOT EMPTYP :CK [P [] PR [] STOP]TOOT 0 150 10 5CKENDTO QUESTIONSRECYCLEMAKE "NMS [] MAKE "CLRS []MAKE "Z [] CS HTP [\  WHAT IS YOUR NAME?]CK MAKE "PERSON :CKP [\ ARE YOU A BOY?]CK IF EQUALP FIRST FIRST :CK "Y [MAKE "PRON "HE MAKE "PZ "HIS] [MAKE "PRON "SHE MAKE "PZ "HER]P [\ NAME A COLOR.TYPE :NEW.SCR REPEAT 6-COUNT :NEW.SCR   [TYPE CHAR 32]MAKE "C 1 MAKE "R 17ENDTO ADD.SCOREIF :SCR.CNT=0 [LOSE.TURN]IF :VOWEL.FLAG="VOWEL [MAKE "P.VAL-0.5]MAKE "GIVEN LPUT :GUESS :GIVENMAKE "PLAYER ITEM :THIS :PLAYER.LISTMAKE "NEW.SCR ( GPROP "SCORE :PLAYER ) + ( :P.VAL*100*       :SCR.CNT )MAKE "SCR.CNT 0PROP.SCORESPIN.POINTERENDTO BUZZER :FREQIF :FREQ<128 [STOP]IF :FREQ>9999 [STOP]TOOT 2 :FREQ 15 6NOISE 3 15 0 12 1BUZZER :FREQ / :DVENDTO SPIN.POINTERIF RBUTTONP 0 [SOLVE.IT]BEEP G.BETOOT 0 240 + 10 * ASCII :RT 10 5IF MEMBERP :RT :A [STOP]CH :AENDTO MIX :XIF EMPTYP :X [MAKE "A :Z MAKE "Z [] STOP]IF EQUALP ( RANDOM 2 ) 1 [MAKE "Z FPUT FIRST :X :Z] [MAKE "Z LPUT FIRST :X :Z]MIX BF :XENDMAKE "STARTUP [QUESTIONS]MAKE "RT "LMAKE "ANIMAL [BUTTERFLY]MAKE "FURNITURE [TABLE]MAKE "FOOD [GA]MAKE "PZ "HISMAKE "PRON "HEMAKE "PERSON [JOHN]MAKE "CK [BUTTERFLY]MAKE "CLRS [[YELLOW] [RED] [GRAY]]MAKE "NMS [870 777 15]MAKE "Z []MAKE "A []PRON "SHE MAKE "PZ "HER]P [\ NAME A COLOR.O SOLVE.ITSETCURSOR [4 15] TYPE [ENTER YOUR SOLUTION:] BEEP G.BEEP     SETCURSOR [1 19]RECYCLEMAKE "ANS RLSETCURSOR [4 15] REPEAT 21 [TYPE CHAR 32]IF NOT :ANS= :WORD [SETCURSOR [0 19] REPEAT 56 [TYPE CHAR    32] SETCURSOR [1 15] REPEAT 20 [TYPE CHAR 32] LOSE.TURN]RECYCLE REPEAT 15 [G.BEEP]SETCURSOR [4 15] TYPE SE ITEM :THIS :PLAYER.LIST [YOU WIN!!] REPEAT 10 [TYPE CHAR 32]WAIT 200 RECYCLE SETCURSOR [0 15] REPEAT 56 [TYPE CHAR 32]   SETCURSOR [1 15]G.BEEP TYPE [PLAY ANOTHER ROUND Y/N?]MAKE "ANS RCTO CHECKANSRECYCLEMAKE "LN 1IF :N> :LENGTH [SETCURSOR [0 23] MAKE "N 1 MAKE "C 1 MAKE "R 17 ADD.SCORE]REPEAT GPROP "COUNT WORD "LENGTH :N [IF EQUALP :GUESS ( ITEM :LN ITEM :N :WORD ) [G.BEEP SETCURSOR SE :C :R TYPE :GUESS   MAKE "SCR.CNT :SCR.CNT+1 MAKE "C :C+1 MAKE "LN :LN+1] [MAKE  "LN :LN+1 MAKE "C :C+1]]MAKE "N :N+1MAKE "C :C+1IF :C>27 [MAKE "C 1 MAKE "R 18]CHECKANSENDTO PROP.SCOREMAKE "PLAYER ITEM :THIS :PLAYER.LISTPPROP "SCORE :PLAYER :NEW.SCRMAKE "C 2+7*(-1+ :THIS)SETCURSOR SE :C [22] ]CK MAKE "CLRS LPUT :CK :CLRSP [\ NAME ANOTHER COLOR.]CK MAKE "CLRS LPUT :CK :CLRSP [\ NAME ANOTHER COLOR.]CK MAKE "CLRS LPUT :CK :CLRSP [\ GIVE ME A NUMBER.]NC MAKE "NMS LPUT :CK :NMSP [\ GIVE ME ANOTHER NUMBER.]NC MAKE "NMS LPUT :CK :NMSP [\ ONE MORE NUMBER, PLEASE.]NC MAKE "NMS LPUT :CK :NMSP [\ NAME OF A FOOD.]CK MAKE "FOOD :CKP [\ A PIECE OF FURNITURE.]CK MAKE "FURNITURE :CKP [\ NAME OF AN ANIMAL.]CK MAKE "ANIMAL :CK P []PR [\  THANK YOU VERY MUCH.]TELSTORYENDTO CH :AMAKE "RT RC EPSETCURSOR [0 23] TYPE [KEY TO SPIN. BUTTON TO SOLVE] RECYCLEIF NOT KEYP [CT SPIN.POINTER]MAKE "ANS RCREPEAT 20 [SETH 1+RANDOM 360]FD 35 CT RECYCLEPOINTER.VALENDTO BANKRUPTMAKE "DV 1.4BUZZER 6000MAKE "NEW.SCR 0PROP.SCOREMAKE "THIS :THIS+1DISPLAY.PLAYER :THISENDTO POINTER.VALMAKE "P.VAL COLOR.OVER BK 35IF :P.VAL=1 [BANKRUPT]IF :P.VAL=11 [LOSE.TURN]IF :P.VAL>11 [RT 5 FD 35 POINTER.VAL]LETTER.GUESSENDTO LOSE.TURNMAKE "DV 1.7BUZZER 8092MAKE "THIS :THIS+1DISPLAY.PLAYER :THISENDT]CK MAKE "CLRS LPUT :CK :CLRSP [\ NAME ANOTHER COLOR.]CK MAKE "CLRS LPUT :CK :CLRSP [\ NAME ANOTHER COLOR.]CK MAKE "CLRS LPUT :CK :CLRSP [\ GIVE ME A NUMBER.]NC MAKE "NMS LPUT :CK :NMSP [\ GIVE ME ANOTHER NUMBER.]NC MAKE "NMS LPUT :CK :NMSP [\ ONE MORE NUMBER, PLEASE.]NC MAKE "NMS LPUT :CK :NMSP [\ NAME OF A FOOD.]CK MAKE "FOOD :CKP [\ A PIECE OF FURNITURE.]CK MAKE "FURNITURE :CKP [\ NAME OF AN ANIMAL.]CK MAKE "ANIMAL :CK P []PR [\  THANK YOU VERY MUCH.]TELSTORYENDTO CH :AMAKE "RT RC IF :ANS="Y [SETCURSOR [0 15] REPEAT 27 [TYPE CHAR 32]        SETCURSOR [0 17] REPEAT 56 [TYPE CHAR 32] MAKE "THIS :THIS+1 INIT]IF :ANS="N [SETTEXT 0 CS OP]BEEP SETCURSOR [1 15] TYPE [<Y> OR <N>] WAIT 120 SOLVE.ITENDTO WORDSSETCURSOR [0 18] REPEAT 56 [TYPE CHAR 32] SETCURSOR [27 23]MAKE "WORD.NUM ( 1+RANDOM COUNT :WORDS )IF 0=REMAINDER :WORD.NUM 2 [MAKE "WORD.NUM :WORD.NUM-1]MAKE "NTYPE ITEM :WORD.NUM :WORDSMAKE "NWORD ITEM :WORD.NUM+1 :WORDSIF :NWORD= :WORD [OP WORDS]OP :NWORDENDTO GIVENIF M11 20ENDTO RWOP FIRST RLENDMAKE "STARTUP [FIRST.INIT]AR 32] SETCURSOR [0 15]DISPLAY.NTYPEENDTO FIRST.INITWORDS.LISTMAKE "THIS 1MAKE "WORD "ERASE ["WORDS.LIST "FIRST.INIT]INITENDTO ; :COMMENTENDTO LETTER.GUESSRECYCLEMAKE "VOWEL.FLAG "CONSONANTBEEP BEEP SETCURSOR [2 5] TYPE :P.VAL*100 TYPE CHAR 32SETCURSOR [8 15] TYPE [BUY VOWEL Y/N?] RECYCLEMAKE "ANS RCSETCURSOR [8 15] REPEAT 17 [TYPE CHAR 32]IF :ANS="Y [MAKE "VOWEL.FLAG "VOWEL RECYCLE]IF NOT OR :ANS="N :ANS="Y [BNT WORD "LENGTH :N [IF OR ( ITEM :LN ITEM   :N :WORD ) = "- (ITEM :LN ITEM :N :WORD ) = "' [TYPE (ITEM   :LN ITEM :N :WORD ) MAKE "LN :LN+1] [TYPE "* MAKE "LN        :LN+1]]TYPE CHAR 32MAKE "N :N+1 G.BEEPDISPLAY.WORDENDTO DISPLAY.NTYPESETCURSOR [21 2] TYPE :NTYPE REPEAT 2 [TYPE CHAR 32]SETCURSOR [1 17]MAKE "N 1DISPLAY.WORDENDTO INITRECYCLEMAKE "GIVEN []MAKE "C 1MAKE "R 17MAKE "SCR.CNT 0MAKE "N 1MAKE "WORD WORDSMAKE "LENGTH COUNT :WORDREPEAT :LENGTH [PPROP "COUNT WORD "LENGTH :N COUNT I160 144 136 128 128 128 128 128 128 128 128 128 0]PPROP "SHAPES "1 [14 31 63 63 127 127 127 127 63 63 31 15 7  3 1 0 56 124 254 254 255 255 255 255 254 254 252 248 240 224 192 128]PPROP "SHAPES "2 [0 1 3 7 15 15 31 63 63 63 63 31 14 0 1 3   128 192 224 240 248 248 252 254 254 254 254 252 184 128 192  224]PPROP "SHAPES "3 [0 1 1 3 7 7 15 31 31 15 7 7 3 1 1 0 128    192 192 224 240 240 248 252 252 248 240 240 224 192 192 128]PPROP "SHAPES "4 [1 3 7 7 7 3 15 31 63 63 63 31 14 0 1 3 192 224 240 240 240 224 EEP LETTER.GUESS]SETCURSOR [8 15] G.BEEP TYPE SE [YOUR] :VOWEL.FLAG G.BEEP    RECYCLESETCURSOR [14 16] MAKE "GUESS RWSETCURSOR [14 16] TYPE CHAR 32IF AND MEMBERP :GUESS [A E I O U] :VOWEL.FLAG="CONSONANT     [BEEP SETCURSOR [8 15] TYPE [CONSONANT PLEASE.] WAIT 120     SETCURSOR [8 15] REPEAT 18 [TYPE CHAR 32] LETTER.GUESS]RECYCLEIF AND NOT MEMBERP :GUESS [A E I O U] :VOWEL.FLAG="VOWEL     [BEEP SETCURSOR [8 15] TYPE [VOWEL PLEASE.] WAIT 100         LETTER.GUESS]RECYCLEGIVENENDTO BEEPTOOT 0 440 EMBERP :GUESS :GIVEN [BEEP SETCURSOR [2 15] TYPE         [ALREADY PICKED!!] WAIT 100 SETCURSOR [2 15] REPEAT 17 [TYPE CHAR 32] BEEP BEEP LOSE.TURN]CHECKANSENDTO G.BEEPTOOT 0 370 10 8TOOT 1 500 10 10ENDTO DISPLAY.PLAYER :THISIF :THIS> :NUM [MAKE "THIS 1]RECYCLE G.BEEP SETCURSOR [2 2] TYPE ITEM :THIS :PLAYER.LISTREPEAT ( 6-COUNT ITEM :THIS :PLAYER.LIST ) [TYPE CHAR 32]SPIN.POINTERENDTO DISPLAY.WORDMAKE "LN 1IF :N > :LENGTH [SETCURSOR [25 23] MAKE "N 1 DISPLAY.PLAYER  :THIS]REPEAT GPROP "COUTO STARTTELL ALL CS HTSETBG 12SETTEXT 20SETCURSOR [12 5] TYPE "POKERSETCURSOR [6 6] TYPE "BY\ CHRIS\ BRAYMENSETSHAPES 0TELL [0 2] SETC 8TELL [1 3] SETC 1TELL [0 1 2 3] ST PU EACH [SETSH WHO + 1 SETH 90 * WHO SETSP 20]WHEN 0 [SETBG RANDOM 16]SETCURSOR [1 19]PR "LOADING\ MAINPKR...SETCURSOR [1 20]ERALL LOAD "MAINPKRENDTO SETSHAPES :IPUTSH :I GPROP "SHAPES :IIF 19 = :I [STOP]SETSHAPES :I + 1ENDMAKE "STARTUP [START]MAKE "I 2PPROP "SHAPES "0 [0 1 3 5 9 17 1 1 1 1 1 1 1 1 1 0 0 128 192 TEM :N   :WORD MAKE "N :N+1]MAKE "N 1SETCURSOR [0 15] REPEAT 110 [TYPE CHAR 32] SETCURSOR [0 15]DISPLAY.NTYPEENDTO FIRST.INITWORDS.LISTMAKE "THIS 1MAKE "WORD "ERASE ["WORDS.LIST "FIRST.INIT]INITENDTO ; :COMMENTENDTO LETTER.GUESSRECYCLEMAKE "VOWEL.FLAG "CONSONANTBEEP BEEP SETCURSOR [2 5] TYPE :P.VAL*100 TYPE CHAR 32SETCURSOR [8 15] TYPE [BUY VOWEL Y/N?] RECYCLEMAKE "ANS RCSETCURSOR [8 15] REPEAT 17 [TYPE CHAR 32]IF :ANS="Y [MAKE "VOWEL.FLAG "VOWEL RECYCLE]IF NOT OR :ANS="N :ANS="Y [B248 252 254 254 254 252 184 128 192 224]PPROP "SHAPES "5 [0 0 0 3 2 4 4 8 8 15 16 16 16 0 0 0 0 0 0  192 64 32 32 16 16 240 8 8 8 0 0 0]PPROP "SHAPES "6 [0 0 0 3 4 8 0 0 0 0 1 2 15 0 0 0 0 0 0 128 64 32 32 32 64 128 0 0 224 0 0 0]PPROP "SHAPES "7 [0 0 0 3 4 0 0 0 1 0 0 0 4 3 0 0 0 0 0 128  64 32 32 64 128 64 32 32 64 128 0 0]PPROP "SHAPES "8 [0 0 0 4 4 4 4 7 0 0 0 0 0 0 0 0 0 0 0 16   16 16 16 240 16 16 16 16 16 0 0 0]PPROP "SHAPES "9 [0 0 0 15 8 8 11 12 8 0 0 8 7 0 0 0 0 0 0   224 0 0 128 64 32 32 32  0RECYCLEENDYTELISTEND 10964 194.DEPOSIT 10965 0.DEPOSIT 3373 183.DEPOSIT 3374 0.DEPOSIT 3375 0RECYCLEENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR DEC FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDMAKE "STARTADR 194MAKE "CHOICE [3] [0 0 0 7 0 0 0 0 0 8 8 8 7 0 0 0 0 0 0 240 128 128 128 128 128 128 128 128 128 0 0 0]PPROP "SHAPES "16 [0 0 0 15 16 16 16 16 16 16 16 16 15 0 0 0 0 0 0 192 32 32 32 32 32 32 160 96 224 16 0 0]PPROP "SHAPES "17 [0 0 4 4 4 4 5 6 5 4 4 4 4 0 0 0 0 0 16 32 64 128 0 0 0 128 64 32 16 0 0 0]PPROP "SHAPES "18 [1 3 7 7 7 3 15 31 63 63 63 31 14 0 1 3    192 224 240 240 240 224 248 252 254 254 254 252 184 128 192  224]PPROP "SHAPES "19 [240 144 240 144 14 9 9 14 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 224 32 224 32 17 27about that child's     museum.  Soon it gets to the   first object    displayed: a   dinosaur.  And it's    the     color that the child named     first. Next comes a rocket     that     blasts off, and it's  the second     color the child picked.  Then there's a yoyo   testing machine with a    yoyo that's the third color the     child chose.  (The yoyo  goes  up and down.)  Finally there's a bubble    machine    that    makes bubbles of all three     colors the child picked.     The last thing the      TO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR DEC FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO DEC :HIF EMPTYP :H [OP 0]IF EMPTYP BL :H [OP SUM ASCII :H IF NUMBERP :H [-48] [-55]]OP 16 * ( DEC BL :H ) + DEC LAST :HENDTO PRDRIVEMAKE "STARTADR 204 - 10.INSTALL :STARTADR [F5 DB 40 E6 1 28 FA F1 D3 40 C9].DEPOSIT 10935 194.DEPOSIT 10936 0.DEPOSIT 10940 194.DEPOSIT 10941 0.DEPOSIT 10964 194.DEPOSIT 10965 0.DEPOSIT 3373 183.DEPOSIT 3374 0.DEPOSIT 337564 128 0 0 0]PPROP "SHAPES "10 [0 0 0 8 8 8 8 8 15 8 8 8 7 0 0 0 0 0 0 0  0 0 0 0 224 16 16 16 224 0 0 0]PPROP "SHAPES "11 [0 0 0 15 0 0 0 0 1 7 1 1 1 0 0 0 0 0 0    240 16 32 64 128 0 192 0 0 0 0 0 0]PPROP "SHAPES "12 [0 0 0 7 8 8 8 7 8 8 8 8 7 0 0 0 0 0 0 224 16 16 16 224 16 16 16 16 224 0 0 0]PPROP "SHAPES "13 [0 0 0 3 4 8 8 8 7 0 0 0 1 0 0 0 0 0 0 192 32 16 16 16 224 32 64 128 0 0 0 0]PPROP "SHAPES "14 [0 0 0 17 18 18 18 18 18 18 18 18 17 0 0 0 0 0 0 240 8 8 8 8 8 8 8 8 240 0 0 0]PPROP "SHAPES "15        MUSEUM  A LOGO Program for  ADAM by J. Kespert     MUSEUM is a program for   children which tells about a   museum that has some items     that are the    color the      child has chosen.      It's easy for a child to  use.  Once LOGO is in the      computer just   type LOAD      "MUSEUM and wait till the      program starts.  The child     will     then be asked to pick one of six    colors.  Then    another one.  And one more.    Then the child's name.     Then the computer starts  telling  21 17] 0 0]PPROP "SHAPES "10 [0 0 0 8 8 8 8 8 15 8 8 8 7 0 0 0 0 0 0 0  0 0 0 0 224 16 16 16 224 0 0 0]PPROP "SHAPES "11 [0 0 0 15 0 0 0 0 1 7 1 1 1 0 0 0 0 0 0    240 16 32 64 128 0 192 0 0 0 0 0 0]PPROP "SHAPES "12 [0 0 0 7 8 8 8 7 8 8 8 8 7 0 0 0 0 0 0 224 16 16 16 224 16 16 16 16 224 0 0 0]PPROP "SHAPES "13 [0 0 0 3 4 8 8 8 7 0 0 0 1 0 0 0 0 0 0 192 32 16 16 16 224 32 64 128 0 0 0 0]PPROP "SHAPES "14 [0 0 0 17 18 18 18 18 18 18 18 18 17 0 0 0 0 0 0 240 8 8 8 8 8 8 8 8 240 0 0 0]PPROP "SHAPES "15  program   does is display a    menu that lets    the child    choose to Start over to pick   different colors, or Repeat    with the same colors, or have  the   same colors Mixed up, or Leave the  program and go back to LOGO. The    child presses  a letter (S, R, M or L) then   presses the return key.PROGRAMERS NOTES:     To have the rocket's      exhaust   look active I used   alternating      shapes        created with the shape editor. Storing them in                variables (:E1 :E2 :E3) was    ninto the local variables :RT and :BK of  the procedure  CC :RT :BK.  IF      EQUALP is used to check if the    first  item of the variable :LT (from the CH procedure) is     equal the first item of :RT (which   is now list of colors). If     it's not       equal, CC calls itself with CC BF   :RT  BF    :BK, which illiminates the     first item in both the word    and   number list. When CC     finds which    item in the the color list is equal to what    the person input to :LT,       the instruction list m transfering  control to  the procedure "S".     To make a copy of this    program on another tape you    must make a     copy of both   SET.MUSEUM and MUSEUM. First   LOAD "SET.MUSEUM into your     computer, then SAVE it onto    the new tape.  Then use ERALL  RECYCLE to    clear the memory and use LOAD     "MUSEUM to    get the rest ot the program.   Press the ESCAPE     when the  program asks you to  pick a    color.   Then save      MUSEUM onto your new tape. When       that's done you can start the  pvariable :U.   Then it uses    ERN to erase the names :PR and :PE to free memory.  The       final thing the S procedure    does is call the R procedure.     The R procedure calls the various parts of the program   (C1 C2 C3 C4 C5 and C6) that   display the   text and         graphics of MUSEUM.       C1 just displays text.    C2     displays text and uses  CY 1 to give the color of the  dinosaur.  The 1   in CY 1 is  used in the CY :RT             procedure to output the first  part  of item 1 in the :  makes   the variable :LT equal         whatever RL (READLIST) has     input to it from the keyboard. If NOT       EMPTYP shows that :LT is not an     empty list   the instructionlist checks if  the first item in    :LT is  a member of whatever :RT is.  In this case :RT   is equal the   list of  colors (:PR). If :LT  is one of the    colors in the :PR list the CH procedure      stops and back in  S the       next procedure is CC :PR :PE      CC :PR :PE puts the list  of    colors (:PR) and numbers (:PE) ecessary to save them on      tape, but once put back into   shapes 32, 33, and 34 all the  variables did was use up a lot of   memory, slowing     down  the program. So I put those    variables and a SET            procedure (that puts the       values     into shapes 32      through 34 and then erases     the variables) into a separate file named                     SET.MUSEUM. The instruction    list in the STARTUP variable   in MUSEUM loads SET.MUSEUM,    runs the SET  procedure, then  erases it, beforeakes a   LIST of the FIRST item in :LT  (a color)  and the FIRST item  of :BK (a        number) and   uses LPUT to put it on the     end of :PO which becomes a     list of mini-lists. :PO        starts as an  empty list [] at the top of the S procedure.    After the first time    the CC procedure is used it might     equal [ [YELLOW 11] ]. After   the  third time CC is used :PO will equal something like [    [YELLOW 11] [BLUE 4] [GREEN    3] ].     Next S gets the person's  name  and stores it in the     rogram just by typing    the  'S' key and      pressing      return.     The S procedure makes the variable :PR equal a list of 6 colors, and makes the variable :PE  equal a list of 6 numbers that      SmartLOGO uses to    display the 6 colors in    the :PR list. The   variable  :PO  is made an empty list,         ready to be used to store the  colors that will be used in    the     program.     Next in S is the P        procedure which prints its     input and then a   blank line. The CH :PR procedure PO     list of colors and numbers.    If the item 1 in :PO  is       [YELLOW 11], CY 1 will output  YELLOW.      C2 also calls the DINO    procedure, which draws a       dinosaur.  It's drawn using    mostly the AR and  AL          procedures to make arcs (taken from the ARCR and ARCL on the  SmartLOGO tape).  Then it sets the  pen color with SETPC CL   1.  CL 1    uses the CL :RT    procedure to output the LAST   part of item 1 in the :PO      list.  If item 1 is [YELLOW    11], CY 1 will output the     . If he or she did,   CH will    have made the variable :LT     one of those letters.  The     next    command in C6 is to    RUN :LT.  'S'   will start     things over with the 'S'       procedure, 'R' will go to the  'R'   procedure.  The 'M'      procedure calls for the :PO    list to be mixed up by  the    MIX procedure. MIX   :RT       randomnly puts the first item  of    :RT (which starts out as the entire color/number list   of :PO) either at the start or end of a new list :BK using    FPUT and LPUT.asts off.     The YOYO procedure in C4  uses  shape 4 for a yoyo, and  makes it go back and forth by  FREEZING its      motion after a certain time                 measured by WAIT, then giving  it a  SETH that is 180 more    than it's previous HEADING.    The yoyo's         original    heading each time it goes  out is determined by     SETH 135  + RANDOM 200. The "string"  is drawn  with    the pendown     (PD) when the yoyo goes out,   and is eraced with   PE when   it returns. The 7 in YOYO 7    in C4 used next   time.      If the L is entered from  the   MENU the program ends    but is not    eraced.  A       message is diplayed to remind  the user to type and    enter  "ERALL RECYCLE" to free        memory.     ERALL wasn't  put  into the end of    the program itself, lest somebody  wanted  to copy or modify the main     part of the program     after  using it.    S A N I  T A  R I U M     S O F  T W  A R E !-------------             JOHN MOERCH      "ROADS" FILE:               LOAD "ROpe 4) and makes them the three colors    the     person picked at the   start of the   program. It     then uses EACH to have each    "bubble" appear (with ST),     accompanied by a NOISE, and    start   slowly moving (SETSP   5) in a random upward          direction (SETH (50 - RANDOM   100)).     C6 brings things to a     close,   and a menu lets the   person decide   what to do     next.  CH [S R M L]   checks   to see if the person           pressed one of those letters   and then       pressed return number 11 to SETPC and when    the FILL command is            given the dinosaur will fill   with   color 11, yellow.     In C3 turtles 0 and 1 are moved to the lower right part  of    the screen.  Turtle 0    first is made the square shape to STAMP a launch  pad, then   made into shape 27, the        rocket.  In the procedure      ROCKET    turtle 1 is made to  change shape    repeatedly to  animate the rocket's exhaust.  The procedure   CN is     used to count down to zero just     before the rocket bl  Then MIX       calls itself with all but the  first item of :RT, and puts    what was the  second item of   :PO onto either the  start or  end of :BK. When each item of  :RT is used it becomes and     empty list and IF EMPTY :RT    makes its  instruction list    run.  :PO becomes  the new     list :BK, hopefully with       the colors in a new order.     Because it's done by random    the new list    might be in    the same order as the          previous one.  :BK is made an  empty list again, ready to be  makes :RT 7  the first   time YOYO is   called.         Then when YOYO calls itself it makes :RT one  number smaller, and when it reaches 0 the      procedure stops.     C5 makes turtle 0 a       filled    square (shape 7) and places it at   the bottom      center of the screen. Because  it's the lowest                numbered    turtle it will     cover up the other   turtles   as they are made to appear in  that spot till they move up    from there.     BUBS makes 21 turtles the shape of bubbles (shaADS        "DANCE" FILE:               LOAD "DANCE                    "WINTER" & "WEIRD" FILES:               LOADPICT "FILE               THESE ARE SAVED PICTURES.  WITH ROADS, THE LIMIT IS     YOUR     IMAGINATION. BE       CREATIVE.. AND HAVE FUN WITH   THESE...                     JOHN M.                      S.S.         NEW.PET  A LOGO       Program   for    ADAM by J. Kespert     The NEW.PET program tells a    story after asking for    certain      information that  will be usedFIRST letter of    the FIRST word in   the RL     input is a "Y".  If  it is a   "Y" the variables :PRON and    :PZ are made to equal "HE" and "HIS".  If   it isn't a "Y"    the variables :PRON  and :PZ   are made "SHE" and "HER". When the story is told the          correct  pronouns will be      used.     The variables :CLRS and   :NMS   store the three colors  and three    numbers the user  inputs.  When the  story is    told by TELSTORY the           procedures CL :A and NM :A     output   either the fThe user can   decide to    press the 'S' key to start over and put in new   information for another  "new  pet" story.  Pressing the 'R'  key will repeat the story just done.  Pressing the 'M' key    will    tell the same story    with the colors and numbers    mixed up. Or, to leave the     program and return to LOGO     just press the 'L' key.   When back in   LOGO type and enter  ERALL to erace  the NEW.PET    program, or type SAVE          "NEW.PET (or any other name)   to save the program on         af the list it's         working with   (MIX BF :X).    When each item of that list    has been put into the new list :Z, the :X list will be found  to be empty and the procedure  stops. Back in the MENU        procedure :CLRS or :NMS will   be made the value of the newly formed list :Z, and :Z will be made an empty list [], ready   to be used  next time.     The CH [S R M L] in MENU  calls the CH procedure which   uses RC      (Read Character)  to get a value for the         variable :RT.  It then checks C first    makes   the variable :A eaqual the input of RL, then if it's  not an empty list  it checks   whether it is a number    with NUMBERP.  If it's not a number the next line prints [I CAN'T  USE   THAT.] and NC calls      itself to get a new input for  RL.  If the input is  a number it is checked to see that  it  is less than 100000. If it's   less than that the proceedure  stops and that number is added the end of list :NMS.      When QUESTIONS asks [ARE  YOU A BOY?], it checks to see  if the       in    the story.  It is for children old  enough to read, or who can be helped  by somebody who can     read.     To use, just type LOAD    "NEW.PET and press return. The program will load and  then    start    automaticly.     First the program asks    for     information such as    your name, and  some colors    and numbers.  Just type in     each answer and press return.  After the last item is entered the  program tells a story     about a new   pet.     When the story is over a  MENU  appears.  irst,     second, or third  item in the  lists.  CL 1 will     output   the first item in the :CLRS    list. NM 2 will output the     second   item the :NMS list.     When the MENU appears     after    the story is over,    one choice is    the 'M' key   to MIX up the colors    and    numbrs.  The MIX :X proceedure takes the first item of a list and  randomly puts it at       either the      start (FPUT)   or end (LPUT) of a     list    named :Z.  Then MIX calls      itself with all but the first  item  onother tape.PROGRAMERS NOTES:      The QUESTIONS proceedure  uses  the RL (READLIST)        operator in the   CK and NC    procedures to get values  for  the names of things in the     story.  CK  makes the variable :CK  equal the input of RL and then      checks to see if it  is an empty     list (nothing  was entered before pressing    return).  If it's not an       empty list CK stops and the    value   of :CK is put into one of the variables that  will    be used in the  story.    The proceedure N to see if that is a member of  the   list :A ([S R M L]).  If it is the  CH procedure stops  and control goes back to the   rest of MENU. If the key       pressed isn't a member of the  list, CH calls itself and the  RC waits for a new key press.      The proceedure TEMP halts the  telling of the story till a key is  pressed, giving a    child time to     read what's  on the screen. It also  does a RECYCLE to keep memory free.     The STORE, TRUCK, and     HOUSE    procedures add a few  graphics to    n. If you want to erase           everything,    just type * and hit return. This can be useful if you have files on a disk    with the LOGO language.        INITIALIZE would wipe out the  language but ERA will leave it intact.ERA is designed to handle LOGO files. It does not distinguish between upper and lower case   letters  and it does not know  from  file types.Enjoy...MENU PROGRAM BY ANDREW HECKERTTHIS SET OF LOGO PROCEDURES    WILL    INSTALL A MENU PROGRAM AS A STARTUP FILE ON A DISK OR TAPE OFTHIRD   STACK, NOT PUTTING A LARGER    DISK ON TOP OF A SMALLER       ONE, MOVING ONE DISK AT A      TIME.  TO MOVE, USE SMART KEYS ONE    TWO AND THREE, HITTING FIRST   THE STACK TO   TAKE A DISK     FROM AND THEN THE STACK TO     MOVE THE DISK TO. THE HOME KEY WILL START THE GAME OVER AND   THE    WILD CARD WILL DISPLAY  A SOLUTION   (STARTING AT THE  BEGINNING AGAIN).  IF AN ERROR POPS YOU TO TOPLEVEL, TYPE     <START> TO BEGIN AGAIN.        RENREN is named for the REName    command in CPM. It iulate a set of data files (one for each month and NOTES) to keep   an appointment       calendar.The program  is mostly menu    driven  and self explanatory.  When you are viewing the       calendar,  the print key will  print what is on the screen,   the delete key will     allow  you to delete memos, the       insert key will allow you to   add    memos, a <Q> will allow you to quit either the insert  or delete modes, the wildcard  will roll items over from one  day to the next, the  shifted  wildcard wrive  1 or disk   drive one and type 1 or 2 to   tell the program where to      look.  After a wait, you will  be presented with a list of    the files on the     medium.   Enter the number of a file you want to erase and the name of  the file will appear at the    bottom  of the screen.         Keep entering        numbers   until you have listed all      the files you wish to erase.   Then   hit the return key to   erase them.If you make a mistake, hit the escape key to abort and type   ERA to start agaithe story.  The TT procedure just   toots, and P procedue prints a line of    text and then a blank line to  make reading easier.  TELSTORY uses the procedures PART1,     PART2, PART3, and PART4 to     tell the story.     This program can be used  as a  framework for telling    other         stories, just by changing the text  and         graphics.  The same or new     questions could be used.TOWER BY ANDREW HECKERTTHE TOWERS OF HANOI. THE       PUZZLE: TO MOVE THE DISKS FROM THE FIRST STACK TO THE  LOGO FILES. THE   DISK OR TAPE SHOULD NOT             ALREADY HAVE A STARTUP FILE.   THE    MENU WORKS BEST IF THE  LOGO LANGUAGE IS ON   THE DISK OR TAPE.     INIT.CAL    INIT.CAL is a set of           procedures that installs       LOGOCALENDAR as a startup file on a tape or disk, preferably  one with the LOGO language on  it. LOAD INIT.CAL and follow   the instructions.Logocalendar is a set of       procedures in two files,       CALENDAR and                   FILEMAKER, that create and     manips for      renaming LOGO     files. Begin by loading REN and putting the medium containing the          file to be renamed in tape     drive    one or disk drive     one. Then type TAPE or         DISK. Now type REN "oldname "newname and  with any luck your file   should be   renamed. ERA ERA is named for the erase     command  in CPM. It is a       utility for erasing files from a tape  or disk.To begin, load ERA. Then put   the    medium containing the   files you     want to erase in either tape dill roll items over  to the notes (this is how to   get them from one month  to    another) , the right arrow     will fast forward (any other   key will stop), the left key   will fast reverse, and any     other key will return you to   the menu.Don't forget to save your      calendar  (option 3 on the     menu).        LOGODIALER Logodialer keeps a list of     phone    numbers and dials the phone for you using a modem.Begin by creating an empty     file called NUMBERS. (type     SAVENS "NUMBERS   MODIFY  IT TO READ A TAPE,     CHANGE THE 4 IN  THE           PROCEDURES READ AND WRITE TO   AN 8. TO USE IT, TYPE <READ :NUMBER> WHERE   :NUMBER IS THE NUMBER  OF THE BLOCK  YOU WANT TO READ (1 IS THE         DIRECTORY    BLOCK). THEN TYPE <LOOKAT      :NUMBER> WHERE NUMBER IS THE   NUMBER OF TH BYTE YOU WANT TO  SEE IN THE   BLOCK (BEGINNING  WITH 0). <RETURN>  WILL        ADVANCE TO THE NEXT BYTE, <C>  WILL ALLOW YOU TO CHANGE THE   VALUE  OF THE CURRENT BYTE BY  TYPING THE   NEW VALUE IN      DECIMAL    <LISTNUMBERS>. To purge unused numbers from your list type    <PURGE> and then the numbers   of the names   to delete. To   exit from PURGE, press    the  escape key.To save any changes or         additions to your list of      phone numbers, type <S>.PRDRIVE was written by David   Clark  and appeared in Darrell Sage's ECN  for July-August    1987. It will cause text       output to go to a dot matrix   printer through an Orphanware  Centronics interface from      LOGO.EDITOR IS A DISK EDITOR. TO  :BASEADR 1 BF :BYTELISTENDTO QWOTE :WORDOP WORD "" :WORDENDTO SETUP.ALLOCATE 255.INSTALL 31726 [1 0 0 17 0 0 62 4 33 238 119 205 243 252 201]ENDTO BINARY :NUMBEROP DEC.TO.ANYBASE :NUMBER 2ENDTO CHOOSEMEDIUMMAKE "CHOICE RCIF NOT MEMBERP :CHOICE [1 2] [CHOOSEMEDIUM]IF EQUALP :CHOICE 1 [TAPE] [DISK]ENDTO TAPESETDEVICE 0DEFINE "READ ( SUB 8 4 TEXT "READ )DEFINE "WRITE ( SUB 8 4 TEXT "WRITE )CATALOGENDTO SUB :NEWITEM :OLDITEM :LISTIF EMPTYP :LIST [OP []]IF LISTP FIRST :LIST [OP FPU, <S> WILL ALLOW   YOU  TO CHANGE IT BY TYPING IN  A   LETTER. <Q> OR ESCAPE WILL     RETURN YOU TO TOPLEVEL. YOU    CAN MAKE YOUR CHANGES          PERMANENT BY WRITING THEM      BACK TO DISK. TYPE <WRITE      :BLOCKNUMBER>LOGOCOPY LOGOCOPY WILL COPY THE         CONTENTS OF  THE DISK IN       DISKDRIVE 1 TO THE DISK IN     DISK DRIVE 2. ANY FILES STORED ON THE DISK IN DRIVE 2 WILL BE OVERWRITTENLOGOCOPY WILL COPY A DISK IN   THREE MINUTES.  interface from      LOGO.EDITOR IS A DISK EDITOR. TO  <RETURN>). LOGODIALER operates at        toplevel.   Any procedure can  be aborted by     hitting the  escape key, but if you  abort  while dialing, you will want   to push the left firebutton to hang up the modem line.Phone numbers are saved as     global   variables [eg. MAKE   "FRED 8538583].If the number includes an area code, you must make it a word  [eg.  MAKE "FRED               "12158438583]. To call a       number, type CALL :FRED. For   an     alphbetical listing of  your numbers type          TO LETTER :NUMIF AND ( :NUM > 64 ) ( :NUM < 91 ) [OP ITEM ( :NUM - 64 ) :ALPHA]IF AND ( :NUM > 96 ) ( :NUM < 123 ) [OP ITEM ( :NUM - 96 ) :ALPHA]IF AND ( :NUM > 32 ) ( :NUM < 65 ) [OP ITEM ( :NUM - 32 ) :SYMBOL]IF AND ( :NUM > 90 ) ( :NUM < 97 ) [OP ITEM ( :NUM - 90 ) :SYMBOL2]OP "ENDTO ENTRY :ADDRESSIF EQUALP 3 .EXAMINE :ADDRESS [OP "]OP WORD LETTER .EXAMINE :ADDRESS ENTRY SUM :ADDRESS 1ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM   MODIFY  IT TO READ A TAPE,     CHANGE THE 4 IN  THE           PROCEDURES READ AND WRITE TO   AN 8. TO USE IT, TYPE <READ :NUMBER> WHERE   :NUMBER IS THE NUMBER  OF THE BLOCK  YOU WANT TO READ (1 IS THE         DIRECTORY    BLOCK). THEN TYPE <LOOKAT      :NUMBER> WHERE NUMBER IS THE   NUMBER OF TH BYTE YOU WANT TO  SEE IN THE   BLOCK (BEGINNING  WITH 0). <RETURN>  WILL        ADVANCE TO THE NEXT BYTE, <C>  WILL ALLOW YOU TO CHANGE THE   VALUE  OF THE CURRENT BYTE BY  TYPING THE   NEW VALUE IN      DECIMALT SUB :NEWITEM :OLDITEM FIRST :LIST SUB :NEWITEM :OLDITEM BF :LIST]IF EQUALP :OLDITEM FIRST :LIST [OP FPUT :NEWITEM SUB :NEWITEM :OLDITEM BF :LIST]OP FPUT FIRST :LIST SUB :NEWITEM :OLDITEM BF :LISTENDTO READ.DEPOSIT 31733 4.DEPOSIT 31730 1.DEPOSIT 31738 243.CALL 31726ENDTO DISKSETDEVICE 4DEFINE "READ ( SUB 4 8 TEXT "READ )DEFINE "WRITE ( SUB 4 8 TEXT "WRITE )CATALOGENDTO WRITE.DEPOSIT 31733 4.DEPOSIT 31730 1.DEPOSIT 31738 246.CALL 31726ENDTO DEC.TO.ANYBASE :N :BASEIF :N < :BASE [OETRACKSTRUCKROADHELPENDTO ROADSETPC 11TELL ALL CS HTTELL 0 STPU FD 16RT 90PD FD 257LT 90 PUBK 32 RT 90PD FD 256PU HOME RT 90REPEAT 16 [PD FD 8 PU FD 8]ENDTO GRASSLT 90FD 20SETPC 2PD FILL PUBK 60PD FILL PUHOMEENDTO STATIONFD 16SETPC 11PDFD 40LT 90FD 60LT 90FD 40LT 90LT 45PUFD 5SETPC 1PD FILL PUHOMEENDTO PAVEFD 3SETPC 1PD FILL PUHOMEENDTO TRACKSTELL 1 ST PUBK 70RT 90SETPC 1PD FD 256 PURT 90FD 2LT 90PD FD 256 PULT 90PUTSH 1 :TRAINSETC 1SETSH 1MAKE "FOUND "FALSEIF AND ( EQUALP .EXAMINE :ADDRESS ASCII FIRST :FILENAME ) ( NOT DELETED ( .EXAMINE SUM 12 :ADDRESS ) ) [MAKE "HERE :ADDRESS CHECKOUT WORD :FILENAME "A :ADDRESS]IF :FOUND [OP :HERE]OP FIND :FILENAME SUM :ADDRESS 26ENDTO RENAME :NAME :ADDRESSIF EQUALP :ADDRESS 0 [STOP]IF EMPTYP :NAME [.DEPOSIT :ADDRESS 3 STOP].DEPOSIT :ADDRESS ASCII FIRST :NAMERENAME BF :NAME SUM :ADDRESS 1ENDTO N.TO.C :NIF :N < 10 [OP :N]OP CHAR 55 + :NENDTO REN :OLDNAME :NEWNAMESETUPREADRENAME WORD :NE1 6 6 0 0 0 0 0 0 0 128 240 248 254 254 254 255 24 24 0 0]MAKE "COPCAR [0 0 2 2 15 24 24 56 255 255 255 47 56 16 0 0 0 0 0 0 0 128 64 32 252 254 255 244 28 8 0 0]MAKE "BUS [0 0 0 0 0 7 4 62 63 127 255 47 56 16 0 0 0 0 0 0 0 254 146 147 255 255 255 244 28 8 0 0]MAKE "COPTER [0 127 0 67 255 67 1 1 1 0 7 0 0 0 0 0 0 255 128 224 144 136 132 204 248 146 252 0 0 0 0 0]MAKE "CAR [0 0 0 0 15 24 24 56 255 255 255 47 56 16 0 0 0 0 0 0 0 128 64 32 252 254 255 244 28 8 0 0]MAKE "TRAIN [0 0 0 0 0 248 41 43 123 255 TO ROADHELPPUTSH 32 :CARPUTSH 33 :COPTERPUTSH 34 :BUSPUTSH 35 :COPCARPUTSH 2 :COALPUTSH 3 :TRAILERPUTSH 4 :REVCARPUTSH 5 :REVCOPTERPUTSH 6 :REVCOPCARCTPR []PR [SHAPE 1 = TRAIN]PR [SHAPE 2 = COAL]PR [SHAPE 3 = TRUCK TRAILER]PR [SHAPE 4 = REV CAR]PR [SHAPE 5 = REV COPTER]PR [SHAPE 6 = REV COP CAR]PR []PR [SHAPE 32 = CAR]PR [SHAPE 33 = COPTER]PR [SHAPE 34 = BUS]PR [SHAPE 35 = COP CAR]PR []ENDTO TRUCKTELL 0PURT 90SETSH 25SETC 5SETSP 73ENDTO STARTSETBG 2ROADGRASSSTATIONPAVP N.TO.C :N]OP WORD DEC.TO.ANYBASE INT QUOTIENT :N :BASE :BASE N.TO.C REMAINDER :N :BASEENDTO CHECKOUT :FILENAME :ADDRESSIF AND ( EQUALP .EXAMINE :ADDRESS 3 ) ( EMPTYP :FILENAME ) [MAKE "FOUND "TRUE STOP]IF EMPTYP :FILENAME [STOP]IF NOT EQUALP .EXAMINE :ADDRESS ASCII FIRST :FILENAME [STOP]CHECKOUT BF :FILENAME SUM :ADDRESS 1ENDTO DELETED :NUMIF :NUM < 4 [OP "TRUE]IF EQUALP LAST BL BL BINARY :NUM 1 [OP "TRUE] [OP "FALSE]ENDTO FIND :FILENAME :ADDRESSIF :ADDRESS > SUM :BUFFERSTART 1024 [OP 0]FD 7RT 90SETSP 60ENDMAKE "STARTUP [RECYCLE START]MAKE "REVCOPCAR [0 0 0 0 0 0 1 2 63 127 255 47 56 16 0 0 0 0 32 32 112 152 24 28 255 255 255 244 28 8 0 0]MAKE "REVCOPTER [0 255 1 7 9 17 33 51 31 73 63 0 0 0 0 0 0 254 0 194 255 194 128 128 128 0 224 0 0 0 0 0]MAKE "REVCAR [0 0 0 0 0 0 1 2 63 127 255 47 56 16 0 0 0 0 0 0 112 152 24 28 255 255 255 244 28 8 0 0]MAKE "TRAILER [0 0 0 0 0 15 15 15 15 15 15 0 12 12 0 0 0 0 0 0 0 252 252 252 252 252 255 32 44 12 0 0]MAKE "COAL [0 0 0 0 0 1 3 7 15 15 15 3WNAME "A FIND :OLDNAME SUM :BUFFERSTART 78IF NOT :FOUND [CS PR [NOT FOUND] STOP]WRITECATALOGENDMAKE "STARTUP [CS HT PR [WELCOME TO REN] PR [WRITTEN BY ANDREW HECKERT] PR [AUGUST 1987] PR [] PR [INSERT MEDIUM CONTAINING] PR [FILE TO BE RENAMED] PR [IN DATA DRIVE 1] PR [OR DISK DRIVE 1] PR [AND TYPE < TAPE >] PR [OR < DISK >] PR [THEN TYPE] PR [< REN "OLDNAME "NEWNAME >]]MAKE "HERE 30832MAKE "FOUND "TRUEMAKE "BUFFERSTART 30702DTO FIND :FILENAME :ADDRESSIF :ADDRESS > SUM :BUFFERSTART 1024 [OP 0]255 255 27 27 0 0 0 0 0 56 56 16 80 248 252 252 252 248 6 87 0 0]PCAR [0 0 0 0 0 0 1 2 63 127 255 47 56 16 0 0 0 0 32 32 112 152 24 28 255 255 255 244 28 8 0 0]MAKE "REVCOPTER [0 255 1 7 9 17 33 51 31 73 63 0 0 0 0 0 0 254 0 194 255 194 128 128 128 0 224 0 0 0 0 0]MAKE "REVCAR [0 0 0 0 0 0 1 2 63 127 255 47 56 16 0 0 0 0 0 0 112 152 24 28 255 255 255 244 28 8 0 0]MAKE "TRAILER [0 0 0 0 0 15 15 15 15 15 15 0 12 12 0 0 0 0 0 0 0 252 252 252 252 252 255 32 44 12 0 0]MAKE "COAL [0 0 0 0 0 1 3 7 15 15 15 3 GOING TO LOGO.] PR "P [\ IF YOU WANT TO START] P [OVER TYPE: \ LOAD "MUSEUM] P [\ AND PRESS RETURN]TEMPCS PD SETSH 36 STENDTO TTTOOT 1 555 10 5ENDTO CN :RTIF EQUALP :RT -1 [STOP]TOOT 0 200 + 50 * :RT 15 10TYPE :RT TYPE [\ ] WAIT 50CN :RT - 1ENDMAKE "STARTUP [START]MAKE "E3 [1 6 12 26 4 9 16 10 8 27 5 13 7 5 2 1 0 192 96 64 224 64 80 160 240 160 112 192 96 128 128 0]MAKE "E2 [2 1 4 2 5 1 0 5 7 4 2 0 0 2 0 0 128 0 64 128 16 64 64 0 0 64 128 0 128 0 0 0]MAKE "E1 [2 5 16 6 17 4 0 0 0 0 0 0 TO SAINT  TOOT 1 523.25 10 90TOOT 0 261.63 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 25   WAIT 50       TOOT 1 523.25 10 90TOOT 0 261.63 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 25  WAIT 50        TOOT 1 523.25 10 180TOOT 0 261.63 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 30TOOT 0 329.63 15 30TOOT 0 261.63 15 30TOOT 0 329.63 15 30TOOT 1 783.99 10 35TOOT 0 293.66 15 35WAIT 50SAINT2ENDTO SAINT2TOOT 1 783.99 10 65TOOT 0 329.63 15 20WAIST]CHANGE RCENDTO RESETPUTSH 0 :APUTSH 1 :BPUTSH 2 :CPUTSH 3 :DPUTSH 4 :EPUTSH 5 :FSTARTENDTO STARTAMAKE "A [0 0 0 0 0 189 219 37 249 249 249 249 249 37 219 189 0 0 0 0 0 248 248 132 251 252 252 252 251 132 248 248]MAKE "B [0 0 0 0 0 15 23 16 47 31 31 31 47 16 23 15 0 0 0 0 0 187 237 114 159 159 159 159 159 114 237 187]MAKE "C [0 0 0 0 0 0 60 127 60 231 199 199 231 60 127 60 0 0 0 0 0 0 60 254 176 31 31 31 31 176 254 60]MAKE "D [0 0 0 0 0 120 253 192 151 167 135 167 151 192 253 120 0 0 0 0TO SETPUTSH 32 :E1 PUTSH 33 :E2 PUTSH 34 :E3MAKE "BK []ERN [E1 E2 E3]ENDMAKE "E3 [1 6 12 26 4 9 16 10 8 27 5 13 7 5 2 1 0 192 96 64 224 64 80 160 240 160 112 192 96 128 128 0]MAKE "E2 [2 1 4 2 5 1 0 5 7 4 2 0 0 2 0 0 128 0 64 128 16 64 64 0 0 64 128 0 128 0 0 0]MAKE "E1 [2 5 16 6 17 4 0 0 0 0 0 0 0 0 0 0 128 32 136 32 32 0 0 0 0 0 0 0 0 0 0 0]O MMIX :PO RENDTO TEMPRECYCLETT P [] P []PR [PRESS ANY KEY] PR RCPR [] PUENDTO P :RTPR :RT PR []ENDTO STARTSET ER "SETSENDTO LCTP [I AM1 6 6 0 0 0 0 0 0 0 128 240 248 254 254 254 255 24 24 0 0]MAKE "COPCAR [0 0 2 2 15 24 24 56 255 255 255 47 56 16 0 0 0 0 0 0 0 128 64 32 252 254 255 244 28 8 0 0]MAKE "BUS [0 0 0 0 0 7 4 62 63 127 255 47 56 16 0 0 0 0 0 0 0 254 146 147 255 255 255 244 28 8 0 0]MAKE "COPTER [0 127 0 67 255 67 1 1 1 0 7 0 0 0 0 0 0 255 128 224 144 136 132 204 248 146 252 0 0 0 0 0]MAKE "CAR [0 0 0 0 15 24 24 56 255 255 255 47 56 16 0 0 0 0 0 0 0 128 64 32 252 254 255 244 28 8 0 0]MAKE "TRAIN [0 0 0 0 0 248 41 43 123 255 TO STARTSETBG 1TELL 1 RT 90 FD 8TELL 0 LT 90 FD 8CHANGE RCENDTO CHANGE :DIRIF :DIR = "1 [SETC 3]IF :DIR = "2 [SETC 4]IF :DIR = "3 [SETC 5]IF :DIR = "4 [SETC 6]IF :DIR = "5 [SETC 9]IF :DIR = "6 [SETC 10]IF :DIR = "7 [SETC 11]IF :DIR = "8 [SETC 12]IF :DIR = "9 [SETC 15]IF :DIR = "0 [SETC 8]IF :DIR = "A [HT TELL 0 SETSH 1 TELL 1 SETSH 0 TELL [0 1] ST]STIF :DIR = "B [HT TELL 2 SETSH 2 ST]IF :DIR = "C [HT TELL 2 SETSH 3 ST]IF :DIR = "D [HT TELL 2 SETSH 4 ST]IF :DIR = "E [HT TELL 2 SETSH 5 T 20TOOT 0 329.63 15 20TOOT 0 293.66 15 20TOOT 1 523.25 10 110TOOT 0 261.63 15 30WAIT 30TOOT 0 261.63 15 20TOOT 0 329.63 15 30TOOT 0 392 15 30WAIT 30TOOT 1 698.46 10 55TOOT 0 392 15 20TOOT 0 349.23 15 35WAIT 50TOOT 1 698.46 10 40TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 1 523.25 10 105TOOT 0 392 15 35TOOT 0 329.63 15 35TOOT 0 261.63 15 35TOOT 1 783.99 10 35TOOT 0 293.66 15 35TOOT 1 523.25 10 40TOOT 0 261.63 15 40ENDMAKE "STARTUP [SAINT] 0 30 175 97 158 159 241 159 158 97 175 30]MAKE "E [0 0 0 0 0 0 60 255 57 239 199 199 239 57 255 60 0 0 0 0 0 0 60 255 17 142 143 143 142 17 255 60]MAKE "F [0 0 0 0 0 0 124 251 4 255 143 143 255 4 251 124 0 0 0 0 0 0 60 218 41 23 27 27 23 41 218 60]RESETENDMAKE "F [0 0 0 0 0 0 124 251 4 255 143 143 255 4 251 124 0 0 0 0 0 0 60 218 41 23 27 27 23 41 218 60]MAKE "E [0 0 0 0 0 0 60 255 57 239 199 199 239 57 255 60 0 0 0 0 0 0 60 255 17 142 143 143 142 17 255 60]MAKE "D [0 0 0 0 0 120 253 192 151 167 13E SOLVE :STARTPEG :TEMPPEG :FINISHPEG :N - 1 MK.MOVE :STARTPEG :FINISHPEG SOLVE :TEMPPEG :FINISHPEG :STARTPEG :N - 1 )ENDTO CHECK :INPUTIF NOT NUMBERP :INPUT [OP CHECK RC]IF AND :INPUT > 0 :INPUT < 10 [OP :INPUT]OP CHECK RCENDTO INITMAKE "1 :INITLISTMAKE "2 []MAKE "3 []ENDTO MAKEINITLISTMAKE "INITLIST MEMBER ITEM DIFFERENCE 10 :NUMBEROFDISKS :DISKLIST :DISKLISTENDTO MAKESOLVELISTMAKE "SOLVELIST SOLVE 1 3 2 :NUMBEROFDISKSENDTO SETDISKNUMBERPR [NUMBER OF DISKS?]PR [( BETWEEN 1 AND 8 )TO MK.MOVE :STARTNAME :FINISHNAMEOP LPUT LIST :STARTNAME :FINISHNAME []ENDTO MAKEFIRSTSTACKMAKE "INITLIST MEMBER ITEM DIFFERENCE 10 :NUMBEROFDISKS :INITLIST :INITLISTINITENDTO GETMOVEMAKE "RC RCIF EQUALP ASCII :RC 129 [OP "1]IF EQUALP ASCII :RC 130 [OP "2]IF EQUALP ASCII :RC 131 [OP "3]IF EQUALP ASCII :RC 128 [INIT START]IF EQUALP ASCII :RC 144 [INIT UPDATE WAIT 10 SOLVEIT :SOLVELIST START]GETMOVEENDTO UPDATETELL [4 5 6]CSTELL 4PULT 90FD 50RT 90 FD 1PDSTACK :1PUBK PRODUCT COUNTFD 10 RT 90 FD 5 RT 90PU FD 5 SETPC 1 PD FILL PU BK 5ENDTO GREENPDLT 90 FD 10 RT 90 FD 10 RT 90 FD 20 RT 90 FD 10 RT 90 FD 10 RT 90PU FD 5 SETPC 2 PD FILL PU BK 5ENDTO LIGHTBLUEPDLT 90 FD 15 RT 90 FD 10 RT 90 FD 30 RT 90 FD 10 RT 90 FD 15 RT 90PU FD 5 SETPC 7 PD FILL PU BK 5ENDTO ORANGEPDLT 90 FD 20 RT 90 FD 10 RT 90 FD 40 RT 90 FD 10 RT 90 FD 20 RT 90PU FD 5 SETPC 9 PD FILL PU BK 5ENDTO REDPDLT 90 FD 25 RT 90 FD 10 RT 90 FD 50 RT 90 FD 10 RT 90 FD 25 RT 90PU FD 5 SETPC 6 PD FILL PUIF EMPTYP THING :FROM [STOP]IF EMPTYP THING :TO [MOVE% STOP]MAKE "X THING FIRST LAST THING :FROMMAKE "Y THING FIRST LAST THING :TOIF :X > :Y [PR [YOU CANNOT DO THAT] WAIT 100 STOP]MOVE%ENDTO MOVE%MAKE :TO LPUT LAST THING :FROM THING :TOMAKE :FROM BUTLAST THING :FROMENDTO STACK :PILEIF EMPTYP :PILE [STOP]RUN FIRST :PILEPU FD 10 PDSTACK BUTFIRST :PILEENDTO T :NUMSETPC :NUMFILLENDTO SOLVE :STARTPEG :FINISHPEG :TEMPPEG :NIF EQUALP :N 1 [TYPE [.] OP MK.MOVE :STARTPEG :FINISHPEG]OP ( S5 167 151 192 253 120 0 0 0 0 0 30 175 97 158 159 241 159 158 97 175 30]MAKE "C [0 0 0 0 0 0 60 127 60 231 199 199 231 60 127 60 0 0 0 0 0 0 60 254 176 31 31 31 31 176 254 60]MAKE "B [0 0 0 0 0 15 23 16 47 31 31 31 47 16 23 15 0 0 0 0 0 187 237 114 159 159 159 159 159 114 237 187]MAKE "A [0 0 0 0 0 189 219 37 249 249 249 249 249 37 219 189 0 0 0 0 0 248 248 132 251 252 252 252 251 132 248 248]MAKE "STARTUP [TELL ALL PU CS HT PR [TYPE A,B,C,D,OR E] PR [AND A NUMBER] STARTA] 67 151 192 253 120 0 0 0 0]OP CHECK RCENDTO INITIALISEMAKE "NUMBEROFDISKS SETDISKNUMBERPR SE [SOLVING FOR] SE :NUMBEROFDISKS [DISKS...]MAKE "SOLVELIST []RECYCLEMAKESOLVELISTMAKEINITLISTINITENDTO SETUPCS TELL ALL HOMETELL 1PULT 90FD 50RT 90 FD 1STTELL 2RT 90FD 50LT 90 FD 1STTELL 3PUBK 85STENDTO PUT :BLOCK :PILEIF THING :BLOCK > THING FIRST LAST :PILE [PR [CANNOT GO HERE] STOP]MAKE :BLOCK LPUT :BLOCK []IF MEMRERP :BLOCK :1 [DELETE :BLOCK :1]ENDTO BLACKPDLT 90 FD 5 RT 90 FD 10 RT 90 FD 10 RT 90  :1 10TELL 5RT 90FD 50LT 90 FD 1PDSTACK :2PUBK SUM -1 PRODUCT COUNT :2 10TELL 6PUBK 80PDSTACK :3PUBK SUM -2 PRODUCT COUNT :3 10ENDTO SOLVEIT :MOVELISTIF EMPTYP :MOVELIST [WAIT 100 BEGIN]MOVE FIRST FIRST :MOVELIST LAST FIRST :MOVELISTUPDATEWAIT 10SOLVEIT BUTFIRST :MOVELISTENDTO STARTUPDATEMOVE GETMOVE GETMOVESTARTENDTO BEGINTELL ALL HT PU HOME CSPUTSH 1 :ONEPUTSH 2 :TWOPUTSH 3 :THREETELL 1 SETSH 1TELL 2 SETSH 2TELL 3 SETSH 3SETUPINITIALISESTARTENDTO MOVE :FROM :TO BK 5ENDTO YELLOWPDLT 90 FD 30 RT 90 FD 10 RT 90 FD 60 RT 90 FD 10 RT 90 FD 30 RT 90PU FD 5 SETPC 11 PD FILL PU BK 5ENDTO PURPLEPDLT 90 FD 35 RT 90 FD 10 RT 90 FD 70 RT 90 FD 10 RT 90 FD 35 RT 90PU FD 5 SETPC 13 PD FILL PU BK 5ENDTO WHITEPDLT 90 FD 40 RT 90 FD 10 RT 90 FD 80 RT 90 FD 10 RT 90 FD 40 RT 90PU FD 5 SETPC 15 PD FILL PU BK 5ENDTO BLUEPDLT 90 FD 45 RT 90 FD 10 RT 90 FD 90 RT 90 FD 10 RT 90 FD 45 RT 90PU FD 5 SETPC 4 PD FILL PU BK 5ENDMAKE "STARTUP [BEGIN]MAKE "RC "FMAK?Àøà€üðÀ€`à?Ààÿÿÿ€ø€ðüààÀÀðø†aÁÀàð?`€üüøðÀ€`€€üðÀðÀà<À<ÀüÿÀ?ü<À<ðŒcÁø|2	Ä3ø|€@ hAKE "INITLIST [[LIGHTBLUE] [GREEN] [BLACK]]MAKE "SOLVELIST [[1 3] [1 2] [3 2] [1 3] [2 1] [2 3] [1 3]]MAKE "NUMBEROFDISKS "3MAKE "1 [[LIGHTBLUE] [GREEN]]MAKE "BLACK 1MAKE "GREEN 2MAKE "LIGHTBLUE 3MAKE "ORANGE "4MAKE "RED 5MAKE "YELLOW 6MAKE "PURPLE 7MAKE "WHITE 8MAKE "BLUE 9 80 RT 90 FD 10 RT 90 FD 40 RT 90PU FD 5 SETPC 15 PD FILL PU BK 5ENDTO BLUEPDLT 90 FD 45 RT 90 FD 10 RT 90 FD 90 RT 90 FD 10 RT 90 FD 45 RT 90PU FD 5 SETPC 4 PD FILL PU BK 5ENDMAKE "STARTUP [BEGIN]MAKE "RC "FMAK~~~~~~??€€þüøøðààÀ?€€øððàÀÀ€?€þüøðàÀ€?€þüøðÀ€?Àx€ðà€€|ÃðüÀ8K5ŠE>g°Øèl´z¾]þþÀ€€??þþüüøøðð?€üøððàÀÀ€€þüøðàÀ€??ÀþüøàÀÀ?`€üðøÿðü‰f™füƒ`?žO­×k7›€€@Àààðÿÿÿÿ€?À<À<Àxðøÿðxø€x€pÀðüE "EMPTY "MAKE "DISKNUMBER "5MAKE "3 []MAKE "2 [[BLACK]]MAKE "THREE [127 127 25 25 25 25 25 25 25 25 25 25 25 25 127 127 254 254 152 152 152 152 152 152 152 152 152 152 152 152 254 254]MAKE "TWO [31 31 6 6 6 6 6 6 6 6 6 6 6 6 31 31 248 248 96 96 96 96 96 96 96 96 96 96 96 96 248 248]MAKE "ONE [7 7 1 1 1 1 1 1 1 1 1 1 1 1 7 7 224 224 128 128 128 128 128 128 128 128 128 128 128 128 224 224]MAKE "Y 1MAKE "X 2MAKE "DISKLIST [[BLUE] [WHITE] [PURPLE] [YELLOW] [RED] [ORANGE] [LIGHTBLUE] [GREEN] [BLACK]]Mþþþþþþþþ?€þüøðàÀ€?`€þüüøðÀ€??Àøàð€ð<à€ÿøà€x€xŒâÁ?ŠE²i”N3ù€@ P(”€øðààÀ€€þüøðàÀ€?€þüøðÀ€€?`€ÀüðÀ<ÀüþàüðàøààücÇ3ŒbÌf³k5Ú-—€À``E "EMPTY "MAKE "DISKNUMBER "5MAKE "3 []MAKE "2 [[BLACK]]MAKE "THREE [127 127 25 25 25 25 25 25 25 25 25 25 25 25 127 127 254 254 152 152 152 152 152 152 152 152 152 152 152 152 254 254]MAKE "TWO [31 31 6 6 6 6 6 6 6 6 6 6 6 6 31 31 248 248 96 96 96 96 96 96 96 96 96 96 96 96 248 248]MAKE "ONE [7 7 1 1 1 1 1 1 1 1 1 1 1 1 7 7 224 224 128 128 128 128 128 128 128 128 128 128 128 128 224 224]MAKE "Y 1MAKE "X 2MAKE "DISKLIST [[BLUE] [WHITE] [PURPLE] [YELLOW] [RED] [ORANGE] [LIGHTBLUE] [GREEN] [BLACK]]M??€üüøøøððð€€ààÀÀ€€??þþüüø€??€€üüøðààÀÀ€€þøðàÀ€€?ÀþüüðÀÀàÿ?ÁðþuÇ3gðøø|¼üÜ~€€€ðàààÀÀÀÀþþþþüüü€€€€øðððààààþþþþ€€??€þüüøøøðð€øðààÀÀ€€`€þøàÀ€ÀÿÄ>áøî~6¿_¿_?€þþ€€ÀÀàð?øüþ€€Ààð€?øüþ€€Àðø?€`ÀðüÀ<xüàþðüààøbŒ3ÇcK—-Ú5Y³f° `À€?øüþ€Ààð€?øüþ€€Àðøü?À?€àø€ðÀ<ð€ÿàx€x€à?Áâüù3N”i²EÌ”(P @€þþþþþþþþðððððððø€€??ððððððøø€€€????ðððððððð€??ðððððøøü€Ã>@ÀÀÀÀÀÀÀ€€€€€€€€????????øøøøøøøø€€€€€ÀÀÀ?????øøøøøüüü€€ÀÀÀÀàà???øøøüüüþþ€€€€€ÀÀàðøüüþ€Àð8þ;Çk—/À€€€€€€€~~~~~~À?À<€xÀðøÿÿð€øp€x€àüðÀÀ<ÿÿÿÿx€?üþþ€€€??ààððøøüþ€€€ÀÀàððø?üþ€Ààðø?øüþÀÀàøÀ?€`Àðüÿüð`ƒüf™fm›7k×­Ožøððàà@À€€€??ÀÀààððøüþ€€€€Ààðð?üüþ€Ààð€?üþ€€Àðøü?À?Àð€à€ø|€8ÀüðÃ‰g>EŠ57]¿z¶dèØ€€€€€€€€€???????üøøøøøøøÀÀÀÀ€€€€????üüüüøøøø€€àààÀÀÀÀ€??þþüüøø?€€üøðààÀÀ€`€þþðÀþ8ß/—kÇ;€€€€€€€€€??øøðððððð€€€????øøøøðððð€€€€€?????øððððððð€€???üüøøøððð€>Ã€ÀÀÀÀÀÀÀþþþþþþþþ€?øü€€Àðøü`€`ÀðüÀðÀ<À<üàÿü?Àø<ÀøÁcŒŒ|ø3Ä	2Šh @€`À?€àøÀðü€`ààÀ?ÿàÿøüð€<ÀàðÁa†øð|ðàÀ~~~~~~€€€ÀÀÀÀàààüüüüþþþþ€€€€Àààààðððüþþþþ€€€€??àðððøøüü€€ÀÀààð??üþ€€Ààø`ÿøá>ß/_·_¿>~€€€€??ððððøøøü€€€ÀÀ??øøüüþþ€€?€ÀÀààðøüþþ€€€€Ààð?øüþÀðü`àÀ?ÿþðÁÄg3Çþ~Üü¼|øøðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿðððððððÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿññññÿÿÿðññññÿÿÿÿññññÿÿÿÿÿñññððÿÿÿÿÿñðððððððÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññÿÿñññññññññññññññññÿÿÿÿÿññññññññññññññññÿÿÿÿÿÿññÿÿÿñññññÿðñññññÿðððññññÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿñññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿÿÿÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿññññññññññññññññññÿÿÿÿÿÿññÿññññññññññññññññññÿÿÿÿÿÿÿÿÿÿÿññÿÿÿñññññÿññññññÿññññññÿÿññññðÿÿÿÿññññÿÿÿÿÿÿñññÿÿññÿÿÿñññðððððÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿñññññññññññññññññÿÿÿÿÿñññññññññññññññññññÿÿÿÿÿññÿÿñññññññññññññññññÿÿÿÿÿÿÿÿÿÿñññÿÿÿÿññññÿÿññññññÿÿñññññÿÿÿÿññññÿññÿÿÿñññðÿððÿÿÿñðððÿÿðððððððððððððððððððððððððððððððððððððððððððññññññññððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿññññññññññññññññññññññÿÿÿññññññññÿÿÿñññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññÿÿÿÿÿÿñññññññÿÿñññññññÿÿÿÿðñññÿÿÿñññññððððððððððððððððððððððððððððððððññññññññððððððððððððððððððððððððððððððððððððððððððððððððÿÿððððððññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññÿÿññññññññÿÿÿÿÿÿññññññññññññññññññññÿÿÿÿÿÿñññññññññññññññññññÿÿÿÿÿñññññññÿÿñññññññÿÿÿÿÿññññÿÿÿÿÿðññÿÿÿÿñññÿÿÿðÿÿÿÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññÿÿÿññññññññññññññññÿÿÿÿÿñññññññññññññññññÿÿÿÿÿÿñññññññññññññññññÿÿÿÿÿÿññÿÿññññññññññññññññññÿÿÿÿññðÿÿÿÿÿññññÿÿÿÿÿÿÿÿÿðÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿññññññññññññññññÿññññññññññññññññññÿÿÿÿÿññññññññññññññññÿÿÿÿñññññññññññññññññññÿñññññññññññññññññÿÿÿÿÿÿÿññññññññññññññññÿÿÿÿÿÿÿñÿÿññññññññññññññññññðÿÿÿÿñññññÿÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿÿÿñññÿññññññññññññññÿñññÿÿÿÿÿññÿÿÿÿÿÿñÿÿÿÿÿðñðÿÿÿÿðñññÿÿÿÿÿñññññÿÿÿÿñÿññññÿÿÿðððÿÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿñÿññññññññññññññññññÿÿÿÿÿÿÿÿÿÿñññÿÿññññññññññññÿÿññññÿÿÿÿñññÿÿÿÿÿññðÿÿÿÿÿñññÿÿÿÿÿÿñññÿÿÿÿðÿÿññññÿððððÿðññððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿðððÿÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿÿÿññññññññññññññññññññññññññññññññÿÿÿÿÿÿñññññññññññññññññññññÿÿÿÿÿññññññÿÿñÿñññññðÿÿññññððððððððððððððððððððððððððññññññññðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿññññññññññññññññññÿÿÿÿÿÿññññññññññññññññÿÿÿÿÿÿñññññññññññññññññññÿÿÿÿÿÿñÿñññññññññññññññññññÿÿÿÿÿÿÿÿÿÿÿñÿÿÿÿÿñññÿÿÿÿññññÿÿÿÿÿñññññññÿÿÿñÿÿÿÿððÿÿðððððððÿððððððððððððððððððððððððððððððððññññññññððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿññññññññññññññññññññññññññññññññññññÿÿÿÿÿÿññññññññññññññññÿÿÿÿÿÿÿññññññññññññññññññÿÿÿÿÿññÿÿññññññññññññññññÿÿÿÿÿÿñÿÿÿÿÿÿññÿÿÿÿðññññÿÿÿÿññÿÿðÿÿðÿÿÿÿÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððñññÿÿÿÿÿññññññññÿñññññññññññññññññññññññÿÿÿÿÿÿÿñññññññññññññññññññÿÿÿÿÿÿñññññññññññññññññññÿÿÿÿÿñññññññÿÿñññññññÿÿÿÿÿÿÿñññÿÿÿÿÿÿñññðÿÿÿÿñññÿÿÿÿññÿÿðÿÿðÿÿððððÿÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿðððñññññññññññññññññÿÿÿÿÿÿññññññññññññññññññññÿÿÿÿÿññññññññÿñññññññññÿÿÿÿÿÿññññññññññññññññÿÿÿÿÿñññññÿÿÿÿÿÿññññÿÿÿÿñññññÿÿÿññññÿÿÿÿññÿÿÿñññÿÿÿððÿÿÿÿÿðððððððððððððððððððððððððððððððððððððð                                                                                                                                                                                                                                                                ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððððððððððððððððððððððÿðððððððÿðððððððÿÿððððððÿÿððððððÿðððððððÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿðððððððññÿÿÿÿÿÿññññññññÿñññññññÿÿÿÿÿÿññññññÿÿÿÿñññññññÿÿÿÿñññññÿÿÿÿÿñññÿÿÿÿÿÿñññÿÿÿÿÿðññÿÿÿÿÿññÿÿÿÿÿñññÿÿññññÿÿñññðÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿðððððððÿÿÿÿÿÿððññññÿÿÿÿññññññññÿÿññññññÿÿÿÿÿÿñññÿÿÿÿÿÿñññðÿÿÿÿÿñññðÿÿÿÿñññÿÿÿÿÿññÿÿÿÿññÿÿÿÿññññððððÿÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððð €ˆ€@ˆ @@€€@€€€                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððññÿÿÿÿÿÿñññññññññññññññññññÿÿÿÿÿññññññññÿññññññññññÿÿÿÿÿñññññññÿññññññññÿÿÿÿÿÿññññññÿÿÿÿñññññÿÿÿÿññññññÿÿÿñññññÿÿÿññññÿÿÿñññÿÿÿñññÿÿÿððÿÿðððÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððñññÿÿÿÿÿññññññññÿññññññññññÿÿÿÿÿññññññññññññññññÿÿÿÿÿÿñññññÿÿÿÿÿññññññÿÿÿÿññññññÿÿÿñññññÿÿÿÿðñññÿÿÿÿññññÿÿÿñññÿÿññññÿÿÿñððÿÿðððððððððððððððððððððððððððððððððððððððððððððððððððð @@H  €@€ €  €ññññññññððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿððððððÿÿÿÿÿÿÿðñÿÿÿÿÿÿÿññññÿÿÿÿñññññÿÿÿñññññðÿÿðññññÿÿÿññññÿÿÿÿññÿÿÿÿÿðÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððññññññññððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿðððððððÿðððððððÿÿððððððÿÿððððððÿðððððððÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððþþþþþþþþ @ €@€€@@   @ @€À€€€@ € ~~~~~~9€€€À
Ðàð8	i€€àp0PPÀàà  €€€
0ðð <x´´H@@H€€€€€€€€€€@ @ÿÿÿÿÿÿÿOøÿ„„„„ÿ„„à!   à  (þBBRBþBBÿ÷¿·¶ö€€€€€€€€€€ÿ€€€ÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿ--~çÃÃÃBBf€€€€x?saáá¡¡3€€ÀÀ@@~~$ç€þþþþþþþþ8((8pPPÀÀÀ€ðÿÿÿÿÿÿ€€€saáá¡¡3?€€ÀÀ@@àÐ90ppPP€ÀÀàà  €?óÀ~~~~~~ @ ?ÿ€€€ÿÿÿÿÿÿÐ@@€ @€€(??ÿÿ1ÿþ°ÿÿ1ÿß¸@ÿÿýàÿÿcÀÀ€€€€€€ 	yàxüÎ†‡‡……À  Ààp0ÌüüHÏ<ZZ88((`àà@„„ÿ  àBBþþÿÿÿÿÿÿü€€€€€À€€€€€€€€€€(hðøœ8€@@€Àà`p @€þÿÿÿÿÿÿÿ€€€€€€€€€€€€€€€--?

˜øøžþþþþþþþþþþðàÀ€à????øä??óÿÀàüüüü|ÿÀøøøüù€üüÿÀ`?ÿüüøÿÿÿøøðÀþÆñ‚~ð€?Á~€`?ààøøøøøøà?øøøøøÀ`?'ÿà?üüüüññññññññððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððññññññññððððððððððððððððððððððððððððððððððððððððððððððððððððððððððð€€øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøððð€€€€€ððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøøøøøøøøøøøøøøøøøøøøøøøøøøøøøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððð~~~~~~€€@@€@ ( @€€ ðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððð€€€€€€€øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøð€€€€€€€ðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿð€ð€øøøøøøøøøøøøøøøøø€€€€ððððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿðððððÿÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññññññññððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððññññññññððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                                                                                                                                                                                                                                                                ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððÿÿÿÿÿÿðÿÿÿÿÿÿÿððÿÿÿÿÿÿÿÿÿÿÿÿððððÿÿÿÿððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððÿÿÿððððððÿÿÿðððððÿÿÿÿÿÿÿÿÿÿÿÿÿðððÿÿÿÿÿðððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððÿÿÿÿððððÿÿÿÿÿÿððÿÿÿÿÿÿÿðÿÿÿÿÿðððÿÿÿðððððÿÿÿðððððÿÿÿðððððððððððððððððððððððððððððÿðððððððððððððððððððððððÿðððððððÿðððððððÿÿÿðððððððððððððððððððððððððððððÿÿÿÿÿÿÿðððððððððððððððððððÿðððððÿÿÿÿÿÿððððððððððððððððððÿÿððððððððððððððÿÿððððððÿÿÿÿÿÿððÿðððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððððññññññññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿññññññññÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿððððððððÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿTO WORDS.LISTMAKE "WORDS [QUOTE [PLAY IT AGAIN SAM] THING [LABORATORY]    PHRASE [ALL ABOARD] PHRASE [FASTEN SEATBELTS] PHRASE [COME   AND GET IT] PERSON [PAUL ANKA] THING [FROSTY THE SNOWMAN]    PLACE [HERNANDO'S HIDEAWAY] PHRASE [GOOD TO THE LAST DROP]   THING [CROSSWORD PUZZLE] PERSON [JOHNNY APPLESEED] PERSON    [CHRISTMAS TREE FARMER] PHRASE [UNSAFE AT ANY SPEED] THING   [COLOR TELEVISION] THING [MARRIAGE LICENSE] THING            [FLUORESCENT LIGHT] THING [FLOWERING HOUSE PLANT] TITLE [THE PRIVATE LI20            TOOT 0 392 15 30   TOOT 1 261.63 10 175TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 30   TOOT 0 523.25 15 20TOOT 0 587.33 15 20TOOT 0 523.25 15 20WAIT 20            TOOT 1 349.23 10 70TOOT 0 440 15 30   TOOT 0 587.33 15 20TOOT 0 659.26 15 20WAIT 20            TOOT 1 293.66 10 70 TOOT 0 698.46 15 30TOOT 0 659.26 15 20TOOT 0 587.33 15 20WAIT 20TOOT 1 392 15 120  TOOT 0 392 15 30   TOOT 0 698.46 15 30TOOT 0 659.26 15 30TOOT 0 587.33 15 30WAIT 20TOOT 1 261.63 10 70TO WORDS.LISTMAKE "WORDS [QUOTE [PLAY IT AGAIN SAM] THING [LABORATORY]    PHRASE [ALL ABOARD] PHRASE [FASTEN SEATBELTS] PHRASE [COME   AND GET IT] PERSON [PAUL ANKA] THING [FROSTY THE SNOWMAN]    PLACE [HERNANDO'S HIDEAWAY] PHRASE [GOOD TO THE LAST DROP]   THING [CROSSWORD PUZZLE] PERSON [JOHNNY APPLESEED] PERSON    [CHRISTMAS TREE FARMER] PHRASE [UNSAFE AT ANY SPEED] THING   [COLOR TELEVISION] THING [MARRIAGE LICENSE] THING            [FLUORESCENT LIGHT] THING [FLOWERING HOUSE PLANT] TITLE [THE PRIVATE LI20            TOOT 0 392 15 30   TOOT 1 261.63 10 175TOOT 0 329.63 15 20TOOT 0 349.23 15 20TOOT 0 392 15 30   TOOT 0 523.25 15 20TOOT 0 587.33 15 20TOOT 0 523.25 15 20WAIT 20            TOOT 1 349.23 10 70TOOT 0 440 15 30   TOOT 0 587.33 15 20TOOT 0 659.26 15 20WAIT 20            TOOT 1 293.66 10 70 TOOT 0 698.46 15 30TOOT 0 659.26 15 20TOOT 0 587.33 15 20WAIT 20TOOT 1 392 15 120  TOOT 0 392 15 30   TOOT 0 698.46 15 30TOOT 0 659.26 15 30TOOT 0 587.33 15 30WAIT 20TOOT 1 261.63 10 70TO WORLD  TOOT 0 329.63 15 22TOOT 0 349.23 15 20TOOT 1 261.63 10 150TOOT 0 392 15 30   TOOT 0 659.26 15 30TOOT 0 523.25 15 30TOOT 0 587.33 15 20TOOT 0 523.25 15 20WAIT 20            TOOT 1 392 10 255  TOOT 0 523.25 15 30TOOT 0 493.88 15 30WAIT 30             TOOT 0 493.88 15 30TOOT 0 293.66 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 30TOOT 0 587.33 15 30TOOT 0 493.88 15 30TOOT 0 523.25 15 20TOOT 0 493.88 15 20WAIT 20            TOOT 1 261.63 10 90TOOT 0 440 15 30TOOT 0 392 15 30WAIT FE OF HENRY VII] TITLE [FIBBER MCGEE AND MOLLY]    PHRASE [TOAST OF THE TOWN] THING [KEY TO THE CITY] TITLE     [THE THIN MAN] PERSON [ED SULLIVAN] THING [JIGSAW PUZZLE]    PHRASE [THE WHOLE TRUTH AND NOTHING BUT THE TRUTH] THING     [SOCIAL SECURITY] PHRASE [THE GRASS IS GREENER ON THE OTHER  SIDE OF THE FENCE] PHRASE [GOOD THINGS COME IN SMALL         PACKAGES] PHRASE [CLOTHES MAKE THE MAN] PERSON [ROBERT       REDFORD] PHRASE [VOID WHERE PROHIBITED] THING [SIGNATURE]    THING [CHARGE CARD]]END  TOOT 0 523.25 15 70ENDMAKE "STARTUP [WORLD]OOT 1 261.63 10 150TOOT 0 392 15 30   TOOT 0 659.26 15 30TOOT 0 523.25 15 30TOOT 0 587.33 15 20TOOT 0 523.25 15 20WAIT 20            TOOT 1 392 10 255  TOOT 0 523.25 15 30TOOT 0 493.88 15 30WAIT 30             TOOT 0 493.88 15 30TOOT 0 293.66 15 20TOOT 0 329.63 15 20TOOT 0 349.23 15 30TOOT 0 587.33 15 30TOOT 0 493.88 15 30TOOT 0 523.25 15 20TOOT 0 493.88 15 20WAIT 20            TOOT 1 261.63 10 90TOOT 0 440 15 30TOOT 0 392 15 30WAIT FE OF HENRY VII] TITLE [FIBBER MCGEE AND MOLLY]    PHRASE [TOAST OF THE TOWN] THING [KEY TO THE CITY] TITLE     [THE THIN MAN] PERSON [ED SULLIVAN] THING [JIGSAW PUZZLE]    PHRASE [THE WHOLE TRUTH AND NOTHING BUT THE TRUTH] THING     [SOCIAL SECURITY] PHRASE [THE GRASS IS GREENER ON THE OTHER  SIDE OF THE FENCE] PHRASE [GOOD THINGS COME IN SMALL         PACKAGES] PHRASE [CLOTHES MAKE THE MAN] PERSON [ROBERT       REDFORD] PHRASE [VOID WHERE PROHIBITED] THING [SIGNATURE]    THING [CHARGE CARD]]ENDxL- - - - - | |- - - - - - | |- - - - - - ||            | |            | |            | |            | |            ||            | |            | |            | |                                TROLL'S TALE   Skelton    |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||            | |            | |            | |            | |            ||            | |            | |            | |        ||            | |            | |            | |            | |            ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |                 | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||- - - - - - | |- - -  | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - |  Map from OAUC (OMAHA ADAM USERS CLUB) Norman R. Castro (402) 291-4405  | |            | |            | |            ||            | |            | |            | |          - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |                | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||            | |            | |       | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - | |- - - - - - ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |           - - - | |- - - - - - | |- - - - - - | |- - - - - - ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||            | |            | |            | |            | |            ||- - - - Ì1 ×67                           ADAMCON 11 update +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++It is with great pleaure that Bart (Zonker) Lynch, Ron Mitchell and the members of the ADAMCON 11 Organizing Committee invite you and ADAMITES everywhere to attend the eleventh annual con- ference of Coleco ADAM users.ADAMCON 11 or as programmers would call it....ADAMCON 0BH.....or as thwy would call it elsewhere, ADAMCON XI.(we will duke this out later)Meanwhile, all readers take note and be duly informed that ADAMCON ELEVEN will be held July 15, 16,17,and 18, 1999, at the VALU INN in Kent Washington, home of the redoubtable Zonker and close enough to the Mighty Mitchell so as to permit the latter th have something to do with the event.We do hope that you will attend.  Further details will be forth- coming as the organizing committee gears up to put together a memorable time.Hope to see you all there!Ron Mitchell Bart Lynchon behalf ofADAMCON 11 Organizing Committee           :ALPHA]IF AND ( :NUM > 96 ) ( :NUM < 123 ) [OP ITEM ( :NUM - 96 ) :ALPHA]OP "ENDTO SETUP.ALLOCATE 255.INSTALL 31726 [1 0 0 17 0 0 62 4 33 238 119 205 243 252 201]ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO WRITE :BLOCK.DEPOSIT 31733 4.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 246.to do is to send our treasurer $25.00 and 
you will be set for another year. I ask you to 
send it to Bob Bair so that he can enter you in
the books and keep track of the monetary part of
the operation.  IF you send it to your own disk 
distributor, the record of payment can be over-
looked or misplaced and then no one is sure about
who is paid up and who is not.  We will actually
send you a disk or two as your subscription blows
up, so no need to worry about missing an issue or
two while Bob straÌ1 ×65                     MARCH 1999 ADAM NEWS NETWORK ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++LOGO.IMG This months disk is a PD contribution from the Omaha         ADAM User Group.  There is a separate readme file for         the logo programs.  EOS users have it in original form.Register The registration form for ADAMCON 11 this July 15-18thADAMCON  The "official" release of the dates, etc for ADAMCON 11e and be duly informed that ADAMCON ELEVEN will be held July 15, 16,17,and 18, 1999, at the VALU INN in Kent Washington, home of the redoubtable Zonker and close enough to the Mighty Mitchell so as to permit the latter th have something to do with the event.We do hope that you will attend.  Further details will be forth- coming as the organizing committee gears up to put together a memorable time.Hope to see you all there!Ron Mitchell Bart Lynchon behalf ofADAMCON 11 Organizing Committee        	WELCOME TO 1999 !!

----------------------------------------------
From the editor (and the entire ANN staff):

The year 1997 is but a memory now, and another
of those memories are a lot of subscriptions to
the ANN newsletter.  A few years back, at one 
of the ADAMCON annual ANN meetings, we decided
to extend or otherwise "fix up" most subscribers
in order to make renewal dates come on the year
end.  IF you have not thought of renewing your
ANN already, NOW is the time to do it.  All you
need CALL 31726ENDTO READ :BLOCK.DEPOSIT 31733 4.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 243.CALL 31726ENDTO LOOKAT :ADDRESSTYPE :ADDRESSSETCURSOR SE [10] LAST CURSORTYPE .EXAMINE :BUFFERSTART + :ADDRESSSETCURSOR SE [20] LAST CURSORPR LETTER .EXAMINE :BUFFERSTART + :ADDRESSMAKE "RC RCIF EQUALP :RC "Q [STOP]IF EQUALP :RC "C [CHANGE SUM :ADDRESS :BUFFERSTART]IF EQUALP :RC "S [CHANGELETTER SUM :ADDRESS :BUFFERSTART]LOOKAT SUM :ADDRESS 1ENDTO CHANGELETTER :ADDRESSPR [NEW VALUE].DEPOSIT :ADDRESS Aightens up his books. 

Bob Bair (or ADAM NEWS NETWORK Treasurer)
6552 N. 400th E
Kendallville, IN 46755

AND, he is patiently watching his mailbox for your
mail to the ADAM NEWS NETWORK.   THANK YOU!!!!!

 0 17 0 0 62 4 33 238 119 205 243 252 201]ENDTO .INSTALL :BASEADR :BYTELISTIF EMPTYP :BYTELIST [STOP].DEPOSIT :BASEADR FIRST :BYTELIST.INSTALL SUM :BASEADR 1 BF :BYTELISTENDTO WRITE :BLOCK.DEPOSIT 31733 4.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 246.t, l night room........$120.00 Non-delegate spouse meals available for additional cost of:        Fri, Sat, Sun lunch $9 each    For other configurations for attendance, please contact the chairman.  *room rates are based on double occupancy; for single       occupancy room       ADD $30.00 per night to cost of convention            registration A payment plan is available for ADAMCON 11 delegates that   wish to pay their convention fee in advance thru payments of any amount at any time. All res                           ADAMCON 11  JULY 1999                                                         REGISTRATION RATES--------------------------------------------------------------------------Full Delegate   Thur-Fri-Sat-Sun    Non-delegate spouse      Thur-Fri-Sat-Sun 4 nights room, 3 breakfasts, 3      4 nights room-3         breakfasts-1 banquet lunches, 1 banquet   * $270.00       $200.00    		Full delegate child under 18        Non-delegate child under 18 4 nights room, 3 breakfasts, 3    a roommate  Do you wish to be in a non-smoking room? YES     NO    Do you want an ADAMCON 11 T-shirt? $10.00 ea. YES    NO   (circle size) M L XL XXL Do you want an ADAMCON 11 hat? $8.00   YES   NO Delegate                 _________    Spouse                _________    Children              _________    Del. child            _________ Day Pass     Friday               _________     Saturday             _________     Sunday               _________Single room     +$30.00 p      $185.00       $125.00                                Day Passes      Friday delegate         - w/ lunch only..........................$24.00       * - w/lunch, 1 night room, Sat breakfast...$75.00      Saturday delegate         - w/lunch only...........................$24.00       * - w/lunch,1 night room, Sun breakfast....$75.00      Sunday delegate         - w/lunch only...........................$30.00         - w/lunch and banquet....................$60.00       * - w/lunch, banqueCALL 31726ENDTO READ :BLOCK.DEPOSIT 31733 4.DEPOSIT 31730 :BLOCK.DEPOSIT 31738 243.CALL 31726ENDTO LOOKAT :ADDRESSTYPE :ADDRESSSETCURSOR SE [10] LAST CURSORTYPE .EXAMINE :BUFFERSTART + :ADDRESSSETCURSOR SE [20] LAST CURSORPR LETTER .EXAMINE :BUFFERSTART + :ADDRESSMAKE "RC RCIF EQUALP :RC "Q [STOP]IF EQUALP :RC "C [CHANGE SUM :ADDRESS :BUFFERSTART]IF EQUALP :RC "S [CHANGELETTER SUM :ADDRESS :BUFFERSTART]LOOKAT SUM :ADDRESS 1ENDTO CHANGELETTER :ADDRESSPR [NEW VALUE].DEPOSIT :ADDRESS Aervations MUST BE PAID BY JULY 1st to guarantee      registration.                        ADAMCON 11 REGISTRATION FORMNAME                                SPOUSE          ADDRESS                                            PHONE:  CITY                    STATE/PROV              ZIP/POSTAL   CODE       CHILDREN:1st                AGE      2nd                     AGE    If traveling alone and wish to share a room, check here      Enter name of person you wish to have as   4 nights room-3         breakfasts, 1 banquet lunches, 1 banquet     $120.00      (in room w/ 2 adults)   $60.00 (in room w/ 2 adults)Full Delegate       Fri-Sat-Sun     Non-delegate spouse      Fri-Sat-Sun 3 nights room, 2 breakfasts, 2      3 nights room-2         breakfast, 1 banquet lunchs, 1 banquet      $230.00       $165.00Full Delegate           Sat-Sun     Non-delegate spouse      Sat-Sun 2 nights room, 1 breakfast, 1       2 nights room-1         breakfast, 1 banquet lunch, 1 banquet er night x __ = _________ T-Shirt          $10.00  _________ Hat               $7.00  _________                TOTAL   ___________         DEPOSIT/PAID _____________         BALANCE DUE ______________Make checks payable to: "ADAMCON or A.N.N. in US funds and   send to:                ADAMCON 11                c/o Bob Slopsema                2261 ShadeTree Ln S.E.                Kentwood, MI 49546                We will see you at ADAMCON 11 in the great NorthWeest this   summer!!!Í&G!9^#V!Í¾K}2¿!}2¿!"1O!þtåÍÆ$Ñ!9uå!¿åÍ–™ÑÑ! åÍ\)Ñ:¿o&QÍ¾KÊ—t!É!=uåÍÜ$Ñ!ruåÍÆ$Ñ!"1O!9^#Vë"¿!9^#Vë"¿!9^#Vë"¿!9^#Vë"¿Í°,!9^#Vë+"Ô§!9^#VÕÍèrÑ!"1O!ÉSingle sheet feed, continuous form, or quit? (S, C, or Q) SCQPlease adjust paper to print at the top of the page.Please wait -- gathering information for print.Í&G!9N#F!9^#VÕÝá!9^#VÕýá!}2¿!"1O*õUüÿå`ië*Ò§ÑëÍùKÊþu!åÍ(vÑÂöu!É!åÍèrÑÝåýå!å*Ò§+åÍ`'ë!9ù`ië*Ò§"Ò§!"1O!ÉÿÿÍ&G!9N#F:¿·ÊUv:¿·ÂUv!ÂInÉ*¾U|µÊ€n*`ªë*^ªÍ¾KÂ7m*`ª#"`ª!Tå!åÍònÑÑÊƒn*¾UåÍÛqÑÊƒnÃ7m!åÍ(vÑÉThere are no descendants for this individual.How many generations? (Maximum is 10)DESCENDANTS CHARTÍ&G!9^#VÕ*ÆÍ?K,ÀÑs#r!9^Õ*ÆÍ?K.ÀÑs*Æ#"Æ*ÆôÍ¾KÊEo!IoåÍÜ$Ñ!É!ÉOut of room on descendants chart work space.Í&G*Æ|µÂˆo!É*Æ+"Æ!ÉøÿÍ&G!ÎTë!9s#rÍ† !9å!9^#V!åÍ¬"ÑÑ!9~#¶ÂÝo!9å!9^#V!åÍ¬"ÑÑ*`ª+))}2µ§!9~#¶Êp!˜på!9^#VÕÍŒ.ÑÑÃp*`ªå!på!9^#VÕÍŒ.ÑÑÑ!ë!9å~#foëás#r!å!9^#VÕ!9^#VÕÍõcÎTå!*9^#VÕÍ ÑÑÑ!}2öT!9^#Vë~·Ê‚z!9^#Vë~·Ê¹x!9^#Vë^!7O#^!Í–KÂ¹x!9^#Vë^!/ÍÍKÊ¹x!9å~#fo#ëás#rÃjx!9^#Vë~·Êz!9^#VBK!9^#Vë^!7O#^!Í–KÂÿx!9^#Vë^!/Í¾KÊ]y!9^#Vë^ÕÍbEÑå!
9^#VëÑs!9^#Vë^!/Í¾KÊKy!å!Så!9^#Vë+++åÍéÑÑÑÂ]y!9å~#fo#ëás#rÃÏx!9^#Vë~·Êy!å!
9å~#fo#ëás#rë+Ñs`i^!7O#^!Í–KÊ¾yÝåáëÍøKÊ»yÅÍoFÑåÝåá#åÝá+)¿Ñs#rÃzÅÍewÑë!9s#r!9~#¶Êqz!9^#V!ÍÞKÊz!9~#¶Âz!9^#V!Í–Kë!9s#rÃnz!9^#V!ÍøKÊXz! 9~#¶ÂUz!9^#V!ùÿë! 9s#rÝåá|µÊJz!ë!9s   Í&G!lrå!åÍ5ŸÑÑ"bª|µÊhr!É!É          !^ªÓs#y°Âr`i"¿¯ÆêšrÝ"
¿ý"¿á"¿Ñ!9"¿Í‡kë*¿ååëÉ*¿DM¯ÆêÄrÝ*
¿ý*¿!9^#V*¿ùÃªrÍ&G!
åÍ($Ñ*Ò§#"Ò§ÉÍ&G!"1O!9^#V!Í¾KÊ
sÍ<-Ãs!å!9^#Vë+åÍz#ÑÑ!9^#Vë"Ò§ÍÒr*¿åÍIEÑå*÷UÑëÍLëÍÒJå! åÍ*ÑÑ*¿åÍ<+ÑÍÒr*¿|µÊs*¿åÍIEÑå*÷UÑëÍLëÍÒJå! åÍ*ÑÑ*¿åÍ<+ÑÍÒrÍÒrÍGw*÷Uøÿå*3OåÍÄ+ÑÑ!:tåÍ<+Ñ*Ô§#"Ô§!çë*Ô§ÍøKÊÆs!çÃÉs*Ô§å!@tå!Ö§åÍŒ.ÑÑÑ!Ö§åÍ<+ÑÍÒr*¿|µÂós*¿|µÊ)t*÷Uå!=åÍ*ÑÑÍÒr*¿|µÊt*¿åÍ<+ÑÍÒr*¿|µÊ)t*¿åÍ<+ÑÍÒr*÷Uå!-åÍ*ÑÑÍÒrÉPage %doommate  Do you wish to be in a non-smoking room? YES     NO    Do you want an ADAMCON 11 T-shirt? $10.00 ea. YES    NO   (circle size) M L XL XXL Do you want an ADAMCON 11 hat? $8.00   YES   NO Delegate                 _________    Spouse                _________    Children              _________    Del. child            _________ Day Pass     Friday               _________     Saturday             _________     Sunday               _________Single room     +$30.00 p"1O!÷våÍÜ$Ñ!É!"1O!å*Ò§+åÍz#ÑÑ*õUüÿå*Ò§ÑëÍøKÊ§vx±Êv!=ë!9sÃ–v!-ë!9s*÷Uå!
9^ÕÍ*ÑÑ*Ò§ë*õUÍÞKÊºvÍÒrÃ§v!"1OÍþdÂÊv!Éx±Âóv:¿o&SÍ¾KÊóv!"1O!wåÍÑÂóv!É!ÉThere is no information to print.Please insert next sheet.  Continue printing?Í&G!8TåÍ<+ÑÉInvalid date.Í&G!9N#F!åÝá!åýáÃˆwýåá#åýáýåá ëÍøKÊíwýåá)úg~#¶Êêwýåá)úg^#VÕÅÍ™DÑÑÂ¼wýåáÉÅÍIEÑåýåá)úg^#VÕÅÍéÑÑÑÂêwÝåá|µÊäw!ÉýåáåÝáÃwÝåáÉæÿÍ&G!åÝá!åýá!ë! 9s#r!ë!9s#r!¿ë!9s#r!ë!9s#r!ÎTë!9s#r!")¿!(å!ÑÑÑ!9~#¶Ê{p!9^#VÕ!£på!9^#VÕÍIEÑë!9~#foåÍŒ.ÑÑÑ!´§å!å!åÍ¢uÑÑÑÂ”p!É!És-  %d-   (%d)…ÿÍ&G!DM!‡9^#V!N^#V!9s#r!‡9^#V!^!MÍ¾KÊìp!Fë!9sÃq!‡9^#V!^!FÍ¾KÊq!Më!9sÃq!ë!9s!9~#¶Êq!9^#VÕ!¸UåÍRÑÑÂ:q!É!9^#VÕ`i#DM+)ë!9Ñs#r!‡9^#V!^!MÍ¾KÊxq*ÑUë!9s#rÃšq!‡9^#V!^!FÍ¾KÊšq*ÓUë!9s#rÃq`i+DM`iëÍÝKÊ×q!9^Õ`i)ë!9^#VÕÍònÑÑÂÏq!É`i+DMÃ¢q!ÉÍ&G!9N#Fx±ÊrÅ!ZUåÍ·ÑÑÂþq!É!IåÅÍònÑÑÂr!É*¦UDMÃèq!ÉÍ&G!>rå!åÍ°ÑÑ"bª|µÊ:r!É!É       #rÃUz!ë!9s#rÃnzýåá|µÂnz!9^#V!ùÿåýáÃzÅ!ü§åÍÑDÑÑ!Ú§ÉÃ]x!å!å!¿åÍ¿-ÑÑÑýåá|µÊ›{ýåáå!9^#Vë##Ñs!*9^#VëÃl{ýåáëÍùKÊÊz!ÿÿåýáÃ‡{ýåáëÍùKÊìzýåáÍÍKÊìz!ÿÿåýáÃ‡{ýåáëÍùKÊ&{ýåáÍÍKÊ&{ýåáÍÍKÊ&{ýåáÍÍKÊ&{!ÿÿåýáÃ‡{ýåáëÍùKÊT{ýåáÍÍKÊT{ýåáÍÍKÊT{!ÿÿåýáÃ‡{ýåáÍÍKÊi{!ÿÿåýáÃ‡{Í%LW{·zÍzïz	){W{ýåáëÍøKÊ˜{* ¨ÉÃI}! 9~#¶Ê~|!9^#VÕ!9^#V!Ñs! 9^#VÕ!9^#Vë##ÑsÝåáÃh|Ã{|*¿å!9^#VëÑs#rÃ{|!9~#¶Ê|*¿ ëÍøKÊ%|*¿å!9^#Vë###Ñs*!¿å!9^#VëÑs#rÃ;|*¿å!9^#VëÑs#r*!¿")¿Ã{|*¿å!ÕÍÄ+ÑÑÍï*ë!9s#r!9^#V! ÍÝKÊg…!9^#V!ÍøKÊg…:>¨o&å`iÝåÑÑëÍLåýåáÑëÍZLÊa…:?¨·ÊÂ„!9^#V!0ÍøKÂ¼„!9^#V!9ÍùKÊÂ„ÍM)Ã^…:.O·Ê@…:>¨o&å`iÝåÑÑëÍL+åýåáÑëÍZLÊ@…`iÝåÑýåÑëÍL+åýåá#åýåÍ ÑÑÑ!9^#VÕýåá#åýá+Ñsýåá+å:>¨o&å`iÝåÑÑëÍLÑëÍLåýåá+åÍ7*ÑÑÃ^…!9^#VÕýåá#åýá+Ñs!9^#VÕÍ\)ÑÃd…ÍM)Ã¼Š!9^#VëÃyŠýåáPYëÍ[LÊ†:>¨o&å`iÝåÑÑëÍLåýåáÑëÍZLÊ·…`iÝåÑýåÑëÍLåýåá+åýåÍ ÑÑÑ! å:>¨o&å`iÝåÑÑëÍL+Ñsýåá+åýá!9^ýåáPYëÍLå!9^ÕÍÄ+ÑÑ:>¨o&å`iÝåÑýåÑëÍLÑëÍLåýåÍ7*ÑÑÃ¼Š:.O·Ê'†!Ã*†!}2.OÃ¼Š:>¨o&å`iÝåÑÑëÍLåýå!9^#Vë##Ñs* ¨É!9^#Vë^#V!4Í[LÂ~!9^#Vë~#¶Ê‘~!9^#Vë^#V!dÍZLÊ‘~* ¨É*)¿|µÊ­~!*9^#V!ÍÍKÊ­~* ¨É!9^#Vë##^!"¨^Õ!9^#Vë###^áÍùKÊÛ~* ¨É*)¿|µÊ!9^#Vë^#VÕ*)¿ÑëÍMLÂ!9^#Vë^#V!ÿå*)¿ÑëÍ[LÊ* ¨É!(9^#VÕ!¿åÍ"ÑÑ!*9^#V!Í¾KÊO!9^#VÕ!*9^#Vë###Ñs!ÉDNS%04d%04dþÿÍ&G!€DM*3Oë!	9s*5Oë!9s!åÝáÃŽÝåá#åÝáÝåáëÍøKÊ½ÝåáÍ?Kjh^#VÕ!9^#VáÍ¾KÂ½Ã‡ÝåáëÍøKÊ˜€!9^Õ!9^ÕÍÄ+ÑÑ!9^#V!ÍøKÊú!9^#VëÃý!åÝåáÍ?KlhåÍÐ‚ÑÑDM`i£Í¾KÂ^€!9^#VÕ!9^#VÕÝåáÍ?KlhåÍñwÑÑÑåýá[LÊÉˆ`iÝåÑýåÑëÍLå!
9^#VÕýåÍ ÑÑÑ! åýåáë!
9~#foÍLåýåáë!9~#foÍLå`iÝåÑÑëÍLåÍ¿-ÑÑÑ!9^#VÕýá:>¨o&å`iÝåÑýåÑëÍLÑëÍLåýåÍ7*ÑÑÃ¼Š`iåýáÃ¼ŠÍƒåýáÃ¼Š`iÝåÑåýåáÑëÍZLÊ*‰! å`iÝåÑýåÑëÍLåýåÍ¿-ÑÑÑ:>¨o&å`iÝåÑýåÑëÍLÑëÍLåýåÍ7*ÑÑÃ¼Š`iåýáÝåÅ!ÎTåÍ ÑÑÑ!9^Õ!9^ÕÍÄ+ÑÑ:>¨o&åÝåáÑëÍLåÅÍ7*ÑÑÃ¼Š`iåýáÝåÅ`ië*@¨åÍ ÑÑÑ!9^Õ!9^ÕÍÄ+ÑÑ:>¨o&åÝåáÑëÍLåÅÍ7*ÑÑÃ¼Š*<¨|µÊ	Š*<¨ë!
9s#r!
9^#Vë~·Êü‰!
9^#Vë^!9~#foÍÍKÊü‰!
9å~#fo#ëás#rÃÄ‰!
9^#Vë~·Ê¼Š:>¨·Ê[Š`iÝåÑåýáýnÿ& Í¾KÊ=ŠýåáPYëÍ[LÊ=Šýåá+åýáÃŠ`iÝåÑåýå!1¿åÍ¿-ÑÑÑ!9^#VëÍªGÍÎG!¸‚å!1¿åÍŒ.ë!9ù!9^#Vë#å!ÑëÍZLÊŒ‚!Ã•‚!9^#Vë#å!1¿åÍ÷‚ÑÑDM!9^#VÕ!1¿åÍŽEÑáÍ¼G`iÉ%-ldÍ&G!9N#F`i"@¨ÉÍ&G!9N#F!9^#VÕÝá!}2>¨ÝåÅÍPƒÑÑÉÍ&G!9N#F!9^#VÕÝá!}2?¨ÝåÅÍPƒÑÑÉÍ&G*9¿DM`ië*7¿Í[LÊMƒ!ÿÿ	^! Í¾KÊMƒ`i+DMÃ)ƒ`iÉøÿÍ&G!9N#F!9^#VÕÝá`iåýá:>¨o&å`iÝåÑÑëÍL"9¿`iÝåÑåýåáÑëÍZLÊ×ƒýåá~·Â¸ƒ! å`iÝåÑýåÑëÍLåýåÍ¿-ÑÑÑÃ×ƒýn& ëÍøKÊÍƒ! ýuýåá#åýáÃƒ`iåýá"7¿*3Oë!9s*5Oë!9s!PÝåÑëÍøKÊ„!PÃ„Ýåáå!ÎTåÅÍ ÑÑÑ!}2.O!|µÊ¿Š!ë!9s#r!9^ýåáPYëÍLå!9^9^#Vë###Ñs*!¿å!9^#VëÑs#r*#¿")¿Ã{|Í%LÔ{×{ê{>|ÃI}!9^#VÕ!9^#V!ÑsÝåáÃ2}ÃI}*¿å!9^#VëÑs#rÃI}*¿ëÍùKÊÕ|*¿å!9^#VëÑs#r*!¿")¿Ãõ|*¿å!9^#Vë##Ñs*!¿å!9^#VëÑs#rÃI}*%¿")¿*¿å!9^#Vë##Ñs*!¿å!9^#Vë###Ñs*#¿å!9^#VëÑs#rÃI}Í%L™|œ|¯|þ|ø|!9^#Vë~#¶Â]}!")¿*)¿|µÊ%~!9^#Vë^#VÕ!Wå!9åÍŒ.ÑÑÑ*)¿å!\å!9åÍŒ.ÑÑÑ!ë!9s#rÃ°}!9å~#fo#ëás#r!9^#V!ÍøKÊý}!9^#V!9^!0Í¾KÊ÷}!9^#V!
9^Õ!9^#V!9ÑsÃú}Ãý}Ã¡}!9åÍoFÑ")¿!9^#Vë^#VÕ*)¿ÑëÍLë!9s#rýåá|µÂW~!9^#Vë##^!ÍùKÊW~!cåáÑëÍZLÊÄ†:>¨o&å`iÝåÑÑëÍL+åýåáÑëÍZLÊŠ†`iÝåÑýåÑëÍL+åýåýåá#åÍ ÑÑÑ! å:>¨o&å`iÝåÑÑëÍL+Ñs:>¨o&å`iÝåÑýåÑëÍLÑëÍLåýåÍ7*ÑÑÃ¼ŠýåáPYëÍ[LÊÚ†ýåá+åýáÃ¼ŠýåáPYëÍLå!ÑëÍøKÊø†!Ã‡ýåáPYëÍLýåÑÍLåýáÃ¼Šýnÿ& Í¾KÊ1‡ýåáPYëÍ[LÊ1‡ýåá+åýáÃ‡ýnÿ& ëÍùKÊV‡ýåáPYëÍ[LÊV‡ýåá+åýáÃ1‡Ã¼Šýåá#ë*9¿ÍZLÊn‡ýåá#Ãq‡*9¿åýáÃ¼Šýåáë*9¿ÍZLÊ’‡ýåáÃ•‡*9¿åýáÃ¼Šýåáë!9s#rýn& ëÍùKÊÝ‡:>¨o&å`iÝåÑÑëÍLåýåáÑëÍZLÊÝ‡ýåá#åýáÃ¦‡ýn& Í¾KÊˆ:>¨o&å`iÝåÑÑëÍLåýåáÑëÍZLÊˆýåá#åýáÃÝ‡ÍƒåýåáÑëÍZLÊ(ˆýåáÃ+ˆÍƒåýá!9~#¶ÊÉˆýåáë!9~#foÍýåá|µÊV€ýåÍÜ$ÑÍÛ,ýåá|µÂÊ!9^Õ!9^ÕÍÄ+ÑÑ!å!9^#VÕ!9^#VÕ!9^#VÕÍŠ\ë!9ù`iÉÍ&G!å!9^#VÕ!9^#VÕÍaÑÑÑÉÍ&G!å!9^#VÕ!9^#VÕÍaÑÑÑÉÍ&G!å!9^#VÕ!9^#VÕÍaÑÑÑÉÍ&G!å!9^#VÕ!9^#VÕÍaÑÑÑÉÍ&G!	å!9^#VÕ!9^#VÕÍaÑÑÑÉÍ&G!å!å!+¿åÍ¿-ÑÑÑ!9^#Vë^#VÕ!øå!+¿åÍŒ.ÑÑÑ!9^#Vë#å!ÑëÍZLÊ!Ã–!9^#Vë#å!+¿åÍ÷‚ÑÑDM!+¿åÍIEÑÍ¾KÊÝ!ûå!+¿åÍ™DÑÑëÍùKÊÝ!ÿÿå!9^#VëÑs#rÃõ!+¿åÍŽEÑÍÎJå!9^#VëÑs#r`iÉ%u65535Í&G!9^#VÕ!9^#VëÍªGÍ–GŸ†ÍaJÊ5‚!9^#VëÍªGÃ<‚Í£GŸ†áÍ¼G!å!åáÑÍ¾KÊUŠýåá+åýá!ýu!}2>¨!}2?¨!}2.O!9^#VëÉÍ%L‚-‰ƒÌˆ„Ôˆ†Ž1†r…Ç†‘Y‡’Ý†“w‡–›‡—Ýˆ˜¦‡™‡¨m‰±‰Ã„ÉüÿÍ&G!9N#F!9^#VÕÝá!9^#VÕýá!ë!
9s#r*<¨ë!9s#r!D¨"<¨!då!så!;¿åÍ¿-ÑÑÑýåÝåÅÍl‹ÑÑÑ!‡åÍ³Ñ*®¿"²¿*°¿"´¿*®¿ëÍøKÊX‹ýå!9^#VÕÝåÅÍë!9ù!
9s#r!9^#Vë"<¨!
9^#VëÉÍ&G!9N#F!9^#VÕÝá!9^#VÕýáýn&dÍÍKÊ÷Œýn&Í–KÊÊŒýn&Í–KÂÇŒýnýfëÍWKÿÍ–K))«N~#¶ÊÇŒýn&PY"®¿*®¿ëÍøKÊÇŒ!"°¿Ãþ‹*°¿#"°¿*°¿ëÍøKÊœŒ*®¿Í?Kë*°¿;¿^!dÍ¾KÂœŒ*®¿Í?Kë*°¿;¿^Õýn&ÝÑÝåá#ëÍøKÊ[”Ýåá#Ã^”!å!9^#V!Í?K4iåÍPƒÑÑåýá!9^#V!Í?K4i~·ÊU•ýåá£Í¾KÂU•!9^#V!Í?K4iå!ÎTåÍõ-ÑÑÊM•!å!9^#V!Í?K4iåÍ}•ÑÑë`is#r`i~#¶ÂM•!9^#VÕ!9^#VÕÍÄ+ÑÑÝå! åÍ*ÑÑ!9^#V!Í?K4iå!Y•å!ÎTåÍŒ.ÑÑÑ!ÎTåÍÜ$ÑÍÛ,! å!å!9^#V!Í?K4iåÍ¿-ÑÑÑ`i~#¶Ê”ýåáÉCould not find the name: %sÍ&GÉÍ&G!9N#F!9^#VÕÝá!}2
ÆÝåá|µÂ§•!ÉÝåÍô ÑÂ»•!}2
Æ!É!àUåÅÍõ-ÑÑåýáýåá|µÂÔ•ÝåáÉýåáëÍøKÊì•*ÞUåÅÍ}•ÑÑÉ*ñUåÅÍ}•ÑÑÉÔÿÍ&G!89N#F!@9^#VÕÝá!ë!9s#r`i~·Â$–!É!åÅ!'9åÍ´¦ÑÑÑ!|µÊ²˜!å!%9å*®¿+"®¿ëÍøKÊ\Ž!"®¿*®¿Í?Kë*°¿;¿^!dÍ¾KÂ.ŽÃ¤*°¿#"°¿ëÍùKÊ«Ž!"°¿*®¿#"®¿ëÍùKÊ«Ž!"®¿*®¿Í?Kë*°¿;¿^!dÍ¾KÂ}ŽÃ¤*®¿Í?Kë*°¿;¿^!9s#r*®¿+"®¿ëÍøKÊÿŽ!"®¿*®¿Í?K;¿^!dÍ¾KÂèŽ!9^#VÕÍøŒÑÃ¤*®¿Í?Kë*°¿;¿^!9s#r*®¿#"®¿ëÍùKÊZ!"®¿*®¿Í?K;¿^!dÍ¾KÂC!9^#VÕÍøŒÑÃ¤Ã¤Í%L€}Ž.Ž‡Ýˆ"Ž‰ÌŽŠ'‚ÉÍ&G!9N#F!9^#VÕÝá*B¨|µÂÈ!É*B¨åýáýnýfÝåÑÍÍKÊ÷ýåá~#¶Âê!ÉýåáåýáÃÎÅýnýfÍ%GÑÉøÿÍ&G!9N#F!9^#VÕÝá!9^#VÕýá!ë!9s#r!9^#V!9s#r!9^#Vëå!àUåÍ¿-ÑÑÑ!9å!àUåÍÑDÑÑ!9åÅÍÑDÑÑ!9^#VÕÍÍ Ñ!9^#V!9s#r!<9^Õ!<9^ÕÍÄ+ÑÑ!>9^Õ!9åÍ7*ÑÑÃ²˜Ã4–!9~#¶Êä˜!àUåÅÍ™DÑÑÊä˜!å!àUåÅÍ ÑÑÑ!9^#VÕÍÍ Ñ!9~#¶Êö˜!åÍY-Ñ!9^#VëÉPlease verify name spelling: All name records are in use.Í&G!9N#F!9^#VÕÝáÝåÅ*M¨Í%GÑÑÉÍ&G!9N#F`i~·Ê’™!9^Õ`i#DM+^áÍ¾KÊ™!ÉÃl™!ÉÍ&G!9N#F!9^#VÕÝá!|µÊ(š!|µÊú™Í+åýáýåá ëÍøKÂÝ™ýåá~ëÍùKÊè™!}2O¨ýåáÉýåÝåÍ*EÑÑÂú™ÍM)Ãµ™ýå!)šåÍí)ÑÑýåáë`is:O¨·Ê%š:uN·Ê%š!}2O¨!€ÉÃ­™É%cÍ&G!9N#F!}2O¨!Lšå³Ñ!9^#V!9s#rÃk’!9å~#foëás#rÃ*“!9^#V!^#VÕ!9^#VÕ!9^#Vë#^Ýåáå! 9^#Vë^`iåÍë!9ù!
9s#r!
9^#V!£Í¾KÊÉ’!£É!
9~#¶Ê“!
9^#V!9s#r!9^#V!9s#r!
9^#V!¤Í¾KÊ“!9^#VÕýåÍ¥ÑÑÊ“!¤ÉÃ*“!9å~#foëás#r!9~#¶Êt“!9^#Vë^!dÍ¾KÊt“!9^#VÕýåÍ¥ÑÑÂt“*²¿"®¿*´¿"°¿!9^#V!9s#rÃ=!9^#VëÉúÿÍ&G!9N#F!9^#VÕÝá!€åýá*3Oë!
9s#r*5Oë!9s#r!ë!9s#rÃÐ“!9å~#fo#ëás#r!9^#V!ÍøKÊ”!9^#V!Í?K2i^#VÕ`iÑÍ¾KÂ”ÃÁ“!9^#V!ÍøKÊU•!9^#VÕ!9^#VÕÍÄ+ÑÑ!å!ÎTå!9^#V!Í?K4iåÍ ÑÑåÑÑëÍøKÊ™Œ*°¿ëÍøKÊ–Œ!ë*°¿ÍL+å*®¿Í?Kë*°¿;¿#å*®¿Í?Kë*°¿;¿åÍ ÑÑÑÃœŒÃ÷‹*°¿ëÍøKÊÇŒýn&ÝåÑå*®¿Í?Kë*°¿;¿ÑsÃêŒýnýfåýn&ÝåÑåýn&PYåÍl‹ÑÑÑýåáåýáÃ‹ÉÍ&G!9N#F!Påýá!"°¿Ã*°¿#"°¿*°¿ëÍøKÊ«*®¿Í?Kë*°¿;¿^!dÍ¾KÂ«*®¿Í?Kë*°¿;¿^`iÍLåÝáÝåáëÍøKÊyÝåáÍLÃ|ÝåáýåÑëÍÞKÊ¥ÝåáëÍøKÊœÝåáÍLÃŸÝåáåýáÃ¨Ã«Ã*°¿+"°¿ÉþÿÍ&G!9N#F!;¿åÝá!åýá*®¿"²¿*°¿"´¿`iÃ…Ýåá#åÝá+^!dÍ¾KÊŽýåá#åýásëÍZLÊŽÃÝýåáëÍÒJ"®¿ýåáëÍçJ"°¿Ã¤!"®¿!"°¿*°¿+"°¿ëÍøKÊ\Ž!"°¿Í}•ÑÑë!9s#r:
Æ·Ê]–!É!9~#¶Êœ–!<9^Õ!<9^ÕÍÄ+ÑÑ!>9^Õ!%9åÍ7*ÑÑ!#9åÅÍÑDÑÑÃ²˜!<9^Õ!<9^ÕÍÄ+ÑÑ!>9^Õ!%9åÍ7*ÑÑ!å!åÍÄ+ÑÑ!På!ÿ˜åÍ7*ÑÑ!9~#¶Âê–ÍM)!ë!9s#r!å!åÍÄ+ÑÑ!å!å!9åÍ¿-ÑÑÑ!>9^ë#ëÍZLÊ4—!>9^ë#Ã7—!å!9åÍPƒÑÑÝuÝt!9~·Â”—!ë!9s#r!å!åÅÍ¿-ÑÑÑ!<9^Õ!<9^ÕÍÄ+ÑÑ!>9^Õ!™åÍ7*ÑÑÃ²˜!9å!%9åÍõ-ÑÑÊ¸—!9å!%9åÍÑDÑÑÃ¯˜!9å*µLåÍHÑáÍ¼G!9ÍªGÍ–GÿÿÍJÊé—!™åÍÜ$Ñ!É!9ÍªGÍÎJë!9s#r!àUå!9åÍõ-ÑÑëÍùKÊ!˜!9^#Vë"ñUÃ,˜!9^#Vë"ÞU*ÜUåÍÍ Ñ!"ñU!"ÞU!å!^!dÍÍKÊw“!9^#Vë##^!Í–KÊ„!9^#Vë###^#Výåáë!9s#rÃ™!9^#Vë###^#V!9s#r!9^#Vë##^!Í–KÊn’!9^#Vë##^!Í–KÂY’!9^#V!^#V!ÍWKÿÍ–K))«N~#¶ÊY’!9^#Vë^`ië*®¿Í¾KÊY’*®¿Í?Kë*°¿;¿^Õ!9^#Vë#^ÝåáÑÍ¾KÊY’*®¿Í?Kë*°¿;¿^Õ*®¿åÍÄ+ÑÑ!9^#Vë##^!@Í–KÊk‘Í-ÃŠ‘!9^#Vë##^! Í–KÊ‡‘ÍÛ,ÃŠ‘Í°,!9^#V!^#V!ÿÍ–Kå!9^#VÕ!9^#V!^#V!ÍWKÿÍ–K))«N^#VëÍ%GÑÑÿÍ–Kë!
9s#r!
9^#V!9s#r!
9^#V!£Í¾KÊ’!£É!
9^#V!¤Í¾KÊ<’!9^#VÕýåÍ¥ÑÑÊ+’!9^#VëÉ!9^#V!9s#rÃV’!
9^#VÕÍÅÍ–™ÑÑÉ MFÍ&G!9N#F!}2O¨!ošåÅÍ–™ÑÑÉ YNÍ&GÍ°,!9^#VÕÍY-Ñ!å!9^#VÕÍÄ+ÑÑ!ÎMåÍ<+Ñ!æšåÍ<+ÑÍ-!9^#VÕÍ<+ÑÍ°,!èšåÍ<+Ñ!ÕMåÍ<+Ñ!îšåÍ<+ÑÍ-!9^#VÕÍ<+ÑÍ°,É       „ÿÍ&G!å!å!ÆåÍ¿-ÑÑÑ!å!å!ÆåÍ¿-ÑÑÑ!}2#Æ!ˆ9^#V!N~#¶Ê\œ!ˆ9^#V!N^#VÕ!
9åÍRÑÑÊ\œ!ˆ9^#V!~·Ê\œ!ˆ9^#V!^!MÍ¾KÊê›!9^#V!ÍZLÊª›!!9^#V!Í[LÊª›!!9^#VÕ!
9åÍRÑÑÃu›!9~#¶Êç›!9^#VÕ!(9åÍ·ÑÑÊç›!}2#Æ!å!Æå!*9åÍ ÑÑÑ!ÉÃ\œ!
9^#V!ÍZLÊœ!#9^#V!Í[LÊœ!#9^#VÕ!
9åÍRÑÑÃê›!
9~#¶Ê\œ!
9^#VÕ!(9åÍ·ÑÑÊ\œ!}2#Æ9^#VÕýáýåá+åýá#|µÊÁ¤! ÀåÅÍ¬"ÑÑ!&ÀåÝåÍ¬"ÑÑ*&À|µÊ‡¤*&Àë* ÀÍÍKÊ‡¤!ÉÝåá###~#¶Ê¬¤!	^#VÕÝnÝfÑÍÍKÊ¬¤!É`iDMÝåáåÝáÃL¤!ÉÍ&G!å!¸¿å!\UåÍö¢ÑÑÑÂä¤!É:Â¿·Ê¥:Â¿o& ÍÍKÊ¥:fUo&å:Â¿o&ÑÍÍKÊ¥!É!å!Ã¿å!gUåÍY£ÑÑÑÂ+¥!É!å!ó¿å!—UåÍ+¤ÑÑÑÂD¥!É:À·Êd¥!
å!¬Uå!ÀåÍéÑÑÑÊd¥!É!ÉÍ&G!š¥å!„¥å:]ªo&åÍsšÑÑÑÉSAVE CHANGES AND EXITQUIT WITHOUT SAVING CHANGESüÿÍ&G!9N#F!9^#VÕÝá!9åÍ£GáÍ¼GÝå!
9åÍ‚ÑÑ!9ÍªG!RUÍGÍaJÊ¦`iåÍ£GáÍ¼GÃ4¦`iå!RUÍªGÍ–GÿÿÿÿÍ\HÍÎG!9ÍªGÍÜGÍqHáÍ¼GÉüÿÍ&G!9N#F!åÍÄ+ÑÑ!9ÍªG!RUÍGÍ\HÍ–GÿÿÿÿÍ\HÍÎG!RUÍªGÍÎG!ðžåÍí)ë!
9ù!ŸåÍÜ$Ñ!É!9ÍªGÍÎJ"ÚU!9^#VÕ*ÚUå!9^ÕÍÇ¡ÑÑÑÊÁž!ŸåÍÑÂÇž!"ÚU*ÚUÉIndividual file is empty.Which RIN?RIN's must be between %ld and %ld.Is this the individual you want?üÿÍ&GÍ`bÍk\!	å!$Æå!*¡åÍ ÑÑÑ!å!^å!ZUåÍ¿-ÑÑÑ!"ÚU!9~·Ê’Ÿ!9^ë}2fU!ë:@©o&Í¦K}2@©Ã£Ÿ!÷ÿë:@©o&Í–K}2@©Í<-!ZUå!’©å!å!åÍ`'ë!9ù!@¡å!3¡å!åÍsšÑÑÑ!W¡åÍÆ$Ñ!€“"M¨!ZUå!’©å!å!åÍÀŠë!9ù!
9s#rÍX\!
9^#V!¤ÍÍKÊ !É!^å!¶¿å!ZUåÍ ÑÑÑ!åÍbÑÂ7 !É*±LåÍ§ÑÍ–Gÿÿÿ£€‰Š‡ˆv•
Æ"Æd
Êœ#
Ðœ#/##/#
de¨	
Öœ'
ßœ	
èœ'
ñœde¨
úœ+
ÿœ
+
	d
'
3#d#d#d#d
!#	
&#!
/(#

7#!
?(#8
G>#
d
NA
$Æ
^PG
`K*ÚUZU7©
eP
ggU¨
msUÇ¨
yUÇ¨
‹UÇ¨
†P
ˆ—Uñ¨—U©
œUñ¨œU©
š¡Uñ¨¡U)©:
¦!å!åÍ`'ë!9ù!ZUåÍðšÑÊ¡¢:#Æ·Ê}¢!å!Æå!Ü¢åÍ ÑÑÑÃ¢!å!Æå!é¢åÍ ÑÑÑ!P¨å!å!åÍ`'ÑÑÑ!ÉIndividual has incorrect sex for adding to the family.Spouse name:Father name:Í&G!9N#F!9^#VÕÝá!9^#VÕýáýåá+åýá#|µÊU£Ýåá~#¶ÊD£`i^#VÕÝnÝfÑÍÍKÊD£!ÉÝåá##åÝá`i##DMÃ£!ÉÍ&G!9N#F!9^#VÕÝá!9^#VÕýáýåá+åýá#|µÊ'¤!ÀåÅÍ¬"ÑÑ!ÀåÝåÍ¬"ÑÑÝåá###~·ÊÙ£*À|µÊÙ£*Àë*ÀÍZLÂÒ£Ýn&ë*Àå*ÀÑëÍ[LÊÖ£!ÉÃò£*À|µÊò£*Àë*ÀÍÍKÊò£!É!åÝåáå`iåÍö¢ÑÑÑÂ¤!É`iDMÝåáåÝáÃz£!ÉÍ&G!9N#F!9^#VÕÝá!!å!Æå!*9åÍ ÑÑÑ!É!ˆ9^#V!P~#¶ÊÆœ!ˆ9^#V!P^#VÕ!
9åÍRÑÑÊÆœ!
9~#¶ÊÆœ!
9^#VÕ!(9åÍ·ÑÑÊÆœ!}2#Æ!å!Æå!*9åÍ ÑÑÑ!É!ÉDate:PLACELevel 1:Level 2:Level 3:Level 4:L 1:L 2:L 3:L 4:Date:Temple Code:Sex:SURNAME:Given1:Given2:Given3:Title:INDIVIDUAL DATA-RIN:-BIRTHCHRISTENINGDEATHBURIAL-BAPTISMENDOWMENTSEAL to PARID NO.:-øÿÍ&G!åÍbÑÂÅ!É!9å*±LåÍ§ÑÍ–GÿÿÿÿÍ\HáÍ¼G!9ÍªGÍHÂù!ËžåÍÜ$Ñ!ÉÍ¼%!åžåÍÆ$Ñ!å!åÍÄ+ÑÑ!å!
9åÍ¶¥ÑÑ!9ÍªGÍHÊ@ž!9ÍªG!9ÍGÍJÊŒž!å!9^#VÕÝá!9åÍ£GáÍ¼GÝå!
9åÍ‚ÑÑ!9ÍªG!VUÍGÍaJÊŒ¦`iåÍ£GáÍ¼GÃ³¦`iå!VUÍªGÍ–GÿÿÿÿÍ\HÍÎG!9ÍªGÍÜGÍqHáÍ¼GÉÿÿÍ&G!9N#F!9^#VÕÝá!ë!9s!9~#¶ÊB§!9å~#fo+ëás#r!9å~#fo+ëás#rë#|µÊ;§Ýåá~·Â§!ë!9s!9~·Ê#§!Ã(§Ýn&å`i#DM+ÑsÝåá#åÝáÃí¦!ë`isÉ7*Pƒ¡$Ðc<™7*Ð‚¤]›€Ì]¼€Ì]Ý€Ì]þ€7*-š•d˜&ÎTPdOkXkhk999Unrecognized or ambiguous entry: Vwcccccccccccccc¤ÿÍ\HÍÎJë!9s#r!"ÚUÃd *ÚU#"ÚU*ÚUë!9~#foÍMLÊ¡!}2¡N*ÚUå!ZUåÍ·ÑÑÊœ :fUo&DÍ¾KÊ¦ !}2¡NÃ] !}2¡NÍÅ¤Ê] !9~·ÊÑ :fUo&å!9^áÍÍKÂ] !9^#VÕ*ÚUå!9^ÕÍÇ¡ÑÑÑÊ¡!‚¡åÍÑÂ¡!£¡åÍÑÂ¡!"ÚU!ÉÃ] *ÚUÉÃ] !·¡åÍÜ$Ñ!"ÚU!É(Search)BEGIN SEARCHQUIT WITHOUT SEARCHINGPlease input fields you wish to search on.Is this the individual you want?Continue searching?No match found.Í&G!9^#VÕ!ZUåÍ·ÑÑÂå¡!É!9~·Ê¢:fUo&å!9^áÍÍKÊ¢!¥¢åÍÜ$Ñ!ÉÍ<-!9^#Vë"ÚU!9^#VÕÍIEÑ#å!$Æå!9^#VÕÍ ÑÑÑ!ZUå!’©å