home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fatal Distractions!
/
fataldistractions.bin
/
chap01
/
adventur
/
bug.for
< prev
next >
Wrap
Text File
|
1990-11-11
|
1KB
|
32 lines
SUBROUTINE BUG(NUM)
IMPLICIT INTEGER*4 (A-Z)
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
WRITE(*,1) NUM
1 FORMAT(/' FATAL ERROR, SEE SOURCE CODE FOR INFORMATION.'/
1 ' PROBABLE CAUSE: ERRONEOUS INFO IN DATABASE.'/
2 ' ERROR CODE =',I2/)
STOP
END