10 POKE53280,0:POKE53281,0:PRINTCHR$(147)CHR$(14)CHR$(8)
20 GOSUB61000
22 POKE214,6:PRINT:PRINTTAB(11)"[159][196] [207] [211] - [205] [193] [211] [212] [197] [210]"
30 POKE147,0:SYS57812"DOS.O",8,1:SYS62631
40 SYS49152:PRINTCHR$(142):END
61000 POKE214,15:PRINT
61110 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]"
61120 PRINT"  [152]                                    "
61130 PRINT"                                      "
61140 PRINT"                                      "
61150 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #60     "
61160 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
61180 PRINT"                                      "
61190 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]"
61200 AU$="[196][207][211]-[205][193][211][212][197][210]":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="BY [193]NDREW [204]ITTLE  (C) 1989":POKE214,18:PRINT
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$""
61230 RETURN