home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / elan.sit / clock / CLSCD.E < prev    next >
Encoding:
Text File  |  1988-11-09  |  530 b   |  27 lines
  1.  
  2. PACKET small character display
  3.   DEFINES reset display, put 2 digits, put separator,
  4.           go to next position, move to display position:
  5.  
  6. PROC reset display:
  7. ENDPROC reset display;
  8.  
  9. PROC put 2 digits (INT CONST n):
  10.   put (text (n, 2))
  11. ENDPROC put 2 digits;
  12.  
  13. PROC put separator (TEXT CONST sep):
  14.   put (" " + sep + " ")
  15. ENDPROC put separator;
  16.  
  17. PROC go to next position:
  18.   put (" ")
  19. ENDPROC go to next position;
  20.  
  21. PROC move to display position:
  22.   cursor (70, 1)
  23. ENDPROC move to display position;
  24.  
  25. ENDPACKET small character display;
  26.  
  27.