10 PRINT "WELCOME TO QUIZMASTER"
20 PRINT "WOULD YOU LIKE TO PLAY (Y OR N)?"
30 INPUT P$
40 IF P$ = " Y" THEN 60
50 IF P$ = " N" THEN PRINT "YOU'RE GOING TO PLAY WHETHER YOU LIKE IT OR NOT!"
60 PRINT "WHAT IS YOUR NAME?"
70 INPUT N$
80 IF N$ = "DAVID" THEN 60
90 PRINT "ALRIGHT, LET'S BEGIN"
100 PRINT "WHAT IS THE LARGEST PLANET?"
110 INPUT L$
120 IF L$ = "JUPITER" THEN 130
125 IF L$ <> "JUPITER" THEN 100
130 PRINT "NAME ONE PLANET THAT HAS A RING AROUND IT."
140 INPUT R$
150 IF R$ = "SATURN" THEN 180
155 IF R$ <> "SATURN" THEN 130
160 IF R$ = "JUPITER" THEN 180
165 IF R$ <> "JUPITER" THEN 130
170 IF R$ = " URANUS" THEN 180
175 IF R$ <> "URANUS" THEN 130
180 PRINT "WHAT IS THE CAPITOL OF CALAFORNIA?"
190 INPUT C$
200 IF C$ = "SACRAMENTO" THEN 230
210 IF C$ <> "SACRAMENTO" THEN 180
230 PRINT "GOOD JOB", ; N$; , "YOU WIN A TRIP TO:"
240 PRINT "ENTER A NUMBER FROM 1 TO 6."
250 INPUT E
260 IF E = 1 THEN PRINT "FRANCE"
270 IF E = 2 THEN PRINT "JAPAN"
280 IF E = 3 THEN PRINT "AUSTRALIA"
290 IF E = 4 THEN PRINT "CHINA"
300 IF E = 5 THEN PRINT "AMERICA"
310 IF E = 6 THEN PRINT "JAIL"
320 PRINT "I HOPE YOU ENJOY YOUR TRIP", ; N$; ,
330 PRINT "HA! HA! HA!"
340 SCALE$ = "AGBFCEDADCEFGGEFABC"
350 PLAY "L16"
360 FOR i% = 0 TO 6
370 PLAY "O" + STR$(i%)
380 PLAY "X" + VARPTR$(SCALE$)
390 NEXT i%
END