Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- open "Mz700fon.txt" for input as #1
- open "mz700fon.dat" for output as #2
- for j=0 to 511
- file input #1, tx$
- for k= 0 to 7
- file input #1, tx$
- if left$(tx$,1)="." or left$(tx$,1)="o" then
- ctr=0
- for i=0 to 7
- if mid$(tx$,8-i,1)<>"." then
- ctr+=(2^i)
- end if
- next
- writebyte(2,ctr)
- end if
- next
- file input #1, tx$
- next
- close #1:close #2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement