Beginners' All-purpose Symbolic Instruction Code : code d'instructions tout usages pour débutants.
Fournir un langage de programmation simple et généraliste.
BASIC est un langage procédural, généralement interprété.
Ses lignes d'instructions sont numérotées, ce qui permet des branchements divers.
Domaine | Commentaire | |||
---|---|---|---|---|
Structures de données | Enumérations | Non | ||
Numériques | Entiers | INT var |
||
Flottants |
|
|||
Caractères | Unique | var$ |
||
Chaîne | var$ |
|||
Tableaux | DIM tab(taille) |
DIMension | ||
Structures de contrôle | Condition | IF condition THEN action1 ELSE action2
|
||
Boucle | Itération | FOR var=début TO fin:action:NEXT |
||
Suite | NEXT var |
|||
Stop |
|
|||
Branchement | GOTO |
Va à | ||
Sous-programme | GOSUB |
Va à sous-routine | ||
Retour de sous-programme | RETURN |
|||
Ecran | Effacement | CLS |
CLear Screen | |
Affichage | Expression | PRINT expression |
Imprime | |
Tabulation | TAB(n) |
|||
Positionnement | LOCATE ligne,colonne |
|||
Clavier | Lecture | Chaîne | var=CHR$ |
Lit |
Touche | var=INKEY$ |
|||
READ var |
||||
Commentaire | REM commentaire , ' commentaire |
REMark | ||
Aléatoire | RND(max) |
RaNDom | ||
Code ASCII | ASC(var) |
Des exemples de BASIC sont :
Un exemple de code source BASIC est :
10 REM ZOO Création aléatoire, sur poême de M. Butor 07/24/86
30 CLS:CLEAR:DEFSTR
A-H:DEFINT I-T
40 DIM A(2),B(14),C(14),L(14),M(14)
50 A(1)="A la tombée de la nuit":A(2)="Quand se sont refermées les grilles"
60 FOR I=1
TO 14:READ B(I):NEXT
70 FOR I=1
TO 14:READ C(I):NEXT
80 FOR J1=1 TO
14:L(J1)=J1:NEXT
90 FOR J2=1 TO
14:M(J2)=J2:NEXT
100 PRINT TAB(30)"ZOO":PRINT
TAB(30) STRING$(9,"="):PRINT
110 PRINT
A(1):PRINT A(2)
120 FOR I=1 TO 14
130
J1=RND(14):IF L(J1)<1 THEN 130
140
J2=RND(14):IF M(J2)<1 THEN 140
150
IF J1=14 THEN D1="rêvent " ELSE
D1="rêve "
160 IF J2=13 THEN D2="aux " ELSE D2="à "
170
PRINT B(J1);" ";D1;D2;C(J2)
180 L(J1)=0:M(J2)=0
190
NEXT I
200 PRINT:PRINT TAB(40)"Autre création ?":GOSUB 10000
210 IF H<>"O" THEN 220 ELSE CLS : GOTO
80
220 CLS:END
10000 IF INKEY$<>""
THEN 10010
10010 H=INKEY$:IF H="" THEN 10010 ELSE IF ASC(H)>95
THEN H=CHR$(ASC(H)-32)
10020 RETURN
10100
GOSUB 10000:IF ASC(H)>57
THEN S=ASC(H)-55 ELSE S=ASC(H)-48 10110
RETURN
Créé en 1964.