POKE#700,#7C,#FE,#EE,#EE,#FE,#FE,#EE,#00 POKE#708,#FC,#FE,#F6,#FC,#F6,#FE,#FC,#00 POKE#710,#7C,#FE,#FE,#F8,#FE,#FE,#7C,#00 POKE#718,#FC,#FE,#FE,#F6,#FE,#FE,#FC,#00 POKE#720,#FE,#FE,#FC,#FE,#FC,#FE,#FE,#00 POKE#728,#FE,#FE,#FC,#FE,#FE,#FC,#FC,#00 POKE#730,#7C,#FE,#F8,#F6,#FA,#FE,#7C,#00 POKE#738,#EE,#FE,#FE,#FE,#FE,#FE,#EE,#00 POKE#740,#FE,#7C,#7C,#7C,#7C,#7C,#FE,#00 POKE#748,#FE,#3C,#3C,#3C,#3C,#FC,#78,#00 POKE#750,#DE,#FE,#FC,#F8,#FC,#FE,#DE,#00 POKE#758,#F0,#F0,#FC,#FC,#FC,#FC,#FC,#00 POKE#760,#EE,#FE,#FE,#FE,#FE,#FE,#D6,#00 POKE#768,#CE,#EE,#FE,#FE,#FE,#EE,#E6,#00 POKE#770,#7C,#FE,#FE,#EE,#FE,#FE,#7C,#00 POKE#778,#FC,#FE,#F6,#FE,#FC,#F8,#F8,#00 POKE#780,#7C,#FE,#FE,#FE,#F2,#F4,#7A,#00 POKE#788,#FC,#FE,#FA,#FE,#FE,#FC,#F6,#00 POKE#790,#7C,#FE,#FA,#7C,#BE,#FE,#7C,#00 POKE#798,#FE,#FE,#FE,#FE,#FE,#FE,#7C,#00 POKE#7A0,#EE,#FE,#FE,#FE,#FE,#FE,#7C,#00 POKE#7A8,#EE,#FE,#FE,#FE,#FE,#7C,#7C,#00 POKE#7B0,#C6,#D6,#FE,#FE,#FE,#FE,#6C,#00 POKE#7B8,#EE,#FE,#FE,#7C,#FE,#FE,#EE,#00 POKE#7C0,#EE,#FE,#FE,#FE,#FE,#38,#38,#00 POKE#7C8,#FE,#7E,#FE,#FE,#FE,#FC,#FE,#00 10 CLS 20 A="ABCDEFG":GSB@P 30 A="HIJKLMN":GSB@P 40 A="OPQRSTU":GSB@P 50 A="VWXYZ":GSB@P 60 END 70 @P:P=0 80 @LP:C=PEEK(A+P):IFC=34?:RTN 90 IF(C>64)AND(C<91)C=C+224-65 100 ?CHR$(C);:P=P+1:GOTO@LP