0  IF T THEN  FOR Q = 0 TO T STEP 0: XDRAW T AT X * S,H - Y * S:D =  FN M(D + D( PEEK (234)) + F):X = X + X(D):Y = Y + Y(D):Q = X > M OR X < 0 OR Y > M OR Y < 0: NEXT Q: END : DATA 100,50,50,3,220,1,4,-1,1,1,1,-1,-1
 1  HGR : SCALE= 1: ROT= 0
 2  LET S$ =  CHR$ (1) +  CHR$ (0) +  CHR$ (4) +  CHR$ (0) + "5'" +  CHR$ (0)
 3  POKE 236, PEEK (131): POKE 237, PEEK (132)
 4  LET S =  PEEK (236) +  PEEK (237) * 256 + 1
 5  POKE 232, PEEK (S)
 6  POKE 233, PEEK (S + 1)
 7  READ M,X,Y,S,H,T,F,D(0),D(4),Y(0),X(1),Y(2),X(3)
 8  DEF  FN M(N) = N -  INT (N / F) * F
 9  GOTO