title "インベーダー"
redraw 2
color 0,0,0
boxf 0,0,winsx,winsy
gosub *tekihyozi
gosub *zikihyozi
gosub *keycheck
gosub *tamahyozi
gosub *atarihantei
gosub *tamamove
gosub *zikimove
redraw 1
await 10
goto *main