10*|" 20*|" This program will convert 30*|" data files (ie INPUT#file%,a$ 40*|" sort of thing) into an ASCII 50*|" *TYPEable file. 60*|" 70*|" Written by John Carpenter 1992 80*|" With thanks to Gary Davies 90*|" 100*|" This program is Public Domain 110*|" 120MODE7 130VDU23;8202;0;0;0;0; 140PROCscreen 150PROCp(" Resolve Communications 0438 832824") 160PRINT" DATA FILE :" 170INPUT" Enter filename "data$ 180PROCscreen 190PROCp(" Viewdata,V23,V21 and limite d Scrolly") 200PRINT" ASCII TEXT FILE :" 210INPUT" Enter filename "text$ 220PROCscreen 230PROCdo 240PROCp(" Finished ") 250PRINTTAB(0,20)" "; 260END 270 280DEF PROCscreen 290CLS 300PRINT" " 310PRINT" Data File ==> ASCII Conver sion Prog " 320PRINT"  ||||||||||| Written by John Carpenter 7/2/92  ///////////" 330PRINT'"  ,,,,,,,,,,,l" 340PRINT "  ,,,,,,,,,,,." 350PRINT 360ENDPROC 370DEF PROCp(a$) 380xpos%=POS 390ypos%=VPOS 400PRINTTAB(0,9)SPC(40) 410PRINTTAB(1,9)a$ 420PRINTTAB(xpos%,ypos%) 430ENDPROC 440 DEF PROCwrite(file%,string$) 450 LOCAL loop% 460 FOR loop%=1 TO LEN(string$) 470 BPUT#file%,ASC(MID$(string$,lo op%,1)) 480 NEXT 490 BPUT#file%,13 500 ENDPROC 510 520DEF PROCdo 530PROCp(" Opening files") 540data%=OPENIN(data$) 550text%=OPENOUT(text$) 560PROCp(" Transfering data") 570REPEAT 580INPUT#data%,a$,b$,c$ 590PROCwrite(text%,b$) 600PROCwrite(text%,c$) 610UNTILEOF#data% 620CLOSE#0 630ENDPROC