!AWAug91/Goodies/EasiWriter/DPRINT

Home » Archimedes archive » Archimedes World » AW-1991-08.adf » August91 » !AWAug91/Goodies/EasiWriter/DPRINT

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Archimedes World » AW-1991-08.adf » August91
Filename:	!AWAug91/Goodies/EasiWriter/DPRINT
Read OK:	✔
File size:	0952 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >DPRINT
   20
   30REM Program draft print text files in the form created by EasiWriter
   40REM with paging, word wrap and optional double spacing
   50REM (c) Jonathan Evans, May 1991
   60
   61ON ERROR PROCerr
   70PROCinit
   80command$ = FNcommandline
   90file$ = FNlastword(command$)
  110CASE file$ OF
  120WHEN "": PRINT "Filename needed"
  130WHEN "BASIC": PRINT "FORMAT *dprint <filename>"
  140WHEN "-HELP","-help": PROCprinthelp
  150OTHERWISE: PROCprint(file$)
  160ENDCASE
  170CLOSE#0
  180END
  190
  200DEFPROCinit
  210page_length = 66
  220top_margin = 4
  230bottom_margin = 8
  240left_margin = 8
  250line_length = 68
  260ENDPROC
  270
  280DEFFNlastword(l$)
  290LOCAL c%
  300c% = INSTR(l$," ")
  310IF c% = 0 THEN
  320=l$
  330ELSE
  340=FNlastword(RIGHT$(l$,LENl$-c%))
  350ENDIF
  360
  370DEFFNcommandline
  380SYS "OS_GetEnv" TO adr
  390= FNos_string(adr)
  400
  410DEFFNos_string(a)
  420REM Reads string at address a terminated by zero byte
  430LOCAL s$,c%,i%
  440i%=0: s$=""
  450REPEAT
  460c% = a?i%
  470IF c% <> 0 THEN s$ += CHR$c%
  480i% +=1
  490UNTIL c% = 0
  500=s$
  510
  520DEFPROCprinthelp
  530PRINT "PRINTS PLAIN TEXT FILE WITH WORD WRAP AND PAGE BREAKS"
  540PRINT "FORMAT *DPRINT <filename>"
  550ENDPROC
  560
  570DEFPROCprint(f$)
  580LOCAL f,double,line$,c%,count%,over%,newpage,nlines,line,pad$
  590nlines = page_length - top_margin - bottom_margin
  600newpage = TRUE: page = 1
  610pad$ = STRING$(left_margin," ")
  620f = OPENIN(f$)
  630IF f = 0 THEN PRINT "File not found":CLOSE#0:ENDPROC
  640PRINT "Print (S)ingle or (D)double spaced ";
  650*FX15
  660REPEAT G$ = GET$:UNTIL INSTR("SsDd",G$)
  670IF INSTR("Dd",G$) THEN double = TRUE ELSE double = FALSE
  680PRINT '"Ready printer and press a key (Escape cancels)"
  690*FX15
  700REPEAT UNTIL GET
  710MODE 0
  711VDU2
  720REPEAT
  730count% = 0: line$=""
  740IF newpage THEN FOR l=1 TO top_margin: PRINT: NEXT l:line=0: newpage=FALSE
  750REPEAT
  760c% = BGET#f
  770REM PRINT c%;
  780IF c% > 10 THEN line$ += CHR$c%: count% +=1
  790UNTIL c%=10 OR (c% = 32 AND count% > line_length) OR EOF#f
  800IF count% <= line_length THEN
  810PRINT pad$;line$
  820ELSE
  830over% = LEN(FNlastword(LEFT$(line$)))+1
  840REM PRINT count%,over%,FNlastword(line$)
  850line$ = LEFT$(line$,count%-over%)
  860PRINT pad$; line$
  870PTR#f = PTR#f - over%
  880ENDIF
  890IF double THEN PRINT: line+=2 ELSE line+=1
  891REM PRINT line
  900IF line>nlines OR (double AND line = nlines) THEN PROCbottom_space(line,nlines):newpage=TRUE
  910UNTIL EOF#f
  920PROCbottom_space(line,nlines)
  921VDU3
  930ENDPROC
  940
  950DEFPROCbottom_space(line,nlines)
  960LOCAL pageline,l,pad
  970pageline = nlines + 3
  980pad = pageline - line - 1
  990IF pad >0 THEN
 1000FOR l = 1 TO pad
 1010PRINT
 1020NEXT l
 1030ENDIF
 1040PRINT TAB(left_margin + (line_length DIV 2));page
 1050page+=1
 1060WHILE pageline < nlines+bottom_margin
 1070PRINT
 1080pageline+=1
 1090ENDWHILE
 1100ENDPROC
 1110
 1120
 1130DEFPROCerr
 1140VDU3
 1150*FX15
 1160PRINT' "Print cancelled"
 1170END



� >DPRINT

F� Program draft print text files in the form created by EasiWriter
(8� with paging, word wrap and optional double spacing
2"� (c) Jonathan Evans, May 1991
<
=� � �err
F	�init
Pcommand$ = �commandline
Zfile$ = �lastword(command$)
nȎ file$ �
x� "": � "Filename needed"
�,� "BASIC": � "FORMAT *dprint <filename>"
�!� "-HELP","-help": �printhelp
�: �print(file$)
��
��#0
��
�
�
��init
�page_length = 66
�top_margin = 4
�bottom_margin = 8
�left_margin = 8
�line_length = 68
�

ݤlastword(l$)
"� c%
,c% = �l$," ")
6� c% = 0 �
@=l$
J�
T=�lastword(�l$,�l$-c%))
^�
h
rݤcommandline
|ș "OS_GetEnv" � adr
�= �os_string(adr)
�
�ݤos_string(a)
�7� Reads string at address a terminated by zero byte
�� s$,c%,i%
�i%=0: s$=""
��
�
c% = a?i%
�� c% <> 0 � s$ += �c%
�
i% +=1
�� c% = 0
�=s$
�
��printhelp
=� "PRINTS PLAIN TEXT FILE WITH WORD WRAP AND PAGE BREAKS"
!� "FORMAT *DPRINT <filename>"
&�
0
:��print(f$)
D=� f,double,line$,c%,count%,over%,newpage,nlines,line,pad$
N5nlines = page_length - top_margin - bottom_margin
Xnewpage = �: page = 1
bpad$ = �left_margin," ")
l
f = �(f$)
v&� f = 0 � � "File not found":�#0:�
�,� "Print (S)ingle or (D)double spaced ";
�	*FX15
�� G$ = �:� �"SsDd",G$)
�)� �"Dd",G$) � double = � � double = �
�7� '"Ready printer and press a key (Escape cancels)"
�	*FX15
�	� � �
�� 0
��2
��
�count% = 0: line$=""
�<� newpage � � l=1 � top_margin: �: � l:line=0: newpage=�
��
�c% = �#f
� PRINT c%;
(� c% > 10 � line$ += �c%: count% +=1
4� c%=10 � (c% = 32 � count% > line_length) � �#f
 � count% <= line_length �
*� pad$;line$
4�
>#over% = �(�lastword(�line$)))+1
H*� PRINT count%,over%,FNlastword(line$)
R line$ = �line$,count%-over%)
\� pad$; line$
f�#f = �#f - over%
p�
z#� double � �: line+=2 � line+=1
{� PRINT line
�S� line>nlines � (double � line = nlines) � �bottom_space(line,nlines):newpage=�
�	� �#f
��bottom_space(line,nlines)
��3
��
�
���bottom_space(line,nlines)
�� pageline,l,pad
�pageline = nlines + 3
�pad = pageline - line - 1
�� pad >0 �
�� l = 1 � pad
��
�� l
�
,� �left_margin + (line_length � 2));page
page+=1
$&ȕ pageline < nlines+bottom_margin
.�
8pageline+=1
B�
L�
V
`
j	��err
t�3
~	*FX15
��' "Print cancelled"
��
�

00000000  0d 00 0a 0d f4 20 3e 44  50 52 49 4e 54 0d 00 14  |..... >DPRINT...|
00000010  04 0d 00 1e 46 f4 20 50  72 6f 67 72 61 6d 20 64  |....F. Program d|
00000020  72 61 66 74 20 70 72 69  6e 74 20 74 65 78 74 20  |raft print text |
00000030  66 69 6c 65 73 20 69 6e  20 74 68 65 20 66 6f 72  |files in the for|
00000040  6d 20 63 72 65 61 74 65  64 20 62 79 20 45 61 73  |m created by Eas|
00000050  69 57 72 69 74 65 72 0d  00 28 38 f4 20 77 69 74  |iWriter..(8. wit|
00000060  68 20 70 61 67 69 6e 67  2c 20 77 6f 72 64 20 77  |h paging, word w|
00000070  72 61 70 20 61 6e 64 20  6f 70 74 69 6f 6e 61 6c  |rap and optional|
00000080  20 64 6f 75 62 6c 65 20  73 70 61 63 69 6e 67 0d  | double spacing.|
00000090  00 32 22 f4 20 28 63 29  20 4a 6f 6e 61 74 68 61  |.2". (c) Jonatha|
000000a0  6e 20 45 76 61 6e 73 2c  20 4d 61 79 20 31 39 39  |n Evans, May 199|
000000b0  31 0d 00 3c 04 0d 00 3d  0c ee 20 85 20 f2 65 72  |1..<...=.. . .er|
000000c0  72 0d 00 46 09 f2 69 6e  69 74 0d 00 50 1b 63 6f  |r..F..init..P.co|
000000d0  6d 6d 61 6e 64 24 20 3d  20 a4 63 6f 6d 6d 61 6e  |mmand$ = .comman|
000000e0  64 6c 69 6e 65 0d 00 5a  1f 66 69 6c 65 24 20 3d  |dline..Z.file$ =|
000000f0  20 a4 6c 61 73 74 77 6f  72 64 28 63 6f 6d 6d 61  | .lastword(comma|
00000100  6e 64 24 29 0d 00 6e 0e  c8 8e 20 66 69 6c 65 24  |nd$)..n... file$|
00000110  20 ca 0d 00 78 1d c9 20  22 22 3a 20 f1 20 22 46  | ...x.. "": . "F|
00000120  69 6c 65 6e 61 6d 65 20  6e 65 65 64 65 64 22 0d  |ilename needed".|
00000130  00 82 2c c9 20 22 42 41  53 49 43 22 3a 20 f1 20  |..,. "BASIC": . |
00000140  22 46 4f 52 4d 41 54 20  2a 64 70 72 69 6e 74 20  |"FORMAT *dprint |
00000150  3c 66 69 6c 65 6e 61 6d  65 3e 22 0d 00 8c 21 c9  |<filename>"...!.|
00000160  20 22 2d 48 45 4c 50 22  2c 22 2d 68 65 6c 70 22  | "-HELP","-help"|
00000170  3a 20 f2 70 72 69 6e 74  68 65 6c 70 0d 00 96 14  |: .printhelp....|
00000180  7f 3a 20 f2 70 72 69 6e  74 28 66 69 6c 65 24 29  |.: .print(file$)|
00000190  0d 00 a0 05 cb 0d 00 aa  07 d9 23 30 0d 00 b4 05  |..........#0....|
000001a0  e0 0d 00 be 04 0d 00 c8  0a dd f2 69 6e 69 74 0d  |...........init.|
000001b0  00 d2 14 70 61 67 65 5f  6c 65 6e 67 74 68 20 3d  |...page_length =|
000001c0  20 36 36 0d 00 dc 12 74  6f 70 5f 6d 61 72 67 69  | 66....top_margi|
000001d0  6e 20 3d 20 34 0d 00 e6  15 62 6f 74 74 6f 6d 5f  |n = 4....bottom_|
000001e0  6d 61 72 67 69 6e 20 3d  20 38 0d 00 f0 13 6c 65  |margin = 8....le|
000001f0  66 74 5f 6d 61 72 67 69  6e 20 3d 20 38 0d 00 fa  |ft_margin = 8...|
00000200  14 6c 69 6e 65 5f 6c 65  6e 67 74 68 20 3d 20 36  |.line_length = 6|
00000210  38 0d 01 04 05 e1 0d 01  0e 04 0d 01 18 12 dd a4  |8...............|
00000220  6c 61 73 74 77 6f 72 64  28 6c 24 29 0d 01 22 08  |lastword(l$)..".|
00000230  ea 20 63 25 0d 01 2c 11  63 25 20 3d 20 a7 6c 24  |. c%..,.c% = .l$|
00000240  2c 22 20 22 29 0d 01 36  0e e7 20 63 25 20 3d 20  |," ")..6.. c% = |
00000250  30 20 8c 0d 01 40 07 3d  6c 24 0d 01 4a 05 cc 0d  |0 ...@.=l$..J...|
00000260  01 54 1b 3d a4 6c 61 73  74 77 6f 72 64 28 c2 6c  |.T.=.lastword(.l|
00000270  24 2c a9 6c 24 2d 63 25  29 29 0d 01 5e 05 cd 0d  |$,.l$-c%))..^...|
00000280  01 68 04 0d 01 72 11 dd  a4 63 6f 6d 6d 61 6e 64  |.h...r...command|
00000290  6c 69 6e 65 0d 01 7c 18  c8 99 20 22 4f 53 5f 47  |line..|... "OS_G|
000002a0  65 74 45 6e 76 22 20 b8  20 61 64 72 0d 01 86 15  |etEnv" . adr....|
000002b0  3d 20 a4 6f 73 5f 73 74  72 69 6e 67 28 61 64 72  |= .os_string(adr|
000002c0  29 0d 01 90 04 0d 01 9a  12 dd a4 6f 73 5f 73 74  |)..........os_st|
000002d0  72 69 6e 67 28 61 29 0d  01 a4 37 f4 20 52 65 61  |ring(a)...7. Rea|
000002e0  64 73 20 73 74 72 69 6e  67 20 61 74 20 61 64 64  |ds string at add|
000002f0  72 65 73 73 20 61 20 74  65 72 6d 69 6e 61 74 65  |ress a terminate|
00000300  64 20 62 79 20 7a 65 72  6f 20 62 79 74 65 0d 01  |d by zero byte..|
00000310  ae 0e ea 20 73 24 2c 63  25 2c 69 25 0d 01 b8 0f  |... s$,c%,i%....|
00000320  69 25 3d 30 3a 20 73 24  3d 22 22 0d 01 c2 05 f5  |i%=0: s$="".....|
00000330  0d 01 cc 0d 63 25 20 3d  20 61 3f 69 25 0d 01 d6  |....c% = a?i%...|
00000340  19 e7 20 63 25 20 3c 3e  20 30 20 8c 20 73 24 20  |.. c% <> 0 . s$ |
00000350  2b 3d 20 bd 63 25 0d 01  e0 0a 69 25 20 2b 3d 31  |+= .c%....i% +=1|
00000360  0d 01 ea 0c fd 20 63 25  20 3d 20 30 0d 01 f4 07  |..... c% = 0....|
00000370  3d 73 24 0d 01 fe 04 0d  02 08 0f dd f2 70 72 69  |=s$..........pri|
00000380  6e 74 68 65 6c 70 0d 02  12 3d f1 20 22 50 52 49  |nthelp...=. "PRI|
00000390  4e 54 53 20 50 4c 41 49  4e 20 54 45 58 54 20 46  |NTS PLAIN TEXT F|
000003a0  49 4c 45 20 57 49 54 48  20 57 4f 52 44 20 57 52  |ILE WITH WORD WR|
000003b0  41 50 20 41 4e 44 20 50  41 47 45 20 42 52 45 41  |AP AND PAGE BREA|
000003c0  4b 53 22 0d 02 1c 21 f1  20 22 46 4f 52 4d 41 54  |KS"...!. "FORMAT|
000003d0  20 2a 44 50 52 49 4e 54  20 3c 66 69 6c 65 6e 61  | *DPRINT <filena|
000003e0  6d 65 3e 22 0d 02 26 05  e1 0d 02 30 04 0d 02 3a  |me>"..&....0...:|
000003f0  0f dd f2 70 72 69 6e 74  28 66 24 29 0d 02 44 3d  |...print(f$)..D=|
00000400  ea 20 66 2c 64 6f 75 62  6c 65 2c 6c 69 6e 65 24  |. f,double,line$|
00000410  2c 63 25 2c 63 6f 75 6e  74 25 2c 6f 76 65 72 25  |,c%,count%,over%|
00000420  2c 6e 65 77 70 61 67 65  2c 6e 6c 69 6e 65 73 2c  |,newpage,nlines,|
00000430  6c 69 6e 65 2c 70 61 64  24 0d 02 4e 35 6e 6c 69  |line,pad$..N5nli|
00000440  6e 65 73 20 3d 20 70 61  67 65 5f 6c 65 6e 67 74  |nes = page_lengt|
00000450  68 20 2d 20 74 6f 70 5f  6d 61 72 67 69 6e 20 2d  |h - top_margin -|
00000460  20 62 6f 74 74 6f 6d 5f  6d 61 72 67 69 6e 0d 02  | bottom_margin..|
00000470  58 19 6e 65 77 70 61 67  65 20 3d 20 b9 3a 20 70  |X.newpage = .: p|
00000480  61 67 65 20 3d 20 31 0d  02 62 1c 70 61 64 24 20  |age = 1..b.pad$ |
00000490  3d 20 c4 6c 65 66 74 5f  6d 61 72 67 69 6e 2c 22  |= .left_margin,"|
000004a0  20 22 29 0d 02 6c 0d 66  20 3d 20 8e 28 66 24 29  | ")..l.f = .(f$)|
000004b0  0d 02 76 26 e7 20 66 20  3d 20 30 20 8c 20 f1 20  |..v&. f = 0 . . |
000004c0  22 46 69 6c 65 20 6e 6f  74 20 66 6f 75 6e 64 22  |"File not found"|
000004d0  3a d9 23 30 3a e1 0d 02  80 2c f1 20 22 50 72 69  |:.#0:....,. "Pri|
000004e0  6e 74 20 28 53 29 69 6e  67 6c 65 20 6f 72 20 28  |nt (S)ingle or (|
000004f0  44 29 64 6f 75 62 6c 65  20 73 70 61 63 65 64 20  |D)double spaced |
00000500  22 3b 0d 02 8a 09 2a 46  58 31 35 0d 02 94 1a f5  |";....*FX15.....|
00000510  20 47 24 20 3d 20 be 3a  fd 20 a7 22 53 73 44 64  | G$ = .:. ."SsDd|
00000520  22 2c 47 24 29 0d 02 9e  29 e7 20 a7 22 44 64 22  |",G$)...). ."Dd"|
00000530  2c 47 24 29 20 8c 20 64  6f 75 62 6c 65 20 3d 20  |,G$) . double = |
00000540  b9 20 8b 20 64 6f 75 62  6c 65 20 3d 20 a3 0d 02  |. . double = ...|
00000550  a8 37 f1 20 27 22 52 65  61 64 79 20 70 72 69 6e  |.7. '"Ready prin|
00000560  74 65 72 20 61 6e 64 20  70 72 65 73 73 20 61 20  |ter and press a |
00000570  6b 65 79 20 28 45 73 63  61 70 65 20 63 61 6e 63  |key (Escape canc|
00000580  65 6c 73 29 22 0d 02 b2  09 2a 46 58 31 35 0d 02  |els)"....*FX15..|
00000590  bc 09 f5 20 fd 20 a5 0d  02 c6 07 eb 20 30 0d 02  |... . ...... 0..|
000005a0  c7 06 ef 32 0d 02 d0 05  f5 0d 02 da 18 63 6f 75  |...2.........cou|
000005b0  6e 74 25 20 3d 20 30 3a  20 6c 69 6e 65 24 3d 22  |nt% = 0: line$="|
000005c0  22 0d 02 e4 3c e7 20 6e  65 77 70 61 67 65 20 8c  |"...<. newpage .|
000005d0  20 e3 20 6c 3d 31 20 b8  20 74 6f 70 5f 6d 61 72  | . l=1 . top_mar|
000005e0  67 69 6e 3a 20 f1 3a 20  ed 20 6c 3a 6c 69 6e 65  |gin: .: . l:line|
000005f0  3d 30 3a 20 6e 65 77 70  61 67 65 3d a3 0d 02 ee  |=0: newpage=....|
00000600  05 f5 0d 02 f8 0c 63 25  20 3d 20 9a 23 66 0d 03  |......c% = .#f..|
00000610  02 0f f4 20 50 52 49 4e  54 20 63 25 3b 0d 03 0c  |... PRINT c%;...|
00000620  28 e7 20 63 25 20 3e 20  31 30 20 8c 20 6c 69 6e  |(. c% > 10 . lin|
00000630  65 24 20 2b 3d 20 bd 63  25 3a 20 63 6f 75 6e 74  |e$ += .c%: count|
00000640  25 20 2b 3d 31 0d 03 16  34 fd 20 63 25 3d 31 30  |% +=1...4. c%=10|
00000650  20 84 20 28 63 25 20 3d  20 33 32 20 80 20 63 6f  | . (c% = 32 . co|
00000660  75 6e 74 25 20 3e 20 6c  69 6e 65 5f 6c 65 6e 67  |unt% > line_leng|
00000670  74 68 29 20 84 20 c5 23  66 0d 03 20 1d e7 20 63  |th) . .#f.. .. c|
00000680  6f 75 6e 74 25 20 3c 3d  20 6c 69 6e 65 5f 6c 65  |ount% <= line_le|
00000690  6e 67 74 68 20 8c 0d 03  2a 10 f1 20 70 61 64 24  |ngth ...*.. pad$|
000006a0  3b 6c 69 6e 65 24 0d 03  34 05 cc 0d 03 3e 23 6f  |;line$..4....>#o|
000006b0  76 65 72 25 20 3d 20 a9  28 a4 6c 61 73 74 77 6f  |ver% = .(.lastwo|
000006c0  72 64 28 c0 6c 69 6e 65  24 29 29 29 2b 31 0d 03  |rd(.line$)))+1..|
000006d0  48 2a f4 20 50 52 49 4e  54 20 63 6f 75 6e 74 25  |H*. PRINT count%|
000006e0  2c 6f 76 65 72 25 2c 46  4e 6c 61 73 74 77 6f 72  |,over%,FNlastwor|
000006f0  64 28 6c 69 6e 65 24 29  0d 03 52 20 6c 69 6e 65  |d(line$)..R line|
00000700  24 20 3d 20 c0 6c 69 6e  65 24 2c 63 6f 75 6e 74  |$ = .line$,count|
00000710  25 2d 6f 76 65 72 25 29  0d 03 5c 11 f1 20 70 61  |%-over%)..\.. pa|
00000720  64 24 3b 20 6c 69 6e 65  24 0d 03 66 15 cf 23 66  |d$; line$..f..#f|
00000730  20 3d 20 8f 23 66 20 2d  20 6f 76 65 72 25 0d 03  | = .#f - over%..|
00000740  70 05 cd 0d 03 7a 23 e7  20 64 6f 75 62 6c 65 20  |p....z#. double |
00000750  8c 20 f1 3a 20 6c 69 6e  65 2b 3d 32 20 8b 20 6c  |. .: line+=2 . l|
00000760  69 6e 65 2b 3d 31 0d 03  7b 10 f4 20 50 52 49 4e  |ine+=1..{.. PRIN|
00000770  54 20 6c 69 6e 65 0d 03  84 53 e7 20 6c 69 6e 65  |T line...S. line|
00000780  3e 6e 6c 69 6e 65 73 20  84 20 28 64 6f 75 62 6c  |>nlines . (doubl|
00000790  65 20 80 20 6c 69 6e 65  20 3d 20 6e 6c 69 6e 65  |e . line = nline|
000007a0  73 29 20 8c 20 f2 62 6f  74 74 6f 6d 5f 73 70 61  |s) . .bottom_spa|
000007b0  63 65 28 6c 69 6e 65 2c  6e 6c 69 6e 65 73 29 3a  |ce(line,nlines):|
000007c0  6e 65 77 70 61 67 65 3d  b9 0d 03 8e 09 fd 20 c5  |newpage=...... .|
000007d0  23 66 0d 03 98 1e f2 62  6f 74 74 6f 6d 5f 73 70  |#f.....bottom_sp|
000007e0  61 63 65 28 6c 69 6e 65  2c 6e 6c 69 6e 65 73 29  |ace(line,nlines)|
000007f0  0d 03 99 06 ef 33 0d 03  a2 05 e1 0d 03 ac 04 0d  |.....3..........|
00000800  03 b6 1f dd f2 62 6f 74  74 6f 6d 5f 73 70 61 63  |.....bottom_spac|
00000810  65 28 6c 69 6e 65 2c 6e  6c 69 6e 65 73 29 0d 03  |e(line,nlines)..|
00000820  c0 14 ea 20 70 61 67 65  6c 69 6e 65 2c 6c 2c 70  |... pageline,l,p|
00000830  61 64 0d 03 ca 19 70 61  67 65 6c 69 6e 65 20 3d  |ad....pageline =|
00000840  20 6e 6c 69 6e 65 73 20  2b 20 33 0d 03 d4 1d 70  | nlines + 3....p|
00000850  61 64 20 3d 20 70 61 67  65 6c 69 6e 65 20 2d 20  |ad = pageline - |
00000860  6c 69 6e 65 20 2d 20 31  0d 03 de 0e e7 20 70 61  |line - 1..... pa|
00000870  64 20 3e 30 20 8c 0d 03  e8 11 e3 20 6c 20 3d 20  |d >0 ...... l = |
00000880  31 20 b8 20 70 61 64 0d  03 f2 05 f1 0d 03 fc 07  |1 . pad.........|
00000890  ed 20 6c 0d 04 06 05 cd  0d 04 10 2c f1 20 8a 6c  |. l........,. .l|
000008a0  65 66 74 5f 6d 61 72 67  69 6e 20 2b 20 28 6c 69  |eft_margin + (li|
000008b0  6e 65 5f 6c 65 6e 67 74  68 20 81 20 32 29 29 3b  |ne_length . 2));|
000008c0  70 61 67 65 0d 04 1a 0b  70 61 67 65 2b 3d 31 0d  |page....page+=1.|
000008d0  04 24 26 c8 95 20 70 61  67 65 6c 69 6e 65 20 3c  |.$&.. pageline <|
000008e0  20 6e 6c 69 6e 65 73 2b  62 6f 74 74 6f 6d 5f 6d  | nlines+bottom_m|
000008f0  61 72 67 69 6e 0d 04 2e  05 f1 0d 04 38 0f 70 61  |argin.......8.pa|
00000900  67 65 6c 69 6e 65 2b 3d  31 0d 04 42 05 ce 0d 04  |geline+=1..B....|
00000910  4c 05 e1 0d 04 56 04 0d  04 60 04 0d 04 6a 09 dd  |L....V...`...j..|
00000920  f2 65 72 72 0d 04 74 06  ef 33 0d 04 7e 09 2a 46  |.err..t..3..~.*F|
00000930  58 31 35 0d 04 88 18 f1  27 20 22 50 72 69 6e 74  |X15.....' "Print|
00000940  20 63 61 6e 63 65 6c 6c  65 64 22 0d 04 92 05 e0  | cancelled".....|
00000950  0d ff                                             |..|
00000952

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .