Sinclair ZX Series - Page 9

70 GOTO 40
80 GOSUB 500
90 GOTO 80
100 GOSUB 500
110 PLOT X,Y
120 UNPLOT X,Y
130 GOTO 100
500 IF INKEY$="1" THEN GOTO 40
510 IF INKEY$="2" THEN GOTO 80
520 IF INKEY$="3" THEN GOTO 600
530 IF INKEY$="4" THEN GOTO 100
540 IF INKEY$="5" THEN LET X=X-1
550 IF INKEY$="6" THEN LET Y=Y-1
555 IF Y=43 THEN GOTO 565
560 IF INKEY$="7" THEN LET Y=Y+1
565 IF X=63 THEN GOTO 590
570 IF INKEY$="8" THEN LET X=X+1
590 RETURN
600 COPY
Program 6
1 REM U RND.U RND .TAN..
2 IF PEEK 16388+256*PEEK 16389=31744 THEN GOTO 5
3 PRINT "MEMORY NOT RESERVED"
4 STOP
5 FOR I=0 TO 112
6 POKE 31744+I, PEEK(2161+I)
7 NEXT I
8 POKE 31800,63
9 POKE 31857,201
10 POKE 16517,95
11 POKE 16524,79
12 DIM A$(32,256)
30 FOR I=0 TO 240
40 LET X=128+30*SIN(I/60*PI)
50 LET Y=128+120*COS(I/120*PI)
60 GOSUB 9980
70 LET X=128+120*COS(I/120*PI)
80 LET Y=128+30*SIN(I/60*PI)
90 GOSUB 9980
100 LET X=128+40*SIN(I/120*PI)
110 LET Y=128+40*COS(I/120*PI)
120 GOSUB 9980
130 LET X=128+80*SIN(I/120*PI)+20*SIN(I/60*PI)
140 LET Y=128+80*SIN(I/120*PI)-20*SIN(I/60*PI)