Commit 8f0d5647 authored by Jesse McGrew's avatar Jesse McGrew
Browse files

Fix YES? for Z-machine version 5.

parent a246e62a69d9
......@@ -2633,7 +2633,14 @@ Returns:
<PRINTI " (y/n) >">
<REPEAT ()
<READLINE>
<SET RESP <GETB ,READBUF 1>>
<VERSION?
(ZIP <SET RESP <GETB ,READBUF 1>>)
(EZIP <SET RESP <GETB ,READBUF 1>>)
(ELSE
<COND (<GETB ,READBUF 1>
<SET RESP <GETB ,READBUF 2>>)
(ELSE
<SET RESP 0>)>)>
<COND (<EQUAL? .RESP !\Y !\y>
<RTRUE>)
(<EQUAL? .RESP !\N !\n>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment