���6:�3:�"DIR $":�"MENU"
�E� Program for printing all text files - Richard Dimond, June 1996
�*LOAD $.CODE5
*LOAD $.PRT
�=&2600
�23,1,0;0;0;0;
$skip=&82:?skip=0
.D�:�"All text files will be printed."''"Screen or Printer? (S/P)"
8�:a%=�"SsPp",�):�a%
B	�22,3
L�a%<3 �screen � �printer
V"�'"PRESS SPACE FOR MAIN MENU "
`
���=32
j�"DIR $":�"MENU"
t�
~��screen
��"PRESS SHIFT TO SCROLL"
��14:�text:�
�
��printer
�@�''"Do you want perforation skip? (Y/N)":�:a%=�"YyNn",�):�a%
��a%<3 ?skip=-1 � ?skip=0
��15,2:�text:�3:�
�
��text
�	�&B00
��"DIR $.L":�&B00
��"DIR $.F":�&B00
��"DIR $.P":�&B00
��"DIR $.S":�&B00
�
�

00000000  0d 03 e8 1c ee 85 eb 36  3a ef 33 3a ff 22 44 49  |.......6:.3:."DI|
00000010  52 20 24 22 3a d7 22 4d  45 4e 55 22 0d 03 f2 45  |R $":."MENU"...E|
00000020  f4 20 50 72 6f 67 72 61  6d 20 66 6f 72 20 70 72  |. Program for pr|
00000030  69 6e 74 69 6e 67 20 61  6c 6c 20 74 65 78 74 20  |inting all text |
00000040  66 69 6c 65 73 20 2d 20  52 69 63 68 61 72 64 20  |files - Richard |
00000050  44 69 6d 6f 6e 64 2c 20  4a 75 6e 65 20 31 39 39  |Dimond, June 199|
00000060  36 0d 03 fc 11 2a 4c 4f  41 44 20 24 2e 43 4f 44  |6....*LOAD $.COD|
00000070  45 35 0d 04 06 0f 2a 4c  4f 41 44 20 24 2e 50 52  |E5....*LOAD $.PR|
00000080  54 0d 04 10 0b d3 3d 26  32 36 30 30 0d 04 1a 12  |T.....=&2600....|
00000090  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 04  |.23,1,0;0;0;0;..|
000000a0  24 14 73 6b 69 70 3d 26  38 32 3a 3f 73 6b 69 70  |$.skip=&82:?skip|
000000b0  3d 30 0d 04 2e 44 db 3a  f1 22 41 6c 6c 20 74 65  |=0...D.:."All te|
000000c0  78 74 20 66 69 6c 65 73  20 77 69 6c 6c 20 62 65  |xt files will be|
000000d0  20 70 72 69 6e 74 65 64  2e 22 27 27 22 53 63 72  | printed."''"Scr|
000000e0  65 65 6e 20 6f 72 20 50  72 69 6e 74 65 72 3f 20  |een or Printer? |
000000f0  28 53 2f 50 29 22 0d 04  38 17 f5 3a 61 25 3d a7  |(S/P)"..8..:a%=.|
00000100  22 53 73 50 70 22 2c be  29 3a fd 61 25 0d 04 42  |"SsPp",.):.a%..B|
00000110  09 ef 32 32 2c 33 0d 04  4c 1c e7 61 25 3c 33 20  |..22,3..L..a%<3 |
00000120  f2 73 63 72 65 65 6e 20  8b 20 f2 70 72 69 6e 74  |.screen . .print|
00000130  65 72 0d 04 56 22 f1 27  22 50 52 45 53 53 20 53  |er..V".'"PRESS S|
00000140  50 41 43 45 20 46 4f 52  20 4d 41 49 4e 20 4d 45  |PACE FOR MAIN ME|
00000150  4e 55 20 22 0d 04 60 0a  f5 fd a5 3d 33 32 0d 04  |NU "..`....=32..|
00000160  6a 14 ff 22 44 49 52 20  24 22 3a d7 22 4d 45 4e  |j.."DIR $":."MEN|
00000170  55 22 0d 04 74 05 e0 0d  04 7e 0c dd f2 73 63 72  |U"..t....~...scr|
00000180  65 65 6e 0d 04 88 1c f1  22 50 52 45 53 53 20 53  |een....."PRESS S|
00000190  48 49 46 54 20 54 4f 20  53 43 52 4f 4c 4c 22 0d  |HIFT TO SCROLL".|
000001a0  04 92 0f ef 31 34 3a f2  74 65 78 74 3a e1 0d 04  |....14:.text:...|
000001b0  9c 0d dd f2 70 72 69 6e  74 65 72 0d 04 a6 40 f1  |....printer...@.|
000001c0  27 27 22 44 6f 20 79 6f  75 20 77 61 6e 74 20 70  |''"Do you want p|
000001d0  65 72 66 6f 72 61 74 69  6f 6e 20 73 6b 69 70 3f  |erforation skip?|
000001e0  20 28 59 2f 4e 29 22 3a  f5 3a 61 25 3d a7 22 59  | (Y/N)":.:a%=."Y|
000001f0  79 4e 6e 22 2c be 29 3a  fd 61 25 0d 04 b0 1c e7  |yNn",.):.a%.....|
00000200  61 25 3c 33 20 3f 73 6b  69 70 3d 2d 31 20 8b 20  |a%<3 ?skip=-1 . |
00000210  3f 73 6b 69 70 3d 30 0d  04 ba 14 ef 31 35 2c 32  |?skip=0.....15,2|
00000220  3a f2 74 65 78 74 3a ef  33 3a e1 0d 04 c4 0a dd  |:.text:.3:......|
00000230  f2 74 65 78 74 0d 04 ce  09 d6 26 42 30 30 0d 04  |.text.....&B00..|
00000240  d8 14 ff 22 44 49 52 20  24 2e 4c 22 3a d6 26 42  |..."DIR $.L":.&B|
00000250  30 30 0d 04 e2 14 ff 22  44 49 52 20 24 2e 46 22  |00....."DIR $.F"|
00000260  3a d6 26 42 30 30 0d 04  ec 14 ff 22 44 49 52 20  |:.&B00....."DIR |
00000270  24 2e 50 22 3a d6 26 42  30 30 0d 04 f6 14 ff 22  |$.P":.&B00....."|
00000280  44 49 52 20 24 2e 53 22  3a d6 26 42 30 30 0d 05  |DIR $.S":.&B00..|
00000290  00 05 e1 0d ff                                    |.....|
00000295