100 ------------------------------¢110 REM EEN TESTPROGRAMMA VOOR DE¢120 REM DE STICK ROUTINE. STICK¢130 REM MAAKT GEBRUIK VARIABELEN:¢140 ------------------------------¢150 X=160:REM DE POSITIE OP DE X-AS¢160 Y=95:REM DE POSITIE OP DE Y-AS¢170 MINX=%0:REM LINKERKANTLIJN¢180 MINY=%0:REM BOVENKANTLIJN¢190 MAXX=319:REM RECHTERKANTLIJN¢200 MAXY=191:REM ONDERKANTLIJN¢210 ------------------------------¢220 GRAPHICS 24¢230 COLOR 1¢240 ------------------------------¢250 DO ¢260 EXEC STICK¢270 PLOT X,Y¢280 LOOP ¢20000 ------------------------------¢20010 REM DE EIGENLIJKE PROCEDURE¢20020 ------------------------------¢20030 PROC STICK¢20040 S=STICK(%0)¢20050 X1=(S>4 AND S<8)-(S>8 AND S<12)¢20060 Y1=(S=5 OR S=9 OR S=13)-(S=6 OR S=10 OR S=14)¢20070 IF X1+X<MAXX AND X1+X>MINX THEN X=X+X1¢20080 IF Y1+Y<MAXY AND Y1+Y>MINY THEN Y=Y+Y1¢20090 ENDPROC ¢
