Inform - Support - Source

Back to List

Inventory
Complete

At Start
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing verblibm.h

Banner (lines 1-45)

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.