� COVERS
� by R.S.J.Conroy
� (c) The Micro User
(*FX200,1
2:
<�4:�23;8202;0;0;0;
F6�edge$(1),front$(30),back$(6),altfr$(30),alted$(6)
Pfr=0:ed=0:ba=0
Z
�chars
d	�menu
n�7:�
x:
���edit(x,y)
�=�0,0);�241;�x,�242);�243:�I=1�y:�0,I)�244;�(x+1),I)�245
�%�:�0,y+1);�246;�x,�247);�248;�11
�
*FX4,1
�X=1:Y=1:�place:�:K=�
��K=139 �wipe:Y=Y-1:�Y=0�Y=y
�#�K=138 �wipe:Y=Y+1:�Y=(y+1)�Y=1
��K=136 �wipe:X=X-1:�X=0�X=x
�#�K=137 �wipe:X=X+1:�X=(x+1)�X=1
��K>31 �K<127 ��change
�&�K=13 �wipe:X=1:Y=Y+1:�Y=(y+1)�Y=1
��K=127 �wipe:�delete
��place:�K=9:�wipe:�("FX4")

�

:

��place

" S$=�R(X,Y):�129:�0:�X,Y);S$

,�

6:

@
��wipe

J S$=�R(X,Y):�128:�1:�X,Y);S$

T�

^:

h��change

r�128:�1

|�X,Y);�(K):X=X+1

��X=(x+1)�X=1:Y=Y+1

��Y=(y+1)�X=1:Y=1

��

�:

���delete

��128:�1:X=X-1

��X=0�X=x:Y=Y-1

��Y=0�Y=y

��X,Y);" "

��

�:

�ݤR(A,B)

��31,A,B

A%=135
C=�(&FFF4)
C=C � &FFFF
&C=C � &100
0	=�(C)
::
D��R(A,B,M$)
N�129:�0:�A,B);M$
X�128:�1
b�
l:
v��N(A,B,M$)
�
�A,B);M$
��
�:
�	��ent
�$�ed=1 �H=1�2:�1,H);edge$(H-1):�
�3�N(7,4,"PRESS 'TAB' WHEN COMPLETE"):�edit(36,2)
��H=1�2:edge$(H-1)=""
�4�G=1�36:N$=�R(G,H):edge$(H-1)=edge$(H-1)+N$:�129
��0:�G,H);N$:�128:�1:�,
�0�N(7,4,�26," ")):�H=1�2:�N(1,H,edge$(H-1)):�
�O�N(3,5,"This will appear on the edge and"):�N(8,6,"top front of the cover")
�,�R(7,27,"PRESS SPACE TO CONTINUE"):�wait
��
:
	��ind
+� ed=1 �H=1�2:�1,H);�alted$(H-1),17):�
 /�N(22,1,"PRESS 'TAB'"):�N(23,2,"TO FINISH")
*'�N(2,4,"SIDE A (Left)"):�edit(17,2)
4�H=1�2:edge$(H-1)=""
>4�G=1�17:N$=�R(G,H):edge$(H-1)=edge$(H-1)+N$:�129
H�0:�G,H);N$:�128:�1:�,
R'�H=1�2:edge$(H-1)=edge$(H-1)+"  ":�
\�H=0�3:�N(0,H,�19," ")):�
f*�ed=1 �H=1�2:�1,H);�alted$(H-1),17):�
p(�N(2,4,"SIDE B (Right)"):�edit(17,2)
z<�H=1�2::�G=1�17:N$=�R(G,H):edge$(H-1)=edge$(H-1)+N$:�129
��0:�G,H);N$:�128:�1:�,
��H=0�4:�N(0,H,�38," ")):�
��0,0);�241;�36,�242);�243
� �I=1�2:�0,I)�244;�37,I)�245
�$�:�0,3);�246;�36,�247);�248;�11
�E�H=1�2:�N(1,H,edge$(H-1)):�:�608,1019:�608,900:�604,1019:�604,900
��H=0�1:alted$(H)=edge$(H):�
�,�R(7,27,"PRESS SPACE TO CONTINUE"):�wait
��
�:
�
��back
��tcg(17,"COVER BACK")
�$�ba=1 �H=1�7:�1,H);back$(H-1):�
3�N(7,9,"PRESS 'TAB' WHEN COMPLETE"):�edit(36,7)
�H=1�7:back$(H-1)=""
4�G=1�36:N$=�R(G,H):back$(H-1)=back$(H-1)+N$:�129
$�0:�G,H);N$:�128:�1:�,
.0�N(7,9,�26," ")):�H=1�7:�N(1,H,back$(H-1)):�
8D�N(5,10,"This will appear on the back"):�N(13,11,"of the cover")
B1�R(7,27,"PRESS SPACE TO CONTINUE"):�wait:ba=1
L�
V:
`
��line
j'�2:�(8);"|";�13," -   ");"-  |":�3
t�
~:
���chars
�E�23,241,0,63,127,127,120,112,112,112,23,242,0,255,255,255,0,0,0,0
�L�23,243,0,252,254,254,30,14,14,14,23,244,112,112,112,112,112,112,112,112
�G�23,245,14,14,14,14,14,14,14,14,23,246,112,112,112,120,127,127,63,0
�B�23,247,0,0,0,0,255,255,255,0,23,248,14,14,14,30,254,254,252,0
��
�:
���tcg(pos,t$)
�&�:�R(9,pos,"TAPE COVER GENERATOR")
��N(14,pos+3,t$)
��
�:
��setsmall

$�2,1,27,1,120,1,0,1,27,1,70,1,15
"�1,27,1,83,1,0,1,27,1,65,1,5,3
�
(:
2��setbig
<)�2,1,13,1,18,1,27,1,84,1,27,1,65,1,12
F)�1,27,1,80,1,27,1,120,1,1,1,27,1,69,3
P�
Z:
d��front
n4�tcg(11,"COVER FRONT"):�N(13,17,"SIDE A (Left)")
x+�R(5,28,"PRESS SPACE TO ENTER DETAILS")
�	�wait
�<�:�N(34,9,"PRESS"):�N(34,10,"'TAB'"):�N(33,11,"IF DONE")
�/�fr=0 �N(13,2,"SIDE A"):�N(12,3,"________")
�+�fr=1 �H=1�30:�1,H);�altfr$(H-1),30):�
�6�N(33,24,"SIDE A"):�N(33,25,"(Left)"):�edit(30,30)
��H=1�30:front$(H-1)=""
�4�G=1�30:N$=�R(G,H):front$(H-1)=front$(H-1)+N$:�0
��129:�G,H);N$:�128:�1:�,
�*�H=1�30:front$(H-1)=front$(H-1)+"  ":�
�6�tcg(11,"COVER FRONT"):�N(12,17,"SIDE B  (Right)")
�+�R(5,28,"PRESS SPACE TO ENTER DETAILS")
�	�wait
�<�:�N(34,9,"PRESS"):�N(34,10,"'TAB'"):�N(33,11,"IF DONE")
/�fr=0 �N(13,2,"SIDE B"):�N(12,3,"________")
+�fr=1 �H=1�30:�1,H);�altfr$(H-1),30):�
7�N(33,24,"SIDE B"):�N(32,25,"(Right)"):�edit(30,30)
"<�H=1�30:�G=1�30:N$=�R(G,H):front$(H-1)=front$(H-1)+N$:�0
,�129:�G,H);N$:�128:�1:�,
6*�H=1�30:altfr$(H-1)=front$(H-1):�:fr=1
@�
J:
T
��wait
^�:G$=�:�G$=" "
h�
r:
|��print
�G�tcg(11,"COVER PRINT"):�N(3,17,"Please ensure that the printer is")
�)�N(6,18,"ON-LINE and fed with paper")
�/�R(4,28,"PRESS SPACE TO BEGIN COVER PRINT")
��wait:�:�0
�&�2,1,27,1,64,1,27,1,56,1,27,1,79,3
��setsmall:�line:�setbig
�!�H=0�1:�2:�(7);edge$(H):�3:�
��setsmall:�2,1,13,3:�H=0�29
�K�(H � 6)=0 ��2:�(8);"|   ";front$(H);"   |":�3 ��2:�(12);front$(H):�3
��:�2,1,27,1,74,1,2,3
��line:�setbig
�!�H=0�1:�2:�(7);edge$(H):�3:�
��setsmall:�line
.�2,1,18,1,27,1,120,1,0,1,27,1,70,1,27,1,80
:�1,27,1,83,1,0,1,27,1,65,1,5,1,27,1,74,1,2,1,27,1,69,3
!�H=0�6:�2:�(7);back$(H):�3:�
&�setsmall:�line:�1
0�
::
D
��edge
N�ed=1 �done:�tJG
XK�tcg(11,"COVER EDGE"):�R(0,17,"Entire tape or Individual side format?")
b:�N(12,19,"(PRESS   OR  )"):�R(19,19,"E"):�R(24,19,"I")
l�:G$=�:�G$="E" �G$="I"
v'�N(0,17,�38," ")):�N(0,19,�38," "))
�Z�G$="E" ��R(10,17,"Entire tape Format"):cen=1 ��R(8,17,"Individual Side Format"):cen=0
��cen=1 �ent ��ind
�ed=1
��
�:
�
��menu
�1�tcg(3,"   MENU"):�:�H=1�16:�L:�31,H+10,4,L:�
�0�R(9,12,"F"):�N(12,12,�p(fr)+" COVER FRONT")
�/�R(9,10,"E"):�N(12,10,�p(ed)+" COVER EDGE")
�/�R(9,14,"B"):�N(12,14,�p(ba)+" COVER BACK")
�,�R(9,17,"S"):�N(12,17,"START NEW COVER")
�+�R(9,19,"Q"):�N(12,19,"QUIT PROGRAMME")
�8� (fr=1 � ed=1) �R(9,22,"P"):�N(12,22,"PRINT COVER")
�R(12,28,"PRESS A LETTER")

�:G$=�
�G$="F" �front:�t|G
 �G$="E" �edge:�t|G
*�G$="B" �back:�t|G
4(�G$="P" � (fr=1 � ed=1) �print:�t|G
>)�G$="S" �sure(1,"re-start?"):�yes=1 �
H�G$="Q"
R!�sure(3,"quit?"):�yes=0 �TLH
\�
f:
p��sure(pos,t$)
z-�R(pos,28,"Are you sure you want to "+t$)
�&G$=�:� G$="Y" �G$="y" yes=1 �yes=0
�0�N(1,28,�34," ")):�R(12,28,"PRESS A LETTER")
��
�:
�
��done
��tcg(11,"COVER EDGE")
�J�cen �R(10,17,"Entire tape Format") ��R(8,17,"Individual Side Format")
��
�
ݤp(p)
��p=0 t$="START" �t$="EDIT"
�=t$
�:
�:�98,121,58,32,82,46,83,46,74,46,67,111,110,114,111,121
�

00000000  0d 00 0a 0c f4 20 43 4f  56 45 52 53 0d 00 14 15  |..... COVERS....|
00000010  f4 20 62 79 20 52 2e 53  2e 4a 2e 43 6f 6e 72 6f  |. by R.S.J.Conro|
00000020  79 0d 00 1e 18 f4 20 28  63 29 20 54 68 65 20 4d  |y..... (c) The M|
00000030  69 63 72 6f 20 55 73 65  72 0d 00 28 0c 2a 46 58  |icro User..(.*FX|
00000040  32 30 30 2c 31 0d 00 32  05 3a 0d 00 3c 16 eb 34  |200,1..2.:..<..4|
00000050  3a ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |:.23;8202;0;0;0;|
00000060  0d 00 46 36 de 65 64 67  65 24 28 31 29 2c 66 72  |..F6.edge$(1),fr|
00000070  6f 6e 74 24 28 33 30 29  2c 62 61 63 6b 24 28 36  |ont$(30),back$(6|
00000080  29 2c 61 6c 74 66 72 24  28 33 30 29 2c 61 6c 74  |),altfr$(30),alt|
00000090  65 64 24 28 36 29 0d 00  50 12 66 72 3d 30 3a 65  |ed$(6)..P.fr=0:e|
000000a0  64 3d 30 3a 62 61 3d 30  0d 00 5a 0a f2 63 68 61  |d=0:ba=0..Z..cha|
000000b0  72 73 0d 00 64 09 f2 6d  65 6e 75 0d 00 6e 08 eb  |rs..d..menu..n..|
000000c0  37 3a e0 0d 00 78 05 3a  0d 00 82 0f dd f2 65 64  |7:...x.:......ed|
000000d0  69 74 28 78 2c 79 29 0d  00 8c 3d f1 8a 30 2c 30  |it(x,y)...=..0,0|
000000e0  29 3b bd 32 34 31 3b c4  78 2c bd 32 34 32 29 3b  |);.241;.x,.242);|
000000f0  bd 32 34 33 3a e3 49 3d  31 b8 79 3a f1 8a 30 2c  |.243:.I=1.y:..0,|
00000100  49 29 bd 32 34 34 3b 8a  28 78 2b 31 29 2c 49 29  |I).244;.(x+1),I)|
00000110  bd 32 34 35 0d 00 96 25  ed 3a f1 8a 30 2c 79 2b  |.245...%.:..0,y+|
00000120  31 29 3b bd 32 34 36 3b  c4 78 2c bd 32 34 37 29  |1);.246;.x,.247)|
00000130  3b bd 32 34 38 3b bd 31  31 0d 00 a0 0a 2a 46 58  |;.248;.11....*FX|
00000140  34 2c 31 0d 00 aa 18 58  3d 31 3a 59 3d 31 3a f2  |4,1....X=1:Y=1:.|
00000150  70 6c 61 63 65 3a f5 3a  4b 3d a5 0d 00 b4 1f e7  |place:.:K=......|
00000160  4b 3d 31 33 39 20 f2 77  69 70 65 3a 59 3d 59 2d  |K=139 .wipe:Y=Y-|
00000170  31 3a e7 59 3d 30 8c 59  3d 79 0d 00 be 23 e7 4b  |1:.Y=0.Y=y...#.K|
00000180  3d 31 33 38 20 f2 77 69  70 65 3a 59 3d 59 2b 31  |=138 .wipe:Y=Y+1|
00000190  3a e7 59 3d 28 79 2b 31  29 8c 59 3d 31 0d 00 c8  |:.Y=(y+1).Y=1...|
000001a0  1f e7 4b 3d 31 33 36 20  f2 77 69 70 65 3a 58 3d  |..K=136 .wipe:X=|
000001b0  58 2d 31 3a e7 58 3d 30  8c 58 3d 78 0d 00 d2 23  |X-1:.X=0.X=x...#|
000001c0  e7 4b 3d 31 33 37 20 f2  77 69 70 65 3a 58 3d 58  |.K=137 .wipe:X=X|
000001d0  2b 31 3a e7 58 3d 28 78  2b 31 29 8c 58 3d 31 0d  |+1:.X=(x+1).X=1.|
000001e0  00 dc 19 e7 4b 3e 33 31  20 80 4b 3c 31 32 37 20  |....K>31 .K<127 |
000001f0  8c f2 63 68 61 6e 67 65  0d 00 e6 26 e7 4b 3d 31  |..change...&.K=1|
00000200  33 20 f2 77 69 70 65 3a  58 3d 31 3a 59 3d 59 2b  |3 .wipe:X=1:Y=Y+|
00000210  31 3a e7 59 3d 28 79 2b  31 29 8c 59 3d 31 0d 00  |1:.Y=(y+1).Y=1..|
00000220  f0 18 e7 4b 3d 31 32 37  20 f2 77 69 70 65 3a f2  |...K=127 .wipe:.|
00000230  64 65 6c 65 74 65 0d 00  fa 1e f2 70 6c 61 63 65  |delete.....place|
00000240  3a fd 4b 3d 39 3a f2 77  69 70 65 3a ff 28 22 46  |:.K=9:.wipe:.("F|
00000250  58 34 22 29 0d 01 04 05  e1 0d 01 0e 05 3a 0d 01  |X4").........:..|
00000260  18 0b dd f2 70 6c 61 63  65 0d 01 22 20 53 24 3d  |....place.." S$=|
00000270  a4 52 28 58 2c 59 29 3a  fb 31 32 39 3a fb 30 3a  |.R(X,Y):.129:.0:|
00000280  f1 8a 58 2c 59 29 3b 53  24 0d 01 2c 05 e1 0d 01  |..X,Y);S$..,....|
00000290  36 05 3a 0d 01 40 0a dd  f2 77 69 70 65 0d 01 4a  |6.:..@...wipe..J|
000002a0  20 53 24 3d a4 52 28 58  2c 59 29 3a fb 31 32 38  | S$=.R(X,Y):.128|
000002b0  3a fb 31 3a f1 8a 58 2c  59 29 3b 53 24 0d 01 54  |:.1:..X,Y);S$..T|
000002c0  05 e1 0d 01 5e 05 3a 0d  01 68 0c dd f2 63 68 61  |....^.:..h...cha|
000002d0  6e 67 65 0d 01 72 0b fb  31 32 38 3a fb 31 0d 01  |nge..r..128:.1..|
000002e0  7c 15 f1 8a 58 2c 59 29  3b bd 28 4b 29 3a 58 3d  ||...X,Y);.(K):X=|
000002f0  58 2b 31 0d 01 86 16 e7  58 3d 28 78 2b 31 29 8c  |X+1.....X=(x+1).|
00000300  58 3d 31 3a 59 3d 59 2b  31 0d 01 90 14 e7 59 3d  |X=1:Y=Y+1.....Y=|
00000310  28 79 2b 31 29 8c 58 3d  31 3a 59 3d 31 0d 01 9a  |(y+1).X=1:Y=1...|
00000320  05 e1 0d 01 a4 05 3a 0d  01 ae 0c dd f2 64 65 6c  |......:......del|
00000330  65 74 65 0d 01 b8 11 fb  31 32 38 3a fb 31 3a 58  |ete.....128:.1:X|
00000340  3d 58 2d 31 0d 01 c2 12  e7 58 3d 30 8c 58 3d 78  |=X-1.....X=0.X=x|
00000350  3a 59 3d 59 2d 31 0d 01  cc 0c e7 59 3d 30 8c 59  |:Y=Y-1.....Y=0.Y|
00000360  3d 79 0d 01 d6 0e f1 8a  58 2c 59 29 3b 22 20 22  |=y......X,Y);" "|
00000370  0d 01 e0 05 e1 0d 01 ea  05 3a 0d 01 f4 0c dd a4  |.........:......|
00000380  52 28 41 2c 42 29 0d 01  fe 0b ef 33 31 2c 41 2c  |R(A,B).....31,A,|
00000390  42 0d 02 08 0a 41 25 3d  31 33 35 0d 02 12 0e 43  |B....A%=135....C|
000003a0  3d ba 28 26 46 46 46 34  29 0d 02 1c 0f 43 3d 43  |=.(&FFF4)....C=C|
000003b0  20 80 20 26 46 46 46 46  0d 02 26 0e 43 3d 43 20  | . &FFFF..&.C=C |
000003c0  81 20 26 31 30 30 0d 02  30 09 3d bd 28 43 29 0d  |. &100..0.=.(C).|
000003d0  02 3a 05 3a 0d 02 44 0f  dd f2 52 28 41 2c 42 2c  |.:.:..D...R(A,B,|
000003e0  4d 24 29 0d 02 4e 15 fb  31 32 39 3a fb 30 3a f1  |M$)..N..129:.0:.|
000003f0  8a 41 2c 42 29 3b 4d 24  0d 02 58 0b fb 31 32 38  |.A,B);M$..X..128|
00000400  3a fb 31 0d 02 62 05 e1  0d 02 6c 05 3a 0d 02 76  |:.1..b....l.:..v|
00000410  0f dd f2 4e 28 41 2c 42  2c 4d 24 29 0d 02 80 0d  |...N(A,B,M$)....|
00000420  f1 8a 41 2c 42 29 3b 4d  24 0d 02 8a 05 e1 0d 02  |..A,B);M$.......|
00000430  94 05 3a 0d 02 9e 09 dd  f2 65 6e 74 0d 02 a8 24  |..:......ent...$|
00000440  e7 65 64 3d 31 20 e3 48  3d 31 b8 32 3a f1 8a 31  |.ed=1 .H=1.2:..1|
00000450  2c 48 29 3b 65 64 67 65  24 28 48 2d 31 29 3a ed  |,H);edge$(H-1):.|
00000460  0d 02 b2 33 f2 4e 28 37  2c 34 2c 22 50 52 45 53  |...3.N(7,4,"PRES|
00000470  53 20 27 54 41 42 27 20  57 48 45 4e 20 43 4f 4d  |S 'TAB' WHEN COM|
00000480  50 4c 45 54 45 22 29 3a  f2 65 64 69 74 28 33 36  |PLETE"):.edit(36|
00000490  2c 32 29 0d 02 bc 18 e3  48 3d 31 b8 32 3a 65 64  |,2).....H=1.2:ed|
000004a0  67 65 24 28 48 2d 31 29  3d 22 22 0d 02 c6 34 e3  |ge$(H-1)=""...4.|
000004b0  47 3d 31 b8 33 36 3a 4e  24 3d a4 52 28 47 2c 48  |G=1.36:N$=.R(G,H|
000004c0  29 3a 65 64 67 65 24 28  48 2d 31 29 3d 65 64 67  |):edge$(H-1)=edg|
000004d0  65 24 28 48 2d 31 29 2b  4e 24 3a fb 31 32 39 0d  |e$(H-1)+N$:.129.|
000004e0  02 d0 1b fb 30 3a f1 8a  47 2c 48 29 3b 4e 24 3a  |....0:..G,H);N$:|
000004f0  fb 31 32 38 3a fb 31 3a  ed 2c 0d 02 da 30 f2 4e  |.128:.1:.,...0.N|
00000500  28 37 2c 34 2c c4 32 36  2c 22 20 22 29 29 3a e3  |(7,4,.26," ")):.|
00000510  48 3d 31 b8 32 3a f2 4e  28 31 2c 48 2c 65 64 67  |H=1.2:.N(1,H,edg|
00000520  65 24 28 48 2d 31 29 29  3a ed 0d 02 e4 4f f2 4e  |e$(H-1)):....O.N|
00000530  28 33 2c 35 2c 22 54 68  69 73 20 77 69 6c 6c 20  |(3,5,"This will |
00000540  61 70 70 65 61 72 20 6f  6e 20 74 68 65 20 65 64  |appear on the ed|
00000550  67 65 20 61 6e 64 22 29  3a f2 4e 28 38 2c 36 2c  |ge and"):.N(8,6,|
00000560  22 74 6f 70 20 66 72 6f  6e 74 20 6f 66 20 74 68  |"top front of th|
00000570  65 20 63 6f 76 65 72 22  29 0d 02 ee 2c f2 52 28  |e cover")...,.R(|
00000580  37 2c 32 37 2c 22 50 52  45 53 53 20 53 50 41 43  |7,27,"PRESS SPAC|
00000590  45 20 54 4f 20 43 4f 4e  54 49 4e 55 45 22 29 3a  |E TO CONTINUE"):|
000005a0  f2 77 61 69 74 0d 02 f8  05 e1 0d 03 02 05 3a 0d  |.wait.........:.|
000005b0  03 0c 09 dd f2 69 6e 64  0d 03 16 2b e7 20 65 64  |.....ind...+. ed|
000005c0  3d 31 20 e3 48 3d 31 b8  32 3a f1 8a 31 2c 48 29  |=1 .H=1.2:..1,H)|
000005d0  3b c0 61 6c 74 65 64 24  28 48 2d 31 29 2c 31 37  |;.alted$(H-1),17|
000005e0  29 3a ed 0d 03 20 2f f2  4e 28 32 32 2c 31 2c 22  |):... /.N(22,1,"|
000005f0  50 52 45 53 53 20 27 54  41 42 27 22 29 3a f2 4e  |PRESS 'TAB'"):.N|
00000600  28 32 33 2c 32 2c 22 54  4f 20 46 49 4e 49 53 48  |(23,2,"TO FINISH|
00000610  22 29 0d 03 2a 27 f2 4e  28 32 2c 34 2c 22 53 49  |")..*'.N(2,4,"SI|
00000620  44 45 20 41 20 28 4c 65  66 74 29 22 29 3a f2 65  |DE A (Left)"):.e|
00000630  64 69 74 28 31 37 2c 32  29 0d 03 34 18 e3 48 3d  |dit(17,2)..4..H=|
00000640  31 b8 32 3a 65 64 67 65  24 28 48 2d 31 29 3d 22  |1.2:edge$(H-1)="|
00000650  22 0d 03 3e 34 e3 47 3d  31 b8 31 37 3a 4e 24 3d  |"..>4.G=1.17:N$=|
00000660  a4 52 28 47 2c 48 29 3a  65 64 67 65 24 28 48 2d  |.R(G,H):edge$(H-|
00000670  31 29 3d 65 64 67 65 24  28 48 2d 31 29 2b 4e 24  |1)=edge$(H-1)+N$|
00000680  3a fb 31 32 39 0d 03 48  1b fb 30 3a f1 8a 47 2c  |:.129..H..0:..G,|
00000690  48 29 3b 4e 24 3a fb 31  32 38 3a fb 31 3a ed 2c  |H);N$:.128:.1:.,|
000006a0  0d 03 52 27 e3 48 3d 31  b8 32 3a 65 64 67 65 24  |..R'.H=1.2:edge$|
000006b0  28 48 2d 31 29 3d 65 64  67 65 24 28 48 2d 31 29  |(H-1)=edge$(H-1)|
000006c0  2b 22 20 20 22 3a ed 0d  03 5c 1d e3 48 3d 30 b8  |+"  ":...\..H=0.|
000006d0  33 3a f2 4e 28 30 2c 48  2c c4 31 39 2c 22 20 22  |3:.N(0,H,.19," "|
000006e0  29 29 3a ed 0d 03 66 2a  e7 65 64 3d 31 20 e3 48  |)):...f*.ed=1 .H|
000006f0  3d 31 b8 32 3a f1 8a 31  2c 48 29 3b c2 61 6c 74  |=1.2:..1,H);.alt|
00000700  65 64 24 28 48 2d 31 29  2c 31 37 29 3a ed 0d 03  |ed$(H-1),17):...|
00000710  70 28 f2 4e 28 32 2c 34  2c 22 53 49 44 45 20 42  |p(.N(2,4,"SIDE B|
00000720  20 28 52 69 67 68 74 29  22 29 3a f2 65 64 69 74  | (Right)"):.edit|
00000730  28 31 37 2c 32 29 0d 03  7a 3c e3 48 3d 31 b8 32  |(17,2)..z<.H=1.2|
00000740  3a 3a e3 47 3d 31 b8 31  37 3a 4e 24 3d a4 52 28  |::.G=1.17:N$=.R(|
00000750  47 2c 48 29 3a 65 64 67  65 24 28 48 2d 31 29 3d  |G,H):edge$(H-1)=|
00000760  65 64 67 65 24 28 48 2d  31 29 2b 4e 24 3a fb 31  |edge$(H-1)+N$:.1|
00000770  32 39 0d 03 84 1b fb 30  3a f1 8a 47 2c 48 29 3b  |29.....0:..G,H);|
00000780  4e 24 3a fb 31 32 38 3a  fb 31 3a ed 2c 0d 03 8e  |N$:.128:.1:.,...|
00000790  1d e3 48 3d 30 b8 34 3a  f2 4e 28 30 2c 48 2c c4  |..H=0.4:.N(0,H,.|
000007a0  33 38 2c 22 20 22 29 29  3a ed 0d 03 98 1e f1 8a  |38," ")):.......|
000007b0  30 2c 30 29 3b bd 32 34  31 3b c4 33 36 2c bd 32  |0,0);.241;.36,.2|
000007c0  34 32 29 3b bd 32 34 33  0d 03 a2 20 e3 49 3d 31  |42);.243... .I=1|
000007d0  b8 32 3a f1 8a 30 2c 49  29 bd 32 34 34 3b 8a 33  |.2:..0,I).244;.3|
000007e0  37 2c 49 29 bd 32 34 35  0d 03 ac 24 ed 3a f1 8a  |7,I).245...$.:..|
000007f0  30 2c 33 29 3b bd 32 34  36 3b c4 33 36 2c bd 32  |0,3);.246;.36,.2|
00000800  34 37 29 3b bd 32 34 38  3b bd 31 31 0d 03 b6 45  |47);.248;.11...E|
00000810  e3 48 3d 31 b8 32 3a f2  4e 28 31 2c 48 2c 65 64  |.H=1.2:.N(1,H,ed|
00000820  67 65 24 28 48 2d 31 29  29 3a ed 3a ec 36 30 38  |ge$(H-1)):.:.608|
00000830  2c 31 30 31 39 3a df 36  30 38 2c 39 30 30 3a ec  |,1019:.608,900:.|
00000840  36 30 34 2c 31 30 31 39  3a df 36 30 34 2c 39 30  |604,1019:.604,90|
00000850  30 0d 03 c0 1f e3 48 3d  30 b8 31 3a 61 6c 74 65  |0.....H=0.1:alte|
00000860  64 24 28 48 29 3d 65 64  67 65 24 28 48 29 3a ed  |d$(H)=edge$(H):.|
00000870  0d 03 ca 2c f2 52 28 37  2c 32 37 2c 22 50 52 45  |...,.R(7,27,"PRE|
00000880  53 53 20 53 50 41 43 45  20 54 4f 20 43 4f 4e 54  |SS SPACE TO CONT|
00000890  49 4e 55 45 22 29 3a f2  77 61 69 74 0d 03 d4 05  |INUE"):.wait....|
000008a0  e1 0d 03 de 05 3a 0d 03  e8 0a dd f2 62 61 63 6b  |.....:......back|
000008b0  0d 03 f2 19 f2 74 63 67  28 31 37 2c 22 43 4f 56  |.....tcg(17,"COV|
000008c0  45 52 20 42 41 43 4b 22  29 0d 03 fc 24 e7 62 61  |ER BACK")...$.ba|
000008d0  3d 31 20 e3 48 3d 31 b8  37 3a f1 8a 31 2c 48 29  |=1 .H=1.7:..1,H)|
000008e0  3b 62 61 63 6b 24 28 48  2d 31 29 3a ed 0d 04 06  |;back$(H-1):....|
000008f0  33 f2 4e 28 37 2c 39 2c  22 50 52 45 53 53 20 27  |3.N(7,9,"PRESS '|
00000900  54 41 42 27 20 57 48 45  4e 20 43 4f 4d 50 4c 45  |TAB' WHEN COMPLE|
00000910  54 45 22 29 3a f2 65 64  69 74 28 33 36 2c 37 29  |TE"):.edit(36,7)|
00000920  0d 04 10 18 e3 48 3d 31  b8 37 3a 62 61 63 6b 24  |.....H=1.7:back$|
00000930  28 48 2d 31 29 3d 22 22  0d 04 1a 34 e3 47 3d 31  |(H-1)=""...4.G=1|
00000940  b8 33 36 3a 4e 24 3d a4  52 28 47 2c 48 29 3a 62  |.36:N$=.R(G,H):b|
00000950  61 63 6b 24 28 48 2d 31  29 3d 62 61 63 6b 24 28  |ack$(H-1)=back$(|
00000960  48 2d 31 29 2b 4e 24 3a  fb 31 32 39 0d 04 24 1b  |H-1)+N$:.129..$.|
00000970  fb 30 3a f1 8a 47 2c 48  29 3b 4e 24 3a fb 31 32  |.0:..G,H);N$:.12|
00000980  38 3a fb 31 3a ed 2c 0d  04 2e 30 f2 4e 28 37 2c  |8:.1:.,...0.N(7,|
00000990  39 2c c4 32 36 2c 22 20  22 29 29 3a e3 48 3d 31  |9,.26," ")):.H=1|
000009a0  b8 37 3a f2 4e 28 31 2c  48 2c 62 61 63 6b 24 28  |.7:.N(1,H,back$(|
000009b0  48 2d 31 29 29 3a ed 0d  04 38 44 f2 4e 28 35 2c  |H-1)):...8D.N(5,|
000009c0  31 30 2c 22 54 68 69 73  20 77 69 6c 6c 20 61 70  |10,"This will ap|
000009d0  70 65 61 72 20 6f 6e 20  74 68 65 20 62 61 63 6b  |pear on the back|
000009e0  22 29 3a f2 4e 28 31 33  2c 31 31 2c 22 6f 66 20  |"):.N(13,11,"of |
000009f0  74 68 65 20 63 6f 76 65  72 22 29 0d 04 42 31 f2  |the cover")..B1.|
00000a00  52 28 37 2c 32 37 2c 22  50 52 45 53 53 20 53 50  |R(7,27,"PRESS SP|
00000a10  41 43 45 20 54 4f 20 43  4f 4e 54 49 4e 55 45 22  |ACE TO CONTINUE"|
00000a20  29 3a f2 77 61 69 74 3a  62 61 3d 31 0d 04 4c 05  |):.wait:ba=1..L.|
00000a30  e1 0d 04 56 05 3a 0d 04  60 0a dd f2 6c 69 6e 65  |...V.:..`...line|
00000a40  0d 04 6a 27 ef 32 3a f1  89 28 38 29 3b 22 7c 22  |..j'.2:..(8);"|"|
00000a50  3b c4 31 33 2c 22 20 2d  20 20 20 22 29 3b 22 2d  |;.13," -   ");"-|
00000a60  20 20 7c 22 3a ef 33 0d  04 74 05 e1 0d 04 7e 05  |  |":.3..t....~.|
00000a70  3a 0d 04 88 0b dd f2 63  68 61 72 73 0d 04 92 45  |:......chars...E|
00000a80  ef 32 33 2c 32 34 31 2c  30 2c 36 33 2c 31 32 37  |.23,241,0,63,127|
00000a90  2c 31 32 37 2c 31 32 30  2c 31 31 32 2c 31 31 32  |,127,120,112,112|
00000aa0  2c 31 31 32 2c 32 33 2c  32 34 32 2c 30 2c 32 35  |,112,23,242,0,25|
00000ab0  35 2c 32 35 35 2c 32 35  35 2c 30 2c 30 2c 30 2c  |5,255,255,0,0,0,|
00000ac0  30 0d 04 9c 4c ef 32 33  2c 32 34 33 2c 30 2c 32  |0...L.23,243,0,2|
00000ad0  35 32 2c 32 35 34 2c 32  35 34 2c 33 30 2c 31 34  |52,254,254,30,14|
00000ae0  2c 31 34 2c 31 34 2c 32  33 2c 32 34 34 2c 31 31  |,14,14,23,244,11|
00000af0  32 2c 31 31 32 2c 31 31  32 2c 31 31 32 2c 31 31  |2,112,112,112,11|
00000b00  32 2c 31 31 32 2c 31 31  32 2c 31 31 32 0d 04 a6  |2,112,112,112...|
00000b10  47 ef 32 33 2c 32 34 35  2c 31 34 2c 31 34 2c 31  |G.23,245,14,14,1|
00000b20  34 2c 31 34 2c 31 34 2c  31 34 2c 31 34 2c 31 34  |4,14,14,14,14,14|
00000b30  2c 32 33 2c 32 34 36 2c  31 31 32 2c 31 31 32 2c  |,23,246,112,112,|
00000b40  31 31 32 2c 31 32 30 2c  31 32 37 2c 31 32 37 2c  |112,120,127,127,|
00000b50  36 33 2c 30 0d 04 b0 42  ef 32 33 2c 32 34 37 2c  |63,0...B.23,247,|
00000b60  30 2c 30 2c 30 2c 30 2c  32 35 35 2c 32 35 35 2c  |0,0,0,0,255,255,|
00000b70  32 35 35 2c 30 2c 32 33  2c 32 34 38 2c 31 34 2c  |255,0,23,248,14,|
00000b80  31 34 2c 31 34 2c 33 30  2c 32 35 34 2c 32 35 34  |14,14,30,254,254|
00000b90  2c 32 35 32 2c 30 0d 04  ba 05 e1 0d 04 c4 05 3a  |,252,0.........:|
00000ba0  0d 04 ce 11 dd f2 74 63  67 28 70 6f 73 2c 74 24  |......tcg(pos,t$|
00000bb0  29 0d 04 d8 26 db 3a f2  52 28 39 2c 70 6f 73 2c  |)...&.:.R(9,pos,|
00000bc0  22 54 41 50 45 20 43 4f  56 45 52 20 47 45 4e 45  |"TAPE COVER GENE|
00000bd0  52 41 54 4f 52 22 29 0d  04 e2 13 f2 4e 28 31 34  |RATOR").....N(14|
00000be0  2c 70 6f 73 2b 33 2c 74  24 29 0d 04 ec 05 e1 0d  |,pos+3,t$)......|
00000bf0  04 f6 05 3a 0d 05 00 0e  dd f2 73 65 74 73 6d 61  |...:......setsma|
00000c00  6c 6c 0d 05 0a 24 ef 32  2c 31 2c 32 37 2c 31 2c  |ll...$.2,1,27,1,|
00000c10  31 32 30 2c 31 2c 30 2c  31 2c 32 37 2c 31 2c 37  |120,1,0,1,27,1,7|
00000c20  30 2c 31 2c 31 35 0d 05  14 22 ef 31 2c 32 37 2c  |0,1,15...".1,27,|
00000c30  31 2c 38 33 2c 31 2c 30  2c 31 2c 32 37 2c 31 2c  |1,83,1,0,1,27,1,|
00000c40  36 35 2c 31 2c 35 2c 33  0d 05 1e 05 e1 0d 05 28  |65,1,5,3.......(|
00000c50  05 3a 0d 05 32 0c dd f2  73 65 74 62 69 67 0d 05  |.:..2...setbig..|
00000c60  3c 29 ef 32 2c 31 2c 31  33 2c 31 2c 31 38 2c 31  |<).2,1,13,1,18,1|
00000c70  2c 32 37 2c 31 2c 38 34  2c 31 2c 32 37 2c 31 2c  |,27,1,84,1,27,1,|
00000c80  36 35 2c 31 2c 31 32 0d  05 46 29 ef 31 2c 32 37  |65,1,12..F).1,27|
00000c90  2c 31 2c 38 30 2c 31 2c  32 37 2c 31 2c 31 32 30  |,1,80,1,27,1,120|
00000ca0  2c 31 2c 31 2c 31 2c 32  37 2c 31 2c 36 39 2c 33  |,1,1,1,27,1,69,3|
00000cb0  0d 05 50 05 e1 0d 05 5a  05 3a 0d 05 64 0b dd f2  |..P....Z.:..d...|
00000cc0  66 72 6f 6e 74 0d 05 6e  34 f2 74 63 67 28 31 31  |front..n4.tcg(11|
00000cd0  2c 22 43 4f 56 45 52 20  46 52 4f 4e 54 22 29 3a  |,"COVER FRONT"):|
00000ce0  f2 4e 28 31 33 2c 31 37  2c 22 53 49 44 45 20 41  |.N(13,17,"SIDE A|
00000cf0  20 28 4c 65 66 74 29 22  29 0d 05 78 2b f2 52 28  | (Left)")..x+.R(|
00000d00  35 2c 32 38 2c 22 50 52  45 53 53 20 53 50 41 43  |5,28,"PRESS SPAC|
00000d10  45 20 54 4f 20 45 4e 54  45 52 20 44 45 54 41 49  |E TO ENTER DETAI|
00000d20  4c 53 22 29 0d 05 82 09  f2 77 61 69 74 0d 05 8c  |LS").....wait...|
00000d30  3c db 3a f2 4e 28 33 34  2c 39 2c 22 50 52 45 53  |<.:.N(34,9,"PRES|
00000d40  53 22 29 3a f2 4e 28 33  34 2c 31 30 2c 22 27 54  |S"):.N(34,10,"'T|
00000d50  41 42 27 22 29 3a f2 4e  28 33 33 2c 31 31 2c 22  |AB'"):.N(33,11,"|
00000d60  49 46 20 44 4f 4e 45 22  29 0d 05 96 2f e7 66 72  |IF DONE").../.fr|
00000d70  3d 30 20 f2 4e 28 31 33  2c 32 2c 22 53 49 44 45  |=0 .N(13,2,"SIDE|
00000d80  20 41 22 29 3a f2 4e 28  31 32 2c 33 2c 22 5f 5f  | A"):.N(12,3,"__|
00000d90  5f 5f 5f 5f 5f 5f 22 29  0d 05 a0 2b e7 66 72 3d  |______")...+.fr=|
00000da0  31 20 e3 48 3d 31 b8 33  30 3a f1 8a 31 2c 48 29  |1 .H=1.30:..1,H)|
00000db0  3b c0 61 6c 74 66 72 24  28 48 2d 31 29 2c 33 30  |;.altfr$(H-1),30|
00000dc0  29 3a ed 0d 05 aa 36 f2  4e 28 33 33 2c 32 34 2c  |):....6.N(33,24,|
00000dd0  22 53 49 44 45 20 41 22  29 3a f2 4e 28 33 33 2c  |"SIDE A"):.N(33,|
00000de0  32 35 2c 22 28 4c 65 66  74 29 22 29 3a f2 65 64  |25,"(Left)"):.ed|
00000df0  69 74 28 33 30 2c 33 30  29 0d 05 b4 1a e3 48 3d  |it(30,30).....H=|
00000e00  31 b8 33 30 3a 66 72 6f  6e 74 24 28 48 2d 31 29  |1.30:front$(H-1)|
00000e10  3d 22 22 0d 05 be 34 e3  47 3d 31 b8 33 30 3a 4e  |=""...4.G=1.30:N|
00000e20  24 3d a4 52 28 47 2c 48  29 3a 66 72 6f 6e 74 24  |$=.R(G,H):front$|
00000e30  28 48 2d 31 29 3d 66 72  6f 6e 74 24 28 48 2d 31  |(H-1)=front$(H-1|
00000e40  29 2b 4e 24 3a fb 30 0d  05 c8 1d fb 31 32 39 3a  |)+N$:.0.....129:|
00000e50  f1 8a 47 2c 48 29 3b 4e  24 3a fb 31 32 38 3a fb  |..G,H);N$:.128:.|
00000e60  31 3a ed 2c 0d 05 d2 2a  e3 48 3d 31 b8 33 30 3a  |1:.,...*.H=1.30:|
00000e70  66 72 6f 6e 74 24 28 48  2d 31 29 3d 66 72 6f 6e  |front$(H-1)=fron|
00000e80  74 24 28 48 2d 31 29 2b  22 20 20 22 3a ed 0d 05  |t$(H-1)+"  ":...|
00000e90  dc 36 f2 74 63 67 28 31  31 2c 22 43 4f 56 45 52  |.6.tcg(11,"COVER|
00000ea0  20 46 52 4f 4e 54 22 29  3a f2 4e 28 31 32 2c 31  | FRONT"):.N(12,1|
00000eb0  37 2c 22 53 49 44 45 20  42 20 20 28 52 69 67 68  |7,"SIDE B  (Righ|
00000ec0  74 29 22 29 0d 05 e6 2b  f2 52 28 35 2c 32 38 2c  |t)")...+.R(5,28,|
00000ed0  22 50 52 45 53 53 20 53  50 41 43 45 20 54 4f 20  |"PRESS SPACE TO |
00000ee0  45 4e 54 45 52 20 44 45  54 41 49 4c 53 22 29 0d  |ENTER DETAILS").|
00000ef0  05 f0 09 f2 77 61 69 74  0d 05 fa 3c db 3a f2 4e  |....wait...<.:.N|
00000f00  28 33 34 2c 39 2c 22 50  52 45 53 53 22 29 3a f2  |(34,9,"PRESS"):.|
00000f10  4e 28 33 34 2c 31 30 2c  22 27 54 41 42 27 22 29  |N(34,10,"'TAB'")|
00000f20  3a f2 4e 28 33 33 2c 31  31 2c 22 49 46 20 44 4f  |:.N(33,11,"IF DO|
00000f30  4e 45 22 29 0d 06 04 2f  e7 66 72 3d 30 20 f2 4e  |NE").../.fr=0 .N|
00000f40  28 31 33 2c 32 2c 22 53  49 44 45 20 42 22 29 3a  |(13,2,"SIDE B"):|
00000f50  f2 4e 28 31 32 2c 33 2c  22 5f 5f 5f 5f 5f 5f 5f  |.N(12,3,"_______|
00000f60  5f 22 29 0d 06 0e 2b e7  66 72 3d 31 20 e3 48 3d  |_")...+.fr=1 .H=|
00000f70  31 b8 33 30 3a f1 8a 31  2c 48 29 3b c2 61 6c 74  |1.30:..1,H);.alt|
00000f80  66 72 24 28 48 2d 31 29  2c 33 30 29 3a ed 0d 06  |fr$(H-1),30):...|
00000f90  18 37 f2 4e 28 33 33 2c  32 34 2c 22 53 49 44 45  |.7.N(33,24,"SIDE|
00000fa0  20 42 22 29 3a f2 4e 28  33 32 2c 32 35 2c 22 28  | B"):.N(32,25,"(|
00000fb0  52 69 67 68 74 29 22 29  3a f2 65 64 69 74 28 33  |Right)"):.edit(3|
00000fc0  30 2c 33 30 29 0d 06 22  3c e3 48 3d 31 b8 33 30  |0,30).."<.H=1.30|
00000fd0  3a e3 47 3d 31 b8 33 30  3a 4e 24 3d a4 52 28 47  |:.G=1.30:N$=.R(G|
00000fe0  2c 48 29 3a 66 72 6f 6e  74 24 28 48 2d 31 29 3d  |,H):front$(H-1)=|
00000ff0  66 72 6f 6e 74 24 28 48  2d 31 29 2b 4e 24 3a fb  |front$(H-1)+N$:.|
00001000  30 0d 06 2c 1d fb 31 32  39 3a f1 8a 47 2c 48 29  |0..,..129:..G,H)|
00001010  3b 4e 24 3a fb 31 32 38  3a fb 31 3a ed 2c 0d 06  |;N$:.128:.1:.,..|
00001020  36 2a e3 48 3d 31 b8 33  30 3a 61 6c 74 66 72 24  |6*.H=1.30:altfr$|
00001030  28 48 2d 31 29 3d 66 72  6f 6e 74 24 28 48 2d 31  |(H-1)=front$(H-1|
00001040  29 3a ed 3a 66 72 3d 31  0d 06 40 05 e1 0d 06 4a  |):.:fr=1..@....J|
00001050  05 3a 0d 06 54 0a dd f2  77 61 69 74 0d 06 5e 12  |.:..T...wait..^.|
00001060  f5 3a 47 24 3d be 3a fd  47 24 3d 22 20 22 0d 06  |.:G$=.:.G$=" "..|
00001070  68 05 e1 0d 06 72 05 3a  0d 06 7c 0b dd f2 70 72  |h....r.:..|...pr|
00001080  69 6e 74 0d 06 86 47 f2  74 63 67 28 31 31 2c 22  |int...G.tcg(11,"|
00001090  43 4f 56 45 52 20 50 52  49 4e 54 22 29 3a f2 4e  |COVER PRINT"):.N|
000010a0  28 33 2c 31 37 2c 22 50  6c 65 61 73 65 20 65 6e  |(3,17,"Please en|
000010b0  73 75 72 65 20 74 68 61  74 20 74 68 65 20 70 72  |sure that the pr|
000010c0  69 6e 74 65 72 20 69 73  22 29 0d 06 90 29 f2 4e  |inter is")...).N|
000010d0  28 36 2c 31 38 2c 22 4f  4e 2d 4c 49 4e 45 20 61  |(6,18,"ON-LINE a|
000010e0  6e 64 20 66 65 64 20 77  69 74 68 20 70 61 70 65  |nd fed with pape|
000010f0  72 22 29 0d 06 9a 2f f2  52 28 34 2c 32 38 2c 22  |r").../.R(4,28,"|
00001100  50 52 45 53 53 20 53 50  41 43 45 20 54 4f 20 42  |PRESS SPACE TO B|
00001110  45 47 49 4e 20 43 4f 56  45 52 20 50 52 49 4e 54  |EGIN COVER PRINT|
00001120  22 29 0d 06 a4 0e f2 77  61 69 74 3a db 3a fb 30  |").....wait:.:.0|
00001130  0d 06 ae 26 ef 32 2c 31  2c 32 37 2c 31 2c 36 34  |...&.2,1,27,1,64|
00001140  2c 31 2c 32 37 2c 31 2c  35 36 2c 31 2c 32 37 2c  |,1,27,1,56,1,27,|
00001150  31 2c 37 39 2c 33 0d 06  b8 1b f2 73 65 74 73 6d  |1,79,3.....setsm|
00001160  61 6c 6c 3a f2 6c 69 6e  65 3a f2 73 65 74 62 69  |all:.line:.setbi|
00001170  67 0d 06 c2 21 e3 48 3d  30 b8 31 3a ef 32 3a f1  |g...!.H=0.1:.2:.|
00001180  89 28 37 29 3b 65 64 67  65 24 28 48 29 3a ef 33  |.(7);edge$(H):.3|
00001190  3a ed 0d 06 cc 1f f2 73  65 74 73 6d 61 6c 6c 3a  |:......setsmall:|
000011a0  ef 32 2c 31 2c 31 33 2c  33 3a e3 48 3d 30 b8 32  |.2,1,13,3:.H=0.2|
000011b0  39 0d 06 d6 4b e7 28 48  20 83 20 36 29 3d 30 20  |9...K.(H . 6)=0 |
000011c0  8c ef 32 3a f1 89 28 38  29 3b 22 7c 20 20 20 22  |..2:..(8);"|   "|
000011d0  3b 66 72 6f 6e 74 24 28  48 29 3b 22 20 20 20 7c  |;front$(H);"   ||
000011e0  22 3a ef 33 20 8b ef 32  3a f1 89 28 31 32 29 3b  |":.3 ..2:..(12);|
000011f0  66 72 6f 6e 74 24 28 48  29 3a ef 33 0d 06 e0 18  |front$(H):.3....|
00001200  ed 3a ef 32 2c 31 2c 32  37 2c 31 2c 37 34 2c 31  |.:.2,1,27,1,74,1|
00001210  2c 32 2c 33 0d 06 ea 11  f2 6c 69 6e 65 3a f2 73  |,2,3.....line:.s|
00001220  65 74 62 69 67 0d 06 f4  21 e3 48 3d 30 b8 31 3a  |etbig...!.H=0.1:|
00001230  ef 32 3a f1 89 28 37 29  3b 65 64 67 65 24 28 48  |.2:..(7);edge$(H|
00001240  29 3a ef 33 3a ed 0d 06  fe 13 f2 73 65 74 73 6d  |):.3:......setsm|
00001250  61 6c 6c 3a f2 6c 69 6e  65 0d 07 08 2e ef 32 2c  |all:.line.....2,|
00001260  31 2c 31 38 2c 31 2c 32  37 2c 31 2c 31 32 30 2c  |1,18,1,27,1,120,|
00001270  31 2c 30 2c 31 2c 32 37  2c 31 2c 37 30 2c 31 2c  |1,0,1,27,1,70,1,|
00001280  32 37 2c 31 2c 38 30 0d  07 12 3a ef 31 2c 32 37  |27,1,80...:.1,27|
00001290  2c 31 2c 38 33 2c 31 2c  30 2c 31 2c 32 37 2c 31  |,1,83,1,0,1,27,1|
000012a0  2c 36 35 2c 31 2c 35 2c  31 2c 32 37 2c 31 2c 37  |,65,1,5,1,27,1,7|
000012b0  34 2c 31 2c 32 2c 31 2c  32 37 2c 31 2c 36 39 2c  |4,1,2,1,27,1,69,|
000012c0  33 0d 07 1c 21 e3 48 3d  30 b8 36 3a ef 32 3a f1  |3...!.H=0.6:.2:.|
000012d0  89 28 37 29 3b 62 61 63  6b 24 28 48 29 3a ef 33  |.(7);back$(H):.3|
000012e0  3a ed 0d 07 26 16 f2 73  65 74 73 6d 61 6c 6c 3a  |:...&..setsmall:|
000012f0  f2 6c 69 6e 65 3a fb 31  0d 07 30 05 e1 0d 07 3a  |.line:.1..0....:|
00001300  05 3a 0d 07 44 0a dd f2  65 64 67 65 0d 07 4e 15  |.:..D...edge..N.|
00001310  e7 65 64 3d 31 20 f2 64  6f 6e 65 3a e5 8d 74 4a  |.ed=1 .done:..tJ|
00001320  47 0d 07 58 4b f2 74 63  67 28 31 31 2c 22 43 4f  |G..XK.tcg(11,"CO|
00001330  56 45 52 20 45 44 47 45  22 29 3a f2 52 28 30 2c  |VER EDGE"):.R(0,|
00001340  31 37 2c 22 45 6e 74 69  72 65 20 74 61 70 65 20  |17,"Entire tape |
00001350  6f 72 20 49 6e 64 69 76  69 64 75 61 6c 20 73 69  |or Individual si|
00001360  64 65 20 66 6f 72 6d 61  74 3f 22 29 0d 07 62 3a  |de format?")..b:|
00001370  f2 4e 28 31 32 2c 31 39  2c 22 28 50 52 45 53 53  |.N(12,19,"(PRESS|
00001380  20 20 20 4f 52 20 20 29  22 29 3a f2 52 28 31 39  |   OR  )"):.R(19|
00001390  2c 31 39 2c 22 45 22 29  3a f2 52 28 32 34 2c 31  |,19,"E"):.R(24,1|
000013a0  39 2c 22 49 22 29 0d 07  6c 1a f5 3a 47 24 3d be  |9,"I")..l..:G$=.|
000013b0  3a fd 47 24 3d 22 45 22  20 84 47 24 3d 22 49 22  |:.G$="E" .G$="I"|
000013c0  0d 07 76 27 f2 4e 28 30  2c 31 37 2c c4 33 38 2c  |..v'.N(0,17,.38,|
000013d0  22 20 22 29 29 3a f2 4e  28 30 2c 31 39 2c c4 33  |" ")):.N(0,19,.3|
000013e0  38 2c 22 20 22 29 29 0d  07 80 5a e7 47 24 3d 22  |8," "))...Z.G$="|
000013f0  45 22 20 8c f2 52 28 31  30 2c 31 37 2c 22 45 6e  |E" ..R(10,17,"En|
00001400  74 69 72 65 20 74 61 70  65 20 46 6f 72 6d 61 74  |tire tape Format|
00001410  22 29 3a 63 65 6e 3d 31  20 8b f2 52 28 38 2c 31  |"):cen=1 ..R(8,1|
00001420  37 2c 22 49 6e 64 69 76  69 64 75 61 6c 20 53 69  |7,"Individual Si|
00001430  64 65 20 46 6f 72 6d 61  74 22 29 3a 63 65 6e 3d  |de Format"):cen=|
00001440  30 0d 07 8a 15 e7 63 65  6e 3d 31 20 f2 65 6e 74  |0.....cen=1 .ent|
00001450  20 8b f2 69 6e 64 0d 07  94 08 65 64 3d 31 0d 07  | ..ind....ed=1..|
00001460  9e 05 e1 0d 07 a8 05 3a  0d 07 b2 0a dd f2 6d 65  |.......:......me|
00001470  6e 75 0d 07 bc 31 f2 74  63 67 28 33 2c 22 20 20  |nu...1.tcg(3,"  |
00001480  20 4d 45 4e 55 22 29 3a  f7 3a e3 48 3d 31 b8 31  | MENU"):.:.H=1.1|
00001490  36 3a f3 4c 3a ef 33 31  2c 48 2b 31 30 2c 34 2c  |6:.L:.31,H+10,4,|
000014a0  4c 3a ed 0d 07 c6 30 f2  52 28 39 2c 31 32 2c 22  |L:....0.R(9,12,"|
000014b0  46 22 29 3a f2 4e 28 31  32 2c 31 32 2c a4 70 28  |F"):.N(12,12,.p(|
000014c0  66 72 29 2b 22 20 43 4f  56 45 52 20 46 52 4f 4e  |fr)+" COVER FRON|
000014d0  54 22 29 0d 07 d0 2f f2  52 28 39 2c 31 30 2c 22  |T").../.R(9,10,"|
000014e0  45 22 29 3a f2 4e 28 31  32 2c 31 30 2c a4 70 28  |E"):.N(12,10,.p(|
000014f0  65 64 29 2b 22 20 43 4f  56 45 52 20 45 44 47 45  |ed)+" COVER EDGE|
00001500  22 29 0d 07 da 2f f2 52  28 39 2c 31 34 2c 22 42  |").../.R(9,14,"B|
00001510  22 29 3a f2 4e 28 31 32  2c 31 34 2c a4 70 28 62  |"):.N(12,14,.p(b|
00001520  61 29 2b 22 20 43 4f 56  45 52 20 42 41 43 4b 22  |a)+" COVER BACK"|
00001530  29 0d 07 e4 2c f2 52 28  39 2c 31 37 2c 22 53 22  |)...,.R(9,17,"S"|
00001540  29 3a f2 4e 28 31 32 2c  31 37 2c 22 53 54 41 52  |):.N(12,17,"STAR|
00001550  54 20 4e 45 57 20 43 4f  56 45 52 22 29 0d 07 ee  |T NEW COVER")...|
00001560  2b f2 52 28 39 2c 31 39  2c 22 51 22 29 3a f2 4e  |+.R(9,19,"Q"):.N|
00001570  28 31 32 2c 31 39 2c 22  51 55 49 54 20 50 52 4f  |(12,19,"QUIT PRO|
00001580  47 52 41 4d 4d 45 22 29  0d 07 f8 38 e7 20 28 66  |GRAMME")...8. (f|
00001590  72 3d 31 20 80 20 65 64  3d 31 29 20 f2 52 28 39  |r=1 . ed=1) .R(9|
000015a0  2c 32 32 2c 22 50 22 29  3a f2 4e 28 31 32 2c 32  |,22,"P"):.N(12,2|
000015b0  32 2c 22 50 52 49 4e 54  20 43 4f 56 45 52 22 29  |2,"PRINT COVER")|
000015c0  0d 08 02 1e f2 52 28 31  32 2c 32 38 2c 22 50 52  |.....R(12,28,"PR|
000015d0  45 53 53 20 41 20 4c 45  54 54 45 52 22 29 0d 08  |ESS A LETTER")..|
000015e0  0c 0a f5 3a 47 24 3d be  0d 08 16 18 e7 47 24 3d  |...:G$=......G$=|
000015f0  22 46 22 20 f2 66 72 6f  6e 74 3a e5 8d 74 7c 47  |"F" .front:..t|G|
00001600  0d 08 20 17 e7 47 24 3d  22 45 22 20 f2 65 64 67  |.. ..G$="E" .edg|
00001610  65 3a e5 8d 74 7c 47 0d  08 2a 17 e7 47 24 3d 22  |e:..t|G..*..G$="|
00001620  42 22 20 f2 62 61 63 6b  3a e5 8d 74 7c 47 0d 08  |B" .back:..t|G..|
00001630  34 28 e7 47 24 3d 22 50  22 20 80 20 28 66 72 3d  |4(.G$="P" . (fr=|
00001640  31 20 80 20 65 64 3d 31  29 20 f2 70 72 69 6e 74  |1 . ed=1) .print|
00001650  3a e5 8d 74 7c 47 0d 08  3e 29 e7 47 24 3d 22 53  |:..t|G..>).G$="S|
00001660  22 20 f2 73 75 72 65 28  31 2c 22 72 65 2d 73 74  |" .sure(1,"re-st|
00001670  61 72 74 3f 22 29 3a e7  79 65 73 3d 31 20 f9 0d  |art?"):.yes=1 ..|
00001680  08 48 0b fd 47 24 3d 22  51 22 0d 08 52 21 f2 73  |.H..G$="Q"..R!.s|
00001690  75 72 65 28 33 2c 22 71  75 69 74 3f 22 29 3a e7  |ure(3,"quit?"):.|
000016a0  79 65 73 3d 30 20 e5 8d  54 4c 48 0d 08 5c 05 e1  |yes=0 ..TLH..\..|
000016b0  0d 08 66 05 3a 0d 08 70  12 dd f2 73 75 72 65 28  |..f.:..p...sure(|
000016c0  70 6f 73 2c 74 24 29 0d  08 7a 2d f2 52 28 70 6f  |pos,t$)..z-.R(po|
000016d0  73 2c 32 38 2c 22 41 72  65 20 79 6f 75 20 73 75  |s,28,"Are you su|
000016e0  72 65 20 79 6f 75 20 77  61 6e 74 20 74 6f 20 22  |re you want to "|
000016f0  2b 74 24 29 0d 08 84 26  47 24 3d be 3a e7 20 47  |+t$)...&G$=.:. G|
00001700  24 3d 22 59 22 20 84 47  24 3d 22 79 22 20 79 65  |$="Y" .G$="y" ye|
00001710  73 3d 31 20 8b 79 65 73  3d 30 0d 08 8e 30 f2 4e  |s=1 .yes=0...0.N|
00001720  28 31 2c 32 38 2c c4 33  34 2c 22 20 22 29 29 3a  |(1,28,.34," ")):|
00001730  f2 52 28 31 32 2c 32 38  2c 22 50 52 45 53 53 20  |.R(12,28,"PRESS |
00001740  41 20 4c 45 54 54 45 52  22 29 0d 08 98 05 e1 0d  |A LETTER")......|
00001750  08 a2 05 3a 0d 08 ac 0a  dd f2 64 6f 6e 65 0d 08  |...:......done..|
00001760  b6 19 f2 74 63 67 28 31  31 2c 22 43 4f 56 45 52  |...tcg(11,"COVER|
00001770  20 45 44 47 45 22 29 0d  08 c0 4a e7 63 65 6e 20  | EDGE")...J.cen |
00001780  f2 52 28 31 30 2c 31 37  2c 22 45 6e 74 69 72 65  |.R(10,17,"Entire|
00001790  20 74 61 70 65 20 46 6f  72 6d 61 74 22 29 20 8b  | tape Format") .|
000017a0  f2 52 28 38 2c 31 37 2c  22 49 6e 64 69 76 69 64  |.R(8,17,"Individ|
000017b0  75 61 6c 20 53 69 64 65  20 46 6f 72 6d 61 74 22  |ual Side Format"|
000017c0  29 0d 08 ca 05 e1 0d 08  d4 0a dd a4 70 28 70 29  |)...........p(p)|
000017d0  0d 08 de 1e e7 70 3d 30  20 74 24 3d 22 53 54 41  |.....p=0 t$="STA|
000017e0  52 54 22 20 8b 74 24 3d  22 45 44 49 54 22 0d 08  |RT" .t$="EDIT"..|
000017f0  e8 07 3d 74 24 0d 08 f2  05 3a 0d 08 fc 3a dc 39  |..=t$....:...:.9|
00001800  38 2c 31 32 31 2c 35 38  2c 33 32 2c 38 32 2c 34  |8,121,58,32,82,4|
00001810  36 2c 38 33 2c 34 36 2c  37 34 2c 34 36 2c 36 37  |6,83,46,74,46,67|
00001820  2c 31 31 31 2c 31 31 30  2c 31 31 34 2c 31 31 31  |,111,110,114,111|
00001830  2c 31 32 31 0d ff                                 |,121..|
00001836