1000	!
	!	WRITTEN BY JEFFREY ROBBINS
	!	CLASS OF '76
	!	NORTHFIELD MT. HERMON
	!
1001	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION  RSTS/E  V6C  
	!
1100	OPEN "KB:" FOR INPUT AS FILE 3%
1200	K1% = 1%
	\ K0% = 0%
1300	PRINT "BRAMAK - DATA PROCESSOR VERSION R1S-3/JR"
1400	PRINT :INPUT #3%,"NEW OR OLD--";M$
	\ IF M$ = "NEW"
	  THEN OPEN "BRAVO.DAT" AS FILE K1%
	  \ CLOSE K1%
1500	OPEN "BRAVO.DAT" FOR INPUT AS FILE K1%
	\ OPEN "BRAVO.TMP" AS FILE 2%
1600	ON ERROR GOTO 1800
1700	INPUT LINE #1%,M$
	\ PRINT #2,M$;
	\ GOTO 1700
1800	CLOSE K1%
	\ RESUME 1900
1900	!
	!	PROGRAM STARTS HERE
	!
2000	!
2100	PRINT "#";
	\ INPUT LINE #3%,C$
2200	GOTO 2600 IF LEFT(C$,K1%) <> "?"
2300	PRINT 
	\ PRINT "COMMANDS ARE:"
	\ PRINT "        'L'     LIST COMMAND"
2400	PRINT "        'M'     MAKE COMMAND"
	\ PRINT "        'E'     END COMMAND"
	\ PRINT
	\PRINT
2500	GOTO 2100
2600	!
	!	SELECT WHAT COMMAND
	!
2700	C$ = LEFT(C$,K1%)
	\ IF C$ = "E"
	  THEN 6200
	  ELSE IF C$ = "L"
	       THEN 5300
	       ELSE IF C$ = "M"
	            THEN 2900
2800	PRINT 
	\ PRINT "ILLEGAL COMMAND USAGE  -  ";C$ 
	\ GOTO 2100
2900	!
	!	SELECT COMMAND
	!
3000	PRINT 
	\ PRINT "*";
	\ INPUT LINE #3%,Q$
3100	X0% = K0%
	\ Q0$ = LEFT(Q$,LEN(Q$)-2%)
	\ GOSUB 5900
	\ GOTO 5000 IF X0% = K1%
3200	GOTO 3000 IF Q$ = CHR$(13%)+CHR$(10%)
3300	GOTO 3500 IF LEFT(Q$,K1%) <> "?"
3400	PRINT "TYPE THE QUESTION WITH A '@' WHERE THE BLANK SHOULD BE."
	\ GOTO 3000
3500	Q$ = LEFT(Q$,LEN(Q$)-2%)
3600	W% = INSTR(K1%,Q$,"@") 
	\ IF W% = K0%
	  THEN GOTO 3800
3700	Q$ = LEFT(Q$,W%-K1%) + " .......... " + RIGHT(Q$,W%+1%)
3800	PRINT Q$;
	\ IF W% = K0%
	  THEN PRINT 
	  \ GOTO 4000
3900	INPUT "   VERB";V$
	\ Q$ = Q$ + "   (" + V$ + ")"
4000	INPUT "# ANSWERS";A$;"CORRECT #";B$
4100	X0% = K0%
	\ Q0$ = A$	
	\ GOSUB 5900
	\ GOTO 5000 IF X0% = K1%
4200	IF VAL(A$) < VAL(B$) OR VAL(A$) <= K0% OR VAL(B$) <= K0%
	THEN PRINT "BAD NUMBER PAIRS"
	\ GOTO 4000
4300	X0% = K0%
	\ Q0$ = B$
	\ GOSUB 5900 IF X0% = K1%
4400	Q$ = Q$ + "," + A$ + "," + B$
4500	FOR T% = 1% TO VAL(A$)
4600	PRINT "ANSWER #";T%;
	\ INPUT A$(T%)
4700	X0% = K0%
	\ Q0$ = A$(T%)
	\ GOSUB 5900
	\ GOTO 5000 IF X0% = K1%
4800	Q$ = Q$ + "," + A$(T%)
4900	NEXT T%
5000	INPUT #3%,"CONFIRM: ";Y$
	\ IF LEFT(Y$,K1%) = "N"
	  THEN PRINT "COMMANDS ABORTED"
	  \ GOTO 2100
5100	PRINT "PRINTING NOW"
5200	PRINT #2%,Q$
	\ GOTO 2100
5300	!
	!	LIST COMMAND
	!
5400	OPEN "BRAVO.DAT" FOR INPUT AS FILE 4%
5500	ON ERROR GOTO 5800
5600	INPUT LINE #4%,Q$
	\ PRINT Q$;
5700	GOTO 5600
5800	IF ERR <> 11 OR ERL <> 5600
	THEN ON ERROR GOTO 0
	ELSE CLOSE 4%
	\ RESUME 2100
5900	X0% = K1% IF Q0$ = "ABORT"
6000	RETURN
6100	DIM A$(50%)
6200	CLOSE 2%,3%
	\ KILL "BRAVO.DAT"
	\ NAME "BRAVO.TMP" AS "BRAVO.DAT"
	\ END