1 'ANAGMA 2 CLS:CLV 3 WAIT70:LC11,11:?"<<";:WAIT10:?"A";:WAIT10:?"N";:WAIT10:?"A";:WAIT10:?"G";:WAIT10:?"M";:WAIT10:?"A";:WAIT10:?">>":WAIT70 14 CLS:LC10,1:?"MODE CHOICE":LC11,7:?"ENCODE: 1":LC11,9:?"DECODE: 2" 16 K=INKEY():IFK=49Q=1:GOTO20ELSEIFK=50Q=2:GOTO20 18 GOTO16 20 CLS:CLK:W=0:LC1,2:?"PLEASE INPUT 12 DIGIT CODEKEY" 22 LC10,4:?"<4 DIGIT x3>" 25 FORG=0TO2 30 LC12,12+2*G:INPUTN:IFN>9999ORN<1000GOTO30 40 A=4*G:GSB400:NEXT 140 CLS:LC0,0:?"INPUT:":LC0,12:?"OUTPUT:" 160 K=INKEY():CLK:IFK=0ORK=10ORK=9GOTO160 170 IFK=24POKE#AA0+I,95+(Q=1)*[W]-(Q=2)*[W]:POKE#920+I,95:GOTO330 175 IFK=127RUN 178 IFK<>8GOTO190 180 IFI=0POKE#920,0:POKE#AA0,0:GOTO160 182 IFW>-1&&I>-1I=I-1:W=W-1:POKE#920+I,0:POKE#AA0+I,0:GOTO160 184 IFW<0W=11:GOTO182 186 IFI<0GOTO160 190 IFW<0W=11 200 POKE#920+I,K 320 POKE#AA0+I,K+(Q=1)*[W]-(Q=2)*[W] 330 I=I+1:W=W+1:IFW=12W=0 350 IFI=320I=0 360 GOTO160 400 [A]=N/1000:[A+1]=(N%1000)/100:[A+2]=((N%1000)%100)/10:[A+3]=((N%1000)%100)%10:RTN