home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib31a.dsk / APRIL.1987 / DOSLOAD.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  37 lines
  1. 10  REM  ************************
  2. 20  REM  * DOSLOAD              *
  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 "DOSLOAD": PRINT "BY WILLIAM REYNOLDS III"
  10. 100  PRINT "COPYRIGHT 1987 BY MICROSPARC, INC."
  11. 110  VTAB 10: PRINT  CHR$(7);"INSERT DOS 3.3 SYSTEM MASTER DISKETTE   INTO THIS DRIVE NOW, PRESS <RETURN>";: GET A$: PRINT 
  12. 120  FOR X = 768 TO 809: READ Y: POKE X,Y: NEXT 
  13. 130  DATA  3,0,0,64,0,0,32,0,191,128,0,3,141,16,3,96,0,162,0,138,189,0,0,157,0,0,232,208,247,96,32,248,190,169,42,32,245,190,141,42,3,96
  14. 140  DATA  32,75,214,32,81,130,96
  15. 150  CALL 798: IF  PEEK(810) < >112  THEN  PRINT "MEMORY CONFIGURATION ERROR !!!": END 
  16. 160  POKE 769,( PEEK(48701) -1) *128 +( PEEK(48700) *16)
  17. 170  FOR X = 0 TO 23: POKE 771,X *2 +64: POKE 772,X
  18. 180  CALL 774: IF  PEEK(784) < >0  THEN  PRINT : PRINT  CHR$(7)"READING ERROR": END 
  19. 190  NEXT : GOTO 210
  20. 200  POKE 790,A1: POKE 793,A2: CALL 785: RETURN 
  21. 210 :A1 = 64:A2 = 54: GOSUB 200
  22. 220  FOR B = 0 TO 4:A1 = A1 +1:A2 = 31 -B: GOSUB 200: NEXT 
  23. 230  FOR B = 0 TO 8:A1 = A1 +1:A2 = 63 -B: GOSUB 200: NEXT 
  24. 240 :A1 = A1 +1:A2 = 32: GOSUB 200:A1 = A1 +1:A2 = A2 +1: GOSUB 200
  25. 250  FOR B = 0 TO 13:A1 = A1 +1:A2 = 47 -B: GOSUB 200: NEXT 
  26. 260 :A1 = A1 +1:A2 = 48: GOSUB 200:A1 = A1 +1:A2 = A2 +1: GOSUB 200
  27. 270 :A1 = 106: FOR B = 0 TO 3:A1 = A1 +1:A2 = 53 -B: GOSUB 200: NEXT 
  28. 280  POKE 6916,153: POKE 7646,234: POKE 7205,96
  29. 290  CALL 6915
  30. 300  POKE 33247,169: POKE 33248,3: POKE 33249,234
  31. 310  CALL 33236
  32. 320  FOR X = 32634 TO 32640: READ Y: POKE X,Y: NEXT : POKE 30696,94
  33. 330  FOR X = 1 TO 12: POKE 30549 +X, PEEK(30571 +X): NEXT 
  34. 340  POKE 33974,64
  35. 350  HOME : PRINT  CHR$(7);"INSERT THE PRODOS DISKETTE, PRESS <RET>";: GET A$: PRINT 
  36. 360  PRINT  CHR$(4)"BSAVE DOS38.5K,A$7000,L$2A00"
  37. 370  END