Découverte ou surprise avec DATA !

rem ============================================================================
rem      Découverte inattendue (pour moi au moins) avec l’utilisation de DATA
rem ============================================================================
dim a,b,c               : ' Déclarations de variables numériques
dim t$,hello$           : ' Déclarations de variables chaines
dim v1,v2,v3,v4,v5
' initialisation des variables
a = rnd(100)
b = exp(1)
c = sqr(2)
t$ = "Hello everybody"
' Lecture des DATA et affichage
read v1  : read v2  : read v3  : read v4  : read v5
print v1 : print v2 : print v3 : print v4 : print v5
read hello$ : print hello$
' ------------------------------------------------------------------------------
' Je ne savais pas qu'on peut utiliser des variables, des fonctions et même des
' expressions mathématiques dans les lignes DATA
data a+b
data b*c
data c*c-(b+a)
data pi*2+log(36)-123
data cos(pi/36)
data t$+", " + "intéressant n'est-ce pas!"
rem ============================================================================

dim x%
data x%+1
read x%
print str$(x%)
restore
read x%
print str$(x%)
restore
read x%
print str$(x%)
end