10 REM Bad program fixer
   20 REM (C) 1996 Jon Ripley
   30 REM This program is PD
   40 REM Please DO NOT ALTER this program
   50 DEFFNS="BPrgFix"
   60 MODE 7
   70 FORX=1TO2:PRINTTAB(1,X)CHR$141;CHR$(126+2*X)"Bad Program Fixer (C) Jon Ripley":NEXT
   80 VDU28,0,24,39,4
   90 INPUT"Start of program (eg 1900) :&"P$
  100 P%=EVAL("&"+P$)
  110 line=P%:line?1=0:finished=FALSE
  120 REPEAT
  130 PROCrecover
  140 UNTILfinished
  150 PAGE=P%
  160 END
  170 DEFPROCrecover
  180 ?line=&0D:lenpos=line+3:count=1
  190 IF?line=&0D AND line?1=&FF finished=TRUE:ENDPROC
  200 PRINT(line?1)*256+(line?2);
  210 REPEAT
  220 IF line?count<>&0D count=count+1
  230 IF line?count<>&0D AND line?count<32 AND count>4 line?count=35
  240 IF count>250 line?(count+1)=&0D
  250 UNTILline?count=&0D
  260 PRINT~line
  270 line=line+count:?lenpos=count
  280 ENDPROC