10 DV=PEEK(186):IFDV<8THENDV=8
100 PRINT"[147]":GOSUB160
110 POKE 53281,0:POKE 53280,0
120 PRINT"[144]":PRINT""
130 GOTO60000
140 PRINT"RUN"
150 POKE631,13:POKE632,13:POKE198,2:END
160 POKE53280,0:POKE53281,0:IFFTHENRETURN
170 PRINT"";
180 FORI=1TO23: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:PRINT""
190 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
200 POKE214,12:PRINT"[145]"TAB(4)"[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]"
210 FORI=1TO7:PRINTTAB(4)"[155]                                [151][223]":NEXT
220 PRINTTAB(4)"[152][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][151][223]"
230 PRINT"[151][169][169][169][169][169][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]"
240 POKE214,14:PRINT"[145][155]";
250 FORI=1TO5:READA$:GOSUB260:NEXT:GOTO270
260 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
270 GOSUB400:SYS49152
280 PRINT"[158][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]
282 [153]"SYSTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOONONONONON
290 PRINTTAB(13)"1[158].[159] [203]EYPAD [200]IGH"
300 PRINTTAB(13)"2[158].[159] [203]EYPAD [204]OW"
310 PRINTTAB(13)"3[158].[159] [204][207][193][196][211][212][193][210]
312 [153]"DEF(null)ROGRAM DOES NOT RETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)
320 GETA$:IFA$<"1"ORA$>"3"THEN320
330 IFA$="1"THENF$="NUMERIC PAD1"
340 IFA$="2"THENF$="NUMERIC PAD2"
350 IFA$="3"THENF$="HELLO CONNECT"
360 FORI=10TO0STEP-1:POKE781,I:SYS59903:NEXT:RETURN
370 DATA"[206][160][213] [205] [197] [210] [201] [195]   [203] [197] [217] [208] [193] [196]","BY [202]AMES [193]. [211]TEVENS
380 [131]"(null)1.0 (null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #108","(null)UBSCRIPTIONS 1-800-831-2694"
390 [131]"(LEN) 1993 (null)OFTDISK (null)UBLISHING"
400 [129]I[178]0[164]59:[135]X:[151]49152[170]I,X:[130]:[142]
410 [142]
420 [131] 162,011,160,037,173,017,208
430 [131] 016,251,189,048,192,153,080
440 [131] 216,153,120,216,153,160,216
450 [131] 153,200,216,153,240,216,153
460 [131] 024,217,136,192,001,208,233
470 [131] 165,162,197,162,240,250,202
480 [131] 016,214,096,234,234,234,000
490 [131] 011,012,015,001,001,001,001
500 [131] 015,015,012,011
60000 A$[178]F$:[129]I[178]8[164]16:[160]2:[159]2,I,2:[160]2:[139]ST[167]60020
60010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]60030
60020 [130]:[153]"LOAD":[151]186,8:[128]
60030 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD"
60040 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
60050 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]