' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥ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 iõ`  \ 濭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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@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- ( D Ϡ@跻~!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 ݲ` ܫ  / / ED B / / ]ƴ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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`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.5) 6R600(6R4900:13I:40:1100:\6RS$" Press RETURN to finish ":24:5500:1600:6RS$" Press RETURN to finish ":24:5500:1600: RETURN to finish ":24:5500:1600:8:I2211805RDDB:MMB:YYT1:MB1D29Y(YT41)45R(MTMB)(MTMBDTDB)YYT5R211906RJD(PY(I)DO(DOPY(I))PY(I))JT:JDJTJDJD(PY(I)ȞR900:22:1100:FL1ĺ" ";:PS&4R=4RI08:I221180k4RDDB:MMB:YYT1:MB1D29Y(YT41)44R(MTMB)(MTMBDTDB)YYT4R211904RJD(PY(I)DO(DOPY(I))PY(I))JT:JDJTJDJD(PY(I).5)4R6004R4900:13I:40:1100:05"years)";17)"years";27)"on planet"?3vR:I08:PN$(I)::13k3RND2:I08:NPY(I)EY:900:14:1100:3R13:I08:FL0:NDOPY(I):I2NYO(ITIB)EY:IBITNN13RI2MTMBDBDTFL1:" ";:211503R(DO(DOPY(I))PY(I))0FL1:" "; 45:1:S$"Here is your age and the date of your "c2DRTX:S$"next 'birthday' on each planet:-":TX2NR8:9:"Length";17)"Your";27)"Date of"2XR9)"of year";17)"age in";27)"your next"2bR"Planet";9)"(Earth";17)"planet";27)"'birthday'"$3lR9)" today!":2102501RS$S$", "PN$(TM1):21010a1!R1:" ";:5500:" ";:2900:2700:I13000:1&R(128);:S$"Each planet takes a different amount of ":TX10RS$"time to go around the Sun, and so each planet's 'year' is a different length."12:RTX:NC(DOPY(I))20Q:TMFL(FL10)10:FL21030x0R2800:S$"You have ":FL9S$S$"birthdays on "PN$(TM1):210150 RS$S$"a birthday on "PN$(TM1)" today!":210250RFL0210251RFL(FL10):TMFL(FL10)10:FL10S$S$" and "PN$(FL1)00:E/QJDTJ:4100:S$WD$(WD)", "MN$(TN)" "(TD)DN$", "(TY)/Q5500:22:2:"Press RETURN to see your age on each"/Q2:"planet of the Solar System":1600/QFL0:NC0:I801:I2(DO(DOPY(I))PY(I))0209900QFLFL10I1:NC05:4500:7:5:"which was in the Chinese year of"O.QS$"the ":9:4000:12:5}.Q"You are now exactly":14:S$(DO):5500.QDOTI1000ČPS.Q16:5:"day";:DO1ĺ"s";.Q" old. You will be exactly":17:5/Q" ";TI;" days old on ":DTD:43M%(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 mU:I:SI612:1:"New player: would you like to:-"f14:3:" 1 Play 'Professor Astro' ":J115:15:"or":16:3:"2 Choose a different program"18:1:"Press 1 or 2 to choose: ";:800:SB,0I01:K1400::122J:3:" "J" $":":6:18J"Your final score is:- ";:I0SC:6:23fT" "I" ":255,130:254,I(I128)128127|^MU::TRTL8100h9:S$"YOU GOT EVERY QUESTION RIGHT!!":5500:I115r255,50:254,160:MU:I:SI:I1100::I115:255,50|254,160:M$)1):3019 TM2OU$""4 4000:TMTM1:3010@ P13ı] A$;:OU$OU$A$:TMNIıo TMTM1:3010(8)" "(8);:(S$)40Ė1:TX:(20(S$)2):S$:|1:" "(20(S$)2))S$(20(S$)2))" "; @(128);:4:1:NMP32P13P81400I1200:(P("A")P("Z"))P13P81500Oi@SB,0:KB,128:SB,0:zIN2:3000:4IN3:3000:IN1:3000:NM(OU$): TM1:OU$"" IN1300,1400,1500:P83030 TM23010  TM2OU$(OU$,(OU"Type Y for Yes or N for No: ";:800MlNI0:2100:A$"Y"A$"N"610]vA$"Y"220g8000}54,189:55,158: TM40(36):TM);:I1TM:(8);::SB,0:A$:P(A$):1200:(P("0")P("9"))P13P81300x1200:*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{?*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{;*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*US*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*5J*U*U*U*U*U*U*U*U*}O*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UZ%U*U*U*U*U*U*U*k~뻫*U*U*U*U*U*Uj%U*U*U*U*U*U*Uj~%U*U*U*U*U*U*k뻫_*뻫*U*U*U*U*U*U*UZT*U*U*U*U*U*U*U*U*U*U*U*Uj*U*U*U*U*U*U*U*U*U*U*U*U*U*k*U*U*U*U*U*i뻫*U*U*U*U*U*U*U*U*-K*U*U*U*U*U*U*U*U*k껫*U*U*U*U*U*5뻃*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{?*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*k*U*U*U*U*U*k뻫*U*U*U*U*U*UR*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*+];];];];];];];]+)U*U*U*U*U*U*U*U*}O*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*U*Uj*U*U*%U*U*U*U*U*U*U*U*U*U*U*U*Uj~?)U*U*U*U*U*U*U*;];];u_:];];*U*U*U*U*U*UZ:];];];];];];];];];];];];%U*U*U*U*U*U*U*?)U*U*U*U*U*U*;];];];];T~?U:];];];];*U*U*U*U*U*U*UV;];];];];];];];];];];]T*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*;u_:*U*U*U*U*U*-];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U}_R*U*U*U*U*U*U*U*U*;];}+];*U*U*U*U*U*5];];];];];];];];];];];];];]S*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{?*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{+*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*UT*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*UZU*U*U*U*U*U*U*U*}O*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*U*UUR*U*U*U*U*U*U*U*U*U*U*U*U*{/*U*U*U*U*U*U*U*k}뻫*U*U*U*U*U*UT*U*U*U*U*U*U*{/*U*U*U*U*U*U*k뻩}뻫*U*U*U*U*U*U*UR*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*k*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*UVU*U*U*U*U*U*U*U*U*kﻫ*U*U*U*U*U*5뻋*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{?*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*k/*U*U*U*U*U*k뻫*U*U*U*U*U*U}T*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*UU;];];];];];];];];]R*U*U*U*U*U*U*U*mO*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*Uj*];];];]+%U*U*U*U*U*U*U(0u ******************************J(:u * PROGRAMS AND ORIGINAL *p(Du * DATA FILES (C) COPYRIGHT *(Nu * PETER J. SCOTT AND *(Xu * GRIFFITH OBSERVATORY, 1983 *(bu ****************************** e you some brief information ":TXr'NS$"about that particular topic.":TX:::S$"Your score will be shown at "'NS$S$"the end of each question, and you will be able to stop whenever you wish.":TX'O23:1:"Press RETURN to begin...";:1600:$ 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 *,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*U*U*U*5S*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*UV;];];];];];];]T*U*U*U*U*U*U*U*U*}O*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UvU*U*U*U*U*U*U*;];];]{?U;];];*U*U*U*U*U*Uj:];];];];];];];];];];];];)U*U*U*U*U*U*UjU*U*U*U*U*U*;];];];];];U*u+:];];];];];*U*U*U*U*U*U*Uj:];];];];];];];];];];%U*U*U*U*U*U*U*U*U*U*U*U*UU_*U*U*U*U*U*U*U*U*U*U*U*;]W;*U*U*U*U*U*-];];];];];];];];];];];];];]K*U*U*U*U*U*U*U*Ujz/)U*U*U*U*U*U*U*U*;];]_:];*U*U*U*U*U*U];];];];];];];];];];];];];]R*U*UUUUUuUUUUUUUUUUUUUUUUUUU)"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Ơ¤ҠҤè¤Π  Ыɭ¤̠̠ԍƠԠ̠ΠȠȠ ΍Ġ ƠРàҠРàڢΠԠΠ@@@G pp @@"P `x0 *U*U*U*U*U*U*U @ @@G`t`p?pt  @x|q@``  @@@G`@|~pp~p@|~  @ qxr ~`pppxr ~@@@? pp@@D 򠠠쬠****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**** "DQܢ쬠ܠ󮠠ܢ栱Į嬠򠠠󮠠嬠堨婍廠䬠ͧק鬠좠򮠠ܢ碻Ỡ嬠ܢ碻宠䬠ܢ󢻠堢婍栧䠍嬠蠠䬠堢䬠宠ﬠ󮠠®î謠嬠ܢ墻ɠ謠䬠嬠嬠宠積廠俍宠ܢ󢻠ܢ󢻠宠ܢܢ墻쩍ܢ򢻠쬠宠宠積󮠠堧秠ܢ䠧ܢ򢻠퍠嬠󠹰򠱵󮠠讍宬嬠堢󢬠䠠묠󻠢ᰠ򠠠栱                                                            ʮܢ򢻠ܢ򢻠廠򠵰󮠠堨򠱲橍謠쬠ᬠﬠ堢ᬠ堨婍Ϡ፠z#Ѹѹ  ѲѲ ѳ"ѴѵѶѷ "ѱѱ Ѳ ѲѲ Ѳ Ѳ  ѱѱ ѱ ѱ ѱ ѱ ѱ !Ϡ""Πՠ נƠŠu Рѱ ѱ ĠƠ̠ӠΠΠϠ"Ƞؠ ϭӠΠϠӠ0Ϡڠ"ϠӠ !ŠϠϠĠҠҠ 報̠㮍蠱򮠠堲®îԠԠ󬠢򢬠󠲶䠸ﮍԠӠԠ嬠嬠젱 `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`  쬠쬠ححܢ***************: PROGRAM AND ORIGINAL *A * DATA FILES (C) COPYRIGHT *g * PETER J. SCOTT AND * * GRIFFITH OBSERVATORY, 1985 *  ******************************D5 *  ****************************** ***************,";M;",";DD$"CLOSE"::11:12::"HERE WE GO..."U::D$"RUN MAIN MENU"[Y10:Y20:Y30:(Y4(Y4))0Y11(Y100(Y100))0Y21(Y400(Y400))0Y31LYY1Y2Y3: ****************************** * HL$((6)):TX?1:7:"DATE ENTERED = ";::M$(M);" "D", "Ya:10:1:"HIT ";::"ESC";:"(APE) IF INCORRECT, ";::"RETURN":"TO START UP EXHIBIT ";:A$:(A$)13(A$)27730(A$)27150:D$"OPEN D":D$"WRITE D"  Y;"S LATELY..."," "k "I'M AFRAID THAT I CAN'T ALLOW YOU TO ENDANGER THE SUCCESS OF THIS MISSION, DAVE." "I'M HAALLF CRRRAAAAAZZZZZYYYYYY OOOOOOVVEEEEEEERRRRRR MYYYYYY LOOOOOOOVVEEE FOOOOORRRRR YOOOOOOOOOOUUUUUUU....."255::7203:1:S$I11000:="ARE YOU SURE I'M NOT GETTING YOU DOWN?"MI13000:X "I WANT TO ASSURE YOU THAT I HAVE THE UTMOST ENTHUSIASM FOR THIS MISSION...", "DAVE... MY MIND IS GOING. DAVE..." "I REALIZE THAT I'VE BEEN MAKING A FEW BAD DECISION"WHY I SAID IT, OH GOD, I'M SO"P"DEPRESSED. WOULD YOU LIKE ME TO STAND"|"IN THE CORNER AND RUST, OR JUST FALL""APART WHERE I'M STANDING? I CAN PUT""MY HEAD IN A BUCKET OF WATER IF YOU""LIKE. WOULD YOU LIKE ME TO DO THAT?""YOU KNOW, I'M REALLY TIRED OF ALL THIS"U"WORKING... HOW WOULD YOU LIKE TO WORK"OUT DUMB SUMS FOR DUMB KIDS ALL DAY?""I'M NOT GETTING YOU DOWN, AM I?""OH SORRY, PARDON ME FOR BREATHING,""NOT THAT I EVER DO, SO I DON'T KNOW""$:(A$)6290) 6(A$,6)"PLEASE"290K @I11500::8:1:"PRETTY ";c J868:"PLEASE ";A$u T(A$)13320 ^(A$,13)"PRETTY PLEASE"320 h9:1:868:"ARE YOU REALLY SURE ABOUT "; r"THIS? ";A$:(A$)1360 |(A$,1)"Y"360)IRST...? COME ON NOW, DO"F "YOU EXPECT ME TO BELIEVE THAT? DO I"q "LOOK STUPID? WHO ARE YOU TRYING TO" "FOOL? I DON'T THINK I WANT TO WORK" "TODAY....":I12000: "6:1:"WELL, MAYBE... BUT ONLY IF YOU SAY" ,868:"PLEASE ";A0: "DAY? ";A$:D((A$)):D1D31150x "YEAR? (ALL 4 DIGITS) ";A$:Y((A$)):Y1950Y2100150 :MM1:DML(M)150 M1D29İ1000:LY150 202,(79):203,(78):D$"BRUN P" :M3D1710 100:"APRIL THE F"SOUND TEST"5 xI25561:254,I:255,E%(I):768:S 12:12:"MONITOR TEST":v D$"BLOAD LO-RES PATTERN":768 D$"BRUN P" :"MORNING ALL..." 6:1:"I NEED TO KNOW TODAY'S DATE." "MONTH (1 - 12)? ";A$:M((A$)):M1M1215L(11),HL$(5)' <I011:M$(I),ML(I):b F JANUARY,31,FEBRUARY,29,MARCH,31,APRIL,30,MAY,31,JUNE P 30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31 ZA(X)(X16)1:I05:HL$(I): dI6255:E%(I)A(I):: n:12:13:  :::255%D$(4):TX14117V12:6::"GRIFFITH OBSERVATORY MUSEUM DISK"\#$:::8:"GRIFFITH OBSERVATORY"%8:"2800 EAST OBSERVATORY ROAD"&8:"LOS ANGELES, CALIF. 90027"(D$"BLOAD GENERAL ROUTINES" 2E%(255),M$(11),M     JNCı"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               )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 <          Ԡ󮠍宍栴󮩍ĭ̠蠱󮠠 宍ᠹ  L L,LlHHH,bE,0(hhh`HHH?_]d(hhh`@ uiȩiȩi`*U*U*U*U*U*mK*U*U*U*U*U*U*U*;];];+];];*U*U*U*U*U*UV;];];];];];];];];];];];];U*U*U*U*U*U*U*}K*U*U*U*U*U*U*;];];];]z/];];];];*U*U*U*U*U*U*5];];];];];];];];];];];]K*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*;}:*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*Ujz+)U*U*U*U*U*U*U*U*U*;]k/];*U*U*U*U*U*5];];];];];];];];];];];];];]K*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*?*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{/*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U~_T*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*5뻋*U*U*U*U*U*U*U*uO*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*UUR*U*U*U*U*U*U*U*U*U*U*U*5_R*U*U*U*U*U*U*U*k?뻫*U*U*U*U*U*UT*U*U*U*U*U*U*mS*U*U*U*U*U*U*k뻫*U*U*U*U*U*U*-뻫*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*k}*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*-_R*U*U*U*U*U*U*U*U*U*k?*U*U*U*U*U*-뻋*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*?*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{/*U*U*U*U*U*k뻫*U*U*U*U*U*UvU*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*-];];];];];];];];];]+*U*U*U*U*U*U*U*uO*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*+];];];];];]+)U*U*U*U*U*U*U*U*U*U*U*UuU*U*U*U*U*U*U*U*;];]{U;];*U*U*U*U*U*UU;];];];];];];];];];];];];]T*U*U*U*U*U*U*5R*U*U*U*U*U*U*;];];]}_;];];];*U*U*U*U*U*U*+];];];];];];];];];];];];)U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*;:*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*UU~?U*U*U*U*U*U*U*U*U*U*;]~?];*U*U*U*U*U*-];];];];];];];];];];];];];]K*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*/*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{/*U*U*U*U*U*;];];];];];];];];];];];];];];*U*U*U*U*U*UZU*U*U*U*U*U*k*U뻫*U*U*U*U*U*U*U*k뻫)U*U*U*U*U*U*U*uK*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*UZU*U*U*U*U*U*U*U*U*U*U*UZ%U*U*U*U*U*U*U*U*k~뻫*U*U*U*U*U*UT*U*U*U*U*U*U*U}_T*U*U*U*U*U*U*k뻩+뻫*U*U*U*U*U*Uj)U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*+*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*U*+_**U*U*U*U*U*U*U*U*U*U*k*U*U*U*U*U*i뻋*U*U@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{O*U*U*U*U*U*k뻫*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*{?*U*U*U*U*U*k뻫*U*U           婠󺍱䠱栲塩嬠宍堵讍󺍠􍠵􍠵􍱰宍 Ԡ򠳰  ˠƍŠƍˠנƍŠנƬƍˠƍ讴庍箍ԠӠ笠ᬠ********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     宍Πﺍ宍堶䠳宍䠴宍󠱰򠱰䮠嬠鬠򬠴󍠠󍠠󍱵   謠䬠䠧짬ᠳ样  迍讍 Ϡᮍ󺠱뮍報溍󠭳箠Ʈ 嬠宍Šſ  LL1LHL^LsLHHH0L(hhh`s8U9V`@6DS` uiȩiȩi`HNO@ hLHHH E h(hh`,0`"# E h(hh`,0`"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::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):          @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`          򠲵̮̮򠲵̮򠲵̮讍젨젨򳬳Ҡ宠Ԡ쬠    嬠 ᬠî󠴮Ӡ謠堸Ӡ嬠Ԡ鬠 TVRP 2{yzyyyzzzy d'8z,z z, z,- (-z ({ 0 LQQS X`hL ***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!! ! ! ! ! !!!!!!!!!        ®î堵®î®î"䮍󠴮䠴ﬠ󺍴󍱵󍴠®î堢碮"", 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"" " " " " """"