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 N=0:FIRST=0 530 PRINT TITLE$;:IF PRTFLG THEN PRINT #2,TITLE$; 540 PRINT:PRINT:IF PRTFLG THEN PRINT #2,STRING$(3,10) 550 N=N+10 560 PRINT USING " #### ";N;:IF PRTFLG THEN PRINT #2,USING " #### ";N; 570 IF N MOD 60 <> 0 THEN 550 580 PRINT:IF PRTFLG THEN PRINT #2,"" 590 IF N>LENGTH THEN LAST=LENGTH+FIRST ELSE LAST=N+FIRST 600 FOR I=N-59+FIRST TO LAST 610 A$ = MID$(SEQ$((I-1)\250+1),(I-1) MOD 250+1,1) 620 PRINT A$;:IF PRTFLG THEN PRINT #2,A$; 630 IF (I-FIRST) MOD 10 = 0 THEN PRINT " ";:IF PRTFLG THEN PRINT #2," "; 640 NEXT I 650 PRINT:IF PRTFLG THEN PRINT #2,STRING$(2,10) 660 IF SCRFLG GOTO 700 670 IF N MOD 660 <> 0 GOTO 700 680 BEEP 690 A$=INKEY$:IF A$="" THEN 690 700 IF N

---

E-Mail Fredric L. Rice / The Skeptic Tank