500 IF PRTFLG=1 THEN OPEN "LPT1:" FOR OUTPUT AS #2
510 IF PRTFLG=2 THEN INPUT "Enter the file which is to recieve the output: ",A$:OPEN DISK$+A$ FOR OUTPUT AS #2:PRINT
520 INPUT "Enter the file to be typed out: ",FILE$
530 FILE$=DISK$+FILE$
540 OPEN FILE$ FOR INPUT AS #1
550 IF EOF(1) GOTO 610
560 A$=INPUT$(1,#1)
570 IF A$=CHR$(10) GOTO 550
580 PRINT A$;
590 IF PRTFLG THEN PRINT #2,A$;
600 GOTO 550
610 CLOSE:RETURN
1000 END