Could you refer to the following program?
ACLS
'fade in
FADE &HFF000000
LOCATE 10,10:?"FADE IN"
FADE 0,180
WAIT 180
'fade out
LOCATE 10,10:?"FADE OUT"
FADE &HFF000000,180
WAIT 240
FADE 0
FADECHK() yields TRUE during fade in/out btw.
Could you refer to the following program?
ACLS
SPSET 0,0
POSX=200:POSY=120
WHILE TRUE
VSYNC 1:STICK OUT SX,SY
DX=SX*(ABS(SX)>=0.125)
DY=-SY*(ABS(SY)>=0.125)
POSX=POSX+4*DX
POSY=POSY+4*DY
SPOFS 0,POSX,POSY
WEND
I've corrected Japanese descriptions of your game and exposed the key V34K44GX. If you like, please download it asap because I'll keep it on the cloud server temporarily.
The following program will place 64 sprites randomly on the screen. Could you refer to it?
ACLS
FOR I=0 TO 63:SPSET I,I:NEXT I
FOR I=0 TO 63
'RND(N) yields random number from 0 to N-1.
X=RND(400):Y=RND(240)
SPOFS I,X,Y
NEXT I
WHILE TRUE:VSYNC 1:WEND
Could you refer to the following program?
ACLS
X=20:Y=10
@LOOP
LOCATE X,Y:PRINT"(space)"
STICK OUT SX,SY
X=X+SGN(SX)*(ABS(SX)>=0.25)
Y=Y-SGN(SY)*(ABS(SY)>=0.25)
LOCATE X,Y:PRINT"(stick man)"
VSYNC 5
GOTO @LOOP
Taking a letter out from a string is equivalent to replacing the letter in the string with null letter ("").
If you take "E" out from "ABCDEFG", do as follows.
ST$="ABCDEFG"
ST$=SUBST$(ST$,5-1,1,"")
?ST$
Haven't you used GOFS command?
The range of graphic plane is 512x512. I guess you've moved graphic plane with GOFS, and the bottom edge of graphic plane has appeared.