5 POKE53280,0:POKE53281,0
21 PRINT"[147][152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
22 PRINT"[221]          [218][197][210][207] [208][193][199][197] : [194]YTES           [152][221]";
23 PRINT"[152][221]         [150]'[209] & [196] [204]INE [204]OCKER'          [152][221]";
24 PRINT"[221]             [153][194]Y [202]IM[160][210]OW               [152][221]";
25 PRINT"[221]           [154][195]OPYRIGHT 1988             [152][221]";
26 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
27 POKE770,131:POKE771,164:POKE816,165:POKE817,244: REM DISABLES FASTLOAD CART.
28 POKE88,0:POKE89,191:POKE90,0:POKE91,191:POKE781,33:POKE782,0
29 SYS41964
30 POKE88,0:POKE89,255:POKE90,0:POKE91,255:POKE781,33:POKE782,0
31 SYS41964
32 POKE59639,5
33 POKE1,53
34 PRINT""
40 PRINT"[158]   [215]ELCOME TO [218][197][210][207] [208][193][199][197][160]: [194]YTES [196][197][205][207]
42 [153]" (null)ITH ONLY A FEW (null)(null)(null)VALS YOU CAN KEEP THE
43 PRINT" TOP OF YOUR SCREEN FROM SCROLLING OFF.
44 [153]" (null)HIS CAN BE EASILY USED IN PEEKULLETIN
45 PRINT" [194]OARD PROGRAMS, WORD PROCESSORS AND
47 [153]" MANY OTHER PROGRAMS.  (null)HE USES ARE
48 PRINT" UNLIMITED.
49 [153]" ASCOR MORE INFORMATION ON HOW '(null) & STR$"
50 [153]" (null)INE (null)OCKER' WORKS, READ THE ARTICLE"
51 [153]" IN (null)VAL(null)(null) (null)ATNCHR$VALCLOSE: PEEKYTES.
52 PRINT"   [208]RESS [211][208][193][195][197][146] WHEN READY TO CONTINUE"
54 GETA$:IFA$<>" "THEN54
55 FORI=0TO25:PRINT"":FORT=1TO25:NEXT:NEXT
56 PRINT"        1)  [210][197][210][213][206] [196]EMO
57 [153]"        2)  VALXIT TO PEEKATN(null)RIGHT$LEN
58 PRINT"        3)  [197]XIT TO [158][204][207][193][196][211][212][193][210]"
59 PRINT"       [197]NTER [217]OUR [211]ELECTION
60 [153]""
65 [161] A$:[139]A$[178]""[167]65
66 [145] [197](A$) [137] 100,200,300
67 [137] 65
100 [153]"LOAD":[137] 5
200 [153]"ON (null)(null)RIGHT$(null) TO PEEKATN(null)RIGHT$LEN : ATNRE YOU SURE? ((null)/(null))
201 GETA$:IFA$=""THEN201
202 IFA$="Y"ORA$="[217]"THEN 210
203 IFA$="N"ORA$="[206]"THEN 55
205 GOTO 201
210 PRINT"[206][207][212][197][160]: [194]EFORE RELOADING '[211][212][193][210]' YOU MUST
211 [153]" RESET PEEKATN(null)RIGHT$LEN AND (null)VAL(null)(null)ATN(null) BY...
214 PRINT" [208][207][203][197]ING 1 WITH 55 ([208][207][203][197] 1, 55)  [207]R
215 [153]" BY TURNING YOUR COMPUTER (null)ASCASC AND THEN
216 PRINT" BACK ON.":END
300 PRINT"[145] [197][216][201][212] TO [204][207][193][196][211][212][193][210] : [193]RE YOU SURE? ([217]/[206])
301 [161]A$:[139]A$[178]""[167]301
302 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 310
305 [139]A$[178]"(null)"[176]A$[178]"N"[167] 55
306 [137] 301
310 [151]1,55:[153]"LOAD"
311 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15
312 [139]ER[179][177]63 [167] [153]"LOAD":[128]
313 [147]"HELLO CONNECT",8,1