home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / START-END-ADDR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  512 b   |  20 lines
  1. 100 DV=PEEK(186):IFDV<8ORDV>30THENDV=8
  2. 110 INPUT" [198][201][204][197][206][193][205][197]";F$
  3. 120 A$="0:"+F$+",P,R"
  4. 130 OPEN2,DV,2,A$
  5. 140 GOSUB910
  6. 150 L=A
  7. 160 GOSUB910
  8. 170 SA=L+256*A
  9. 180 PRINT"    [211][212][193][210][212]:";SA
  10. 190 GOSUB930:SYS ML
  11. 200 EA=PEEK(251)+PEEK(252)*256
  12. 210 PRINT   " [197][206][196] (+1):";EA+SA
  13. 310 PRINT  "[146]  # [194][217][212][197][211]:";EA
  14. 320 CLOSE2
  15. 890 POKE186,DV:END
  16. 900 :
  17. 910 GET#2,A$:IFA$=""THENA$=CHR$(0)
  18. 920 A=ASC(A$):RETURN
  19. 930 ML=PEEK(61)+256*PEEK(62)+31:RETURN
  20.