10	DIM B%(10%,10%)
	\ PRINT "WELCOME TO SWAT THE FLY WITH RSTS"
	!	
	!	BY CHARLIE GEHMAN
	!	2-JUL-74
	!	NMH SUMMER SCHOOL
	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V6C
	!
20	INPUT "DO YOU WANT INSTRUCTIONS";A$
	\ GOTO 50 UNLESS ASCII(A$) = 89%
	\ OPEN "[2,50]FLY.TXT" FOR INPUT AS FILE 1%
	\ ON ERROR GOTO 40
30	INPUT LINE #1%,A$
	\ PRINT A$;
	\ GOTO 30
40	CLOSE 1%
	\ RESUME 50
50	ON ERROR GOTO 180
	\ RANDOMIZE
	\ R1% = 1 + RND * 10%
	\ R2% = 1% + RND * 10%
	\ B%(R1%,R2%) = -3%
60	INPUT "WHERE DO YOU WANT TO SWAT";X%,Y%
	\ C% = C% + 1%
	\ IF B%(X%,Y%) = -3%
	  THEN 130
	  ELSE PRINT "YOU WERE";
	\ IF X% > R1% 
	  THEN PRINT " RIGHT ";
	  ELSE IF X% < R1%
	       THEN PRINT " LEFT ";
70	P$ = ""
	\ P$ = " ABOVE" IF Y% > R2%
	\ P$ = " BELOW" IF Y% < R2%
	\ IF P$ = ""
	  THEN PRINT 
	  ELSE PRINT "AND"; IF POS(0%) > 10%
	  \ PRINT P$
75	!
	!	FLY PAPER HERE NOW
	!
80	B%(X%,Y%) = -1%
85	!
	!	FLY IS STUCK
	!
90	IF S% 
	THEN 60
100	R3% = FIX(RND*3)-1
	\ R4% = FIX(RND*3)-1%
	\ IF R3% = 0% AND R4% = 0%
	  THEN 100
110	IF R3% + R1% > 10%
	   OR  R3% + R1% < 1%
	   OR  R4% + R2% > 10%
	   OR  R4% + R2% < 1%
	THEN 100
120	B%(R1%,R2%) = 0%
	\ R1% = R1% + R3%
	\ R2% = R2% + R4%
	\ S% = -1% IF B%(R1%,R2%) < 0%
	\ B%(R1%,R2%) = -3%
	\ GOTO 60
130	IF C% < 10%
	THEN PRINT "YOU MUST HAVE E. S. P. !!!!"
	\ GOTO 180
140	IF C% = 10%
	THEN PRINT "YOU'RE JUST LUCKY"
	\ GOTO 180
150	IF C% < 20%
	THEN PRINT "PRETTY BAD, I THINK YOU CAN DO BETTER!"
	\ GOTO 180
160	IF C% > 20%
	THEN PRINT "BOY, ARE YOU A MORON... IT TOOK YOU "C%" TRIES!!"
170	RESUME 180
180	PRINT 
	\ INPUT "DO YOU WANT TO PLAY AGAIN (Y OR N)";A$
	\ IF ASCII(A$) = 89%
	  THEN MAT B% = ZER
	  \ PRINT 
	  \ S%,C% = 0%
	  \ GOTO 50
	  \ END