100 POKE53280,0:POKE53281,0:PRINT"[147]	"
110 GOSUB 180
120 SYS57812"JUKEBOX.O",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
130 :
140 POKE 16387,8  :REM DEVICE NUMBER
150 POKE 16388,224 :REM COLOR PREFERENCE
160 PRINT "[147]":SYS16384:GOTO270
170 :
180 POKE214,15:PRINT: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][152]"
190 FORI=1TO3:PRINT"                                      ":NEXT
200 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #71     "
210 PRINT"      sUBSCRIPTIONS 1-800-831-2694    "
220 PRINT"           [193]LL [210]IGHTS [210]ESERVED        "
230 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]"
240 AU$="[193][205][197][210][201][195][193][206][193] [202][213][203][197][194][207][216]":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
250 AU$="[194]Y [196]EBBY [195]RUZ  ([195]) 1990":POKE214,18:PRINT
260 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN
270 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
280 IF ER<>63 THEN PRINT"[147]":END
290 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
300 PRINT"[158]LOAD"Q$A$Q$",8"
310 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END