Changed deprecated CINT call to INT

Author: chrisws

samples/node/1157.bas

@@ -1,62 +1,63 @@
-
-
 'Written for Smallbasic
 'Aug 2013 - S Virjee
-centerx = xmax / 2
-centery = ymax / 2
-iter = 20
-zoom = 2.8
-p=-.745
-q=.113
+
+const centerx = xmax / 2
+const centery = ymax / 2
+const iter = 20
+const zoom = 2.8
+const p=-.745
+const q=.113
+
 rect xmin,ymin, xmax, ymax color 1 FILLED
 oldi=1
 pqsq = (p*p + q*q)
+
 L = (sqr(p*p + q*q) - 1/iter)*(sqr(p*p + q*q) - 1/iter)
 H = (sqr(p*p + q*q) + 1/iter)*(sqr(p*p + q*q) + 1/iter)
 
-    for x = -centerx to centerx
-    for y = 0 to ymax
-            c = x/xmax * (1-zoom*1.5)
-            d = y/ymax * (1-zoom)
-            ztot = 0
-            i = 1
-            z = 1
-            while i < iter and z< zoom*1.5
-                real = c*c - d*d + p
-                imag = 2* c * d + q
-                c = real/sgn(d-i)
-                d = imag
-                z = (c * c + d * d)
-                if (z < H) then
-                if (z > L) and (i > 0) then
-                   ztot = ztot + ( 1- (abs((z - pqsq)/z) /(i/(iter))))
-                   oldi=i
-                'if i<25 and z>0 then i=abs((c*d+q))*i  
-                   end if
-                  end if
-                i = i + 1
-            wend
-            if ztot => 0 then i = cint(sqr(ztot) * 256)
-            if i < 256  then red = i :green=0:blue=0
-            if i > 255 and i <= 512 then green = i - 256:blue=0:red=255
-            if i > 511 then green=255:blue=0:red=255 
-            if i > 511 and i <= 768 then blue = i - 512:red=255:green=255
-            if i > 768 and i<= 1026 then blue = 255:red=255:green=255
-            if i > 1026 then blue=55:red=255:green=55
-            gray = int((red+green+blue) * .33)
-            hot = if(max(red,green,blue)<255,max(red,green,blue),0)
-if oldi=1 then red = hot: 'Outer Circle 1 Figure 8
-if oldi=2 then green = hot'Outer Circle 2 
-if oldi=3 then red = hot:blue=gray 'Inner Circle Figure 8 - Yellow
-if oldi=4 then blue=hot:green=red:red=gray 'Inner to 2/Outer Circle 4 Loops top
-if oldi=>5 then red = int((hot+blue+green)*.33)/(oldi):'This is main color
+for x = -centerx to centerx
+  for y = 0 to ymax
+    c = x/xmax * (1-zoom*1.5)
+    d = y/ymax * (1-zoom)
+    ztot = 0
+    i = 1
+    z = 1
+    while i < iter and z< zoom*1.5
+      real = c*c - d*d + p
+      imag = 2* c * d + q
+      c = real/sgn(d-i)
+      d = imag
+      z = (c * c + d * d)
+      if (z < H) then
+        if (z > L) and (i > 0) then
+          ztot = ztot + ( 1- (abs((z - pqsq)/z) /(i/(iter))))
+          oldi=i
+          'if i<25 and z>0 then i=abs((c*d+q))*i
+        end if
+      end if
+      i = i + 1
+    wend
+    if ztot => 0 then i = int(sqr(ztot) * 256)
+    if i < 256  then red = i :green=0:blue=0
+    if i > 255 and i <= 512 then green = i - 256:blue=0:red=255
+    if i > 511 then green=255:blue=0:red=255
+    if i > 511 and i <= 768 then blue = i - 512:red=255:green=255
+    if i > 768 and i<= 1026 then blue = 255:red=255:green=255
+    if i > 1026 then blue=55:red=255:green=55
+    gray = int((red+green+blue) * .33)
+    hot = if(max(red,green,blue)<255,max(red,green,blue),0)
+    if oldi=1 then red = hot: 'Outer Circle 1 Figure 8
+    if oldi=2 then green = hot'Outer Circle 2
+    if oldi=3 then red = hot:blue=gray 'Inner Circle Figure 8 - Yellow
+    if oldi=4 then blue=hot:green=red:red=gray 'Inner to 2/Outer Circle 4 Loops top
+    if oldi=>5 then red = int((hot+blue+green)*.33)/(oldi):'This is main color
     col = -red+(256*-green)+(256*256* -blue)
-'col=rgb(red,green,blue)
-pset centerx+x, centery-y color col
-pset xmax-centerx-x,centery+y color col
-        next y
-        showpage
-        delay 1
-    next x
+    'col=rgb(red,green,blue)
+    pset centerx+x, centery-y color col
+    pset xmax-centerx-x,centery+y color col
+  next y
+  showpage
+  delay 1
+next x
 showpage
 pause

samples/node/155.bas

@@ -1,4 +1,3 @@
-
 'Hangman v2.bas SmallBASIC 0.12.0 2015-11-20 MGA/B+ modified from:
 '''HANGMAN.BAS by Eric Toft 
 ''
@@ -13,6 +12,7 @@
 window 0,200,200,0    '<============== helps fit any screen
 cls
 randomize ticks
+
 if HangFile<>"" then
   tload Hangfile, fraze
   ct = ubound(fraze) 
@@ -85,8 +85,8 @@ FUNC COLLECTPEN
         adder = 13
         yy = 19
       FI
-      ch = 65 + (adder + CINT(xx / 15))
-      line cint(xx/15)*15,yy,(cint(xx/15)*15)+10,yy
+      ch = 65 + (adder + INT(xx / 15))
+      line int(xx/15)*15,yy,(int(xx/15)*15)+10,yy
       K$=string(1,ch)
     FI
     PEN OFF

samples/node/62.bas

@@ -1,15 +1,9 @@
-
 '''HANGMAN.BAS by Eric Toft 
 ''
 ''Hang.dat file - just create a file called hang.dat
 ''Put one Phrase on each line.  You can use the program 
 ''to add more phrases, or use an external editor.
 ''
-''THE BAROSSA VALLEY
-''THE ADELAIDE HILLS
-''MT REMARKABLE
-''MCLEODS DAUGHTERS
-''FREELING REDLEGS
 
 LABEL START:
 CLS
@@ -49,7 +43,7 @@ END
 
 LABEL aPLAY:
   ''first-randomly pick a phrase
-  idx = CINT(UBOUND(FRAZE) * RND)
+  idx = INT(UBOUND(FRAZE) * RND)
   PHRASE$ = FRAZE(idx)
   PLAYGAME PHRASE$
   PRINT "Pause: return to continue                    "
@@ -95,8 +89,8 @@ FUNC COLLECTPEN
         adder = 13
         yy = 19
       FI
-      ch = 65 + (adder + CINT(xx / 15))
-      line cint(xx/15)*15,yy,(cint(xx/15)*15)+10,yy
+      ch = 65 + (adder + INT(xx / 15))
+      line int(xx/15)*15,yy,(int(xx/15)*15)+10,yy
       K$=string(1,ch)
     FI
     PEN OFF
@@ -217,8 +211,3 @@ LABEL hang:
 RETURN
 
 LABEL ENDIT:
-
-
-
-
-'