masaakiNakamura

ROM COPY for IchigoMilk

Oct 16th, 2017
720
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 'ROMカセットコピー for IchigoMilk
  2. 20 S=100: E=163
  3. 30 CLS:?:?"ROMカセットカラ IchigoMILKノ ROMニ":?"コピー シマス。"
  4. 40 ?:? " IchigoMILKノ ROMヲ OFFニ シテクダサイ。":?
  5. 60 INPUT "コピーヲ ハジメル プログラム バンゴウ:",S
  6. 70 INPUT "コピー サイゴノ プログラム バンゴウ: ",E
  7. 73 IFE<S ?"フセイナ アドレス":?:GOTO10
  8. 74 IFS<100 ?"100イジョウニ シテクダサイ。":?:GOTO 10
  9. 80 ?:? S;" カラ ";E; " マデ コピー シマス。":?:? " ヨケレバ  Y ヲ オシテ クダサイ。"
  10. 85  ? " ヤリナオシハ N ヲ オシテ クダサイ。"
  11. 90 IF PEEK(#1003)=0 GOTO90
  12. 95 IF INKEY()&#7F <> #59 GOTO10
  13. 100 FOR P=(S-100) TO (E-100)
  14. 120 FOR G=0 TO 7
  15. 130 [0]=P*4+G/2:[1]=G*128
  16. 140 R=I2CR(#50,#800,2,#700,128)
  17. 150 R=I2CW(#52,#800,2,#700,128)
  18. 160 '?
  19. 170 ?"PAGE:";P+100;" ";G
  20. 180 '?
  21. 200 ' FOR I=0 TO 127
  22. 210 ' ? HEX$(PEEK(#700+I),2);:?" ";:IFI&7=7?
  23. 300 'NEXT
  24. 310 NEXT:NEXT
  25. 900 ?:? " オワリマシタ。 ":?
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×