Jump to content

Photo

2 screens for grafik with fastbasic (Plot, Draw usw...)


No replies to this topic

#1 funkheld OFFLINE  

funkheld

    Moonsweeper

  • 265 posts

Posted Tue Sep 11, 2018 2:21 PM

With a trick you can set up 2 screens where the graphics commands work.
the 2nd screen is on $ 2000 store.
FEATURES {
     STARTADDRESS: default = $ 3000;
$ 3,000 has been set.

Alternating here is "560,561 $ 230, $ 231 SDLSTL, SDLSTH"
the starting address $ 2000 is entered and the address of
graphic 23.

greeting

 

dlist =560
savmsc=$58
ramadr=$2000
 
gr. 23
dliadr=dpeek(dlist)
scradr=dpeek(dliadr+4)
 
dpoke dliadr+4,$2000
dpoke savmsc,$2000
 
color 1
 
plot 0,0
drawto 159,95
plot 159,0
drawto 0,95
 
for a=0 to 255
   poke $2000+a,129
next a 
 
for a=0 to 8000
next a
 
dpoke dliadr+4,scradr
dpoke savmsc,scradr
 
plot 0,50
drawto 159,95
 
for a=2000 to 2255
   poke 49248+a,129
next a 
 
for a=0 to 8000
next a
 
dpoke dliadr+4,$2000
dpoke savmsc,$2000
 
for a=0 to 8000
next a
 
dpoke dliadr+4,scradr
dpoke savmsc,scradr
 
repeat
until Key()





0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users