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