home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23b.dsk / INSTALL.SPOOLER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  38 lines
  1. 10  REM  ********2.25.85*********
  2. 20  REM  *                      *
  3. 30  REM  *   INSTALL.SPOOLER    *
  4. 40  REM  *    BY KEN MANLY      *
  5. 50  REM  *                      *
  6. 60  REM  *  COPYRIGHT (C) 1985  *
  7. 70  REM  *  BY MICROSPARC, INC  *
  8. 80  REM  *  CONCORD, MA. 01742  *
  9. 90  REM  *                      *
  10. 100  REM ************************
  11. 110  TEXT : HOME : HTAB 13: PRINT "INSTALL SPOOLER": POKE 34,2
  12. 120  HOME : VTAB 8: PRINT "INTERFACE TYPE?": PRINT : PRINT "1  APPLE SSC SERIAL": PRINT "2  APPLE IIC": PRINT "3  PARALLEL": PRINT "4  PKASO": PRINT "5  GRAPPLER": PRINT "  --> ";: GET NF$: PRINT NF$: IF (NF$ <"1"  AND NF$ >"5")  THEN 120
  13. 130  HOME : VTAB 8: PRINT "WHAT SLOT IS THE INTERFACE IN? ": PRINT "  (DEFAULT=1) ";: GET SL$:SL =  VAL(SL$): ON ((SL <1  OR SL >7)  AND SL$ < > CHR$(13)) GOTO 130: ON (NF$ = "2"  AND SL >2) GOTO 130: IF SL$ =  CHR$(13)  THEN SL = 1
  14. 140  HOME : VTAB 8: PRINT "ENTER FILENAME FOR AMENDED SPOOLER": INPUT "  (DEFAULT=SPOOLER) ";FF$: IF FF$ = ""  THEN FF$ = "SPOOLER"
  15. 150  HOME : VTAB 8:HM =  PEEK(115) +256 * PEEK(116): PRINT "IF RUN AT THE CURRENT HIMEM,": PRINT FF$: PRINT "WILL OCCUPY "HM -768" TO "HM -180: PRINT "AND WILL BE SET UP FOR A"
  16. 160  ON  VAL(NF$) GOTO 170,180,190,200,210
  17. 170  PRINT "APPLE SSC ";: GOTO 220
  18. 180  PRINT "APPLE IIC ";: GOTO 220
  19. 190  PRINT "PARALLEL ";: GOTO 220
  20. 200 MS = 7:OK = 3:HS = 192:LS = 128 +16 *SL:LD = 128 +16 *SL
  21. 210  PRINT "GRAPPLER ";: GOTO 220
  22. 220  PRINT "INTERFACE IN SLOT "SL: VTAB 20: PRINT "<RETURN> TO CONTINUE -- <ESC> TO QUIT ";
  23. 230  GET T$: PRINT : IF T$ < > CHR$(13)  AND T$ < > CHR$(27)  THEN 230
  24. 240  IF T$ =  CHR$(27)  THEN 390
  25. 250  PRINT  CHR$(4)"BLOAD SPOOLER":OG = 24576: ON  VAL(NF$) GOTO 260,270,280,290,300
  26. 260 MS = 112:OK = 16:HS = 192:LS = 137 +16 *SL:LD = 136 +16 *SL: GOTO 310
  27. 270 MS = 48:OK = 16:HS = 192:LS = 137 +16 *SL:LD = 136 +16 *SL: GOTO 310
  28. 280 MS = 128:OK = 0:HS = 192 +SL:LS = 193:LD = 129 +16 *SL: GOTO 310
  29. 290 MS = 112:OK = 80:HS = 192:LS = 128 +16 *SL: GOTO 310
  30. 310  POKE OG +252,MS: POKE OG +257,OK: POKE OG +822,LD
  31. 320  FOR I = 1 TO 3: READ T: POKE OG +T,192 +SL: NEXT 
  32. 330  FOR I = 1 TO 3: READ T: POKE OG +T,LS: POKE OG +T +1,HS: NEXT 
  33. 340  DATA  270,423,711
  34. 350  DATA  474,691,723
  35. 360  IF NF$ = "2"  THEN  POKE 24845,64: POKE 24846,99: POKE 25408,162: POKE 25409,192 +SL: POKE 25410,160: POKE 25411,16 *SL: POKE 25412,76: POKE 25413,228: POKE 25414,193
  36. 370  IF NF$ = "4"  THEN  PRINT  CHR$(4)"BLOAD PKASO.PATCH": POKE OG +825,192 +SL
  37. 380  PRINT  CHR$(4)"BSAVE"FF$",A$6000,L$35D": HOME : VTAB 8: PRINT FF$" SAVED": FOR I = 1 TO 2000: NEXT 
  38. 390  TEXT : HOME : END