home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / engprog.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-01-08  |  718 b   |  26 lines
  1. 10  KEY OFF
  2. 20  COLOR 5,15,9
  3. 25  CLS
  4. 30  GOSUB 30000
  5. 80  LOCATE 14,5
  6. 90  PRINT"    AN ASSEMBLY CONSISTING OF SEVERAL PROGRAMS COVERING THE DESIGN OF"
  7. 100  PRINT:PRINT"    AMATEUR RADIO ASSOCIATED ITEMS. IT MUST BE RUN WITH THE DISK IN"
  8. 110  PRINT:PRINT"    THE ACTIVE DRIVE OF THE PC! THE PROGRAM ADDRESSES THAT DRIVE FOR DATA.":PRINT
  9. 115  COLOR 1:PRINT"         >>> IF DISK NOT IN ACTIVE DRIVE.....MOVE IT NOW! <<<"
  10. 120  COLOR 17:LOCATE 23,35:PRINT CHR$(17)CHR$(&HC4)CHR$(&HD9):COLOR 1
  11. 130  A$= INKEY$: IF A$= " " THEN 130
  12. 140  IF A$= CHR$(13) THEN 155
  13. 150  GOTO 130
  14. 155  COLOR 15,0,0:CLS
  15. 156  LOCATE 12,37:PRINT"WAIT"
  16. 160  RUN"MAINMENU"
  17. 30000  CLS
  18. 30010  COLOR 4:LOCATE 3,15:PRINT STRING$(50,178)
  19. 30020  FOR X=1 TO 7:PRINT TAB(15)CHR$(178);TAB(64)CHR$(178)
  20. 30030  NEXT X
  21. 30040  PRINT TAB(15)STRING$(50,178)
  22. 30050  COLOR 1:LOCATE 5,37:PRINT"K4EDE"
  23. 30060  LOCATE 7,30:PRINT"ENGINEERING PROGRAMS"
  24. 30065  LOCATE 9,30:PRINT"A SHAREWARE PROGRAM"
  25. 30070  RETURN
  26.