At Start Banner (lines 1-45)
Back to List
Forward
Browsing verblibm.h
0001 ! ----------------------------------------------------------------------------
0002 ! VERBLIBM: Core of standard verbs library.
0003 !
0004 ! Supplied for use with Inform 6 Serial number 991113
0005 ! Release 6/10
0006 ! (c) Graham Nelson 1993, 1994, 1995, 1996, 1997, 1998, 1999
0007 ! but freely usable (see manuals)
0008 ! ----------------------------------------------------------------------------
0009
0010 #IFDEF MODULE_MODE;
0011 Constant DEBUG;
0012 Constant Grammar__Version2;
0013 Include "linklpa";
0014 Include "linklv";
0015 #ENDIF;
0016
0017 System_file;
0018
0019 ! ----------------------------------------------------------------------------
0020
0021 [ Banner i;
0022 if (Story ~= 0)
0023 {
0024 #IFV5; style bold; #ENDIF;
0025 print (string) Story;
0026 #IFV5; style roman; #ENDIF;
0027 }
0028 if (Headline ~= 0)
0029 print (string) Headline;
0030 print "Release ", (0-->1) & $03ff, " / Serial number ";
0031 for (i=18:i<24:i++) print (char) 0->i;
0032 print " / Inform v"; inversion;
0033 print " Library ", (string) LibRelease, " ";
0034 #ifdef STRICT_MODE;
0035 print "S";
0036 #endif;
0037 #ifdef INFIX;
0038 print "X";
0039 #ifnot;
0040 #ifdef DEBUG;
0041 print "D";
0042 #endif;
0043 #endif;
0044 new_line;
0045 ];
Last updated 27 February 2004.
This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation.
Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.