' > PROCs - display PROC def blocks 3-256="W":fred:jim(0):sheila(0):hazel(0,0) 5-256="W":roger(0,0):sophie(0,0):richard(0,0) (3A%=^fred:A%=^jim():A%=^sheila():A%=^hazel() 2-A%=^roger():A%=^sophie():A%=^richard() <: F*pointer 1 P*10;: A%=0 24:h0(A%,1);" ";:: Z5-256="W":st%=!^fred -16 st%=!(^fred+4)-16 d7-256="W":en%=!^richard()+24 en%=^richard()+24 nadd%=st%: x@ h0(add%,8);" ";: a%=add% add%+23: h0(?a%,2);" ";:: ? 9; : a%=add% add%+23:" ";c(?a%);" ";:: add%=add%+24: add%>=en% A"^PROCfred =&";~^fred ;" ^PROCjim() =&";~^jim() ; G" ^PROCsheila() =&";~^sheila();" ^PROChazel() =&";~^hazel() B"^PROCroger()=&";~^roger();" ^PROCsophie()=&";~^sophie(); '" ^PROCrichard()=&";~^richard()  #ݤh0(A%,N%)="0000000"+~A%,N%) 3ݤc(A%):A%=A%127: A%=127 A%<32:="." = A% : fred: jim(A%): sheila(A% \ comment \ )  hazel(A%, \ comment "\ B%) , 6roger(A% \ comment @\ ,B%) J Tsophie(A%, \ comment ^\ B% \ comment h\ ) r |richard(A% \ comment \ ,B% \ comment \ )   15 /rend(pdev%, \ pointer to Direct3D device )\ nobj%, \ number of objects !\ y, \ yaw angle #\ p, \ pitch angle "\ r) \ roll angle \  : rend(pd%,no%,y,pi,rl)