Character Designer By Paul Kennedy February 1989 (  2  < vFxyP cursor movement5Zchnu(((c)))(((c))),du "" () An gri(c,c) ()"q"  ()"p"ex a(c,c);()    a(c,c);" "     ()"q" dJ  c ccyy y yK  c ccyy y yI  c ccxx x xJ  c2 ccxx x x   p P 6 S s  P Set and unset7gri(c,c)gri(c,c)mchar(chnu,y)char(chnu,y)(gridva(c,c)gri(c,c)) a(8, chnu); ( ) a(9, chnu);  "(char(chnu,))|(,()) ;  ",";    z@" a(ch(chnu),ch(chnu));(chnu) , n6 Print numbersf@ a(,); "Input design name:";de a(,);"Is the printer ready (Y/N)? "Ju "" J?T "Y" "y" ^  a(,); (() PA^ "Numbers to be used in DATA statements for design:";deh1r    ();  ();| ;" ";:   char(,);  ",";  ! a (,); (() P Start again7 a(,);"Start again - are you sure (Y/N)?"u "" = "Y" "y"  a(,); (() P initialise!cl()"E"()"H"; a(,)()"Y"( )( )7 cl a(!,);"One Moment Please......"  a-zL gri(,0),gridva(,0),char(,),ch(),ch()D    0gri(,)  O 0   0  0 g gc 0 g.&gridva(,)g  0 128,64,32,16,8,4,2,1,99$:ccxy D >'N chnu  z chnu=X b   ch() ch() `b 56,5,57,5,58,5,59,5,60,5,61,5,56,6,57,6,58,6,59,6,60,6,61,6,56,7,57,7,58,7,59,7,60,7,61,7lv Set Up Screen2 ()"0" windo(,,Z, ) clhxywYdsor xyw2dsor x7ywdsor xDywsor x5yw$dsor  ()"H" a(,);"'SPACE' toggles cell on and off. Press 'P' to print numbers, 'S' to start again." a(,);"Use the arrow keys to move the cursor." a(E,);"01 02 03 04 05 06" a(E,);"07 08 09 10 11 12" a(E,);"13 14 15 16 17 18" a(6, );"NO---NUMBERS FOR DATA STATEMENTS--"  ?  "0"|("(),)  |("(),)% a(6, );  Draw Box Subroutinew a(x,y);((sor));  w ((sor));  ((sor));  d a(x,y);((sor)); a(xw,y);((sor))  a(x,yd);((sor));  w ((sor));  ((sor));   ()"f"u* windo(co,ro,wid,hig)()"X"(ro )(co )(hig)(wid)4> Design Characters H \>R  hep  p he,p heO\ 243,62,129,211,241,62,130,211,242,175,95,103,22,184,58,153,192,111,41,41Of 41,25,17,154,192,235,1,8,0,237,176,62,133,211,241,62,134,211,242,251,201pz ,chnuC ro  ro,char(chnu,ro) rocp cK* ************** Use This Routine In Your Programs ******************* + +> +  hep  p he,p heO+ 243,62,129,211,241,62,130,211,242,175,95,103,22,184,58,153,192,111,41,41O + 41,25,17,154,192,235,1,8,0,237,176,62,133,211,241,62,134,211,242,251,201$*+ cha  ,chaQ4+ ro  binar(ro) ro,(binar(ro)) ro >+cp c chaAH+ ************* DATA Statements Start Here *****************binar(r