home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / easyfile.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-18  |  1.5 KB  |  65 lines
  1. 1  DRIVEID$="a:"
  2. 2  FILEID$="EZFILE"
  3. 3  COMMON DRIVEID$,FILEID$
  4. 10  SCREEN 0,1
  5. 20  KEY OFF
  6. 30  COLOR 15,9,4
  7. 40  CLS
  8. 50  PRINT " "
  9. 55  PRINT " "
  10. 60  PRINT "      EASY-FILE AVAILABLE FUNCTIONS"
  11. 70  PRINT "  "
  12. 80  PRINT "  "
  13. 90  PRINT "        A - DISPLAY FILES "
  14. 100  PRINT "        B - ADD TO FILES"
  15. 110  PRINT "        C - COPY FILES"
  16. 120  PRINT "        D - PRINT FILES "
  17. 130  PRINT "        E - ERASE/BUILD FILE"
  18. 140  PRINT "        F - STATUS REPORT"
  19. 150  PRINT "        G - SELECT NEW FILE"
  20. 160  PRINT "        H - CHANGE TO COLOR DISPLAY"
  21. 170  PRINT "        I - CHANGE TO MONO. DISPLAY"
  22. 180  PRINT "      Esc - EXIT"
  23. 190  PRINT "   "
  24. 200  PRINT " "
  25. 210  PRINT "      SELECT FUNCTION BY LETTER"
  26. 220  K$ = INKEY$: IF K$ = "" THEN 220
  27. 230  IF K$ = "A" THEN 440
  28. 240  IF K$ = "a" THEN 440
  29. 250  IF K$ = "B" THEN 450
  30. 260  IF K$ = "b" THEN 450
  31. 270  IF K$ = "C" THEN 460
  32. 280  IF K$ = "c" THEN 460
  33. 290  IF K$ = "D" THEN 490
  34. 300  IF K$ = "d" THEN 490
  35. 310  IF K$ = "E" THEN 510
  36. 320  IF K$ = "e" THEN 510
  37. 330  IF K$ = "F" THEN 520
  38. 340  IF K$ = "f" THEN 520
  39. 350  IF K$ = "G" THEN 600
  40. 360  IF K$ = "g" THEN 600
  41. 370  IF K$= "H" OR K$="h" THEN CHAIN DRIVEID$+"COLRFILE"
  42. 380  IF K$= "I" OR K$="i" THEN CHAIN DRIVEID$+"MONOFILE"
  43. 410  IF K$ = CHR$(27) THEN 530
  44. 430  GOTO 220
  45. 440  CHAIN DRIVEID$+"DISPFILE"
  46. 450  CHAIN DRIVEID$+"ADDFILE"
  47. 460  CHAIN DRIVEID$+"COPFILE"
  48. 470  CHAIN DRIVEID$+"CHGFILE"
  49. 480  CHAIN DRIVEID$+"PRTFILE"
  50. 490  CHAIN DRIVEID$+"LISTFILE"
  51. 500  CHAIN DRIVEID$+"REORFILE"
  52. 510  CHAIN DRIVEID$+"BUILFILE"
  53. 520  CHAIN DRIVEID$+"STATFILE"
  54. 530  CLS
  55. 531  KEY ON
  56. 532  END
  57. 534  REM FOLLOWING CODE NOT NOW USED
  58. 540  PRINT " "
  59. 550  PRINT "   PLACE DOS DISKETTE IN DRIVE A"
  60. 551  PRINT "   PRESS ANY KEY TO PROCEED
  61. 552  K$ = INKEY$: IF K$ = "" THEN 552
  62. 553  CLS
  63. 554  CHAIN "IBMPMENU"
  64. 600  CHAIN DRIVEID$+"FILEFILE"
  65.