BASIC

From Uncyclopedia, the content-free encyclopedia.

10 DIM A$ AS STRING
20 CLS
30 PRINT "BASIC was one of the first human languages, and it stands for "Blimey! Air Supply
          Incredibly Cool". As you can tell by the name, it was created around 1980. It was
          replaced afterwards by Visual BASIC, a language that also included cool Air Supply videos."
40 PRINT
50 PRINT "USE IN COMPUTER PROGRAMMING"
60 PRINT
70 PRINT "In 1875, computer pioneer Alan Kay discovered that he could use BASIC to tell those
          new-fangled computing machines what to do. Kay's entire career has spent moving from one
          company's R&D department to another and re-implementing BASIC. His current version, BASIC
          98 features such advanced features as the GOTO statment, the DO WHILE loop, and support
          for negative integers."
80 PRINT
90 PRINT "SAMPLE PROGRAMS"
100 PRINT
110 PRINT "BASIC is often praised for its easy-to-read nature. The following program, when run, will
           calculate 400,000,000 digits of Pi and display them."
120 INPUT "Would you like to see the program?(y/n):"; A$
130 IF A$ = "n" THEN GOTO 240
150 IF A$ = "y" THEN GOTO 210
170 REM ELSE
180 PRINT "You are incompetent."
190 REM BSOD
200 DEF SEG = PEEK &666H, POKE(&665H)
210 SUFFER FATAL BRAIN DAMAGE
220 BLATHER_ABOUT_SOMETHING_THAT_DIDNT_HAPPEN
230 DIE_HORRIBLY
240 PRINT "Another elegant and well-known piece of BASIC code is the following:"
250 REM The following 2 lines have yet to be completely debugged. Please fix by version 0.5.2
260 PRINT "10 PRINT "FOOD AND WATER""
270 PRINT "20 GOTO 10"
280 PRINT "This, when run, immediately ends world hunger. Of course, it is thus unauthorized and
           must never be run by order of Miniplenty."
290 PRINT
300 PRINT "OTRAS IDIOMAS"
310 PRINT "Some other human languages include:"
320 PRINT
330 PRINT "-N-GR15H"
340 PRINT "-PigLatiN 1.0"
350 PRINT "-COBOL"
360 PRINT "-FORTRAN"
370 PRINT "-LITHP"
380 PRINT "-BORK"
390 PRINT "-BORG"
400 PRINT "-GRUNT"
410 PRINT "-BURPS"
420 PRINT "-FARTS"
430 PRINT "-Michael Jackson's little screams"
440 PRINT "-Norwegian"
450 PRINT
460 SLEEP 5
470 WHILE 1
480 BEEP
490 WEND