11 lines
569 B
Plaintext
11 lines
569 B
Plaintext
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
|