5 REM - DECLENSIONS -
10 FORY=1TO4:READ B$(Y):NEXT
15 DIM A$(81):FOR X=1 TO 81:READ A$(X):NEXT
20 PRINT"[147] [196]ECLENSION [205]ODELS"
25 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
30 PRINT"  1 - TUBA-AE, CURIA-AE
35 [153]"  2 - AMICUS-I (PL. AMICI), PUER-I
40 PRINT"  3 - DONUM-I (PL. DONA)
45 [153]"  4 - PRINCEPS-CIPIS, REX REGIS
50 PRINT"  5 - VULNUS-NERA, CORPUS-ORA
55 [153]"  6 - IGNIS-IS, CLIENS-TIS (IUM FORM)
60 PRINT"  7 - ANIMAL-IS, CALCAR-IS ([206]OM.=[193]CC.)
65 [153]"  8 - GRADUS-US (MASC.)
70 PRINT"  9 - DIES-I, RES-I
75 [153]:[153]" VALNTER MODEL NUMBER (1-9)";
80 [161]M$:[139]M$[178]""[167]80
85 CJ[178][197](M$)
90 [145] CJ [141]135,140,145,150,155,160,165,170,175
95 [153]:[153]"LOAD":[133]" VALNTER NOUN";N$:[133]" VALNTER NOUN STEM";NS$
100 [153]"LOAD":[153]:[153]"  "[170]D$[170]" STR$ECLENSION":[153]"  OF "[170]N$:[153]
105 [153]"  LENASE     (null)INGULAR     (null)LURAL":[153]:[141]185
110 [153]:[153]:[153]"  ATNNOTHER   YCMDCMDCMD";:[133]Q$
115 [139]Q$[178]"N" [167] [128]
120 [139]Q$[179][177]"Y" [167]110
125 [137]20
130 [143] * * SET CONSTANTS FOR DECLENSION MODELS * *
135 Z[178]1:D$[178]"ASCIRST":[142]
140 Z[178]10:D$[178]"(null)ECOND":[142]
145 Z[178]19:D$[178]"(null)ECOND":[142]
150 Z[178]28:D$[178]"(null)HIRD (MUTE STEMS)"::[142]
155 Z[178]37:D$[178]"(null)HIRD (SPECIAL)":[142]
160 Z[178]46:D$[178]"(null)HIRD (I-STEMS)":[142]
165 Z[178]55:D$[178]"(null)HIRD (I-STEMS, (null)OM.=ATNCC.)":[142]
170 Z[178]64:D$[178]"ASCOURTH (MASC.)":[142]
175 Z[178]73:D$[178]"ASCIFTH (E-STEMS)":[142]
180 [143] * * DISPLAY DECLENSION **
185 [153][163]2)"(null)OM.";[163]11)N$;[163]24)NS$[170]A$(Z)
190 X[178]Z[170]1
195 [129]Y[178]1[164]4
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
205 [130]Y:[142]
210 [143] * * NOUN ENDINGS * *
215 [131] "CHR$EN.","STR$AT.","ATNCC.","ATNBL."
220 [131] AE,AE,ARUM,AE,IS,AM,AS,A,IS
225 [131] I,I,ORUM,O,IS,UM,OS,O,IS
230 [131] A,I,ORUM,O,IS,UM,A,O,IS
235 [131] ES,IS,UM,I,IBUS,EM,ES,E,IBUS
240 [131] A,IS,UM,I,IBUS,"CMDCMDUS",A,E,IBUS
245 [131] ES,IS,IUM,I,IBUS,EM,IS,E,IBUS
250 [131] IA,IS,IUM,I,IBUS,,IA,I,IBUS
255 [131] US,US,UUM,UI(U),IBUS,UM,US,U,IBUS
260 [131] S,I,RUM,I,BUS,M,S,,BUS