home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / elan.sit / intgraph / UTILS.E < prev    next >
Encoding:
Text File  |  1988-11-09  |  1.1 KB  |  54 lines
  1.  
  2. PACKET utils
  3.   DEFINES sin, cos, wait for confirmation,
  4.           leave graphics mode, PLEASE,
  5.           ask int, ask real, ask text:
  6.  
  7. REAL PROC sin (INT CONST a):
  8.   sin (pi * real (a) / 180.0)
  9. ENDPROC sin;
  10.  
  11. REAL PROC cos (INT CONST a):
  12.   cos (pi * real (a) / 180.0)
  13. ENDPROC cos;
  14.  
  15. PROC wait for confirmation (INT CONST x, y):
  16.   move (x, y);
  17.   put ("Hit space!");
  18.   TEXT CONST t :: inchar
  19. ENDPROC wait for confirmation;
  20.  
  21. PROC leave graphics mode:
  22.   page;
  23.   enter text mode
  24. ENDPROC leave graphics mode;
  25.  
  26. OP PLEASE (INT VAR x, TEXT CONST message):
  27.    line; put (message); get (x)
  28. ENDOP PLEASE;
  29.  
  30. OP PLEASE (REAL VAR x, TEXT CONST message):
  31.    line; put (message); get (x)
  32. ENDOP PLEASE;
  33.  
  34. OP PLEASE (TEXT VAR x, TEXT CONST message):
  35.    line; put (message); get (x)
  36. ENDOP PLEASE;
  37.  
  38. INT PROC ask int (TEXT CONST message):
  39.    INT VAR x; put (message); get (x); x
  40. ENDPROC ask int;
  41.  
  42. REAL PROC ask real (TEXT CONST message):
  43.    REAL VAR x; put (message); get (x); x
  44. ENDPROC ask real;
  45.  
  46. TEXT PROC ask text (TEXT CONST message):
  47.    TEXT VAR t; put (message); get (t); t
  48. ENDPROC ask text;
  49.  
  50. ENDPACKET utils;
  51. 
  52.  
  53.  
  54.