10 POKE56,28:CLR:DV=PEEK(186):IFDV<8THENDV=8
100 DV=PEEK(186):IFDV<8THENDV=8
110 DELAY=116:POKE53280,0:POKE53281,0
120 PRINT"[147]";
130 FORI=8TO23:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT
140 PRINT"":FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
150 POKE214,9:PRINT"[145]"TAB(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
160 FORI=1TO11:PRINTTAB(2)"[159]                                    [155][146][223]":NEXT
170 PRINTTAB(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
180 PRINT"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
190 POKE214,10:PRINT"[145][159]";
200 FORI=1TO11:READA$
210 PRINTSPC(20-LEN(A$)/2)""A$:A$="":NEXT
220 DELAY=DELAY+1:J=PEEK(56320)AND16:GETA$:IF(A$="")ANDJ<>0ANDDEL<116THEN220
230 SYS57812"SFX.20 FX",DV,1:POKE780,0:POKE781,0:POKE782,32:SYS65493
232 SYS57812"SFX GENERATOR",DV,1:POKE780,0:POKE781,0:POKE782,32:SYS65493
234 SYS12288:GOTO40000
240 DATA"[211][207][213][206][196] [197][198][198][197][195][212][211] [199][197][206][197][210][193][212][207][210]","BY [210]EINER [210]ICHTER"
250 DATA"  ([195])1994 BY [211]OFTDISK [208]UBLISHING"
260 DATA"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
270 [131]"   (null)HIS IS THE COPYRIGHTED WORK OF
280 DATA"[211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], [206][207][212] INTENDED
290 [131]"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  (null)EPORT ANY ILLEGAL
300 DATA"DISTRIBUTION OF THIS PROGRAM BY   "
310 DATA"CALLING [211][207][198][212][196][201][211][203] [195]USTOMER SERVICE:
320 [131]"1-800-831-2694 OR 1-318-221-8718
10000 OPEN15,8,15,"S0:SFX BOOT":CLOSE15:SAVE"SFX BOOT",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END