RANDOMIZE TIMER DIM it$(200), in$(200) FOR a = 1 TO 147 READ it$(a), in$(a) NEXT a CLS LOCATE 12, 21: PRINT "Una produzione Paolo & Massioni Softwares" WHILE INKEY$ = "": WEND 1 CLS : punti = 3: dom = 0 PRINT " V E R B I I R R E G O L A R I I N G L E S I" PRINT : PRINT : PRINT : PRINT PRINT "1-Lista dei Verbi Irregolari" PRINT : PRINT "2-Interrogazione" PRINT : PRINT "3-Uscita" a$ = "": WHILE a$ <> "1" AND a$ <> "2" AND a$ <> "3": a$ = INKEY$: WEND IF a$ = "1" THEN GOTO 500 IF a$ = "3" THEN CLS : PRINT "CIAO!": END PRINT : PRINT "Un tasto per iniziare..." WHILE INKEY$ = "": WEND: CLS 10 e = INT(RND * 147) + 1: dom = dom + 1 PRINT it$(e); "?" INPUT "To ", e$ IF LCASE$(e$) = in$(e) THEN PRINT "Giusto!": punti = punti + .25 ELSE PRINT "Sbagliato! La risposta giusta era: to "; in$(e) PRINT IF dom < 20 THEN GOTO 10 IF punti - INT(punti) = .75 THEN punti = punti + 1 punti$ = STR$(INT(punti)) IF punti - INT(punti) = .5 THEN punti$ = punti$ + ",5" IF punti - INT(punti) = .25 THEN punti$ = punti$ + "+" IF punti - INT(punti) = .75 THEN punti$ = punti$ + "-" PRINT : PRINT "Valutazione:"; punti$ IF INT(punti) = 3 THEN PRINT "Molto molto male... Devi studiare molto di pi—." IF INT(punti) = 4 THEN PRINT "Male, impegnati di pi—." IF INT(punti) = 5 THEN PRINT "Non va ancora bene, ma se ti impegnerai un po' di pi— potrai recuperare." IF INT(punti) = 6 THEN PRINT "Va benino, ma si potrebbe fare di meglio..." IF INT(punti) = 7 THEN PRINT "Non c'Š male! Bravo, continua cosŤ!" IF INT(punti) = 8 THEN PRINT "Molto bene! Sei stato davvero molto bravo!" PRINT : PRINT "C per continuare...": WHILE INKEY$ <> "c": WEND GOTO 1 END 'n * 3 DATA Sorgere,arise arose arisen,Svegliarsi,awake awoke awoken,Portare-sopportare,bear bore borne 2 DATA Generare,bear bore born,Battere,beat beat beaten,Diventare,become became become 3 DATA Incominciare,begin began begun,Piegare-piegarsi,bend bent bent,Scommettere,bet bet bet 4 DATA Legare-rilegare,bind bound bound,Mordere,bite bit bitten,Sanguinare,bleed bled bled 5 DATA Soffiare,blow blew blown,Rompere-rompersi,break broke broken,Allevare-generare,breed bred bred 6 DATA Portare,bring brought brought,Trasmettere,broadcast broadcast broadcast,Costruire,build built built 7 DATA Bruciare,burn burnt burnt,Scoppiare,burst burst burst,Comprare,buy bought bought 8 DATA Gettare-fondere,cast cast cast,Prendere-acchiappare,catch caught caught,Scegliere,choose chose chosen 9 DATA Venire,come came come,Costare,cost cost cost,Strisciare,creep crept crept DATA Tagliare,cut cut cut,Trattare,deal dealt dealt,Scavare,dig dug dug 11 DATA Fare,do did done,Disegnare-tirare,draw drew drawn,Sognare,dream dreamt dreamt 12 DATA Bere,drink drank drunk,Guidare (veicoli),drive drove driven,Abitare,dwell dwelt dwelt 13 DATA Mangiare,eat ate eaten,Cadere,fall fell fallen,Nutrire,feed fed fed 14 DATA Sentire-sentirsi,feel felt felt,Combattere,fight fought fought,Trovare,find found found 15 DATA Fuggire,flee fled fled,Scagliare,fling flung flung,Volare,fly flew flown 16 DATA Proibire,forbid forbad forbidden,Prevedere-predire,forecast forecast forecast,Dimenticare,forget forgot forgotten 17 DATA Perdonare,forgive forgave forgiven,Gelare,freeze froze frozen,Ottenere-diventare,get got got 18 DATA Dare,give gave given,Andare,go went gone,Macinare-tritare,grind ground ground 19 DATA Crescere-coltivare,grow grew grown,Appendere,hang hung hung,Udire,hear heard heard 20 DATA Nascondere,hide hid hidden,Colpire,hit hit hit,Tenere-trattenere,hold held held 21 DATA Ferire,hurt hurt hurt,Tenere-conservare,keep kept kept,Inginocchiarsi,kneel knelt knelt 22 DATA Lavorare a maglia,knit knit knit,Conoscere-sapere,know knew known,Deporre-posare,lay laid laid 23 DATA Condurre-guidare,lead led led,Appoggiare-appoggiarsi,lean leant leant,Saltare,leap leapt leapt 24 DATA Imparare,learn learnt learnt,Lasciare-partire,leave left left,Prestare,lend lent lent 25 DATA Lasciare-permettere,let let let,Giacere-trovarsi,lie lay lain,Accendere-illuminare,light lit lit 26 DATA Perdere,lose lost lost,Fare-creare,make made made,Significare,mean meant meant 27 DATA Incontrare,meet met met,Fraintendere-sbagliare,mistake mistook mistaken,Falciare,mow mowed mown 28 DATA Pagare,pay paid paid,Mettere,put put put,Leggere,read read read 29 DATA Cavalcare,ride rode ridden,Suonare-squillare,ring rang rung,Alzarsi-sorgere,rise rose risen 30 DATA Correre,run ran run,Dire,say said said,Vedere,see saw seen 31 DATA Cercare,seek sought sought,Vendere,sell sold sold,Mandare-spedire,send sent sent 32 DATA Porre-tramontare,set set set,Cucire,sew sewed sewn,Scuotere-tremare,shake shook shaken 33 DATA Versare-spargere,shed shed shed,Splendere-brillare,shine shone shone,Sparare-germogliare,shoot shot shot 34 DATA Mostrare,show showed shown,Restringersi,shrink shrank shrunk,Chiudere,shut shut shut 35 DATA Cantare,sing sang sung,Affondare-sprofondare,sink sank sunk,Sedersi,sit sat sat 36 DATA Dormire,sleep slept slept,Scivolare-scorrere,slide slid slid,Odorare,smell smelt smelt 37 DATA Seminare,sow sowed sown,Parlare,speak spoke spoken,Affrettare,speed sped sped 38 DATA Compitare,spell spelt spelt,Spendere-trascorrere,spend spent spent,Versare-spandere,spill spilt spilt 39 DATA Spaccare-spaccarsi-dividere,split split split,Rovinare-sciupare-viziare,spoil spoilt spoilt,Diffondere-diffondersi-spandere,spread spread spread 40 DATA Saltare-scaturire,spring sprang sprung,Star ritto/in piedi,stand stood stood,Rubare,steal stole stolen 41 DATA Attaccare-attaccarsi,stick stuck stuck,Pungere (di insetti),sting stung stung,Puzzare,stink stank stunk 42 DATA Camminare a lunghi passi,stride strode stridden,Colpire-battere,strike struck struck,Lottare-sforzarsi,strive strove striven 43 DATA Giurare-bestemmiare,swear swore sworn,Scopare-spazzare,sweep swept swept,Gonfiare,swell swelled swollen 44 DATA Nuotare,swim swam swum,Oscillare-dondolare,swing swung swung,Prendere-portare-accompagnare,take took taken 45 DATA Insegnare,teach taught taught,Strappare-lacerare,tear tore torn,Dire-raccontare,tell told told 46 DATA Pensare,think thought thought,Gettare-buttare,throw threw thrown,Calpestare-pestare,tread trod trodden 47 DATA Capire-comprendere,understand understood understood,Svegliare,wake woke woken,Indossare-portare-logorare,wear wore worn 48 DATA Tessere,weave wove woven,Piangere,weep wept wept,Vincere,win won won 49 DATA Avvolgere-serpeggiare,wind wound wound,Torcere,wring wrung wrung,Scrivere,write wrote written 500 l = 1 505 CLS FOR a = l TO l + 20 COLOR 7: IF a / 2 = INT(a / 2) THEN COLOR 15 IF it$(a) <> "" THEN PRINT it$(a); TAB(38); "to "; in$(a) NEXT a COLOR 7 LOCATE 23, 1: PRINT "Esc-Uscita Invio-Pagina seguente Del-Pagina precedente" a$ = "": WHILE a$ <> CHR$(27) AND a$ <> CHR$(8) AND a$ <> CHR$(13): a$ = INKEY$: WEND IF ASC(a$) = 27 THEN GOTO 1 IF ASC(a$) = 13 AND l < 115 THEN l = l + 21 IF ASC(a$) = 8 AND l <> 1 THEN l = l - 21 GOTO 505