home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
tech
/
design2
/
ibm.dvr
< prev
next >
Wrap
Text File
|
1979-12-31
|
896b
|
27 lines
50000 '----------- USER CUSTOMIZATION SECTION --------------
50005 '-----IBM PC / GW BASIC / ZENITH ZBASIC VERSION------
50010 '---TERMINAL OR LANGUAGE DEPENDANT INITIALIZATION----
50020 COLOR 7,0
50030 SCREEN 0,0
50090 RETURN
50100 '------EXIT AND DE-INITIALIZATION SUBROUTINE------
50110 COLOR 7,0
50120 CLS
50190 END 'END OR RUN "MENU" IF USING MENU SYSTEM
50200 '------CLEAR SCREEN AND HOME CURSOR SUBROUTINE------
50210 CLS
50290 RETURN
50300 '----ERASE LINE Y TO BOTTOM OF SCREEN SUBROUTINE-----
50310 LOCATE Y,1
50320 FOR I = Y TO 23: PRINT SPACE$(80): NEXT I
50330 PRINT SPACE$(80);
50340 LOCATE Y,1
50390 RETURN
50400 '------SET CURSOR TO POSITION X,Y SUBROUTINE------
50410 LOCATE Y,X
50490 RETURN
50500 '---ERASE LINE AT Y AND SET CURSOR TO 1,Y SUBROUTINE--
50510 LOCATE Y,1:PRINT SPACE$(80);:LOCATE Y,1
50590 RETURN
RN
50500 '---ERASE LINE AT Y AND SET