home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / UTILS / MAKE.BOOT (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-01-04  |  1.0 KB  |  23 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  REM  make 3.5
  2. 20  PRINT  CHR$(4);"pr#3"
  3. 30  HOME 
  4. 35  FOR I = 768 TO 768 +23: READ A: POKE I,A: NEXT 
  5. 40  PRINT "3.5 Boot": PRINT "A SALware mini-utility"
  6. 50  PRINT "FREEWARE - distribute freely, anywhere and everywhere!"
  7. 55  PRINT 
  8. 60  PRINT "Write SALware at:"
  9. 70  PRINT "3604 S. 10th St. Ct.": PRINT "Blue Springs, MO 64015"
  10. 80  PRINT "to request a free catalog. Please include a stamp and your address!"
  11. 90  PRINT 
  12. 95  PRINT "This utility modifies a disk so that, when it is booted, it will pass control   on to the card in slot 5. This allows you to boot a drive in slot 5 with a      Disk ][ controller in slot 6.": PRINT 
  13. 100  PRINT "Insert a formatted 5.25"; CHR$(34);" disk in Slot 6, Drive 1 and press any key:"
  14. 110  GET A$
  15. 120  CALL 768: REM  boot code
  16. 130  POKE 8194,173: POKE 8195,232: POKE 8196,192: POKE 8197,76: POKE 8198,00: POKE 8199,197
  17. 131  PRINT 
  18. 140  CALL 775: REM  write boot code 
  19. 150  PRINT "That disk will now pass control to the disk controller in slot 5 when": PRINT "it is booted from. It may be used as a normal data storage disk if you wish."
  20. 160  INPUT "Make another disk?";A$: IF A$ = "Y"  OR A$ = "y"  THEN 40
  21. 170  END 
  22. 180  DATA  32,0,191,128,16,3,96,32,0,191,129,16,3,96,0,0
  23. 190  DATA  3,96,0,32,0,0,0,0