home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DSKXFER / READHDV.BAS (.txt) next >
Encoding:
Applesoft BASIC Source Code  |  2001-10-03  |  532 b   |  21 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5 FI$ = "HARD": REM  FILENAME TO CREATE
  2. 6 FP = 0
  3. 10  PRINT  CHR$(4)"BLOAD READHDV.OBJ,A$6000"
  4. 15  POKE 24576 +10,5 *16: REM                           SLOT 5 DRIVE 1
  5. 30  HGR : VTAB 24
  6. 90  INPUT "SEGMENT:";SG
  7. 95  FOR FI = SG TO SG +1
  8. 100  FOR B = 0 TO 504  STEP 8
  9. 101 BK = FI *512 +B
  10. 105  PRINT "READING BLOCKS: "BK" THRU "BK +7
  11. 110  POKE 24576 +3,0: POKE 24576 +4,BK - INT(BK/256) *256: POKE 24576 +5, INT(BK/256)
  12. 115  POKE 24576 +7,0: POKE 24576 +8,3 *16
  13. 120  CALL 24576
  14. 130  PRINT "BLOCK: "BK" RC=" PEEK(24576 +3)
  15. 140 F$ = FI$ +"." + STR$(FI)
  16. 145 FP = B *512
  17. 146  PRINT "FILE #"FI"  POSITION="FP
  18. 150  PRINT  CHR$(4)"BSAVE /HARD/DSKXFER/"F$",A$3000,L$1000,B"FP
  19. 210  PRINT 
  20. 900  NEXT B
  21. 950  NEXT FI