home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25a.dsk / AUGUST.1985 / CONFIGURE.bas next >
BASIC Source File  |  2023-02-26  |  2KB  |  23 lines
  1. 100  REM ***********************
  2. 110  REM *     CONFIGURE       *
  3. 120  REM * (CONFIGURES DBBOOT) *
  4. 130  REM *     BY KEN MANLY    *
  5. 140  REM *BUFFALO CHIP SOFTWARE*
  6. 150  REM * COPYRIGHT (C) 1985  *
  7. 160  REM * BY MICROSPARC, INC. *
  8. 170  REM * CONCORD, MA 01742   *
  9. 180  REM ***********************
  10. 190  DIM FL(2): TEXT : HOME : VTAB 2: PRINT "  THIS PROGRAM WILL HELP YOU SET THE": PRINT : PRINT "OPTIONS AVAILABLE IN THE PROGRAM DBBOOT"
  11. 200  VTAB 8: PRINT "YOU WILL NEED A DISK WITH AN UNLOCKED": PRINT : PRINT "COPY OF DBBOOT.  IF YOU ARE READY, TYPE": PRINT : PRINT "<RETURN> TO CONTINUE.  ANY OTHER KEY": PRINT : PRINT "WILL END THE PROGRAM.": PRINT 
  12. 210  GET Q$: PRINT Q$: IF Q$ < > CHR$(13)  THEN 320
  13. 220  VTAB 8: CALL  -958: PRINT "DBBOOT CAN OFFER YOU A MENU WHEN IT RUNS": PRINT "OR IT CAN AUTOMATICALLY RUN EITHER": PRINT : PRINT "PRODOS OR DOS 3.3 BY DEFAULT."
  14. 230  VTAB 18: PRINT "  1  AUTOMATIC": PRINT "  2  MENU": PRINT : PRINT "CHOOSE ONE ";: GET Q$: PRINT Q$: ON Q$ < >"1"  AND Q$ < >"2" GOTO 230:FL(0) = (Q$ = "2"): IF FL(0)  THEN 290
  15. 240  VTAB 8: CALL  -958: PRINT "DBBOOT CAN RUN EITHER PRODOS OR DOS 3.3": PRINT : PRINT "BY DEFAULT."
  16. 250  VTAB 18: PRINT "  1  PRODOS": PRINT "  2  DOS 3.3": PRINT : PRINT "CHOOSE ONE ";: GET Q$: PRINT Q$: ON Q$ < >"1"  AND Q$ < >"2" GOTO 250:FL(1) = (Q$ = "2")
  17. 260  VTAB 8: CALL  -958: PRINT "WHEN IT BOOTS ONE SYSTEM BY DEFAULT,": PRINT : PRINT "DBBOOT CAN PAUSE TO REMIND YOU HOW YOU": PRINT : PRINT "COULD HAVE CHOSEN THE OTHER SYSTEM.": PRINT 
  18. 270  PRINT "THIS IS A HELP FOR NOVICES BUT JUST A": PRINT : PRINT "NUISANCE FOR EXPERTS."
  19. 280  VTAB 18: PRINT "  1  NOVICE": PRINT "  2  EXPERT": PRINT : PRINT "CHOOSE ONE ";: GET Q$: PRINT Q$: ON Q$ < >"1"  AND Q$ < >"2" GOTO 280:FL(2) = (Q$ = "2")
  20. 290  VTAB 8: CALL  -958: PRINT "THAT'S ALL THE CHOICES; TYPE <Y> TO": PRINT : PRINT "PUT THESE CHOICES INTO THE COPY OF": PRINT : PRINT "DBBOOT THAT'S ON THE DISK.  ANY OTHER": PRINT : PRINT "KEY WILL QUIT WITH NO CHANGES MADE.  ";
  21. 300  GET Q$: PRINT Q$: IF Q$ < >"Y"  AND Q$ < >"y"  THEN 320
  22. 310 D$ =  CHR$(4):N$ = "DBBOOT,A$2000": PRINT D$"BLOAD"N$",TSYS": FOR I = 0 TO 2: POKE 8195 +I,128 *FL(I): NEXT : PRINT D$"BSAVE"N$",L$28F,TSYS"
  23. 320  HOME : PRINT "GOODBYE": END