C	This is a program used to debug your brain when writing code.
        PRINT *, 'Does the damn thing work? (press 1 for yes, 0 for no)' 
10      READ *, work
	IF (work .EQ. 1) GO TO 20
	IF (work .EQ. 0) GO TO 30   
20	PRINT *, 'Do not mess with it'
	GO TO 200
30      PRINT *,  'Did you mess with it? (press 1 for yes, 0 for no)'
        READ *, mess
	IF (mess .EQ. 1) GO TO 40
        IF (mess .EQ. 0) GO TO 50
40	PRINT *, 'You idiot! Does anyone know? (press 1 for yes, 0 for no)'
	READ *, know
	IF (know .EQ. 1) GO TO 60
	IF (know .EQ. 0) GO TO 70
50	PRINT *, 'Will you be blamed? (press 1 for yes, 0 for no)'
	READ *, blame
	IF (blame .EQ. 1) GO TO 60
	IF (blame .EQ. 0) GO TO 80
60	PRINT *, 'You poor fool! Can you blame someone else? (press 1 for yes, 0 for no)'
	READ *, passbuck
	IF (passbuck .EQ. 1) GO TO 200
	IF (passbuck .EQ. 0) GO TO 100
70      PRINT *, 'Hide it.'
	GO TO 200
80	PRINT *, 'Trash it'
	GO TO 200
100	PRINT *, 'You poor fool!'
	PRINT *, 'The end'
	GO TO 300
200     CONTINUE
	PRINT *, 'No problem!'
	GO TO 300
300	STOP
	END