home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SCAPIN.Z80 < prev    next >
Text File  |  2000-06-30  |  512b  |  26 lines
  1. ;
  2. ; SYSLIB Module Name:  SCAPIN
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    capin,capine
  8.  
  9.     EXT    CIN,COUT,CAPS
  10.  
  11. ;
  12. ;  INPUT CHAR FROM USER, CAPITALIZE IT, AND ECHO IT BACK
  13. ;
  14. CAPINE:
  15.     CALL    CAPIN    ; GET CHAR
  16.     JP    COUT
  17.  
  18. ;
  19. ;  INPUT CHAR FROM USER AND CAPITALIZE IT
  20. ;
  21. CAPIN:
  22.     CALL    CIN    ; GET CHAR
  23.     JP    CAPS    ; CAPITALIZE
  24.  
  25.     END
  26.