home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / IMB9005.ZIP / TESTFCB.BAS < prev   
Encoding:
BASIC Source File  |  1990-05-01  |  2.0 KB  |  89 lines
  1. DECLARE SUB Continue ()
  2. DEFINT A-Z
  3.  
  4. 'Program:   TESTFCB.BAS
  5. 'Test program for FCBLabel functions
  6.  
  7. '$INCLUDE: 'FCBLABEL.BI'
  8.  
  9. 'DIM DiskID$ AS STRING * 11
  10. 'DIM NewDiskID$ AS STRING * 11
  11. 'DIM Drive AS STRING * 1
  12.  
  13.  
  14. DO WHILE 1 > 0
  15.     CLS
  16.     LOCATE 1, 25: PRINT "Volume Functions"
  17.     LOCATE 9, 25: PRINT "1) SET label"
  18.     LOCATE 10, 25: PRINT "2) DELETE label"
  19.     LOCATE 11, 25: PRINT "3) RENAME label"
  20.     LOCATE 12, 25: PRINT "4) GET label"
  21.     LOCATE 13, 25: PRINT "5) EXIT"
  22.     LOCATE 15, 20
  23.  
  24.     INPUT "Type number and press Enter > "; Choice
  25.     Drive$ = "C"
  26.  
  27.     SELECT CASE Choice
  28.         CASE 1                  'SET VOLUME LABEL
  29.             DiskID$ = GetDiskID(Drive$)
  30.             IF DiskID$ <> "" THEN
  31.                 PRINT "Label is not null: "; DiskID$
  32.                 PRINT "Use RENAME option instead"
  33.                 Continue
  34.             ELSE
  35.                 INPUT "Enter new label > "; DiskID$
  36.                 IF NOT SetDiskID(Drive$, DiskID$) THEN
  37.                     PRINT "System Error"
  38.                     Continue
  39.                 END IF
  40.             END IF
  41.         CASE 2                  'DELETE VOLUME LABEL
  42.             IF DeleteDiskID(Drive$) THEN
  43.                 PRINT "Volume label deleted"
  44.                 Continue
  45.             ELSE
  46.                 PRINT "System Error"
  47.                 IF GetDiskID(Drive$) = "" THEN
  48.                     PRINT "Can't delete a null label"
  49.                 END IF
  50.                 Continue
  51.             END IF
  52.         CASE 3                  'RENAME VOLUME LABEL
  53.             DiskID$ = GetDiskID(Drive$)
  54.             IF DiskID$ = "" THEN
  55.                 PRINT "Current label is null:"
  56.                 PRINT "Use SET option instead"
  57.                 Continue
  58.             ELSE
  59.                 INPUT "Enter new name of label > ";_
  60.                                          NewDiskID$
  61.                 IF NOT RenameDiskID_
  62.                 (Drive$, DiskID$, NewDiskID$) THEN
  63.                     PRINT "System Error"
  64.                     Continue
  65.                 END IF
  66.             END IF
  67.         CASE 4                  'GET VOLUME LABEL
  68.             DiskID$ = GetDiskID(Drive$)
  69.             PRINT "The current label is ";
  70.             IF DiskID$ = "" THEN
  71.                 PRINT "null"
  72.             ELSE
  73.                 PRINT DiskID$
  74.             END IF
  75.             Continue
  76.         CASE 5
  77.             EXIT DO
  78.         CASE ELSE
  79.             BEEP
  80.     END SELECT
  81. LOOP
  82. END
  83.  
  84. SUB Continue
  85.     PRINT "Press Enter to continue ";
  86.     INPUT d$
  87. END SUB
  88.  
  89.