home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / START-END-FINDER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  31 lines
  1. 0 REM *********************************
  2. 1 REM *       START/END FINDER        *
  3. 2 REM *     BY R.W. BOB K7 KOBER      *
  4. 3 REM * FINDS THE STARTING AND ENDING *
  5. 4 REM * ADDRESS OF ANY FILE ON A DISK *
  6. 5 REM * IN BOTH DECIMAL AND HEX, AND  *
  7. 6 REM * REPORTS AREA OF MEMORY USED & *
  8. 7 REM * THE NUMBER OF BYTES USED.     *
  9. 8 REM *********************************
  10. 9 REM Q-L 178
  11. 10 POKE53280,12:POKE53281,12:POKE646,0
  12. 20 PRINT"ô   STARTING & ENDING ADDRESS FINDER ":IFPEEK(820)=162THEN40
  13. 30 FORD=820TOD+73:READY:POKED,Y:NEXT
  14. 40 OPEN15,8,15,"I0"
  15. 50 INPUT"ENTER FILE TO CHECK ";F$:PRINT:PRINT" ";F$:POKE251,.:POKE252,24
  16. 60 OPEN1,8,2,"0:"+F$+",P,R"
  17. 70 GET#1,A$,B$:D=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0))
  18. 80 INPUT#15,E,ER$
  19. 90 IFETHENPRINT:PRINT,ER$:CLOSE1:CLOSE15:FORJ=1TO2000:NEXT:GOTO20
  20. 100 PRINTTAB(9)"STARTING ADDRESS (DEC) "D
  21. 110 W=D:B=D:GOSUB270:PRINTTAB(26)"(HEX) $"H$"":ME$=""
  22. 120 IFB=>32768ANDB<36864THENME$="LOADS IN CARTRIDGE AREA"
  23. 130 IFB=>2048ANDB<32768THENME$="LOADS IN BASIC AREA"
  24. 140 IFB=>256ANDB<511THENME$=LOADS IN STACK AREA
  25. 150 IFB=>679ANDB<767THENME$="LOADS IN AUTO START AREA"
  26. 160 IFB=>812ANDB<1020THENME$="LOADS IN CASSETTE BUFFER"
  27. 170 IFB=>49152THENME$="LOADS IN HIGH FREE MEMORY"
  28. 180 PRINTTAB(19-LEN(ME$)/2)ME$
  29. 190 PRINT"É PLEASE WAIT FOR ENDING ADDRESS....."
  30. 200 SYS820
  31.