home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / design2 / kaypro.dvr < prev    next >
Encoding:
Text File  |  1979-12-31  |  896 b   |  23 lines
  1. 50000 '----------- USER CUSTOMIZATION SECTION --------------
  2. 50005 '----SUBROUTINES FOR KAYPRO (ADM-3A EMULATOR)-----
  3. 50010 '---TERMINAL OR LANGUAGE  DEPENDANT INITIALIZATION----
  4. 50020 WIDTH 255
  5. 50030 PRINT CHR$(26);
  6. 50090 RETURN
  7. 50100 '------EXIT AND DE-INITIALIZATION SUBROUTINE------
  8. 50110 PRINT CHR$(26);
  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$(26);
  13. 50290 RETURN
  14. 50300 '----ERASE LINE Y TO BOTTOM OF SCREEN SUBROUTINE-----
  15. 50310 PRINT CHR$(27);"=";CHR$(Y+31);CHR$(32);CHR$(23);
  16. 50390 RETURN
  17. 50400 '------SET CURSOR TO POSITION X,Y SUBROUTINE------
  18. 50410 PRINT CHR$(27);"=";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);"=";CHR$(Y+31);CHR$(32);CHR$(24);
  22. 50590 RETURN
  23.  '---ERASE LINE AT Y AND SE