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 / SIMTEL / CPMUG / CPMUG042.ARK / INIT.TEL < prev    next >
Text File  |  1984-04-29  |  1KB  |  50 lines
  1. @!/     WRITTEN BY KEN TALBOTT     /
  2.  
  3. @!/     4 FEBRUARY, 1979      /
  4.  
  5. @!/ZTEL WILL LOAD THIS FILE INTO REGISTER ZERO AND THEN
  6.     EXECUTE IT AS A MACRO.  THE ROUTINE WHICH FOLLOWS
  7.     INITIALIZES BOTH ZTEL AND THE CT82, THEN GIVES THE
  8.     USER THE OPTION OF SELECTING UPPER AND LOWER CASE
  9.     OR UPPER CASE ONLY.  A MACRO IS LOADED INTO TEXT
  10.     REGISTER 9 WHICH WILL ALLOW CHANGING BACK TO UPPER
  11.     CASE ONLY, ASSUMING THE USER DOESN'T OVERWRITE IT./
  12. @!/SET ZTEL = CRT, INIT THE CT-82/
  13. 1WT    @!/SET TTY|CRT FLAG = CRT/
  14. 1WA    @!/SET CONVERSION INHIBIT TO ALLOW PRINTING OF
  15.     CONTROL CHARACTERS WITHOUT CONVERSION TO DISPLAYABLE
  16.     ASCII CHARACTERS PRECEEDED BY ^/
  17. 30ET    @!/DISABLE THE PRINTING OF RUBOUTS BY THE CT-82/
  18. 27ET
  19. 0WA    @!/RESET CONVERSION OF CONTROL CHAR OUTPUT/
  20.     @!/PRINT CONSOLE PROMPT/
  21. I
  22.  
  23. TYPE <LF> FOR UPPER AND LOWER CASE
  25. J3T    @!/GO TO START AND PRINT THREE LINES/
  26. 3K    @!/NOW DELETE THE THREE TEMPORARY LINES/
  27. :EK2    @!/GET A CONSOLE CHAR IN REGISTER 2/
  28. V2-10"N@B/END/'    @!/IF CHAR NOT LF, END/
  29.     @!/INSERT USER PROMPT INTO BUFFER/
  30. IUSE 'M9' TO RESET UPPER CASE ONLY
  32. JT    @!/JUMP BACK AND TYPE IT/
  33. K    @!/NOW DELETE IT/
  34.     @!/SET M9 FOR FINISH/
  35.     @!/INSERT TEXT INTO THE BUFFER/
  36. I1WA
  37. 30ET
  38. 13ET
  39. 0WA
  41. J    @!/NOW JUMP BACK/
  42. 4:P9    @!/PUT 4 LINES INTO 9 AND DELETE THEM
  43.     FROM THE BUFFER/
  44.     @!/NOW SET UPPER AND LOWER CASE/
  45. 1WA    @!/ENABLE OUTPUT OF CONTROL CHAR'S/
  46. 30ET    @!/SET CT-82 TO UPPER & LOWER CASE/
  47. 29ET
  48. 0WA    @!/NOW RESET CONVERSION/
  49. @!/END/
  50.