5 POKE53281,0:POKE53280,0: PRINT"[147]"
10 DV=PEEK(186):IFDV<8THENDV=8
20 GOSUB41000
30 Q$=CHR$(34):PRINT"[144]LOAD"Q$"QUESTREADER"Q$","DV
35 PRINT"RUN":PRINT"[154]     [196]OES [206][207][212] [210]ETURN TO [204][207][193][196][211][212][193][210]"
40 PRINT"        [208]RESS <[209]> TO [209]UIT NOW[158]"
41 FORX=0TO5:READA$:PRINTTAB(19-LEN(A$)/2)A$:NEXT
44 GETZ$:IFZ$<>""THEN49
45 Q=Q+1:IFQ<30THEN44
46 Q=0:POKE646,(PEEK(646)+8)AND15:PRINTTAB(19-LEN(A$)/2)A$:GOTO44
49 PRINT"[144]":IFZ$="Q"THEN40000
50 POKE631,13:POKE632,13:POKE198,2:END
9999 END
10000 D=PEEK(186):N$="0:B.LOTTERY":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 POKE53280,0:POKE53281,0:POKE53265,27:DV=PEEK(186):Q$=CHR$(34):PRINT"[147][144]";
40010 A$="HELLO CONNECT":R$=CHR$(13)+"R[213]"+CHR$(13):Q$=CHR$(34)
40020 CLOSE2:OPEN2,DV,2,A$:GET#2,B$:CLOSE2:IFST=0THEN40050
40030 OPEN15,DV,15,"I0":INPUT#15,EN:CLOSE15
40035 POKE53280,14:POKE53281,6:PRINT"[147][154]"
40040 POKE44,8:POKE8*256,0:POKE55,0:POKE56,160:CLR:NEW
40050 PRINT"LOAD"Q$A$Q$","DV""
40055 FORX=1TO4:POKE630+X,ASC(MID$(R$,X)):NEXT:POKE198,4:GOTO40040
41000 POKE53280,0:POKE53281,0:POKE53272,22:PRINT"[147]"
41002 POKE214,14:PRINT
41004 PRINTTAB(1)"[155]                                     "
41005 FORX=1TO6
41006 PRINTTAB(1)"[152]                                     "
41007 NEXT
41013 PRINTTAB(1)"[151]                                     "
41020 FORX=1TO4:READA$:POKE214,15+X:PRINT
41022 PRINTTAB(19-LEN(A$)/2)"[152]"A$
41024 NEXT
41030 T=TI+60
41031 IFT>TITHEN41031
41032 PRINT"":RETURN
41050 DATA"[204] [207] [212] [212] [197] [210] [217][160]  [209] [213] [197] [211] [212]
41051 [131]"BY (null)ILLIAM (null)AABS & MID$ON (null)ATTSON
41052 DATA"(C) 2000 BY [202] & [198] [208]UBLISHING, [201]NC.
41053 [131]"WWW.LOADSTAR.COM
50000 DATA"[158][215]HEN ASKED FOR A [198][201][204][197] [206][193][205][197], "
50001 DATA"TYPE AND [197]NTER:"
50002 DATA""
50003 DATA"[204][207][212][212][197][210][217]"
50004 DATA""
50005 DATA"[208]RESS A [203]EY TO [195]ONTINUE[145]"