100 REM ~~~~~~~~~~~~~~~~~~~~ REM Remover ~~~~~~~~~~~~~~~~~~~~
110 CLW
120 LOCATE
130 GOSUB
140 GOSUB
150 CURS
160 LOCATE
170 LOCATE
180 GOSUB
190 LOCATE
200 LOCATE
210 CURS
220 END
230 REM ~~~~~~~~~~~~~~~~~~~~ DE-REM Routine ~~~~~~~~~~~~~~~~~~~~ 
240 OPEN IN
250 REPEAT
260 IF
270 LINE INPUT
280 VARNAME
290 VARNAME
300 IF
310 REPEAT
320 VARNAME
330 IF
340 IF
350 UNTIL
360 IF
370 IF
380 UNTIL
390 VARNAME
400 CLOSE
410 RETURN
420 REM ~~~~~~~~~~~~~~~~~~~~ Select Source program ~~~~~~~~~~~~~~~~~~~~
430 VARNAME
440 IF
450 VARNAME
460 IF
470 OPEN IN
480 RETURN
490 REM ~~~~~~~~~~~~~~~~~~~~ Select Destination program ~~~~~~~~~~~~~~~~~~~~ 
500 VARNAME
510 IF
520 VARNAME
530 IF
540 RETURN