> LineCont : 9pdev%=0:nobj%=1:y=1:p=2:r=3: yaw(1),pitch(1),roll(1) (: 2ok%=: ok%=: < ok%:1 F0"Evaluate OP \ ... \ ";not(ok%) P: Zok%=: ok%=: d ok%:2 n0"Evaluate \ ... \ OP ";not(ok%) x: ok%=: ok%=: ok%:3 9"Evaluate OP \ ... \ OP ";not(ok%) : ok%=: ok%=: ok%:4 /"Evaluate ^ \ ... \ ";not(ok%) : ok%=: ok%=: ok%:5 /"Evaluate \ ... \ ^ ";not(ok%) : ok%=: ok%=:  ok%:6 ,"DIM var(1, 2, \ ... \ 3, 4)";not(ok%) : "ok%=: ok%=: , ok%:7 6-"DIM var(1, 2 \ ... \ , 3, 4)";not(ok%) @: Jok%=: ok%=: T ok%:8 ^%13;"PRINT over lines";not(ok%) h: rok%=: ok%=: | ok%:9 2"FN(...) calling DEFFN(\...\)=";not(ok%) : ok%=: ok%=:  ok%:10 ."FN(...) calling DEFFN(\...\)=";not(ok%) : ok%=: ok%=:  ok%:11 -"FN(\...\) calling DEFFN(...)";not(ok%) : ok%=: ok%=:  ok%:12 4"FN(\...\) calling DEFFN(\...\)=";not(ok%) : ok%=: ok%=:  ok%:13 &0"FN(\...\) calling DEFFN(\...\)=";not(ok%) 0: :ok%=: ok%=: D ok%:14 N413;"FN(...) calling DEFFN(...)=\..\";not(ok%) X: bok%=: ok%=: l ok%:15 v5"PROC(\...\) calling DEFPROC(...)";not(ok%) : ok%=: ok%=:  ok%:16 <"PROC(\..arrays..\) calling DEFPROC(...)";not(ok%) : ok%=: ok%=:  ok%:16a ;"PROC(\..arrays.\) calling DEFPROC(...)";not(ok%) : ok%=: ok%=:  ok%:17 5"PROC(...) calling DEFPROC(\...\)";not(ok%) : ok%=: ok%=:  ok%:18 7"PROC(\...\) calling DEFPROC(\...\)";not(ok%)  : *ok%=: ok%=: 4 ok%:19 >3"PROCname calling DEFPROCname \...\";not(ok%) H: Rok%=: ok%=: \ ok%:20 f4"PROCname calling DEFPROCname: \...\";not(ok%) p: z : .ݤnot(A%)=" "+44-,".")+"not ",A%)+"ok" :  Test subroutines  ---------------- 1 "_one=1:_two=2:_three=4:_four=8 5rbBand% = _one _two \ mask options together \ _three _four  : 2 "_one=1:_two=2:_three=4:_four=8 ,rbBand% = _one \ mask options together \ _three _four  $: .3 8"_one=1:_two=2:_three=4:_four=8 B3rbBand% = _one _two \ mask options together L\ _three _four V `: j4 t a=1:b=2 ~ c = a ^ \ \ b  : 5  a=1:b=2  c = a \  \ ^ b  : 6 ) ArmBand1(1, 1, \ long definition \ 1, 1)   : 7 ( ArmBand2(1, 1 \ long definition (\ , 1, 1) 2 <: F8 P! "The quick brown";\ prelude Z%\ " fox"; \ subject d"\ " jumps"; \ verb n)\ " over"; \ conjunction x$\ " the lazy dog"; \ object  \ "."  : 9 "A%=_cw(0,"","",1,2,3,4,5,6,7)  : 10 "A%=_dw(0,"","",1,2,3,4,5,6,7)  : 11 A%=_wi(0 \ \ ,"", \ \ "", \ \ 1,2,3,4,5,6,7) " ,: 612 @A%=_cw(0 \ J\ ,"", \ T\ "", \ ^\ 1,2,3,4,5,6,7) h r: |13 A%=_dw(0 \ \ ,"", \ \ "", \ \ 1,2,3,4,5,6,7)  : 14 ) A%=1 12:13;A%;" ";month(A%);:  : 15 /rend(pdev%, \ pointer to Direct3D device )\ nobj%, \ number of objects !\ y, \ yaw angle #\ p, \ pitch angle "\ r) \ roll angle &\ 0 :: D16 N1render(pdev%, \ pointer to Direct3D device X+\ nobj%, \ number of objects b-\ yaw(), \ array of yaw angles l/\ pitch(),\ array of pitch angles v.\ roll() \ array of roll angles \ )  :  16a 1render(pdev%, \ pointer to Direct3D device +\ nobj%, \ number of objects -\ yaw(), \ array of yaw angles /\ pitch(),\ array of pitch angles .\ roll()) \ array of roll angles \  : 17 -redraw(pdev%,nobj%,yaw(),pitch(),roll())   :  18 *-update(pdev%,nobj%,yaw(),pitch(),roll()) 4 >: H19 Rone \ f: p20 ztwo  : & Routines called by test routines & -------------------------------- :ݤ_cw(h%, s$, t$, \ handle and strings 5\ p1%, p2%, p3%, \ parameters :\ p4%, p5%, p6%, p7%\ more parameters \ ) =0 : :ݤ_dw(h%, s$, t$, \ handle and strings 5\ p1%, p2%, p3%, \ parameters :\ p4%, p5%, p6%, p7%\ more parameters \ )=1 : :ݤ_wi(h%, s$, t$, p1%, p2%, p3%, p4%, p5%, p6%, p7%)=2 $: .ݤmonth(mon%) \ 8W\ ="JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember", \ B1\ "010816212629333743525967",mon%*2-1,2), \ L\ "785534469788",mon%,1)) V: `rend(pd%,no%,y,pi,rl) j t: ~#render(pd%,no%,y(),pi(),rl())  : redraw(pd%, \ \ no% \ \ ,y(), \ \ pi(),rl())  : update(pd%, \ \ no% \ \ ,y(), \ \ pi(),rl() \ \ )  :  one \ (\ 2: < two: \ F\