Example SCREEN EDITOR ();"1"  (n2 tex()+< l tex(l) (Z)FHOM()"H"PCL()"E"HOM;Z A(,)()"Y"( )()dco()"e"ncof()"f" x cl ."" ""u()  "  $   %  Z %   &   Z  a(,);()(tex(),,)()\  a(,);(n)(tex(),,)(n) a(,);""; ) ****CHANGE CURRENT CHARACTER******2 a(, );"INPUT NEW CHARACTER"; n1 a(, );"CURRENT IS";(n); ()" *****PRINTER BIT ******, p 6 pd(tex(p))%@ REMOVE IF NO CR LF IS NEEDEDJT  "READY" B ***** gosub 5020(HERE) TO SET UP PRINTER CODE FIRST! *****  PD V   H"&H"!R&(H) ,RVVR4 V7 "ERROR IN DATA LINES"    AF,46,B8,C8,23,5E,23,56 D5,C5,AF,6F,67,57,1E,08 19,10,FD,1E,1B,CD,0E,C2( 1E,4C,CD,0E,C2,5D,CD,0E2 C2,5C,CD,0E,C2,C1,D1,D5< C5,AF,67,47,1A,6F,11,00F 38,29,29,29,19,11,06,C2P 0E,08,F3,3E,82,D3,F0,EDZ B0,3E,84,D3,F0,FB,0E,08d 21,06,C2,AF,5F,06,08,CBn 06,CB,13,23,10,F9,CD,0Ex C2,0D,79,FE,00,20,E9,C1 D1,13,10,C3,C9,C3,05,00 CB,CB,FD,FB,C2,E5,D5,C5 0E,05,CD,05,00,C1,D1,E1  C9 C2,0D,79,FE,00,20,E9,C1 D1,13,10,C3,C9,C3,05,00 CB,CB,FD,FB,C2,E5,D5,C5 0E,0