Topspeed_JPI/TS-V3/INCLUDE/ASCII.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  ASCII.DEF - Modula-2 core library interface                             *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  DEFINITION MODULE ASCII ;
   12  
   13  (* Core library interface *)
   14  CONST
   15  
   16    nul = 00C ; soh = 01C ; stx = 02C ; etx = 03C ;
   17    eot = 04C ; enq = 05C ; ack = 06C ; bel = 07C ;
   18    bs  = 10C ; ht  = 11C ; lf  = 12C ; vt  = 13C ;
   19    ff  = 14C ; cr  = 15C ; so  = 16C ; si  = 17C ;
   20    dle = 20C ; dc1 = 21C ; dc2 = 22C ; dc3 = 23C ;
   21    dc4 = 24C ; nak = 25C ; syn = 26C ; etb = 27C ;
   22    can = 30C ; em  = 31C ; sub = 32C ; esc = 33C ;
   23    fs  = 34C ; gs  = 35C ; rs =  36C ; us  = 37C ;
   24    del = 177C ;
   25  
   26  END ASCII.
*****      ^ not supported yet

    1 error