' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" H@Ah@AL$Lij  !"#$%&'()*+,-./0123456789:;<=>?   1 #& ".$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0#?((#)<;?4=?($$2%4%$(2()!)E(!8b $!H ,`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`  `ȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФ|p|ťܥ޼m2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENTXDUMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p 0@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / @A i / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d½ӠƠz# u`)0.5)(N0)((1)0.5)^BNLCNN(N0)(NCC)(NCCN0)((1)0.5((1)0.5)):TL1580C18:1:S$SC$(N):TX:VSTSVS(TS.95)DI12000::LCN:VS0VS(TS.05)N(128);:5:1:S$"Would you like to continue, "NM$"? ":TX)b9:1: questions in a row, "NM$".":TX:I1200:k0ISC1SCN:2:21:" "I" ":255,128:254,128ISC:MU::SCSCN:VSVSN<N((VSTS)1.3CC):TS8VS4NN1>NT1NN2:VSVS5:NCCNCC@NT2NN2:VSVS5:N0N0ANN(NCC)((1TX:HQ530]11:1:S$"Plus 1 point for answering a really hard question, "NM$"."vTX:NN1:I1200:RR2560NNA(RR)!14:1:S$"Plus "(A(RR))" point":A(RR)1S$S$"s"-&S$S$" for correctly answering "(RR)"5805:1IS$"You got the right answer on your ":NT1S$S$" "tS$S$CN$(NT):TX:NT1S$" ":TX:PSS$" attempt.":TX:N4NT:N1N18:1:S$"For that, you get "(N)" point":N1S$S$"s"S$S$", "NM$".":I1200:00,14000,14000,14000,14000,14000,140006QN15420}QN1514000,14000,14000,14000,14000,14000,14000,14000,14000,1400024:1:S$"Press RETURN to continue ":50001600:(128);:2:5:TSTS3HQA(TL)"Your score is:- "SC" ":NMTN&|SI:I1N:255,50:254,129:MU:XSI:I1N:255,50:254,130:MU::I11000:p(128);::TN". ";I1AN:(37)0410TM(36)::TM1ĺ5:S$AN$(I):TX::I11000:&QN14000,14000,14000,14000,14100,14000,14000,14000,14000:NM1NMNC300)@NTNT1:NMTN370KJ23:S$"Wrong Answer!!":5500mTI1120:254,0:255,10:MU:^NTMWRR0:400hI11000::300rN5(4NT):N5N5u23:S$"Correct!!!":5500:I1Nw255,50:254,128:MU::RRRR1:TRTR1QN:NC,TN,MW,AN,HQ:D$"READ Q"QNRIP:S$(IN$,1):I1NC:IP:CH$(I)(IN$,1):I1AN:IP:AN$(I)(IN$,1)::D$"CLOSE"HC::TX:NT0I1NC:3I3:4:" "I" ";"S$CH$(I):TX:,23:1:"Which one (1 - "NC")? ";:8006NI0:22sixth,seventh1NQ25:E%(NQ):I1NQ:E%(I)I:HA(X)((X2)1)q20000:SC0:TL0:RR0:TS0:TR0:VS0I1NQ:J(NQ)1:K(NQ)1TME%(J):E%(J)E%(K):E%(K)TM:TLTL1:TLNQ9000QNE%(TL) 700::D$"OPEN Q"QN:D$"READ Q" worry.","What can I say...?" "Carl Sagan, eat your heart out...","Dynamite!!!","You know almost as much about this as I do!" "You're the best we've had in some time.","Are you sure you're not Carl Sagan?"  first,second,third,fourth,fifth,stronomy course at school.","Whew, you're pretty good!","Hot-shot!" x "Do you want a job?","Fantastic!","Boy, you're really eating this up, aren't you?","Brilliant!" "Wow! You really know your stuff!!","Don't tell the staff - they might start totronomer."p r "You have a pretty good grasp of astronomy.","You're bound to understand our planetarium show." t "That's a good score - keep it up!","Is astronomy one of your hobbies?","Hey, how about that!"C v "You'd probably do very well in an aall.","You're doing okay.","That's just fine." d "Quite a good score.","Fine.","You should like the next one.","You're really doing very well.","Great!" n "You'll certainly find the rest of our exhibits interesting.","You know, you'd make a good asAN$(6),SC$(CC),CN$(7),CH$(7)D FI0CC:SC$(I)::I17:CN$(I): P "Come on... you can do better than that!","See if you can do better on the next one.","Could be worse...","Okay...". Z "It's tougher than it looks, isn't it?","Fair","Not bad at  24577:IN$"X":D$(4)? ONERR PATCH :- hhߚHH`HC14728:DR1002:MU768:OE2097:PS14081:IL2107:SI771:IP774:TX14117:10000(DR::D$"BLOAD ASTRO ROUTINES"2255::KB16384:SB16368:SP16336:S1$(32):S2$(160):CC35 <        !!! ! ! ! ! !!!!!!XH&VO15:1:S$"Finally, I need to know the day of the month you were "&`OTX:S$"born on. Just type in the digits (e.g. '25'),"&jOTX:S$" and then press the RETURN key: ":TX:800&~ONI1:2200:DBNM:DB020390&ODB2920420 'OMB1DBMN, JUL, AUG, SEP, ":TXd%8OS$"OCT, NOV and DEC are the only months I know. Please try again.":TX%BOI13000::J1216:J:1:800::20190%LO12:1:S$MN$(MB)" was certainly a "MC$((4)((1).99))&QOS$S$" month to be born in, wasn't it?":T"the month (e.g. 'APR' for April): ":TX:800Y$ONI2:2100:M$OU$:J1:(M$)320190y$OI011:M$MA$(I)JI:I11$O:J0MBJ:20300$$O12:1:S$M$" doesn't seem to be a month that I can recognise."%.OTX:S$" JAN, FEB, MAR, APR, MAY, JUNTX:S$(YT)", which means you haven't been born yet! ":TXp#NS$"Please try again!":TX:I12500::20140#N7:1:S$"Great! Now, I need to know the MONTH in which you were "#NTX:S$"born. Just type in the first three letters of ".$NTX:S$"First, in what YEAR you were born (type in all "d"NTX:S$"four digits, e.g. '1974')? ":TX:800"NNI3:2200:YB(OU$):YTYB115YOYTYB1:20480"NYBYT20190"N(128);:9:1:S$"Now, that can't be right, can it? We are currently in ">#(A$)64(A$)91TM1A$((A$)32)e!NNM$NM$A$:TM1:(A$)65(A$)122((A$)90(A$)97)TM0k!N!N18:1:S$"Nice to meet you, "NM$"!"!NTX::I12500:!N(128);::S$"Now, I need to know your birthdate, "NM$". ":TX2"N4:1:S$our name? ";:800R kNNI25:2000:(OU$)0OU$S1$OU$S2$NM$"X":N2$NM$:20120 pNJ(OU$)1:I1(OU$):(OU$,I,1)S1$(OU$,I,1)S2$JI:I(OU$) uN:OU$(OU$,J,(OU$)):N2$OU$:NM$(OU$,1):TM1:(OU$)220120$!NI2(OU$):A$(OU$,I,1): to tell you some things about your birthday "l>NTX:S$"that I'll bet you didn't even know yourself!":TXHN11:1:S$"First, I need to know your name. ":TX\NS$"Type in the letters, and then press the RETURN key.":TX fN15:1:"So, what's y:::255=$'8:"AN ERROR OF TYPE "(222)" HAS OCCURRED AT"n.'"LINE "(218)(219)256" IN 'BIRTHDATES'."8'"PLEASE INFORM THE MUSEUM STAFF!"='214,0:B'IL:10050 N:7*NHC:DR:3:14:" BIRTHDATES ".4N7:1:S$"Hi there! I'm going)1:E(7)A(E(4))EE(7)1E(7)4E(7)6E(4)E(4)1:E(7)A(E(4))ZJDE(4)347996:$S$MN$(M)" ":((D))1S$S$" ".S$S$(D)" "(Y):|(S$)40Ė1:" ";:TX:" ";:(20(S$)2):" "S$" ":'OE:700:(222)255Ĭ 'E(3)19:E(3)12E(1)E(3)WE(4)6939E(0)29E(3)2:E(5)17875E(0)13753E(3)5604E(6)(E(5)25920):E(4)E(4)E(6):E(5)E(5)E(6)25920E(6)19440:E(7)A(E(4)):E(2)7E(7)2E(6)16789E(2)12E(7)3E(6)9924E(5)E(6)E(4)E(4M7S$"Veadar":4620'S$JM$(M2)N S$S$" "(D):4300:S$S$DN$" "eS$S$(Y):5500:\YY1:4800:E(8)JD:YY1:4800:E(8)E(8)JD:A(C)C(C7)7:E(0)((Y1)19)E(1)Y1E(0)19:E(2)7E(1)1:E(3)(E(2)19)E(2)E(2))E(8)(E(8)10)10:E(2)5E(1)59E(1)E(1)1PE(2)3E(1)88E(1)E(1)1tE(8)380E(1)177E(1)E(1).5M((E(1).6)29.5)1:D(E(1)29.5(M1))E(2)5E(3)60E(8)380E(1)177.5D30JDE(9):E(8)380M7S$JM$(M1):4620((M5.5)):&DN$"th":D19D10ıKTMD(D10)10:TM1DN$"st":`TM2DN$"nd":sTM3DN$"rd"yE(9)JD:Y(JD365.2468951.75)4700:JDE(9)YY1:4510E(9)JDE(8)YY1:4510E(1)E(9)JD1:E(3)E(1)0E(200:MO15JDJD30MO:4030/MO15JDJDMOP600:500:TM1983YB(IBYD)iTM0TMTM12:4040TMTM(TM12)12:S$S$CY$(TM):5500:WD(((JD2)7((JD2)7))7.1):hJMJD9:MMJMM4(JMM4):M5MMM4.58:MO0MOMOM4 |MO(OU$)1):3019  TM2OU$""7 400:TMTM1:3010C P13ı` A$;:OU$OU$A$:TMNIır TMTM1:3010<Y10:Y20:Y30:(Y4(Y4))0Y11F(Y100(Y100))0Y21P(Y400(Y400))0Y31ZLYY1Y2Y3:D5:M1:YYB:500:42謠䬠䠧짬宍Πﺍ婠󺍱䠱栲塩嬠宍 Ԡ󮠍宍   報̠㮍蠱򮠠 堲®î®î堵®î®î嬠򠲵̮̮򠲵̮򠲵̮讍젨젨򳬳Ҡ  󺠱뮍報溍󠭳箠Ʈ   ᠳ样宍堶䠳宍䠴宍讴庍 堵讍󺍠􍠵􍠵􍱰宍   栴󮩍ĭ̠蠱󮠠 ԠԠ󬠢򢬠󠲶䠸䮍󠴮䠴ﬠ󺍴󍱵󍴠®î堢碮ᬠî󠴮Ӡ謠堸Ӡ嬠Ԡ鬠宠Ԡ쬠   嬠宍Šſ  迍讍 󠱰򠱰䮠嬠鬠򬠴󍠠󍠠󍱵    箍ԠӠ笠ᬠ   Ԡ򠳰 宍ᠹ ﮍԠӠԠ嬠嬠젱   `777 ߠ  ɠLL7 7LL7 7 77`S$$e8' ڥ$ ɠL7`e8Ɵ8i * =`S$6L 5 6 966`PL6 +6.6.6.686H6H6H6Hh6h6h6h6hhhhۅ66666 . i68 6 6 6`6 L#7N7 7`   쬠쬠ححܢʮܢ򢻠ܢ򢻠廠򠵰󮠠堨򠱲橍謠쬠ᬠﬠ堢ᬠ堨婍積󮠠堧秠ܢ䠧ܢ򢻠퍠嬠󠹰򠱵󮠠讍宠積廠俍宠ܢ󢻠ܢ󢻠宠ܢܢ墻쩍ܢ򢻠쬠宠宠䬠宠ﬠ󮠠®î謠嬠ܢ墻ɠ謠䬠嬠嬠宠䬠ܢ󢻠堢婍栧䠍嬠蠠䬠堢ܢ쬠ܠ󮠠ܢ栱Į嬠򠠠󮠠嬠堨婍廠䬠ͧק鬠좠򮠠ܢ碻Ỡ嬠ܢ碻򠠠쬠宬嬠堢󢬠䠠묠z#  ѷѸѹӠŠ ̠ ՠ  ѲѲ ѲѳѴѵ Ѷ  ѱѱѱѲ Ѳ ѲѲ  ѱ ѱ ѱ ѱ ѱѱ ѱ   ϭӠΠϠ"Πՠ  נƠŠu Р ѱ ҠҠ  Ġ Ơ̠ӠΠΠϠ"Ƞؠ!Ϡ"Ӡ0Ϡڠ" ϠӠ  !Ӡ0ŠϠϠĠ󻠢ᰠ򠠠栱                                                    Ϡ፠  , 1983 *.RN ******************************656" IN 'MAIN MENU'.";B'"PLEASE INFORM THE MUSEUM STAFF!"JL'IL:10060p N *******************************N * PROGRAM AND ORIGINAL *4N * DATA FILES (C) COPYRIGHT *>N * PETER J. SCOTT AND *HN * GRIFFITH OBSERVATORY55,158:  TM39(36):TM);3*I1TM:(8);;4:Q::11:14::DRh"PLEASE WAIT"::SB,0:A$:P(A$):'OE:700'(222)255ĺD$"RUN"$'::.'8:"AN ERROR OF TYPE "(222)" HAS OCCURRED AT"8'"LINE "(218)(219)206D$"BLOAD HANGMAN LOGO"5@16302,0:16299,0MJ16297,0:16304,0bTD$"RUN HANGMAN"^900::D$"RUN BIRTHDATES"900::D$"RUN ASTRO QUIZ"I1200::Y:X:I1(A$):J150:(A$,I,1);:TM(SP)(SP):: 54,189:"6 21:5:"Press 1, 2 or 3 to choose ";:800:SB,0X J1:I01:K1400::132Jr 10:J:JJ1:J4J1 132J:10:" "J" ":I((KB)127): 21:32:A$:(A$)("1")(A$)("3")190 A$:700 (A$)300,350,400,290 ",90rams has an astronomical theme to it. ":TXl S$"Type the number of the program you're interested in. " TX:12:6:S$"Which program would you like?" TX:15:10:"1 Hangman " 17:10:"2 Birthdates " 19:10:"3 Professor Astro 4L qH(H7)5(H5)7:HM rA(M,0),A(M,2):A(M,0),A(M,2)A(M,1),A(M,3)x s::H(H7)5(H5)7:I((KB)127):I x(128);:5:5 S$"Hi! I'm here so you can have some fun while you learn about astronomy. ":TX, 8:5:S$"Each of my progthe":5006 dX11:Y20:A$"Griffith Observatory":500a gI07:THI8PI2:A(I,0)24313(TH) iA(I,1)24319(TH):A(I,2)2113(TH) kA(I,3)2119(TH):I n24:4:"Press RETURN "; o28:"to start ":SB,0:H5 pI01:J03:L01:MJ" !:HC:16300,06 #16303,0:16298,0:DR:900b (D$"BLOAD LOGO":214,255:PI3.141592654 -KB16384:SB16368:SP16336 216302,0:16299,0 <16297,0:16304,0 FX10:Y5:A$" Welcome":500 PX11:Y6:A$"to":500 ZX12:Y7:A$"/ . (4)"MAXFILES 2":24577:IN$"X":D$(4)R ONERR PATCH :- hhߚHH`HC14728:IL2126:OE2116:DR1002:TX14117:900:700:10000D$"BLOAD GENERAL ROUTINES":S1$(32):S2$(12832) D$"BLOAD CHARACTER GENERATOR":A(8,3):D$"BRUN P   ****W*******************J"D"D********x*****>********************"D"D"-**********z+*******************************x****+*********************"T*********x****z*W*********Ԫ*************************jW***********************************************************************D"4**** "D"D"4****"D5****************֪**********************?********~UUUUUWUUUUUUUUUUUUUUUUUUU "D"DVUUUUUUUzUUUUUU?UUUUUUUUUUUUUUUUUUUUE"D"DUUUUUUUzUUUUz+UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUzUUUU+UUUUUUUUUUUUUUUUUUUU%U(UUUUUUUUUzUUUUUUU~UUUUUUUUUUԪڪUUUUUUUUUUUUUUUUUUUUUUUUUWUUUUUUUUʪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU%"D-UUUU)D"D"D1UUUU%E"UUUUUUUUUUUUUUUUUҪ֪UUUUUUUUUUUUUUUUUUUUUUUUU}UUUU~****u_*********************D"DQ********x*****u********************"D"D"+*******x***z********************************x****+********************R**********x****************Ԫ**********************?****?****~****W********ڪ**************************************************************E"-****%"D"D"4****"D+****************Ҫ**********************"D"4****"D"D"D**** "DQUUUUuUUUUUUUUUUUUUUUUUUU)"D"4UUUUUUUUxUUUUUuUUUUUUUUUUUUUUUUUUUUUD"D"D(UUUUUUUzUUUUzUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUxUUUUj+UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUxUUUUUUUUUUUUUUUUUԪڪUUUUUUUUUUUUUUUUUUUUU?UUUU}?UUUU~UUUUUUUUUUUUUҪ֪UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"D(UUUU%D"D"D5UUUUU"UUUUUUUUUUUUUUUUUڪԪUUUUUUUUUUUUUUUUUUUUU "D1UUUU)D"D"DQUUUU*D"D****u********************D"D-********x*****}u********************"D"D"********x***j********************************x***j+*******************************x****************Ԫ**********************?****?****~****}/********Ҫ**************************************************************Ej*****%"D"D",****R"D*****************ʪ**********************"D"4**** "D"D"D**** "DQUUUU}UUUUUUUUUUUUUUUUUUU%"D"UUUUUUUUzUUUUUj/UUUUUUUUUUUUUUUUUUUU"D"DhUUUUUUUzUUUUjUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUzUUUUj+UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU|UUUUUUUUUUUUUUUUUԪڪUUUUUUUUUUUUUUUUUUUUU?UUUU}?UUUU~UUUU}zUUUUUUUUU֪ҪUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"DXUUUU%D"D"D-UUUUU QZUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU "D1UUUU)D"D"DQUUUU)D"D****}********************U"D*********x****z*******************R"D"DR********x***j***********************************j+*******************************x****************֪**********************?****?****~****u_z*********֪************************************************U**************R Q*****"D"D",*****5****************************************)D"4**** "D"D"4**** "DQUUUU}UUUUUUUUUUUUUUUUUUUU"DZUUUUUUUUzUUUUU~WUUUUUUUUUUUUUUUUUUU"D"DXUUUUUUUzUUUUj_UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUj+UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUzUUUUUUUUUUUUUUUUU֪ҪUUUUUUUUUUUUUUUUUUUUU?UUUU}?UUUU~UUUUUWjw_UUUUUUUUU֪ҪUUUUUUUUUUUUUUUUUUUUU@ UUUUUUUUUUUUUUUUUUUUUUUUUUz_UUUUUUUUUUUUUU)UUUUUE"D"D-UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU "D1UUUU)D"D"D1UUUU)D"0          TVRP 2{yzyyyzzzy d'8z,z z, z,- (-z ({ 0 LQQS X`hL     Ơ¤ҠҤè¤Π  Ыɭ¤̠̠ԍƠԠ̠ΠȠȠ ΍Ġ ƠРàҠРàڢΠԠΠ@@@G pp @@"P `x0 *U*U*U*U*U*U*U @ @@G`t`p?pt  @x|q@``  @@@G`@|~pp~p@|~  @ qxr ~`pppxr ~@@@? pp@@D  p~8@xp~8 @ @CG{o 8x><ppp 8x @px`p ppx@@D0 `00pp0 `@A   |sp` p |sp @ @|Gp8t` Nppp8t`  @g` ptgp|p p@@~``pp@@p`p``pp@A ``@pp`@0 T*  @G` 8 |ppp 8   |G` p ppp p@@|@{{ @`x @ @|``p8pp|``p|T*  @@G p @0ppp @  G@p~`~pp@p~ @@; << 8n @ p``xpp``  @@Gx` `ppP @ @G{cx`ppx@ P@0  @  `?<d@`@ wppd@`@ @ P*U*U* U*U*U @@Gc|@@ppP @@G`y``pppy`          :F#13:15:"or":14:3:"2 Choose a different program"qP#16:1:"Press 1 or 2 to choose: ";:800:SB,0Z#I01:K1400::102Jd#3:" "J" ":JJ1:J0J2n#102J:3:J:I((KB)127)::16:25x#A$:A$"1"ĺA$:20000:140 #A$ 2:1128,54:1134,54" 900L 21:1:"You lose! The word was:- ";c 23:SP:" "W$" ";s I15000:y I1L:E%(I,0)(L2)1:(#HC:10:12#"New player: would you like to:- "<#12:3:"1 Continue with Hangman":J1% 130Y1,60X1::254,155:255,29/ MU:X 130,70130,110:254,195:255,31:MU^  120,90130,80140,90:254,240:255,33 MU: 120,120130,110140,120 I013:254,D%(I,0):255,D%(I,1) MU::1:0 1130,59:2128,620,4090,20:254,90:255,25:MU$: LD 130,20130,50:254,120:255,27:MURN zX PI3.141592654:TH0PI1.14PI25b X110(TH):Y110(TH):130X1,60Y1l 130X1,60Y1:130X1,60Y1:130X1,60Y1v 130Y1,60X1:130Y1,60X1:130Y1,60X1,3140,3160,3220,3240,3260A 30,145110,145:254,15:255,15:MUG m 70,14570,20:254,20:255,17:MUs  50,14570,125:254,30:255,19:MU  90,14570,125:254,45:255,21:MU  70,20130,20:254,65:255,23:MU& 0 7TM1:OU$""!1200:P820200TM22010TTM2OU$(OU$,(OU$)1):2019eTM2OU$""(8)" "(8);:TMTM1:2010P32P132010P13ıA$;:OU$OU$A$TMNIı TMTM1:2010 H3020,3040,3060,3080,3100,3120 TM39(36):TM);(*I1TM:(8);04:L21:1:39);:40:" ";^24:1:16);d1200:P("A")P("Z")1000A$;L(128);:3:14:" DEFINITION "V6:SP1:W$":"`9:1:S$DF$:TX:SB,0:A$:P(A$): "Letters used:";:((A$)("A")14)DA$;:C%((A$)("A"))1500aC%((A$)("A"))1:MM1g&XFL0:I1(W$):B$(W$,I,1)bA$((B$)128)A$((B$)160)Ģ23:(SPI1):A$:FLFL1lvFLHH1:300054,189:55,158:ting to use the computer, please give them a turn."; TXr 21:1:"Another word (Y or N)? ";:800:NI0:2000 A$(OU$,1):A$"N"9000 A$"Y"419 140 24:1:M1ĺ"First letter? "; M1ĺ"Next letter? ";:800#1000:21:1:I025:C%(I)0:( hM1:500:H0:600> rRMRMFL:RM400\ |MM1:500:600:H11410e 370u 900:21:1 " YOU GOT IT RIGHT!!! "; I120:(7);::I12000: 11003 16:1:S$"If there are other people wai) FL10:I1LI4 (IN$,I,1)(220)FLI:ILII :W$(IN$,FL1)^ "DF$(IN$,LIFL)o ,HC:TC:RM0 623:SP((40(W$))2):SP:I1(W$) @A$(W$,I,1):AS(A$) J(AS219AS192)(AS224AS251)ĺ"_";:RMRM1:345 TA$; Y: ^)1:T1E%(R,0)L2140# T1T11. X(0)= E%(R,0)T1O LT0:R0220l I1R1:LTLTE%(I,1): R1(LT255):B1LTR1255:700: D$"OPEN OUTFILE,L255":D$"READ OUTFILE,R"R1",B"B1 IP:IN$(IN$,1):D$"CLOSE" :7: LI(IN$ 2EP(176)256(175):ESEP23= 7232,(ES(ES256)256)P <233,(ES256)r A23:13:"Please wait...":TD FD$"OPEN LENGTH INDEX" PD$"READ LENGTH INDEX" ZL:E%(L,1) dI1L:TM:E%(I,1)TM1: xD$"CLOSE":5000 20030 R(L~! 24577:IN$"X":D$(4):T10E ONERR PATCH :- hhߚHH`X255::10000OE2103:IP777:HC14728:TC771:MU768:TD774:IL2113:TX14117C%(25),D%(13,1)(S1$(32):S2$(12832):KB16384:SB16368-I013:D%(I,0),D%(I,1):       *,h * GRIFFITH OBSERVATORY, 1983 *Rr ******************************j SHAPE TABLE :-  7%--, 92,140,192,140,192,50,192,150,163,100,172,70,172,140,192,90n:u 192,90,208,80,192,140,192,140,192,50,192,150@ ******************************J * PROGRAM AND ORIGINAL *T * DATA FILES (C) COPYRIGHT *^ * PETER J. SCOTT ANDwrong, you will be slowly 'hanged'..."0LOTX:VO:S$"You have a total of 11 chances to be wrong before you will be dead."`OTX::O:10)"Good luck!";O24:1OS$"Press "(9)"RETURN"(9)" to start "OTX:1200O700:;0u 1mical word."OTX:qO:S$"Your task is to find out what that word is. Type a letter, and if that letter "y$OTX.OS$"is contained anywhere within the word, I will print it over the proper dash(es). "8OTX&BOS$"If the letter you type is or No)? ":TX:800-NNI0:2000:A$(OU$,1)HNA$"Y"A$"N"20090ZNA$"N"20460iN(128);:NS$"I will put up a row of dashes, like this: ":TX:NN10)"_______________": OS$"Each dash stands for a letter of a hidden astrono::11:14:9*N"PLEASE WAIT"::D$"BLOAD HANGMAN LOGO"q4N16302,0:16299,0:16297,0:16304,0:I15000:z>N700RN:7::HC\N4:10:"Welcome to HANGMAN!":TCzN8:1NS$"Would you like instructions (please type Y for Yes or N f"2"90400#A$:700::TD:D$"RUN MAIN MENU"='OE:700O'(222)255ĬY$'::.'8:"AN ERROR OF TYPE "(222)" HAS OCCURRED AT"8'"LINE "(218)(219)256" IN 'HANGMAN'."B'"PLEASE INFORM THE MUSEUM STAFF!"L'IL:10060  N700:TD:LL1LHL^LsLHHH0L(hhh`s8U9V`@6DS` uiȩiȩi`HNO@ hLHHH E h(hh`,0`"# E h(hh`,0`Ϡᮍ    ********UUUUUUUU ~ >>?"@`PHxDBB0HH$"0H 8HDDD"p8p80Hr"$HHH$<$p p  H( "BDlTDD"""DLTT""""0HHD$" 0HH$0HHDTR"\0HH$"B0HH |DDDD"""\BB"" DDDD"*6"D$""B"x@  ~ >>?"????????????|xp`@~~~~~~||||~~~~~~@`px|xpp`@@`ppx|xxppxx|<<8""> """"""< 00 J0>>< (&20 *,*>*> "2*&" " >>  ">> "8""> """"""< >>*~>00000> <"<"""<< <"""<"><$<""< """"8   **"""""""""""<""< `4  >(<"""""**"""""< >>>> ""*:<"">""""""""""""">>><2"""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >((PPPP@@AABBCC@@AABBCC@@AABBCC>>< (&20 *,*>*>> "2*&" " >>  ">> "8""> """"""< NO,0 h &8(,Hɍ$HH &8$!$hh$h` HJJJh) }9'9& `` 9 i *9&' *9&ޥ# 9 *9&h`6879ą8 8:WR 7` e!#ʊ " `!`((7 ::`= 6d`UP`%$}9e &9'`ɠ> 8LH8 0e &e 8E&'i'h`Hɍ #% C9hгɒɓɔ 7ɉIɀ 8hЅ 9# 98HHHLr9LX &8#% !$LC9`H4E &8 ˠƍŠƍˠנƍŠנƬƍˠƍM%(PH,I)0ĺ" ";/-@QPM%(PH,I)21ĺ" ":20820H-JQ(64(PM%(PH,I)));_-TQPM%(PH,I)0ĺ" ";k-^Q:"";-hQ21:S$"Press RETURN when ready to continue":5500-rQ1600:(128);:2:5-|Q"In the Jewish calendar,":3:5:JDJB1.Q"you were born on":5:TM$"Full".,PMO0ĺ"a "TM$" Moon)":20750I,PMO" day";:MO1ĺ"s";l,Q" after the last "TM$" Moon)",QPH(PBM47.5):"";:PH8PH3İ2400,QPH5PH0İ2300,"QPH0ĺ" ";:2300:2400:" ";,,QI07:13(I21):36(I(I2)2)-6QP?+P10:S$WD$(WB)", "MN$(MB)" "(DB)DN$", "(YB):5500s+PJDJB:4200:PBMO:TI(DO10001)1000:TJTIJB+PJDTJ:600:TYY:TNM:TDD+P13:3:"On that day, the Moon looked":TM$"New"+P14:22:"like this:":16:1:"("; ,PMO15MOMO10:NCYO:2900:700:+*nPMTMBDTDBİ2700J*xPI12000::(128);:3:5*PDOJTJB:JDJB:4100:WBWD:JDJT:4100:WTWD:DDT:4300*P"Today's date is":5:S$WD$(WT)", "MN$(MT)" "(DT)DN$", "(YT):5500+PDDB:4300:8:5:"You were born on":20140)PYBYT20570*)(PYBYT20560g)2PS$"Today's date is:- "(DT)" "MN$(MT)", "(YT)"."~)7P(128);:4:1:TX)NNI25:2to the wonderful world of astronomy. "s!*NTX:S$"We're going to see how much you know about the universe!":TX:!-NS$"There are "(NQ)" questions for you in this game, some of them pretty tricky. I'll keep score as we "$"0NTX:S$"go along, and y5:"Virgo ......... Sep. 16 - Oct. 30"S 75:"Libra ......... Oct. 31 - Nov. 22" 75:"Scorpius ...... Nov. 23 - Nov. 29" 75:"Ophiuchus ..... Nov. 30 - Dec. 17" 7 N700: #N:7:HC'!%N:S$" Professor Astro ":5000:6:1:S$"Welcome ces ........ Mar. 12 - Apr. 18"KF75:"Aries ......... Apr. 19 - May 13"wP75:"Taurus ........ May 14 - June 19"Z75:"Gemini ........ June 20 - July 20"d75:"Cancer ........ July 21 - Aug. 9"n75:"Leo ........... Aug. 10 - Sep. 15"' x7"LINE "(218)(219)256" IN 'ASTRO QUIZ'."R8'"PLEASE INFORM THE MUSEUM STAFF!"aB'IL:10050g6o7:75:"Sagittarius ... Dec. 18 - Jan. 18"(75:"Capricornus ... Jan. 19 - Feb. 15"275:"Aquarius ...... Feb. 16 - Mar. 11"<75:"Pisore questions for you to pit your wits against.)":TX~<#9:1:S$"Well, now it's time for someone else's turn, "NM$".":TXF#I13000::TLTL1:8000'OE:700:(222)255Ĭ':::255$'8:"AN ERROR OF TYPE "(222)" HAS OCCURRED AT"+.'":JJ1:J0J2:122J:3:J:I((KB)127)::18:25SA$:A$"1"ĺA$:190eA$"2"8130A$:700::D$"RUN MAIN MENU"(#(128);:2:S$NM$", you have done every question we have!":TX:52#:S$"(Some time in the future we will have mJNCı"r XSX3:J(J2)2XSX47| X1A1XCXSA12^ Y1YSP1(1)B2A2(A2A2X1X1) X1X2,Y1X1X2,Y1ZC:JJ1:J(J2)2X3X32:2910 X4X42:2910 TM1:OU$"" IN1300,1400,1500:P83030 TM23010 TM2OU$(OU$,16300,0:16298,0:16303,0:12:10::"ONE MOMENT PLEASE...":} 700:D$"BLOADB":16302,0:16299,0:16297,0:16304,0 11:(20(NM$)2)3:" "N2$" ";:T XC4:X31:X43:J1:ZC(20(NC.21))1:4^ X3X4XCXC2:X31:X4XC1h (P("A")P("Z"))P13P81500*D@SB,0:KB,128:SB,0:UIN2:3000:f4IN3:3000:IN1:3000:NM(OU$):I14:38:11I:(64I);::` I710:35:22I:(64I);:: I024:254,BT%(I,0):255,BT%(I,1):MU::@ :$:TMNN:S$"-"S$/LTM(S$):H(37)TVTM(36)1TMTM40:HH1:1110l`H0Ĺ37,(H0)24Hj(36)TM2:S$:SB,0:A$:P(A$):1200:(P("0")P("9"))P13P81300x1200:P32P13P81400$1200:0NN:TM1CS$((N))".":M5((N(N))(10ND).50001):MMNcM5(10ND)TM$(M5):940S$((N)1)".":TM$((M5(10ND)))MM(MM(MM))10:(MM)0(TM$)NDTM$"0"TM$:940(TM$)NDāJ(TM$)1ND:TM$TM$"0":S$S$TM0)E(0)1524:E(1)((E(0)122.1)365.25):E(2)(365.25E(1))vlE(3)((E(0)E(2))30.6001):DE(0)E(2)(30.61E(3))vYE(1)4716:ME(3)1:M12MM12:YY1MM1:54,189:55,158: TM39(36):TM);:I1TM:(8);:: TM0:S$"":N!|A$:700::D$"RUNMAIN MENU"7(8)" "(8);:VMM1:3900:Y0(.4M2.3)}YDD31(M1)(Y0Y1Y2Y3)(M2)JD(365.25(Y1))((Y1)100)((Y1)400)1721425YD:XE(0)((JD1867216.25)36524.25):E(0)JD1E(0)(E(0)4)<bE(1<T15:15:"or":16:3:"2 Choose a different program"s^18:1:"Press 1 or 2 to choose: ";:800:SB,0hI01:K1400::122J:3:" "J" ":JJ1:J0J2r122J:3:J:I((KB)127)::18:25wA$:A$"1"ĺA$:290yA$"2"35051:A1184=700:D$"OPEND":D$"READD":YT,MT,DT:D$"CLOSE"m"20000:(128);::700::D$"TXDUMPF":7:16S$"Now it's time for someone else's turn, "NM$".":TX@12:1:"New player: would you like to:-"J14:3:"1 Enter your birthdate":J' I011:CY$(I)::I08:PN$(I):p boar,dog,rooster,monkey,sheep,horse,snake,dragon,hare,tiger,ox,rat  Mercury,Venus,Earth,Mars,Jupiter,Saturn,Uranus,Neptune,Pluto  M429.53059:EY365.2422:KB16384:SB16368:A299:P111:B250:YS67:X21: good,nice,fine,great,rotten> I07:J07:PM%(I,J):: -11,-12,0,0,0,0,-6,-5,0,17,0,-2,0,-3,0,18,0,12,0,-21,0,-21,0,5 16,12,9,-21,8,-21,15,5,11,12,-21,-21,-21,-21,6,5 11,14,-21,2,-21,3,6,13,11,0,-21,0,-21,0,6,0,20,0,-9,0,-8,0,19,027,85,127,95,2556 I08:PY(I)::I011:JM$(I): 87.9685, 224.7007, 365.2422, 686.9804, 4332.587, 10759.2624, 30685.2316, 60189.4527, 90737.1925 Tishri,Heshvan,Kislev,Tebet,Shebat,Adar,Nisan,Iyyar,Sivan,Tammuz,Ab,Elul I04:MC$(I):,BT%(I,1):J n Saturday,Sunday,Monday,Tuesday,Wednesday,Thursday,Friday 129,95,129,31,115,127,129,127,95,127,101,255,129,95,129,31 115,127,129,127,85,127,95,255,129,95,129,31,63,127,77,127 95,127,101,127,115,255,72,95,72,31,77,127,95,1):I011:MA$(I),ML%(I),MN$(I):s P JAN,31,January,FEB,28,February,MAR,31,March,APR,30,April,MAY, 31,May,JUN,30 Z June,JUL,31,July,AUG,31,August,SEP,30,September,OCT, 31,October,NOV,30,November,DEC,31,December dI06:WD$(I)::I024:BT%(I,0)1- 24577:D$(4)8 ONERR PATCH :- hhߚHH`HC14728:DR1002:MU768:OE2090:IL2100:PS14081:TX14117:255::100002MA$(11),ML%(11),MN$(11),WD$(6),BT%(24,1),PY(8),JM$(11),E(9),PM%(7,7),CY$(11),PN$(8),MC$(4)! <S1$(32):S2$(12832"" " " " " """""""""