doc@pucc-j.UUCP (06/28/86)
Reply-To: ihnp4!cbmvax!carolyn@ecn (Carolyn Scheppner)
REM << AmigaBasic >>
REM << Find Ptrs to BitPlanes >>
REM << Carolyn Scheppner CBM >>
depth = 5
x = 320
y = 200
SCREEN 2,x,y,depth,1
WINDOW 2,"TEST1",,15,2
sWindow& = WINDOW(7)
sScreen& = PEEKL(sWindow& + 46)
sViewPort& = sScreen& + 44
sRastPort& = sScreen& + 84
PRINT "Ptr to RastPort structure ="sRastPort&
sColorMap& = PEEKL(sViewPort& + 4)
colorTab& = PEEKL(sColorMap& + 4)
sBitMap& = PEEKL(sRastPort& + 4)
PRINT "Ptr to BitMap structure ="sBitMap&
FOR k = 0 TO depth-1
bPlane&(k) = PEEKL(sBitMap&+8+(4*k))
PRINT "Ptr to BitPlane"k" ="bPlane&(k)
NEXT
REM << Test - Random Poke to the BitPlanes >>
FOR j = 3000 TO 3159
FOR k = 0 TO depth-1
POKE bPlane&(k)+j, INT(255*RND)
NEXT
NEXT
FOR de = 1 TO 5000 : NEXT
WINDOW CLOSE 2
SCREEN CLOSE 2
END