You test 4 from 1.
Post a report of a result.
Please post a name of a video chip.
INPUT "input 1-4 ",num
SELECT num
case 1 : goto 1 : endcase
case 2 : goto 2 : endcase
case 3 : goto 3 : endcase
case 4 : goto 4 : endcase
ENDSELECT
1:
SET TEXT SIZE 128
make object cube 1,10
sync on : sync rate 0
do
turn object left 1,0.3
pitch object up 1,0.2
set cursor 100,100:print "hello 1"
sync
loop
2:
SET TEXT SIZE 128
set cursor 100,100:print "hello 2"
GET IMAGE 2,100,100,400,200,1
cls
make object cube 1,10
sync on : sync rate 0
do
turn object left 1,0.3
pitch object up 1,0.2
PASTE IMAGE 2,100,100,1
sync
loop
3:
SET TEXT SIZE 128
set cursor 100,100:print "hello 3"
GET IMAGE 2,100,100,400,200,1
cls
make object cube 1,10
sync on : sync rate 0
do
turn object left 1,0.3
pitch object up 1,0.2
SPRITE 3,100,100,2
sync
loop
4:
SET TEXT SIZE 128
set cursor 100,100:print "hello 3"
GET IMAGE 2,100,100,400,200,1
cls
MAKE OBJECT PLAIN 3,4,2
POSITION OBJECT 3,0,0,-10
make object cube 1,10
sync on : sync rate 0
do
turn object left 1,0.3
pitch object up 1,0.2
TEXTURE OBJECT 3,2
sync
loop
