Login
Back to forumSee the full topicGo to last reply

Posted By

George
on 2012-08-11
09:59:19
 Re: Combing Text and freely placeable bitmaps on screen

I seem to have Code-blindness. It seem to be, that no Col/Lum Data is copied. I see no effect.

10 IF A = 1 THEN 46
20 A = 1 : graphic 3,1: color 0,1: color 3,2: color 4,1: LOAD "grag",8,1
46 q =DEC("0800") : zi =8192:
49 for k = 0 to 5
50 POKE192,((q ) and 255) : POKE193,(((q)/256) and 255)
60 POKE200,((zi) and 255) : POKE201,(((zi)/256)and 255)
61 if k then q = q+56 : zi = zi + 320
70 POKE169,((q ) and 255) : POKE170,(((q )/256) and 255)
80 POKE234,((zi) and 255) : POKE235,(((zi)/256) and 255)
81 q=q+56 : zi = zi + 320
90 REM SETTING UP ADDITIONAL VARIABLE
100 POKE2024,55:POKE2036,0
120 REM COPYING 56 B
130 SYSDEC("DA4F")
140 next

150 k=0:q1 = DEC("0800")+770-154:q2=DEC("0800")+770-77 :
151 z1=DEC("1800"):z2= DEC("1C00")
160 POKE192,(q1 and 255) : POKE193,((q1/256) and 255)
170 POKE200,(z1 and 255) : POKE201,((z1/256)and 255)
180 q1=q1+7 : z1=z1+40 :
190 POKE169,(q2 and 255) : POKE170,((q2 /256) and 255)
200 POKE234,(z2 and 255) : POKE235,((z2 /256) and 255)
210 q2 = q2 + 7: z2 = z2 + 40 :
220 REM SETTING UP ADDITIONAL VARIABLE
230 POKE2024,6: POKE2036,0:
240 REM COPYING 77 B
250 SYSDEC("DA4F")
260 k = k+1:if k >=11 then end:else goto 160
run



Back to top


Copyright © Plus/4 World Team, 2001-2024