SUPER BASIC, sometimes SBASIC for short, is an advanced dialect of the BASIC programming language offered on Tymshare's SDS 940 systems starting in 1968 and available well into the 1970s.

SUPER BASIC
DeveloperDan Lewis and Frank Bracher, Tymshare
First appeared1968; 56 years ago (1968)
Influenced by
Dartmouth BASIC, JOSS, CAL
Influenced
BASIC-PLUS

Like the Dartmouth BASIC it was based on, SUPER BASIC was a compile and go language, as opposed to an interpreter. In addition to offering most of the commands and functions from Dartmouth BASIC Version 4, in including matrix math commands, SUPER BASIC also included a number of features from the seminal JOSS language developed at Rand Corporation,[1] via Tymshare's version, CAL, and added a variety of new functions, complex numbers as a built-in type, and double precision support.

SUPER BASIC also greatly improved string handling over the rudimentary system in Dartmouth, introducing the LEFT, MID and RIGHT string functions, simple string concatenation and other features. These were later used in DEC's BASIC-PLUS, which was later used as the basis for the original Microsoft BASIC that saw widespread use in the 1980s.

History

edit

The original Dartmouth BASIC was released in 1964 but was largely experimental at the time. It went through several revisions before becoming truly useful with the Fourth Edition when it was ported to the GE 635 machine and was published in 1968. Dartmouth specifically placed the underlying design in the public domain, so that anyone could port it to their platforms and call it BASIC. Its spread was further helped by the tireless efforts of its authors to promote it. However, as the code was designed to run on the DTSS operating system, some porting was required to run it on production systems. This led to a proliferation of versions with minor differences.[2]

Tymshare was formed within the University of California, Berkeley, initially renting out time on the University's computers on off-hours. Tymshare's original BASIC, simply Tymshare BASIC, was based on source code "from elsewhere" in the University,[3] that Dan Lewis began enhancing. Frank Bracher added the routines for file input/output (I/O), which made it far more practical than the original Dartmouth code that relied purely on DATA statements embedded in the program. Dartmouth's workflow was tape based so loading and saving individual files was not practical and direct I/O was not addressed until later versions. Bracher's I/O code had originally been developed for Tymshare's SUPER FORTRAN offering.[2]

One oft-noted feature of the system was the documentation, written by Caroline Diehl. The manuals were written in a conversational style.[3]

Tymshare maintained SUPER BASIC through the 1970s, but as the market for rented timeshare programming services dwindled the system went into maintenance and Lewis and Bracher left to do SUPER BASIC consulting for those companies still using it. Maintenance within Tymshare passed primarily to Walter Main.[3]

Tymshare filed for a trademark on SUPER BASIC on 7 January 1970, and refreshed it on 17 October 1977, which became the property of McDonnell Douglas in 1984 when the company purchased Tymshare.[3]

Language

edit

Direct and indirect mode

edit

Like most BASIC systems of the era, SUPER BASIC had a single command line editor that worked both as an interactive language and a program editor. Commands that were typed without a line number were executed immediately, which they referred to as "direct mode".[a] If the same line was prefixed with a line number, it was instead copied into the program code storage area, known as "indirect mode". New lines were added to the program if the line number was unique, replaced existing lines with the same number, or removed from the program if an existing line number was typed in without any code following it.[4]

Program statements

edit

Line numbers ran from 0 to 999999.[5] The DELETE (or short-form DEL) could be used to delete a range of lines using typical LIST notation, for instance, DELETE 5,10-50.[4] The ENTER command started an automatic line-number system. It took two optional parameters, a starting line number and a step, separated with BY. The starting number was assumed to be zero if not provided, and the step was 10. For instance, ENTER would produce 0,10,20,..., ENTER BY 5 would produce 0,5,10,..., and ENTER 10 BY 10 would produce 10,20,30...[6] RENUMBER took three parameters, a new starting line number, a range of lines to renumber (like 20-100) and the step.[7]

Although the built-in editor loaded and saved only the lines in the program itself, the user could edit the resulting text file to add additional commands that would run in direct mode. A common example was to edit a program and add RUN on its own line at the end of the file. When loaded, the system would see the RUN and immediately compile and start the program on loading.[8] This is unusual for BASIC systems, although this was commonly used in JOSS.

Statements

edit

In keeping with the overall Dartmouth BASIC concept, SUPER BASIC was a compile and go system that compiled the source code when the program was run. SUPER BASIC had two commands for this, the typical RUN seen in most BASICs, as well as START which did the same thing.[9] Remarks could be placed anywhere using !.[10]

SUPER BASIC expanded the FOR statement in several ways. A minor change was to allow BY in place of STEP, and allowed the step to be placed at the end as in most BASICs, or in the middle as in JOSS and other languages. Thus FOR I=1 TO 10 BY 2 and FOR I=1 BY 2 TO 10 were both valid.[11] Additionally, SUPER BASIC provided alternate forms of the range definition using WHILE and UNTIL, whereas most other languages used completely separate loop structures for these. For instance, FOR X=1 WHILE X<Y will continue as long as X<Y, while FOR X=1 UNTIL X<Y stops when the condition is met.[12] As in Microsoft BASIC, multiple loops could end with a single NEXT I,J,[12] although it did not include the feature of later version of MS where the index variable could be left off entirely. Finally, in JOSS fashion, one could replace the typical range specifier 1 TO 10 with an explicit list of values, FOR I=1,4,5,6,10.[13]

A more major change, following the JOSS model, was the concept of "statement modifiers" that allowed an IF or FOR to be placed after the statement it controlled. For instance, PRINT "IT IS" IF X=5 is equivalent to IF X=5 THEN PRINT "IT IS". This can make some commonly found use-cases easier to understand.[14] It also included the syntactic sugar UNLESS which was an IF with the opposite sense; for instance, PRINT "IT IS NOT FIVE" UNLESS X=5. One could also use a loop in these cases, which made single one-statement loops easy to implement, for instance PRINT X FOR X=1 TO 10.[15] One could also use a "bare" WHILE or UNTIL without the for, X=X+2 UNTIL X>10. The modifiers could also be ganged, PRINT "YES" IF A=B UNLESS N=0.[16]

Expressions

edit

Variables

edit

Variable names could consist of one or two letters or one letter and a digit. SUPER BASIC did not require variables to be typed, a variable could hold a number at one point and a string at another, a side-effect of the way they were stored. This required the system to test the variable type at runtime during INPUT and PRINT for instance, which reduced performance. This could be addressed by explicitly declaring the variable type using a variety of commands.[17]

In most dialects of BASIC, variables are created on-the-fly as they are encountered in the code, and generally set to zero (or the empty string) when created. This can lead to problems where variables are supposed to be set up by previous code that is not being properly called, but at run time it can be difficult to know if 0 is an uninitialized value or one with the perfectly legal 0 values. SUPER BASIC addressed this with the VAR command. There were two primary forms, VAR=ZERO which made all undefined variables automatically get the value zero when accessed, which is the normal pattern for BASIC, and VAR=UNDEF which would instead cause a "VARIABLE HAS NO VALUE" error to occur when a previously unseen variable was used in a way that attempted to access its value. The later is very useful in debugging scenarios, where the normal behavior can hide the fact that a variable being used in a calculation has not been correctly initialized.[18]

Numeric

edit

Unless otherwise specified, variables were stored in a 48-bit single precision floating point format with eleven digits of precision. One could also explicitly define a variable as REAL A, which was the single-precision format. This was not a consideration in other BASICs where some sort of suffix, like $, indicated the type wherever it was encountered.[17]

When required, a double precision format with seventeen digits, stored in three 24-bit words instead of two, could be used by declaring a variable with DOUBLE A.[19] An existing single precision value or expression could be converted to double using the DBL(X) function. For instance, one could force an expression to evaluate using double precision using DBL(10+20).[20]

Likewise, one could declare INTEGER A to produce a one-word 24-bit integer value.[17]

A more unusual addition was direct support for complex numbers. These were set up in a fashion similar to other variables, using COMPLEX I,J to set aside two single precision slots. When encountered in programs, other statements like INPUT would trigger alternative modes that asked for two numbers instead of one, with similar modifications to READ (used with DATA statements), PRINT and others. A single complex number could be created from two singles using the CMPLX(X,Y) function, while REAL(I) and IMAG(I) extracted the real and imaginary parts, respectively, into singles. A small number of additional utility functions were also offered.[21]

Operators and functions

edit

There were seven basic math operators:[22]

  • for exponents - the exponent is converted to a 12-bit integer
  • * for multiplication
  • / for division
  • MOD for modulo, the remainder of an integer division
  • DIV for integer division
  • + for addition
  • - for subtraction

SUPER BASIC's list of mathematical functions was longer than most BASICs, including a series of inverse trigonometric functions and logarithms for base 2 and 10.[22]

RND(X), returns a random number using a fixed sequence, can be seeded with RND(-1)
ABS(N), absolute value
SQR(N) or SQRT(N), square root
SIN
COS
TAN
ASIN
ACOS
ATN or ATAN
ATN/ATAN with two variables, (y,x) calculates y/x and returns ATN of that
SINH
COSTH
TANH
LOG
LGT/LOG10
LOG2
EXP
EXP2
INT, as in BASIC, always truncates downward
FIX, similar to INT but simply truncating the decimal
ROUND, rounds the value to closest, unlike INT
COMP(X,Y) COMPare, combines a subtraction and SGN, so if X>Y=1, X=Y=0, X<y+-1
PDIF(X,Y) Positive DIFference, returns difference (X-Y) if X>Y, 0 otherwise

SUPER BASIC included a number of functions from JOSS as well:[23]

IP(), Integer Part, equivalent to INT
FP(), Fraction Part, same as X-INT(X)
MAX(...) returns the maximum value from a list of entries
MIN(...) returns the minimum

Arrays and matrix math

edit

In addition to basic math, SUPER BASIC included array functionality like many other BASIC implementations. One could DIM A(5,5) to make a two-dimensional array, and as a consequence of the way they were stored, all variables otherwise undeclared were actually DIMed to have ten indexes, so one could LET B(5)=20 without previously DIMing B.[24]

In contrast with other BASICs, SUPER BASIC allowed one to define the range of one or both of the dimensions, assuming 1 if not defined. So A in the example above has indexes 1..5, but one might also DIM A(-5:5,0:5) to produce an array that has 11 indexes from -5 to +5 for X, and 0 to +5 for Y. One could also use the BASE command to change the default, so BASE 0, for example, makes all dimensions start at 0.[24]

In addition to these traditional BASIC concepts, SUPER BASIC also included most of the matrix math features found in later versions of Dartmouth BASIC. These were invoked by adding the keyword MAT to the front of other commands. For instance, MAT A=B*C multiplies all the items in array B by their corresponding item in C, whereas MAT A=B*5 multiplies all the elements in B by 5. Functions for common matrix operations like inversion and identity were included.[25]

Binary math and logical values

edit

As in most versions of BASIC, SUPER BASIC included the standard set of comparison operators, =, <>, >=, <=, > and <, as well as boolean operators OR, AND and NOT. In addition, # could be used as an alternate form of <>, a form that was found on a number of BASIC implementations in that era.[14] SUPER BASIC also added XOR, EQV for "equivalence" (equals) and IMP for "implication".[26]

To this basic set, SUPER BASIC also added three new commands for comparing small differences between numbers, these were >>, << and =#. The much-greater-than and much-less-than operators compared the values of the two operands, for instance, A and B in the expression A >> B. If adding B to A results in A being unchanged after the inherent rounding, >> returned true. Internally this was performed by IF A=A-B. =#, the close-to-equals, simply compared both values to an internal meta-variable, EPS, performing ABS(A/B-1)<EPS.[14]

Most dialects of BASIC allow the result of such logical comparisons to be stored in variables, using some internal format to represent the logical value, often 0 for false and 1 or -1 for true. SUPER BASIC also allowed this, which resulted in the somewhat confusing behavior of LET A=B=5, which, following operator precedence, assigns 5 to B and then returns true or false if A=B. SUPER BASIC also added true logical variables, declared in a similar fashion as doubles or complex, using LOGICAL A, and other variables could be conveyed to logical using L().[27]

In contrast to logical comparisons and operators, SUPER BASIC also added a number of bitwise logical operators. These applied a basic logical operation to the individual bits in a word. These included BAN, BOR and BEX, for and, or and exclusive or. Additional functions include LSH(X) and RSH(X) for bit-shifting left and right, respectively. To ease the entry of binary values, constants could be entered in octal format[b] by prefixing a number with an "O", like LET A=O41.[28]

Strings

edit

SUPER BASIC allowed string constants (literals) to be enclosed with single or double quotes, so one could use PRINT "HELLO, WORLD!" or PRINT 'HELLO, WORLD!'.[29]

In contrast to later dialects of BASIC, one could assign a string to any variable and the $ signifier was not used, so A="HELLO, WORLD!" was valid. This could lead to some confusion when a user provided a value combining digits and letters, and SUPER BASIC assumed anything starting with a digit was a number. To guide the system when this might result in confusing input, one could explicitly declare string variables using STRING A. As with all variables in SUPER BASIC, these could be arrays, STRING A(5). Additionally, SUPER BASIC added the additional statement TEXT which took a second parameter to define the length of the string elements, so TEXT A(12):10 makes an array with 12 elements of 10 characters each, while TEXT B(5:10):15 is an array of six elements, 5..10, each 15 characters long.[30]

String operators and functions

edit

SUPER BASIC included operators for = for comparison and + for concatenation. It included the following functions:[31]

ASC(S), returns the ASCII number for the first character in the string
CHAR(N), returns a string with a single ASCII character, same as MS CHR()
COMP(A,B), compares two strings, returns -1,0,1 depending on which is "bigger"
INDEX(A,B), returns the index of B within A. Optional 3rd parameter is an offset starting point
LENGTH(A), length of the string
SPACE(X), returns a string consisting of X number of spaces
VAL(A), looks through the string for a number and returns it
STR(N), converts a number into a string
LEFT, as in MS
RIGHT
SUBSTR, as MS's MID

Utility functions

edit

Typical utility functions are also included:[32]

POS returns the column of the print head
POS(X) returns the position in a file
TAB(X) moves the print head to column X
TAB(X,N) the same in file number N
DATE
TIME

SUPER BASIC also included pseudo-variables for PI and DPI, the later being double-precision, as well as the previously mentioned EPS to represent the smallest possible value.

edit

SUPER BASIC included two forms of print formatting that could be used with the PRINT statement. PRINT IN IMAGE X: used a format string, in this case stored in X, in a fashion similar to what other BASICs implemented using PRINT USING or the more common examples found in C and its follow-ons. Field type included integers,[33] specified decimal formats, and exponents, as well as strings and text. % signs indicated a single digit in either an integer or real field, and # indicated a digit in an E field.[34] * and $ could be used to prefix any value.[35]

PRINT IN FORMAT worked generally the same way, the difference being that spaces had to be explicitly defined using B. Thus the format string "%% BBB %%.%%" would print two numerical values with three spaces between them, whereas if this was an image the "BBB" would be printed out with a space on either side. The FORMAT version supported a wider variety of format strings and included items like inline carriage returns, but the examples given in the manuals do not make it clear why there are two such systems when they accomplish the same thing in the end.[36]

Interestingly, the same format commands could be used for INPUT, not just PRINT. In this case the user input would be properly formatted based on the string, so 1.2345 might be truncated to 1.2 if the format is %.%.[37]

File I/O

edit

SUPER BASIC included a file input/output system based on INPUT ON X and PRINT ON X where X is file handle, a number. The number was assigned using OPEN filename FOR [INPUT|OUTPUT] AS FILE X. WRITE ON X was provided as an alternative to PRINT ON X, but they are identical internally. When complete, the file can be released with CLOSE X or CLOSE filename.[38] When working with files, one could read the next-read location using LOC(X) and change it using LOCATE 100 ON 2.[39] POS(X) returned the position within a form if IN FORM was being used.[40] SIZE(N) returned the file size.[41] The ENDFILE(X) could be used in loops to test whether the end of the file was reached during reads.[42]

The system also included a function TEL that returned whether or not there was input waiting in the terminal. SUPER BASIC programs often included code like

100 WAIT(1);IF NOT TEL THEN 100

to wait for user input and test it every second before continuing.[43] Additionally, it included a pseudo-filename "TEL" that could be opened for reading and writing using OPEN "TEL" FOR OUTPUT AS 2 and then WRITE ON 2 "HELLO WORLD".[44] In addition to "TEL", both "T" and "TELETYPE" also referenced the command teletype.[45]

Notes

edit
  1. ^ The terminology originates with JOSS, MS-derived BASICs generally refer to this as "immediate mode" instead.
  2. ^ Hexadecimal did not become popular until most machines used 8-bit based words, in the era of 6-bit bases like the SDS 940, octal was common.

References

edit

Citations

edit
  1. ^ Lampson, Butler, "Systems", Research, Microsoft
  2. ^ a b Gregory 2018, p. 132.
  3. ^ a b c d Gregory 2018, p. 133.
  4. ^ a b Manual 1978, p. 14.
  5. ^ Manual 1978, p. 3.
  6. ^ Manual 1978, p. 11.
  7. ^ Manual 1978, p. 107.
  8. ^ Manual 1978, p. 13.
  9. ^ Manual 1978, p. 15.
  10. ^ Manual 1978, p. 143.
  11. ^ Manual 1978, p. 9.
  12. ^ a b Manual 1978, p. 43.
  13. ^ Manual 1978, p. 140.
  14. ^ a b c Manual 1978, p. 29.
  15. ^ Manual 1978, p. 44.
  16. ^ Manual 1978, p. 45.
  17. ^ a b c Manual 1978, p. 47.
  18. ^ Manual 1978, pp. 6, 7.
  19. ^ Manual 1978, p. 26.
  20. ^ Manual 1978, p. 27.
  21. ^ Manual 1978, p. 25.
  22. ^ a b Manual 1978, pp. 7, 8.
  23. ^ Manual 1978, p. 17.
  24. ^ a b Manual 1978, p. 21.
  25. ^ Manual 1978, p. 24.
  26. ^ Manual 1978, p. 30.
  27. ^ Manual 1978, pp. 30, 31.
  28. ^ Manual 1978, p. 28.
  29. ^ Manual 1978, p. 33.
  30. ^ Manual 1978, p. 34.
  31. ^ Manual 1978, pp. 35–37.
  32. ^ Manual 1978, p. 18.
  33. ^ Manual 1978, p. 51.
  34. ^ Manual 1978, p. 52.
  35. ^ Manual 1978, p. 53.
  36. ^ Manual 1978, p. 55.
  37. ^ Manual 1978, p. 60.
  38. ^ Manual 1978, pp. 71–75.
  39. ^ Manual 1978, p. 84.
  40. ^ Manual 1978, p. 85.
  41. ^ Manual 1978, p. 132.
  42. ^ Manual 1978, p. 126.
  43. ^ Manual 1978, p. 99.
  44. ^ Manual 1978, p. 76.
  45. ^ Manual 1978, p. 89.

Bibliography

edit