home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 December / 1994-12b.d64 / conjugations (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  80 lines
  1. 5 rem - conjugations -
  2. 10 dim a$(220):for x=1 to 220:read a$(x):next
  3. 15 print"[147] [211]elect the a[146]ctive or p[146]assive mood    a[157][157][157]";:inputz$
  4. 20 ifz$=""then20
  5. 25 ifz$="p" then z0=110:z$=" passive ":goto40
  6. 30 ifz$<>"a" then15
  7. 35 z0=0:z$=" active "
  8. 40 print"[147]       [195]onjugation [205]odels"
  9. 45 print"       [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  10. 50 print"  1 - mando mandare mandavi mandatus"
  11. 55 print"  2 - placeo placere placui placitus"
  12. 60 print"  3 - mitto mittere missi missus"
  13. 65 print"  4 - capio capere cepi captus"
  14. 70 print"  5 - audio audire audivi auditus"
  15. 75 print:print:print" [197]nter model number (1-5)"
  16. 80 getc$:ifc$=""then80
  17. 85 cj=val(c$)
  18. 90 on cj goto95,100,105,110,115
  19. 95 z=z0+1:goto120
  20. 100 z=z0+23:goto120
  21. 105 z=z0+45:goto120
  22. 110 z=z0+67:goto120
  23. 115 z=z0+89:goto120
  24. 120 print:print"[147] [197]nter conjugation verb stem";:inputv$
  25. 125 print"[147]":print" [208]rinciple parts of "+v$+a$(z):print
  26. 130 print" ";v$+a$(z);" ";v$+a$(z+1);" ";v$+a$(z+2);" ";v$+a$(z+3):print
  27. 135 print" [208]resent"+z$+"of ";v$+a$(z):print:s=z+4:f=z+9:gosub175
  28. 140 print:print" [208]ast"+z$+"of "v$+a$(z):print:s=z+10:f=z+15:gosub175
  29. 145 print:print" [198]uture"+z$+"of "+v$+a$(z):print:s=z+16:f=z+21:gosub175
  30. 150 print:print"[193]nother    y[157][157][157]";:inputq$
  31. 155 if q$="n" then end
  32. 160 ifq$<>"y" then150
  33. 165 goto15
  34. 170 rem * * tenses subroutine * *
  35. 175 forx=s to f step2
  36. 180 printtab(5)v$+a$(x);
  37. 185 printtab(20)v$+a$(x+1):next:return
  38. 190 rem * * verb endings * *
  39. 195 data o,are,avi,atus
  40. 200 data o,amus,as,atis,at,ant
  41. 205 data abam,abamus,abas,abatis,abat,abant
  42. 210 data abo,abimus,abis,abitis,abit,abunt
  43. 215 data eo,ere,ui,itus
  44. 220 data eo,emus,es,etis,et,ent
  45. 225 data ebam,ebamus,ebas,ebatis,ebat,ebant
  46. 230 data ebo,ebimus,ebis,ebitis,ebit,ebunt
  47. 235 data o,ere,"[157][157]si","[157][157]ssus"
  48. 240 data o,imus,is,itis,it,unt
  49. 245 data ebam,ebamus,ebas,ebatis,ebat,ebant
  50. 250 data am,emus,es,etis,et,ent
  51. 255 data io,"ere","[157][157]epi","tus"
  52. 260 data io,imus,is,itis,it,iunt
  53. 265 data iebam,iebamus,iebas,iebatis,iebat,iebant
  54. 270 data iam,iemus,ies,ietis,iet,ient
  55. 275 data io,ire,ivi,itus
  56. 280 data io,imus,is,itis,it,iunt
  57. 285 data iebam,iebamus,iebas,iebatis,iebat,iebant
  58. 290 data iam,iemus,ies,ietis,iet,ient
  59. 295 rem -- extra data statements for passive --
  60. 300 data o,are,avi,atus
  61. 305 data or,amur,aris,amini,atur,antur
  62. 310 data abar,abamur,abaris,abamini,abatur,abantur
  63. 315 data abor,abimur,aberis,abimini,abitur,abuntur
  64. 320 data eo,ere,ui,itus
  65. 325 data eor,emur,eris,emini,etur,entur
  66. 330 data ebar,ebamur,ebaris,ebamini,ebatur,ebantur
  67. 335 data ebor,ebimur,eberis,ebimini,ebitur,ebuntur
  68. 340 data o,ere,"[157][157]si","[157][157]ssus"
  69. 345 data or,imur,eris,imini,itur,untur
  70. 350 data ebar,ebamur,ebaris,ebamini,ebatur,ebantur
  71. 355 data ar,emur,eris,emini,etur,entur
  72. 360 data io,"ere","[157][157]epi","tus"
  73. 365 data ior,imur,ieris,imini,itur,iuntur
  74. 370 data iebar,iebamur,iebaris,iebamini,iebatur,iebantur
  75. 375 data iar,iemur,ieris,iemini,ietur,ientur
  76. 380 data io,ire,ivi,itus
  77. 385 data ior,imur,iris,imini,itur,iuntur
  78. 390 data iebar,iebamur,iebaris,iebamini,iebatur,iebantur
  79. 395 data iar,iemur,ieris,iemini,ietur,ientur
  80.