ok guys i have a problem with a project im doing right now i was wondering if anybody would know how to fix my problem right now this is the code that i have
REM Project: program03
REM Created: 10/30/2012 9:58:37 AM
REM
REM ***** Main Source File *****
REM
set display mode 800,600,32
cls 0
load bitmap \"\\\\vhsstu-docs\\studesktop\\Room 101\\Period 1\\VVHS VGD.bmp\"
do
REM CONTROL INPUT
key=scancode() : if Keystate(key)=1 then gosub OptionsSection
REM REFRESH SCREEN
sync
loop
OptionsSection:
REM SCREEN DISPLAY
ink rgb (255,0,0),0 REM just inking red because red is my favorite color
cls 0 : center text 400,580,\"PRESS \'Q\' TO QUIT\"
REM REFRESH SCREEN
make object cube 1, 100
cpZ# = Newzvalue(object position Z(1),object angle Y(1)-180,250)
cpX# = Newxvalue(object position X(1),object angle Y(1)-180,250)
Position camera cpX#,150,cpZ#
Point camera object position X(1),object position Y(1)+50,object position Z(1)
REM REFRESH SCREEN
sync
do
ink rgb (255,0,0),0 REM just inking red because red is my favorite color
cls 0 : center text 400,500,\"PRESS \'Q\' TO QUIT\"
REM CONTROL INPUT
if Inkey$()=\"q\"
delete object 1 : backdrop off
gosub EndSection
endif
REM REFRESH SCREEN
Sync
loop
EndSection:
REM SCREEN DISPLAY
ink rgb (255,0,0),0 REM just inking red because red is my favorite color
cls 0 : center text 400,300,\"Do you want to regenerate the cubes? (Y/N)\"
REM LOAD SOUNDS
REM REFRESH SCREEN
sync
REM *** END SECTION LOOP
do
REM CONTROL INPUT
if Inkey$()=\"y\"
cls : gosub OptionsSection
endif
if inkey$()=\"n\"
cls : end
endif
REM REFRESH SCREEN
Sync
loop
end
i was wondering if you guys get the same problem that im getting which is basically when i get to the OptionsSection of my code it has lines scrolling up or down the screen and if you have anyway to fix it it would be greatly appreciated
sofuesh soclean
