home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / dump / dump.bas next >
BASIC Source File  |  1990-06-14  |  2KB  |  40 lines
  1. 10000 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
  2. 10010 '★　                                                              ★
  3. 10020 '★　データ・ダンプ・プログラム　Version 1.0                       ★
  4. 10030 '★　                                                              ★
  5. 10040 '★　                            H.Ishihara at 1989 4/25           ★
  6. 10050 '★　                                                              ★
  7. 10060 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
  8. 10070   CLS
  9. 10080   LOCATE 16,8 : LINE INPUT "ファイル名を入力して下さい。";F$
  10. 10090   ON ERROR GOTO *FILE : OPEN "I",#1,F$ : ON ERROR GOTO 0 : CLS : K&=0
  11. 10100 *DUMP
  12. 10110   PRINT "addr/offset 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
  13. 10120   PRINT 
  14. 10130   FOR I%=0 TO 15 : P$="" : Q$=""
  15. 10140     FOR J%=0 TO 15
  16. 10150       IF EOF(1) THEN P$=P$+"   " : Q$=Q$+" " : GOTO 10180
  17. 10160         R$=INPUT$(1,#1) : P$=P$+" "+RIGHT$("0"+HEX$(ASC(R$)),2)
  18. 10170         IF R$<CHR$(32) THEN Q$=Q$+"." ELSE Q$=Q$+R$
  19. 10180     NEXT J%
  20. 10190     PRINT RIGHT$("000000"+HEX$(K&),6);HEX$(I%);"0 :";P$;" : ";Q$
  21. 10200     IF EOF(1) THEN 10290
  22. 10210     Q$=INKEY$ : IF Q$ ="" THEN 10270
  23. 10220     IF Q$="q" OR Q$="Q" OR Q$=CHR$(27)  THEN 10290
  24. 10230     IF Q$=" " OR Q$="s" OR Q$="S" THEN 10240 ELSE 10270
  25. 10240     Q$=INKEY$ : IF Q$ ="" THEN 10240
  26. 10250     IF Q$="q" OR Q$="Q" OR Q$=CHR$(27)  THEN 10290
  27. 10260     IF Q$=" " OR Q$="s" OR Q$="S" THEN 10270 ELSE 10240
  28. 10270   NEXT I%
  29. 10280   PRINT : PRINT : K&=K&+1 : GOTO *DUMP
  30. 10290   CLOSE #1 : END
  31. 10300 *FILE
  32. 10310   E%=ERR : L%=ERL : BEEP : CLS : LOCATE 16,10 : IF E%<>55 THEN 10340
  33. 10320     COLOR 6 : PRINT "ファイル名"; :COLOR 4 :PRINT "(";F$;")";
  34. 10330     COLOR 6 : PRINT "の形式に誤りが有ります！" : COLOR 7 : GOTO 10380
  35. 10340   IF E%<>63 THEN 10370
  36. 10350     COLOR 6 : PRINT "該当するファイル"; : COLOR 4 : PRINT "(";F$;")";
  37. 10360     COLOR 6 : PRINT "はありません！" : COLOR 7 : GOTO 10380
  38. 10370   PRINT "エラーだょん！！line =";L%;"  error =";E%
  39. 10380   RESUME 10080
  40.