Comment utiliser un tableau DIM en basic QB64 HOW TO DO DIM

Un petit exemple concret de la fonction DIM qui est bien utile pour mémoriser des données...


10 DIM a$(200): LOCATE 1, 1: PRINT "tapez  sur le cavier et touche p pour voir le resultat ! "
20 i = i + 1: SLEEP 1
30 k$ = INKEY$
40 a$(i) = k$
90 IF k$ = "p" THEN GOTO 120
95 PRINT i, a$(i)
100 GOTO 20
120 FOR i = 0 TO i
    130 PRINT a$(i), i
135 next i