home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33a.dsk / APRIL.1988 / EJECT.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  26 lines
  1. 10  REM **********************
  2. 20  REM *     EJECT.DEMO     *
  3. 30  REM *   BY TIM SWIHART   *
  4. 40  REM * COPYRIGHT (C) 1988 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  ONERR  GOTO 180
  9. 90 S = 5:D = 1: REM  SLOT 5,D RIVE 1
  10. 100 D$ =  CHR$(4):EJ = 32768
  11. 110  PRINT D$;"BLOAD DISK.EJECTOR,A$8000"
  12. 120  TEXT : HOME : PRINT "ATTEMPTING TO EJECT FROM SLOT ";S
  13. 130  PRINT  SPC( 24)"DRIVE ";D
  14. 140  CALL EJ,S,D
  15. 150  IF  PEEK(255) < >0  THEN 180
  16. 160  PRINT : PRINT "SUCCESS!"; CHR$(7)
  17. 170  END 
  18. 180 ER =  PEEK(255):EC =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219)
  19. 190  IF ER = 39  THEN  PRINT : PRINT "I/O ERROR"; CHR$(7): END 
  20. 200  IF ER = 40  THEN  PRINT : PRINT "DEVICE IS NOT CONNECTED"; CHR$(7): END 
  21. 210  IF ER = 202  THEN  PRINT : PRINT "REQUESTED DRIVE IS NOT A 3.5"; CHR$(34);" DRIVE."; CHR$(7): END 
  22. 220  IF ((ER = 203)  AND (EC = 16))  THEN  PRINT : PRINT "REQUESTED SLOT NUMBER MUST BE LESS THAN EIGHT."; CHR$(7): END 
  23. 230  IF ER = 204  THEN  PRINT : PRINT "REQUESTED SLOT IS NOT A SMARTPORT"; CHR$(7): END 
  24. 240  IF EC = 16  THEN  PRINT : PRINT "SYNTAX ERROR IN LINE ";EL; CHR$(7): END 
  25. 250  PRINT : PRINT "ERROR NUMBER ";ER;" HAS OCCURRED IN LINE ";EL; CHR$(7)
  26. 260  END