DataMuseum.dk

top - download

    Length: 3328 (0xd00)
    Types: TextFile
    Names: »INTRO.BAS«

└─⟦016ef1d53⟧ Bits:30005210 BASIC Demo
    └─ ⟦this⟧ »INTRO.BAS« 

TextFile

10  WIDTH 80
20 GOSUB 900
40 GOSUB 500
50 GOSUB 600
60 PRINT:PRINT"* String and numeric constants, variables, and arrays."
70 PRINT:PRINT"* FOR...TO...NEXT statements for loop execution."
80 PRINT:PRINT"* IF...THEN statements for conditional execution."
90 PRINT:PRINT"* ON...GOTO statements for computed branching."
100 GOSUB 700
110 GOSUB 500
120 GOSUB 600
130 PRINT"* GOSUB / RETURN subroutine calls and returns."
140 PRINT:PRINT"* Built in scientific functions:"
150 PRINT:PRINT"      ABS       RND       TAN"
160 PRINT"      EXP       SGN       COS"
170 PRINT"      INT       SQR       SIN"
180 PRINT"      LOG       ATN"
190 PRINT:PRINT"* User defined single statement functions"
200 GOSUB 700
210 GOSUB 500
220 GOSUB 800
230 PRINT:PRINT"* Support for the Intel single and double precision floating point standard."
240 PRINT:PRINT"* Disk file I/O, supporting both random access and sequential access files."
250 PRINT:PRINT"* Direct read and write to CPU I/O ports through the INP and OUT functions."
260 PRINT:PRINT"* Calls to user-supplied external subroutines,which may have been written in"
270 PRINT"  FORTRAN-80, PL/M-80, or 8080/8085 Assembly Language and have been located"
280 PRINT"  at absolute memory locations using the ISIS-II facilities."
290 GOSUB 700
300 GOSUB 500
310 GOSUB 800
320 PRINT:PRINT"* User directed error trapping and handling functions."
330 PRINT:PRINT"* Program execution trace command."
340 PRINT:PRINT"* Formatted print statement with the PRINT USING function."
350 PRINT:PRINT"* ELSE clause for IF...THEN statements."
360 GOSUB 700
370 GOSUB 500
380 GOSUB 800
390 PRINT:PRINT"* Matrices with up to 110 dimensions."
400 PRINT:PRINT"* Extensive string manipulation functions."
410 PRINT:PRINT"* Boolean operators."
420 PRINT:PRINT"* Type conversion functions - integer, floating point, and character."
430 PRINT:PRINT:PRINT:PRINT
440 INPUT "MENU";A$
450 RUN "MENU"
460 REM
500 REM SUBROUTINE
510 PRINT"                                BASIC-80"
520 PRINT"                      BASIC-80 Language Features"
530 PRINT:PRINT:PRINT
540 RETURN
550 REM
600 REM SUBROUTINE
610 PRINT"  Standard ANS 78 BASIC features, all supported by"
620 PRINT"BASIC-80, include:"
630 PRINT:PRINT
640 RETURN
650 REM
700 REM SUBROUTINE
710 PRINT:PRINT:PRINT:PRINT
720 INPUT "(continue)";A$
725 IF A$ = "N" THEN 450
730 PRINT CHR$(27);"E"
740 RETURN
750 REM
800 REM SUBROUTINE
810 PRINT"  Major extensions to ANS 78 BASIC which BASIC-80 "
820 PRINT"provides include:"
830 PRINT:PRINT
840 RETURN
850 REM
900 REM SUBROUTINE
910 PRINT CHR$(27);"E"
920 FOR J = 1 TO 6 
930   PRINT SPACE$(80)
940 NEXT J
950 PRINT" BBBBB      AAAA      SSSSS    IIIIII     CCCCC               8888      0000 "
960 PRINT" B    B    A    A    S           II      C                   8    8    0    0"
970 PRINT" BBBBB     AAAAAA    SSSSSS      II      C         ******     8888     0    0"
980 PRINT" B    B    A    A         S      II      C                   8    8    0    0"
990 PRINT" BBBBB     A    A    SSSSS     IIIIII     CCCCC               8888      0000"
1000 FOR J = 1 TO 10
1010   PRINT SPACE$(79)
1020 NEXT J
1030 INPUT "(continue)";A$
1040 FOR J =1 TO 20
1050   PRINT
1060 NEXT J
1070 PRINT CHR$(27);"E"
1080 RETURN
«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»