5748324 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n sep.bas
   1: DIM Tn AS STRING * 40
   2: OPEN "C:\SR2\HOTROD1.SAV" FOR BINARY AS #1
   3: GET #1, 28, Tn
   4: PRINT Tn
   5: OPEN "C:\SR2.QCK" FOR OUTPUT AS #2
   6: FOR QW = 1 TO LEN(Tn)
   7: IF MID$(Tn, QW, 1) = CHR$(0) THEN Mystr$ = Mystr$ + "/"
   8: IF MID$(Tn, QW, 1) = CHR$(255) THEN Mystr$ = Mystr$ + "|"
   9: NEXT QW
  10: PRINT Mystr$
  11: PRINT #2, Tn
  12: CLOSE #1
  13: CLOSE #2
  14:
5748325 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:09:20