��6:�3:�"DIR $":�"MENU"
E� Program for printing all text files - Richard Dimond, June 1996
*LOAD CODE4
(
*LOAD PRT
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 MAIN MENU "
�
���=32
��"DIR $":�"MENU"
��
���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 $.G":�&B00

"�"DIR $.S":�&B00

,�
�

00000000  0d 00 0a 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 00 14 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 00 1e 0f 2a 4c 4f  41 44 20 43 4f 44 45 34  |6....*LOAD CODE4|
00000070  0d 00 28 0d 2a 4c 4f 41  44 20 50 52 54 0d 00 32  |..(.*LOAD PRT..2|
00000080  0b d3 3d 26 32 36 30 30  0d 00 3c 12 ef 32 33 2c  |..=&2600..<..23,|
00000090  31 2c 30 3b 30 3b 30 3b  30 3b 0d 00 46 14 73 6b  |1,0;0;0;0;..F.sk|
000000a0  69 70 3d 26 38 32 3a 3f  73 6b 69 70 3d 30 0d 00  |ip=&82:?skip=0..|
000000b0  50 44 db 3a f1 22 41 6c  6c 20 74 65 78 74 20 66  |PD.:."All text f|
000000c0  69 6c 65 73 20 77 69 6c  6c 20 62 65 20 70 72 69  |iles will be pri|
000000d0  6e 74 65 64 2e 22 27 27  22 53 63 72 65 65 6e 20  |nted."''"Screen |
000000e0  6f 72 20 50 72 69 6e 74  65 72 3f 20 28 53 2f 50  |or Printer? (S/P|
000000f0  29 22 0d 00 5a 17 f5 3a  61 25 3d a7 22 53 73 50  |)"..Z..:a%=."SsP|
00000100  70 22 2c be 29 3a fd 61  25 0d 00 64 09 ef 32 32  |p",.):.a%..d..22|
00000110  2c 33 0d 00 6e 1c e7 61  25 3c 33 20 f2 73 63 72  |,3..n..a%<3 .scr|
00000120  65 65 6e 20 8b 20 f2 70  72 69 6e 74 65 72 0d 00  |een . .printer..|
00000130  78 22 f1 27 22 50 52 45  53 53 20 53 50 41 43 45  |x".'"PRESS SPACE|
00000140  20 46 4f 52 20 4d 41 49  4e 20 4d 45 4e 55 20 22  | FOR MAIN MENU "|
00000150  0d 00 82 0a f5 fd a5 3d  33 32 0d 00 8c 14 ff 22  |.......=32....."|
00000160  44 49 52 20 24 22 3a d7  22 4d 45 4e 55 22 0d 00  |DIR $":."MENU"..|
00000170  96 05 e0 0d 00 a0 0c dd  f2 73 63 72 65 65 6e 0d  |.........screen.|
00000180  00 aa 1c f1 22 50 52 45  53 53 20 53 48 49 46 54  |...."PRESS SHIFT|
00000190  20 54 4f 20 53 43 52 4f  4c 4c 22 0d 00 b4 0f ef  | TO SCROLL".....|
000001a0  31 34 3a f2 74 65 78 74  3a e1 0d 00 be 0d dd f2  |14:.text:.......|
000001b0  70 72 69 6e 74 65 72 0d  00 c8 40 f1 27 27 22 44  |printer...@.''"D|
000001c0  6f 20 79 6f 75 20 77 61  6e 74 20 70 65 72 66 6f  |o you want perfo|
000001d0  72 61 74 69 6f 6e 20 73  6b 69 70 3f 20 28 59 2f  |ration skip? (Y/|
000001e0  4e 29 22 3a f5 3a 61 25  3d a7 22 59 79 4e 6e 22  |N)":.:a%=."YyNn"|
000001f0  2c be 29 3a fd 61 25 0d  00 d2 1c e7 61 25 3c 33  |,.):.a%.....a%<3|
00000200  20 3f 73 6b 69 70 3d 2d  31 20 8b 20 3f 73 6b 69  | ?skip=-1 . ?ski|
00000210  70 3d 30 0d 00 dc 14 ef  31 35 2c 32 3a f2 74 65  |p=0.....15,2:.te|
00000220  78 74 3a ef 33 3a e1 0d  00 e6 0a dd f2 74 65 78  |xt:.3:.......tex|
00000230  74 0d 00 f0 09 d6 26 42  30 30 0d 00 fa 14 ff 22  |t.....&B00....."|
00000240  44 49 52 20 24 2e 4c 22  3a d6 26 42 30 30 0d 01  |DIR $.L":.&B00..|
00000250  04 14 ff 22 44 49 52 20  24 2e 46 22 3a d6 26 42  |..."DIR $.F":.&B|
00000260  30 30 0d 01 0e 14 ff 22  44 49 52 20 24 2e 50 22  |00....."DIR $.P"|
00000270  3a d6 26 42 30 30 0d 01  18 14 ff 22 44 49 52 20  |:.&B00....."DIR |
00000280  24 2e 47 22 3a d6 26 42  30 30 0d 01 22 14 ff 22  |$.G":.&B00..".."|
00000290  44 49 52 20 24 2e 53 22  3a d6 26 42 30 30 0d 01  |DIR $.S":.&B00..|
000002a0  2c 05 e1 0d ff                                    |,....|
000002a5