home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / easymail.lzh / LABMAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-05  |  896 b   |  44 lines
  1. 5  COMMON UP,ENVEL
  2. 10  SCREEN 0,1
  3. 20  KEY OFF
  4. 30  COLOR 15,9,4
  5. 40  CLS
  6. 50  PRINT " "
  7. 55  PRINT " "
  8. 60  PRINT "      EASY-MAIL LABEL PRINT FUNCTIONS"
  9. 70  PRINT "  "
  10. 80  PRINT "  "
  11. 90  PRINT "        A - PRINT 1-up LABELS"
  12. 100  PRINT "        B - PRINT 2-up LABELS"
  13. 110  PRINT "        C - PRINT ENVELOPES"
  14. 180  PRINT "      Esc - EXIT"
  15. 190  PRINT "   "
  16. 200  PRINT " "
  17. 210  PRINT "      SELECT FUNCTION BY LETTER"
  18. 220  K$ = INKEY$: IF K$ = "" THEN 220
  19. 230  IF K$ = "A" THEN 440
  20. 240  IF K$ = "a" THEN 440
  21. 250  IF K$ = "B" THEN 450
  22. 260  IF K$ = "b" THEN 450
  23. 270  IF K$ = "C" THEN 460
  24. 280  IF K$ = "c" THEN 460
  25. 410  IF K$ = CHR$(27) THEN 530
  26. 420  IF K$ = "J" THEN 530
  27. 430  GOTO 220
  28. 440  UP=1
  29. 442  CHAIN "B:LABSELEC"
  30. 450  UP=2
  31. 452  CHAIN "B:LABSELEC"
  32. 460  ENVEL=1
  33. 462  CHAIN "B:LABSELEC"
  34. 530  CHAIN "B:MAILMENU"
  35. 531  KEY ON
  36. 532  END
  37. 534  REM FOLLOWING CODE NOT NOW USED
  38. 540  PRINT " "
  39. 550  PRINT "   PLACE DOS DISKETTE IN DRIVE A"
  40. 551  PRINT "   PRESS ANY KEY TO PROCEED
  41. 552  K$ = INKEY$: IF K$ = "" THEN 552
  42. 553  CLS
  43. 554  CHAIN "IBMPMENU"
  44.