10 SYS36864
12 POKE2048,0
20 PRINT"[147]"
40 FORI=0TO21:POKE828+I,8+I:NEXT
50 IFDV<8ORDV>29ORDV=8THEN70
60 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
70 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
80 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN100
90 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN110
100 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
110 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
120 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
130 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END