10 POKE53280,0:POKE53281,0:PRINTCHR$(14)
15 Q=PEEK(16385):IFQ<>114THENPRINT"[147][158][205]UST [204]OAD & [210]UN 'B.STARSHIP' [198]IRST!!":STOP
20 PRINT"[147][159][211]TARSHIP [201]NVASION [213]LTRAGEM"
30 PRINT"[158][213]NLIMITED [204]IVES? ([217]/[206])"
40 GETZ$:IFZ$=""THEN40
50 IFZ$="Y"THENPOKE16670,173:GOTO80
60 IFZ$="N"THENPOKE16670,206:GOTO80
70 GOTO40
80 PRINT"[158][213]NLIMITED [197]NERGY? ([217]/[206])"
90 GETZ$:IFZ$=""THEN90
100 IFZ$="Y"THENPOKE21140,173:GOTO130
110 IFZ$="N"THENPOKE21140,206:GOTO130
120 GOTO90
130 INPUT"[197]NTER [211]TART [204]EVEL (1-255)";S
140 IFS<1ORS>255THEN130
150 POKE20346,234:POKE20352,234
160 POKE20354,INT(S)
170 SYS16384
40000 PRINT"[147]":POKE53281,0:POKE53280,0
40010 U=828:FORI=0TO21:POKEU+I,8+I:NEXT
40020 IFDV<8ORDV>29ORDV=8THEN40040
40030 A=PEEK(U):B=PEEK(U+DV-8):POKEU,B:POKEU+DV-8,A
40040 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40050 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40070
40060 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40080
40070 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40080 Q$=CHR$(34):POKE646,0:PRINT"[147]":POKE53272,23
40090 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
40100 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END