2000 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(142)CHR$(8):X=2049
2010 DEFFNA(X)=PEEK(X)+256*PEEK(X+1)
2020 X=FNA(X):IFX<>0THENY=X+2:GOTO2020
2030 IFPEEK(Y+1)=173THENSYS(Y+1)
2040 IFPEEK(Y)=0THEN2080
2050 PRINT"THIS MESSAGE IS PROTECTED."
2060 INPUT"PLEASE ENTER PASSWORD ";K$
2070 FORZ=1TO8:N$=N$+K$:POKE49183+Z,ASC(MID$(N$,Z,1)):NEXT:POKEY,0
2080 PRINT"[147][159]         MESSENGER FILE-PLAYER"
2090 PRINT"[154]HOLD [153] CMDR [146][154] TO SPEED UP"
2100 PRINT"HOLD [153] SHFT [146][154] TO FREEZE DISPLAY"
2110 PRINTTAB(9)"[158]PRESS ANY KEY TO START":POKE198,0
2120 GETA$:IFA$=""THEN2120
2130 SYS49152,(Y+465):RUN