3 "

     1 "

     4  COPYRIGHT (c) 1988 by Claus Gittinger

     2  COPYRIGHT (c) 1988 by Claus Gittinger

     5 	      All Rights Reserved

     3 	      All Rights Reserved

     6 

     4 

     7  This software is furnished under a license and may be used

     5  This software is furnished under a license and may be used

   722     (character := aCharacterOrByte) isCharacter ifFalse:[

   720     (character := aCharacterOrByte) isCharacter ifFalse:[

   723         character := aCharacterOrByte asCharacter

   721         character := aCharacterOrByte asCharacter

   724     ].

   722     ].

   725 

   723 

   726     (character == Character cr) ifTrue:[

   724     (character == Character cr) ifTrue:[

   728     ].

   727     ].

   729 

   728 

   730     native == true ifTrue:[

   729     native == true ifTrue:[

   731         stream nextPut:character.

   730         stream nextPut:character.

   732         ^ self.

   731         ^ self.