* Multitasking! sprite scrolly by baudman - stolen from some demo * * give it some text as an argument AbsExecBase EQU 4 OpenLibrary EQU -$228 CloseLibrary EQU -$19e WaitTOF EQU -$10E RemakeDisplay EQU -$180 OwnBlitter EQU -$1c8 DisownBlitter EQU -$1ce gb_ActiView EQU $22 SECTION Scrolly,CODE clr.b -1(a0,d0.w) moveq #2,d1 cmp.l d1,d0 bcc.s good lea defText(pc),a0 good movea.l a0,a3 ; a3=text ptr movea.l a0,a4 ; a4=text start movea.l AbsExecBase.w,a6 lea IntName(pc),a1 moveq #0,d0 jsr OpenLibrary(a6) movea.l d0,a5 movea.l d0,a1 jsr CloseLibrary(a6) moveq #0,d0 lea GfxName(pc),a1 jsr OpenLibrary(a6) movea.l a5,a6 movea.l d0,a5 movea.l gb_ActiView(a5),a0 movea.l (a0),a0 ; ViewPort movea.l 4(a0),a0 ; ColorMap movea.l 4(a0),a0 ; ColorTable adda.w #40,a0 lea Colors(pc),a1 move.l (a1)+,(a0)+ move.l (a1)+,(a0)+ jsr RemakeDisplay(a6) movea.l a6,a1 movea.l AbsExecBase.w,a6 jsr CloseLibrary(a6) movea.l a5,a6 lea $dff000,a5 move.l #SprHead,d0 bsr SetSpr moveq #20,d2 Main jsr WaitTOF(a6) bsr.s SprAni tst.w d2 beq.s SetSpr btst #6,$bfe001 bne.s Main SetSpr movea.l $26(a6),a0 ; gb_copinit GetSpr cmp.w #$128,(a0)+ bne.s GetSpr swap d0 move.w d0,(a0)+ swap d0 tst.w (a0)+ move.w d0,(a0)+ moveq #0,d0 rts SprAni bsr.s ScrlIt tst.w TxtHi beq.s DrawChr subi.w #1,TxtHi rts DrawChr move.w #18,TxtHi moveq #0,d0 move.b (a3)+,d0 bne.s TxtGood movea.l a4,a3 subq.w #1,d2 TBad move.b #' ',d0 TxtGood cmpi.b #'a',d0 bcs.s noUpper cmpi.b #'z',d0 bgt.s noUpper subi.b #' ',d0 noUpper subi.b #' ',d0 bcs.s TBad lsl.w #6,d0 ; ch*64 = font char offset lea Font(pc),a0 adda.w d0,a0 movea.l a0,a2 adda.w #32,a2 lea TxtTemp(pc),a1 moveq #15,d0 CpyFont move.w (a0)+,(a1)+ move.w (a2)+,(a1)+ dbf d0,CpyFont rts ScrlIt lea SprBuf(pc),a0 movea.l a0,a1 addq.w #4,a1 jsr OwnBlitter(a6) WaitBlt btst #6,2(a5) bne.s WaitBlt move.l a0,$54(a5) move.l a1,$50(a5) move.l #$9f00000,$40(a5) moveq #-1,d0 move.l d0,$44(a5) clr.l $64(a5) move.w #$43c2,$58(a5) jsr DisownBlitter(a6) rts TxtHi dc.w 0 ; main,refl,shadow Colors dc.w 0,$00b,$00f,$008 SprHead dc.b 34 ; Y pos dc.b 208 ; X pos dc.b 41 ; Y+height+(vstop high bit) dc.b 2 ; vstop high bit set SprBuf ds.w 512 TxtTemp ds.w 33 ; last char in sprite Font dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 ; 4 lines per char dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0040,$03c0,$03c0,$03c0,$03c0,$03c0,$03c0,$03c0 dc.w $03c0,$03c0,$0000,$0040,$03c0,$03c0,$03c0,$0000 dc.w $07c0,$0440,$0440,$0440,$0440,$0440,$0440,$0440 dc.w $0440,$07c0,$0000,$07c0,$0440,$0440,$07c0,$0000 dc.w $0101,$3e3e,$7c7c,$f8f8,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $3f3f,$4242,$8484,$f9f8,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0010,$03e0,$07c0,$0f80,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $03f0,$0420,$0840,$1f80,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0010,$03f0,$07f0,$07f0,$0ff0,$0f00,$0f00,$0f00 dc.w $0f00,$0f00,$0f10,$07f0,$07f0,$07f0,$03f0,$0000 dc.w $03f0,$0410,$0810,$0810,$10f0,$1100,$1100,$1100 dc.w $1100,$1100,$10f0,$0810,$0810,$0410,$03f0,$0000 dc.w $0000,$07c0,$07f0,$07f0,$07f8,$0078,$0078,$0078 dc.w $0078,$0078,$00f8,$07f0,$07f0,$07e0,$07c0,$0000 dc.w $0fc0,$0820,$0810,$0810,$0f08,$0088,$0088,$0088 dc.w $0088,$0088,$0f08,$0810,$0810,$0820,$0fc0,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$03c0,$07e0,$07e0 dc.w $07e0,$07c0,$0380,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0380,$0440,$0820,$0820 dc.w $0820,$0440,$0380,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0040,$03c0,$03c0,$0388,$1ff8,$1ff8 dc.w $1ff8,$3bf8,$03c0,$03c0,$07c0,$0000,$0000,$0000 dc.w $0000,$0000,$07c0,$0440,$0440,$3c78,$2008,$2008 dc.w $2008,$3c78,$0440,$0440,$07c0,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0008,$01f0,$03e0,$07c0 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$01f8,$0210,$0420,$0fc0 dc.w $0000,$0000,$0000,$0000,$0000,$0002,$0ffc,$1ff8 dc.w $3ff0,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0ffe,$1004,$2008 dc.w $7ff0,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$03c0,$03c0,$03c0,$03c0,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$07c0,$0440,$0440,$0440,$07c0,$0000 dc.w $0000,$0000,$0078,$0078,$00f0,$00f0,$01e0,$01e0 dc.w $03c0,$03c0,$0780,$0780,$0f00,$0f00,$1e00,$0000 dc.w $0000,$0078,$0088,$0088,$0110,$0110,$0220,$0220 dc.w $0440,$0440,$0880,$0880,$1100,$1100,$1e00,$0000 dc.w $0000,$1ff0,$3ffc,$3ffc,$7ffe,$781e,$781e,$781e dc.w $781e,$781e,$783e,$3ffc,$3ffc,$3ff8,$1ff0,$0000 dc.w $1ff0,$2008,$4004,$4004,$87c2,$8822,$8822,$8822 dc.w $8822,$8822,$87c2,$4004,$4004,$2008,$1ff0,$0000 dc.w $0000,$03e0,$07e0,$0fe0,$1de0,$01e0,$01e0,$01e0 dc.w $01e0,$01e0,$01f0,$03f0,$03f0,$03f0,$03f0,$0000 dc.w $03e0,$0420,$0820,$1020,$1e20,$0220,$0220,$0220 dc.w $0220,$0220,$0630,$0410,$0410,$0410,$07f0,$0000 dc.w $0000,$3ff0,$7ffc,$7ffc,$7fbc,$f83c,$007c,$01fc dc.w $07f8,$1fe0,$7c02,$7ffe,$7ffe,$7ffe,$7ffe,$0000 dc.w $3ff0,$4008,$8004,$8004,$8fc4,$f844,$0184,$0604 dc.w $1818,$6060,$83fe,$8002,$8002,$8002,$fffe,$0000 dc.w $0000,$3ff0,$7ffc,$7ffc,$7fbc,$f83c,$007c,$01fc dc.w $01fc,$003c,$703c,$7ffc,$7ffc,$3ff8,$3ff0,$0000 dc.w $3ff0,$4008,$8004,$8004,$8fc4,$f844,$0384,$0204 dc.w $03c4,$f844,$8fc4,$8004,$8004,$4008,$3ff0,$0000 dc.w $0000,$1c3c,$3c3c,$7c3c,$7c3c,$7c3c,$7ffc,$7ffc dc.w $7ffc,$7ffc,$003c,$003c,$003c,$003c,$003c,$0000 dc.w $1c7c,$2444,$4444,$8444,$8444,$87c4,$8004,$8004 dc.w $8004,$ffc4,$0044,$0044,$0044,$0044,$007c,$0000 dc.w $0000,$7ffc,$7ffc,$7ffc,$7ffc,$7f80,$7fe0,$7ff8 dc.w $01fc,$003c,$703c,$7ffc,$7ffc,$3ff8,$3ff0,$0000 dc.w $fffc,$8004,$8004,$8004,$83fc,$8060,$8010,$7e08 dc.w $0184,$f844,$8fc4,$8004,$8004,$4008,$3ff0,$0000 dc.w $0000,$3ff8,$7ffc,$7ffc,$7ffc,$787c,$7800,$7800 dc.w $7ffc,$7ffc,$783c,$787c,$7ffc,$3ff8,$3ff0,$0000 dc.w $3ff0,$4008,$8004,$8004,$87c4,$887c,$8800,$87f8 dc.w $8004,$8784,$8844,$8784,$8004,$4008,$3ff0,$0000 dc.w $0000,$7ffc,$7ffc,$7ffc,$7fbc,$f83c,$003c,$01fc dc.w $01fc,$01fc,$03bc,$003c,$003c,$003c,$007c,$0000 dc.w $fffc,$8004,$8004,$8004,$8fc4,$f844,$03c4,$0204 dc.w $0204,$0204,$03c4,$0044,$0044,$0044,$007c,$0000 dc.w $0000,$3ff8,$7ffc,$7ffc,$783c,$787c,$3ff8,$3ff8 dc.w $783c,$783c,$787c,$7ffc,$7ffc,$3ff8,$3ff0,$0000 dc.w $3ff0,$4008,$8004,$8784,$8844,$8784,$4008,$4788 dc.w $8844,$8844,$8784,$8004,$8004,$4008,$3ff0,$0000 dc.w $0000,$3ff0,$7ffc,$7ffc,$783c,$787c,$7ffc,$7ffc dc.w $003c,$003c,$707c,$7ffc,$7ffc,$7ff8,$3ff0,$0000 dc.w $3ff0,$4008,$8004,$8784,$8844,$8784,$8004,$7f84 dc.w $0044,$f844,$8f84,$8004,$8004,$4008,$3ff0,$0000 dc.w $0000,$0000,$0000,$03c0,$03c0,$03c0,$07c0,$0000 dc.w $0000,$03c0,$03c0,$03c0,$07c0,$0000,$0000,$0000 dc.w $0000,$0000,$07c0,$0440,$0440,$0440,$07c0,$0000 dc.w $07c0,$0440,$0440,$0440,$07c0,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$03e0,$03e0 dc.w $03e0,$07e0,$0000,$0000,$0020,$07c0,$0f80,$1f00 dc.w $0000,$0000,$0000,$0000,$0000,$07e0,$0420,$0420 dc.w $0420,$07e0,$0000,$0000,$07e0,$0840,$1080,$3f00 dc.w $0008,$0038,$00f8,$03f8,$0ff8,$3fe0,$3f80,$3e00 dc.w $3f80,$1fe8,$07f8,$01f8,$0078,$0018,$0000,$0000 dc.w $0038,$00c8,$0308,$0c08,$3018,$4060,$4180,$4180 dc.w $2060,$1818,$0608,$0188,$0068,$0018,$0000,$0000 dc.w $0000,$0000,$0000,$1ffc,$1ffc,$1ffc,$3ffc,$0000 dc.w $0000,$1ffc,$1ffc,$1ffc,$3ffc,$0000,$0000,$0000 dc.w $0000,$0000,$3ffc,$2004,$2004,$2004,$3ffc,$0000 dc.w $3ffc,$2004,$2004,$2004,$3ffc,$0000,$0000,$0000 dc.w $0000,$1800,$1e00,$1f80,$3fe0,$0ffc,$03fc,$00fc dc.w $03f8,$0ff0,$1fc0,$1f00,$1c00,$3000,$0000,$0000 dc.w $3800,$2600,$2180,$2060,$3018,$0c04,$0304,$0304 dc.w $0c08,$3030,$20c0,$2300,$2c00,$3000,$0000,$0000 dc.w $0000,$3ff8,$7ffc,$7ffc,$7ffc,$f83c,$007c,$01fc dc.w $07f8,$0fe0,$0f80,$0100,$0f00,$0f00,$0f00,$0f00 dc.w $3ff0,$4008,$8004,$8004,$8fc4,$f844,$0184,$0604 dc.w $1818,$1060,$1180,$1f00,$1f00,$1100,$1100,$1f00 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 dc.w $0000,$3ffc,$3ffc,$7ffe,$7ffe,$781e,$781e,$7ffe dc.w $7ffe,$7ffe,$7fde,$781e,$781e,$781e,$783e,$0000 dc.w $3ff8,$4004,$4004,$8002,$87c2,$8822,$8fe2,$8002 dc.w $8002,$8002,$8fe2,$8822,$8822,$8822,$f83e,$0000 dc.w $0000,$7ff8,$7ffc,$7ffc,$783c,$707c,$7ff8,$7ff8 dc.w $783c,$783c,$707c,$7ffc,$7ffc,$7ff8,$7ff0,$0000 dc.w $fff0,$8008,$8004,$8f84,$8844,$8f84,$8008,$8f88 dc.w $8844,$8844,$8f84,$8004,$8004,$8008,$fff0,$0000 dc.w $0000,$1ffe,$3ffe,$3ffe,$7ffe,$7800,$7800,$7800 dc.w $7800,$7800,$7800,$3ffe,$3ffe,$3ffe,$1ffe,$0000 dc.w $1ffe,$2002,$4002,$4002,$87fe,$8800,$8800,$8800 dc.w $8800,$8800,$87fe,$4002,$4002,$2002,$1ffe,$0000 dc.w $0000,$7ff0,$7ffc,$7ffc,$7ffe,$7c1e,$7c1e,$7c1e dc.w $7c1e,$7c1e,$783e,$7ffc,$7ffc,$7ff8,$7ff0,$0000 dc.w $fff0,$8008,$8004,$8004,$87c2,$8422,$8422,$8422 dc.w $8422,$8422,$87c2,$8004,$8004,$8008,$fff0,$0000 dc.w $0000,$7ffe,$7ffe,$7ffe,$7ffe,$7c00,$7840,$7fc0 dc.w $7fc0,$7c00,$7800,$7ffe,$7ffe,$7ffe,$7ffe,$0000 dc.w $fffe,$8002,$8002,$8002,$87fe,$8400,$87c0,$8040 dc.w $87c0,$8400,$87fe,$8002,$8002,$8002,$fffe,$0000 dc.w $0000,$7ffe,$7ffe,$7ffe,$7ffe,$7c00,$7840,$7fc0 dc.w $7fc0,$7c00,$7c00,$7c00,$7c00,$7c00,$7c00,$0000 dc.w $fffe,$8002,$8002,$8002,$87fe,$8400,$87c0,$8040 dc.w $87c0,$8400,$8400,$8400,$8400,$8400,$fc00,$0000 dc.w $0000,$3ff8,$7ffc,$7ffc,$7ffc,$787c,$7800,$7800 dc.w $79fc,$79fc,$783c,$7ffc,$7ffc,$3ffc,$3ff8,$0000 dc.w $3ff0,$4008,$8004,$8004,$87c4,$887c,$8800,$8bf8 dc.w $8a04,$8a04,$87c4,$8004,$8004,$4004,$3ff8,$0000 dc.w $0000,$7c3e,$7c3e,$7c3e,$7c3e,$7c3e,$7ffe,$7ffe dc.w $7ffe,$7fbe,$7c3e,$7c3e,$7c3e,$7c3e,$7c3e,$0000 dc.w $fc7e,$8442,$8442,$8442,$8442,$87c2,$8002,$8002 dc.w $8002,$87c2,$8442,$8442,$8442,$8442,$fc7e,$0000 dc.w $0020,$07e0,$07e0,$07e0,$03e0,$03c0,$03c0,$03c0 dc.w $03c0,$03c0,$07e0,$07e0,$07e0,$07e0,$07e0,$0000 dc.w $0fe0,$0820,$0820,$0820,$0c60,$0440,$0440,$0440 dc.w $0440,$0440,$0820,$0820,$0820,$0820,$0fe0,$0000 dc.w $0002,$007e,$007e,$007e,$003c,$003c,$003c,$003c dc.w $003c,$783c,$783c,$7ffc,$7ffc,$7ff8,$3ff0,$0000 dc.w $00fe,$0082,$0082,$0082,$0044,$0044,$0044,$0044 dc.w $f844,$8844,$87c4,$8004,$8004,$4008,$3ff0,$0000 dc.w $0200,$7e7c,$7e7c,$7e7c,$3c38,$3c78,$3ff0,$3ff8 dc.w $3ffc,$3c3e,$3e3e,$7e3e,$7e3e,$7e3e,$7e3e,$0000 dc.w $fefc,$8284,$8284,$8284,$4448,$4788,$4010,$4008 dc.w $4784,$4442,$c642,$8242,$8242,$8242,$fe7e,$0000 dc.w $0000,$7800,$7800,$7800,$7800,$7800,$7800,$7800 dc.w $7800,$7804,$703c,$7ffc,$7ffc,$7ffc,$7ffc,$0000 dc.w $f800,$8800,$8800,$8800,$8800,$8800,$8800,$8800 dc.w $8800,$887c,$8fc4,$8004,$8004,$8004,$fffc,$0000 dc.w $0000,$7c3e,$7e7e,$7efe,$7ffe,$7ffe,$7bfe,$7dbe dc.w $7c3e,$7c3e,$7c3e,$7c3e,$7c3e,$7c3e,$7c3e,$0000 dc.w $fc7e,$8442,$8282,$8102,$8002,$8002,$8442,$86c2 dc.w $8542,$8442,$8442,$8442,$8442,$8442,$fc7e,$0000 dc.w $0000,$7c3e,$7e3e,$7f3e,$7fbe,$7ffe,$7bfe,$7dfe dc.w $7cfe,$7c7e,$7c3e,$7c3e,$7c3e,$7c3e,$7c3e,$0000 dc.w $fc7e,$8442,$8242,$8142,$80c2,$8042,$8402,$8602 dc.w $8502,$8482,$8442,$8442,$8442,$8442,$fc7e,$0000 dc.w $0000,$1ff0,$3ffc,$3ffc,$7ffe,$781e,$781e,$781e dc.w $781e,$781e,$783e,$3ffc,$3ffc,$3ff8,$1ff0,$0000 dc.w $1ff0,$2008,$4004,$4004,$87c2,$8822,$8822,$8822 dc.w $8822,$8822,$87c2,$4004,$4004,$2008,$1ff0,$0000 dc.w $0000,$7ff8,$7ffc,$7ffc,$783c,$707c,$7ff8,$7ff8 dc.w $7ff0,$7800,$7800,$7800,$7800,$7800,$7800,$0000 dc.w $fff0,$8008,$8004,$8f84,$8844,$8f84,$8008,$8008 dc.w $8ff0,$8800,$8800,$8800,$8800,$8800,$f800,$0000 dc.w $0000,$1ff0,$3ffc,$3ffc,$7ffe,$781e,$781e,$799e dc.w $7bde,$79fe,$78fe,$3ff8,$3ffc,$3ffc,$1fd8,$0000 dc.w $1ff0,$2008,$4004,$4004,$87c2,$8822,$88a2,$8962 dc.w $8a22,$8902,$8782,$4004,$4002,$2034,$1fd8,$0000 dc.w $0000,$7ff8,$7ffc,$7ffc,$783c,$707c,$7ff8,$7ff8 dc.w $7ff0,$79e0,$79e0,$78f0,$78f0,$7878,$7878,$0000 dc.w $fff0,$8008,$8004,$8f84,$8844,$8f84,$8008,$8008 dc.w $8e30,$8a20,$8a20,$8910,$8910,$8888,$f8f8,$0000 dc.w $0000,$3ff8,$7ffc,$7ffc,$787c,$7800,$3f80,$3ffc dc.w $07fc,$003c,$787c,$7ffc,$7ffc,$3ff8,$3ff0,$0000 dc.w $3ff0,$4008,$8004,$8784,$887c,$8780,$4078,$3804 dc.w $0784,$f844,$8784,$8004,$8004,$4008,$3ff0,$0000 dc.w $0000,$7ffe,$7ffe,$7ffe,$fbfe,$03c0,$03c0,$03c0 dc.w $03c0,$03c0,$03c0,$03c0,$03c0,$03c0,$07c0,$0000 dc.w $fffe,$8002,$8002,$8002,$fc7e,$0440,$0440,$0440 dc.w $0440,$0440,$0440,$0440,$0440,$0440,$07c0,$0000 dc.w $0002,$781e,$781e,$781e,$781e,$781e,$781e,$781e dc.w $781e,$781e,$783e,$3ffc,$3ffc,$3ff8,$1ff0,$0000 dc.w $f83e,$8822,$8822,$8822,$8822,$8822,$8822,$8822 dc.w $8822,$8822,$87c2,$4004,$4004,$2008,$1ff0,$0000 dc.w $0002,$781e,$781e,$781e,$781e,$781e,$781e,$781e dc.w $781e,$7c3e,$3c7c,$1ff8,$0ff0,$07e0,$07c0,$0000 dc.w $f83e,$8822,$8822,$8822,$8822,$8822,$8822,$8822 dc.w $8822,$8442,$4384,$2008,$1010,$0820,$07c0,$0000 dc.w $0000,$7c3e,$7c3e,$7c3e,$7c3e,$7c3e,$7d3e,$7dbe dc.w $7bfe,$7ffe,$7ffe,$7ffe,$7cfe,$783e,$7c3e,$0000 dc.w $fc7e,$8442,$8442,$8442,$8442,$8442,$8542,$86c2 dc.w $8442,$8002,$8002,$8102,$8282,$8442,$fc7e,$0000 dc.w $0000,$781e,$781e,$781e,$781e,$7c3e,$3e7c,$1ff8 dc.w $3ff8,$7c3e,$781e,$781e,$781e,$781e,$783e,$0000 dc.w $f83e,$8822,$8822,$8822,$8822,$8442,$4384,$2008 dc.w $4384,$8442,$8822,$8822,$8822,$8822,$f83e,$0000 dc.w $0000,$781e,$781e,$781e,$7c3e,$3e7c,$1ff8,$0ff0 dc.w $07e0,$03c0,$03c0,$03c0,$03c0,$03c0,$07c0,$0000 dc.w $f83e,$8822,$8822,$8822,$8442,$4284,$2108,$1010 dc.w $0820,$0440,$0440,$0440,$0440,$0440,$07c0,$0000 dc.w $0000,$7ffe,$7ffe,$7ffe,$7ffe,$00fc,$03f0,$0fc0 dc.w $3f00,$7c00,$7800,$7ffe,$7ffe,$7ffe,$7ffe,$0000 dc.w $fffe,$8002,$8002,$8002,$ff82,$030c,$0c30,$30c0 dc.w $c300,$8400,$87fe,$8002,$8002,$8002,$fffe,$0000 GfxName dc.b 'graphics.library',0 IntName dc.b 'intuition.library',0 defText dc.b 'Hey-Give me some text! ',0 END