90 PRINT"[147]MESSENGER64 MUST BE LOADED FIRST"
95 FORD=1TO3000:NEXT
100 M$="THIS[160]IS[160]THE[160]TOP[160]LINE":REM USE SHIFT-SPACE
110 L=LEN(M$)
120 FORI=1TOL
130 C=ASC(MID$(M$,I,1)):POKE828+I-1,C+64
140 POKE828+L+I,1:NEXT
150 SYS51203,2,828,1024,L-1
160 SYS51203,3,828+L+1,55296,L-1
170 PRINTTI
180 GETA$:IFA$=""THEN170