ZX81 Listing for spaceship.p


ZX81 program listing for **SPACESHIP**SLR/1983**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19145
VARS  : 19938
E-LINE: 19939
STKBOT: 19939
STKEND: 19939

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  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