A large commit.

[pdp8.git] / sw / adventure / 0906 / BUG.FT

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