RANDOMIZE
;バッファーに星空の絵を描きこみ
BUFFER 2,1200,400,1
COLOR 0,0,0:BOXF 0,0,600,400
REPEAT 1000
RND X,600 : RND Y,400
RND R,7 : RR=(R+1)*32-1
RND G,7 : GG=(G+1)*32-1
RND B,7 : BB=(B+1)*32-1
COLOR RR,GG,BB
PSET X,Y:PSET X,Y
LOOP
POS 600,0:GCOPY 2,0,0,600,400
SCREEN 0,600,400,1,100,50,600,400
;星をスクロールさせる部分
*MAIN
POS 0,0: GCOPY 2,i,0,600,400
STICK K : IF K=128 : STOP
AWAIT 16
i++: if i>=600: i = 0
GOTO *MAIN

俺ならこうやる