home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / PROGRAM / IQB9203.ZIP / CHDRIVE.BAS next >
BASIC Source File  |  1992-01-22  |  400b  |  18 lines
  1. ' ChDrive.Bas - Support module to contain the ChDrive subprogram.
  2.  
  3. ' $INCLUDE: 'CHDRIVE.BI'
  4. ' $INCLUDE: 'QB.BI'
  5.  
  6.  
  7. SUB ChDrive (DriveSpec$)
  8. ' ChDrive -     Changes the currently logged drive to that specified
  9. '               by the first character of the DriveSpec$ argument.
  10.  
  11. DIM Regs AS RegType
  12.  
  13. Regs.AX = &H0E00
  14. Regs.DX = ASC(DriveSpec$) - &H41
  15. Interrupt &H21, Regs, Regs
  16.  
  17. END SUB
  18.