Adventure (Colossal Cave) Crowther, 1976; FORTRAN 67 FORMAT(' THERE ARE ',I2,' THREATENING LITTLE DWARVES IN THE 1 ROOM WITH YOU.',/) GOTO 77 75 CALL SPEAK(4) 77 IF(ATTACK.EQ.0)GOTO 71 IF(ATTACK.EQ.1)GOTO 79 PRINT 78,ATTACK 78 FORMAT(' ',I2,' OF THEM THROW KNIVES AT YOU!',/) GOTO 81 79 CALL SPEAK(5) CALL SPEAK(52+STICK) GOTO(71,83)(STICK+1) 81 IF(STICK.EQ.0) GOTO 69 IF(STICK.EQ.1)GOTO 82 PRINT 68,STICK 68 FORMAT(' ',I2,' OF THEM GET YOU.',/) GOTO 83 82 CALL SPEAK(6) 83 PAUSE 'GAMES OVER' Dungeon (Zork) MIT, 1978; MDL <==? .RM >> "The door reluctantly opens to reveal a rickety staircase descending into darkness." "The door swings shut and closes.">) (<==? .RM > ) (>)>)>>