PROGRAM TestWindowScreen
? 
? Program Demonstrates High Level F-Basic Window & Screen Manipulations
? And Graphics Drawing Functions Available In F-Basic
?
INTEGER I,J,K,x1,x2,y1,y2,ScreenPtr1,W1,W2,W3,W4,W5,W6,W7,W8
ScreenPtr1=SCREEN #1 (20,180,5,1,@" Screen #1-Lots Of Color ")
DELAY(5)
W1=WINDOW #1 (20,20,250,150,30,30,300,175,-1,-1,31,@" Window #1-32 Colors ",1)
PRINT "THE 32 DEFAULT AMIGA COLORS"
DELAY (20)
RANDOMIZE(123)
FOR I=0 TO 31
   COLOR_PENS(I,8)
   COLOR_BOXFILL (0,10+2*I,115-3*I,180+2*I,145-3*I)
   DELAY(10)
NEXT I
DELAY(20)
W2=WINDOW #2 (40,40,250,130,30,30,300,175,0,1,15,@" Window #2-BoxFills ",1)
FOR I=1 TO 3000
   x1=RANDOM()\240 + 5
   x2=RANDOM()\240 + 5
   y1=RANDOM()\118 + 10
   y2=RANDOM()\118 + 10
   J=x1 MIN x2
   K=x1 MAX x2
   x1=J
   x2=K
   J=y1 MIN y2
   K=y1 MAX y2
   y1=J
   y2=K
   COLOR_PENS(RANDOM()\32,8)
   COLOR_BOXFILL (0,x1,y1,x2,y2)
NEXT I
DELAY(20)
W3=WINDOW #3 (20,20,250,150,30,30,300,175,0,1,7,@" Window #3-Boxes ",1)
FOR I=1 TO 1500
   x1=RANDOM()\240 + 5
   x2=RANDOM()\240 + 5
   y1=RANDOM()\138 + 10
   y2=RANDOM()\138 + 10
   J=x1 MIN x2
   K=x1 MAX x2
   x1=J
   x2=K
   J=y1 MIN y2
   K=y1 MAX y2
   y1=J
   y2=K
   COLOR_PENS(RANDOM()\32,8)
   COLOR_BOX (0,x1,y1,x2,y2)
NEXT I
DELAY(20)
W4=WINDOW #4 (40,40,250,130,30,30,300,175,0,1,4,@" Window #4-Lines ",1)
FOR I=1 TO 3000
   x1=RANDOM()\240 + 5
   x2=RANDOM()\240 + 5
   y1=RANDOM()\118 + 10
   y2=RANDOM()\118 + 10
   COLOR_PENS(RANDOM()\32,8)
   COLOR_LINE(0,x1,y1,x2,y2)
NEXT I
DELAY(20)
W5=WINDOW #5 (20,20,250,150,30,30,300,175,0,1,2,@" Window #5-Dots ",1)
FOR  I=1 TO 5000
   COLOR_PENS(RANDOM()\32,8)
   COLOR_POINT(RANDOM()\240,RANDOM()\138+10)
NEXT I
DELAY(20)
W6=WINDOW #6 (40,40,250,130,30,30,300,175,0,1,1,@" Window #6-Ellipses ",1)
FOR I=1 TO 300
   COLOR_PENS(RANDOM()\32,8)
   COLOR_ELLIPSE(RANDOM()\240,RANDOM()\118+10,RANDOM()\30+1,RANDOM()\30+1)
NEXT I
DELAY(20)
W7=WINDOW #7 (20,20,250,150,30,30,300,175,0,1,0,@" Windows #7/8-Very Plain ",1)
DELAY(40)
W8=WINDOW #8 (40,40,250,130,30,30,300,175,0,1,0,0,1)
DELAY(40)
WINDOW_CLOSE #8
WINDOW_CLOSE #7
WINDOW_CLOSE #6
WINDOW_CLOSE #5
WINDOW_CLOSE #4
WINDOW_CLOSE #3
WINDOW_CLOSE #2
WINDOW_CLOSE #1
SCREEN_CLOSE #1
END