?8 D\!:\?TD<<<<<<<<<<|><<<B~Bx<8D<< 8<< <<|B>>><B~BB<@<< << >~<<<<<|<<<<B~B<<<<<<|<<<<B~Bx8< 8 < 88Dx@88<<<(FBB@BBFFFB@fD88x8D(@FBBB(BF(@@B@fDx8BB@BH8x8888(FFF@@8DF@@8DFB@fB8|8x888xD888888888x(FF@@@DDF@@DDFB@fx(J@BJ@|D>JB|Z~D 0DDD<DD 0  DD 0DDJJ|@|D(>J@|DD>JB|ZD0HRNBBBHRRR|@BBDD8Db@@D<>bD@BBD  DDDDDD(@  DD @@ DDDbbB@@D(>b@@D<>bD@BD><<<<<|<<<B~Bx8<8x@ <><<<<<>~<><<B~B8D 8 |B~BB8x@ <<<~~<<<~~8D<~~8<B~B>D8@8@88<<@~<@~<|~B~<<<@~<<@~<~|~BB<<<@~@~|~B|D88D888D(F(F@@DDF@@DDFB@f@x8D888D(FBF@@8D(BB@@8DB@B@fB8|8x888xD888x8888x(FBB@@D8D@@D8DB@fB8H0DDD 0DJJ@|D(>J@|DD>JB|Z|0DDDD 0DJJ@|@(><@|@D><|B|Z~D 0DDD<DD 0 DD@00DDJ@|(>@(@|D>@DB|ZBDp<(xD DRR@@(R@@(DR|@B@D<(xD DRb@@(<>bD@B@DD(@D <b@b@@(>@B@@<>BBD@BBD  DDDDDD(@  DxDDDb@@@@(>(@@<><D@B@DD 8< < 88 ><><~~D<~~<B~B@8D< < 88 ><~<~~xD>~<~~x<<B~BB8 8|8D < <~~~~DxD~~xB~B@ 8B8888@8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888<< # <@PT8oh\\\th\phphphrhrhrh\X![ PP!88W K SR Pd71000:Define variables, constants and functions i 1 sRepeatedly ... x+5000:Check for joystick activation 3000 :Do calculations 4000:Do display 120x ... until < BREAK > is pressed >ax=0:ay=0:Horizontal and vertical acceleration *ux=0:uy=0:Initial velocity (vx=0:vy=0:Final velocity =sx=128:sy=85U:Horizontal and vertical position x=sx:y=sy:Plot coords 2axm=10 :aym=10 :Maximum acceleration  .vxm=30:vym=30:Maximum velocity 6sxm=255:sym=174:Maximum screen co-ords 4cc1=1.0:Constant for joystick effectiveness ,cc2=0.3:Constant for inertial decay 8wx=0:wy=0:'True; if 'wrap-around' occurs $+Find the remainder after the division a/b .+m(a,b)=((a/b)-(a/b))*b*a B3Check if the bit with weight b is set in number n L-Return 'true' flag if set, 'false' if clear V?t(n,b)=((n/b)/2)-((n/b)/2)0 b%Limit the number n to the range a-b d0x(n,a,b)=(nsxm sy<0 sy>sym) +w sx=m(sxm +sx,sxm):sy=m(sym+sy,sym) ux=vx:uy=vy 0 bdr=m(bdr+fire,8):bdr 1;x,y &p w=0 sx-x,sy-y:4030 1;x,y  x=sx:y=sy v=0 4050 0,0;" " 1,0;" " 2,0;" " (0,0;ax,ay 'vx,vy' sx,sy  Keyboard clip-on value=63486 !left=t(value,16)=0 value=61438 !right=t(value,4)=0 fwd=t(value,8)=0 !back=t(value,16)=0  fire=t(value,1)=0  "  P! 8 phMM\8, ;T> P P P 88  (@  \\;Q>BB<DHpHDB@@@@@~BfZBBBBbRJFB