|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T f
Length: 993 (0x3e1)
Types: TextFile
Names: »fatal.f«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Empire/fatal.f«
logical function fatal ( dummy )
c
c Ask player if wants to reconsider
c
implicit integer(a-z)
logical fat
character ch
goto ( 100, 200, 300, 400, 500, 600 ) dummy
100 call topmsg ( 2, 'The troops cannot swim too well, Sir!
* Are you sure you want to GOTO sea? ' )
goto 700
200 call topmsg ( 2, 'SIR! Those are OUR men!
* Do you really want to attack them? ' )
goto 700
300 call topmsg ( 2, 'That''s NEVER worked before, Sir!
* Are sure you want to try? ' )
goto 700
400 call topmsg ( 2, 'Ships need SEA to float, Sir!
* Do you really want go on shore? ' )
goto 700
500 call topmsg ( 2, 'That''s OUR city, Sir!
* Do you really want to attack the garrison? ' )
goto 700
600 call topmsg ( 2, 'Sorry Sir, there is no room
* left on the transport. Do you insist? ' )
700 continue
call cflush
ch = char(getchx())
call topmsg ( 2, 0 )
comment clear the line
fat = .false.
if (( ch .eq. 'Y') .or. ( ch .eq. 'y' )) fat = .true.
fatal = fat
return
end