"� PRINT - R Dimond, V.2 Feb 98
[lns=&80:sklns=&81:skp=&82:cnt=&83:modflg=&84:?skp=0:f$=$&120:P$=$&134:S$=$&148:M$=$&15C
?lns=60:?sklns=12:?cnt=?lns
(
�Z% �text
2*LOAD CODE8
<`�=&2600:m%=3:�23,1,0;0;0;0;:�:�"All text files will be printed."''"Screen or Printer? (S/P)"
F�:a%=�"SsPp",�):�a%
P	�22,3
Z�a%<3 �screen � �printer
d�''"PRESS SPACE FOR MENU"
n
���-99
x� M$
��
���screen:T%=�:�dirs:�
�O��printer:T%=�:�''"Do you want perforation skip? (Y/N)":�:a%=�"YyNn",�):�a%
��a%<3 ?skp=-1 � ?skp=0
��15,2:�Z% �text ��dirs:�3:�
�
��dirs
��readdir
�� OSCLI"DIR L":PROCreaddir
� � OSCLI"DIR $.F":PROCreaddir
� � OSCLI"DIR $.G":PROCreaddir
��"DIR $.P":�readdir
� � OSCLI"DIR $.S":PROCreaddir
��"DIR $"

�


��readdir

� parblk &0C,fname 10

"3A%=8:X%=parblk �&100:Y%=parblk �&100:parblk!9=0

,&�:parblk!1=fname:parblk!5=1:�&FFD1

6)�parblk!5<>1 � �fname?1=�"+" �ldfname

@� parblk!5=1:�

J�

T��ldfname:fn$=""

^7�x%=1� ?fname:f$=�?(fname+x%):fn$=fn$+f$:�:�print:�

h��print:�22,6:�&900

r�"LOAD "+fn$+" 2600"+�13

|6�22,m%:�T% �15,2 � �14:�'"PRESS SHIFT TO SCROLL"''

�	�&903

��Z%:�T% �space

�
�:�3:�

�%��text:f$=$&120:P$=$&134:S$=$&148

��f$="" a%=3:�TpB

��M% m%=6 �m%=3

�f%=0

�f%=f%+1:fn$=f$+�f%:�print

�$�f%=F% �D% �pict(S$,N%,D%):�d~A

��f%=F% �d~A

��T% �"FX21":�':�space

�	�dLA

�@�3:�T% �''"<P> TO PRINT TEXT <M> FOR MENU"; ��22,6:�"$."+M$
.� R% a$="PMR":�" <R> RUN PROGRAM" �a$="PM"
�:a%=�a$,�):�a%
�a%=1 �printer:�d~A
&�a%=2 �22,6:�"$."+M$ 
0�a%=3 �22,6:�=&6000:� P$
:��
D��pict(S$,N%,D%)
Nd%=0:�space
X"d%=d%+1:�22,N%:�"LOAD "+S$+�d%
b�T% �space � �"UCODE"
l�d%=D% �22,3:�
v	�DXB
���yn:�:a%=�"YyNn",�):�a%:�
�3��space �"FX21":�0,31);"PRESS SPACE...";:G=�:�
�

00000000  0d 00 0a 22 f4 20 50 52  49 4e 54 20 2d 20 52 20  |...". PRINT - R |
00000010  44 69 6d 6f 6e 64 2c 20  56 2e 32 20 46 65 62 20  |Dimond, V.2 Feb |
00000020  39 38 0d 00 14 5b 6c 6e  73 3d 26 38 30 3a 73 6b  |98...[lns=&80:sk|
00000030  6c 6e 73 3d 26 38 31 3a  73 6b 70 3d 26 38 32 3a  |lns=&81:skp=&82:|
00000040  63 6e 74 3d 26 38 33 3a  6d 6f 64 66 6c 67 3d 26  |cnt=&83:modflg=&|
00000050  38 34 3a 3f 73 6b 70 3d  30 3a 66 24 3d 24 26 31  |84:?skp=0:f$=$&1|
00000060  32 30 3a 50 24 3d 24 26  31 33 34 3a 53 24 3d 24  |20:P$=$&134:S$=$|
00000070  26 31 34 38 3a 4d 24 3d  24 26 31 35 43 0d 00 1e  |&148:M$=$&15C...|
00000080  1f 3f 6c 6e 73 3d 36 30  3a 3f 73 6b 6c 6e 73 3d  |.?lns=60:?sklns=|
00000090  31 32 3a 3f 63 6e 74 3d  3f 6c 6e 73 0d 00 28 0d  |12:?cnt=?lns..(.|
000000a0  e7 5a 25 20 f2 74 65 78  74 0d 00 32 0f 2a 4c 4f  |.Z% .text..2.*LO|
000000b0  41 44 20 43 4f 44 45 38  0d 00 3c 60 d3 3d 26 32  |AD CODE8..<`.=&2|
000000c0  36 30 30 3a 6d 25 3d 33  3a ef 32 33 2c 31 2c 30  |600:m%=3:.23,1,0|
000000d0  3b 30 3b 30 3b 30 3b 3a  db 3a f1 22 41 6c 6c 20  |;0;0;0;:.:."All |
000000e0  74 65 78 74 20 66 69 6c  65 73 20 77 69 6c 6c 20  |text files will |
000000f0  62 65 20 70 72 69 6e 74  65 64 2e 22 27 27 22 53  |be printed."''"S|
00000100  63 72 65 65 6e 20 6f 72  20 50 72 69 6e 74 65 72  |creen or Printer|
00000110  3f 20 28 53 2f 50 29 22  0d 00 46 17 f5 3a 61 25  |? (S/P)"..F..:a%|
00000120  3d a7 22 53 73 50 70 22  2c be 29 3a fd 61 25 0d  |=."SsPp",.):.a%.|
00000130  00 50 09 ef 32 32 2c 33  0d 00 5a 1c e7 61 25 3c  |.P..22,3..Z..a%<|
00000140  33 20 f2 73 63 72 65 65  6e 20 8b 20 f2 70 72 69  |3 .screen . .pri|
00000150  6e 74 65 72 0d 00 64 1d  f1 27 27 22 50 52 45 53  |nter..d..''"PRES|
00000160  53 20 53 50 41 43 45 20  46 4f 52 20 4d 45 4e 55  |S SPACE FOR MENU|
00000170  22 0d 00 6e 0a f5 fd a6  2d 39 39 0d 00 78 08 d7  |"..n....-99..x..|
00000180  20 4d 24 0d 00 82 05 e0  0d 00 8c 19 dd f2 73 63  | M$...........sc|
00000190  72 65 65 6e 3a 54 25 3d  a3 3a f2 64 69 72 73 3a  |reen:T%=.:.dirs:|
000001a0  e1 0d 00 96 4f dd f2 70  72 69 6e 74 65 72 3a 54  |....O..printer:T|
000001b0  25 3d b9 3a f1 27 27 22  44 6f 20 79 6f 75 20 77  |%=.:.''"Do you w|
000001c0  61 6e 74 20 70 65 72 66  6f 72 61 74 69 6f 6e 20  |ant perforation |
000001d0  73 6b 69 70 3f 20 28 59  2f 4e 29 22 3a f5 3a 61  |skip? (Y/N)":.:a|
000001e0  25 3d a7 22 59 79 4e 6e  22 2c be 29 3a fd 61 25  |%=."YyNn",.):.a%|
000001f0  0d 00 a0 1a e7 61 25 3c  33 20 3f 73 6b 70 3d 2d  |.....a%<3 ?skp=-|
00000200  31 20 8b 20 3f 73 6b 70  3d 30 0d 00 aa 1f ef 31  |1 . ?skp=0.....1|
00000210  35 2c 32 3a e7 5a 25 20  f2 74 65 78 74 20 8b f2  |5,2:.Z% .text ..|
00000220  64 69 72 73 3a ef 33 3a  e1 0d 00 b4 0a dd f2 64  |dirs:.3:.......d|
00000230  69 72 73 0d 00 be 0c f2  72 65 61 64 64 69 72 0d  |irs.....readdir.|
00000240  00 c8 1e f4 20 4f 53 43  4c 49 22 44 49 52 20 4c  |.... OSCLI"DIR L|
00000250  22 3a 50 52 4f 43 72 65  61 64 64 69 72 0d 00 d2  |":PROCreaddir...|
00000260  20 f4 20 4f 53 43 4c 49  22 44 49 52 20 24 2e 46  | . OSCLI"DIR $.F|
00000270  22 3a 50 52 4f 43 72 65  61 64 64 69 72 0d 00 dc  |":PROCreaddir...|
00000280  20 f4 20 4f 53 43 4c 49  22 44 49 52 20 24 2e 47  | . OSCLI"DIR $.G|
00000290  22 3a 50 52 4f 43 72 65  61 64 64 69 72 0d 00 e6  |":PROCreaddir...|
000002a0  17 ff 22 44 49 52 20 24  2e 50 22 3a f2 72 65 61  |.."DIR $.P":.rea|
000002b0  64 64 69 72 0d 00 f0 20  f4 20 4f 53 43 4c 49 22  |ddir... . OSCLI"|
000002c0  44 49 52 20 24 2e 53 22  3a 50 52 4f 43 72 65 61  |DIR $.S":PROCrea|
000002d0  64 64 69 72 0d 00 fa 0c  ff 22 44 49 52 20 24 22  |ddir....."DIR $"|
000002e0  0d 01 04 05 e1 0d 01 0e  0d dd f2 72 65 61 64 64  |...........readd|
000002f0  69 72 0d 01 18 19 de 20  70 61 72 62 6c 6b 20 26  |ir..... parblk &|
00000300  30 43 2c 66 6e 61 6d 65  20 31 30 0d 01 22 33 41  |0C,fname 10.."3A|
00000310  25 3d 38 3a 58 25 3d 70  61 72 62 6c 6b 20 83 26  |%=8:X%=parblk .&|
00000320  31 30 30 3a 59 25 3d 70  61 72 62 6c 6b 20 81 26  |100:Y%=parblk .&|
00000330  31 30 30 3a 70 61 72 62  6c 6b 21 39 3d 30 0d 01  |100:parblk!9=0..|
00000340  2c 26 f5 3a 70 61 72 62  6c 6b 21 31 3d 66 6e 61  |,&.:parblk!1=fna|
00000350  6d 65 3a 70 61 72 62 6c  6b 21 35 3d 31 3a d6 26  |me:parblk!5=1:.&|
00000360  46 46 44 31 0d 01 36 29  e7 70 61 72 62 6c 6b 21  |FFD1..6).parblk!|
00000370  35 3c 3e 31 20 8c 20 e7  66 6e 61 6d 65 3f 31 3d  |5<>1 . .fname?1=|
00000380  97 22 2b 22 20 f2 6c 64  66 6e 61 6d 65 0d 01 40  |."+" .ldfname..@|
00000390  12 fd 20 70 61 72 62 6c  6b 21 35 3d 31 3a e1 0d  |.. parblk!5=1:..|
000003a0  01 4a 05 e1 0d 01 54 14  dd f2 6c 64 66 6e 61 6d  |.J....T...ldfnam|
000003b0  65 3a 66 6e 24 3d 22 22  0d 01 5e 37 e3 78 25 3d  |e:fn$=""..^7.x%=|
000003c0  31 b8 20 3f 66 6e 61 6d  65 3a 66 24 3d bd 3f 28  |1. ?fname:f$=.?(|
000003d0  66 6e 61 6d 65 2b 78 25  29 3a 66 6e 24 3d 66 6e  |fname+x%):fn$=fn|
000003e0  24 2b 66 24 3a ed 3a f2  70 72 69 6e 74 3a e1 0d  |$+f$:.:.print:..|
000003f0  01 68 17 dd f2 70 72 69  6e 74 3a ef 32 32 2c 36  |.h...print:.22,6|
00000400  3a d6 26 39 30 30 0d 01  72 1c ff 22 4c 4f 41 44  |:.&900..r.."LOAD|
00000410  20 22 2b 66 6e 24 2b 22  20 32 36 30 30 22 2b bd  | "+fn$+" 2600"+.|
00000420  31 33 0d 01 7c 36 ef 32  32 2c 6d 25 3a e7 54 25  |13..|6.22,m%:.T%|
00000430  20 ef 31 35 2c 32 20 8b  20 ef 31 34 3a f1 27 22  | .15,2 . .14:.'"|
00000440  50 52 45 53 53 20 53 48  49 46 54 20 54 4f 20 53  |PRESS SHIFT TO S|
00000450  43 52 4f 4c 4c 22 27 27  0d 01 86 09 d6 26 39 30  |CROLL"''.....&90|
00000460  33 0d 01 90 14 e7 ac 5a  25 3a e7 ac 54 25 20 f2  |3......Z%:..T% .|
00000470  73 70 61 63 65 0d 01 9a  0a f1 3a ef 33 3a e1 0d  |space.....:.3:..|
00000480  01 a4 25 dd f2 74 65 78  74 3a 66 24 3d 24 26 31  |..%..text:f$=$&1|
00000490  32 30 3a 50 24 3d 24 26  31 33 34 3a 53 24 3d 24  |20:P$=$&134:S$=$|
000004a0  26 31 34 38 0d 01 ae 15  e7 66 24 3d 22 22 20 61  |&148.....f$="" a|
000004b0  25 3d 33 3a e5 8d 54 70  42 0d 01 b8 12 e7 4d 25  |%=3:..TpB.....M%|
000004c0  20 6d 25 3d 36 20 8b 6d  25 3d 33 0d 01 c2 08 66  | m%=6 .m%=3....f|
000004d0  25 3d 30 0d 01 cc 1d 66  25 3d 66 25 2b 31 3a 66  |%=0....f%=f%+1:f|
000004e0  6e 24 3d 66 24 2b c3 66  25 3a f2 70 72 69 6e 74  |n$=f$+.f%:.print|
000004f0  0d 01 d6 24 e7 66 25 3d  46 25 20 e7 44 25 20 f2  |...$.f%=F% .D% .|
00000500  70 69 63 74 28 53 24 2c  4e 25 2c 44 25 29 3a e5  |pict(S$,N%,D%):.|
00000510  8d 64 7e 41 0d 01 e0 10  e7 66 25 3d 46 25 20 e5  |.d~A.....f%=F% .|
00000520  8d 64 7e 41 0d 01 ea 1a  e7 ac 54 25 20 ff 22 46  |.d~A......T% ."F|
00000530  58 32 31 22 3a f1 27 3a  f2 73 70 61 63 65 0d 01  |X21":.':.space..|
00000540  f4 09 e5 8d 64 4c 41 0d  01 fe 40 ef 33 3a e7 ac  |....dLA...@.3:..|
00000550  54 25 20 f1 27 27 22 3c  50 3e 20 54 4f 20 50 52  |T% .''"<P> TO PR|
00000560  49 4e 54 20 54 45 58 54  20 3c 4d 3e 20 46 4f 52  |INT TEXT <M> FOR|
00000570  20 4d 45 4e 55 22 3b 20  8b ef 32 32 2c 36 3a d7  | MENU"; ..22,6:.|
00000580  22 24 2e 22 2b 4d 24 0d  02 08 2e e7 20 52 25 20  |"$."+M$..... R% |
00000590  61 24 3d 22 50 4d 52 22  3a f1 22 20 3c 52 3e 20  |a$="PMR":." <R> |
000005a0  52 55 4e 20 50 52 4f 47  52 41 4d 22 20 8b 61 24  |RUN PROGRAM" .a$|
000005b0  3d 22 50 4d 22 0d 02 12  13 f5 3a 61 25 3d a7 61  |="PM".....:a%=.a|
000005c0  24 2c be 29 3a fd 61 25  0d 02 1c 18 e7 61 25 3d  |$,.):.a%.....a%=|
000005d0  31 20 f2 70 72 69 6e 74  65 72 3a e5 8d 64 7e 41  |1 .printer:..d~A|
000005e0  0d 02 26 19 e7 61 25 3d  32 20 ef 32 32 2c 36 3a  |..&..a%=2 .22,6:|
000005f0  d7 22 24 2e 22 2b 4d 24  20 0d 02 30 1c e7 61 25  |."$."+M$ ..0..a%|
00000600  3d 33 20 ef 32 32 2c 36  3a d3 3d 26 36 30 30 30  |=3 .22,6:.=&6000|
00000610  3a d7 20 50 24 0d 02 3a  06 fd a3 0d 02 44 14 dd  |:. P$..:.....D..|
00000620  f2 70 69 63 74 28 53 24  2c 4e 25 2c 44 25 29 0d  |.pict(S$,N%,D%).|
00000630  02 4e 0f 64 25 3d 30 3a  f2 73 70 61 63 65 0d 02  |.N.d%=0:.space..|
00000640  58 22 64 25 3d 64 25 2b  31 3a ef 32 32 2c 4e 25  |X"d%=d%+1:.22,N%|
00000650  3a ff 22 4c 4f 41 44 20  22 2b 53 24 2b c3 64 25  |:."LOAD "+S$+.d%|
00000660  0d 02 62 1a e7 ac 54 25  20 f2 73 70 61 63 65 20  |..b...T% .space |
00000670  8b 20 ff 22 55 43 4f 44  45 22 0d 02 6c 12 e7 64  |. ."UCODE"..l..d|
00000680  25 3d 44 25 20 ef 32 32  2c 33 3a e1 0d 02 76 09  |%=D% .22,3:...v.|
00000690  e5 8d 44 58 42 0d 02 80  1e dd f2 79 6e 3a f5 3a  |..DXB......yn:.:|
000006a0  61 25 3d a7 22 59 79 4e  6e 22 2c be 29 3a fd 61  |a%=."YyNn",.):.a|
000006b0  25 3a e1 0d 02 8a 33 dd  f2 73 70 61 63 65 20 ff  |%:....3..space .|
000006c0  22 46 58 32 31 22 3a f1  8a 30 2c 33 31 29 3b 22  |"FX21":..0,31);"|
000006d0  50 52 45 53 53 20 53 50  41 43 45 2e 2e 2e 22 3b  |PRESS SPACE...";|
000006e0  3a 47 3d a5 3a e1 0d ff                           |:G=.:...|
000006e8