X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fadventure%2F0906%2FBUG.FT;fp=sw%2Fadventure%2F0906%2FBUG.FT;h=0749280942d403c73223bb57f9465512b8d62423;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/adventure/0906/BUG.FT b/sw/adventure/0906/BUG.FT
new file mode 100644
index 0000000..0749280
--- /dev/null
+++ b/sw/adventure/0906/BUG.FT
@@ -0,0 +1,28 @@
+	SUBROUTINE BUG(NUM)
+C
+C  THE FOLLOWING CONDITIONS ARE CURRENTLY CONSIDERED FATAL BUGS.  NUMBERS < 20
+C  ARE DETECTED WHILE READING THE DATABASE; THE OTHERS OCCUR AT "RUN TIME".
+C	0	MESSAGE LINE > 70 CHARACTERS
+C	1	NULL LINE IN MESSAGE
+C	2	TOO MANY WORDS OF MESSAGES
+C	3	TOO MANY TRAVEL OPTIONS
+C	4	TOO MANY VOCABULARY WORDS
+C	5	REQUIRED VOCABULARY WORD NOT FOUND
+C	6	TOO MANY RTEXT OR MTEXT MESSAGES
+C	7	TOO MANY HINTS
+C	8	LOCATION HAS COND BIT BEING SET TWICE
+C	9	INVALID SECTION NUMBER IN DATABASE
+C	20	SPECIAL TRAVEL (500>L>300) EXCEEDS GOTO LIST
+C	21	RAN OFF END OF VOCABULARY TABLE
+C	22	VOCABULARY TYPE (N/1000) NOT BETWEEN 0 AND 3
+C	23	INTRANSITIVE ACTION VERB EXCEEDS GOTO LIST
+C	24	TRANSITIVE ACTION VERB EXCEEDS GOTO LIST
+C	25	CONDITIONAL TRAVEL ENTRY WITH NO ALTERNATIVE
+C	26	LOCATION HAS NO TRAVEL ENTRIES
+C	27	HINT NUMBER EXCEEDS GOTO LIST
+C	28	INVALID MONTH RETURNED BY DATE FUNCTION
+C
+	WRITE(4,1)NUM
+1	FORMAT (' FATAL ERROR ',I3,', CONSULT YOUR LOCAL WIZARD.'/)
+	STOP
+	END