Notes

Disk info for disk070.dsk:

File Name: ri_apple_group_crate_001_disks_070/disk070.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 8704
Used Space (bytes): 134656
Physical Size (KB): 140
Free Space (KB): 8
Used Space (KB): 131
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 34
Used Sectors: 526
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for disk070.dsk:

ri_apple_group_crate_001_disks_070/disk070.dsk DISK VOLUME #254
A 015 HELLO
* A 048 BIRTHDATES
* A 034 ASTRO QUIZ
* B 002 ASTRO ROUTINES
* B 033 B
* T 002 CHANGE TO FOTO AD
* B 010 CHARACTER GENERATOR
T 002 D
* T 002 F
* B 002 GENERAL ROUTINES
* A 022 HANGMAN
* B 034 HANGMAN LOGO
* T 006 LENGTH INDEX
* B 002 LO-RES PATTERN
* B 034 LOGO
* A 011 MAIN MENU
* T 002 NEW F
* T 117 OUTFILE
* B 003 P
* T 003 Q1
* T 003 Q10
* T 003 Q11
* T 003 Q12
* T 004 Q13
* T 002 Q14
* T 003 Q15
* T 003 Q16
* T 003 Q17
* T 003 Q18
* T 003 Q19
* T 003 Q2
* T 003 Q20
* T 004 Q21
* T 004 Q22
* T 003 Q23
* T 004 Q24
* T 005 Q25
* T 003 Q3
* T 003 Q4
* T 003 Q5
* T 003 Q6
* T 003 Q7
* T 003 Q8
* T 004 Q9
DOS 3.3 format; 8,704 bytes free; 134,656 bytes used.

Text found in disk070.dsk/ASTRO QUIZ.bas:

10 LOMEM: 24577:IN$ = "X":D$ = CHR$(4)
20 REM ONERR PATCH :- h STORE h RESUME SIN SHLOAD H ROT= H` HGR2
30 HC = 14728:DR = 1002:MU = 768:OE = 2097:PS = 14081:IL = 2107:SI = 771:IP = 774:TX = 14117: ONERR GOTO 10000
40 CALL DR: PRINT : PRINT D$"BLOAD ASTRO ROUTINES"
50 SPEED= 255: NORMAL :KB = -16384:SB = -16368:SP = -16336:S1$ = CHR$(32):S2$ = CHR$(160):CC = 35
60 DIM AN$(6),SC$(CC),CN$(7),CH$(7)
70 FOR I = 0 TO CC: READ SC$(I): NEXT : FOR I = 1 TO 7: READ CN$(I): NEXT
80 DATA "Come on... you can do better than that!","See if you can do better on the next one.","Could be worse...","Okay..."
90 DATA "It's tougher than it looks, isn't it?","Fair","Not bad at all.","You're doing okay.","That's just fine."
100 DATA "Quite a good score.","Fine.","You should like the next one.","You're really doing very well.","Great!"
110 DATA "You'll certainly find the rest of our exhibits interesting.","You know, you'd make a good astronomer."
114 DATA "You have a pretty good grasp of astronomy.","You're bound to understand our planetarium show."
116 DATA "That's a good score - keep it up!","Is astronomy one of your hobbies?","Hey, how about that!"
118 DATA "You'd probably do very well in an astronomy course at school.","Whew, you're pretty good!","Hot-shot!"
120 DATA "Do you want a job?","Fantastic!","Boy, you're really eating this up, aren't you?","Brilliant!"
130 DATA "Wow! You really know your stuff!!","Don't tell the staff - they might start to worry.","What can I say...?"
140 DATA "Carl Sagan, eat your heart out...","Dynamite!!!","You know almost as much about this as I do!"
150 DATA "You're the best we've had in some time.","Are you sure you're not Carl Sagan?"
160 DATA first,second,third,fourth,fifth,sixth,seventh
170 NQ = 25: DIM E%(NQ): FOR I = 1 TO NQ:E%(I) = I: NEXT
180 DEF FN A(X) = INT( SQR(X *2) -1)
190 GOSUB 20000:SC = 0:TL = 0:RR = 0:TS = 0:TR = 0:VS = 0
200 FOR I = 1 TO NQ:J = USR(NQ) +1:K = USR(NQ) +1
210 TM = E%(J):E%(J) = E%(K):E%(K) = TM: NEXT
220 TL = TL +1: IF TL >NQ THEN 9000
230 QN = E%(TL)
240 GOSUB 700: PRINT : PRINT D$"OPEN Q"QN: PRINT D$"READ Q"QN: INPUT NC,TN,MW,AN,HQ: PRINT D$"READ Q"QN
250 CALL IP:S$ = MID$ (IN$,1): FOR I = 1 TO NC: CALL IP:CH$(I) = MID$ (IN$,1): NEXT
260 FOR I = 1 TO AN: CALL IP:AN$(I) = MID$ (IN$,1): NEXT : PRINT D$"CLOSE"
270 CALL HC: HOME : CALL TX:NT = 0
280 FOR I = 1 TO NC: VTAB 3 +I *3: HTAB 4: PRINT ""I" ";
290 S$ = CH$(I): CALL TX: NEXT
300 VTAB 23: HTAB 1: PRINT "Which one (1 - "NC")? ";: GOSUB 800
310 NI = 0: GOSUB 2200: IF NM <1 OR NM >NC THEN 300
320 NT = NT +1: IF NM = TN THEN 370
330 VTAB 23:S$ = "Wrong Answer!!": GOSUB 5500
340 FOR I = 1 TO 120: POKE 254,0: POKE 255,10: CALL MU: NEXT
350 IF NT > = MW THEN RR = 0: GOTO 400
360 FOR I = 1 TO 1000: NEXT : GOTO 300
370 N = 5 *(4 -NT): IF N <5 THEN N = 5
373 VTAB 23:S$ = "Correct!!!": GOSUB 5500: FOR I = 1 TO N
375 POKE 255,50: POKE 254,128: CALL MU: NEXT :RR = RR +1:TR = TR +1
380 CALL SI: FOR I = 1 TO N: POKE 255,50: POKE 254,129: CALL MU: NEXT
390 CALL SI: FOR I = 1 TO N: POKE 255,50: POKE 254,130: CALL MU: NEXT : FOR I = 1 TO 1000: NEXT
400 PRINT CHR$(128);: HOME : PRINT TN". ";
404 FOR I = 1 TO AN: IF PEEK(37) = 0 THEN 410
407 TM = PEEK(36): PRINT : IF TM < >1 THEN PRINT
410 HTAB 5:S$ = AN$(I): CALL TX: NEXT : FOR I = 1 TO 1000: NEXT
414 ON QN GOSUB 14000,14000,14000,14000,14100,14000,14000,14000,14000,14000,14000,14000,14000,14000,14000
415 IF QN < = 15 THEN 420
416 ON QN -15 GOSUB 14000,14000,14000,14000,14000,14000,14000,14000,14000,14000
420 VTAB 24: HTAB 1:S$ = "Press RETURN to continue ": GOSUB 5000
430 GOSUB 1600: PRINT CHR$(128);: VTAB 2: HTAB 5:TS = TS +3 +HQ + FN A(TL)
440 PRINT "Your score is:- "SC"": IF NM < >TN THEN 580
450 VTAB 5: HTAB 1
460 S$ = "You got the right answer on your ": IF NT = 1 THEN S$ = S$ +""
470 S$ = S$ +CN$(NT): CALL TX: IF NT = 1 THEN S$ = "": CALL TX: CALL PS
480 S$ = " attempt.": CALL TX:N = 4 -NT: IF N <1 THEN N = 1
490 VTAB 8: HTAB 1:S$ = "For that, you get " + STR$(N) +" point": IF N >1 THEN S$ = S$ +"s"
495 S$ = S$ +", " +NM$ +".": FOR I = 1 TO 200: NEXT
500 CALL TX: IF NOT HQ THEN 530
510 VTAB 11: HTAB 1:S$ = "Plus 1 point for answering a really hard question, " +NM$ +"."
520 CALL TX:N = N +1: FOR I = 1 TO 200: NEXT
530 IF RR <2 THEN 560
540 N = N + FN A(RR)
545 VTAB 14: HTAB 1:S$ = "Plus " + STR$( FN A(RR)) +" point": IF FN A(RR) >1 THEN S$ = S$ +"s"
550 S$ = S$ +" for correctly answering " + STR$(RR) +" questions in a row, " +NM$ +".": CALL TX: FOR I = 1 TO 200: NEXT
560 FOR I = SC +1 TO SC +N: VTAB 2: HTAB 21: PRINT ""I"": POKE 255,128: POKE 254,128 +I -SC: CALL MU: NEXT
570 SC = SC +N:VS = VS +N
572 N = INT((VS/TS) ^1.3 *CC): IF TS <8 AND VS >4 THEN N = N -1
574 IF NT = 1 THEN N = N +2:VS = VS +5: IF N >CC THEN N = CC
576 IF NT >2 THEN N = N -2:VS = VS -5: IF N <0 THEN N = 0
577 N = N +(N 0.5) -(N >0) *( USR(1) >0.5)
578 IF N = LC THEN N = N +(N = 0) -(N = CC) +(N 0) *( USR(1) >0.5 -( USR(1) <0.5)): IF TL = 1 THEN 580
579 VTAB 18: HTAB 1:S$ = SC$(N): CALL TX: IF VS >TS THEN VS = INT(TS *.95)
580 FOR I = 1 TO 2000: NEXT :LC = N: IF VS <0 THEN VS = INT(TS *.05)
590 PRINT CHR$(128);: VTAB 5: HTAB 1:S$ = "Would you like to continue, " +NM$ +"? ": CALL TX
610 VTAB 9: HTAB 1: PRINT "Type Y for Yes or N for No: ";: GOSUB 800
620 NI = 0: GOSUB 2100: IF A$ < >"Y" AND A$ < >"N" THEN 610
630 IF A$ = "Y" THEN 220
640 GOTO 8000
700 POKE 54,189: POKE 55,158: RETURN
800 TM = 40 - PEEK(36): PRINT SPC( TM);: FOR I = 1 TO TM: PRINT CHR$(8);: NEXT : RETURN
1200 POKE SB,0: GET A$:P = ASC(A$): RETURN
1300 GOSUB 1200: IF (P < ASC("0") OR P > ASC("9")) AND P < >13 AND P < >8 THEN 1300
1310 RETURN
1400 GOSUB 1200: IF P <32 AND P < >13 AND P < >8 THEN 1400
1410 RETURN
1500 GOSUB 1200: IF (P < ASC("A") OR P > ASC("Z")) AND P < >13 AND P < >8 THEN 1500
1510 RETURN
1600 POKE SB,0: WAIT KB,128: POKE SB,0: RETURN
2000 IN = 2: GOSUB 3000: RETURN
2100 IN = 3: GOSUB 3000: RETURN
2200 IN = 1: GOSUB 3000:NM = VAL(OU$): RETURN
3000 TM = 1:OU$ = ""
3010 ON IN GOSUB 1300,1400,1500: IF P < >8 THEN 3030
3013 IF TM <2 THEN 3010
3015 IF TM >2 THEN OU$ = LEFT$(OU$, LEN(OU$) -1): GOTO 3019
3017 IF TM = 2 THEN OU$ = ""
3019 GOSUB 4000:TM = TM -1: GOTO 3010
3030 IF P = 13 THEN RETURN
3040 PRINT A$;:OU$ = OU$ +A$: IF TM >NI THEN RETURN
3050 TM = TM +1: GOTO 3010
4000 PRINT CHR$(8)" " CHR$(8);: RETURN
5000 IF LEN(S$) >40 THEN HTAB 1: CALL TX: RETURN
5010 HTAB INT(20 - LEN(S$)/2): PRINT S$: RETURN
5500 HTAB 1: PRINT "" SPC( INT(20 - LEN(S$)/2))S$ SPC( INT(20 - LEN(S$)/2))"";
5510 RETURN
8000 PRINT CHR$(128);: VTAB 4: HTAB 1: PRINT NM$":": VTAB 6: HTAB 1
8010 PRINT "Your final score is:- ";: FOR I = 0 TO SC: VTAB 6: HTAB 23
8020 PRINT ""I"": POKE 255,130: POKE 254,I - INT(I/128) *128 +127
8030 CALL MU: NEXT : IF TR 1 Play 'Professor Astro'":J = 1
8120 VTAB 15: HTAB 15: PRINT "or": VTAB 16: HTAB 3: PRINT "2 Choose a different program"
8130 VTAB 18: HTAB 1: PRINT "Press 1 or 2 to choose: ";: GOSUB 800: POKE SB,0
8140 FOR I = 0 TO 1: FOR K = 1 TO 400: NEXT : VTAB 12 +2 *J: HTAB 3: PRINT ""J"":J = J -1: IF J = 0 THEN J = 2
8150 VTAB 12 +2 *J: HTAB 3: PRINT J:I = ( PEEK(KB) >127): NEXT : VTAB 18: HTAB 25
8160 GET A$: IF A$ = "1" THEN PRINT A$: GOTO 190
8170 IF A$ < >"2" THEN 8130
8180 PRINT A$: GOSUB 700: PRINT : PRINT D$"RUN MAIN MENU"
9000 PRINT CHR$(128);: VTAB 2:S$ = NM$ +", you have done every question we have!": CALL TX: PRINT
9010 PRINT :S$ = "(Some time in the future we will have more questions for you to pit your wits against.)": CALL TX
9020 VTAB 9: HTAB 1:S$ = "Well, now it's time for someone else's turn, " +NM$ +".": CALL TX
9030 FOR I = 1 TO 3000: NEXT :TL = TL -1: GOTO 8000
10000 CALL OE: GOSUB 700: IF PEEK(222) = 255 THEN RUN
10010 TEXT : HOME : NORMAL : SPEED= 255
10020 VTAB 8: PRINT "AN ERROR OF TYPE " PEEK(222)" HAS OCCURRED AT"
10030 PRINT "LINE " PEEK(218) + PEEK(219) *256" IN 'ASTRO QUIZ'."
10040 PRINT "PLEASE INFORM THE MUSEUM STAFF!"
10050 CALL IL: GOTO 10050
14000 RETURN
14100 PRINT : PRINT
14110 HTAB 5: PRINT "Sagittarius ... Dec. 18 - Jan. 18"
14120 HTAB 5: PRINT "Capricornus ... Jan. 19 - Feb. 15"
14130 HTAB 5: PRINT "Aquarius ...... Feb. 16 - Mar. 11"
14140 HTAB 5: PRINT "Pisces ........ Mar. 12 - Apr. 18"
14150 HTAB 5: PRINT "Aries ......... Apr. 19 - May 13"
14160 HTAB 5: PRINT "Taurus ........ May 14 - June 19"
14170 HTAB 5: PRINT "Gemini ........ June 20 - July 20"
14180 HTAB 5: PRINT "Cancer ........ July 21 - Aug. 9"
14190 HTAB 5: PRINT "Leo ........... Aug. 10 - Sep. 15"
14200 HTAB 5: PRINT "Virgo ......... Sep. 16 - Oct. 30"
14210 HTAB 5: PRINT "Libra ......... Oct. 31 - Nov. 22"
14220 HTAB 5: PRINT "Scorpius ...... Nov. 23 - Nov. 29"
14230 HTAB 5: PRINT "Ophiuchus ..... Nov. 30 - Dec. 17"
14240 RETURN
20000 GOSUB 700: PRINT
20003 HGR2 : HCOLOR= 7: CALL HC
20005 HOME :S$ = "Professor Astro": GOSUB 5000: VTAB 6: HTAB 1:S$ = "Welcome to the wonderful world of astronomy. "
20010 CALL TX:S$ = "We're going to see how much you know about the universe!": CALL TX: PRINT
20013 S$ = "There are " + STR$(NQ) +" questions for you in this game, some of them pretty tricky. I'll keep score as we "
20016 CALL TX:S$ = "go along, and you can quit after any question.": CALL TX
20017 PRINT : PRINT :S$ = "Ready? Press RETURN to begin."
20018 CALL TX: POKE SB,0: WAIT KB,128: PRINT CHR$(128);
20019 VTAB 4: HTAB 1:S$ = "Before we start, I'd like to know your first name. "
20020 CALL TX:S$ = "So type in your name and press RETURN: ": CALL TX: GOSUB 800
20030 NI = 25: GOSUB 2000: IF LEN(OU$) = 0 OR OU$ = S1$ OR OU$ = S2$ THEN NM$ = "X": GOTO 20090
20040 J = LEN(OU$) +1: FOR I = 1 TO LEN(OU$): IF MID$ (OU$,I,1) < >S1$ AND MID$ (OU$,I,1) < >S2$ THEN J = I:I = LEN(OU$)
20050 NEXT :OU$ = MID$ (OU$,J, LEN(OU$)):NM$ = LEFT$(OU$,1):TM = 1: IF LEN(OU$) = 0 THEN NM$ = "X": GOTO 20090
20055 IF LEN(OU$) <2 THEN 20090
20060 FOR I = 2 TO LEN(OU$):A$ = MID$ (OU$,I,1): IF ASC(A$) >64 AND ASC(A$) <91 AND TM = 1 THEN A$ = CHR$( ASC(A$) +32)
20070 NM$ = NM$ +A$:TM = 1: IF ASC(A$) <65 OR ASC(A$) >122 OR ( ASC(A$) >90 AND ASC(A$) <97) THEN TM = 0
20080 NEXT
20090 VTAB 11: HTAB 1:S$ = "Nice to meet you, " +NM$ +"!": CALL TX: FOR I = 1 TO 2500: NEXT : PRINT CHR$(128);
20100 VTAB 5: HTAB 1
20110 S$ = "Do you want instructions, " +NM$ +" (please type Y for Yes or N for No)? ": CALL TX: GOSUB 800
20120 NI = 0: GOSUB 2100:A$ = LEFT$(OU$,1)
20130 IF A$ < >"Y" AND A$ < >"N" THEN 20100
20140 IF A$ = "N" THEN RETURN
20150 PRINT CHR$(128);: HOME
20160 S$ = "I am going to give you a multiple choice quiz about astronomy. ": CALL TX
20170 S$ = "I will ask a question, and give a number of possible answers, only one of which is correct. ": CALL TX
20180 PRINT : PRINT :S$ = "After you have entered your choice, I will tell you whether you are right or wrong. "
20190 CALL TX:S$ = "You may have more than one chance to get the right answer. ": CALL TX
20200 PRINT : PRINT :S$ = "After you have answered the question, I will give you some brief information ": CALL TX
20210 S$ = "about that particular topic.": CALL TX: PRINT : PRINT :S$ = "Your score will be shown at "
20220 S$ = S$ +"the end of each question, and you will be able to stop whenever you wish.": CALL TX
20230 VTAB 23: HTAB 1: PRINT "Press RETURN to begin...";: GOSUB 1600: RETURN
30000 REM ******************************
30010 REM * PROGRAMS AND ORIGINAL *
30020 REM * DATA FILES (C) COPYRIGHT *
30030 REM * PETER J. SCOTT AND *
30040 REM * GRIFFITH OBSERVATORY, 1983 *
30050 REM ******************************

Text found in disk070.dsk/BIRTHDATES.bas:

10 LOMEM: 24577:D$ = CHR$(4)
20 REM ONERR PATCH :- h STORE h RESUME SIN SHLOAD H ROT= H` HGR2
30 HC = 14728:DR = 1002:MU = 768:OE = 2090:IL = 2100:PS = 14081:TX = 14117: SPEED= 255: NORMAL : ONERR GOTO 10000
50 DIM MA$(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)
60 S1$ = CHR$(32):S2$ = CHR$(128 +32): FOR I = 0 TO 11: READ MA$(I),ML%(I),MN$(I): NEXT
80 DATA JAN,31,January,FEB,28,February,MAR,31,March,APR,30,April,MAY, 31,May,JUN,30
90 DATA June,JUL,31,July,AUG,31,August,SEP,30,September,OCT, 31,October,NOV,30,November,DEC,31,December
100 FOR I = 0 TO 6: READ WD$(I): NEXT : FOR I = 0 TO 24: READ BT%(I,0),BT%(I,1): NEXT
110 DATA Saturday,Sunday,Monday,Tuesday,Wednesday,Thursday,Friday
130 DATA 129,95,129,31,115,127,129,127,95,127,101,255,129,95,129,31
140 DATA 115,127,129,127,85,127,95,255,129,95,129,31,63,127,77,127
150 DATA 95,127,101,127,115,255,72,95,72,31,77,127,95,127,85,127,95,255
160 FOR I = 0 TO 8: READ PY(I): NEXT : FOR I = 0 TO 11: READ JM$(I): NEXT
170 DATA 87.9685, 224.7007, 365.2422, 686.9804, 4332.587, 10759.2624, 30685.2316, 60189.4527, 90737.1925
180 DATA Tishri,Heshvan,Kislev,Tebet,Shebat,Adar,Nisan,Iyyar,Sivan,Tammuz,Ab,Elul
190 FOR I = 0 TO 4: READ MC$(I): NEXT : DATA good,nice,fine,great,rotten
200 FOR I = 0 TO 7: FOR J = 0 TO 7: READ PM%(I,J): NEXT : NEXT
210 DATA -11,-12,0,0,0,0,-6,-5,0,17,0,-2,0,-3,0,18,0,12,0,-21,0,-21,0,5
220 DATA 16,12,9,-21,8,-21,15,5,11,12,-21,-21,-21,-21,6,5
230 DATA 11,14,-21,2,-21,3,6,13,11,0,-21,0,-21,0,6,0,20,0,-9,0,-8,0,19,0
240 FOR I = 0 TO 11: READ CY$(I): NEXT : FOR I = 0 TO 8: READ PN$(I): NEXT
250 DATA boar,dog,rooster,monkey,sheep,horse,snake,dragon,hare,tiger,ox,rat
260 DATA Mercury,Venus,Earth,Mars,Jupiter,Saturn,Uranus,Neptune,Pluto
265 M4 = 29.53059:EY = 365.2422:KB = -16384:SB = -16368:A2 = 99:P1 = 11:B2 = 50:YS = 67:X2 = 151:A1 = 184
270 GOSUB 700: PRINT D$"OPEND": PRINT D$"READD": INPUT YT,MT,DT: PRINT D$"CLOSE"
290 GOSUB 20000: PRINT CHR$(128);: HOME : GOSUB 700: PRINT : PRINT D$"TXDUMPF": VTAB 7: HTAB 1
310 S$ = "Now it's time for someone else's turn, " +NM$ +".": CALL TX
320 VTAB 12: HTAB 1: PRINT "New player: would you like to:-"
330 VTAB 14: HTAB 3: PRINT "1 Enter your birthdate":J = 1
340 VTAB 15: HTAB 15: PRINT "or": VTAB 16: HTAB 3: PRINT "2 Choose a different program"
350 VTAB 18: HTAB 1: PRINT "Press 1 or 2 to choose: ";: GOSUB 800: POKE SB,0
360 FOR I = 0 TO 1: FOR K = 1 TO 400: NEXT : VTAB 12 +2 *J: HTAB 3: PRINT ""J"":J = J -1: IF J = 0 THEN J = 2
370 VTAB 12 +2 *J: HTAB 3: PRINT J:I = ( PEEK(KB) >127): NEXT : VTAB 18: HTAB 25
375 GET A$: IF A$ = "1" THEN PRINT A$: GOTO 290
377 IF A$ < >"2" THEN 350
380 PRINT A$: GOSUB 700: PRINT : PRINT D$"RUNMAIN MENU"
400 PRINT CHR$(8) +" " + CHR$(8);: RETURN
500 M = M +1: GOSUB 3900:Y0 = INT(.4 *M +2.3)
510 YD = D +31 *(M -1) +( -Y0 +Y1 -Y2 +Y3) *(M >2)
520 JD = INT(365.25 *(Y -1)) - INT((Y -1)/100) + INT((Y -1)/400) +1721425 +YD: RETURN
600 E(0) = INT((JD -1867216.25)/36524.25):E(0) = JD +1 +E(0) - INT(E(0)/4)
610 E(0) = E(0) +1524:E(1) = INT((E(0) -122.1)/365.25):E(2) = INT(365.25 *E(1))
620 E(3) = INT((E(0) -E(2))/30.6001):D = E(0) -E(2) - INT(30.61 *E(3))
630 Y = E(1) -4716:M = E(3) -1: IF M >12 THEN M = M -12:Y = Y +1
640 M = M -1: RETURN
700 POKE 54,189: POKE 55,158: RETURN
800 TM = 39 - PEEK(36): PRINT SPC( TM);: FOR I = 1 TO TM: PRINT CHR$(8);: NEXT : RETURN
900 TM = 0:S$ = "": IF N <0 THEN N = -N:TM = 1
910 S$ = STR$( INT(N)) +".":M5 = INT((N - INT(N)) * INT(10 ^ND) +.50001):MM = N
920 IF M5 < INT(10 ^ND) THEN TM$ = STR$(M5): GOTO 940
930 S$ = STR$( INT(N) +1) +".":TM$ = STR$( INT(M5 - INT(10 ^ND)))
940 MM = (MM - INT(MM)) *10: IF INT(MM) = 0 AND LEN(TM$) PEEK(36) +1 THEN TM = TM -40:H = H -1: GOTO 1110
1120 IF H <0 THEN POKE 37,(H <0) *24 +H
1130 HTAB PEEK(36) -TM +2: PRINT S$: RETURN
1200 POKE SB,0: GET A$:P = ASC(A$): RETURN
1300 GOSUB 1200: IF (P < ASC("0") OR P > ASC("9")) AND P < >13 AND P < >8 THEN 1300
1310 RETURN
1400 GOSUB 1200: IF P <32 AND P < >13 AND P < >8 THEN 1400
1410 RETURN
1500 GOSUB 1200: IF (P < ASC("A") OR P > ASC("Z")) AND P < >13 AND P < >8 THEN 1500
1510 RETURN
1600 POKE SB,0: WAIT KB,128: POKE SB,0: RETURN
2000 IN = 2: GOSUB 3000: RETURN
2100 IN = 3: GOSUB 3000: RETURN
2200 IN = 1: GOSUB 3000:NM = VAL(OU$): RETURN
2300 FOR I = 1 TO 4: HTAB 38: VTAB 11 +I: PRINT CHR$(64 +I);: NEXT : RETURN
2400 FOR I = 7 TO 10: HTAB 35: VTAB 22 -I: PRINT CHR$(64 +I);: NEXT : RETURN
2700 FOR I = 0 TO 24: POKE 254,BT%(I,0): POKE 255,BT%(I,1): CALL MU: NEXT : RETURN
2800 HOME : POKE -16300,0: POKE -16298,0: POKE -16303,0: VTAB 12: HTAB 10: FLASH : PRINT "ONE MOMENT PLEASE...": NORMAL
2810 GOSUB 700: PRINT D$"BLOADB": POKE -16302,0: POKE -16299,0: POKE -16297,0: POKE -16304,0
2830 VTAB 11: HTAB INT(20 - LEN(NM$)/2) +3: PRINT "" +N2$ +"";: RETURN
2900 XC = 4:X3 = 1:X4 = 3:J = 1:ZC = INT(20/(NC ^.2 +1)) +1: HCOLOR= 4
2910 IF X3 >X4 THEN XC = XC *2:X3 = 1:X4 = XC -1
2920 IF J >NC THEN RETURN
2930 XS = X3: IF J = INT(J/2) *2 THEN XS = X4
2940 X1 = A1/XC *XS -A1/2
2950 Y1 = YS +P1 - USR(1) *B2/A2 * SQR(A2 *A2 -X1 *X1)
2960 HPLOT X1 +X2,Y1 TO X1 +X2,Y1 -ZC:J = J +1: IF J = INT(J/2) *2 THEN X3 = X3 +2: GOTO 2910
2970 X4 = X4 -2: GOTO 2910
3000 TM = 1:OU$ = ""
3010 ON IN GOSUB 1300,1400,1500: IF P < >8 THEN 3030
3013 IF TM <2 THEN 3010
3015 IF TM >2 THEN OU$ = LEFT$(OU$, LEN(OU$) -1): GOTO 3019
3017 IF TM = 2 THEN OU$ = ""
3019 GOSUB 400:TM = TM -1: GOTO 3010
3030 IF P = 13 THEN RETURN
3040 PRINT A$;:OU$ = OU$ +A$: IF TM >NI THEN RETURN
3060 TM = TM +1: GOTO 3010
3900 Y1 = 0:Y2 = 0:Y3 = 0: IF (Y/4 - INT(Y/4)) = 0 THEN Y1 = 1
3910 IF (Y/100 - INT(Y/100)) = 0 THEN Y2 = 1
3920 IF (Y/400 - INT(Y/400)) = 0 THEN Y3 = 1
3930 LY = Y1 -Y2 +Y3: RETURN
4000 D = 5:M = 1:Y = YB: GOSUB 500: GOSUB 4200: IF MO >15 THEN JD = JD +30 -MO: GOTO 4030
4020 IF MO <15 THEN JD = JD -MO
4030 GOSUB 600: GOSUB 500:TM = 1983 -YB +(IB 10 THEN RETURN
4310 TM = D - INT(D/10) *10: IF TM = 1 THEN DN$ = "st": RETURN
4320 IF TM = 2 THEN DN$ = "nd": RETURN
4330 IF TM = 3 THEN DN$ = "rd"
4340 RETURN
4500 E(9) = JD:Y = INT(JD/365.2468 -951.75)
4510 GOSUB 4700: IF JD >E(9) THEN Y = Y -1: GOTO 4510
4520 IF E(9) > = JD +E(8) THEN Y = Y +1: GOTO 4510
4530 E(1) = E(9) -JD +1:E(3) = E(1)
4540 E(2) = E(8) - INT(E(8)/10) *10: IF E(2) = 5 AND E(1) >59 THEN E(1) = E(1) -1
4550 IF E(2) = 3 AND E(1) >88 THEN E(1) = E(1) +1
4560 IF E(8) >380 AND E(1) >177 THEN E(1) = E(1) -.5
4570 M = INT((E(1) -.6)/29.5) +1:D = INT(E(1) -29.5 *(M -1))
4580 IF E(2) = 5 AND E(3) = 60 OR E(8) >380 AND E(1) = 177.5 THEN D = 30
4590 JD = E(9): IF E(8) <380 OR M <7 THEN S$ = JM$(M -1): GOTO 4620
4600 IF M = 7 THEN S$ = "Veadar": GOTO 4620
4610 S$ = JM$(M -2)
4620 S$ = S$ +" " + STR$(D): GOSUB 4300:S$ = S$ +DN$ +" "
4630 S$ = S$ + STR$(Y): GOSUB 5500: RETURN
4700 Y = Y +1: GOSUB 4800:E(8) = JD:Y = Y -1: GOSUB 4800:E(8) = E(8) -JD: RETURN
4800 DEF FN A(C) = C - INT(C/7) *7:E(0) = INT((Y -1)/19)
4810 E(1) = Y -1 -E(0) *19:E(2) = 7 *E(1) +1:E(3) = INT(E(2)/19)
4820 E(2) = E(2) -E(3) *19:E(3) = 12 *E(1) +E(3)
4830 E(4) = 6939 *E(0) +29 *E(3) +2:E(5) = 17875 *E(0) +13753 *E(3) +5604
4840 E(6) = INT(E(5)/25920):E(4) = E(4) +E(6):E(5) = E(5) -E(6) *25920
4850 E(6) = 19440:E(7) = FN A(E(4)): IF E(2) <7 AND E(7) = 2 THEN E(6) = 16789
4860 IF E(2) <12 AND E(7) = 3 THEN E(6) = 9924
4870 IF E(5) > = E(6) THEN E(4) = E(4) +1:E(7) = FN A(E(4))
4880 IF E(7) = 1 OR E(7) = 4 OR E(7) = 6 THEN E(4) = E(4) +1:E(7) = FN A(E(4))
4890 JD = E(4) +347996: RETURN
4900 S$ = MN$(M) +" ": IF LEN( STR$(D)) = 1 THEN S$ = S$ +" "
4910 S$ = S$ + STR$(D) +" " + STR$(Y): RETURN
5500 IF LEN(S$) >40 THEN HTAB 1: PRINT "";: CALL TX: PRINT "";: RETURN
5510 HTAB INT(20 - LEN(S$)/2): PRINT "" +S$ +"": RETURN
10000 CALL OE: GOSUB 700: IF PEEK(222) = 255 THEN RUN
10010 TEXT : HOME : NORMAL : SPEED= 255
10020 VTAB 8: PRINT "AN ERROR OF TYPE " PEEK(222)" HAS OCCURRED AT"
10030 PRINT "LINE " PEEK(218) + PEEK(219) *256" IN 'BIRTHDATES'."
10040 PRINT "PLEASE INFORM THE MUSEUM STAFF!"
10045 POKE 214,0: STOP
10050 CALL IL: GOTO 10050
20000 HGR2 : HCOLOR= 7
20010 CALL HC: CALL DR: VTAB 3: HTAB 14: PRINT "BIRTHDATES"
20020 VTAB 7: HTAB 1:S$ = "Hi there! I'm going to tell you some things about your birthday "
20030 CALL TX:S$ = "that I'll bet you didn't even know yourself!": CALL TX
20040 VTAB 11: HTAB 1:S$ = "First, I need to know your name. ": CALL TX
20060 S$ = "Type in the letters, and then press the RETURN key.": CALL TX
20070 VTAB 15: HTAB 1: PRINT "So, what's your name? ";: GOSUB 800
20075 NI = 25: GOSUB 2000: IF LEN(OU$) = 0 OR OU$ = S1$ OR OU$ = S2$ THEN NM$ = "X":N2$ = NM$: GOTO 20120
20080 J = LEN(OU$) +1: FOR I = 1 TO LEN(OU$): IF MID$ (OU$,I,1) < >S1$ AND MID$ (OU$,I,1) < >S2$ THEN J = I:I = LEN(OU$)
20085 NEXT :OU$ = MID$ (OU$,J, LEN(OU$)):N2$ = OU$:NM$ = LEFT$(OU$,1):TM = 1: IF LEN(OU$) <2 THEN 20120
20100 FOR I = 2 TO LEN(OU$):A$ = MID$ (OU$,I,1): IF ASC(A$) >64 AND ASC(A$) <91 AND TM = 1 THEN A$ = CHR$( ASC(A$) +32)
20110 NM$ = NM$ +A$:TM = 1: IF ASC(A$) <65 OR ASC(A$) >122 OR ( ASC(A$) >90 AND ASC(A$) <97) THEN TM = 0
20115 NEXT
20120 VTAB 18: HTAB 1:S$ = "Nice to meet you, " +NM$ +"!"
20130 CALL TX: PRINT : FOR I = 1 TO 2500: NEXT
20140 PRINT CHR$(128);: HOME :S$ = "Now, I need to know your birthdate, " +NM$ +". ": CALL TX
20150 VTAB 4: HTAB 1:S$ = "First, in what YEAR you were born (type in all "
20160 CALL TX:S$ = "four digits, e.g. '1974')? ": CALL TX: GOSUB 800
20180 NI = 3: GOSUB 2200:YB = VAL(OU$): IF YT -YB >115 THEN YO = YT -YB -1: GOTO 20480
20182 IF YB < = YT THEN 20190
20184 PRINT CHR$(128);: VTAB 9: HTAB 1:S$ = "Now, that can't be right, can it? We are currently in "
20186 CALL TX:S$ = STR$(YT) +", which means you haven't been born yet! ": CALL TX
20188 S$ = "Please try again!": CALL TX: FOR I = 1 TO 2500: NEXT : GOTO 20140
20190 VTAB 7: HTAB 1:S$ = "Great! Now, I need to know the MONTH in which you were "
20200 CALL TX:S$ = "born. Just type in the first three letters of "
20210 CALL TX:S$ = "the month (e.g. 'APR' for April): ": CALL TX: GOSUB 800
20230 NI = 2: GOSUB 2100:M$ = OU$:J = -1: IF LEN(M$) < >3 THEN 20190
20240 FOR I = 0 TO 11: IF M$ = MA$(I) THEN J = I:I = 11
20250 NEXT : IF J > = 0 THEN MB = J: GOTO 20300
20260 VTAB 12: HTAB 1:S$ = M$ +" doesn't seem to be a month that I can recognise."
20270 CALL TX:S$ = " JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, ": CALL TX
20280 S$ = "OCT, NOV and DEC are the only months I know. Please try again.": CALL TX
20290 FOR I = 1 TO 3000: NEXT : FOR J = 12 TO 16: VTAB J: HTAB 1: GOSUB 800: NEXT : GOTO 20190
20300 VTAB 12: HTAB 1:S$ = MN$(MB) +" was certainly a " +MC$( USR(4) +( USR(1) >.99))
20305 S$ = S$ +" month to be born in, wasn't it?": CALL TX
20310 VTAB 15: HTAB 1:S$ = "Finally, I need to know the day of the month you were "
20320 CALL TX:S$ = "born on. Just type in the digits (e.g. '25'),"
20330 CALL TX:S$ = " and then press the RETURN key: ": CALL TX: GOSUB 800
20350 NI = 1: GOSUB 2200:DB = NM: IF DB = 0 THEN 20390
20360 IF DB <29 THEN 20420
20370 IF MB < >1 AND DB < = ML%(MB) THEN 20420
20380 IF MB = 1 AND DB = 29 THEN Y = YB: GOSUB 3900: IF LY THEN 20420
20390 VTAB 20: HTAB 1: PRINT "No such day exists! Try again, please.";
20400 FOR I = 1 TO 3000: NEXT : HTAB 1: GOSUB 800: GOTO 20310
20420 Y = YT:M = MT:D = DT: GOSUB 500:JT = JD:IT = YD:Y = YB:M = MB:D = DB: GOSUB 500:JB = JD:IB = YD
20440 YO = 0: IF MT MT) OR (MT = MB AND DB >DT) THEN 20530
20570 GOSUB 2800:NC = YO: GOSUB 2900: GOSUB 700: PRINT
20590 IF MT = MB AND DT = DB THEN GOSUB 2700
20600 FOR I = 1 TO 2000: NEXT : PRINT CHR$(128);: VTAB 3: HTAB 5
20620 DO = JT -JB:JD = JB: GOSUB 4100:WB = WD:JD = JT: GOSUB 4100:WT = WD:D = DT: GOSUB 4300
20640 PRINT "Today's date is": VTAB 5:S$ = WD$(WT) +", " +MN$(MT) +" " + STR$(DT) +DN$ +", " + STR$(YT): GOSUB 5500
20650 D = DB: GOSUB 4300: VTAB 8: HTAB 5: PRINT "You were born on"
20660 VTAB 10:S$ = WD$(WB) +", " +MN$(MB) +" " + STR$(DB) +DN$ +", " + STR$(YB): GOSUB 5500
20670 JD = JB: GOSUB 4200:PB = MO:TI = INT(DO/1000 +1) *1000:TJ = TI +JB
20680 JD = TJ: GOSUB 600:TY = Y:TN = M:TD = D
20690 VTAB 13: HTAB 3: PRINT "On that day, the Moon looked":TM$ = "New"
20700 VTAB 14: HTAB 22: PRINT "like this:": VTAB 16: HTAB 1: PRINT "(";
20710 IF MO >15 THEN MO = MO -15:TM$ = "Full"
20720 IF MO = 0 THEN PRINT "a "TM$" Moon)": GOTO 20750
20730 PRINT MO" day";: IF MO >1 THEN PRINT "s";
20740 PRINT " after the last "TM$" Moon)"
20750 PH = INT(PB/M4 *7 +.5): PRINT "";: IF PH <8 AND PH >3 THEN GOSUB 2400
20760 IF PH <5 AND PH >0 THEN GOSUB 2300
20770 IF PH = 0 THEN PRINT "";: GOSUB 2300: GOSUB 2400: PRINT "";
20780 FOR I = 0 TO 7: VTAB 13 + INT(I/2 -1): HTAB 36 +(I < > INT(I/2) *2)
20790 IF PM%(PH,I) <0 THEN PRINT "";
20800 IF PM%(PH,I) = -21 THEN PRINT " ": GOTO 20820
20810 PRINT CHR$(64 + ABS(PM%(PH,I)));
20820 IF PM%(PH,I) <0 THEN PRINT "";
20830 NEXT : PRINT "";
20840 VTAB 21:S$ = "Press RETURN when ready to continue": GOSUB 5500
20850 GOSUB 1600: PRINT CHR$(128);: VTAB 2: HTAB 5
20860 PRINT "In the Jewish calendar,": VTAB 3: HTAB 5:JD = JB
20870 PRINT "you were born on": VTAB 5: GOSUB 4500: VTAB 7: HTAB 5: PRINT "which was in the Chinese year of"
20890 S$ = "the ": VTAB 9: GOSUB 4000: VTAB 12: HTAB 5
20900 PRINT "You are now exactly": VTAB 14:S$ = STR$(DO): GOSUB 5500
20910 IF DO = TI -1000 THEN CALL PS
20920 VTAB 16: HTAB 5: PRINT "day";: IF DO < >1 THEN PRINT "s";
20930 PRINT " old. You will be exactly": VTAB 17: HTAB 5
20940 PRINT "";TI;" days old on ":D = TD: GOSUB 4300: PRINT
20950 JD = TJ: GOSUB 4100:S$ = WD$(WD) +", " +MN$(TN) +" " + STR$(TD) +DN$ +", " + STR$(TY)
20960 GOSUB 5500: VTAB 22: HTAB 2: PRINT "Press RETURN to see your age on each"
20970 HTAB 2: PRINT "planet of the Solar System": GOSUB 1600
20980 FL = 0:NC = 0: FOR I = 8 TO 0 STEP -1: IF I = 2 OR INT(DO - INT(DO/PY(I)) *PY(I)) < >0 THEN 20990
20985 FL = FL *10 +I +1: IF NC = 0 THEN NC = INT(DO/PY(I))
20990 NEXT :TM = FL - INT(FL/10) *10: IF NOT FL THEN 21030
21000 GOSUB 2800:S$ = "You have ": IF FL >9 THEN S$ = S$ +"birthdays on " +PN$(TM -1): GOTO 21015
21005 S$ = S$ +"a birthday on " +PN$(TM -1) +" today!": GOTO 21025
21010 IF FL = 0 THEN 21025
21015 FL = INT(FL/10):TM = FL - INT(FL/10) *10: IF FL <10 THEN S$ = S$ +" and " +PN$(FL -1) +" today!": GOTO 21025
21020 S$ = S$ +", " +PN$(TM -1): GOTO 21010
21025 VTAB 1: PRINT "";: GOSUB 5500: PRINT "";: GOSUB 2900: GOSUB 2700: FOR I = 1 TO 3000: NEXT
21030 PRINT CHR$(128);:S$ = "Each planet takes a different amount of ": CALL TX
21040 S$ = "time to go around the Sun, and so each planet's 'year' is a different length."
21050 CALL TX: VTAB 5: HTAB 1:S$ = "Here is your age and the date of your "
21060 CALL TX:S$ = "next 'birthday' on each planet:-": CALL TX
21070 VTAB 8: HTAB 9: PRINT "Length"; TAB( 17)"Your"; TAB( 27)"Date of"
21080 PRINT TAB( 9)"of year"; TAB( 17)"age in"; TAB( 27)"your next"
21090 PRINT "Planet"; TAB( 9)"(Earth"; TAB( 17)"planet"; TAB( 27)"'birthday'"
21100 PRINT TAB( 9)"years)"; TAB( 17)"years"; TAB( 27)"on planet"
21110 PRINT : FOR I = 0 TO 8: PRINT PN$(I): NEXT : VTAB 13
21120 ND = 2: FOR I = 0 TO 8:N = PY(I)/EY: GOSUB 900: HTAB 14: GOSUB 1100: NEXT
21130 VTAB 13: FOR I = 0 TO 8:FL = 0:N = DO/PY(I): IF I = 2 THEN N = YO +(IT -IB)/EY: IF IB >IT THEN N = N +1
21140 IF I = 2 AND MT = MB AND DB = DT THEN FL = 1: PRINT "";: GOTO 21150
21145 IF INT(DO - INT(DO/PY(I)) *PY(I)) = 0 THEN FL = 1: PRINT "";
21150 GOSUB 900: HTAB 22: GOSUB 1100: IF FL = 1 THEN PRINT "";: CALL PS
21155 NEXT
21160 FOR I = 0 TO 8: IF I < >2 THEN 21180
21170 D = DB:M = MB:Y = YT +1: IF MB = 1 AND D = 29 THEN Y = INT(YT/4 +1) *4
21173 IF (MT Press RETURN to finish": VTAB 24: GOSUB 5500: GOSUB 1600: RETURN

Text found in disk070.dsk/CHANGE TO FOTO AD.txt:

UNLOCK F
DELETE F
UNLOCK NEW F
RENAME NEW F,F
LOCK F

Text found in disk070.dsk/D.txt:

1993,1,11

Text found in disk070.dsk/F.txt:





copy of the information you
have just received may be ordered
from the FOTO counter in the central
rotunda.

Text found in disk070.dsk/HANGMAN.bas:

10 LOMEM: 24577:IN$ = "X":D$ = CHR$(4):T1 = 0
15 REM ONERR PATCH :- h STORE h RESUME SIN SHLOAD H ROT= H` HGR2
20 SPEED= 255: NORMAL : ONERR GOTO 10000
25 OE = 2103:IP = 777:HC = 14728:TC = 771:MU = 768:TD = 774:IL = 2113:TX = 14117
30 DIM C%(25),D%(13,1)
40 S1$ = CHR$(32):S2$ = CHR$(128 +32):KB = -16384:SB = -16368
45 FOR I = 0 TO 13: READ D%(I,0),D%(I,1): NEXT
50 EP = PEEK(176) *256 + PEEK(175):ES = EP -23
55 POKE 232, INT(ES - INT(ES/256) *256)
60 POKE 233, INT(ES/256)
65 VTAB 23: HTAB 13: PRINT "Please wait...": CALL TD
70 PRINT D$"OPEN LENGTH INDEX"
80 PRINT D$"READ LENGTH INDEX"
90 INPUT L: DIM E%(L,1)
100 FOR I = 1 TO L: INPUT TM:E%(I,1) = TM +1: NEXT
120 PRINT D$"CLOSE": GOSUB 5000
130 GOSUB 20030
140 R = USR(L) +1: IF T1 -E%(R,0) 192) OR (AS >224 AND AS <251) THEN PRINT "_";:RM = RM +1: GOTO 345
340 PRINT A$;
345 NEXT : PRINT
350 FOR I = 0 TO 25:C%(I) = 0: NEXT
360 M = 1: GOSUB 500:H = 0: GOSUB 600
370 RM = RM -FL: IF NOT RM THEN 400
380 M = M +1: GOSUB 500: GOSUB 600: IF H = 11 THEN 410
390 GOTO 370
400 GOSUB 900: VTAB 21: HTAB 1
402 PRINT " YOU GOT IT RIGHT!!! ";
405 FOR I = 1 TO 20: PRINT CHR$(7);: NEXT : FOR I = 1 TO 2000: NEXT
410 GOSUB 1100
415 VTAB 16: HTAB 1:S$ = "If there are other people waiting to use the computer, please give them a turn."
417 CALL TX
419 VTAB 21: HTAB 1: PRINT "Another word (Y or N)? ";: GOSUB 800:NI = 0: GOSUB 2000
420 A$ = LEFT$(OU$,1): IF A$ = "N" THEN 9000
430 IF A$ < >"Y" THEN 419
440 GOTO 140
500 VTAB 24: HTAB 1: IF M = 1 THEN PRINT "First letter? ";
510 IF M < >1 THEN PRINT "Next letter? ";: GOSUB 800
520 GOSUB 1000: VTAB 21: HTAB 1: PRINT "Letters used:";: HTAB ( ASC(A$) - ASC("A") +14)
530 PRINT A$;: IF C%( ASC(A$) - ASC("A")) = 1 THEN 500
540 C%( ASC(A$) - ASC("A")) = 1:M = M +1
550 RETURN
600 FL = 0: FOR I = 1 TO LEN(W$):B$ = MID$ (W$,I,1)
610 IF A$ = CHR$( ASC(B$) -128) OR A$ = CHR$( ASC(B$) -160) THEN VTAB 23: HTAB (SP +I -1): PRINT A$:FL = FL +1
620 NEXT
630 IF NOT FL THEN H = H +1: GOSUB 3000
640 RETURN
700 POKE 54,189: POKE 55,158: RETURN
800 TM = 39 - PEEK(36): PRINT SPC( TM);
810 FOR I = 1 TO TM: PRINT CHR$(8);
820 NEXT : RETURN
900 VTAB 21: HTAB 1: PRINT SPC( 39);: HTAB 40: PRINT " ";
910 VTAB 24: HTAB 1: PRINT SPC( 16);
920 RETURN
1000 GOSUB 1200: IF P < ASC("A") OR P > ASC("Z") THEN 1000
1010 PRINT A$;
1020 RETURN
1100 PRINT CHR$(128);: VTAB 3: HTAB 14: PRINT "DEFINITION"
1110 VTAB 6: HTAB SP -1: PRINT W$":"
1120 VTAB 9: HTAB 1:S$ = DF$: CALL TX: RETURN
1200 POKE SB,0: GET A$:P = ASC(A$): RETURN
2000 TM = 1:OU$ = ""
2010 GOSUB 1200: IF P < >8 THEN 2020
2013 IF TM <2 THEN 2010
2015 IF TM >2 THEN OU$ = LEFT$(OU$, LEN(OU$) -1): GOTO 2019
2017 IF TM = 2 THEN OU$ = ""
2019 PRINT CHR$(8) +" " + CHR$(8);:TM = TM -1: GOTO 2010
2020 IF P <32 AND P < >13 THEN 2010
2030 IF P = 13 THEN RETURN
2040 PRINT A$;:OU$ = OU$ +A$
2050 IF TM >NI THEN RETURN
2060 TM = TM +1: GOTO 2010
3000 ON H GOTO 3020,3040,3060,3080,3100,3120,3140,3160,3220,3240,3260
3020 HPLOT 30,145 TO 110,145: POKE 254,15: POKE 255,15: CALL MU
3030 RETURN
3040 HPLOT 70,145 TO 70,20: POKE 254,20: POKE 255,17: CALL MU
3050 RETURN
3060 HPLOT 50,145 TO 70,125: POKE 254,30: POKE 255,19: CALL MU
3070 RETURN
3080 HPLOT 90,145 TO 70,125: POKE 254,45: POKE 255,21: CALL MU
3090 RETURN
3100 HPLOT 70,20 TO 130,20: POKE 254,65: POKE 255,23: CALL MU
3110 RETURN
3120 HPLOT 70,40 TO 90,20: POKE 254,90: POKE 255,25: CALL MU
3130 RETURN
3140 HPLOT 130,20 TO 130,50: POKE 254,120: POKE 255,27: CALL MU
3150 RETURN
3160 PI = 3.141592654: FOR TH = 0 TO PI *1.1/4 STEP PI/25
3170 X1 = 10 * COS(TH):Y1 = 10 * SIN(TH): HPLOT 130 +X1,60 +Y1
3180 HPLOT 130 -X1,60 +Y1: HPLOT 130 -X1,60 -Y1: HPLOT 130 +X1,60 -Y1
3190 HPLOT 130 -Y1,60 -X1: HPLOT 130 +Y1,60 -X1: HPLOT 130 +Y1,60 +X1
3200 HPLOT 130 -Y1,60 +X1: NEXT : POKE 254,155: POKE 255,29
3210 CALL MU: RETURN
3220 HPLOT 130,70 TO 130,110: POKE 254,195: POKE 255,31: CALL MU
3230 RETURN
3240 HPLOT 120,90 TO 130,80 TO 140,90: POKE 254,240: POKE 255,33
3250 CALL MU: RETURN
3260 HPLOT 120,120 TO 130,110 TO 140,120
3270 FOR I = 0 TO 13: POKE 254,D%(I,0): POKE 255,D%(I,1)
3280 CALL MU: NEXT : SCALE= 1: ROT= 0
3290 DRAW 1 AT 130,59: DRAW 2 AT 128,62
3300 HCOLOR= 2: DRAW 1 AT 128,54: DRAW 1 AT 134,54
3305 GOSUB 900
3310 VTAB 21: HTAB 1: PRINT "You lose! The word was:- ";
3320 VTAB 23: HTAB SP: PRINT ""W$"";
3330 FOR I = 1 TO 5000: NEXT
3340 RETURN
5000 FOR I = 1 TO L:E%(I,0) = - INT(L/2) -1: NEXT
5010 RETURN
9000 CALL HC: VTAB 10: HTAB 1
9010 PRINT "New player: would you like to:- "
9020 VTAB 12: HTAB 3: PRINT "1 Continue with Hangman":J = 1
9030 VTAB 13: HTAB 15: PRINT "or": VTAB 14: HTAB 3: PRINT "2 Choose a different program"
9040 VTAB 16: HTAB 1: PRINT "Press 1 or 2 to choose: ";: GOSUB 800: POKE SB,0
9050 FOR I = 0 TO 1: FOR K = 1 TO 400: NEXT : VTAB 10 +2 *J
9060 HTAB 3: PRINT ""J"":J = J -1: IF J = 0 THEN J = 2
9070 VTAB 10 +2 *J: HTAB 3: PRINT J:I = ( PEEK(KB) >127): NEXT : VTAB 16: HTAB 25
9080 GET A$: IF A$ = "1" THEN PRINT A$: GOSUB 20000: GOTO 140
9090 IF A$ < >"2" THEN 9040
9100 PRINT A$: GOSUB 700: PRINT : CALL TD: PRINT D$"RUN MAIN MENU"
10000 CALL OE: GOSUB 700
10010 IF PEEK(222) = 255 THEN RUN
10020 TEXT : HOME : NORMAL
10030 VTAB 8: PRINT "AN ERROR OF TYPE " PEEK(222)" HAS OCCURRED AT"
10040 PRINT "LINE " PEEK(218) + PEEK(219) *256" IN 'HANGMAN'."
10050 PRINT "PLEASE INFORM THE MUSEUM STAFF!"
10060 CALL IL: GOTO 10060
20000 GOSUB 700: CALL TD: TEXT : HOME : VTAB 11: HTAB 14: FLASH
20010 PRINT "PLEASE WAIT": NORMAL : PRINT D$"BLOAD HANGMAN LOGO"
20020 POKE -16302,0: POKE -16299,0: POKE -16297,0: POKE -16304,0: FOR I = 1 TO 5000: NEXT
20030 GOSUB 700
20050 HGR2 : HCOLOR= 7: HOME : CALL HC
20060 VTAB 4: HTAB 10: PRINT "Welcome to HANGMAN!": CALL TC
20090 VTAB 8: HTAB 1
20100 S$ = "Would you like instructions (please type Y for Yes or N for No)? ": CALL TX: GOSUB 800
20150 NI = 0: GOSUB 2000:A$ = LEFT$(OU$,1)
20170 IF A$ < >"Y" AND A$ < >"N" THEN 20090
20180 IF A$ = "N" THEN 20460
20190 PRINT CHR$(128);: HOME
20200 S$ = "I will put up a row of dashes, like this: ": CALL TX: PRINT
20210 PRINT
20220 PRINT TAB( 10)"_______________": PRINT
20230 S$ = "Each dash stands for a letter of a hidden astronomical word."
20240 CALL TX: PRINT
20250 PRINT :S$ = "Your task is to find out what that word is. Type a letter, and if that letter "
20260 CALL TX
20270 S$ = "is contained anywhere within the word, I will print it over the proper dash(es). "
20280 CALL TX
20290 S$ = "If the letter you type is wrong, you will be slowly 'hanged'..."
20300 CALL TX: PRINT
20310 PRINT :S$ = "You have a total of 11 chances to be wrong before you will be dead."
20320 CALL TX: PRINT : PRINT
20400 PRINT : PRINT TAB( 10)"Good luck!";
20420 VTAB 24: HTAB 1
20430 S$ = "Press " + CHR$(9) +"RETURN" + CHR$(9) +" to start "
20440 CALL TX: GOSUB 1200
20460 GOSUB 700: RETURN
30000 DATA 192,140,192,140,192,50,192,150,163,100,172,70,172,140,192,90
30010 DATA 192,90,208,80,192,140,192,140,192,50,192,150
40000 REM ******************************
40010 REM * PROGRAM AND ORIGINAL *
40020 REM * DATA FILES (C) COPYRIGHT *
40030 REM * PETER J. SCOTT AND *
40040 REM * GRIFFITH OBSERVATORY, 1983 *
40050 REM ******************************
63999 REM SHAPE TABLE :-
9 7%
63262 CHR$,

Text found in disk070.dsk/HELLO.bas:

10 TEXT : HOME : NORMAL : SPEED= 255
20 D$ = CHR$(4):TX = 14117
30 VTAB 12: HTAB 6: FLASH : PRINT "GRIFFITH OBSERVATORY MUSEUM DISK"
35 NORMAL
36 PRINT : PRINT : PRINT : HTAB 8: PRINT "GRIFFITH OBSERVATORY"
37 HTAB 8: PRINT "2800 EAST OBSERVATORY ROAD"
38 HTAB 8: PRINT "LOS ANGELES, CALIF. 90027"
40 PRINT D$"BLOAD GENERAL ROUTINES"
50 DIM E%(255),M$(11),ML(11),HL$(5)
60 FOR I = 0 TO 11: READ M$(I),ML(I): NEXT
70 DATA JANUARY,31,FEBRUARY,29,MARCH,31,APRIL,30,MAY,31,JUNE
80 DATA 30,JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31
90 DEF FN A(X) = INT(X/16) +1: FOR I = 0 TO 5: READ HL$(I): NEXT
100 FOR I = 6 TO 255:E%(I) = FN A(I): NEXT : FLASH
110 HOME : VTAB 12: HTAB 13: PRINT "SOUND TEST"
120 FOR I = 255 TO 6 STEP -1: POKE 254,I: POKE 255,E%(I): CALL 768: NEXT
130 VTAB 12: HTAB 12: PRINT "MONITOR TEST": NORMAL
140 PRINT D$"BLOAD LO-RES PATTERN": CALL 768
145 PRINT D$"BRUN P"
150 HOME : PRINT "MORNING ALL..."
160 VTAB 6: HTAB 1: PRINT "I NEED TO KNOW TODAY'S DATE."
170 INPUT "MONTH (1 - 12)? ";A$:M = INT( VAL(A$)): IF M <1 OR M >12 THEN 150
180 INPUT "DAY? ";A$:D = INT( VAL(A$)): IF D <1 OR D >31 THEN 150
190 INPUT "YEAR? (ALL 4 DIGITS) ";A$:Y = INT( VAL(A$)): IF Y <1950 OR Y >2100 THEN 150
200 HOME :M = M -1: IF D >ML(M) THEN 150
210 IF M = 1 AND D = 29 THEN GOSUB 1000: IF NOT LY THEN 150
220 POKE 202, PEEK(79): POKE 203, PEEK(78): PRINT D$"BRUN P"
230 HOME : IF M < >3 OR D < >1 THEN 710
240 SPEED= 100: PRINT "APRIL THE FIRST...? COME ON NOW, DO"
250 PRINT "YOU EXPECT ME TO BELIEVE THAT? DO I"
260 PRINT "LOOK STUPID? WHO ARE YOU TRYING TO"
270 PRINT "FOOL? I DON'T THINK I WANT TO WORK"
280 PRINT "TODAY....": FOR I = 1 TO 2000: NEXT
290 VTAB 6: HTAB 1: PRINT "WELL, MAYBE... BUT ONLY IF YOU SAY"
300 CALL -868: INPUT "PLEASE ";A$: IF LEN(A$) <6 THEN 290
310 IF LEFT$(A$,6) < >"PLEASE" THEN 290
320 FOR I = 1 TO 1500: NEXT : VTAB 8: HTAB 1: PRINT "PRETTY ";
330 CALL -868: INPUT "PLEASE ";A$
340 IF LEN(A$) <13 THEN 320
350 IF LEFT$(A$,13) < >"PRETTY PLEASE" THEN 320
360 VTAB 9: HTAB 1: CALL -868: PRINT "ARE YOU REALLY SURE ABOUT ";
370 INPUT "THIS? ";A$: IF LEN(A$) <1 THEN 360
380 IF LEFT$(A$,1) < >"Y" THEN 360
390 PRINT "YOU KNOW, I'M REALLY TIRED OF ALL THIS"
400 PRINT "WORKING... HOW WOULD YOU LIKE TO WORK
410 PRINT "OUT DUMB SUMS FOR DUMB KIDS ALL DAY?"
420 PRINT "I'M NOT GETTING YOU DOWN, AM I?"
430 PRINT "OH SORRY, PARDON ME FOR BREATHING,"
440 PRINT "NOT THAT I EVER DO, SO I DON'T KNOW"
450 PRINT "WHY I SAID IT, OH GOD, I'M SO"
460 PRINT "DEPRESSED. WOULD YOU LIKE ME TO STAND"
470 PRINT "IN THE CORNER AND RUST, OR JUST FALL"
480 PRINT "APART WHERE I'M STANDING? I CAN PUT"
490 PRINT "MY HEAD IN A BUCKET OF WATER IF YOU"
500 PRINT "LIKE. WOULD YOU LIKE ME TO DO THAT?"
510 FOR I = 1 TO 1000: NEXT
520 PRINT "ARE YOU SURE I'M NOT GETTING YOU DOWN?"
530 FOR I = 1 TO 3000: NEXT
600 DATA "I WANT TO ASSURE YOU THAT I HAVE THE UTMOST ENTHUSIASM FOR THIS MISSION...", "DAVE... MY MIND IS GOING. DAVE..."
650 DATA "I REALIZE THAT I'VE BEEN MAKING A FEW BAD DECISIONS LATELY..."," "
660 DATA "I'M AFRAID THAT I CAN'T ALLOW YOU TO ENDANGER THE SUCCESS OF THIS MISSION, DAVE."
670 DATA "I'M HAALLF CRRRAAAAAZZZZZYYYYYY OOOOOOVVEEEEEEERRRRRR MYYYYYY LOOOOOOOVVEEE FOOOOORRRRR YOOOOOOOOOOUUUUUUU....."
700 SPEED= 255: HOME : GOTO 720
710 VTAB 3: HTAB 1:S$ = HL$( USR(6)): CALL TX
720 HTAB 1: VTAB 7: PRINT "DATE ENTERED = ";: INVERSE : PRINT M$(M);" "D", "Y
730 NORMAL : VTAB 10: HTAB 1: PRINT "HIT ";: INVERSE : PRINT "ESC";: NORMAL
740 PRINT "(APE) IF INCORRECT, ";: INVERSE : PRINT "RETURN": NORMAL
750 PRINT "TO START UP EXHIBIT ";: GET A$: IF ASC(A$) < >13 AND ASC(A$) < >27 THEN 730
760 IF ASC(A$) = 27 THEN 150
770 PRINT : PRINT D$"OPEN D": PRINT D$"WRITE D"
780 PRINT Y;",";M;",";D
790 PRINT D$"CLOSE"
900 HOME : VTAB 11: HTAB 12: FLASH : PRINT "HERE WE GO..."
910 NORMAL : PRINT : PRINT D$"RUN MAIN MENU"
920 END
1000 Y1 = 0:Y2 = 0:Y3 = 0: IF (Y/4 - INT(Y/4)) = 0 THEN Y1 = 1
1010 IF (Y/100 - INT(Y/100)) = 0 THEN Y2 = 1
1020 IF (Y/400 - INT(Y/400)) = 0 THEN Y3 = 1
1030 LY = Y1 -Y2 +Y3: RETURN
2000 REM ******************************
2010 REM * PROGRAM AND ORIGINAL *
2020 REM * DATA FILES (C) COPYRIGHT *
2030 REM * PETER J. SCOTT AND *
2040 REM * GRIFFITH OBSERVATORY, 1985 *
2050 REM ******************************

Text found in disk070.dsk/LENGTH INDEX.txt:

390
84
91
106
99
88
127
92
65
93
78
93
48
62
80
86
86
85
85
127
62
123
51
62
65
81
57
54
54
84
55
79
102
73
76
81
138
74
82
114
61
136
88
122
100
99
62
72
76
82
80
85
87
38
58
69
86
50
53
79
81
96
56
57
78
41
52
90
43
122
85
106
55
49
44
158
94
94
76
78
84
45
86
53
85
50
53
96
90
78
49
47
71
60
85
82
41
51
61
52
78
152
60
54
78
62
84
62
44
65
89
30
96
72
79
54
73
80
60
72
116
103
52
60
88
63
40
55
65
85
103
86
84
97
97
81
84
93
51
60
76
81
52
66
80
24
67
83
90
55
97
99
60
75
88
89
86
62
42
30
101
61
47
55
50
92
90
106
103
92
67
91
111
49
74
61
65
93
45
53
31
57
93
35
52
79
62
77
57
94
48
48
44
61
72
114
61
89
52
97
70
53
50
71
113
80
66
47
88
53
84
78
93
50
73
59
54
28
87
103
86
60
38
63
62
92
87
103
43
62
42
78
77
63
83
59
68
61
68
91
85
52
102
68
88
69
80
51
69
74
73
97
43
98
73
83
66
76
56
58
45
69
72
141
54
97
64
55
71
86
103
91
82
61
74
103
94
88
75
102
122
72
90
86
85
90
87
71
91
61
121
41
66
76
55
72
85
53
51
86
66
69
68
77
56
55
42
75
47
60
72
85
53
82
72
72
88
83
35
83
43
68
93
99
106
98
78
74
122
58
51
50
106
43
92
109
75
72
83
90
77
50
89
47
81
49
74
82
62
97
78
54
132
52
92
73
137
123
112
29
126
84
50
61
73
29
75
86
100
54
29
85
46
62
77
75
123
43
75
60
55
67
70
80
83
91
67
45
78
98
100

Text found in disk070.dsk/MAIN MENU.bas:

10 PRINT CHR$(4)"MAXFILES 2": LOMEM: 24577:IN$ = "X":D$ = CHR$(4)
13 REM ONERR PATCH :- h STORE h RESUME SIN SHLOAD H ROT= H` HGR2
15 HC = 14728:IL = 2126:OE = 2116:DR = 1002:TX = 14117: GOSUB 900: GOSUB 700: ONERR GOTO 10000
20 PRINT D$"BLOAD GENERAL ROUTINES":S1$ = CHR$(32):S2$ = CHR$(128 +32)
30 PRINT D$"BLOAD CHARACTER GENERATOR": DIM A(8,3): PRINT D$"BRUN P"
33 HGR2 : CALL HC: POKE -16300,0
35 POKE -16303,0: POKE -16298,0: CALL DR: GOSUB 900
40 PRINT D$"BLOAD LOGO": POKE 214,255:PI = 3.141592654
45 KB = -16384:SB = -16368:SP = -16336
50 POKE -16302,0: POKE -16299,0
60 POKE -16297,0: POKE -16304,0
70 X = 10:Y = 5:A$ = "Welcome": GOSUB 500
80 X = 11:Y = 6:A$ = "to": GOSUB 500
90 X = 12:Y = 7:A$ = "the": GOSUB 500
100 X = 11:Y = 20:A$ = "Griffith Observatory": GOSUB 500
103 FOR I = 0 TO 7:TH = I/8 *PI *2:A(I,0) = 243 +13 * COS(TH)
105 A(I,1) = 243 +19 * COS(TH):A(I,2) = 21 +13 * SIN(TH)
107 A(I,3) = 21 +19 * SIN(TH): NEXT I
110 VTAB 24: HTAB 4: PRINT "Press RETURN";
111 HTAB 28: PRINT "to start": POKE SB,0:H = 5
112 FOR I = 0 TO 1: FOR J = 0 TO 3: FOR L = 0 TO 1:M = J +4 *L
113 H = (H = 7) *5 +(H = 5) *7: HCOLOR= H
114 HPLOT A(M,0),A(M,2): HPLOT A(M,0),A(M,2) TO A(M,1),A(M,3)
115 NEXT : NEXT :H = (H = 7) *5 +(H = 5) *7:I = ( PEEK(KB) >127): NEXT I
120 PRINT CHR$(128);: VTAB 5: HTAB 5
130 S$ = "Hi! I'm here so you can have some fun while you learn about astronomy. ": CALL TX
140 VTAB 8: HTAB 5:S$ = "Each of my programs has an astronomical theme to it. ": CALL TX
145 S$ = "Type the number of the program you're interested in. "
150 CALL TX: VTAB 12: HTAB 6:S$ = "Which program would you like?"
160 CALL TX: VTAB 15: HTAB 10: PRINT "1 Hangman"
170 VTAB 17: HTAB 10: PRINT "2 Birthdates"
180 VTAB 19: HTAB 10: PRINT "3 Professor Astro"
190 VTAB 21: HTAB 5: PRINT "Press 1, 2 or 3 to choose ";: GOSUB 800: POKE SB,0
200 J = 1: FOR I = 0 TO 1: FOR K = 1 TO 400: NEXT : VTAB 13 +2 *J
210 HTAB 10: PRINT J:J = J +1: IF J = 4 THEN J = 1
220 VTAB 13 +2 *J: HTAB 10: PRINT ""J"":I = ( PEEK(KB) >127): NEXT
230 VTAB 21: HTAB 32: GET A$: IF ASC(A$) < ASC("1") OR ASC(A$) > ASC("3") THEN 190
240 PRINT A$: GOSUB 700
280 ON VAL(A$) GOTO 300,350,400,290
290 RUN
300 GOSUB 900
310 PRINT D$"BLOAD HANGMAN LOGO"
320 POKE -16302,0: POKE -16299,0
330 POKE -16297,0: POKE -16304,0
340 PRINT D$"RUN HANGMAN"
350 GOSUB 900: PRINT : PRINT D$"RUN BIRTHDATES"
400 GOSUB 900: PRINT : PRINT D$"RUN ASTRO QUIZ"
450 END
500 FOR I = 1 TO 200: NEXT : VTAB Y: HTAB X: FOR I = 1 TO LEN(A$): FOR J = 1 TO 50: NEXT
510 PRINT MID$ (A$,I,1);:TM = PEEK(SP) - PEEK(SP): NEXT : RETURN
700 POKE 54,189: POKE 55,158: RETURN
800 TM = 39 - PEEK(36): PRINT SPC( TM);
810 FOR I = 1 TO TM: PRINT CHR$(8);
820 NEXT : RETURN
900 TEXT : HOME : VTAB 11: HTAB 14: FLASH : CALL DR
910 PRINT "PLEASE WAIT": NORMAL : RETURN
1200 POKE SB,0: GET A$:P = ASC(A$): RETURN
10000 CALL OE: GOSUB 700
10010 IF PEEK(222) = 255 THEN PRINT D$"RUN"
10020 TEXT : HOME : NORMAL
10030 VTAB 8: PRINT "AN ERROR OF TYPE " PEEK(222)" HAS OCCURRED AT"
10040 PRINT "LINE " PEEK(218) + PEEK(219) *256" IN 'MAIN MENU'."
10050 PRINT "PLEASE INFORM THE MUSEUM STAFF!"
10060 CALL IL: GOTO 10060
20000 REM ******************************
20010 REM * PROGRAM AND ORIGINAL *
20020 REM * DATA FILES (C) COPYRIGHT *
20030 REM * PETER J. SCOTT AND *
20040 REM * GRIFFITH OBSERVATORY, 1983 *
20050 REM ******************************

Text found in disk070.dsk/NEW F.txt:

A printed copy of the information you
have just received may be ordered from
the FOTO counter in the central rotunda


Text found in disk070.dsk/OUTFILE.txt:

aberration\A shift in the apparent position of a star due to the motion of the earth
ablation\Erosion of an object (usually a meteor) as it falls through the earth's atmosphere
absolute magnitude\The magnitude a star would have if seen from a distance of 10 parsecs (~33 light years)
absorption lines\Dark lines in a star's spectrum which tell us what elements make up the star
accretion disk\A cloud of gas and dust surrounding a star and being sucked in by gravity
achromatic lens\A lens which has been made so that all light rays are focused to the correct points no matter what their colors
airglow\The faint glow in the night sky caused by cosmic rays hitting the earth's atmosphere
albedo\A measure of how well a planet or satellite reflects light
Aldebaran\A bright red star in the constellation Taurus; fourteenth brightest star in the sky
Algol\A famous variable star in the constellation Perseus; "The Winking Demon"
Alpha Centauri\A triple star in the constellation Centaurus; nearest star to our solar system
Altair\A bright star in the constellation Aquila
altitude\The angle above the horizon of an astronomical object
aluminizing\The process of putting aluminum on a mirror to make it reflect light
amplitude\The difference between the maximum and minimum magnitudes of a variable star
Andromeda\An autumn constellation; in ancient Greek mythology, the daughter of Cepheus
Andromeda Galaxy\The nearest spiral galaxy to the Milky Way, visible to the naked eye
angular diameter\The diameter of an object measured as the angle in the sky it covers
annular eclipse\An eclipse in which the moon covers only the center of the sun. A bright ring of light is left around the moon
Antares\A bright red star in the summer constellation Scorpius
antimatter\Matter composed of antiparticles; on contact with ordinary matter both destroy each other in a massive explosion
aperture\The diameter of a telescope lens or mirror
Apollo\The American space project which landed men on the Moon
apparent magnitude\The magnitude of a star as measured from Earth
apparition\The period of the year when an astronomical body is visible from Earth
Aquarius\An autumn constellation and member of the zodiac
Arcturus\A bright red star in the constellation Bootes
Aries\An autumn constellation and member of the zodiac
Aristotle\An ancient Greek philosopher who taught that the sun goes around the earth
ashen light\A faint glow seen on the dark side of Venus
association\A loose grouping of young stars which were probably formed together
asteroid\A minor planet or large rock orbiting the sun, usually between the orbits of Mars and Jupiter
astrolabe\An ancient instrument used to measure the altitude of an object
astrology\The superstition that astronomical bodies affect people's fortunes
astrometry\The science of the measurement of the positions of astronomical bodies
astronomical unit\The average distance from the earth to the sun, a unit commonly used to express distances between bodies in solar system
astrophysics\The study of the physics and chemistry of astronomical bodies
atmosphere\A body of gas surrounding a planet, or the outer layer of gas of a star
atomic clock\The most precise kind of clock, based on the constant rate of vibration of certain types of molecules
Auriga\A winter constellation whose brightest star is Capella
aurora\The "Northern Lights", glowing lights in the night sky caused by particles from the sun trapped in the earth's magnetic field
averted vision\A technique for seeing dim objects better, by looking to one side of them
azimuth\The compass bearing of an object (i.e., the angle from due North to the object, measured in an easterly direction)
background temperature\The temperature of empty space, caused by heat left over from the creation of
Barnard's star\A nearby star which has a high velocity with respect to the other stars the universe
Betelgeuse\A bright red star in the winter constellation Orion
Big Bang\The explosion from which the universe is believed to have begun
Big Dipper\Part of the constellation Ursa Major, shaped like a plow or ladle
binary star\A pair of stars orbiting each other
black dwarf\A small, dim object that isn't quite massive enough to become a star
black hole\A body so massive that not even light cannot escape its gravitational pull
blueshift\The change in color of light from a star or galaxy which is approaching earth
bolide\An exploding meteor; a fireball
Bootes\A spring constellation containing the star Arcturus
brightness\The intensity of radiation emitted by an astronomical body
calendar\A system for keeping track of astronomical time periods (days, months, years)
Callisto\A large, heavily-cratered moon of Jupiter
Cancer\A winter constellation; a member of the zodiac
Canis Major\"The Great Dog"; a winter constellation, containing the star Sirius
Canis Minor\"The Little Dog"; a winter constellation, containing the star Procyon
Canopus\A bright star in the southern constellation Carina; the second brightest star in the sky
Capella\A bright triple star in the constellation Auriga
Capricorn\A summer constellation and member of the zodiac
Carina\A southern-hemisphere constellation, containing the bright star Canopus
Cassegrain\A type of reflecting telescope
Cassini's division\The largest gap in Saturn's rings
Cassiopeia\A constellation near the north celestial pole that looks like a flat 'M' or 'W'
Castor\A bright star in Gemini, "The Twins"
celestial sphere\The imaginary "bowl" overhead on which the stars appear. The planetarium is meant to imitate such a bowl
Centaurus\A southern-hemisphere constellation, containing the nearest star to the Sun
Cepheus\A constellation near the north celestial pole; in ancient Greek mythology, the father of Andromeda
Ceres\The largest asteroid, about 400 miles in diameter
Challenger\The latest of America's space shuttles
Charon\Pluto's recently-discovered satellite
chromatic aberration\A condition of a telescope lens causing different colors to be focused at different places when they should be focused at the same places
chromosphere\A layer of the sun's atmosphere, just above the photosphere (the visible surface)
circumpolar\Stars that are so near the north celestial pole that they remain above the horizon
closed universe\A universe which will eventually collapse due to gravitation
cluster\A grouping of stars or galaxies. The Pleiades in Taurus is an example
coelostat\A system of mirrors used to observe the sun (see ours in the West Gallery)
Columbia\America's first re-usable spacecraft
comet\A body of ice and gas that orbits the sun. Halley's comet will return in 1985-6
concave\A type of mirror or lens which curves inwards
conjunction\The nearest approach of two planets, or a planet and a star
constellation\An imaginary picture among the stars
convex\A type of mirror or lens which curves outwards
Copernicus\The Renaissance astronomer who proposed that the earth orbits the sun
corona\The outer layer of the sun's atmosphere, visible during a total eclipse by the moon
cosmic rays\Fast-moving atomic particles that stream to earth from outer space
cosmic dust\Tiny particles existing in deep space
cosmology\The study of the origin of the cosmos
counterglow\A faint patch of light in the sky directly opposite the sun
Crab Nebula\The cloud of gas from the supernova of 1054 A.D.
crater\A bowl-shaped depression on a planet or moon formed by the fall of a meteorite
culmination\The moment when a star has its greatest (or least) altitude in the sky
Cygnus\"The Swan"; a summer constellation
declination\The astronomical equivalent of latitude
Deimos\The smaller satellite of Mars, less than 10 miles wide
Deneb\The brightest star in the constellation Cygnus
dichotomy\The moment when the moon, Mercury or Venus are at exactly half-phase
differential rotation\The way in which different parts of a body orbit its center at different rates. The sun's equator rotates faster than its poles.
diffraction\Bending of light waves around edges of obstacles
Dione\An icy satellite of Saturn 500 miles in diameter
direct motion\Motion of a solar system object from west to east across the sky
dispersion\The separation of light into colors of the spectrum
distortion\A condition of a lens or mirror which makes its magnification non-uniform
dome\A movable top to an observatory that protects a telescope
double star\Two stars which orbit each other
Draco\"The Dragon"; a constellation near the north celestial pole
drive clock\A device for moving a telescope to keep it aimed at the same point in the sky
dwarf\A very small, faint star
Earth\The third planet outward from the sun. Have you seen our earth globe in the East Gallery?
earthquake\A shifting of massive "plates" of rock on the earth's surface
earthshine\Light reflected from the earth onto the dark part of a crescent moon
eccentricity\The amount of non-circularity of an orbit
eclipse\The passage of one astronomical object into the shadow of another
eclipsing binary\Two stars which orbit each other and cut off each other's light
ecliptic\The plane in which the earth revolves about the sun
Einstein\A famous physicist whose theories are of great use in astronomy
electromagnetic radiation\Types of light, including visible light, infrared, ultraviolet, radio waves and microwaves
elementary particles\The basic building-blocks of atoms and molecules; found in free form in deep space
ellipse\The shape of a planet's orbit around the sun
elongation\The angle in the sky between a planet and the sun
emersion\The reappearance of an astronomical body after it has been temporarily obscured
Enceladus\A satellite of Saturn covered with craters and cracks
Encke's division\A gap in Saturn's rings
Enterprise\The testing model of America's space shuttle
ephemeris\An almanac of computed positions of astronomical bodies
equation of time\The difference between actual time and time as measured by a sundial
equator\The imaginary line around an astronomical body that is the same distance from each of its poles
equatorial\A type of telescope mounting that allows a telescope to follow stars easily
equatorial bulge\The distortion in the shape of a planetary body due to its rotation
equinox\The time when the sun crosses the celestial equator and day and night are of equal length
escape velocity\The speed a rocket must achieve to escape the gravitational pull of the earth
Europa\A large satellite of Jupiter made of water and ice and covered with cracks
event horizon\The boundary surrounding a black hole, inside which nothing can escape
excitation\The process of raising an atom's electrons to higher energy levels by adding light
Explorer\A series of American scientific satellites
extinction\The dimming of starlight due to interstellar dust
eyepiece\A lens attached to a telescope through which one observes the image
figuring\The process of grinding a telescope lens or mirror to the required shape
filament\A long cloud of gas in the sun's atmosphere
filter\A device mounted on a telescope to eliminate unwanted light
finder\A low-power telescope used for locating the general position of an object
fireball\A bright meteor
flare\A sudden brightening of an upper part of the sun's atmosphere
flux\The rate at which we collect energy (such as light or radio waves) from a star
focal length\The distance between the lens or mirror of a telescope and the image it forms
focus\The point at which the image forms in a telescope
Foucault pendulum\A device for demonstrating the earth's rotation (see ours by the main entrance)
free fall\A state of 'weightlessness' achieved when one is falling freely in a gravitational field
full moon\The phase of the moon when it is fully illuminated
fusion\The nuclear reaction that makes stars shine by fusing atoms together
galaxy\A massive collection of stars, dust and gas, our own being called the "Milky Way"
Galilean Satellites\The four largest satellites of Jupiter, discovered by Galileo in 1610
Galileo\The first astronomer to use a telescope and discoverer of the moons of Jupiter
Ganymede\A satellite of Jupiter larger than the planet Mercury
Gemini\"The Twins"; a winter constellation
geology\The study of the earth
geosynchronous orbit\An orbit in which a satellite remains over the same point on the earth's surface
giant star\A type of bright, massive star larger than the sun
gibbous\A phase of the moon following full moon
globular cluster\A round, tightly-packed group of stars
gnomon\The part of a sundial that casts the shadow
granulation\The mottling of the sun's surface. Can you find granulation in our sun exhibit?
gravity\The force responsible for the attraction of bodies to each other due to their mass
Great Bear\The circumpolar constellation of Ursa Major, which contains the constellation of the Big Dipper
great circle\Any imaginary circle drawn on the earth whose diameter is the same as the earth's diameter
Great Red Spot\A large, semi-permanent cloud in Jupiter's atmosphere, like a giant hurricane
greenhouse effect\The way in which heat is trapped by an atmosphere
Greenwich Mean Time\A standard time used by astronomers based on time in Greenwich, England
Gregorian calendar\The calendar in current use over most of the world, established by Pope Gregory XIII in 1582
Gregorian\A type of compound reflecting telescope
Halley's Comet\A famous comet that will approach the sun in February, 1986
halo\The sphere of stars surrounding the center of our galaxy
harvest moon\The full moon occurring nearest the autumnal equinox
heliocentric coordinate system\A method of measuring positions of planets relative to the sun
heliostat\The major part of a solar telescope
helium\The second most common element in the universe
Hercules\A summer constellation
Hipparchus\An ancient Greek astronomer who mapped the sky
Hubble radius\The theoretical radius of the observable universe, 10 to 20 billion light years
Hyades\A cluster of stars in Taurus
Hydra\"The Watersnake"; a large spring constellation
Iapetus\A satellite of Saturn which is much brighter on one side than the other
Icarus\An asteroid which passes closer to the sun than Mercury
infrared astronomy\The study of microwaves, or "heat," from stars and planets
inner planets\The planets Mercury, Venus, Earth, and Mars
interferometer\Two radio telescopes linked together to observe details on very distant objects
intergalactic medium\The matter between galaxies
interplanetary medium\The matter between planets
interstellar medium\The matter between stars
ionization\The process of giving an atom an electrical charge
ionosphere\The layer of the earth's atmosphere that reflects radio waves
Julian date\An astronomical system of numbering days by counting days that have elapsed since January 1, 4713 B.C.
Jupiter\The fifth planet out from the sun in the solar system
Kepler\A Renaissance astronomer who discovered that the planets orbit the Sun in ellipses
knife edge\A test for accuracy of a telescope mirror
Larger Magellanic Cloud\A satellite galaxy of our Milky Way, visible from the Southern Hemisphere
Leonids\A meteor shower from the constellation Leo, visible on Nov. 17
Libra\A spring constellation and member of the zodiac
libration\A wobbling of the moon from side to side
light\Radiation visible to our eyes. See our "Nature of Light" exhibit
light pollution\The brightening of the night sky due to city light which makes seeing difficult for observatories
light-year\The distance travelled by light in one year, about six trillion miles
limb\The apparent edge of any astronomical body which shows a disk
luminosity\The amount of light a star gives off
lunar eclipse\A darkening of the moon caused when the moon moves into the earth's shadow
Lyra\A summer constellation, containing the star Vega
Magellanic Clouds\Two satellite galaxies of our own Milky Way first seen by Magellan
magnetometer\A device for measuring the magnetic field of an astronomical body
magnifying power\The number of times larger an object appears when viewed through a telescope
magnitude\The brightness of an astronomical object
Mariner\A series of American planetary probes to Mercury, Venus, and Mars
Mars\The fourth planet out from the sun in the solar system
Mercury\The planet nearest the sun in the solar system
meridian\A line of longitude
meteor\A streak of light in the sky caused by a small rock burning up in the atmosphere
meteorite\A rock that falls to earth from the space. Have you seen the meteorites in the East Gallery?
meteor shower\A display of meteors, all coming from the same apparent point in the sky
microwaves\A form of radiation also called infrared, or heat
Milky Way\The name given to our galaxy
mirror\A device used in a telescope to gather and reflect light
month\The period of time taken for the moon to orbit the earth
Moon\The earth's natural satellite. Have you seen the large moon globe in the East Gallery?
morning star\A popular name for Venus, since it often appears bright in the morning sky
mounting\The support for a telescope. You can operate a telescope mounting in our Mt. Palomar exhibit.
nebula\A cloud of interstellar gas and dust
Neptune\The eighth planet out from the sun in the solar system
neutron star\A very small, very dense star
Newton\A famous physicist and astronomer who discovered the Law of Gravitation
nightglow\The faint glow in the atmosphere due to charged atoms and molecules
North Star\The nearest visible star to the north celestial pole
nova\A star that brightens suddenly when material from a companion star falls on it
oblateness\A measure of the flattening of a rotating object
observatory\A building from which astronomical measurements are made
occultation\The obscuring of one astronomical body by another
opposition\The time when a planet is opposite the sun from the earth
orbit\The path on which one body travels when it is affected by the gravity of another body
orbital velocity\The speed at which a body must be launched in order to go into orbit
Orion\"The Hunter"; a prominent winter constellation
orrery\A device which models the motion of the planets around the sun (see ours near the Gravity Well)
outer planets\The planets Jupiter, Saturn, Uranus, Neptune and Pluto
parallax\The apparent shift in a near star's position, caused by the earth's motion.
parsec\A unit of interstellar distance equal to about 3.3 light years
partial eclipse\An eclipse in which the moon or sun is only partly blocked out
Pegasus\"The Winged Horse"; an autumn constellation
penumbra\The partially-shaded area of the shadow caused by an eclipse
perigee\The closest approach of an object in the solar system to the earth
perihelion\The closest approach to the sun of an object in orbit about it
Perseids\An August meteor shower whose meteors appear to originate from the constellation Perseus
Perseus\"The Hero"; an autumn constellation
perturbation\A slight disturbance in the motion of a body caused by the passing of a nearby object
phase\The fraction of an illuminated object that is visible to the viewer
Phobos\A satellite of Mars about 17 miles wide. See our model in the East Gallery.
photography\An important method for recording astronomical objects
photometry\The measurement of the exact brightnesses of astronomical objects
photon\A massless sub-atomic particle that carries light
photosphere\The layer of the sun's surface that is visible
Pioneer\A series of American planetary probes
Pisces\"The Fishes"; an autumn constellation and member of the zodiac
planet\A body in orbit around a star that shines by reflected light only
planetarium\A theater that creates the illusion of the night sky. Did you know the Griffith Observatory has one of the largest in the world?
planetary nebula\A shell of gas surrounding a hot star
planisphere\A star map which shows the sky at any date or time. We have some at the bookcounter.
Pleiades\"The Seven Sisters"; a young cluster of stars in Taurus
Pluto\The ninth and smallest planet in the solar system
pointer stars\Two stars in the Big Dipper which point to the North Star
Polaris\The nearest visible star to the north celestial pole; a means of finding North
precession\A slow wobbling of the earth on its axis due to the gravitational action of the sun and moon
precession of the equinoxes\A slow, regular change in the direction the earth's axis points
primary mirror\The mirror in a reflecting telescope that faces the observed object
prime focus\The point at which the image in a telescope forms
prime meridian\The line of zero longitude on the earth or any other planet
Procyon\The eighth brightest star in the sky, located in the constellation Canis Minor (the Little Dog)
prominence\A large cloud of gas in the Sun's atmosphere. Can you find any in our sun exhibit?
proper motion\The motion of a star across the sky due to its actual motion through space
protostar\A star in the process of evolving by contracting from a gas cloud
Proxima Centauri\The nearest star to the sun; found in the southern hemisphere constellation Centaurus
Ptolemy\An ancient Greek astronomer whose text was used for 15 centuries. He believed that the sun went around the earth.
pulsar\A radio source that emits fast and regular pulses; a neutron star
quadrant\An ancient instrument used to measure the altitude of an object above the horizon
quadrature\The position of a planet when it is 90 degrees away from the sun in the sky
quasar\A distant object that looks like a star but radiates more energy than a galaxy
radiant\The point in the sky from which meteors appear to originate during a meteor shower
radiation belts\A region in a planet's magnetic field which traps high-energy particles
radioactivity\The breaking-down of unstable atoms to give off radiation
radio astronomy\That branch of astronomy which makes its observations in the radio spectrum
radio galaxy\A distant galaxy that emits powerful radio waves
radio telescope\A telescope designed to observe using radio waves instead of light. See our exhibit in the West Gallery.
receiver\A device for detecting radiation
red giant\A type of large star that is nearing the end of its life
redshift\A change in the color of a star's light when it moves away from us.
reflector\A telescope that focuses light using a mirror
reflection nebula\A cloud of gas and dust that shines by reflected light
refraction\The way in which light is bent when it goes from one material into another
refractor\A telescope that focuses light using a lens
Regulus\A bright blue star in the constellation Leo
relativity\A theory about the structure of space and time, proposed by Albert Einstein
resolving power\A measure of the detail a telescope is able to see
retrograde motion\Motion of a planet from east to west across the sky
revolution\One complete orbit of one astronomical body about another
Rigel\The sixth brightest star in the sky, located in the constellation Orion
right ascension\The astronomical equivalent of longitude
Ring Nebula\A circular nebula in the constellation Lyra
rotation\The spin of a body about its axis
Sagittarius\"The Archer"; a summer constellation and a member of the zodiac
satellite\Any small body orbiting a larger body
Saturn\The sixth planet out from the sun in the Solar System
Saturn's rings\The dust and lumps of ice and rock that orbit near Saturn
Schiaparelli\An Italian astronomer who thought he discovered 'canals' on Mars in 1877
Schmidt telescope\A wide-angle photographic telescope
Schwarzschild radius\The boundary of a black hole inside which light cannot escape
scintillation\The 'twinkling' of a star caused by the earth's atmosphere
Scorpius\"The Scorpion"; a summer constellation and member of the zodiac
seasons\Divisions of the year caused by the inclination of the earth's axis to its orbit
seeing\The quality of the observing conditions, including the steadiness of the air
seismology\The study of earthquakes
seismometer\An instrument for measuring earthquakes. See ours in the East Gallery.
shooting star\The popular name for a meteor
sidereal time\Time measured relative to the stars instead of the sun
sidereal year\The time taken for the sun to complete one passage around the celestial equator
Sirius\The brightest star in the sky; located in the winter constellation Canis Major (the Big Dog)
Skylab\The first and only American space station; burnt up on re-entry into the earth's atmosphere in 1980
Smaller Magellanic Cloud\A satellite galaxy of the Milky Way, visible from the Southern Hemisphere
solar apex\The point in the sky towards which the Sun (and planets) are moving
solar eclipse\The darkening of the sun when the moon passes in front of it
solar system\The sun and everything that revolves around it, including planets, moons, minor planets, comets, and meteors.
solar telescope\A telescope designed for observing the sun
solar wind\A stream of particles emitted by the sun
Southern Cross\A southern-hemisphere constellation
Spacelab\A reusable international space station developed in Europe that will fly aboard the Space Shuttle
Space Shuttle\The first reusable spacecraft
Space Telescope\A large reflecting telescope to be put in orbit by the Space Shuttle in 1985
spark chamber\A device for making the tracks of charged particles visible (see ours in the Cosmic Ray alcove)
spectral classification\A method of grouping stars according to their color
spectrograph\A device for measuring the spectrum of an astronomical body
spectroscopy\The study of the spectra, or colors of light, from astronomical bodies
spectrum\The rainbow of light produced when white light from a star passes through a prism
Spica\A bright star in Virgo, marking the "sheaf of wheat held by the Virgin"
spiral\A type of galaxy, such as our own Milky Way
Sputnik\A series of Russian satellites; the first artificial satellite to orbit the Earth
star\A ball of gas that shines by its own light
star atlas\The astronomical equivalent of a geographical atlas; one showing stars
Summer Triangle\The stars Vega, Altair, and Deneb
sunspot\A relatively dark spot on the sun; associated with magnetic storms
sunspot cycle\An 11-year cycle of increase and decrease in the numbers of sunspots
supernova\A massive star which explodes at the end of its life
synchronous orbit\An orbit in which a satellite remains over the same point on the body it orbits
syzygy\When the sun, earth, and the moon (or another planet) are all in a line
Taurus\A winter constellation and member of the Zodiac
tektite\Small, glassy pebbles formed by the cooling of rock thrown out by a meteor impact or lunar volcano (see our tektite display)
telemetry\The transmission of data from a spacecraft
telescope\An instrument for observing the Universe (see our 12" Zeiss refractor on the roof)
terminator\The dividing line between the light and dark sides of the moon
Tesla coil\A device for generating large electrical fields and powering objects without wires (see ours demonstrated in the West Gallery)
tidal bulge\The distortion in the shape of an astronomical body due to the gravitational pull of one or more nearby objects
Titan\Saturn's largest moon, over 5000 km across. Titan is the only moon in the solar system with an atmosphere
Titania\A satellite of Uranus
total eclipse\The darkening of the moon when it moves into the earth's shadow or of the sun when the moon moves in front of it
totality\The period during a total eclipse when the sun's disk is completely covered
trajectory\The path along which a spacecraft moves
transit\The passage of a planet between the earth and the sun
Trifid Nebula\An bright, colorful nebula in the constellation Sagittarius
Triton\A satellite of Neptune
Tsiolkovsky\A Russian scientist often known as "The Father of Astronautics"
Tycho\A Renaissance astronomer who made very precise observations of celestial objects
ultraviolet astronomy\That branch of astronomy which makes its observations in ultraviolet light
umbra\The darkest part of the shadow during an eclipse
Umbriel\A satellite of Uranus
universal time\Equivalent to Greenwich Mean Time; a standard time used by astronomers
universe\The totality of all things that exist
Uranus\The seventh planet out from the sun in the solar system
Ursa Major\"The Great Bear"; a winter constellation containing the Big Dipper
Ursa Minor\"The Little Bear"; a constellation near the north celestial pole
Van Allen Belts\Belts of radiation near the earth discovered by J.A. Van Allen from data sent back by an Explorer satellite
variable star\A star of changing brightness
Vega\The fifth brightest star in the sky, located in the constellation Lyra
Venus\The second planet out from the sun in the Solar System
Viking\Two American probes which landed on Mars in 1976
Virgo\"The Virgin"; a spring constellation and member of the Zodiac
Voyager\Two American space probes that are exploring the outer planets
weightlessness\The condition of free fall, when objects have mass but not weight
white dwarf\A small dead star that is no longer generating energy by nuclear fusion
X-ray astronomy\That branch of astronomy which makes its observations in the X-ray spectrum
year\The length of time it takes the earth to revolve about the sun
zenith\The point in the sky directly overhead
zero gravity\The condition of free fall, when objects have mass but not weight
zodiac\A band of twelve constellations around the celestial equator, marking the sun's yearly path
zodiacal light\A faint light in the night sky, caused by sunlight reflecting off interplanetary dust

Text found in disk070.dsk/Q1.txt:

4,3,2,2,0
The planet that is farthest from the Sun AT THIS MOMENT is:
Mercury
Jupiter
Neptune
Pluto
Although Pluto is, on the average, farther from the Sun than is Neptune, Pluto's orbit is not circular and crosses Neptune's orbit.
From 1979 until 1999 Neptune is actually farther from the Sun than is Pluto.

Text found in disk070.dsk/Q10.txt:

2,2,1,2,0
There is no authentic case of a person ever having been hit by a meteorite.
True
False
Mrs. Hewlett Hodges was struck by a 9-pound meteorite while napping in her home in Alabama in 1954 and was bruised in the hip.
See the meteorite display at the far end of the museum for additional information and photographs.

Text found in disk070.dsk/Q11.txt:

4,4,2,2,0
The SMALLEST planet in our solar system is:
Mercury
Earth
Jupiter
Pluto
Until recently it was thought that Mercury (diameter 3000 miles) was the smallest planet, but in 1978 it was discovered that Pluto is covered with frost or ice and is smaller than was previously thought.
Astronomers estimate that Pluto is only 1800 miles in diameter and is even smaller than our Moon!

Text found in disk070.dsk/Q12.txt:

4,2,3,2,0
Which of the following is NOT a constellation?
Andromeda the Maiden
Zeus the King
Hercules the Strong Man
Pegasus the Flying Horse
Zeus is not a constellation. There IS a King, who is husband of Cassiopeia and father of Andromeda, but his name is Cepheus.
Andromeda and Pegasus are in the autumn sky while Hercules is best seen in the spring.

Text found in disk070.dsk/Q13.txt:

4,3,3,3,1
Pioneer 10, launched in 1972, is leaving the Solar System at 7 miles per second. At this rate, how long will it take to reach Alpha Centauri, the nearest star, 4.3 light years away?
600 years
15,000 years
100,000 years
15,000,000 years
Pioneer needs 100,000 years to travel the distance to the nearest star.
It is not, however, aimed towards any particular star and will drift forever among the stars of the Milky Way.
On the average it will come within 1 billion miles of a star once every 100 quadrillion years.

Text found in disk070.dsk/Q14.txt:

4,3,2,2,0
How many planets in our solar system are larger than the Earth?
None
Two
Four
Seven
Jupiter, Saturn, Uranus, and Neptune are all larger than the earth.
Including the Sun, the Earth is the sixth largest object in the Solar System.
ystem.

Text found in disk070.dsk/Q15.txt:

5,4,4,2,0
Which ONE of these statements about the planet Venus is FALSE?
It has a layer of smog thicker than Los Angeles' worst
The surface temperature is hot enough to melt lead
It rotates backwards
Its oceans are deeper than the earth's
Its day is longer than its year
All are true except #4. Because of its high temperature, Venus has lost all its water and has no oceans.
Our earth is the only planet that has liquid water on its surface.
.

Text found in disk070.dsk/Q16.txt:

4,4,3,2,0
Which one of the following would you NOT expect to find on Mars?
Huge volcanoes
Vast deserts with severe dust storms
Meteorite craters
Thick coal beds
Coal is decayed and compressed plant material, and as far as we know there has never been any life on Mars.
Volcanoes, deserts, dust storms, and craters exist in abundance. (See the Mars globe in the East Gallery.)

Text found in disk070.dsk/Q8.txt:

4,4,3,2,0
The MAIN purpose of an astronomical telescope is to:
Make things look bigger
Make things look closer
Make things look clearer
Make things look brighter
Although the first three are often important, the main purpose of an astronomical telescope is to gather light which is fed into sophisticated instruments like photometers, spectrographs, and electronic cameras.
Telescopes are made big to collect as much light as possible.

Text found in disk070.dsk/Q9.txt:

4,2,3,3,0
The first person to discover a new planet was:
The Italian mathematician Galileo in 1609
The English amateur astronomer Herschel in 1781
The German astronomer Galle in 1846
The American astronomer Tombaugh in 1930
Sir William Herschel discovered a planet from his back yard in Bath, England, while compiling a star catalog in 1781.
This planet was originally called 'Herschel', but was later renamed Uranus. It was the first planet discovered since pre-historic times.
Galle was the first to see Neptune in 1846, and Tombaugh discovered Pluto in 1930.