; http://www.cpcrulez.2ya.com
;

; -** HORIZONTAL STAR FLYING **- by HYPNOM '94  Version 1


org &4000


loop:
ld a,32

ld hl,(tab):ld (hl),a
ld hl,(tab+2):ld (hl),a
ld hl,(tab+4):ld (hl),a
ld hl,(tab+6):ld (hl),a
ld hl,(tab+8):ld (hl),a

call &bb09
ret c
call &bd19

ld hl,(tab):call check:ld (tab),hl
ld hl,(tab+2):call check:ld (tab+2),hl
ld hl,(tab+4):call check:ld (tab+4),hl
ld hl,(tab+6):call check:ld (tab+6),hl
ld hl,(tab+8):call check:ld (tab+8),hl

jr loop

check:
ld (hl),0
inc hl
ld a,h
or l
cp 0
ret nz
ld hl,&c000
ret

tab:
dw &cf0f,&d1e0,&ec55,&f242,&caaa