titles for posters?

General discussion for topics related to the FreeBASIC project or its community.
badidea
Posts: 2591
Joined: May 24, 2007 22:10
Location: The Netherlands

Re: titles for posters?

Post by badidea »

GW-BASIC looks pretty obscure to me too, e.g.:
Image
jj2007
Posts: 2326
Joined: Oct 23, 2016 15:28
Location: Roma, Italia
Contact:

Re: titles for posters?

Post by jj2007 »

badidea wrote:GW-BASIC looks pretty obscure to me too, e.g.
True - are you sure it's BASIC? This is GfaBasic, about 30 years ago:

Code: Select all

FOR n&=0 TO nr_c&
  IF GapsFilled!
    FOR ct&=1 TO Sets&
      IF Est!(ai&,n&,ct&) THEN Bm(ct&,IC&,n&)=MagiC%,Est!(ai&,n&,ct&)=0
    NEXT ct&
  ELSE IF n&<9
    ct&=0,f!=Bm(1,IC&,n&)=MagiC%       '1=year 1
    WHILE ct&<Sets&
      REPEAT
        ct&++,ok!=Bm(ct&,IC&,n&)<>MagiC% 'find 1st occurrence
      UNTIL ok! OR ct&>=Sets&
      IF f! AND ok! AND ct&<=EstY&
         ...
Hey, no line numbers! Is that really BASIC?
dodicat
Posts: 7983
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: titles for posters?

Post by dodicat »

freeBASIC can handle old style line numbers.
-gen gas is best
64 bit is useless

Code: Select all

'rem prime factors
#lang "fblite"
0 option gosub
1 lowers%=30000000
2 uppers%=30000100
10 For counts% = lowers% To uppers%
20 number% = counts%
30 
40 Print number%;"= ";
50 divisor% = 2
60 if divisor% <= number% then goto 70
70 Gosub 490
80 divisor% = divisor% + 1
90 if divisor% <= number% then goto 60      
100 Print
101 Next counts%
102 Print
rem subroutine
490 
500 if number% mod divisor% =0 then 
510 c$=" x"
520 number% = number% \ divisor%
530 If number% = 1 Then c$=""
540 Print divisor%;c$;
550 Goto 490
560 End If
570 If counts%<=uppers% Then Return
580 Sleep  
grindstone
Posts: 862
Joined: May 05, 2015 5:35
Location: Germany

Re: titles for posters?

Post by grindstone »

Lost Zergling wrote:I'm a Zergling. I do not think,..
Stupid, but happy. Enviable! <grin>
jj2007
Posts: 2326
Joined: Oct 23, 2016 15:28
Location: Roma, Italia
Contact:

Re: titles for posters?

Post by jj2007 »

dodicat wrote:freeBASIC can handle old style line numbers.
Sure it can. Ugly syntax can be anything between GWBASIC as posted by badidea above and C++. But you can use FreeBasic also to produce simple, elegant and efficient code.
BasicCoder2
Posts: 3906
Joined: Jan 01, 2009 7:03
Location: Australia

Re: titles for posters?

Post by BasicCoder2 »

Josep Roca wrote:If I got a wrong impression, I apologize, but it is not based only in this thread, but also in threads like this one: "BASIC was meant to be easy to learn, read and understand": viewtopic.php?f=17&t=25269
That's ok I can see why you thought that. My objection was your suggestion that I objected to the ability given to FreeBASIC to use C++ like code which on the contrary has been great for FreeBASIC because it has enabled talented programmers to make use of its extended powers.

However I think the BASIC language owed its original popularity partly to reading much like a natural language making it easier to learn.

Ultimately how useful a language is depends on what can be done with it and by whom. Is it a tool for a wider audience or is it limited to an elite few?
Last edited by BasicCoder2 on Aug 18, 2018 19:43, edited 4 times in total.
Lost Zergling
Posts: 538
Joined: Dec 02, 2011 22:51
Location: France

Re: titles for posters?

Post by Lost Zergling »

@grin. This Zergling often helps me forget or overcome daily worries. :-)
marcov
Posts: 3462
Joined: Jun 16, 2005 9:45
Location: Netherlands
Contact:

Re: titles for posters?

Post by marcov »

Lost Zergling wrote:@grin. This Zergling often helps me forget or overcome daily worries. :-)
Protos carriers forever!
grindstone
Posts: 862
Joined: May 05, 2015 5:35
Location: Germany

Re: titles for posters?

Post by grindstone »

Lost Zergling wrote:@grin. This Zergling often helps me forget or overcome daily worries. :-)
Like I said: HAPPY! :-)
Lost Zergling
Posts: 538
Joined: Dec 02, 2011 22:51
Location: France

Re: titles for posters?

Post by Lost Zergling »

Can't jump high enough ! :'(
Post Reply