home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / CONFIGURE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  47 lines
  1. 10  REM  **********************
  2. 20  REM  * CONFIGURE          *
  3. 30  REM  * FOR DISKOVERER     *
  4. 40  REM  * TO RUN UNDER       *
  5. 50  REM  * UNIDOS 3.3         *
  6. 60  REM  * COPYRIGHT 1986 BY  *
  7. 70  REM  * MICROSPARC, INC.   *
  8. 80  REM  * CONCORD, MA  01742 *
  9. 90  REM  **********************
  10. 100  TEXT : HOME : NORMAL 
  11. 110  PRINT "*** DISKOVERER CONFIGURE PROGRAM ***": PRINT : PRINT "COPYRIGHT 1986 BY MICROSPARC, INC.": PRINT : PRINT 
  12. 120  PRINT "THIS PROGRAM WILL CONFIGURE DISKOVERER ": PRINT "TO RUN WITH THE UNIDOS 3.3 OPERATING": PRINT "SYSTEM.": PRINT 
  13. 130  PRINT "A NEW FILE NAMED DISKOVERER.UNI WILL BE": PRINT "CREATED.": PRINT : PRINT : PRINT "INSERT THE DISK WITH DISKOVERER ON IT.": VTAB 20: PRINT "PRESS <RETURN> TO CONTINUE,<ESC> TO QUIT";
  14. 140  VTAB 21: GET CH$: PRINT CH$
  15. 150  IF CH$ =  CHR$(13)  THEN  GOTO 180
  16. 160  IF CH$ =  CHR$(27)  THEN  HOME : GOTO 320
  17. 170  PRINT  CHR$(7);: HTAB 1: GOTO 140
  18. 180  ONERR  GOTO 330
  19. 190 D$ =  CHR$(4)
  20. 200  PRINT D$"BLOAD DISKOVERER"
  21. 210  POKE 29196,32: POKE 29310,32
  22. 220  POKE 30354,32: POKE 30421,32: POKE 30587,32
  23. 230  POKE 29179,31: POKE 29226,31
  24. 240  POKE 29211,50: POKE 29270,50: POKE 30335,50
  25. 250  POKE 30411,50: POKE 30577,50
  26. 260  POKE 29236,49
  27. 270  POKE 29343,76: POKE 29344,248: POKE 29345,129
  28. 280  FOR X = 33272 TO 33291: READ A: POKE X,A: NEXT 
  29. 290  DATA  173,26,111,201,1,240,7,169,1,141,26,111,208,5,169,3,141,26,111,96
  30. 300  PRINT D$"BSAVE DISKOVERER.UNI,A$7000,L$1218"
  31. 310  HOME : VTAB 7: PRINT  CHR$(7);"DISKOVERER.UNI HAS BEEN CREATED."
  32. 320  END 
  33. 330  HOME :ER =  PEEK(222)
  34. 340  POKE 216,0
  35. 350  IF ER < >6  THEN  GOTO 410
  36. 360  VTAB 7: PRINT  CHR$(7);: PRINT " *** DISKOVERER IS NOT ON THIS DISK ***": PRINT 
  37. 370  PRINT "INSERT THE DISK WITH DISKOVERER": PRINT "AND PRESS <RETURN>, OR PRESS <ESC> TO ": PRINT "QUIT":
  38. 380  GET CH$: PRINT CH$: IF CH$ =  CHR$(13)  THEN  GOTO 180
  39. 390  IF CH$ =  CHR$(27)  THEN  HOME : GOTO 320
  40. 400  PRINT  CHR$(7);: GOTO 370
  41. 410  IF ER < >8  THEN  GOTO 470
  42. 420  VTAB 7: PRINT " *** A DISK ERROR OCCURRED ***": PRINT 
  43. 430  PRINT "PLEASE CHECK YOUR DRIVE, THEN PRESS": PRINT "<RETURN> TO CONTINUE, OR <ESC> TO QUIT."
  44. 440  GET CH$: PRINT CH$: IF CH$ =  CHR$(13)  THEN  GOTO 180
  45. 450  IF CH$ =  CHR$(27)  THEN  HOME : GOTO 320
  46. 460  PRINT  CHR$(7);: GOTO 420
  47. 470  RESUME