10 CLS : CLEARSPRITE : SETBGCOLOR 50,80,128
20 gotoxy 0,8
30 FNTPRINT "SELECT TO QUIT"
35 FNTPRINT "START TO CHANGE REZ"
36 init3d
40 LOADTIM "redphog.tim"
50 LOADTMD "tor.tmd"
55 setobject 0,0
60 x = 0 : y = 0 : z = 10000
70 rx = 0 : ry = 0 : rz = 0
80 SHOWOBJECT 0
90 v = 368
100 IF PAD AND 16384 THEN y = y+50
110 IF PAD AND 4096 THEN y = y-50
120 IF PAD AND 32768 THEN x = x+50
130 IF PAD AND 8192 THEN x = x-50
140 IF PAD AND 1 THEN z = z-50
150 IF PAD AND 4 THEN z = z+50
160 IF PAD AND 128 THEN ry = ry-1
170 IF PAD AND 32 THEN ry = ry+1
180 IF PAD AND 16 THEN rx = rx-1
190 IF PAD AND 64 THEN rx = rx+1
200 IF PAD AND 2 THEN rz = rz-1
210 IF PAD AND 8 THEN rz = rz+1
220 IF PAD = 2048 AND v = 640 THEN v = 368 : GOSUB 500 : GOTO 300
230 IF PAD = 2048 AND v = 368 THEN v = 640 : GOSUB 500 : GOTO 300
290 IF PAD = 256 THEN END
300 OBJECTXY 0,x,y
310 VIEWZ z
320 OBJECTR 0,rx,ry,rz
400 VSYNC
410 GOTO 100
500 INITGRAPH v,240
505 init3d
510 WHILE PAD <> 0
520 VSYNC
530 WEND
540 RETURN