1000	!
	!	WRITTEN BY  JEFFREY ROBBINS
	!	CLASS OF '76 NORTFIELD MT. HERMON
	!
	!	TYPE IN BY  TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/40  
	!	VERSION  RSTS/E  V6C
	!
1100	DIM A$(50%),Z%(50%)
1200	PRINT "BRAVO - LANGUAGE LEARNING PROGRAM."
1300	PRINT
	\ PRINT
1400	PRINT "VERSION:  R1S-3/JR        -         SPANISH"
	\ PRINT 
	\ PRINT
1500	PRINT "BUENOS DIAS!"
1600	INPUT "COMO SE LLAMA";N$
1700	PRINT 
	\ PRINT
1800	OPEN "BRAVO.DAT" FOR INPUT AS FILE 1%
1900	PRINT "DO YOU WANT INSTRUCTION ";N$;
	\ INPUT Y$
2000	GOTO 2500 IF Y$ = "NO"
2100	ON ERROR GOTO 2400
2200	OPEN "BRAVO.TXT" FOR INPUT AS FILE 2%
2300	INPUT LINE #2%,A$
	\ PRINT A$;
	\ GOTO 2300
2400	CLOSE 2%
	\ RESUME 2500
2500	!
	!	MAIN PROGRAM   * BRAVO *
	!
2600	!
2700	ON ERROR GOTO 4400
2800	PRINT
	\ PRINT 
	\ INPUT LINE #1%,Q$
	\ Q$ = LEFT(Q$,LEN(Q$)-2%)
2900	Q1% = INSTR(1%,Q$,",")
	\ Q1$ = LEFT(Q$,Q1%-1%)
	\ Q2$ = RIGHT (Q$,Q1%+1%)
3000	A1% = INSTR(1%,Q2$,",")
	\ A% = VAL(LEFT(Q2$,A1%-1%))
	\ Q2$ = RIGHT(Q2$,A1%+1%)
3100	B1% = INSTR(1%,Q2$,",")
	\ Q3$ = Q2$
	\ Q2$ = RIGHT(Q2$,B1%+1%)
3200	FOR T% = 1% TO A%-1%
3300	W% = INSTR(1%,Q2$,",")
3400	A$(T%) = LEFT(Q2$,W%-1%)
	\ Q2$ = RIGHT(Q2$,W%+1%)
3500	NEXT T%
3600	A$(T%+1%) = Q2$
3700	PRINT Q1$
	\ PRINT 
	\ PRINT T%;")    ";A$(T%) FOR T% = 1% TO A%
3800	PRINT 
	\ PRINT N$;" WHAT NUMBER DO YOU CHOOSE";
	\ INPUT N%
3900	B% = VAL(LEFT(Q3$,B1%-1%))
4000	IF N% = B%
	THEN PRINT "CORRECT!!!"
	\ J9% = J9% + 1%
	\ GOTO 2800
4100	PRINT "WRONG!  THE CORRECT ANSWER WAS NUMBER";B%
4200	J8% = J8% + 1%
4300	PRINT A$(B%)
	\ GOTO 2800
4400	!
	!	HERE HERE HERE HERE
	!
4500	PRINT "THAT'S ALL I GUESS. IT WAS NICE TO SEE YOU ";N$
4600	PRINT "OUT OF A TOTAL OF";J8% + J9%;"QUESTIONS;"
4700	PRINT "THE NUMBER YOU GOT WRONG WAS:  ";J8%;"  CORRECT:  ";J9%
4800	CLOSE 1%,2%,3%,4%
	\ PRINT 
	\ PRINT 
	\ END