' advance the sun
 angle = angle + 0.33
 if angle <= 179 then
   ' flip to other page
   flip_page = 1 + (flip_page = 1)
 endif

 ' advance the sun
 angle = angle + 0.33
 if angle > 179 then angle = 0
'  if angle <= 179 then
   ' flip to other page
   flip_page = 1 + (flip_page = 1)
'  endif

CSUB Fern
00000000
4FF8E92D 46904C80 68074B80 681B6824 68222F00 F8D8681B ED2D5000 ED918B10
F3409B00 085280A9 EB00EEB7 46AB085B 2A90EE07 EEB046A9 46AA8B4E ABE7EEB8
3A90EE07 EEB82600 ED9FBBE7 ED9FDB4F ED9FCB50 E03BFB51 7B51ED9F 4B52ED9F
5B53ED9F 7B07EE2E 6B04EE2E 7B04EEA8 6B05EEA8 4B50ED9F EB51ED9F 8B47EEB0
7B04EE27 EB0EEE36 4B4AEEB0 EEB14B60 36015B04 F44F681B EEA942C8 465D4B07
5B45EE3E 7B48ED9F 7B45EE27 6BC4EEFD 0A90EE16 6B4BEEB0 6B09EEA7 7BC6EEFD
1A90EE17 42B74798 46CBD057 46A246D1 030AF3C6 4B4FB913 4798681B 25C5EA85
EA854B4D EA8444DA EA84040A 429C2415 4B4AD2B2 44234A4A D8184293 7B34ED9F
6B35ED9F 5B36ED9F 7B07EE2E 6B06EE2E 7B05EEA8 6B0CEEA8 4B27ED9F EB32ED9F
8B47EEB0 7B04EE27 EB0EEE36 4B3DE7AC 44234A3D D8164293 7B4EEE2C 6B2CED9F
4B2DED9F 7B0FEEA8 6B06EE2E EB1CED9F 6B04EEA8 8B47EEB0 4B17ED9F 7B04EE27
EB0EEE36 ED9FE790 EEB07B26 EE2E8B4D EEB0EB07 E7877B4D F8C8462C ECBD4000
E8BD8B10 BF008FF8 00000000 00000000 0A3D70A4 3FD0A3D7 9999999A 3FC99999
47AE147B 3FA47AE1 33333333 3FEB3333 47AE147B BFA47AE1 00000000 40590000
9999999A 3FF99999 00000000 40490000 1EB851EC 3FD1EB85 EB851EB8 3FCEB851
33333333 BFC33333 C28F5C29 3FDC28F5 C28F5C29 3FCC28F5 D70A3D71 3FCD70A3
47AE147B 3FC47AE1 080002EC 080002F0 08000338 0800033C 26666666 EB851EB8
11EB851D FD70A3D7 11EB851E
End CSUB

CSUB mandelbrot
00000000
4FF0E92D 46834C50 460F2000 46906824 8B08ED2D 9301B083 4B4C47A0 681B494C
681B6809 9000F8D1 F3402B00 EE078083 3B013A90 BB00EEB6 A118F8DF 7AE7EEF8
0603FB09 AB00EEB1 EEB09300 EE878A67 9B017A88 0F00F1B9 5B08EEB0 6B00ED97
9B00ED93 7AC7EEB7 7B4BEE37 4B06EE87 9B05EE94 EE07DD4B 464D9A90 8AE7EEF8
D10206AB 3000F8DA EE074798 F8DB5A90 EEB03000 EEF85B08 2B017AE7 3B00ED98
6AA8EE87 7B00ED97 6AC6EEB7 6B4BEE36 4B07EE86 3B05EEA4 2401DD39 5B20ED9F
7B45EEB0 4B45EEB0 6B45EEB0 7B07EE37 EE363401 EEB06B44 429C4B49 4B05EEA7
7B03EE36 5B44EEB0 EE27D01C EE256B07 EE364B05 EEB42B04 EEF12BCA DDE5FA10
043FF004 F80319AB 3D014C01 9B00D1B8 0609EBA6 EE07B173 3B013A90 7AE7EEF8
E7949300 200019AB 0C01F803 D0F9E7ED E7E52401 ECBDB003 E8BD8B08 BF008FF0
00000000 00000000 08000340 080002F0 080002EC 0800033C
End CSUB

'Scrolling Fading Text Demo
'By vegipete
'Made possible with CSUB by The Sasquatch
'www.thebackshed.com/forum/ViewTopic.php?FID=16&TID=12876

#Include "../../common/welcome.inc"

Mode 1,8

page write 2 : cls
page write 1 : cls : text 0, 0, "Press Q to Quit"
page write 0 : cls

dim integer sw_x = 125      ' scroll window x location
dim integer sw_y = 100      ' y location
dim integer sw_width = 550  ' width
dim integer sw_height = 200 ' height
dim integer page1Adr = MM.INFO(PAGE ADDRESS 1)
'box sw_x-2, sw_y-2, sw_width+4, sw_height+4, 2, rgb(red) ' put a box around scroll window

' build custom colours from #100 to #131
for i = 0 to 31
map(100 + i) = rgb(8*i, 8*i, 8*i)
next i
map set


do
read txt$
if txt$ = "END" then exit do
page write 2
text 20,0,txt$+space$(75),LT,1   ' 8x12 character
page write 1
for i = 1 to 12   ' character height
  blit sw_x,sw_y+1,sw_x,sw_y,sw_width,sw_height-1   ' shift scroll box image up 1
  blit 0,i,sw_x,sw_y+sw_height-1,sw_width,1,2   ' copy row of pixels to bottom of scroll box
  FixColours
  page copy 1,0,B
  pause 40
next i
if we.is_quit_pressed%() then exit do
loop

page write 0

we.end_program()

sub FixColours
local integer i,j

for i = 0 to 31  ' 5 bit fade region
  FixBytes(page1Adr, sw_x, sw_y+i,sw_width,2,100+i) 'Change all non zero bytes in the row to 100+i
  FixBytes(page1Adr, sw_x, sw_y+sw_height-i,sw_width,1,100+i) 'same change, different row
next i
end sub


data "BASIC (Beginners' All-purpose Symbolic Instruction Code) is a"
data "family of general-purpose, high-level programming languages"
data "whose design philosophy emphasizes ease of use. The original"
data "version was designed by John G. Kemeny and Thomas E. Kurtz and"
data "released at Dartmouth College in 1964. They wanted to enable"
data "students in fields other than science and mathematics to use"
data "computers. At the time, nearly all use of computers required"
data "writing custom software, which was something only scientists"
data "and mathematicians tended to learn."
data " "
data "In addition to the language itself, Kemeny and Kurtz developed"
data "the Dartmouth Time Sharing System (DTSS), which allowed multiple"
data "users to edit and run BASIC programs at the same time. This"
data "general model became very popular on minicomputer systems like"
data "the PDP-11 and Data General Nova in the late 1960s and early"
data "1970s. Hewlett-Packard produced an entire computer line for this"
data "method of operation, introducing the HP2000 series in the late"
data "1960s and continuing sales into the 1980s. Many early video"
data "games trace their history to one of these versions of BASIC."
data " "
data "The emergence of early microcomputers in the mid-1970s led to"
data "the development of a number of BASIC dialects, including"
data "Microsoft BASIC in 1975. Due to the tiny main memory available"
data "on these machines, often 4 kB, a variety of Tiny BASIC dialects"
data "was also created. BASIC was available for almost any system of"
data "the era, and naturally became the de facto programming language"
data "for the home computer systems that emerged in the late 1970s."
data "These machines almost always had a BASIC interpreter installed"
data "by default, often in the machine's firmware or sometimes on a"
data "ROM cartridge."
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data " "
data "END"

'Graphic Color Changing Subroutines
'By The Sasquatch
'As requested by thwill and vegipete
'www.thebackshed.com
'
'File graphsubs.bas written 08-10-2020 12:31:44
'FixBytes(x,y,h,w,New_Byte)
'Changes any non-zero Bytes within the bounding box to New_Byte
'For a line, set h or v to 1 set w and h to 0 for full screen
'WARNING only works correctly in 8 bit color modes -
'will not work properly in "pixel doubled" modes
CSUB FixBytes
 'FixBytes scrPage, X, Y, W, H, newColor

 00000000
 4FF0E92D F8DD9C09 6826E028 469CB346 4693681B 0800F04F 7948F44F F8DB461A
 680C7000 68034447 4707FB09 B19A441F 1CB41E7E F1067875 1BE40A01 F8DEB145
 70733000 2000F8DC D2034294 E7F04656 D3FB4294 681E9B09 0801F108 D3DE45B0
 8FF0E8BD
END CSUB

void FixBytes(unsigned int *scrPage, unsigned int *x, unsigned int *y, unsigned int *w, unsigned int *h, unsigned int *newCol)
//'FixBytes scrPage, X, Y, W, H, newColor
{
      char *adr;
      for(int yy = 0; yy < *h; yy++)
      {
             adr = (char *)scrPage[0];
             adr += *x + (*y + yy) * 800;
             for(int xx = 0; xx < *w; xx++)
             {
                    if(*adr != 0)
                           *adr = *newCol;
                    adr++;
             }
      }
}