home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31a.dsk / APRIL.1987 / LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  25 lines
  1. 10  REM  ************************
  2. 20  REM  * LOADER               *
  3. 30  REM  * BY WILLIAM REYNOLDS  *
  4. 40  REM  * COPYRIGHT (C) 1987   *
  5. 50  REM  * BY MICROSPARC, INC.  *
  6. 60  REM  * CONCORD, MA  01742   *
  7. 70  REM  ************************
  8. 80  TEXT : HOME 
  9. 90  PRINT "LOADER": PRINT "BY WILLIAM REYNOLDS III"
  10. 100  PRINT "COPYRIGHT 1987 BY MICROSPARC, INC."
  11. 110  FOR X = 1 TO 2000: NEXT : VTAB 12: PRINT "LOADING AND CONFIGURING DOS..."
  12. 120  DATA  169,158,141,7,190,169,190,141,8,190,32,248,190,169,42,32,245,190,141,34,3,144,5,169,0,24,144,246,169,76,141,10,3,96
  13. 130  FOR X = 768 TO 801: READ Y: POKE X,Y: NEXT 
  14. 140  CALL 768
  15. 150  IF  PEEK(802) = 112  THEN 170
  16. 160  HOME : PRINT  CHR$(7);"MEMORY CONFIGURATION ERROR.": END 
  17. 170  ONERR  GOTO 250
  18. 180  PRINT  CHR$(4);"BLOAD DOS38.5K": REM  A$7000
  19. 190  PRINT  CHR$(4);"BLOAD PATCH.0": PRINT  CHR$(4);"BLOAD PATCH.1,A$7080": REM  $7000,AND $7080
  20. 200  POKE 216,0
  21. 210  POKE 33896,1: POKE 33898,6
  22. 220  CALL 28672
  23. 230  IF  PEEK(0) = 0  THEN  HOME : PRINT : VTAB 10: PRINT "DOS 3.3 INSTALLED, 25K BYTES FREE.": PRINT : PRINT "TYPE 'DOS' TO MOVE TO DOS 3.3,": PRINT "'PRODOS' TO RETURN TO PRODOS'": END 
  24. 240  GOTO 160
  25. 250  HOME : VTAB 8: PRINT "PATCH.0, DOS38.5K, OR PATCH.1": PRINT "FILE NOT FOUND": END