5 REM - CONJUGATIONS -
10 DIM A$(220):FOR X=1 TO 220:READ A$(X):NEXT
15 PRINT"[147] [211]ELECT THE A[146]CTIVE OR P[146]ASSIVE MOOD    A[157][157][157]";:INPUTZ$
20 IFZ$=""THEN20
25 IFZ$="P" THEN Z0=110:Z$=" PASSIVE ":GOTO40
30 IFZ$<>"A" THEN15
35 Z0=0:Z$=" ACTIVE "
40 PRINT"[147]       [195]ONJUGATION [205]ODELS"
45 PRINT"       [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
50 PRINT"  1 - MANDO MANDARE MANDAVI MANDATUS"
55 PRINT"  2 - PLACEO PLACERE PLACUI PLACITUS"
60 PRINT"  3 - MITTO MITTERE MISSI MISSUS"
65 PRINT"  4 - CAPIO CAPERE CEPI CAPTUS"
70 PRINT"  5 - AUDIO AUDIRE AUDIVI AUDITUS"
75 PRINT:PRINT:PRINT" [197]NTER MODEL NUMBER (1-5)"
80 GETC$:IFC$=""THEN80
85 CJ=VAL(C$)
90 ON CJ GOTO95,100,105,110,115
95 Z=Z0+1:GOTO120
100 Z=Z0+23:GOTO120
105 Z=Z0+45:GOTO120
110 Z=Z0+67:GOTO120
115 Z=Z0+89:GOTO120
120 PRINT:PRINT"[147] [197]NTER CONJUGATION VERB STEM";:INPUTV$
125 PRINT"[147]":PRINT" [208]RINCIPLE PARTS OF "+V$+A$(Z):PRINT
130 PRINT" ";V$+A$(Z);" ";V$+A$(Z+1);" ";V$+A$(Z+2);" ";V$+A$(Z+3):PRINT
135 PRINT" [208]RESENT"+Z$+"OF ";V$+A$(Z):PRINT:S=Z+4:F=Z+9:GOSUB175
140 PRINT:PRINT" [208]AST"+Z$+"OF "V$+A$(Z):PRINT:S=Z+10:F=Z+15:GOSUB175
145 PRINT:PRINT" [198]UTURE"+Z$+"OF "+V$+A$(Z):PRINT:S=Z+16:F=Z+21:GOSUB175
150 PRINT:PRINT"[193]NOTHER    Y[157][157][157]";:INPUTQ$
155 IF Q$="N" THEN END
160 IFQ$<>"Y" THEN150
165 GOTO15
170 REM * * TENSES SUBROUTINE * *
175 FORX=S TO F STEP2
180 PRINTTAB(5)V$+A$(X);
185 PRINTTAB(20)V$+A$(X+1):NEXT:RETURN
190 REM * * VERB ENDINGS * *
195 DATA O,ARE,AVI,ATUS
200 DATA O,AMUS,AS,ATIS,AT,ANT
205 DATA ABAM,ABAMUS,ABAS,ABATIS,ABAT,ABANT
210 DATA ABO,ABIMUS,ABIS,ABITIS,ABIT,ABUNT
215 DATA EO,ERE,UI,ITUS
220 DATA EO,EMUS,ES,ETIS,ET,ENT
225 DATA EBAM,EBAMUS,EBAS,EBATIS,EBAT,EBANT
230 DATA EBO,EBIMUS,EBIS,EBITIS,EBIT,EBUNT
235 DATA O,ERE,"[157][157]SI","[157][157]SSUS"
240 DATA O,IMUS,IS,ITIS,IT,UNT
245 DATA EBAM,EBAMUS,EBAS,EBATIS,EBAT,EBANT
250 DATA AM,EMUS,ES,ETIS,ET,ENT
255 DATA IO,"ERE","[157][157]EPI","TUS"
260 DATA IO,IMUS,IS,ITIS,IT,IUNT
265 DATA IEBAM,IEBAMUS,IEBAS,IEBATIS,IEBAT,IEBANT
270 DATA IAM,IEMUS,IES,IETIS,IET,IENT
275 DATA IO,IRE,IVI,ITUS
280 DATA IO,IMUS,IS,ITIS,IT,IUNT
285 DATA IEBAM,IEBAMUS,IEBAS,IEBATIS,IEBAT,IEBANT
290 DATA IAM,IEMUS,IES,IETIS,IET,IENT
295 REM -- EXTRA DATA STATEMENTS FOR PASSIVE --
300 DATA O,ARE,AVI,ATUS
305 DATA OR,AMUR,ARIS,AMINI,ATUR,ANTUR
310 DATA ABAR,ABAMUR,ABARIS,ABAMINI,ABATUR,ABANTUR
315 DATA ABOR,ABIMUR,ABERIS,ABIMINI,ABITUR,ABUNTUR
320 DATA EO,ERE,UI,ITUS
325 DATA EOR,EMUR,ERIS,EMINI,ETUR,ENTUR
330 DATA EBAR,EBAMUR,EBARIS,EBAMINI,EBATUR,EBANTUR
335 DATA EBOR,EBIMUR,EBERIS,EBIMINI,EBITUR,EBUNTUR
340 DATA O,ERE,"[157][157]SI","[157][157]SSUS"
345 DATA OR,IMUR,ERIS,IMINI,ITUR,UNTUR
350 DATA EBAR,EBAMUR,EBARIS,EBAMINI,EBATUR,EBANTUR
355 DATA AR,EMUR,ERIS,EMINI,ETUR,ENTUR
360 DATA IO,"ERE","[157][157]EPI","TUS"
365 DATA IOR,IMUR,IERIS,IMINI,ITUR,IUNTUR
370 DATA IEBAR,IEBAMUR,IEBARIS,IEBAMINI,IEBATUR,IEBANTUR
375 DATA IAR,IEMUR,IERIS,IEMINI,IETUR,IENTUR
380 DATA IO,IRE,IVI,ITUS
385 DATA IOR,IMUR,IRIS,IMINI,ITUR,IUNTUR
390 DATA IEBAR,IEBAMUR,IEBARIS,IEBAMINI,IEBATUR,IEBANTUR
395 DATA IAR,IEMUR,IERIS,IEMINI,IETUR,IENTUR