Want more features on Pastebin? Sign Up, it's FREE!
Guest

mz700fon_txt2dat_converter.sdlbas

By: a guest on Jan 30th, 2011  |  syntax: SdlBasic  |  size: 0.41 KB  |  views: 78  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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
clone this paste RAW Paste Data