key = scanner.nexttok()
if key == "IHREAL":
+ huh()
return
action = None
winner = cgetline()
# The 38 below must be 64 for 132-column paper
nskip = 38 - len(winner)/2
- fp.write("\n\n\n\n")
- # --------DRAW ENTERPRISE PICTURE.
- fp.write(" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE\n" )
- fp.write(" EEE E : : : E\n" )
- fp.write(" EE EEE E : : NCC-1701 : E\n")
- fp.write("EEEEEEEEEEEEEEEE EEEEEEEEEEEEEEE : : : E\n")
- fp.write(" E EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE\n")
- fp.write(" EEEEEEEEE EEEEEEEEEEEEE E E\n")
- fp.write(" EEEEEEE EEEEE E E E E\n")
- fp.write(" EEE E E E E\n")
- fp.write(" E E E E\n")
- fp.write(" EEEEEEEEEEEEE E E\n")
- fp.write(" EEE : EEEEEEE EEEEEEEE\n")
- fp.write(" :E : EEEE E\n")
- fp.write(" .-E -:----- E\n")
- fp.write(" :E : E\n")
- fp.write(" EE : EEEEEEEE\n")
- fp.write(" EEEEEEEEEEEEEEEEEEEEEEE\n")
+ # This is where the ASCII art picture was emitted.
+ # It got garbled somewhere in the chain of transmission to the Almy version.
+ # We should restore it if we can find old enough FORTRAN sources.
fp.write("\n\n\n")
fp.write(_(" U. S. S. ENTERPRISE\n"))
fp.write("\n\n\n\n")
iprompt = True
key = scanner.nexttok()
itemp = "verbose"
- if key != "IHREAL":
+ if key == "IHREAL":
+ delta.j = scanner.real
+ else:
huh()
raise TrekError
- delta.j = scanner.real
key = scanner.nexttok()
- if key != "IHREAL":
+ if key == "IHREAL":
+ delta.i = scanner.real
+ elif key == "IHEOL":
+ delta.i = 0
+ scanner.push("\n")
+ else:
huh()
raise TrekError
- delta.i = scanner.real
# Check for zero movement
if delta.i == 0 and delta.j == 0:
scanner.chew()