; http://www.cpcrulez.2ya.com ; ; -** VERTICAL STAR FLYING **- by HYPNOM '94   Version 1 org &4000 loop ld b,32:ld c,0 ld hl,(tab):call check ld hl,(tab+2):call check ld hl,(tab+4):call check ld hl,(tab+6):call check ld hl,(tab+8):call check call &bb09 ret c call &bd19 ld b,0:ld c,32 ld hl,(tab):call check:call calc:ld (tab),hl ld hl,(tab+2):call check:call calc:ld (tab+2),hl ld hl,(tab+4):call check:call calc:ld (tab+4),hl ld hl,(tab+6):call check:call calc:ld (tab+6),hl ld hl,(tab+8):call check:call calc:ld (tab+8),hl jr loop check ld a,(hl) cp c ret nz ld (hl),b ret calc ld de,&800 sbc hl,de ld a,h cp &c0 ret nc cp &b7 jr nz,followme ld a,l cp &4f jr c,followme ld de,&4000 add hl,de ret followme ld de,8*&800-&50 add hl,de ret tab dw &cf0f,&d0e0,&ecac,&f242,&caaa