home *** CD-ROM | disk | FTP | other *** search
/ Fatal Distractions! / fataldistractions.bin / chap01 / adventur / ciao.for < prev    next >
Text File  |  1990-11-12  |  408b  |  14 lines
  1.       SUBROUTINE CIAO
  2.       
  3. C  EXITS, AFTER ISSUING REMINDER TO SAVE NEW CORE IMAGE.  USED WHEN SUSPENDING
  4. C  AND WHEN CREATING A NEW VERSION VIA MAGIC MODE.  ON SOME SYSTEMS, THE CORE
  5. C  IMAGE IS LOST ONCE THE PROGRAM EXITS.  IF SO, SET K=31 INSTEAD OF 32.
  6.  
  7.       IMPLICIT INTEGER*4 (A-Z)
  8.       DATA K/31/
  9.       
  10.       CALL MSPEAK(K)
  11.       IF(K.EQ.31) CALL GETIN(A,B,C,D)
  12.       STOP
  13.       END
  14.