home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / design2 / zenith.dvr < prev   
Encoding:
Text File  |  1979-12-31  |  896 b   |  23 lines
  1. 50000 '----------- USER CUSTOMIZATION SECTION --------------
  2. 50005 '----SUBROUTINES FOR ZENITH Z19, Z89, Z100 CP/M-----
  3. 50010 '---TERMINAL OR LANGUAGE  DEPENDANT INITIALIZATION----
  4. 50020 WIDTH 255
  5. 50030 PRINT CHR$(27);"E";
  6. 50090 RETURN
  7. 50100 '------EXIT AND DE-INITIALIZATION SUBROUTINE------
  8. 50110 PRINT CHR$(27);"E";
  9. 50120 WIDTH 80
  10. 50190 END    'END OR RUN "MENU" IF USING MENU SYSTEM
  11. 50200 '------CLEAR SCREEN AND HOME CURSOR SUBROUTINE------
  12. 50210 PRINT CHR$(27);"E";
  13. 50290 RETURN
  14. 50300 '----ERASE LINE Y TO BOTTOM OF SCREEN SUBROUTINE-----
  15. 50310 PRINT CHR$(27);"Y";CHR$(Y+31);CHR$(32);CHR$(27);"J";
  16. 50390 RETURN
  17. 50400 '------SET CURSOR TO POSITION X,Y SUBROUTINE------
  18. 50410 PRINT CHR$(27);"Y";CHR$(Y+31);CHR$(X+31);
  19. 50490 RETURN
  20. 50500 '---ERASE LINE AT Y AND SET CURSOR TO 1,Y SUBROUTINE--
  21. 50510 PRINT CHR$(27);"Y";CHR$(Y+31);CHR$(32);CHR$(27);"K";
  22. 50590 RETURN
  23. -ERAS