� Banners
� (C) Allan Kelly 14/8/87
 
(� chars%(94,7)
2
� data 10
<�set_up
F�epson_codes
P�get_fonts
Z 
d� 7
n�
x�
��
�?�0,0);�(129);�(157);�(141);�10,0);�(131);"Printer Banners"
�?�0,1);�(129);�(157);�(141);�10,1);�(131);"Printer Banners"
�!�7,2);"(C) Allan Kelly 1987"
� 
��''�(5);"S - Save settings"
��'�(5);"L - Save settings"
� �'�(5);"C - Change settings"
��'�(5);"E - Enter message"
��'�(5);"P - Print banner"
��'�(5);"Q - Quit"
� 
�*FX21,0

� key$=�

)� �"SLCEPQ*",key$) � �"slcepq*",key$)

key=�(key$) �&DF

" 

,� key=�"S" �save

6� key=�"L" �load

@� key=�"C" �change

J� key=�"E" �message

T� key=�"P" �3:�print:�7

^� key=10 �os

h� key=�"Q"

r� �test("Are you sure?")

|�

� 

���os

�
� os$,key

�� �'"*"os$

�
$&C00=os$

�X%=0

�	Y%=&C

�
�&FFF7

�*FX21,0

�	key=�

�
� key<>42

��

� 
��change
	� key
�
&#�4,0);�(141);"Change Settings"
0#�4,1);�(141);"Change Settings"
:%�0,2);"Vertical multiplier:";vm%
D(�0,3);"Horiztontal multiplier:";hm%
N�0,4);"Left gap:";left%
X�0,5);"Top gap:";top%
b �0,6);"Bottom gap:";bottom%
l2�0,8);"Fourgound character:";�(out%);" ";out%
v4�0,9);"Backgound character:";�(back%);" ";back%
�(�0,11);"Line spacing n/216:";space%
� 
��
��0,20);�(38)
� 
�!vm%=�get_value(25,2,10,1,vm%)
�!hm%=�get_value(25,3,10,1,hm%)
�%left%=�get_value(25,4,40,0,left%)
�#top%=�get_value(25,5,40,0,top%)
�)bottom%=�get_value(25,6,40,0,bottom%)
�%out%=�get_ascii(25,8,126,32,out%)
�'back%=�get_ascii(25,9,126,32,back%)
�)space%=�get_value(25,11,216,1,space%)
.�0,20);"RETURN to repeat, SPACE for menu"
*FX21,0
� key=�
 � key=13 � key=32
*� key=32
4�
> 
H
��message
R� x$
\�
f�4,1);�(141);"Message"
p�4,2);�(141);"Message"
z!�''"Current message:"message$
��'';"New message:"x$
�� x$<>"" message$=x$
� 
��''"Pre message:"pre$
��';"Pre message:"x$
�� x$<>"" pre$=x$
� 
��''"Post message:"post$
��';"Post message:"x$
�� x$<>"" post$=x$
��
� 
���print
� print%,key,vh%
�
print%=�test("Printer on?")
$&�"Vertical (V) or Horizontal (H)?"
.*FX21,0
8� key=� �&DF
B� key=�"H" � key=�"V"
L� key=�"H" vh%=� � vh%=�
V+� print% � 2,1,esc%,1,sp_code%,1,space%
`� pre$<>"" �pre$'
j5� vh% �vertical(message$) � �horizontal(message$)
t� post$<>"" �post$'
~� print% � 3
��return
��
� 
���horizontal(x$)
�� char,x%,hl%,y%,vl%
�� char=�(x$) � 1 � -1
�� top%>0 �lines(top%)
�� x%=0 � 7
�� hl%=1 � hm%
��'�(left%);
�� y%=0 � 7
�� vl%=1 � vm%
@� chars%(�(�message$,char,1))-32,y%) � 2^x% � out% � � back%

�
�
�
(�
2� bottom%>0 �lines(bottom%)
<�
F�
P 
Z��vertical(x$)
d� char,x%,hl%,y%,vl%
n� char=1 � �(x$)
x� top%>0 �lines(top%)
�� x%=0 � 7
�� hl%=1 � hm%
��'�(left%);
�� y%=7 � 0 � -1
�� vl%=1 � vm%
�@� chars%(�(�message$,char,1))-32,x%) � 2^y% � out% � � back%
��
��
��
��
�� bottom%>0 �lines(bottom%)
��
��
 

��save
� file,file$
"�cat
,file$=�file_name
6file=�(file$)
@6� file<>0 �"File exists.":� �test("Continue?")=� �
J
�#file
Tfile=�(file$)
^�#file,vm%,hm%
h�#file,left%,top%,bottom%
r�#file,space%,out%,back%
|�#file,message$,pre$,post$
�
�#file
��
� 
�
��load
�� file,file$
��cat
�file$=�file_name
�file=�(file$)
�-� file=0 �"File does not exist":�return:�
� 
��#file,vm%,hm%
��#file,left%,top%,bottom%
��#file,space%,out%,back%
�#file,message$,pre$,post$

�#file
�
& 
0	��cat
:� �test("Catalogue?") � *.
D�
N 
Xݤfile_name
b� x$
l�
v�'"Filename:"x$
�� x$<>""
�:=x$
� 
���set_up
�print%=�
�	vm%=1
�	hm%=1
�left%=0
�
out%=�"X"
�back%=�" "
�message$=""
�pre$=""
�post$=""

top%=0

bottom%=0

space%=36
 �
* 
4��epson_codes
>esc%=27
H!� line spacing code for n/216
Rsp_code%=�"3"
\�
f 
p��get_fonts
z� get%,x
� �''"Reading Character fonts"
�� get%=32 � 126
�?data=get%
�	A%=10
�X%=data � 256
�Y%=data � 256
�
�&FFF1
�
� x=0 � 7
�!chars%(get%-32,x)=?(data+1+x)
��
��
��
� 
	ݤtest(x$)
		� key
	�'x$
	$*FX21,0
	.� key=� �&DF
	8� key=�"Y" � key=�"N"
	B� key=�"Y" :=�
	L:=�
	V 
	`��return
	j�'�(10);"Press RETURN"
	t*FX21,0
	~� � �=13
	��
	� 
	�ݤget_value(x,y,max,min,v)
	�
� z$,z
	��x,y);
	�� z$
	�� z$="" z=v � z=�(z$)
	�&� z>=min � z<=max �x,y);z;"     "
	�#� z>max �x,y);max;" MAX":z=max
	�#� z<min �x,y);min;" MIN":z=min
	�:=z
	� 
��lines(x)

� y

� y=1 � X
�'
(�
2�
< 
Fݤget_ascii(x,y,max,min,v)
P
� z$,z
Z�x,y);
dz$=�
n� z$=�(13) z=v � z=�(z$)
x)� z>=min � z<=max �x,y);�(z);"     "
�&� z>max �x,y);�(max);" MAX":z=max
�&� z<min �x,y);�(min);" MIN":z=min
�:=z
�

00000000  0d 00 0a 0d f4 20 42 61  6e 6e 65 72 73 0d 00 14  |..... Banners...|
00000010  1d f4 20 28 43 29 20 41  6c 6c 61 6e 20 4b 65 6c  |.. (C) Allan Kel|
00000020  6c 79 20 31 34 2f 38 2f  38 37 0d 00 1e 05 20 0d  |ly 14/8/87.... .|
00000030  00 28 12 de 20 63 68 61  72 73 25 28 39 34 2c 37  |.(.. chars%(94,7|
00000040  29 0d 00 32 0d de 20 64  61 74 61 20 31 30 0d 00  |)..2.. data 10..|
00000050  3c 0b f2 73 65 74 5f 75  70 0d 00 46 10 f2 65 70  |<..set_up..F..ep|
00000060  73 6f 6e 5f 63 6f 64 65  73 0d 00 50 0e f2 67 65  |son_codes..P..ge|
00000070  74 5f 66 6f 6e 74 73 0d  00 5a 05 20 0d 00 64 07  |t_fonts..Z. ..d.|
00000080  eb 20 37 0d 00 6e 05 f5  0d 00 78 05 f5 0d 00 82  |. 7..n....x.....|
00000090  05 db 0d 00 8c 3f f1 8a  30 2c 30 29 3b bd 28 31  |.....?..0,0);.(1|
000000a0  32 39 29 3b bd 28 31 35  37 29 3b bd 28 31 34 31  |29);.(157);.(141|
000000b0  29 3b 8a 31 30 2c 30 29  3b bd 28 31 33 31 29 3b  |);.10,0);.(131);|
000000c0  22 50 72 69 6e 74 65 72  20 42 61 6e 6e 65 72 73  |"Printer Banners|
000000d0  22 0d 00 96 3f f1 8a 30  2c 31 29 3b bd 28 31 32  |"...?..0,1);.(12|
000000e0  39 29 3b bd 28 31 35 37  29 3b bd 28 31 34 31 29  |9);.(157);.(141)|
000000f0  3b 8a 31 30 2c 31 29 3b  bd 28 31 33 31 29 3b 22  |;.10,1);.(131);"|
00000100  50 72 69 6e 74 65 72 20  42 61 6e 6e 65 72 73 22  |Printer Banners"|
00000110  0d 00 a0 21 f1 8a 37 2c  32 29 3b 22 28 43 29 20  |...!..7,2);"(C) |
00000120  41 6c 6c 61 6e 20 4b 65  6c 6c 79 20 31 39 38 37  |Allan Kelly 1987|
00000130  22 0d 00 aa 05 20 0d 00  b4 1f f1 27 27 89 28 35  |".... .....''.(5|
00000140  29 3b 22 53 20 2d 20 53  61 76 65 20 73 65 74 74  |);"S - Save sett|
00000150  69 6e 67 73 22 0d 00 be  1e f1 27 89 28 35 29 3b  |ings".....'.(5);|
00000160  22 4c 20 2d 20 53 61 76  65 20 73 65 74 74 69 6e  |"L - Save settin|
00000170  67 73 22 0d 00 c8 20 f1  27 89 28 35 29 3b 22 43  |gs"... .'.(5);"C|
00000180  20 2d 20 43 68 61 6e 67  65 20 73 65 74 74 69 6e  | - Change settin|
00000190  67 73 22 0d 00 d2 1e f1  27 89 28 35 29 3b 22 45  |gs".....'.(5);"E|
000001a0  20 2d 20 45 6e 74 65 72  20 6d 65 73 73 61 67 65  | - Enter message|
000001b0  22 0d 00 dc 1d f1 27 89  28 35 29 3b 22 50 20 2d  |".....'.(5);"P -|
000001c0  20 50 72 69 6e 74 20 62  61 6e 6e 65 72 22 0d 00  | Print banner"..|
000001d0  e6 15 f1 27 89 28 35 29  3b 22 51 20 2d 20 51 75  |...'.(5);"Q - Qu|
000001e0  69 74 22 0d 00 f0 05 20  0d 00 fa 0b 2a 46 58 32  |it".... ....*FX2|
000001f0  31 2c 30 0d 01 04 0c f5  20 6b 65 79 24 3d be 0d  |1,0..... key$=..|
00000200  01 0e 29 fd 20 a7 22 53  4c 43 45 50 51 2a 22 2c  |..). ."SLCEPQ*",|
00000210  6b 65 79 24 29 20 84 20  a7 22 73 6c 63 65 70 71  |key$) . ."slcepq|
00000220  2a 22 2c 6b 65 79 24 29  0d 01 18 14 6b 65 79 3d  |*",key$)....key=|
00000230  97 28 6b 65 79 24 29 20  80 26 44 46 0d 01 22 05  |.(key$) .&DF..".|
00000240  20 0d 01 2c 14 e7 20 6b  65 79 3d 97 22 53 22 20  | ..,.. key=."S" |
00000250  f2 73 61 76 65 0d 01 36  14 e7 20 6b 65 79 3d 97  |.save..6.. key=.|
00000260  22 4c 22 20 f2 6c 6f 61  64 0d 01 40 16 e7 20 6b  |"L" .load..@.. k|
00000270  65 79 3d 97 22 43 22 20  f2 63 68 61 6e 67 65 0d  |ey=."C" .change.|
00000280  01 4a 17 e7 20 6b 65 79  3d 97 22 45 22 20 f2 6d  |.J.. key=."E" .m|
00000290  65 73 73 61 67 65 0d 01  54 1b e7 20 6b 65 79 3d  |essage..T.. key=|
000002a0  97 22 50 22 20 eb 33 3a  f2 70 72 69 6e 74 3a eb  |."P" .3:.print:.|
000002b0  37 0d 01 5e 10 e7 20 6b  65 79 3d 31 30 20 f2 6f  |7..^.. key=10 .o|
000002c0  73 0d 01 68 0e fd 20 6b  65 79 3d 97 22 51 22 0d  |s..h.. key=."Q".|
000002d0  01 72 1c fd 20 a4 74 65  73 74 28 22 41 72 65 20  |.r.. .test("Are |
000002e0  79 6f 75 20 73 75 72 65  3f 22 29 0d 01 7c 05 e0  |you sure?")..|..|
000002f0  0d 01 86 05 20 0d 01 90  08 dd f2 6f 73 0d 01 9a  |.... ......os...|
00000300  0d ea 20 6f 73 24 2c 6b  65 79 0d 01 a4 0e f5 20  |.. os$,key..... |
00000310  e8 27 22 2a 22 6f 73 24  0d 01 ae 0d 24 26 43 30  |.'"*"os$....$&C0|
00000320  30 3d 6f 73 24 0d 01 b8  08 58 25 3d 30 0d 01 c2  |0=os$....X%=0...|
00000330  09 59 25 3d 26 43 0d 01  cc 0a d6 26 46 46 46 37  |.Y%=&C.....&FFF7|
00000340  0d 01 d6 0b 2a 46 58 32  31 2c 30 0d 01 e0 09 6b  |....*FX21,0....k|
00000350  65 79 3d a5 0d 01 ea 0d  fd 20 6b 65 79 3c 3e 34  |ey=...... key<>4|
00000360  32 0d 01 f4 05 e1 0d 01  fe 05 20 0d 02 08 0c dd  |2......... .....|
00000370  f2 63 68 61 6e 67 65 0d  02 12 09 ea 20 6b 65 79  |.change..... key|
00000380  0d 02 1c 05 db 0d 02 26  23 f1 8a 34 2c 30 29 3b  |.......&#..4,0);|
00000390  bd 28 31 34 31 29 3b 22  43 68 61 6e 67 65 20 53  |.(141);"Change S|
000003a0  65 74 74 69 6e 67 73 22  0d 02 30 23 f1 8a 34 2c  |ettings"..0#..4,|
000003b0  31 29 3b bd 28 31 34 31  29 3b 22 43 68 61 6e 67  |1);.(141);"Chang|
000003c0  65 20 53 65 74 74 69 6e  67 73 22 0d 02 3a 25 f1  |e Settings"..:%.|
000003d0  8a 30 2c 32 29 3b 22 56  65 72 74 69 63 61 6c 20  |.0,2);"Vertical |
000003e0  6d 75 6c 74 69 70 6c 69  65 72 3a 22 3b 76 6d 25  |multiplier:";vm%|
000003f0  0d 02 44 28 f1 8a 30 2c  33 29 3b 22 48 6f 72 69  |..D(..0,3);"Hori|
00000400  7a 74 6f 6e 74 61 6c 20  6d 75 6c 74 69 70 6c 69  |ztontal multipli|
00000410  65 72 3a 22 3b 68 6d 25  0d 02 4e 1c f1 8a 30 2c  |er:";hm%..N...0,|
00000420  34 29 3b 22 4c 65 66 74  20 67 61 70 3a 22 3b 6c  |4);"Left gap:";l|
00000430  65 66 74 25 0d 02 58 1a  f1 8a 30 2c 35 29 3b 22  |eft%..X...0,5);"|
00000440  54 6f 70 20 67 61 70 3a  22 3b 74 6f 70 25 0d 02  |Top gap:";top%..|
00000450  62 20 f1 8a 30 2c 36 29  3b 22 42 6f 74 74 6f 6d  |b ..0,6);"Bottom|
00000460  20 67 61 70 3a 22 3b 62  6f 74 74 6f 6d 25 0d 02  | gap:";bottom%..|
00000470  6c 32 f1 8a 30 2c 38 29  3b 22 46 6f 75 72 67 6f  |l2..0,8);"Fourgo|
00000480  75 6e 64 20 63 68 61 72  61 63 74 65 72 3a 22 3b  |und character:";|
00000490  bd 28 6f 75 74 25 29 3b  22 20 22 3b 6f 75 74 25  |.(out%);" ";out%|
000004a0  0d 02 76 34 f1 8a 30 2c  39 29 3b 22 42 61 63 6b  |..v4..0,9);"Back|
000004b0  67 6f 75 6e 64 20 63 68  61 72 61 63 74 65 72 3a  |gound character:|
000004c0  22 3b bd 28 62 61 63 6b  25 29 3b 22 20 22 3b 62  |";.(back%);" ";b|
000004d0  61 63 6b 25 0d 02 80 28  f1 8a 30 2c 31 31 29 3b  |ack%...(..0,11);|
000004e0  22 4c 69 6e 65 20 73 70  61 63 69 6e 67 20 6e 2f  |"Line spacing n/|
000004f0  32 31 36 3a 22 3b 73 70  61 63 65 25 0d 02 8a 05  |216:";space%....|
00000500  20 0d 02 94 05 f5 0d 02  9e 11 f1 8a 30 2c 32 30  | ...........0,20|
00000510  29 3b 89 28 33 38 29 0d  02 a8 05 20 0d 02 b2 21  |);.(38).... ...!|
00000520  76 6d 25 3d a4 67 65 74  5f 76 61 6c 75 65 28 32  |vm%=.get_value(2|
00000530  35 2c 32 2c 31 30 2c 31  2c 76 6d 25 29 0d 02 bc  |5,2,10,1,vm%)...|
00000540  21 68 6d 25 3d a4 67 65  74 5f 76 61 6c 75 65 28  |!hm%=.get_value(|
00000550  32 35 2c 33 2c 31 30 2c  31 2c 68 6d 25 29 0d 02  |25,3,10,1,hm%)..|
00000560  c6 25 6c 65 66 74 25 3d  a4 67 65 74 5f 76 61 6c  |.%left%=.get_val|
00000570  75 65 28 32 35 2c 34 2c  34 30 2c 30 2c 6c 65 66  |ue(25,4,40,0,lef|
00000580  74 25 29 0d 02 d0 23 74  6f 70 25 3d a4 67 65 74  |t%)...#top%=.get|
00000590  5f 76 61 6c 75 65 28 32  35 2c 35 2c 34 30 2c 30  |_value(25,5,40,0|
000005a0  2c 74 6f 70 25 29 0d 02  da 29 62 6f 74 74 6f 6d  |,top%)...)bottom|
000005b0  25 3d a4 67 65 74 5f 76  61 6c 75 65 28 32 35 2c  |%=.get_value(25,|
000005c0  36 2c 34 30 2c 30 2c 62  6f 74 74 6f 6d 25 29 0d  |6,40,0,bottom%).|
000005d0  02 e4 25 6f 75 74 25 3d  a4 67 65 74 5f 61 73 63  |..%out%=.get_asc|
000005e0  69 69 28 32 35 2c 38 2c  31 32 36 2c 33 32 2c 6f  |ii(25,8,126,32,o|
000005f0  75 74 25 29 0d 02 ee 27  62 61 63 6b 25 3d a4 67  |ut%)...'back%=.g|
00000600  65 74 5f 61 73 63 69 69  28 32 35 2c 39 2c 31 32  |et_ascii(25,9,12|
00000610  36 2c 33 32 2c 62 61 63  6b 25 29 0d 02 f8 29 73  |6,32,back%)...)s|
00000620  70 61 63 65 25 3d a4 67  65 74 5f 76 61 6c 75 65  |pace%=.get_value|
00000630  28 32 35 2c 31 31 2c 32  31 36 2c 31 2c 73 70 61  |(25,11,216,1,spa|
00000640  63 65 25 29 0d 03 02 2e  f1 8a 30 2c 32 30 29 3b  |ce%)......0,20);|
00000650  22 52 45 54 55 52 4e 20  74 6f 20 72 65 70 65 61  |"RETURN to repea|
00000660  74 2c 20 53 50 41 43 45  20 66 6f 72 20 6d 65 6e  |t, SPACE for men|
00000670  75 22 0d 03 0c 0b 2a 46  58 32 31 2c 30 0d 03 16  |u"....*FX21,0...|
00000680  0b f5 20 6b 65 79 3d a5  0d 03 20 15 fd 20 6b 65  |.. key=... .. ke|
00000690  79 3d 31 33 20 84 20 6b  65 79 3d 33 32 0d 03 2a  |y=13 . key=32..*|
000006a0  0c fd 20 6b 65 79 3d 33  32 0d 03 34 05 e1 0d 03  |.. key=32..4....|
000006b0  3e 05 20 0d 03 48 0d dd  f2 6d 65 73 73 61 67 65  |>. ..H...message|
000006c0  0d 03 52 08 ea 20 78 24  0d 03 5c 05 db 0d 03 66  |..R.. x$..\....f|
000006d0  1b f1 8a 34 2c 31 29 3b  bd 28 31 34 31 29 3b 22  |...4,1);.(141);"|
000006e0  4d 65 73 73 61 67 65 22  0d 03 70 1b f1 8a 34 2c  |Message"..p...4,|
000006f0  32 29 3b bd 28 31 34 31  29 3b 22 4d 65 73 73 61  |2);.(141);"Messa|
00000700  67 65 22 0d 03 7a 21 f1  27 27 22 43 75 72 72 65  |ge"..z!.''"Curre|
00000710  6e 74 20 6d 65 73 73 61  67 65 3a 22 6d 65 73 73  |nt message:"mess|
00000720  61 67 65 24 0d 03 84 18  e8 27 27 3b 22 4e 65 77  |age$.....'';"New|
00000730  20 6d 65 73 73 61 67 65  3a 22 78 24 0d 03 8e 18  | message:"x$....|
00000740  e7 20 78 24 3c 3e 22 22  20 6d 65 73 73 61 67 65  |. x$<>"" message|
00000750  24 3d 78 24 0d 03 98 05  20 0d 03 a2 19 f1 27 27  |$=x$.... .....''|
00000760  22 50 72 65 20 6d 65 73  73 61 67 65 3a 22 70 72  |"Pre message:"pr|
00000770  65 24 0d 03 ac 17 e8 27  3b 22 50 72 65 20 6d 65  |e$.....';"Pre me|
00000780  73 73 61 67 65 3a 22 78  24 0d 03 b6 14 e7 20 78  |ssage:"x$..... x|
00000790  24 3c 3e 22 22 20 70 72  65 24 3d 78 24 0d 03 c0  |$<>"" pre$=x$...|
000007a0  05 20 0d 03 ca 1b f1 27  27 22 50 6f 73 74 20 6d  |. .....''"Post m|
000007b0  65 73 73 61 67 65 3a 22  70 6f 73 74 24 0d 03 d4  |essage:"post$...|
000007c0  18 e8 27 3b 22 50 6f 73  74 20 6d 65 73 73 61 67  |..';"Post messag|
000007d0  65 3a 22 78 24 0d 03 de  15 e7 20 78 24 3c 3e 22  |e:"x$..... x$<>"|
000007e0  22 20 70 6f 73 74 24 3d  78 24 0d 03 e8 05 e1 0d  |" post$=x$......|
000007f0  03 f2 05 20 0d 03 fc 0b  dd f2 70 72 69 6e 74 0d  |... ......print.|
00000800  04 06 14 ea 20 70 72 69  6e 74 25 2c 6b 65 79 2c  |.... print%,key,|
00000810  76 68 25 0d 04 10 05 db  0d 04 1a 1f 70 72 69 6e  |vh%.........prin|
00000820  74 25 3d a4 74 65 73 74  28 22 50 72 69 6e 74 65  |t%=.test("Printe|
00000830  72 20 6f 6e 3f 22 29 0d  04 24 26 f1 22 56 65 72  |r on?")..$&."Ver|
00000840  74 69 63 61 6c 20 28 56  29 20 6f 72 20 48 6f 72  |tical (V) or Hor|
00000850  69 7a 6f 6e 74 61 6c 20  28 48 29 3f 22 0d 04 2e  |izontal (H)?"...|
00000860  0b 2a 46 58 32 31 2c 30  0d 04 38 10 f5 20 6b 65  |.*FX21,0..8.. ke|
00000870  79 3d a5 20 80 26 44 46  0d 04 42 19 fd 20 6b 65  |y=. .&DF..B.. ke|
00000880  79 3d 97 22 48 22 20 84  20 6b 65 79 3d 97 22 56  |y=."H" . key=."V|
00000890  22 0d 04 4c 1c e7 20 6b  65 79 3d 97 22 48 22 20  |"..L.. key=."H" |
000008a0  76 68 25 3d a3 20 8b 20  76 68 25 3d b9 0d 04 56  |vh%=. . vh%=...V|
000008b0  2b e7 20 70 72 69 6e 74  25 20 ef 20 32 2c 31 2c  |+. print% . 2,1,|
000008c0  65 73 63 25 2c 31 2c 73  70 5f 63 6f 64 65 25 2c  |esc%,1,sp_code%,|
000008d0  31 2c 73 70 61 63 65 25  0d 04 60 15 e7 20 70 72  |1,space%..`.. pr|
000008e0  65 24 3c 3e 22 22 20 f1  70 72 65 24 27 0d 04 6a  |e$<>"" .pre$'..j|
000008f0  35 e7 20 76 68 25 20 f2  76 65 72 74 69 63 61 6c  |5. vh% .vertical|
00000900  28 6d 65 73 73 61 67 65  24 29 20 8b 20 f2 68 6f  |(message$) . .ho|
00000910  72 69 7a 6f 6e 74 61 6c  28 6d 65 73 73 61 67 65  |rizontal(message|
00000920  24 29 0d 04 74 17 e7 20  70 6f 73 74 24 3c 3e 22  |$)..t.. post$<>"|
00000930  22 20 f1 70 6f 73 74 24  27 0d 04 7e 10 e7 20 70  |" .post$'..~.. p|
00000940  72 69 6e 74 25 20 ef 20  33 0d 04 88 0b f2 72 65  |rint% . 3.....re|
00000950  74 75 72 6e 0d 04 92 05  e1 0d 04 9c 05 20 0d 04  |turn......... ..|
00000960  a6 14 dd f2 68 6f 72 69  7a 6f 6e 74 61 6c 28 78  |....horizontal(x|
00000970  24 29 0d 04 b0 18 ea 20  63 68 61 72 2c 78 25 2c  |$)..... char,x%,|
00000980  68 6c 25 2c 79 25 2c 76  6c 25 0d 04 ba 19 e3 20  |hl%,y%,vl%..... |
00000990  63 68 61 72 3d a9 28 78  24 29 20 b8 20 31 20 88  |char=.(x$) . 1 .|
000009a0  20 2d 31 0d 04 c4 19 e7  20 74 6f 70 25 3e 30 20  | -1..... top%>0 |
000009b0  f2 6c 69 6e 65 73 28 74  6f 70 25 29 0d 04 ce 0e  |.lines(top%)....|
000009c0  e3 20 78 25 3d 30 20 b8  20 37 0d 04 d8 11 e3 20  |. x%=0 . 7..... |
000009d0  68 6c 25 3d 31 20 b8 20  68 6d 25 0d 04 e2 0f f1  |hl%=1 . hm%.....|
000009e0  27 89 28 6c 65 66 74 25  29 3b 0d 04 ec 0e e3 20  |'.(left%);..... |
000009f0  79 25 3d 30 20 b8 20 37  0d 04 f6 11 e3 20 76 6c  |y%=0 . 7..... vl|
00000a00  25 3d 31 20 b8 20 76 6d  25 0d 05 00 40 e7 20 63  |%=1 . vm%...@. c|
00000a10  68 61 72 73 25 28 97 28  c1 6d 65 73 73 61 67 65  |hars%(.(.message|
00000a20  24 2c 63 68 61 72 2c 31  29 29 2d 33 32 2c 79 25  |$,char,1))-32,y%|
00000a30  29 20 80 20 32 5e 78 25  20 ef 20 6f 75 74 25 20  |) . 2^x% . out% |
00000a40  8b 20 ef 20 62 61 63 6b  25 0d 05 0a 05 ed 0d 05  |. . back%.......|
00000a50  14 05 ed 0d 05 1e 05 ed  0d 05 28 05 ed 0d 05 32  |..........(....2|
00000a60  1f e7 20 62 6f 74 74 6f  6d 25 3e 30 20 f2 6c 69  |.. bottom%>0 .li|
00000a70  6e 65 73 28 62 6f 74 74  6f 6d 25 29 0d 05 3c 05  |nes(bottom%)..<.|
00000a80  ed 0d 05 46 05 e1 0d 05  50 05 20 0d 05 5a 12 dd  |...F....P. ..Z..|
00000a90  f2 76 65 72 74 69 63 61  6c 28 78 24 29 0d 05 64  |.vertical(x$)..d|
00000aa0  18 ea 20 63 68 61 72 2c  78 25 2c 68 6c 25 2c 79  |.. char,x%,hl%,y|
00000ab0  25 2c 76 6c 25 0d 05 6e  14 e3 20 63 68 61 72 3d  |%,vl%..n.. char=|
00000ac0  31 20 b8 20 a9 28 78 24  29 0d 05 78 19 e7 20 74  |1 . .(x$)..x.. t|
00000ad0  6f 70 25 3e 30 20 f2 6c  69 6e 65 73 28 74 6f 70  |op%>0 .lines(top|
00000ae0  25 29 0d 05 82 0e e3 20  78 25 3d 30 20 b8 20 37  |%)..... x%=0 . 7|
00000af0  0d 05 8c 11 e3 20 68 6c  25 3d 31 20 b8 20 68 6d  |..... hl%=1 . hm|
00000b00  25 0d 05 96 0f f1 27 89  28 6c 65 66 74 25 29 3b  |%.....'.(left%);|
00000b10  0d 05 a0 13 e3 20 79 25  3d 37 20 b8 20 30 20 88  |..... y%=7 . 0 .|
00000b20  20 2d 31 0d 05 aa 11 e3  20 76 6c 25 3d 31 20 b8  | -1..... vl%=1 .|
00000b30  20 76 6d 25 0d 05 b4 40  e7 20 63 68 61 72 73 25  | vm%...@. chars%|
00000b40  28 97 28 c1 6d 65 73 73  61 67 65 24 2c 63 68 61  |(.(.message$,cha|
00000b50  72 2c 31 29 29 2d 33 32  2c 78 25 29 20 80 20 32  |r,1))-32,x%) . 2|
00000b60  5e 79 25 20 ef 20 6f 75  74 25 20 8b 20 ef 20 62  |^y% . out% . . b|
00000b70  61 63 6b 25 0d 05 be 05  ed 0d 05 c8 05 ed 0d 05  |ack%............|
00000b80  d2 05 ed 0d 05 dc 05 ed  0d 05 e6 1f e7 20 62 6f  |............. bo|
00000b90  74 74 6f 6d 25 3e 30 20  f2 6c 69 6e 65 73 28 62  |ttom%>0 .lines(b|
00000ba0  6f 74 74 6f 6d 25 29 0d  05 f0 05 ed 0d 05 fa 05  |ottom%).........|
00000bb0  e1 0d 06 04 05 20 0d 06  0e 0a dd f2 73 61 76 65  |..... ......save|
00000bc0  0d 06 18 10 ea 20 66 69  6c 65 2c 66 69 6c 65 24  |..... file,file$|
00000bd0  0d 06 22 08 f2 63 61 74  0d 06 2c 14 66 69 6c 65  |.."..cat..,.file|
00000be0  24 3d a4 66 69 6c 65 5f  6e 61 6d 65 0d 06 36 11  |$=.file_name..6.|
00000bf0  66 69 6c 65 3d 8e 28 66  69 6c 65 24 29 0d 06 40  |file=.(file$)..@|
00000c00  36 e7 20 66 69 6c 65 3c  3e 30 20 f1 22 46 69 6c  |6. file<>0 ."Fil|
00000c10  65 20 65 78 69 73 74 73  2e 22 3a e7 20 a4 74 65  |e exists.":. .te|
00000c20  73 74 28 22 43 6f 6e 74  69 6e 75 65 3f 22 29 3d  |st("Continue?")=|
00000c30  a3 20 e1 0d 06 4a 0a d9  23 66 69 6c 65 0d 06 54  |. ...J..#file..T|
00000c40  11 66 69 6c 65 3d ae 28  66 69 6c 65 24 29 0d 06  |.file=.(file$)..|
00000c50  5e 12 f1 23 66 69 6c 65  2c 76 6d 25 2c 68 6d 25  |^..#file,vm%,hm%|
00000c60  0d 06 68 1d f1 23 66 69  6c 65 2c 6c 65 66 74 25  |..h..#file,left%|
00000c70  2c 74 6f 70 25 2c 62 6f  74 74 6f 6d 25 0d 06 72  |,top%,bottom%..r|
00000c80  1c f1 23 66 69 6c 65 2c  73 70 61 63 65 25 2c 6f  |..#file,space%,o|
00000c90  75 74 25 2c 62 61 63 6b  25 0d 06 7c 1e f1 23 66  |ut%,back%..|..#f|
00000ca0  69 6c 65 2c 6d 65 73 73  61 67 65 24 2c 70 72 65  |ile,message$,pre|
00000cb0  24 2c 70 6f 73 74 24 0d  06 86 0a d9 23 66 69 6c  |$,post$.....#fil|
00000cc0  65 0d 06 90 05 e1 0d 06  9a 05 20 0d 06 a4 0a dd  |e......... .....|
00000cd0  f2 6c 6f 61 64 0d 06 ae  10 ea 20 66 69 6c 65 2c  |.load..... file,|
00000ce0  66 69 6c 65 24 0d 06 b8  08 f2 63 61 74 0d 06 c2  |file$.....cat...|
00000cf0  14 66 69 6c 65 24 3d a4  66 69 6c 65 5f 6e 61 6d  |.file$=.file_nam|
00000d00  65 0d 06 cc 11 66 69 6c  65 3d 8e 28 66 69 6c 65  |e....file=.(file|
00000d10  24 29 0d 06 d6 2d e7 20  66 69 6c 65 3d 30 20 f1  |$)...-. file=0 .|
00000d20  22 46 69 6c 65 20 64 6f  65 73 20 6e 6f 74 20 65  |"File does not e|
00000d30  78 69 73 74 22 3a f2 72  65 74 75 72 6e 3a e1 0d  |xist":.return:..|
00000d40  06 e0 05 20 0d 06 ea 12  e8 23 66 69 6c 65 2c 76  |... .....#file,v|
00000d50  6d 25 2c 68 6d 25 0d 06  f4 1d e8 23 66 69 6c 65  |m%,hm%.....#file|
00000d60  2c 6c 65 66 74 25 2c 74  6f 70 25 2c 62 6f 74 74  |,left%,top%,bott|
00000d70  6f 6d 25 0d 06 fe 1c e8  23 66 69 6c 65 2c 73 70  |om%.....#file,sp|
00000d80  61 63 65 25 2c 6f 75 74  25 2c 62 61 63 6b 25 0d  |ace%,out%,back%.|
00000d90  07 08 1e e8 23 66 69 6c  65 2c 6d 65 73 73 61 67  |....#file,messag|
00000da0  65 24 2c 70 72 65 24 2c  70 6f 73 74 24 0d 07 12  |e$,pre$,post$...|
00000db0  0a d9 23 66 69 6c 65 0d  07 1c 05 e1 0d 07 26 05  |..#file.......&.|
00000dc0  20 0d 07 30 09 dd f2 63  61 74 0d 07 3a 1e e7 20  | ..0...cat..:.. |
00000dd0  a4 74 65 73 74 28 22 43  61 74 61 6c 6f 67 75 65  |.test("Catalogue|
00000de0  3f 22 29 20 8c 20 2a 2e  0d 07 44 05 e1 0d 07 4e  |?") . *...D....N|
00000df0  05 20 0d 07 58 0f dd a4  66 69 6c 65 5f 6e 61 6d  |. ..X...file_nam|
00000e00  65 0d 07 62 08 ea 20 78  24 0d 07 6c 05 f5 0d 07  |e..b.. x$..l....|
00000e10  76 13 e8 27 22 46 69 6c  65 6e 61 6d 65 3a 22 78  |v..'"Filename:"x|
00000e20  24 0d 07 80 0c fd 20 78  24 3c 3e 22 22 0d 07 8a  |$..... x$<>""...|
00000e30  08 3a 3d 78 24 0d 07 94  05 20 0d 07 9e 0c dd f2  |.:=x$.... ......|
00000e40  73 65 74 5f 75 70 0d 07  a8 0c 70 72 69 6e 74 25  |set_up....print%|
00000e50  3d a3 0d 07 b2 09 76 6d  25 3d 31 0d 07 bc 09 68  |=.....vm%=1....h|
00000e60  6d 25 3d 31 0d 07 c6 0b  6c 65 66 74 25 3d 30 0d  |m%=1....left%=0.|
00000e70  07 d0 0d 6f 75 74 25 3d  97 22 58 22 0d 07 da 0e  |...out%=."X"....|
00000e80  62 61 63 6b 25 3d 97 22  20 22 0d 07 e4 0f 6d 65  |back%=." "....me|
00000e90  73 73 61 67 65 24 3d 22  22 0d 07 ee 0b 70 72 65  |ssage$=""....pre|
00000ea0  24 3d 22 22 0d 07 f8 0c  70 6f 73 74 24 3d 22 22  |$=""....post$=""|
00000eb0  0d 08 02 0a 74 6f 70 25  3d 30 0d 08 0c 0d 62 6f  |....top%=0....bo|
00000ec0  74 74 6f 6d 25 3d 30 0d  08 16 0d 73 70 61 63 65  |ttom%=0....space|
00000ed0  25 3d 33 36 0d 08 20 05  e1 0d 08 2a 05 20 0d 08  |%=36.. ....*. ..|
00000ee0  34 11 dd f2 65 70 73 6f  6e 5f 63 6f 64 65 73 0d  |4...epson_codes.|
00000ef0  08 3e 0b 65 73 63 25 3d  32 37 0d 08 48 21 f4 20  |.>.esc%=27..H!. |
00000f00  6c 69 6e 65 20 73 70 61  63 69 6e 67 20 63 6f 64  |line spacing cod|
00000f10  65 20 66 6f 72 20 6e 2f  32 31 36 0d 08 52 11 73  |e for n/216..R.s|
00000f20  70 5f 63 6f 64 65 25 3d  97 22 33 22 0d 08 5c 05  |p_code%=."3"..\.|
00000f30  e1 0d 08 66 05 20 0d 08  70 0f dd f2 67 65 74 5f  |...f. ..p...get_|
00000f40  66 6f 6e 74 73 0d 08 7a  0c ea 20 67 65 74 25 2c  |fonts..z.. get%,|
00000f50  78 0d 08 84 20 f1 27 27  22 52 65 61 64 69 6e 67  |x... .''"Reading|
00000f60  20 43 68 61 72 61 63 74  65 72 20 66 6f 6e 74 73  | Character fonts|
00000f70  22 0d 08 8e 13 e3 20 67  65 74 25 3d 33 32 20 b8  |"..... get%=32 .|
00000f80  20 31 32 36 0d 08 98 0e  3f 64 61 74 61 3d 67 65  | 126....?data=ge|
00000f90  74 25 0d 08 a2 09 41 25  3d 31 30 0d 08 ac 11 58  |t%....A%=10....X|
00000fa0  25 3d 64 61 74 61 20 83  20 32 35 36 0d 08 b6 11  |%=data . 256....|
00000fb0  59 25 3d 64 61 74 61 20  81 20 32 35 36 0d 08 c0  |Y%=data . 256...|
00000fc0  0a d6 26 46 46 46 31 0d  08 ca 0d e3 20 78 3d 30  |..&FFF1..... x=0|
00000fd0  20 b8 20 37 0d 08 d4 21  63 68 61 72 73 25 28 67  | . 7...!chars%(g|
00000fe0  65 74 25 2d 33 32 2c 78  29 3d 3f 28 64 61 74 61  |et%-32,x)=?(data|
00000ff0  2b 31 2b 78 29 0d 08 de  05 ed 0d 08 e8 05 ed 0d  |+1+x)...........|
00001000  08 f2 05 e1 0d 08 fc 05  20 0d 09 06 0e dd a4 74  |........ ......t|
00001010  65 73 74 28 78 24 29 0d  09 10 09 ea 20 6b 65 79  |est(x$)..... key|
00001020  0d 09 1a 08 f1 27 78 24  0d 09 24 0b 2a 46 58 32  |.....'x$..$.*FX2|
00001030  31 2c 30 0d 09 2e 10 f5  20 6b 65 79 3d a5 20 80  |1,0..... key=. .|
00001040  26 44 46 0d 09 38 19 fd  20 6b 65 79 3d 97 22 59  |&DF..8.. key=."Y|
00001050  22 20 84 20 6b 65 79 3d  97 22 4e 22 0d 09 42 12  |" . key=."N"..B.|
00001060  e7 20 6b 65 79 3d 97 22  59 22 20 3a 3d b9 0d 09  |. key=."Y" :=...|
00001070  4c 07 3a 3d a3 0d 09 56  05 20 0d 09 60 0c dd f2  |L.:=...V. ..`...|
00001080  72 65 74 75 72 6e 0d 09  6a 1a f1 27 89 28 31 30  |return..j..'.(10|
00001090  29 3b 22 50 72 65 73 73  20 52 45 54 55 52 4e 22  |);"Press RETURN"|
000010a0  0d 09 74 0b 2a 46 58 32  31 2c 30 0d 09 7e 0c f5  |..t.*FX21,0..~..|
000010b0  20 fd 20 a5 3d 31 33 0d  09 88 05 e1 0d 09 92 05  | . .=13.........|
000010c0  20 0d 09 9c 1e dd a4 67  65 74 5f 76 61 6c 75 65  | ......get_value|
000010d0  28 78 2c 79 2c 6d 61 78  2c 6d 69 6e 2c 76 29 0d  |(x,y,max,min,v).|
000010e0  09 a6 0a ea 20 7a 24 2c  7a 0d 09 b0 0b f1 8a 78  |.... z$,z......x|
000010f0  2c 79 29 3b 0d 09 ba 08  e8 20 7a 24 0d 09 c4 19  |,y);..... z$....|
00001100  e7 20 7a 24 3d 22 22 20  7a 3d 76 20 8b 20 7a 3d  |. z$="" z=v . z=|
00001110  a0 28 7a 24 29 0d 09 ce  26 e7 20 7a 3e 3d 6d 69  |.(z$)...&. z>=mi|
00001120  6e 20 84 20 7a 3c 3d 6d  61 78 20 f1 8a 78 2c 79  |n . z<=max ..x,y|
00001130  29 3b 7a 3b 22 20 20 20  20 20 22 0d 09 d8 23 e7  |);z;"     "...#.|
00001140  20 7a 3e 6d 61 78 20 f1  8a 78 2c 79 29 3b 6d 61  | z>max ..x,y);ma|
00001150  78 3b 22 20 4d 41 58 22  3a 7a 3d 6d 61 78 0d 09  |x;" MAX":z=max..|
00001160  e2 23 e7 20 7a 3c 6d 69  6e 20 f1 8a 78 2c 79 29  |.#. z<min ..x,y)|
00001170  3b 6d 69 6e 3b 22 20 4d  49 4e 22 3a 7a 3d 6d 69  |;min;" MIN":z=mi|
00001180  6e 0d 09 ec 07 3a 3d 7a  0d 09 f6 05 20 0d 0a 00  |n....:=z.... ...|
00001190  0e dd f2 6c 69 6e 65 73  28 78 29 0d 0a 0a 07 ea  |...lines(x).....|
000011a0  20 79 0d 0a 14 0d e3 20  79 3d 31 20 b8 20 58 0d  | y..... y=1 . X.|
000011b0  0a 1e 06 f1 27 0d 0a 28  05 ed 0d 0a 32 05 e1 0d  |....'..(....2...|
000011c0  0a 3c 05 20 0d 0a 46 1e  dd a4 67 65 74 5f 61 73  |.<. ..F...get_as|
000011d0  63 69 69 28 78 2c 79 2c  6d 61 78 2c 6d 69 6e 2c  |cii(x,y,max,min,|
000011e0  76 29 0d 0a 50 0a ea 20  7a 24 2c 7a 0d 0a 5a 0b  |v)..P.. z$,z..Z.|
000011f0  f1 8a 78 2c 79 29 3b 0d  0a 64 08 7a 24 3d be 0d  |..x,y);..d.z$=..|
00001200  0a 6e 1c e7 20 7a 24 3d  bd 28 31 33 29 20 7a 3d  |.n.. z$=.(13) z=|
00001210  76 20 8b 20 7a 3d 97 28  7a 24 29 0d 0a 78 29 e7  |v . z=.(z$)..x).|
00001220  20 7a 3e 3d 6d 69 6e 20  84 20 7a 3c 3d 6d 61 78  | z>=min . z<=max|
00001230  20 f1 8a 78 2c 79 29 3b  bd 28 7a 29 3b 22 20 20  | ..x,y);.(z);"  |
00001240  20 20 20 22 0d 0a 82 26  e7 20 7a 3e 6d 61 78 20  |   "...&. z>max |
00001250  f1 8a 78 2c 79 29 3b bd  28 6d 61 78 29 3b 22 20  |..x,y);.(max);" |
00001260  4d 41 58 22 3a 7a 3d 6d  61 78 0d 0a 8c 26 e7 20  |MAX":z=max...&. |
00001270  7a 3c 6d 69 6e 20 f1 8a  78 2c 79 29 3b bd 28 6d  |z<min ..x,y);.(m|
00001280  69 6e 29 3b 22 20 4d 49  4e 22 3a 7a 3d 6d 69 6e  |in);" MIN":z=min|
00001290  0d 0a 96 07 3a 3d 7a 0d  ff                       |....:=z..|
00001299