Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape18a_acorn_eu_1991_january.wav » Covers

Covers

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape18a_acorn_eu_1991_january.wav
Filename: Covers
Read OK:
File size: 1836 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM COVERS
   20REM by R.S.J.Conroy
   30REM (c) The Micro User
   40*FX200,1
   50:
   60MODE4:VDU23;8202;0;0;0;
   70DIMedge$(1),front$(30),back$(6),altfr$(30),alted$(6)
   80fr=0:ed=0:ba=0
   90PROCchars
  100PROCmenu
  110MODE7:END
  120:
  130DEFPROCedit(x,y)
  140PRINTTAB(0,0);CHR$241;STRING$(x,CHR$242);CHR$243:FORI=1TOy:PRINTTAB(0,I)CHR$244;TAB((x+1),I)CHR$245
  150NEXT:PRINTTAB(0,y+1);CHR$246;STRING$(x,CHR$247);CHR$248;CHR$11
  160*FX4,1
  170X=1:Y=1:PROCplace:REPEAT:K=GET
  180IFK=139 PROCwipe:Y=Y-1:IFY=0THENY=y
  190IFK=138 PROCwipe:Y=Y+1:IFY=(y+1)THENY=1
  200IFK=136 PROCwipe:X=X-1:IFX=0THENX=x
  210IFK=137 PROCwipe:X=X+1:IFX=(x+1)THENX=1
  220IFK>31 ANDK<127 THENPROCchange
  230IFK=13 PROCwipe:X=1:Y=Y+1:IFY=(y+1)THENY=1
  240IFK=127 PROCwipe:PROCdelete
  250PROCplace:UNTILK=9:PROCwipe:OSCLI("FX4")
  260ENDPROC
  270:
  280DEFPROCplace
  290S$=FNR(X,Y):COLOUR129:COLOUR0:PRINTTAB(X,Y);S$
  300ENDPROC
  310:
  320DEFPROCwipe
  330S$=FNR(X,Y):COLOUR128:COLOUR1:PRINTTAB(X,Y);S$
  340ENDPROC
  350:
  360DEFPROCchange
  370COLOUR128:COLOUR1
  380PRINTTAB(X,Y);CHR$(K):X=X+1
  390IFX=(x+1)THENX=1:Y=Y+1
  400IFY=(y+1)THENX=1:Y=1
  410ENDPROC
  420:
  430DEFPROCdelete
  440COLOUR128:COLOUR1:X=X-1
  450IFX=0THENX=x:Y=Y-1
  460IFY=0THENY=y
  470PRINTTAB(X,Y);" "
  480ENDPROC
  490:
  500DEFFNR(A,B)
  510VDU31,A,B
  520A%=135
  530C=USR(&FFF4)
  540C=C AND &FFFF
  550C=C DIV &100
  560=CHR$(C)
  570:
  580DEFPROCR(A,B,M$)
  590COLOUR129:COLOUR0:PRINTTAB(A,B);M$
  600COLOUR128:COLOUR1
  610ENDPROC
  620:
  630DEFPROCN(A,B,M$)
  640PRINTTAB(A,B);M$
  650ENDPROC
  660:
  670DEFPROCent
  680IFed=1 FORH=1TO2:PRINTTAB(1,H);edge$(H-1):NEXT
  690PROCN(7,4,"PRESS 'TAB' WHEN COMPLETE"):PROCedit(36,2)
  700FORH=1TO2:edge$(H-1)=""
  710FORG=1TO36:N$=FNR(G,H):edge$(H-1)=edge$(H-1)+N$:COLOUR129
  720COLOUR0:PRINTTAB(G,H);N$:COLOUR128:COLOUR1:NEXT,
  730PROCN(7,4,STRING$(26," ")):FORH=1TO2:PROCN(1,H,edge$(H-1)):NEXT
  740PROCN(3,5,"This will appear on the edge and"):PROCN(8,6,"top front of the cover")
  750PROCR(7,27,"PRESS SPACE TO CONTINUE"):PROCwait
  760ENDPROC
  770:
  780DEFPROCind
  790IF ed=1 FORH=1TO2:PRINTTAB(1,H);LEFT$(alted$(H-1),17):NEXT
  800PROCN(22,1,"PRESS 'TAB'"):PROCN(23,2,"TO FINISH")
  810PROCN(2,4,"SIDE A (Left)"):PROCedit(17,2)
  820FORH=1TO2:edge$(H-1)=""
  830FORG=1TO17:N$=FNR(G,H):edge$(H-1)=edge$(H-1)+N$:COLOUR129
  840COLOUR0:PRINTTAB(G,H);N$:COLOUR128:COLOUR1:NEXT,
  850FORH=1TO2:edge$(H-1)=edge$(H-1)+"  ":NEXT
  860FORH=0TO3:PROCN(0,H,STRING$(19," ")):NEXT
  870IFed=1 FORH=1TO2:PRINTTAB(1,H);RIGHT$(alted$(H-1),17):NEXT
  880PROCN(2,4,"SIDE B (Right)"):PROCedit(17,2)
  890FORH=1TO2::FORG=1TO17:N$=FNR(G,H):edge$(H-1)=edge$(H-1)+N$:COLOUR129
  900COLOUR0:PRINTTAB(G,H);N$:COLOUR128:COLOUR1:NEXT,
  910FORH=0TO4:PROCN(0,H,STRING$(38," ")):NEXT
  920PRINTTAB(0,0);CHR$241;STRING$(36,CHR$242);CHR$243
  930FORI=1TO2:PRINTTAB(0,I)CHR$244;TAB(37,I)CHR$245
  940NEXT:PRINTTAB(0,3);CHR$246;STRING$(36,CHR$247);CHR$248;CHR$11
  950FORH=1TO2:PROCN(1,H,edge$(H-1)):NEXT:MOVE608,1019:DRAW608,900:MOVE604,1019:DRAW604,900
  960FORH=0TO1:alted$(H)=edge$(H):NEXT
  970PROCR(7,27,"PRESS SPACE TO CONTINUE"):PROCwait
  980ENDPROC
  990:
 1000DEFPROCback
 1010PROCtcg(17,"COVER BACK")
 1020IFba=1 FORH=1TO7:PRINTTAB(1,H);back$(H-1):NEXT
 1030PROCN(7,9,"PRESS 'TAB' WHEN COMPLETE"):PROCedit(36,7)
 1040FORH=1TO7:back$(H-1)=""
 1050FORG=1TO36:N$=FNR(G,H):back$(H-1)=back$(H-1)+N$:COLOUR129
 1060COLOUR0:PRINTTAB(G,H);N$:COLOUR128:COLOUR1:NEXT,
 1070PROCN(7,9,STRING$(26," ")):FORH=1TO7:PROCN(1,H,back$(H-1)):NEXT
 1080PROCN(5,10,"This will appear on the back"):PROCN(13,11,"of the cover")
 1090PROCR(7,27,"PRESS SPACE TO CONTINUE"):PROCwait:ba=1
 1100ENDPROC
 1110:
 1120DEFPROCline
 1130VDU2:PRINTSPC(8);"|";STRING$(13," -   ");"-  |":VDU3
 1140ENDPROC
 1150:
 1160DEFPROCchars
 1170VDU23,241,0,63,127,127,120,112,112,112,23,242,0,255,255,255,0,0,0,0
 1180VDU23,243,0,252,254,254,30,14,14,14,23,244,112,112,112,112,112,112,112,112
 1190VDU23,245,14,14,14,14,14,14,14,14,23,246,112,112,112,120,127,127,63,0
 1200VDU23,247,0,0,0,0,255,255,255,0,23,248,14,14,14,30,254,254,252,0
 1210ENDPROC
 1220:
 1230DEFPROCtcg(pos,t$)
 1240CLS:PROCR(9,pos,"TAPE COVER GENERATOR")
 1250PROCN(14,pos+3,t$)
 1260ENDPROC
 1270:
 1280DEFPROCsetsmall
 1290VDU2,1,27,1,120,1,0,1,27,1,70,1,15
 1300VDU1,27,1,83,1,0,1,27,1,65,1,5,3
 1310ENDPROC
 1320:
 1330DEFPROCsetbig
 1340VDU2,1,13,1,18,1,27,1,84,1,27,1,65,1,12
 1350VDU1,27,1,80,1,27,1,120,1,1,1,27,1,69,3
 1360ENDPROC
 1370:
 1380DEFPROCfront
 1390PROCtcg(11,"COVER FRONT"):PROCN(13,17,"SIDE A (Left)")
 1400PROCR(5,28,"PRESS SPACE TO ENTER DETAILS")
 1410PROCwait
 1420CLS:PROCN(34,9,"PRESS"):PROCN(34,10,"'TAB'"):PROCN(33,11,"IF DONE")
 1430IFfr=0 PROCN(13,2,"SIDE A"):PROCN(12,3,"________")
 1440IFfr=1 FORH=1TO30:PRINTTAB(1,H);LEFT$(altfr$(H-1),30):NEXT
 1450PROCN(33,24,"SIDE A"):PROCN(33,25,"(Left)"):PROCedit(30,30)
 1460FORH=1TO30:front$(H-1)=""
 1470FORG=1TO30:N$=FNR(G,H):front$(H-1)=front$(H-1)+N$:COLOUR0
 1480COLOUR129:PRINTTAB(G,H);N$:COLOUR128:COLOUR1:NEXT,
 1490FORH=1TO30:front$(H-1)=front$(H-1)+"  ":NEXT
 1500PROCtcg(11,"COVER FRONT"):PROCN(12,17,"SIDE B  (Right)")
 1510PROCR(5,28,"PRESS SPACE TO ENTER DETAILS")
 1520PROCwait
 1530CLS:PROCN(34,9,"PRESS"):PROCN(34,10,"'TAB'"):PROCN(33,11,"IF DONE")
 1540IFfr=0 PROCN(13,2,"SIDE B"):PROCN(12,3,"________")
 1550IFfr=1 FORH=1TO30:PRINTTAB(1,H);RIGHT$(altfr$(H-1),30):NEXT
 1560PROCN(33,24,"SIDE B"):PROCN(32,25,"(Right)"):PROCedit(30,30)
 1570FORH=1TO30:FORG=1TO30:N$=FNR(G,H):front$(H-1)=front$(H-1)+N$:COLOUR0
 1580COLOUR129:PRINTTAB(G,H);N$:COLOUR128:COLOUR1:NEXT,
 1590FORH=1TO30:altfr$(H-1)=front$(H-1):NEXT:fr=1
 1600ENDPROC
 1610:
 1620DEFPROCwait
 1630REPEAT:G$=GET$:UNTILG$=" "
 1640ENDPROC
 1650:
 1660DEFPROCprint
 1670PROCtcg(11,"COVER PRINT"):PROCN(3,17,"Please ensure that the printer is")
 1680PROCN(6,18,"ON-LINE and fed with paper")
 1690PROCR(4,28,"PRESS SPACE TO BEGIN COVER PRINT")
 1700PROCwait:CLS:COLOUR0
 1710VDU2,1,27,1,64,1,27,1,56,1,27,1,79,3
 1720PROCsetsmall:PROCline:PROCsetbig
 1730FORH=0TO1:VDU2:PRINTSPC(7);edge$(H):VDU3:NEXT
 1740PROCsetsmall:VDU2,1,13,3:FORH=0TO29
 1750IF(H MOD 6)=0 THENVDU2:PRINTSPC(8);"|   ";front$(H);"   |":VDU3 ELSEVDU2:PRINTSPC(12);front$(H):VDU3
 1760NEXT:VDU2,1,27,1,74,1,2,3
 1770PROCline:PROCsetbig
 1780FORH=0TO1:VDU2:PRINTSPC(7);edge$(H):VDU3:NEXT
 1790PROCsetsmall:PROCline
 1800VDU2,1,18,1,27,1,120,1,0,1,27,1,70,1,27,1,80
 1810VDU1,27,1,83,1,0,1,27,1,65,1,5,1,27,1,74,1,2,1,27,1,69,3
 1820FORH=0TO6:VDU2:PRINTSPC(7);back$(H):VDU3:NEXT
 1830PROCsetsmall:PROCline:COLOUR1
 1840ENDPROC
 1850:
 1860DEFPROCedge
 1870IFed=1 PROCdone:GOTO1930
 1880PROCtcg(11,"COVER EDGE"):PROCR(0,17,"Entire tape or Individual side format?")
 1890PROCN(12,19,"(PRESS   OR  )"):PROCR(19,19,"E"):PROCR(24,19,"I")
 1900REPEAT:G$=GET$:UNTILG$="E" ORG$="I"
 1910PROCN(0,17,STRING$(38," ")):PROCN(0,19,STRING$(38," "))
 1920IFG$="E" THENPROCR(10,17,"Entire tape Format"):cen=1 ELSEPROCR(8,17,"Individual Side Format"):cen=0
 1930IFcen=1 PROCent ELSEPROCind
 1940ed=1
 1950ENDPROC
 1960:
 1970DEFPROCmenu
 1980PROCtcg(3,"   MENU"):RESTORE:FORH=1TO16:READL:VDU31,H+10,4,L:NEXT
 1990PROCR(9,12,"F"):PROCN(12,12,FNp(fr)+" COVER FRONT")
 2000PROCR(9,10,"E"):PROCN(12,10,FNp(ed)+" COVER EDGE")
 2010PROCR(9,14,"B"):PROCN(12,14,FNp(ba)+" COVER BACK")
 2020PROCR(9,17,"S"):PROCN(12,17,"START NEW COVER")
 2030PROCR(9,19,"Q"):PROCN(12,19,"QUIT PROGRAMME")
 2040IF (fr=1 AND ed=1) PROCR(9,22,"P"):PROCN(12,22,"PRINT COVER")
 2050PROCR(12,28,"PRESS A LETTER")
 2060REPEAT:G$=GET$
 2070IFG$="F" PROCfront:GOTO1980
 2080IFG$="E" PROCedge:GOTO1980
 2090IFG$="B" PROCback:GOTO1980
 2100IFG$="P" AND (fr=1 AND ed=1) PROCprint:GOTO1980
 2110IFG$="S" PROCsure(1,"re-start?"):IFyes=1 RUN
 2120UNTILG$="Q"
 2130PROCsure(3,"quit?"):IFyes=0 GOTO2060
 2140ENDPROC
 2150:
 2160DEFPROCsure(pos,t$)
 2170PROCR(pos,28,"Are you sure you want to "+t$)
 2180G$=GET$:IF G$="Y" ORG$="y" yes=1 ELSEyes=0
 2190PROCN(1,28,STRING$(34," ")):PROCR(12,28,"PRESS A LETTER")
 2200ENDPROC
 2210:
 2220DEFPROCdone
 2230PROCtcg(11,"COVER EDGE")
 2240IFcen PROCR(10,17,"Entire tape Format") ELSEPROCR(8,17,"Individual Side Format")
 2250ENDPROC
 2260DEFFNp(p)
 2270IFp=0 t$="START" ELSEt$="EDIT"
 2280=t$
 2290:
 2300DATA98,121,58,32,82,46,83,46,74,46,67,111,110,114,111,121

� 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
Covers.m0
Covers.m1
Covers.m2
Covers.m4
Covers.m5