home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / filefile.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-21  |  768 b   |  34 lines
  1. 10  COMMON DRIVEID$,FILEID$
  2. 20  SCREEN 0,1
  3. 30  KEY OFF
  4. 40  COLOR 15,9,4
  5. 50  CLS
  6. 60  PRINT " "
  7. 70  PRINT " "
  8. 80  PRINT "      EASY-FILE SELECT FILE"
  9. 90  PRINT "  "
  10. 100  PRINT "  "
  11. 110  PRINT "   Are you sure that you want"
  12. 120  PRINT "   to change your fileid from"+DRIVEID$+FILEID$+".EZF ?"
  13. 130  PRINT "   "
  14. 140  INPUT "  ENTER    Y  OR  N";ANS$
  15. 150  IF ANS$ = "N" THEN 180
  16. 160  IF ANS$ = "Y" THEN 210
  17. 170  GOTO 130
  18. 180  PRINT "  "
  19. 190  PRINT "     CHANGE   BYPASSED"
  20. 200  CHAIN DRIVEID$+"FILEMENU"
  21. 210  PRINT " "
  22. 220  INPUT "    NEW DRIVEID==>";DRIVEID$
  23. 230  PRINT " "
  24. 240  INPUT "    NEW FILEID ==>";FILEID$
  25. 250  PRINT " "
  26. 260  PRINT "   The new fileid is "+DRIVEID$+FILEID$+".EFZ"
  27. 270  PRINT " "
  28. 280  PRINT "   Is this correct?"
  29. 290  INPUT "   ENTER  Y  OR  N";ANS$
  30. 300  IF ANS$ = "N" THEN 210
  31. 310  IF ANS$ = "Y" THEN 330
  32. 320  GOTO 290
  33. 330  CHAIN DRIVEID$+"FILEMENU"
  34.