1.

Solve : Question for an older friend of mine that I couldnt find answer to?

Answer»

Co-worker was TALKING with me about computing 30 years AGO, and I was talking about the DAYS when I was using my TRS-80 in the 1980s and programming in Basic with cassette load/saves etc. He said that he really MISSES programming in Basic with line numbers and asked me if Basic advanced but to still include support for Basic with line number programming. I told him that I programmed in GW-Basic and QBasic and that the last one to support programming in Basic with line numbers was QBasic. QBasic wasn't really meant to be the old line number format but it was backwards compatible to run older format programming in Basic, but I dont believe line numbers continued to be supported from then on. I told him that OOP did away with need for line numbers as well as GOTO's and GOSUB's...LOL and everything these days is more like C. I told him that if he wants I could get him GW-Basic or QBasic off of Microsofts website, but he was wondering if there was any newer interpreter for Basic with Line Numbers to where it may have support for more modern functionality like windows etc vs being stuck in 1980's STYLE ascii and pixel blocks. I told him that I would check, but I believe the world moved on away from Line Number Basic programming in the late 1980s and early 90's when QBasic came out. I also said that it would be lacking many features like .Net etc if there was a modern interpreter. 99.999% of the world of programmers moved on to more modern languages and that there are only a few that have a desire to program in the older languages that are out of date. And that those who still program Basic with Line Numbers either use GW-Basic or QBasic. Told him I'd post the question here and get back to him. I didnt find anything on google as for I believe there is very little demand for a modernized Basic with Line Numbers interpreter/compiler.Off the top of my head, I can think of two BASICs that are more modern than GW-BASIC or QBASIC and support line numbers

QB64 which is an attempt at a modernized QBasic: http://www.qb64.net/

and Chipmunk Basic: http://www.nicholson.com/rhn/basic/

Thanks Salmon.... printing this out to give him a copy =)This is an old-style Chipmunk Basic program


1 cls
5 gosub 100 : rem random coord generators
10 graphics window 100,100,200,200 : call "wintitle","Random Image"
20 for l1 = 1 to 200
25 for l2 = 1 to 200
27 cr = rnd(100) : cg = rnd(100) : cb = rnd(100)
30 graphics color cr,cg,cb
32 gosub 150
35 pset l1,l2
40 next l2
45 next l1
50 for p = 1 to 10
55 sound 2000,0.07,90
60 sound 3050,0.13,90
65 next p
67 get qon$
68 if qon$ = "s" then call "savepicture",inputbox("Name of picture?","Save Image","Pict 1",0)
70 graphics -1 : cls : end
100 rem random coord genorators
105 nrc = rnd(100)
107 dim crdx(nrc) : dim crdy(nrc)
110 for gl = 1 to nrc
115 crdx(gl) = rnd(200) : crdy(gl) = rnd(200)
120 next gl
122 print "x";tab (20);"y"
125 for pc = 1 to nrc
130 print crdx(pc);tab (20);crdy(pc)
135 next pc
140 return
150 rem coord checker/changer
155 for nt = 1 to nrc
157 ad = rnd(75)
158 sa = rnd(11)
160 if (l1 > crdx(nt)-sa and l1 < crdx(nt)+sa) and (l2 > crdy(nt)-sa and l2 < crdy(nt)+sa) then gosub 180
170 next nt
175 return
180 rem color changer
185 cr = cr-ad : if cr < 1 then cr = 0
187 cg = cg-ad : if cg < 1 then cg = 0
189 cb = cb-ad : if cb < 1 then cb = 0
190 graphics color cr,cg,cb
195 return



Discussion

No Comment Found