home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 December / 1994-12b.d64 / declensions (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  53 lines
  1. 5 rem - declensions -
  2. 10 fory=1to4:read b$(y):next
  3. 15 dim a$(81):for x=1 to 81:read a$(x):next
  4. 20 print"[147] [196]eclension [205]odels"
  5. 25 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  6. 30 print"  1 - tuba-ae, curia-ae
  7. 35 [153]"  2 - amicus-i (pl. amici), puer-i
  8. 40 print"  3 - donum-i (pl. dona)
  9. 45 [153]"  4 - princeps-cipis, rex regis
  10. 50 print"  5 - vulnus-nera, corpus-ora
  11. 55 [153]"  6 - ignis-is, cliens-tis (ium form)
  12. 60 print"  7 - animal-is, calcar-is ([206]om.=[193]cc.)
  13. 65 [153]"  8 - gradus-us (masc.)
  14. 70 print"  9 - dies-i, res-i
  15. 75 [153]:[153]" valnter model number (1-9)";
  16. 80 [161]m$:[139]m$[178]""[167]80
  17. 85 cj[178][197](m$)
  18. 90 [145] cj [141]135,140,145,150,155,160,165,170,175
  19. 95 [153]:[153]"load":[133]" valnter noun";n$:[133]" valnter noun stem";ns$
  20. 100 [153]"load":[153]:[153]"  "[170]d$[170]" str$eclension":[153]"  of "[170]n$:[153]
  21. 105 [153]"  lenase     (NULL)ingular     (NULL)lural":[153]:[141]185
  22. 110 [153]:[153]:[153]"  atnnother   ycmdcmdcmd";:[133]q$
  23. 115 [139]q$[178]"n" [167] [128]
  24. 120 [139]q$[179][177]"y" [167]110
  25. 125 [137]20
  26. 130 [143] * * set constants for declension models * *
  27. 135 z[178]1:d$[178]"ascirst":[142]
  28. 140 z[178]10:d$[178]"(NULL)econd":[142]
  29. 145 z[178]19:d$[178]"(NULL)econd":[142]
  30. 150 z[178]28:d$[178]"(NULL)hird (mute stems)"::[142]
  31. 155 z[178]37:d$[178]"(NULL)hird (special)":[142]
  32. 160 z[178]46:d$[178]"(NULL)hird (i-stems)":[142]
  33. 165 z[178]55:d$[178]"(NULL)hird (i-stems, (NULL)om.=atncc.)":[142]
  34. 170 z[178]64:d$[178]"ascourth (masc.)":[142]
  35. 175 z[178]73:d$[178]"ascifth (e-stems)":[142]
  36. 180 [143] * * display declension **
  37. 185 [153][163]2)"(NULL)om.";[163]11)n$;[163]24)ns$[170]a$(z)
  38. 190 x[178]z[170]1
  39. 195 [129]y[178]1[164]4
  40. 200 [153][163]2)b$(y);[163]11)ns$[170]a$(x);[163]24)ns$[170]a$(x[170]1):x[178]x[170]2
  41. 205 [130]y:[142]
  42. 210 [143] * * noun endings * *
  43. 215 [131] "chr$en.","str$at.","atncc.","atnbl."
  44. 220 [131] ae,ae,arum,ae,is,am,as,a,is
  45. 225 [131] i,i,orum,o,is,um,os,o,is
  46. 230 [131] a,i,orum,o,is,um,a,o,is
  47. 235 [131] es,is,um,i,ibus,em,es,e,ibus
  48. 240 [131] a,is,um,i,ibus,"cmdcmdus",a,e,ibus
  49. 245 [131] es,is,ium,i,ibus,em,is,e,ibus
  50. 250 [131] ia,is,ium,i,ibus,,ia,i,ibus
  51. 255 [131] us,us,uum,ui(u),ibus,um,us,u,ibus
  52. 260 [131] s,i,rum,i,bus,m,s,,bus
  53.