home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / tf02mini / tfrcnv01.bas < prev    next >
BASIC Source File  |  1990-06-14  |  1KB  |  32 lines
  1. 1000 DEFINT I,J,X,Y,Z
  2. 1010 DIM X(1000),Y(1000),Z(1000),ICON(1000),IPC(1000)
  3. 1011 PRINT "ＴＦＸファイルをＴＦＲファイルに変換します。"
  4. 1012 INPUT "ファイルネームを入力して下さい。";FL$
  5. 1020 OPEN "R",#1,"B:(7)"+FL$+".TFX"
  6. 1030 FIELD #1,7 AS A$
  7. 1031 IE=LOF(1)-1
  8. 1032 FOR I=0 TO IE
  9. 1040   GET #1
  10. 1050   X(I)=ASC(MID$(A$,1,1))+ASC(MID$(A$,2,1))*256
  11. 1060   Y(I)=ASC(MID$(A$,3,1))+ASC(MID$(A$,4,1))*256
  12. 1070   Z(I)=ASC(MID$(A$,5,1))+ASC(MID$(A$,6,1))*256
  13. 1080   ICON(I)=ASC(MID$(A$,7,1))
  14. 1090 NEXT
  15. 1100 CLOSE #1
  16. 1120 OPEN "R",#1,"B:(9)"+FL$+".TFR"
  17. 1130 FIELD #1,9 AS A$
  18. 1140 FOR I=0 TO IE
  19. 1145   X=X(I):Y=Y(I):Z=Z(I):IPC=0:PRINT X;Y;Z;
  20. 1146   IF I=0 GOTO 1200
  21. 1150   FOR J=0 TO I-1
  22. 1160     IF X=X(J):IF Y=Y(J):IF Z=Z(J):IPC=J+1:J=IE
  23. 1170   NEXT
  24. 1200   B$=CHR$(X MOD 256)+CHR$(X\256):PRINT IPC
  25. 1210   B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  26. 1220   B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  27. 1240   B$=B$+CHR$(ICON(I))
  28. 1250   B$=B$+CHR$(IPC MOD 256)+CHR$(IPC\256)
  29. 1260   LSET A$=B$:PUT #1
  30. 1280 NEXT
  31. 1290 CLOSE #1
  32.