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