10 DEFFNS="IW>ASC" 20 MODE0 30 PRINT'"Interword to ASCII Conversion. By C.J.Richardson."' 40 *. 50 PRINT' 60 INPUT "Source File " S$ 70 INPUT "Destination File " D$ 80 PRINT' 90 F%=OPENIN(S$) 100 G%=OPENOUT(D$) 110 PTR#F%=50 120 PTR#F%=BGET#F%+256*BGET#F%+2 130 REPEAT 140 B%=BGET#F% 150 IF B%=133 PROCruler 160 IF B%>127 PROCnew 170 IF B%>31 AND B%<>255 BPUT#G%,B%:VDUB% 180 IF B%=30 REPEAT:A%=BGET#F%:UNTIL A% MOD 128=31 190 IF B%=28 REPEAT:A%=BGET#F%:UNTIL A% MOD 128=29 200 IF B%=26 REPEAT:A%=BGET#F%:UNTIL A% MOD 128=27 210 IF B%=1 A%=BGET#F%:A%=BGET#F% 220 IF B%=2 A%=BGET#F%:A%=BGET#F%:A%=BGET#F% 230 UNTILB%=255 240 CLOSE#F% 250 CLOSE#G% 260 END 270 DEFPROCruler 280 PTR#F%=PTR#F%+6 290 REPEAT 300 A%=BGET#F% 310 UNTIL A%=135 320 ENDPROC 330 DEFPROCnew 340 IFB%=255 ENDPROC 350 PTR#F%=PTR#F%-2 360 IF BGET#F%=135 B%=BGET#F% MOD 128:ENDPROC 370 PTR#F%=PTR#F%-1 380 IF BGET#F%=32:PTR#G%=PTR#G%-1 390 BPUT#G%,13:PRINT 400 B%=BGET#F% MOD 128 410 ENDPROC