home *** CD-ROM | disk | FTP | other *** search
/ Super Games / visualcdgame.iso / dosgames / contintl / menu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-08-10  |  4.3 KB  |  51 lines
  1. 10  REM !--------------------------------------------------------------- !
  2. 15  REM !-------- C O N T I N E N T A L    E L E C T R O N I C S --------!
  3. 20  REM !  BROADAST TECHNICAL PROGRAMS - Steve Schott - Rev. JULY 1991   !
  4. 22  REM !                                                                !
  5. 25  REM ! ---------------------  DISK MAILOUT ---------------------------!
  6. 27  REM !                          MENU.BAS                              !
  7. 30  REM !----------------------------------------------------------------!
  8. 40   KEY 5,CHR$(12) : KEY 6,"EDIT " : KEY 7,"SYSTEM"+CHR$(13) :KEY 8,"SHELL"+CHR$(13) : KEY 9,"KEY 10, CHR$(" : KEY 10,"KEY ON"+CHR$(13) : REM Change Function Keys for Editing.
  9. 45  LOCATE 1,1,:COLOR 0,9: PRINT "                                          "
  10. 50  LOCATE 3,1,:COLOR 0,9: PRINT "                                          ":COLOR 0,9
  11. 55  CLS
  12. 60  CL$ = "                                                                                " : REM  String of Blanks to Clear Line
  13. 70  CLS : COLOR 7,0 : KEY OFF
  14. 80  LOCATE 2,1:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  15. 90  PRINT "OPEN "; : COLOR 0,7 : PRINT "                   T E C H N I C A L   P R O G R A M S                    "; : COLOR 7,0 : PRINT "  OPEN"
  16. 100  PRINT "OPEN "; : COLOR 0,7 : PRINT "          - Continental Electronics -    Steve Schott  Rev 2.0  1991      "; : COLOR 7,0 : PRINT "  OPEN"
  17. 110  PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  18. 120  REM ----------
  19. 130  REM DISCLAIMER STATEMENT
  20. 140  REM ----------
  21. 180  LOCATE 7,1 : COLOR 15 : PRINT "  These Technical Programs are provided as a courtesy at";:COLOR 14:PRINT "  NO CHARGE             ": COLOR 15 :PRINT "  to the Broadcast Engineer. The programs are written in MS-DOS BASIC and        "
  22. 190  LOCATE 9,1 : PRINT "  require GWBASIC to run. For more details, read the file README.DOC on this    ":COLOR 15: PRINT"  by using the DOS command called <TYPE>,  ie.    TYPE README.DOC                "
  23. 195  LOCATE 11,1 : PRINT "                                                                                ": COLOR 7
  24. 200  LOCATE 12,1 : PRINT "                                                                                ": COLOR 7
  25. 210  LOCATE 13,1 :COLOR 15:PRINT "       PLEASE NOTE:   Use of these programs is solely the RESPONSIBLILITY          of the user. NEITHER THE AUTHOR OR CONTINENTAL ELECTRONICS IS RESPONSIBLE      "
  26. 220  LOCATE 15,1 :PRINT "   FOR THEIR ACCURACY OR APPLICATION OR THE RESULTS OF THEIR USE.                   "
  27. 225  LOCATE 16,1 : PRINT "                                                                                ": COLOR 7
  28. 230  LOCATE 17,1:COLOR 0,7:PRINT "       We hope these programs are useful. Comments & Suggestions are welcome.      "
  29. 240  LOCATE 18,1 :PRINT "             TECHNICAL PROGRAM COMMENTS             (214) 423-3644               ":COLOR 0,7
  30. 250  LOCATE 19,1 : PRINT "                                                                                ": COLOR 7
  31. 260  LOCATE 20,1 : COLOR 10,5: PRINT "Continental Electronics is a manufacturer of reliable, high quality Broadcast   Transmitters. Continental also supplies quality name brand equipment from         "
  32. 270  LOCATE 22,1 : COLOR 10,5: PRINT "Numerous Vendors. 24 Hour Emergency SERVICE & PARTS numbers and your local      CONTINENTAL SALES OFFICE numbers are provided next.........                     "
  33. 300  LOCATE 25,1: COLOR 0,9:COLOR 11:PRINT "               ...... STRIKE ANY KEY WHEN READY  .......                       "
  34. 320  A$ = INPUT$(1)
  35. 510  CLS
  36. 590  LOCATE 1,1,:COLOR 0,9: PRINT "                                          "
  37. 600  LOCATE 3,1,:COLOR 0,9: PRINT "                                          ":COLOR 0,9
  38. 610  CLS
  39. 620  CL$ = "                                                                                " : REM  String of Blanks to Clear Line
  40. 630  CLS : COLOR 7,0 : KEY OFF
  41. 680  LOCATE 2,1:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  42. 690  PRINT "OPEN "; : COLOR 0,7 : PRINT "                   C O N T I N E N T A L    D I R E C T O R Y              "; : COLOR 7,0 : PRINT " OPEN"
  43. 700  PRINT "OPEN "; : COLOR 0,7 : PRINT "               4212 S. Buckner Blvd. - - -    Dallas, TX  75227            "; : COLOR 7,0 : PRINT " OPEN"
  44. 705  PRINT "OPEN "; : COLOR 0,7 : PRINT "           Phone:  (214)  381-7161   - - -   FAX:  (214)  381-3250         "; : COLOR 7,0 : PRINT " OPEN"
  45. 710  PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  46. 800  LOCATE 9,7 : COLOR 15,4: PRINT "  24 HOUR EMERGENCY SERVICE DEPARTMENT    (214) 388-5800";:COLOR 7:PRINT "      "
  47. 810  LOCATE 11,7 : COLOR 15,4: PRINT "  24 HOUR PARTS DEPARTMENT                (214) 388-3737";:COLOR 7:PRINT "      "
  48. 825  LOCATE 22,25 : COLOR 15,4: PRINT "PRESS ANY KEY TO CONTINUE ....";:COLOR 7
  49. 920  A$ = INPUT$(1)
  50. 950  RUN "TECHMENU"
  51.