;try this-I think it will work
prog_start:
set textInverse,(iy+textflags)
CALL _CLRLCDFULL ;CLEAR SCREEN
LD HL,0202h
ld (currow),hl
LD HL,Madeby
CALL _PUTS
jr LOOP
res textInverse,(iy+textflags)
CALL _CLRLCDFULL ;CLEAR SCREEN
LD HL,0202h
ld (currow),hl
LD HL,Madeby
CALL _PUTS
CALL gk
gk:
call _GetKy
or a
jr z,prog_start
ret nz
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com