home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36a.dsk / JUNE.1989 / SB.INSTALL.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  28 lines
  1. 10  REM  ***********************
  2. 20  REM  * SB.INSTALL          *
  3. 30  REM  * BY STEVE STEPHENSON *
  4. 40  REM  * COPYRIGHT(C) 1989   *
  5. 50  REM  * MICROSPARC, INC.    *
  6. 60  REM  * CONCORD, MA 01742   *
  7. 70  REM  ***********************
  8. 80  TEXT : HOME :SL(1) = 49663:SL(2) = 49919:SL(3) = 50175:SL(4) = 50431:SL(5) = 50687:SL(6) = 50943:SL(7) = 51199: FOR I = 768 TO 788: READ J: POKE I,J: NEXT 
  9. 90  PRINT  CHR$(21);: ONERR  GOTO 270
  10. 100  PRINT "SMARTBOOT 8/16": PRINT "by Steve Stephenson": PRINT "(C) 1989 MicroSPARC, Inc.": POKE 34,4
  11. 110  VTAB 12: PRINT "This program requires a IIGS": VTAB 23: PRINT "Press Return to continue ": PRINT "Or press Escape to quit ";: POKE  -16368,0: GET AN$: PRINT AN$;: HOME : IF AN$ =  CHR$(27)  THEN  TEXT : HOME : VTAB 23: END 
  12. 120  HOME :BL = 1: PRINT  CHR$(4)"BLOAD SMARTBOOT, A$2000":BL = 0
  13. 130  VTAB 10: HTAB 1: PRINT "(1) Install ": PRINT "(2) Quit"
  14. 140  VTAB 14: HTAB 1: PRINT "Your choice ?";: CALL  -1008: POKE  -16368,0: GET AN$: PRINT AN$;:A =  VAL(AN$): IF A <1  OR A >2  THEN 140
  15. 150  IF A = 2  THEN  TEXT : HOME : VTAB 23: END 
  16. 160  PRINT  CHR$(4);"PREFIX": INPUT PR$
  17. 170  HOME : VTAB 10: HTAB 1: PRINT "Slot: ";: GET S$: PRINT S$;: IF S$ =  CHR$(27)  THEN  HOME : GOTO 130
  18. 180 S =  VAL(S$): IF S <1  OR S >7  THEN 170
  19. 190  VTAB 12: HTAB 1: PRINT "Drive: ";: GET DR$: PRINT DR$;: IF DR$ =  CHR$(27)  THEN  HOME : GOTO 130
  20. 200 D =  VAL(DR$): IF D <1  OR D >2  THEN 190
  21. 220  PRINT  CHR$(4);"PREFIX,S";S;",D";D
  22. 230  IF  PEEK(SL(S)) = 0  THEN 260: REM  check for Disk ][ (5.25 inch disk)
  23. 240  POKE 784,S *16 +(D -1) *128: CALL 768: PRINT : PRINT : PRINT : PRINT "SUCCESS!": FOR I = 1 TO 1000: NEXT I
  24. 250  HOME : GOTO 130
  25. 260  PRINT : PRINT : PRINT : PRINT "YOU CANNOT INSTALL SMARTBOOT ON A 5.25  INCH DISK": PRINT : PRINT "PRESS RETURN TO CONTINUE.";: POKE  -16368,0: GET AN$: HOME : GOTO 130
  26. 270  IF   NOT BL  THEN  PRINT : PRINT : PRINT "ERROR READING SLOT AND DRIVE": PRINT : PRINT "PRESS RETURN TO CONTINUE.";: POKE  -16368,0: GET AN$: HOME : GOTO 130
  27. 280  TEXT : VTAB 23: PRINT "CANNOT FIND FILE 'SMARTBOOT'": END 
  28. 290  DATA  32,0,191,129,15,3,144,6,32,136,190,32,9,190,96,3,80,0,32,0,0