5 IFPEEK(828)<>173THENLOAD"LINELOCKER.O",8,1
10 X=RND(-TI):PRINT"[147]":GOSUB70
20 PRINT"[159]"TAB(5)"[208]RESS [211][208][193][195][197][159] FOR [196]EMO [209][159] TO [209]UIT"
21 GETA$:IFA$<>" "ANDA$<>"Q"THEN21
22 IFA$="Q"THEN60000
23 PRINT"[147][159] [211][212][193][212][197]      [153] [210][197][199][201][207][206][193][204]    [206]ATIONAL   "
24 PRINT"";:SYS828
25 FORI=1TO100:PRINT"[159]"RND(0)*500;
26 PRINTTAB(12)"[153]"RND(0)*1000;
27 PRINTTAB(24)""RND(0)*2000;
40 PRINT:NEXT:SYS828:RESTORE:GOTO10
69 STOP
70 POKE53280,0:POKE53281,0:IFFTHENRETURN
80 POKE214,10:PRINT"[145]";
90 FORI=1TO13: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""
100 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
110 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]"
120 FORI=1TO7:PRINTTAB(4)"[155]                                [151][146][223]":NEXT
130 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][146][223]"
140 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]"
150 POKE214,14:PRINT"[145][155]";
160 FORI=1TO5:READA$:GOSUB170:NEXT:GOTO180
170 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
180 RETURN
190 DATA"[201][206][212][197][210][213][208][212] [196][197][205][207]","BY [202]EFF [202]ONES"
200 DATA"[214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #81","[211]UBSCRIPTIONS 1-800-831-2694"
210 DATA"[195]OPYRIGHT ([195]) 1991 [211]OFTDISK"
60000 A$="HELLO CONNECT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
60010 IF ER<>63 THEN PRINT"[147]":END
60011 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60020 PRINT"LOAD"Q$A$Q$",8"
60030 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END