latino6

il programma comprende una parte grafica, caselle, testi vari, 
creata con editor di superedit e le istruzioni per la attivazione
del programma stesso:listato principale scritto in una unica card e
si attiva cliccando su area libera (on mousedown) e una istruzione relativa
al tasto uscita  per attivare la chiusura (close wd)

durante la attivazione si visualizza una animazione con interazione

programma principale scritto in unica card:si attiva cliccando su area libera

--LATINO6
--coniugazione verbi latini quattro coniugazioni
--un tempo per volta su richiesta 
--interazione e correzione errori e conteggio risultato
on mousedown
  global totale1,totale2,esatte,errate
  put 0 into esatte
  put 0 into errate
  put into cd fld 8

  desinenze da unire a radici
  put "o as at amus atis ant" into s1
  put "abam abas abat abamus abatis abant" into s2
  put "abo abis abit abimus abitis abunt" into s3
  put "i isti it imus istis erunt" into s4
  put "eram eras erat eramus eratis erant" into s5
  put "ero eris erit erimus eritis erint" into s6
  put "em es et emus etis ent" into s7
  put "m s t mus tis nt" into s8
  put "erim eris erit erimus eritis erint" into s9
  put "issem isses isset issemus issetis issent" into s10
  

  put "eo es et emus etis ent" into p1
  put "ebam ebas ebat ebamus ebatis ebant" into p2
  put "ebo ebis ebit ebimus ebitis ebunt" into p3
  put "eam eas eat eamus eatis eant" into p7
  

  put "o is it imus itis unt" into d1
  put "ebam ebas ebat ebamus ebatis ebant" into d2
  put "am es et emus etis ent" into d3
  put "am as at amus atis ant" into d7
  

  put "io is it imus itis iunt" into q1
  put "iebam iebas iebat iebamus iebatis iebant" into q2
  put "iam ies iet iemus ietis ient" into q3
  put "iam ias iat iamus iatis iant" into q7
  diciture visualizzate

  put "presenteI imperfettoI futuroS perfettoI piuccheperfettoI futuroA" into t1
  put "presenteC imperfettoC perfettoC piuccheperfettoC" into t2
  put t1 & " " & t2 into tempo
  

  put "" into cd fld 1
  put "" into cd fld 2
  put "" into cd fld 4
  put "" into cd fld 7
  put "" into MSG
  richiesta infinito ricava radice e desinenza finale

  put "per seconda coniugazione,usare la é accentata:es.monére" into cd fld 4
  ask "infinito verbo latino"
  put it into infinito
  put len(infinito) into lunga
  put char (lunga-2) to lunga of infinito into desinenza

  stabilisce coniugazione da usare
  if desinenza="are" then put 1 into c
  if desinenza="ére" then put 2 into c
  if desinenza="ere" then put 3 into c
  if desinenza="ire" then put 4 into c

  richiede perfetto e ricava radice
  ask "scrivi perfetto stesso verbo"
  put it into perfetto
  put char 1 to (len(infinito)-3) of infinito into radice1
  put char 1 to (len(perfetto)-1) of perfetto into radice2
  put "verbo da coniugare:"& infinito into line 1 of cd fld 1
  put "radici da usare "& radice1 & "  " & radice2 into line 2 of cd fld 1

  richiede tempo da coniugare
  repeat for 20 times
    ask "indica tempo da coniugare:0 per finire"
    if it=0 then exit repeat
    put "" into v
    put word it of tempo into line 2 of cd fld 5
    if it=1 and c=1 then go to coniuga(s1,radice1)
    if it=2 and c=1 then go to coniuga(s2,radice1) 
    if it=3 and c=1 then go to coniuga(s3,radice1)
    if it=4 then go to coniuga(s4,radice2)
    if it=5 then go to coniuga(s5,radice2)
    if it=6 then go to coniuga(s6,radice2)
    if it=7 and c=1 then go to coniuga(s7,radice1)
    if it=8 then go to coniuga(s8,infinito)
    if it=9 then go to coniuga(s9,radice2)
    if it=10 then go to coniuga(s10,radice2)
    assegna radici

    if it=1 and c=2 then go to coniuga(p1,radice1)
    if it=2 and c=2 then go to coniuga(p2,radice1)
    if it=3 and c=2 then go to coniuga(p3,radice1)
    if it=7 and c=2 then go to coniuga(p7,radice1)
    

    if it=1 and c=3 then go to coniuga(d1,radice1)
    if it=2 and c=3 then go to coniuga(d2,radice1)
    if it=3 and c=3 then go to coniuga(d3,radice1)
    if it=7 and c=3 then go to coniuga(d7,radice1)
    

    if it=1 and c=4 then go to coniuga(q1,radice1)
    if it=2 and c=4 then go to coniuga(q2,radice1)
    if it=3 and c=4 then go to coniuga(q3,radice1)
    if it=7 and c=4 then go to coniuga(q7,radice1)
   verifica riposte 

  end repeat
  put "esatte " & totale1 into line 1 of cd fld 8
  put "errate " & totale2 into line 2 of cd fld 8
  put "clic per altro verbo,oppure USCITA" into cd fld 4
end mousedown

coniuga verbo e verifica esattezza

function coniuga x,y 
  global totale1,totale2,esatte,errate
  put x into verbo
  put y into rad
  repeat with k=1 to 6
    put "forma verbale:" & k into line k of cd fld 2
    ask "scrivi forma verbale"
    put it into f
    put "" into MSG
    put f into line k of cd fld 7
    if f<>rad & word k of verbo then put "errato:era..."
    put rad & word k of verbo into line k of cd fld 2
    if f<>rad & word k of verbo then put errate+1 into errate
    if f=rad & word k of verbo then put esatte+1 into esatte
    put esatte into totale1
    put errate into totale2
  end repeat
  put "clic per continuare" into cd fld 6
  wait until mouseclick()
  put "" into cd fld 6
  put "" into cd fld 7
  put "" into cd fld 2
  

end coniuga

tasto uscita

on mousedown   
close wd 
end mousedown