E� Program for printing all text files - Richard Dimond, June 1996
;lines=&80:skiplines=&81:skip=&82:count=&83:modeflag=&84
)?lines=60:?skiplines=12:?count=?lines
(*LOAD $.CODE6
2�=&2600
<�23,1,0;0;0;0;
Fskip=&82:?skip=0
PD�:�"All text files will be printed."''"Screen or Printer? (S/P)"
Z�:a%=�"SsPp",�):�a%
d	�22,3
n�a%<3 �screen � �printer
x�''"PRESS SPACE FOR MENU"
�
���-99
��"MENU"
��
���screen:P=�
��text:�
���printer:P=�
�@�''"Do you want perforation skip? (Y/N)":�:a%=�"YyNn",�):�a%
��a%<3 ?skip=-1 � ?skip=0
��15,2:�text:�3:�
�
��text
��readdir
��"DIR L":�readdir
��"DIR $.G":�readdir

�"DIR $.P":�readdir

�"DIR $.S":�readdir

�"DIR $"

"�

,
��readdir

6osgbpb=&FFD1

@� parblk &0C

J� filename 10

TA%=8

^X%=parblk �&100

hY%=parblk �&100

r 

|parblk!9=0

��

� parblk!1=filename

� parblk!5=1

� �osgbpb

�+ �parblk!5<>1 � �filename?1=�"+" �print

�� parblk!5=1

��

���print

�
fn$=""

�	�&900

��x%=1� ?filename

�f$=�?(filename+x%)

�fn$=fn$+f$
�
	�22,6
�"LOAD "+fn$+" 2600"+�13
&4�22,3:�P �15,2 � �14:�'"PRESS SHIFT TO SCROLL"''
0	�&903
:�''
D�3
N�
X
��swap
�

00000000  0d 00 0a 45 f4 20 50 72  6f 67 72 61 6d 20 66 6f  |...E. Program fo|
00000010  72 20 70 72 69 6e 74 69  6e 67 20 61 6c 6c 20 74  |r printing all t|
00000020  65 78 74 20 66 69 6c 65  73 20 2d 20 52 69 63 68  |ext files - Rich|
00000030  61 72 64 20 44 69 6d 6f  6e 64 2c 20 4a 75 6e 65  |ard Dimond, June|
00000040  20 31 39 39 36 0d 00 14  3b 6c 69 6e 65 73 3d 26  | 1996...;lines=&|
00000050  38 30 3a 73 6b 69 70 6c  69 6e 65 73 3d 26 38 31  |80:skiplines=&81|
00000060  3a 73 6b 69 70 3d 26 38  32 3a 63 6f 75 6e 74 3d  |:skip=&82:count=|
00000070  26 38 33 3a 6d 6f 64 65  66 6c 61 67 3d 26 38 34  |&83:modeflag=&84|
00000080  0d 00 1e 29 3f 6c 69 6e  65 73 3d 36 30 3a 3f 73  |...)?lines=60:?s|
00000090  6b 69 70 6c 69 6e 65 73  3d 31 32 3a 3f 63 6f 75  |kiplines=12:?cou|
000000a0  6e 74 3d 3f 6c 69 6e 65  73 0d 00 28 11 2a 4c 4f  |nt=?lines..(.*LO|
000000b0  41 44 20 24 2e 43 4f 44  45 36 0d 00 32 0b d3 3d  |AD $.CODE6..2..=|
000000c0  26 32 36 30 30 0d 00 3c  12 ef 32 33 2c 31 2c 30  |&2600..<..23,1,0|
000000d0  3b 30 3b 30 3b 30 3b 0d  00 46 14 73 6b 69 70 3d  |;0;0;0;..F.skip=|
000000e0  26 38 32 3a 3f 73 6b 69  70 3d 30 0d 00 50 44 db  |&82:?skip=0..PD.|
000000f0  3a f1 22 41 6c 6c 20 74  65 78 74 20 66 69 6c 65  |:."All text file|
00000100  73 20 77 69 6c 6c 20 62  65 20 70 72 69 6e 74 65  |s will be printe|
00000110  64 2e 22 27 27 22 53 63  72 65 65 6e 20 6f 72 20  |d."''"Screen or |
00000120  50 72 69 6e 74 65 72 3f  20 28 53 2f 50 29 22 0d  |Printer? (S/P)".|
00000130  00 5a 17 f5 3a 61 25 3d  a7 22 53 73 50 70 22 2c  |.Z..:a%=."SsPp",|
00000140  be 29 3a fd 61 25 0d 00  64 09 ef 32 32 2c 33 0d  |.):.a%..d..22,3.|
00000150  00 6e 1c e7 61 25 3c 33  20 f2 73 63 72 65 65 6e  |.n..a%<3 .screen|
00000160  20 8b 20 f2 70 72 69 6e  74 65 72 0d 00 78 1d f1  | . .printer..x..|
00000170  27 27 22 50 52 45 53 53  20 53 50 41 43 45 20 46  |''"PRESS SPACE F|
00000180  4f 52 20 4d 45 4e 55 22  0d 00 82 0a f5 fd a6 2d  |OR MENU".......-|
00000190  39 39 0d 00 8c 0b d7 22  4d 45 4e 55 22 0d 00 96  |99....."MENU"...|
000001a0  05 e0 0d 00 a0 10 dd f2  73 63 72 65 65 6e 3a 50  |........screen:P|
000001b0  3d a3 0d 00 aa 0b f2 74  65 78 74 3a e1 0d 00 b4  |=......text:....|
000001c0  11 dd f2 70 72 69 6e 74  65 72 3a 50 3d b9 0d 00  |...printer:P=...|
000001d0  be 40 f1 27 27 22 44 6f  20 79 6f 75 20 77 61 6e  |.@.''"Do you wan|
000001e0  74 20 70 65 72 66 6f 72  61 74 69 6f 6e 20 73 6b  |t perforation sk|
000001f0  69 70 3f 20 28 59 2f 4e  29 22 3a f5 3a 61 25 3d  |ip? (Y/N)":.:a%=|
00000200  a7 22 59 79 4e 6e 22 2c  be 29 3a fd 61 25 0d 00  |."YyNn",.):.a%..|
00000210  c8 1c e7 61 25 3c 33 20  3f 73 6b 69 70 3d 2d 31  |...a%<3 ?skip=-1|
00000220  20 8b 20 3f 73 6b 69 70  3d 30 0d 00 d2 14 ef 31  | . ?skip=0.....1|
00000230  35 2c 32 3a f2 74 65 78  74 3a ef 33 3a e1 0d 00  |5,2:.text:.3:...|
00000240  dc 0a dd f2 74 65 78 74  0d 00 e6 0c f2 72 65 61  |....text.....rea|
00000250  64 64 69 72 0d 00 f0 15  ff 22 44 49 52 20 4c 22  |ddir....."DIR L"|
00000260  3a f2 72 65 61 64 64 69  72 0d 00 fa 17 ff 22 44  |:.readdir....."D|
00000270  49 52 20 24 2e 47 22 3a  f2 72 65 61 64 64 69 72  |IR $.G":.readdir|
00000280  0d 01 04 17 ff 22 44 49  52 20 24 2e 50 22 3a f2  |....."DIR $.P":.|
00000290  72 65 61 64 64 69 72 0d  01 0e 17 ff 22 44 49 52  |readdir....."DIR|
000002a0  20 24 2e 53 22 3a f2 72  65 61 64 64 69 72 0d 01  | $.S":.readdir..|
000002b0  18 0c ff 22 44 49 52 20  24 22 0d 01 22 05 e1 0d  |..."DIR $".."...|
000002c0  01 2c 0d dd f2 72 65 61  64 64 69 72 0d 01 36 10  |.,...readdir..6.|
000002d0  6f 73 67 62 70 62 3d 26  46 46 44 31 0d 01 40 10  |osgbpb=&FFD1..@.|
000002e0  de 20 70 61 72 62 6c 6b  20 26 30 43 0d 01 4a 11  |. parblk &0C..J.|
000002f0  de 20 66 69 6c 65 6e 61  6d 65 20 31 30 0d 01 54  |. filename 10..T|
00000300  08 41 25 3d 38 0d 01 5e  13 58 25 3d 70 61 72 62  |.A%=8..^.X%=parb|
00000310  6c 6b 20 83 26 31 30 30  0d 01 68 13 59 25 3d 70  |lk .&100..h.Y%=p|
00000320  61 72 62 6c 6b 20 81 26  31 30 30 0d 01 72 05 20  |arblk .&100..r. |
00000330  0d 01 7c 0e 70 61 72 62  6c 6b 21 39 3d 30 0d 01  |..|.parblk!9=0..|
00000340  86 05 f5 0d 01 90 16 20  70 61 72 62 6c 6b 21 31  |....... parblk!1|
00000350  3d 66 69 6c 65 6e 61 6d  65 0d 01 9a 0f 20 70 61  |=filename.... pa|
00000360  72 62 6c 6b 21 35 3d 31  0d 01 a4 0c 20 d6 6f 73  |rblk!5=1.... .os|
00000370  67 62 70 62 0d 01 ae 2b  20 e7 70 61 72 62 6c 6b  |gbpb...+ .parblk|
00000380  21 35 3c 3e 31 20 8c 20  e7 66 69 6c 65 6e 61 6d  |!5<>1 . .filenam|
00000390  65 3f 31 3d 97 22 2b 22  20 f2 70 72 69 6e 74 0d  |e?1=."+" .print.|
000003a0  01 b8 10 fd 20 70 61 72  62 6c 6b 21 35 3d 31 0d  |.... parblk!5=1.|
000003b0  01 c2 05 e1 0d 01 cc 0b  dd f2 70 72 69 6e 74 0d  |..........print.|
000003c0  01 d6 0a 66 6e 24 3d 22  22 0d 01 e0 09 d6 26 39  |...fn$="".....&9|
000003d0  30 30 0d 01 ea 14 e3 78  25 3d 31 b8 20 3f 66 69  |00.....x%=1. ?fi|
000003e0  6c 65 6e 61 6d 65 0d 01  f4 16 66 24 3d bd 3f 28  |lename....f$=.?(|
000003f0  66 69 6c 65 6e 61 6d 65  2b 78 25 29 0d 01 fe 0e  |filename+x%)....|
00000400  66 6e 24 3d 66 6e 24 2b  66 24 0d 02 08 05 ed 0d  |fn$=fn$+f$......|
00000410  02 12 09 ef 32 32 2c 36  0d 02 1c 1c ff 22 4c 4f  |....22,6....."LO|
00000420  41 44 20 22 2b 66 6e 24  2b 22 20 32 36 30 30 22  |AD "+fn$+" 2600"|
00000430  2b bd 31 33 0d 02 26 34  ef 32 32 2c 33 3a e7 50  |+.13..&4.22,3:.P|
00000440  20 ef 31 35 2c 32 20 8b  20 ef 31 34 3a f1 27 22  | .15,2 . .14:.'"|
00000450  50 52 45 53 53 20 53 48  49 46 54 20 54 4f 20 53  |PRESS SHIFT TO S|
00000460  43 52 4f 4c 4c 22 27 27  0d 02 30 09 d6 26 39 30  |CROLL"''..0..&90|
00000470  33 0d 02 3a 07 f1 27 27  0d 02 44 06 ef 33 0d 02  |3..:..''..D..3..|
00000480  4e 05 e1 0d 02 58 0a dd  f2 73 77 61 70 0d ff     |N....X...swap..|
0000048f