home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / elan.sit / clock / CLDC.E next >
Encoding:
Text File  |  1988-11-09  |  710 b   |  35 lines
  1.  
  2. PACKET display characters DEFINES show:
  3.  
  4. PROC show (INT CONST n1, TEXT CONST sep, INT CONST n2):
  5.   move to display position;
  6.   put 2 digits (n1);
  7.   put separator (sep);
  8.   put 2 digits (n2)
  9. ENDPROC show;
  10.  
  11. PROC show (INT CONST n, TEXT CONST sep):
  12.   move to display position;
  13.   put 2 digits (n);
  14.   put separator (sep);
  15.   clear last 2 positions.
  16.  
  17.     clear last 2 positions:
  18.       go to next position;
  19.       go to next position.
  20. ENDPROC show;
  21.  
  22. PROC show (TEXT CONST sep, INT CONST n):
  23.   move to display position;
  24.   clear first 2 positions;
  25.   put separator (sep);
  26.   put 2 digits (n).
  27.  
  28.     clear first 2 positions:
  29.       go to next position;
  30.       go to next position.
  31. ENDPROC show;
  32.  
  33. ENDPACKET display characters;
  34.  
  35.