1 'Utility to run James Yi's RESEQ.200. R.Hess 8/7/88 4 IFPEEK(1)<>171THENENDELSECLS:PRINT@12,"RESEQ.200 Utility" 8 C$=CHR$(44):R$=CHR$(13):Q$=CHR$(34) 10 PRINT:FILES:PRINT:LINEINPUT".BA file to Re-Line: ";F$:IFF$=""THEN20 12 PRINT:PRINT"Begin 'new' ";F$;" with line #";:LINEINPUT" ? ";S$:IFS$=""THEN20 14 PRINT:LINEINPUT"New line interval ? ";I$:IFI$=""THEN20 16 LOADM"RESEQ":K$="LOAD"+Q$+F$+R$+"CALL63574"+C$+I$+C$+S$+R$:GOSUB18:CLS:END 18 L=LEN(K$):FORI=1TOL:POKE64797+2*I,ASC(MID$(K$,I)):POKE64798+2*I,0:NEXT:POKE64798,L:RETURN 20 BEEP:CLS:MENU