home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / ntcode / jx4nt125 / example / shortest.f < prev   
Encoding:
Text File  |  1995-05-19  |  369 b   |  16 lines

  1. \ This is a test file of ascii text to load and compile using the paste
  2. \ function added to JAX4TH.
  3. \ Written by Clifford King, Micro K Systems, 15874 E. Hamilton Pl.,
  4. \ Aurora, CO  80013 Phone (303) 693-3413  Compuserv [73160,3415]
  5.  
  6. : HELLO ( -- )
  7.     CR ." Hello" 
  8.     CR ." 1 1 + equals " 1 1 + .
  9.     1 
  10.     2 
  11.     3 
  12.     4 
  13.     5
  14.     CR ." The stack looks like this. " ..
  15. ;
  16.