A$="Selective Breeding - Bug Generator":B$="B.F.Brampton":PROCa(A$,B$)
    1 PRINT'"This program creates an example data    file of 'bugs' and saves them to disc   or tape with the filename 'Example'. To do this, you must be using a disc or    tape of your own and NOT the monthly"
    2 PRINT"magazine disc or tape."''"The file created is identical to that   supplied on the cassette/disc, and the"'"program is included for the sake of"'"completeness."''TAB(7,24)"Press any key to continue:";:IFGET
   10 DIM tm &200:dna=tm+46:gen=dna+9*46:!gen=0
   20 $tm="100000000000001000000000001000000010000000000"
10000 $dna="CCDBFBBFXEDADCXECACBACCGCCBFHHFJJJCHCCCCCCC"
10010 $(dna+46)="BCEDEBADQCDADBXEFAABACCGDCBFHFFMJJFFKGEIHJE"
10020 $(dna+46*2)="ABAAHAECXBAAGAXCBBBCBBXCEBAABDDDGGCGCODBBCC"
10030 $(dna+46*3)="EEDBHBADXCDADCDEEACBACCGCCDHHHFJJJAHCCCCCCC"
10040 $(dna+46*4)="ABCBDBBDXCCACBXCBABBABBDBBBDEEDFFFCEBBBBBBB"
10050 $(dna+46*5)="AAAGGAEECCACGACCCCECACCHBBCEECKCCEAAACACAAA"
10060 $(dna+46*6)="DDCCFCEEQBACGCXCADDCBBXCEBDABDDDIGCGEQFDACC"
10070 $(dna+46*7)="AGBAICECXAAAAAXIACHHCCEEAAAKEECCCCIICBBLFEE"
10080 $(dna+46*8)="ACDBFBBFXCDADCXECACBACCDCCBDEEDHHHDAAMLCCFG"
10230 OSCLI "SAVE Example "+STR$~tm+"+200 0 0"
10240 CLS:END
32700 DEFPROCa(A$,B$):VDU22,&87:G%=(40-(LENA$))/2:H%=(40-(LENB$))/2:FORT%=8TO9:PRINTTAB(G%-1,T%);CHR$141;CHR$130;A$:NEXT
32701 PRINTTAB(18,12);CHR$134;"by"TAB(H%-1,14);CHR$134;B$TAB(7,24)CHR$130;"Press any key to continue";:G=GET:CLS:ENDPROC