10 DV=PEEK(186):IFDV<8THENDV=8
20 DELAY=116:POKE53280,0:POKE53281,0
30 PRINT"[147]";
40 FORI=8TO23: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
50 PRINT"":FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
60 POKE214,9:PRINT"[145]"TAB(2)"[153][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][164][164][164][164]"
70 FORI=1TO11:PRINTTAB(2)"[159]                                    [155][146][223]":NEXT
80 PRINTTAB(2)"[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][146][155][223]"
90 PRINT"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
100 POKE214,10:PRINT"[145][159]";
110 FORI=1TO11:READA$
120 PRINTSPC(20-LEN(A$)/2)""A$:A$="":NEXT
130 SYS57812"LAZERTECH",DV,0:POKE780,0:POKE781,0:POKE782,16:SYS65493
150 DATA"* [204] [193] [218] [197] [210] [212] [197] [195] [200] *","WRITTEN BY [212]ERRY [204]. [198]LYNN"
160 DATA"  ([195])1995 BY [211]OFTDISK [208]UBLISHING"
170 DATA"[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]
180 [131]"   (null)HIS IS THE COPYRIGHTED WORK OF
190 DATA"[211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], [206][207][212] INTENDED
200 [131]"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  ASCOR INFORMATION ON"
210 [131]"(null)(null)ATNSTR$(null)(null)ATN(null) AND (null)(null)ATNSTR$(null)(null)ATN(null) PRODUCTS,   "
220 [131]"CALL (null)(null)ASC(null)STR$RIGHT$(null)(null) LENUSTOMER SERVICE AT"
230 [131]"1-800-594-3370 OR 1-318-221-8718
300 SYS25915
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END