xyq.bi

中学化学CAI制作平台 (QB4.5+简体字库)

DECLARE SUB sy (a$, x!, y!, mode)
DECLARE SUB h24 (x6!, y6!, bb!, Hz$, hzk$, mode)
DECLARE SUB h16 (x6!, y6!, bb, Hz$)
DECLARE FUNCTION arrow! ()
DECLARE SUB surface ()
DECLARE SUB pal (n, r!, g!, B!)
DECLARE SUB colorpal ()
DECLARE SUB Bcolor (n, p1, p2, p3)
DECLARE SUB photo (x!, y!, name$, mode)
DECLARE SUB sol (x1!, y1!, x2!, y2!, yp, xp)
DECLARE SUB time (sec!)
DECLARE SUB music (n!)
DECLARE SUB photose (x1!, y1!, x2!, y2!, n!)
DECLARE SUB co ()
DECLARE SUB bubble (x1!, y1!, y11!, x2!, y2!, y21!, x3!, y3!, y31!)
DECLARE SUB move (x1!, y1!, x2!, y2!, step1!)
DECLARE SUB pcls (n!)
DECLARE SUB gas (x1!, y1!, x2!, y2!)
DECLARE SUB xg ()
DECLARE SUB rota (x0!, y0!, x1!, y1!, x2!, y2!, set!, bb!)
DECLARE SUB waiting ()
DECLARE SUB mouse (x!, y!)
DIM SHARED bm(14000), mous(50)
ON KEY(1) GOSUB Ending
KEY(1) ON
surface
photo 200, 200, "mouse.xyq", 0
GET (201, 200)-(213, 221), mous
PUT (201, 200), mous