10 W=51968:C=55296:POKE53280,0:POKE53281,0
20 FORK=49152TO49249:READM:POKEK,M:NEXT
30 FORK=0TO999:POKE1024+K,81:POKEC+K,0:NEXT:CC=1:K=0:S=0
40 GETA$:IFA$=""THENA=PEEK(C+K):POKEC+K,NOT(AAND1)AND(AOR1)
50 IFA$=CHR$(42)THENS=1:D=1:GOSUB150
60 IFA$=CHR$(13)THENPOKEC+K,S:GOTO210
70 IFA$=CHR$(29)THEND=1:GOSUB150
80 IFA$=CHR$(157)THEND=-1:GOSUB150
90 IFA$=CHR$(17)THEND=40:GOSUB150
100 IFA$=CHR$(145)THEND=-40:GOSUB150
110 IFA$=CHR$(32)THENS=0:D=1:GOSUB150
120 GOTO40
150 POKEC+K,S:K=K+D:IFK>999ORK<0THENK=K-D
160 S=PEEK(C+K):RETURN
210 FORK=0TO1133:POKEW+K,0:NEXT:CC=CC+1:IFCC>15THENCC=1
220 SYS49152
270 FORI=1TO25:FORJ=1TO40:M=C+(I-1)*40+J-1
280 ONPEEK(W+I*42+J)+1GOTO300,300,310,290,300,300,300,300,300
290 POKEM,CC:GOTO310
300 POKEM,0
310 NEXTJ,I:GOTO210
1000 DATA169,39,133,253,169,0,133,254,169,216
1010 DATA133,255,169,0,141,36,192,169,203,141
1020 DATA37,192,160,0,177,254,41,15,240,11
1030 DATA160,7,190,90,192,254,17,17,136,16
1040 DATA247,238,36,192,208,3,238,37,192,198
1050 DATA253,16,18,169,39,133,253,24,173,36
1060 DATA192,105,2,141,36,192,144,3,238,37
1070 DATA192,230,254,208,2,230,255,165,254,201
1080 DATA232,208,195,165,255,201,219,208,189,96
1090 DATA0,1,2,42,44,84,85,86