100 POKE53600,0
110 PRINT"
120 PRINT"
130 PRINT"
140 :
150 :
160 POKE55,0:POKE56,16:CLR
170 FORI=0TO17:READY:POKE49152+I,Y:NEXT
180 DATA162,0,189,250,255,32,210,255,169,0,133,212,232,224,40,144,241,96
190 A=4096+40:L=0:FORI=A−40TOA:POKEI,32:NEXT
200 :
210 GETA$:IFA$=""THEN210
220 IFA$=CHR$(20)THENL=L−1:L=L*−(L=L*SGN(L)):GOTO250
230 IFA$=CHR$(13)THEN280
240 POKEA+L,ASC(A$):L=L+1
250 PRINT"":POKE49155,(A+L−40)AND255:POKE49156,(A+L−40)/256:SYS49152
260 GOTO210
270 :
280 OPEN15,8,15,""
290 OPEN2,8,2,""
300 PRINT#2,CHR$(0)CHR$(11);
310 FORI=ATOA+L−1:PRINT#2,CHR$(PEEK(I));:NEXT:PRINT#2,CHR$(0);
320 CLOSE2:PRINT""
READY.
