1 REM "B.MU-TORERE" 2000.09.06
2 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB100:DV=PEEK(186):IFDV<8ORDV>29THENDV=8
3 PRINT"[144]LOAD"CHR$(34)"MU-TORERE"CHR$(34)","DV:PRINT"RUN:"
4 POKE214,17:PRINT:POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
100 Z$=" [152]                                      ":POKE214,5:PRINT
102 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO10:PRINTZ$:NEXT
104 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
106 Z$(0)="[205] U - [212] O R E R E":Z$(1)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
108 Z$(2)="BY [204]ANCE [195]. [212]HOMAS":Z$(4)="([195]) 2000 BY [202] & [198] [208]UBLISHING, [201]NC."
110 Z$(5)="[212]HIS PROGRAM IS NOT SHAREWARE":Z$(6)="OR IN THE PUBLIC DOMAIN."
112 Z$(8)="1-318-868-8727"
114 POKE214,7:PRINT:FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
10000 A$="B.MU-TORERE"
10010 DV=PEEK(186):OPEN15,DV,15,"S0:"+A$:CLOSE15:SAVEA$,DV:END