CreateImage 'myscroll.trd'
		org #8000
start
		ld a,2			; set output to screen
		call 5633
		
		ld de,str		; print string at X:Y
		ld bc,30
		call 8252
		
		ld a,21			; get X:Y adress
		call 3742		; now in hl

loop	push hl			; save address

		ld b,8			; set counter = 8 pixel rows
scrl1	push bc			
		push hl	
		
		ld b,32			; set counter = string lenght
scrl2	rr (hl)			; shift data in memory
		inc l			; next symbol
		djnz scrl2
		
		pop hl			; recover hl
		inc h			; next pixel row
		pop bc			; recover counter
		djnz scrl1
		
		pop hl			; recover address
		call pause
		jp loop

pause	ld bc,1
		jp 7997
		
str		defb 22,21,1,"MyFirstScroll<helcril 2009>"
end
SaveTRD "myscroll.trd",'main.C',start,end-start