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
60000 DV=PEEK(186):N$="H":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END