JustBasic and FreeBasic
updated 3/20/05, 4/23/05, and 6/25/07
Remember basic programming? GW-basic, Qbasic, Quickbasic, etc.?
JustBasic:
JustBasic is a TOTALLY free version of basic which can even be used for light commercial programming. Because of lessening support for MS-DOS in Windows XP, and because it is designed for Windows, it works better in a Windows environment than Qbasic, etc.. There are many similarities between the two languages. I believe it will run under win95 or win98 also.
It is an offshoot of a shareware basic program called Liberty Basic, which by the way the author states that the difference between JustBasic and Liberty Basic is, paraphrasing, "just horsepower".
Anyway, if you like, or liked basic programming, you may want to give it a look see.
Here is a VERY simple example of what one can do with JustBasic. You should note that it can do MUCH more, and BETTER as well. But I happen to know the author of this code personally. :)
( You need the program to run the code )
' **************start of code**************
[setup.main.Window]
nomainwin
WindowWidth = 340
WindowHeight = 150
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
TextboxColor$ = "white"
textbox #main.pretax, 25, 32, 100, 25
statictext #main.tax, "0.00",175, 32, 100, 25
statictext #main.total, "0.00",255, 32, 100, 25
statictext #main.statictext2, "pre tax amount", 30, 12, 142, 20
statictext #main.statictext4, "tax", 175, 12, 17, 20
statictext #main.statictext5, "total", 255, 12, 70, 20
button #main.calculate,"calculate",[calculate], UR, 200, 72, 84, 25
open " Pennsylvania 6% sales tax calculator" for window as #main
print #main, "font times_new_roman 12"
print #main.tax, "!font times_new_roman 12 bold"
print #main.total, "!font times_new_roman 12 bold"
print #main, "trapclose [quit.main]"
[main.inputLoop]
wait
[calculate]
print #main.pretax, "!contents? preTax$";
ta$=preTax$
gosub [formatFigureTwoDecimalPlaces]
preTax$=ta$
gosub [calculateTax]
ta$=tax$
gosub [formatFigureTwoDecimalPlaces]
tax$=ta$
total=val(preTax$)+val(tax$)
total$=str$(total)
ta$=total$
gosub [formatFigureTwoDecimalPlaces]
total$=ta$
print #main.pretax, preTax$
print #main.tax, tax$
print #main.total, total$
wait
[quit.main]
close #main
end
[formatFigureTwoDecimalPlaces]
ta=val(ta$)
for t=1 to len(ta$)
if mid$(ta$,t,1)="." then gosub [hasDecimal]
next t
if decimalCount=1 then ta$=ta$+"00" else ta$=ta$+".00"
for t=1 to len(ta$)
if mid$(ta$,t,1)="." then gosub [haveDecimalLocation]
next t
ta$=mid$(ta$,1,decimalMark+2)
decimalMark=0:decimalCount=0:return
[haveDecimalLocation]
decimalMark=t:return
[hasDecimal]
decimalCount=1:return
[calculateTax]
for t=1 to len(preTax$)
if mid$(preTax$,t,1)="." then gosub [haveDollarsPennies]
next t
return
[haveDollarsPennies]
dollar=val(mid$(preTax$,1,t-1))
cents=val(mid$(preTax$,t+1,len(preTax$)-t))
dollar=dollar*.06
if cents>10 then penny=.01
if cents>17 then penny=.02
if cents>34 then penny=.03
if cents>50 then penny=.04
if cents>67 then penny=.05
if cents>84 then penny=.06
tax=dollar+penny:tax$=str$(tax)
penny=0
return
'************************end of code **************************
http://www.justbasic.com/
FreeBasic:
I've found another good possibility for basic programmers. FreeBasic is open source I believe, and still in beta. They are trying to keep it as close to Quickbasic as they can while also improving upon that so that more modern capabilities can be used. Definitely worth a look see. Because there are language differences, it cannot run the program listed in the Justbasic section. Perhaps I'll make a simple example program for FreeBasic to place here if I have time.
http://www.freebasic.net/
I also found the editor program JellyFish Pro works well with FreeBasic.
http://www.freebasic.net/index.php/download
Both FreeBasic and JellyFish Pro are free to use.
Remember basic programming? GW-basic, Qbasic, Quickbasic, etc.?
JustBasic:
JustBasic is a TOTALLY free version of basic which can even be used for light commercial programming. Because of lessening support for MS-DOS in Windows XP, and because it is designed for Windows, it works better in a Windows environment than Qbasic, etc.. There are many similarities between the two languages. I believe it will run under win95 or win98 also.
It is an offshoot of a shareware basic program called Liberty Basic, which by the way the author states that the difference between JustBasic and Liberty Basic is, paraphrasing, "just horsepower".
Anyway, if you like, or liked basic programming, you may want to give it a look see.
Here is a VERY simple example of what one can do with JustBasic. You should note that it can do MUCH more, and BETTER as well. But I happen to know the author of this code personally. :)
( You need the program to run the code )
' **************start of code**************
[setup.main.Window]
nomainwin
WindowWidth = 340
WindowHeight = 150
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
TextboxColor$ = "white"
textbox #main.pretax, 25, 32, 100, 25
statictext #main.tax, "0.00",175, 32, 100, 25
statictext #main.total, "0.00",255, 32, 100, 25
statictext #main.statictext2, "pre tax amount", 30, 12, 142, 20
statictext #main.statictext4, "tax", 175, 12, 17, 20
statictext #main.statictext5, "total", 255, 12, 70, 20
button #main.calculate,"calculate",[calculate], UR, 200, 72, 84, 25
open " Pennsylvania 6% sales tax calculator" for window as #main
print #main, "font times_new_roman 12"
print #main.tax, "!font times_new_roman 12 bold"
print #main.total, "!font times_new_roman 12 bold"
print #main, "trapclose [quit.main]"
[main.inputLoop]
wait
[calculate]
print #main.pretax, "!contents? preTax$";
ta$=preTax$
gosub [formatFigureTwoDecimalPlaces]
preTax$=ta$
gosub [calculateTax]
ta$=tax$
gosub [formatFigureTwoDecimalPlaces]
tax$=ta$
total=val(preTax$)+val(tax$)
total$=str$(total)
ta$=total$
gosub [formatFigureTwoDecimalPlaces]
total$=ta$
print #main.pretax, preTax$
print #main.tax, tax$
print #main.total, total$
wait
[quit.main]
close #main
end
[formatFigureTwoDecimalPlaces]
ta=val(ta$)
for t=1 to len(ta$)
if mid$(ta$,t,1)="." then gosub [hasDecimal]
next t
if decimalCount=1 then ta$=ta$+"00" else ta$=ta$+".00"
for t=1 to len(ta$)
if mid$(ta$,t,1)="." then gosub [haveDecimalLocation]
next t
ta$=mid$(ta$,1,decimalMark+2)
decimalMark=0:decimalCount=0:return
[haveDecimalLocation]
decimalMark=t:return
[hasDecimal]
decimalCount=1:return
[calculateTax]
for t=1 to len(preTax$)
if mid$(preTax$,t,1)="." then gosub [haveDollarsPennies]
next t
return
[haveDollarsPennies]
dollar=val(mid$(preTax$,1,t-1))
cents=val(mid$(preTax$,t+1,len(preTax$)-t))
dollar=dollar*.06
if cents>10 then penny=.01
if cents>17 then penny=.02
if cents>34 then penny=.03
if cents>50 then penny=.04
if cents>67 then penny=.05
if cents>84 then penny=.06
tax=dollar+penny:tax$=str$(tax)
penny=0
return
'************************end of code **************************
http://www.justbasic.com/
FreeBasic:
I've found another good possibility for basic programmers. FreeBasic is open source I believe, and still in beta. They are trying to keep it as close to Quickbasic as they can while also improving upon that so that more modern capabilities can be used. Definitely worth a look see. Because there are language differences, it cannot run the program listed in the Justbasic section. Perhaps I'll make a simple example program for FreeBasic to place here if I have time.
http://www.freebasic.net/
I also found the editor program JellyFish Pro works well with FreeBasic.
http://www.freebasic.net/index.php/download
Both FreeBasic and JellyFish Pro are free to use.
posted by rhoadesb | 2:07 PM
