home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / BSAVE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  489b  |  13 lines
  1. 10  REM  THIS PROGRAM DOES A "BSAVE"
  2. 20  REM  USING THE LAST ADDRESS AND LENGTH
  3. 30  REM  FROM THE LAST "BLOAD".
  4. 40  REM  RAUL CARTAYA, NOV. 2, 1980.
  5. 50  REM  LOAD BINARY AFTER THIS.
  6. 60 D$ =  CHR$(4)
  7. 70  PRINT "HAS BINARY BEEN LOADED? (Y OR N): ";: GET A$
  8. 75  PRINT 
  9. 80  IF A$ < >"Y"  THEN  INPUT "BINARY FILE NAME: ";F$: PRINT D$"BLOAD"F$
  10. 90  INPUT "NAME FOR OUTPUT FILE: ";F$
  11. 100 L =  PEEK(43616) +256 * PEEK(43617)
  12. 110 A =  PEEK(43634) +256 * PEEK(43635)
  13. 120  PRINT D$"BSAVE"F$",A"A",L"L