# 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
            'Check for end of ASCIIZ:
            IF PEEK(RootOffset + i * SizeOfLDT) = 0 THEN EXIT DO
            PRINT CHR$(PEEK(RootOffset + i * SizeOfLDT));
            RootOffset = RootOffset + 1

     NEXT i



 * 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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET