@PRTTEXT
RESTORE "@"+LBL$
FOR Z=0 TO 2
READ TXT$
FOR I=0 TO LEN(TXT$)-1
WAIT 2
IF MID$(TXT$,I,1)=="&"THEN I=I+1:GOSUB@CL
COLOR CL
PRINT MID$(TXT$,I,1);
NEXT I:PRINT:WAIT 2
NEXT Z
RETURN
@CL
FOR CLI=0TO 15
IF MID$(TXT$,I,1)==HEX$(CLI)THEN CL=CLI
NEXT CLI
RETURN
@TXTDT0
DATA"ﾃ&4ｽﾄﾀﾞﾖ-ﾝ"
DATA"ｱ-ｱ-ﾃｽﾄﾃｽﾄ"
DATA"ﾃｽﾀﾏﾝ!?"
