home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / vmsnet / funadv / part08 < prev    next >
Encoding:
Internet Message Format  |  1992-03-07  |  1.3 KB
  1. Path: uunet!cs.utexas.edu!qt.cs.utexas.edu!yale.edu!heifetz!emory!dragon.com!cts
  2. From: cts@dragon.com
  3. Newsgroups: vmsnet.sources.games
  4. Subject: funadv Part 08/08
  5. Message-ID: <1992Mar7.222402.831@dragon.com>
  6. Date: 8 Mar 92 03:24:02 GMT
  7. Organization: Computer Projects Unlimited
  8. Lines: 38
  9.  
  10. -+-+-+-+-+-+-+-+ START OF PART 8 -+-+-+-+-+-+-+-+
  11. X      LOGICAL BLKLIN,YESCALL
  12. X      Character*10 Reply, Dummy
  13. X
  14. X      COMMON /IOSCOM/ BLKLIN,YESCALL
  15. X    1 IF(X.NE.0)CALL RSPEAK(X)
  16. X      WC=WCOUNT`20
  17. X      YESCALL=.TRUE.
  18. X      CALL GETIN(REPLY,DUMMY,WC)
  19. X      YESCALL=.FALSE.`20
  20. X      IF(REPLY.NE.'YES'.AND.REPLY.NE.'Y') GOTO 2
  21. X!!!!! WRITE(6,3) 'YES'
  22. X      WCOUNT=WC`20
  23. X      GOTO 10`20
  24. X    2 IF(REPLY.NE.'NO'.and.reply.ne.'N') GOTO 4`20
  25. X!!!!! WRITE(6,3) 'NO'`20
  26. X    3 FORMAT(' ',2H? ,A3)`20
  27. X      WCOUNT=WC`20
  28. X      GOTO 20`20
  29. X    4 READ(5,5) REPLY`20
  30. X    5 FORMAT(1A5 )
  31. X      call str$upcase(reply,reply)
  32. X      IF(REPLY.EQ.('YES').OR.REPLY.EQ.('Y'))GOTO 10`20
  33. X      IF(REPLY.EQ.('NO' ).OR.REPLY.EQ.('N'))GOTO 20`20
  34. X      WRITE(6,9)
  35. X    9 FORMAT(/,' Please answer the question.')
  36. X      IF(X.NE.0) CALL RSPEAK(X)`20
  37. X      GOTO 4
  38. X   10 YES=.TRUE.
  39. X      IF(Y.NE.0)CALL RSPEAK(Y)
  40. X      RETURN
  41. X   20 YES=.FALSE.`20
  42. X      IF(Z.NE.0)CALL RSPEAK(Z)
  43. X      RETURN
  44. X      END`20
  45. $ CALL UNPACK [.SRC]YES.FOR;2 1477381018
  46. $ v=f$verify(v)
  47. $ EXIT
  48.