# of disk drives 2/2

 BBS: Inland Empire Archive
Date: 04-24-92 (05:10)             Number: 100
From: STEVE HALKO                  Refer#: NONE
  To: LOGAN ASHBY                   Recvd: NO  
Subj: # of disk drives      2/2      Conf: (2) Quik_Bas

>>> Continued from previous message
          IF flag AND &H20 THEN             'If JOINed drive
               LOCATE 8 + i, 24
               PRINT "X";
          END IF

          IF flag AND &H10 THEN             'If SUBSTed drive
               LOCATE 8 + i, 29
               PRINT "X";
          END IF

          'Get pointer to Drive Parameter Block (DPB) and print it
          DPBSeg& = PEEK(TableOffset + &H47) +_
                    &H100& * PEEK(TableOffset + &H48)
          DPBOffset& = PEEK(TableOffset + &H45) +_
                       &H100& * PEEK(TableOffset + &H46)
          LOCATE 8 + i, 33
          PRINT Int2Hex$(DPBSeg&); ":"; Int2Hex$(DPBOffset&);

      'Get offset into current directory field and print current directory
          RootOffset = PEEK(TableOffset + &H4F) +_
                       &H100& * PEEK(TableOffset + &H50)
          LOCATE 8 + i, 43
          DO
            'Check for end of ASCIIZ:
            IF PEEK(RootOffset + i * SizeOfLDT) = 0 THEN EXIT DO
            PRINT CHR$(PEEK(RootOffset + i * SizeOfLDT));
            RootOffset = RootOffset + 1
          LOOP

     NEXT i

  END SELECT

  END SUB

 * SLMR 2.1a * More bass at all frequencies, man!

--- DB B1065/002487
 * Origin: Gulf Coast BBS -QuickSHARE #2- (904)563-2547 HST/V.32bis (1:365/12)