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
|