Problème de math

rem ============================================================================
rem                     Problème de math
rem ============================================================================
dim a$,t$
width 0,800 : height 0,500 : color 0,150,100,50
top 0,(screen_y - height(0))/2 : left 0,(screen_x - width(0))/2
t$ = "L'enseignement des mathématiques au cours des dernières décennies"
caption 0,t$
alpha 10 : top 10,20 : left 10,20 : font_name 10,"arial black" : font_size 10,14
alpha 20 : top 20,400 : left 20, 300 : caption 20,"Une touche ..."
font_name 20,"arial black" : font_size 20,12 : font_color 20,0,0,255

t$ = "" : read a$
repeat
    while a$ <> "FIN"
        t$ = t$ + a$ + chr$(13)
        read a$    
    end_while
    caption 10,t$
    a$ = ""
    while a$ = "" : a$ = inkey$ : end_while
    t$ = "" : read a$
until a$ = "OK"

terminate
rem ============================================================================
data "1960"
data "*****"
data "Un paysan vend un sac de pommes de terre pour 100F."
data "Ses frais de production s'élèvent aux 4 / 5 du prix de vente."
data "Quel est son bénéfice ?"
data "FIN"
rem ============================================================================
data "1970"
data "*****"
data "Un paysan vend un sac de pommes de terre pour 100F."
data "Ses frais de production s'élèvent aux 4 / 5 du prix de vente,"
data "c'est à dire 80F."
data "Quel est son bénéfice ?"
data "FIN"
rem ============================================================================
data "1980 Enseignement moderne"
data "****************************"
data "Un paysan échange un ensemble 'P' de pommes de terre contre"
data "un ensemble 'M' de pièces de monnais."
data "Le cardinal de l'ensemble 'M' est égal à 100, et chaque élément"
data "Sigma de 'M' vaut 1F."
data "Dessine 100 gros points représentant les éléments de l'ensemble 'M'."
data "L'ensemble 'F' des frais de production comprend 20 gros points de"
data "moins que l'ensemble 'M'."
data "Représente 'F' comme un sous-espace de 'M' et donne la réponse "
data "à la question :"
data "Quel est le cardinal de l'ensemble 'B' des bénéfices (à dessiner en rouge)."
data "FIN"
rem ============================================================================
data "Enseignement rénové 1990"
data "**************************"
data "Un agriculteur vend un sac de pommes de terre pour 100F."
data "Les frais de production s'élèvent à 80F et le bénéfice est 20F."
data "Devoir : Souligne les mots 'pommes de terre' et discutes-en "
data "avec ton voisin."
data "FIN"
rem ============================================================================
data "Enseignement réformé 1995"
data "***************************"
data "Un péizan kapitalist priviligé sanrichi injustement de 20F sur un "
data "sac de patat."
data "Analiz le tesks er recherche lé fote de contenu de gramère "
data "d'ortogrf de ponktuacion et ansuite di se ke tu panse "
data "de cête maniaire de sanrichir."
data "FIN"
rem ============================================================================
data "Enseignement assisté par ordinateur 1999"
data "*****************************************"
data "Un producteur de l'espace agricole câblé sur ADSL consulte en "
data "conversationnel une data bank qui display le day rate de la patate."
data "Il load son progiciel SAP / R3 de computation fiable et détermine"
data "le cash flow sur écran pitch 0,25 mm Energy star."
data "Dessine avec ton mulot le contour 3D du sac de pommes de terre "
data "puis logue toi au réseau Arpanot (Deep Blue Potatoes) via le SDH "
data "boucle 4.5,extraire de MIE le graphe des patates."
data "Devoir : Respecte-t-il la norme ANSI, ISO, EIAN, CCITT, AAL ?"
data "FIN"
rem ============================================================================
data "2000"
data "*****"
data "Qu'est ce qu'un paysan ?"
data "FIN"
rem ============================================================================
data "OK"
rem ============================================================================