home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / ETC / putchar.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  3.2 KB  |  110 lines
  1. #ò╢ÄÜâRü[âhé≡Åoù═é╡é▄é╖
  2. #\!- <val>
  3. :ans 0
  4. :uint
  5. @f=0
  6. for @i=0;@i<4;@i++
  7.     @c=(@0>>(8*(3-@i)))&\xff
  8.     if @c!=\x00;@f=1;endif
  9.     if @f
  10.         switch @c
  11.         case '\ ;:print "\ ;breakswi
  12.         case '! ;:print "! ;breakswi
  13.         case '" ;:print "" ;breakswi
  14.         case '\#;:print "\#;breakswi
  15.         case '$ ;:print "$ ;breakswi
  16.         case '\%;:print "\%;breakswi
  17.         case '\&;:print "\&;breakswi
  18.         case '' ;:print "' ;breakswi
  19.         case '\(;:print "\(;breakswi
  20.         case '\);:print "\);breakswi
  21.         case '\*;:print "\*;breakswi
  22.         case '\+;:print "\+;breakswi
  23.         case '\,;:print "\,;breakswi
  24.         case '\-;:print "\-;breakswi
  25.         case '. ;:print ". ;breakswi
  26.         case '\/;:print "\/;breakswi
  27.         case '0 ;:print "0 ;breakswi
  28.         case '1 ;:print "1 ;breakswi
  29.         case '2 ;:print "2 ;breakswi
  30.         case '3 ;:print "3 ;breakswi
  31.         case '4 ;:print "4 ;breakswi
  32.         case '5 ;:print "5 ;breakswi
  33.         case '6 ;:print "6 ;breakswi
  34.         case '7 ;:print "7 ;breakswi
  35.         case '8 ;:print "8 ;breakswi
  36.         case '9 ;:print "9 ;breakswi
  37.         case ': ;:print ": ;breakswi
  38.         case '\;;:print "\;;breakswi
  39.         case '< ;:print "< ;breakswi
  40.         case '\=;:print "\=;breakswi
  41.         case '> ;:print "> ;breakswi
  42.         case '\?;:print "\?;breakswi
  43.         case '@ ;:print "@ ;breakswi
  44.         case 'A ;:print "A ;breakswi
  45.         case 'B ;:print "B ;breakswi
  46.         case 'C ;:print "C ;breakswi
  47.         case 'D ;:print "D ;breakswi
  48.         case 'E ;:print "E ;breakswi
  49.         case 'F ;:print "F ;breakswi
  50.         case 'G ;:print "G ;breakswi
  51.         case 'H ;:print "H ;breakswi
  52.         case 'I ;:print "I ;breakswi
  53.         case 'J ;:print "J ;breakswi
  54.         case 'K ;:print "K ;breakswi
  55.         case 'L ;:print "L ;breakswi
  56.         case 'M ;:print "M ;breakswi
  57.         case 'N ;:print "N ;breakswi
  58.         case 'O ;:print "O ;breakswi
  59.         case 'P ;:print "P ;breakswi
  60.         case 'Q ;:print "Q ;breakswi
  61.         case 'R ;:print "R ;breakswi
  62.         case 'S ;:print "S ;breakswi
  63.         case 'T ;:print "T ;breakswi
  64.         case 'U ;:print "U ;breakswi
  65.         case 'V ;:print "V ;breakswi
  66.         case 'W ;:print "W ;breakswi
  67.         case 'X ;:print "X ;breakswi
  68.         case 'Y ;:print "Y ;breakswi
  69.         case 'Z ;:print "Z ;breakswi
  70.         case '\[;:print "\[;breakswi
  71.         case '\\;:print "\\;breakswi
  72.         case '] ;:print "] ;breakswi
  73.         case '\^;:print "\^;breakswi
  74.         case '_ ;:print "_ ;breakswi
  75.         case '` ;:print "` ;breakswi
  76.         case 'a ;:print "a ;breakswi
  77.         case 'b ;:print "b ;breakswi
  78.         case 'c ;:print "c ;breakswi
  79.         case 'd ;:print "d ;breakswi
  80.         case 'e ;:print "e ;breakswi
  81.         case 'f ;:print "f ;breakswi
  82.         case 'g ;:print "g ;breakswi
  83.         case 'h ;:print "h ;breakswi
  84.         case 'i ;:print "i ;breakswi
  85.         case 'j ;:print "j ;breakswi
  86.         case 'k ;:print "k ;breakswi
  87.         case 'l ;:print "l ;breakswi
  88.         case 'm ;:print "m ;breakswi
  89.         case 'n ;:print "n ;breakswi
  90.         case 'o ;:print "o ;breakswi
  91.         case 'p ;:print "p ;breakswi
  92.         case 'q ;:print "q ;breakswi
  93.         case 'r ;:print "r ;breakswi
  94.         case 's ;:print "s ;breakswi
  95.         case 't ;:print "t ;breakswi
  96.         case 'u ;:print "u ;breakswi
  97.         case 'v ;:print "v ;breakswi
  98.         case 'w ;:print "w ;breakswi
  99.         case 'x ;:print "x ;breakswi
  100.         case 'y ;:print "y ;breakswi
  101.         case 'z ;:print "z ;breakswi
  102.         case '\{;:print "\{;breakswi
  103.         case '\|;:print "\|;breakswi
  104.         case '\};:print "\};breakswi
  105.         case '~ ;:print "~ ;breakswi
  106.         default ;:print ". ;breakswi
  107.         endswi
  108.     endif
  109. next
  110.