500 IF PRTFLG=1 THEN OPEN +quot;LPT1:+quot; FOR OUTPUT AS #2 510 IF PRTFLG=2 THEN INPUT +q

---
Master Index Current Directory Index Go to SkepticTank Go to Human Rights activist Keith Henson Go to Scientology cult

Skeptic Tank!

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

---

E-Mail Fredric L. Rice / The Skeptic Tank