File: BUG.LS of Disk: V50/Source/Source-Listing-FORTRAN-2

(Source file text) 

---

        FORTRAN IV  V50-A (A6)  24-JUL-20 

0002	        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
0003	        WRITE(4,1)NUM
0004	1       FORMAT (' FATAL ERROR ',I3,', CONSULT YOUR LOCAL WIZARD.'/)
0005	        STOP
0006	        END

---