100 POKE53280, 0:POKE53281, 0:PRINT"[147][142]";
101 PRINT"[155][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]"
102 PRINT"[152]    LOADSTAR PROUDLY PRESENTS    "
103 PRINT"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
104 PRINT"                            "
105 PRINT" q                        q "
106 PRINT"      P O K E L E S S       "
107 PRINT" q                        q "
108 PRINT"       S P R I T E S        "
109 PRINT" [209] ---------------------- [209] "
110 PRINT"                            "
113 PRINT" q  15 P%(1)=255          q "
114 PRINT"    20 C%(1)=1              "
115 PRINT" q  25 X%(1)=100          q "
116 PRINT"    30 Y%(1)=100            "
117 PRINT" q  35 E%(1)=1            q "
118 PRINT"                            "
119 PRINT" [209]  THIS ROUTINE DOESN'T  [209] "
120 PRINT"   RECONNECT TO LOADSTAR.   "
121 PRINT" [209]                        [209] "
122 PRINT"   PRESS SPACE TO LOAD IT   "
123 PRINT" [209]  OR RETURN TO GO BACK  [209] "
124 PRINT"       TO LOADSTAR.         "
125 PRINT" [209]                        [209] "
126 PRINT"                            "
210 GETA$:IFA$<>CHR$(13)ANDA$<>" "THEN210
220 IFA$=" "THEN300
250 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
255 IFER<>63 THEN PRINT"[147]":END
256 POKE53281,0:POKE53280,0:PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
257 PRINT"RUN"
258 POKE631,13:POKE632,13:POKE198,2:END
300 PRINT"[147]":POKE214,10:PRINT:PRINT"              [208]LEASE WAIT..."
310 POKE147,0:SYS57812"POKELESS.O",8,1:SYS62631
320 PRINT"[147] [208][207][203][197][204][197][211][211] [211][208][210][201][212][197][211] [193][195][212][201][214][193][212][197][196]!"
325 SYS 52850