home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / DISPMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-15  |  512 b   |  24 lines
  1. 10  SCREEN 0,1
  2. 20  COLOR 15,9,4
  3. 30  CLS
  4. 40  PRINT " "
  5. 50  PRINT "             DISPLAY  MENU"
  6. 60  PRINT " "
  7. 80  PRINT " "
  8. 85  PRINT "        A - BROWSE FILE"
  9. 90  PRINT "        B - LOCATE AND DISPLAY"
  10. 95  PRINT "      Esc - RETURN TO MAIN MENU"
  11. 100  PRINT " "
  12. 110  PRINT " "
  13. 120  PRINT "    SELECT FUNCTION BY LETTER"
  14. 130  K$ = INKEY$: IF K$ = "" THEN 130
  15. 140  IF K$ = "A" THEN 200
  16. 145  IF K$ = "a" THEN 200
  17. 150  IF K$ = "B" THEN 300
  18. 160  IF K$ = "b" THEN 300
  19. 165  IF K$ = CHR$(27) THEN 400
  20. 170  GOTO 130
  21. 200  CHAIN "b:browmail"
  22. 300  CHAIN "b:locmail"
  23. 400  CHAIN "b:mailmenu
  24.