Tips and Tricks

In English: Two SuperBASIC tips taken from QL Clef: reading DATA in a REPeat loop until EOF, so no counter is needed, and putting procedure arguments in parentheses so the procedure cannot change the caller's variables. Each tip has a short example listing.

Printed title: TRUCS & ASTUCES. The article below is in French, as printed in QL_DOC n5 (August-September 1988).

---

(SOURCE QL CLEF)

Lorsqu’on lit des valeurs DATA, on peut tester la dernière valeur avec EOF, nous n’avons pas besoin de compteur ou de savoir combien il y a de DATA à lire.

Exemple :

 10 REPeat loop
 20 IF EOF: EXIT loop
 30 READ a
 40 PRINT a
 50 END REPeat loop
100 DATA 1,2,3,4,5
110 DATA 6,7,8,9,10

En appelant une PROCedure avec des arguments que l’on veut éviter de modifier en retourrnant depuis la PROCedure, on peut les entourer individuellement de paranthèses, ainsi ils seront inaltérés dans le programme principal.

Exemple:

 10 x=10 : y=10
 20 test x,(y)
 25 REMark
 30 PRINT x,y              <--- imprimera 11 & 10
 40 STOP
 50 :
100 DEFine PROCedure test(x,y)
110    x=x+1
120    y=y+1
130    PRINT x,y           <--- imprimera 11 & 11
140 END DEFine test