SHARE
TWEET

mz700fon_txt2dat_converter.sdlbas

a guest Jan 30th, 2011 121 Never
  1. open "Mz700fon.txt" for input as #1
  2. open "mz700fon.dat" for output as #2
  3. for j=0 to 511
  4.   file input #1, tx$
  5.   for k= 0 to 7
  6.     file input #1, tx$
  7.     if left$(tx$,1)="." or left$(tx$,1)="o" then
  8.       ctr=0
  9.       for i=0 to 7
  10.         if mid$(tx$,8-i,1)<>"." then
  11.           ctr+=(2^i)
  12.           end if
  13.         next
  14.       writebyte(2,ctr)
  15.       end if
  16.     next
  17.   file input #1, tx$
  18.   next
  19. close #1:close #2
RAW Paste Data
Top