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