Posted By
gerliczer
on 2012-08-11
13:30:11
|  Re: Combing Text and freely placeable bitmaps on screen
IF K THEN ... equals IF K<>0 THEN ...
It is written here: http://plus4world.powweb.com/plus4encyclopedia/500203
Sorry, I will not make it into a proper link.
Edit: Don't double post, it tells me. Double post my foot.
Anyway, here are a somewhat modified version of your test program George. Sorry, I'm HTML illiterate, I can't make a link from your name as I usually do.
10 IFA=1THEN46
20 A=1:GRAPHIC4,1:LOAD"GRAG",8,1
46 Q=DEC("0800"):ZI=8192
49 COLOR0,1:COLOR3,2:PRINT"…":REM CTRL+2=WHITE
50 POKE192,QAND255:POKE193,Q/256
60 POKE200,ZIAND255:POKE201,ZI/256
61 IFKTHENQ=Q+56:ZI=ZI+320
70 POKE169,QAND255:POKE170,Q/256
80 POKE234,ZIAND255:POKE235,ZI/256
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 K=K+1:IFK>=6THEN150:ELSE50
150 K=0:Q1=DEC("0800")+770-154:Q2=DEC("0800")+770-77
151 Z1=DEC("1800"):Z2=DEC("1C00")
152 POKE2022,20:POKE2024,39
159 PRINTQ1,Z1:PRINTQ2,Z2
160 POKE192,Q1AND255:POKE193,Q1/256
170 POKE200,Z1AND255:POKE201,Z1/256
180 Q1=Q1+7:Z1=Z1+40
190 POKE169,Q2AND255:POKE170,Q2/256
200 POKE234,Z2AND255:POKE235,Z2/256
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"):POKE2024,39
260 K=K+1:IFK>=11THENEND:ELSE159
|
