The spaceship navigation program needs able recruits. Take the test to see how great of a navigator you are.
PROG : 16509
D-FILE: 19145
VARS : 19938
E-LINE: 19939
STKBOT: 19939
STKEND: 19939
9999 means line number
PRINT means treat as KEYWORD P
10 REM **SPACESHIP**SLR/1983**
20 PRINT "**********SPACESHIP
*************";AT 3,0;"YOU ARE A
NAVIGATOR ON A SPACE- SHIP. YO
U MST ANSWER THE QUES- TIONS ASK
ED TO CONTINUE FLYING. GOOD LUCK
**"
30 LET S=0
40 PRINT ,,"1)YOU ARE TRYING T
O ORBIT A PLANET, WHAT MUS
T YOU DO? (1)TURN (2)GO STRA
IGHT(3)IN- CREASE SPEED (4)DE
CREASE SPEED"
50 PRINT AT 21,0;"ENTER IN ANS
WER NUMBER (1-4)...."
60 INPUT A
80 LET S=S+(2 AND A=1)+(1 AND
A=4)
90 PRINT AT 21,0;"
";AT 12,0;"Y
OUR ANSWER(";A;") IS ";"WRONG."
AND (A>1 AND A<4);"CORRECT."
AND A=1;"PARTLY RIGHT." AND A=4
100 PRINT ,,"2)YOU ARE DOCKING
A SPACESHIP. WHAT SPEED SHOULD
YOU USE? (1)WORP SPEED (2)L
OW IMPULSE (3)IMPULSE (4)HIGH
IMPULSE"
110 PRINT AT 21,0;"ENTER IN ANS
WER NUMBER (1-4)...."
120 INPUT A
130 LET S=S+(2 AND A=2)+(1 AND
A=3)
140 PRINT AT 21,0;"
";AT 12,0;"Y
OUR ANSWER(";A;") IS ";"WRONG."
AND (A=1 OR A=4);"CORRECT."
AND A=2;"PARTLY RIGHT." AND A=3
150 PRINT AT 21,0;"PRESS ENTER
TO CONTINUE PROGRAM*"
160 PAUSE 4E4
170 CLS
180 PRINT "**********SPACESHIP
*************"
190 PRINT AT 21,0;"ENTER IN NAM
E..................."
200 INPUT A$
210 PRINT AT 21,0;"ENTER IN AGE
...................."
220 INPUT AGE
230 PRINT AT 21,0;"
";AT 3,0;A$;
",";AT 4,0;" YOU HAVE COMPLETED
THIS TWO QUESTION TEST FOR NA
VIGATIONAL ABILITY."
240 LET F$=("ADVANCED AGE."
AND AGE>9)+("BEGINNER AGE."
AND AGE<10)
250 PRINT ,," YOUR AGE TYPE DE
TERMINES YOUR ABILITY SCORE. THE
TWO AGE TYPESARE- BEGINNER AGE(
UP TO 10), ANDADVANCED AGE(10 AN
D OVER). YOU HAVE BEEN FOUND AN
D PLACED IN ";F$
260 IF F$(1)="A" THEN LET G$=("
<A>HIGHEST HONOR" AND S=4)+("<B>
WELL DONE" AND S=3)+("<C>AVERAGE
SCORE" AND S=2)+("<D>NEED WORK"
AND S=1)+("<F>FAILING,NO DETERM
INATION" AND S=0)
270 IF F$(1)="B" THEN LET G$=("
<A>EXCEEDED EXPECTATIONS" AND S=
4)+("<B>NOT BAD,DETERMINED" AND
S=3)+("<C>NORMAL ABILITY" AND S=
2)+("<D>KEEP ON GOING" AND S=1)+
("<F>AWFUL,STUDY HARDER" AND S=0
)
280 PRINT ,," ACCORDING TO YOU
R SCORE,";S;",AND YOUR AGE TYPE,
YOU HAVE RECEIVED THE FOLLOWING
GRADE OF ABILITY- ";G$;"."
290 PRINT AT 21,0;"PRESS ENTER
TO CONTINUE PROGRAM*"
300 PAUSE 4E4
310 CLS
320 PRINT "**********SPACESHIP
*************"
330 PRINT AT 3,0;"THANK YOU FOR
YOUR COOPERATION IN THIS NAVIG
ATIONAL TEST. WE APPRECIATE YO
UR HELP TO MAKE OURSPACE LANES A
LITTLE SAFER AND OUR PEOPLE BE
TTER PREPARED.",,,,"SPACESHIP AD
.",,"STEVEN REID"
340 PRINT AT 21,0;"PRESS ENTER
TO START AGAIN......"
350 PAUSE 4E4
360 CLS
370 RUN
400 SAVE "SPACESHIP"
410 RUN