home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / smalltalk.p < prev    next >
Encoding:
Text File  |  1986-10-19  |  1.1 KB  |  48 lines
  1. temp <- <primitive 110 10 >
  2. <primitive 112 temp 1        " time: " \
  3.     #( #[ 250 0 161 114 33 165 242 250 0 161 34 193 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " sh: " \
  7.     #( #[ 33 250 1 125 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " perform:withArguments: " \
  11.     #( #[ 34 33 250 2 143 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " noDisplay " \
  15.     #( #[ 81 80 250 2 8 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " doPrimitive:withArguments: " \
  19.     #( #[ 33 34 250 2 30 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " displayAssign " \
  23.     #( #[ 81 82 250 2 8 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " display " \
  27.     #( #[ 81 81 250 2 8 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 8        " debug: " \
  31.     #( #[ 82 33 250 2 8 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 9        " date " \
  35.     #( #[ 250 0 160 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 10        " clearScreen " \
  39.     #( #[ 250 0 162 242 245] \
  40.     #(  ) ) >
  41.  
  42. <primitive 98 #Smalltalk \
  43.     <primitive 97 #Smalltalk #Dictionary #Smalltalk:prelude/smalltalk.st \
  44.     #(  ) \
  45.     #( #time: #sh: #perform:withArguments: #noDisplay #doPrimitive:withArguments: #displayAssign #display #debug: #date #clearScreen  ) \
  46.     temp 3 3 > >
  47.  
  48.