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 web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.