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