BASIC initially was not recognized as a popular programming
language, but everything changed since Micro
Instrumentation Telemetry System (MITS) released Altair 8800 on 1975 which
is a BASIC-inside
computer, BASIC started to show an increase amount of users.
In that
era, most programming languages needs lots of memory. And BASIC is a simple
programming language. With a slow access because of using tape, and unadequate
text editor, BASIC became a very sexy programming language.
One of the
initial implementation of BASIC language for Intel 8080 processor is Altair 8800 called Tiny BASIC. This BASIC implementation was writted by Dr. Li-Chen Wang which is
then rewritten to run on Altair by Dennis Allison. The source code of this program published later
in 1976 on Dr. Dobb's Journal.
In 1975, MITS released Altair BASIC, developed by
William Henry Gates III and Paul Allen of MicroSoft. The first Altair version was developed by Gates, Allen and Monte Davidoff together.
The advent
of Microsoft BASIC in most platforms makes PC sales increases. And finally Microsoft BASIC become a
standard language used by Apple II computer that uses MPU
Mostek 6502.
Until 1979, Microsoft has
licensed lots of IBM BASIC, a BASIC language interpreter they developed. A version of IBM BASIC was put in a ROM chip in the
IBM PC, so the PC will be able to start immediately BASIC programming sessions if ther is no floppy disk inserted.
Because BASIC grow popular. Many
developers develop other version of BASIC. For example BBC
releases BBC
BASIC by Acorn
Computers, Ltd.
BBC BASIC has some distinctive features, such as structures
for keywords. It also has an intergrated assembler. BBC
BASIC was amongst the best dialect of
BASIC.
Here are
some BASIC
language implementation:
10 INPUT "Whats your name: ",
U$
20 PRINT "Halo "; U$
30 INPUT "How much charatercs * do you want to display:
", N
40 S$ = ""
50 FOR I = 1 TO N
60 S$ = S$ + "*"
70 NEXT I
80 PRINT S$
90 INPUT "Do you want to add again?
", A$
100 IF LEN(A$) = 0 THEN GOTO 90
110 A$ = LEFT$(A$, 1)
120 IF A$ = "Y" OR A$ =
"y" THEN GOTO 30
130 PRINT "Good bye"; U$
140 END
No comments:
Post a Comment