! screen.inf - Sets screen modes. ! ZBefunge - a Befunge interpreter for a Z Machine. ! Copyright 1998 Francis Irving. ! Slightly modified 2002 by Martin Bays, for ZedFunge. ! This source code is distributed under the GNU general public license, ! version 2 or later (at your option). See the file COPYING for ! full information. Global scr_xmax; Global scr_ymax; [ OpenScreen stdv table n code; if (false) { table=$36-->0; print "table=",table,"^"; for (::) { if(table) for(n=0:n<=table-->0:++n) print "table[",n,"]=",table-->n,"^"; ReadKey(); } } scr_xmax=(0->33); scr_ymax=(0->32); if (scr_xmax<47 || scr_ymax<8) { print "^ Sorry!^ ------^ ^ ZedFunge will only work with a screen at least ", 47, " by ", 8, " in size. ^Your ", "screen is ", scr_xmax, " by ", scr_ymax, ". ^ ^ [Press any key to exit...]"; ReadKey(); quit; } stdv=$32-->0; if (stdv==0) { print "^ Warning!^ --------^ ^ ZedFunge will probably only work on an interpreter obeying the Z-Machine Standard. You can still try to use it, but on your head be it. ^ ^ [Press any key to continue...]"; ReadKey(); } if (scr_xmax