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