8-Bit Software Online Conversion
:2.$.VERBS - Listing
10CLS:CLEAR:PROCa
20PROCb
30REPEAT:c%=RND(8):UNTILd%(c%)=1:C%=C
%-1
40e%=RND(20):f%=RND(6):H%=0
50IFc%<3THENe$=Y$(e%,1)
60IFc%=3ORc%=4THENe$=Y$(e%,2)
70IFc%=5ORc%=6THENe$=Y$(e%,3)
80IFc%>6THENe$=Y$(e%,5)
90g$=f$(c%,f%)
100PROCh
110H%=0:CLS
120PROCi
130PRINTTAB(0,5)"WHICH TENSE ? (PRESS
NUMBER)"''
140FORI%=1TO8
150IFd%(I%)=1THENPRINTI%;". ";c$(I%)EL
SEPRINTI%;"."
160NEXT
170X%=GET-48
180IFX%<1ORX%>8THENGOTO170ELSEIFd%(X%)
=0THENGOTO170
190IFX%=c%THENPROCj:GOTO230
200k%(c%)=k%(c%)+1
210H%=H%+1:PROCl:IFH%=3THENGOTO430
220PRINT''"WRONG - PRESS ANY KEY TO TR
Y AGAIN":X%=GET:CLS:GOTO120
230H%=0:CLS
240PROCi
250PRINTTAB(0,5)"WHICH PERSON ? (PRESS
NUMBER)"''
260FORI%=1TO6:PRINTI%;". ";m$(I%):IFI%
=3THENPRINT
270NEXT
280X%=GET-48:IFX%<1ORX%>8THENGOTO280
290IFX%=f%THENPROCj:GOTO330
300k%(c%)=k%(c%)+1
310H%=H%+1:PROCl:IFH%=3THENGOTO430
320PRINT''"WRONG - PRESS ANY KEY TO TR
Y AGAIN":X%=GET:CLS:GOTO240
330CLS:PRINT'"You were right - ";:PROC
i
340PRINT" is the"'';m$(f%);" ";c$(c%)'
350PRINT"of the verb ";
360e$=Y$(e%,1):g$=f$(1,1):E%=0:PROCh:P
ROCi
370PRINT'''"The meaning of this verb i
s "'"'to ";Y$(e%,4);"'"'''
380IFC%<1THENPRINT"PRESS ANY KEY TO SE
E THE RESULTS":X=GET:GOTO540
390PRINT''"PRESS C TO CONTINUE, R TO R
ESTART"
400X%=GET:IFX%=67ORX%=99THENGOTO30
410IFX%=82ORX%=114THENGOTO10
420GOTO400
430CLS:PRINT'"Actually, ";:PROCi
440PRINT" is the"'';m$(f%);" ";c$(c%)'
450PRINT"of the verb ";
460e$=Y$(e%,1):g$=f$(1,1):E%=0:PROCh:P
ROCi
470PRINT'''"The meaning of this verb i
s "'"'to ";Y$(e%,4);"'"'''
480IFC%<1THENPRINT"PRESS ANY KEY TO SE
E THE RESULTS":X=GET:GOTO540
490PRINT''"PRESS C TO CONTINUE, R TO R
ESTART"
500X%=GET:IFX%=67ORX%=99THENGOTO30
510IFX%=67ORX%=99THENUNTILTRUE:UNTILFA
LSE
520IFX%=82ORX%=114THENGOTO10
530GOTO500
540CLS:PRINT"ANALYSIS OF PERFORMANCE"'
"-----------------------"
550PRINTTAB(24,4)"MISTAKES"
560FORI%=1TO8:PRINTc$(I%),k%(I%):NEXT
570PRINT''"PRESS R TO RESTART OR Q TO
QUIT"
580X%=GET:IFX%=82ORX%=114THENGOTO10
590IFX%=81ORX%=113THENCLS:OSCLI"BYE":C
ALL!-4
600GOTO580
610DEFPROCb
620PRINT"PRESS NUMBER KEYS TO SELECT W
HICH TENSESTO TEST ON, THEN PRESS C TO C
ONTINUE"
630PRINT'':FORI%=1TO8:PRINT;I%;". ";c$
(I%):NEXT
640REPEAT:X%=GET-48
650IFX%>0ANDX%<9THENIFd%(X%)=0THENCOLO
UR129:COLOUR2:PRINTTAB(0,X%+4);X%;". ";c
$(X%):PROCn:d%(X%)=1:UNTILTRUE:GOTO640
660IFX%>0ANDX%<9THENIFd%(X%)=1THENCOLO
UR128:COLOUR1:PRINTTAB(0,X%+4);X%;". ";c
$(X%):PROCo:d%(X%)=0:UNTILTRUE:GOTO640
670UNTILX%=19ORX%=51:COLOUR128:COLOUR1
680FORI%=1TO8:IFd%(I%)=1THENX%=99
690NEXT:IFX%<>99THENGOTO640
700INPUTTAB(0,15)"HOW MANY QUESTIONS "
;C%:ENDPROC
710DEFPROCj
720FORI%=2TO6:SOUND1,-15,I%*8+25,1:NEX
T
730PRINT''"CORRECT - PRESS ANY KEY TO
CONTINUE":X=GET
740ENDPROC
750DEFPROCl
760FORI%=6TO2STEP-1:SOUND1,-15,I%*8+20
,1:NEXT
770ENDPROC
780DEFPROCn
790SOUND1,-15,20,2
800ENDPROC
810DEFPROCo
820SOUND1,-15,0,2
830ENDPROC
840DATA"LU","ELUS","LUS","loose","ELU"
,0
850DATA"TIMA","ETIMFS","TIMFS","honour
","ETIMA",0
860DATA"POIE","EPOIFS","POIFS","do","E
POIE",0
870DATA"DFLO","EDFLWS","DFLWS","show",
"EDFLO",0
880DATA"BOFHE","EBOFHFS","BOFHFS","hel
p","EBOFHE",0
890DATA"DIDASK","EDIDAX","DIDAX","teac
h","EDIDASK",0
900DATA"EHEL","FHELFS","EHELFS","wish"
,"FHEL",1
910DATA"ELAUN","FLAS","ELE","drive","F
LAUN",1
920DATA"KAI","EKAUS","KAUS","burn","EK
AI",0
930DATA"KALE","EKALES","KALE","call","
EKALE",0
940DATA"KELEU","EKELEUS","KELEUS","ord
er","EKELEU",0
950DATA"KLEPT","EKLEY","KLEY","steal",
"EKLEPT",0
960DATA"KOMIZ","EKOMIS","KOMIE","bring
","EKOMIZ",0
970DATA"KRIN","EKRIN","KRINE","judge",
"EKRIN",0
980DATA"LEG","ELEX","LEX","say","ELEG"
,0
990DATA"MELL","EMELLFS","MELLFS","inte
nd","EMELL",0
1000DATA"MEN","EMEIN","MENE","remain","
EMEN",0
1010DATA"NEM","ENEIM","NEME","allot","E
NEM",0
1020DATA"TREP","ETREY","TREY","turn","E
TREP",0
1030DATA"TELE","ETELES","TELE","accompl
ish","ETEL",0
1040DATA"W","EIV","EI","OMEN","ETE","OU
SI"
1050DATA"OMAI","EI","ETAI","OMEHA","ESH
E","ONTAI"
1060DATA"A","AV","E","AMEN","ATE","AN"
1070DATA"AMFN","W","ATO","AMEHA","ASHE"
,"ANTO"
1080DATA"W","EIV","EI","OMEN","ETE","OU
SI"
1090DATA"OMAI","EI","ETAI","OMEHA","ESH
E","ONTAI"
1100DATA"ON","EV","E","OMEN","ETE","ON"
1110DATA"OMFV","OU","ETO","OMEHA","ESHE
","ONTO"
1120DATA Present Active,Present Middle,
Weak Aorist Active,Weak Aorist Middle,Fu
ture Active,Future Middle,Imperfect Acti
ve,Imperfect Middle
1130DATA 1st Person Singular,2nd Person
Singular,3rd Person Singular,1st Person
Plural,2nd Person Plural,3rd Person Plu
ral
1140DEFPROCh
1150p$="":q$="":E%=0
1160FORI%=1TOLENe$:p$=p$+CHR$((ASC(MID$
(e$,I%,1))+159)):NEXT
1170FORI%=1TOLENg$:q$=q$+CHR$((ASC(MID$
(g$,I%,1))+159)):NEXT
1180A=ASC(MID$(p$,LENp$,1))
1190IFA<>224ANDA<>228ANDA<>238ANDA<>229
THENIFA<>232THENIFA<>244THENIFA<>246THEN
e$=p$:g$=q$:GOTO1460
1200B=ASC(MID$(q$,1,1)):C=ASC(MID$(q$,2
,1))
1210IFB=228THENIFC=232THENB=1
1220IFB=238THENIFC=244THENB=2
1230IFB=238THENIFC=232THENB=3
1240IFB=224THENIFC=232THENB=4
1250IFA=228THENPROCr
1260IFA=224THENPROCs
1270IFA=238THENPROCt
1280IFA<>228ANDA<>224THENIFA<>238THENe$
=p$:g$=q$:GOTO1460
1290ONCGOTO1300,1310,1320,1340,1350,137
0,1390,1410,1430,1450
1300e$=MID$(p$,1,(LENp$)-1):g$=q$:GOTO1
460
1310e$=p$:g$=CHR$(232)+MID$(q$,2,(LENq$
)-1):GOTO1460
1320e$=MID$(p$,1,LENp$-1)
1330g$=CHR$(238)+CHR$(244)+MID$(q$,2,(L
ENq$)-1):GOTO1460
1340e$=p$:g$=MID$(q$,2,(LENq$)-1):GOTO1
460
1350e$=MID$(p$,1,(LENp$)-1)
1360g$=CHR$(252)+MID$(q$,3,(LENq$)-2):G
OTO1460
1370e$=MID$(p$,1,(LENp$)-1)
1380g$=CHR$(252)+MID$(q$,2,(LENq$)-1):G
OTO1460
1390e$=MID$(p$,1,(LENp$)-1)
1400g$=CHR$(246)+MID$(q$,2,(LENq$)-1):G
OTO1460
1410e$=MID$(p$,1,(LENp$)-1)
1420g$=CHR$(246)+MID$(q$,3,(LENq$)-1):G
OTO1460
1430e$=MID$(p$,1,(LENp$)-1)
1440g$=CHR$(254)+MID$(q$,3,(LENq$)-2):G
OTO1460
1450e$=p$:g$=CHR$(232)+MID$(q$,3,(LENq$
)-2)
1460IFD%(e%)<>0THENE%=D%(e%):ENDPROC
1470A%=ASC(MID$(e$,1,1))
1480IFA%=228ORA%=229ORA%=232ORA%=238ORA
%=244ORA%=246ORA%>251THENE%=1
1490ENDPROC
1500DEFPROCr
1510IFB<5THENC=1
1520IFB=229ORB=246ORB=252ORB=253ORB=254
THENC=1
1530IFB=228THENC=2
1540IFB=238THENC=3
1550ENDPROC
1560DEFPROCs
1570IFB=228ORB=229THENC=4
1580IFB=1THENC=5
1590IFB=253THENC=6
1600IFB=238ORB=246THENC=7
1610IFB=2THENC=8
1620IFB=3THENC=9
1630ENDPROC
1640DEFPROCt
1650IFB=228ORB=238THENC=3
1660IFB=229ORB=246THENC=7
1670IFB=1ORB=3THENC=10
1680IFB=253THENC=2
1690IFB=2THENC=1
1700ENDPROC
1710DEFPROCi
1720IFE%=1THENVDU11;251;8;10
1730IFE%=2THENVDU11;250;8;10
1740IFE%=3THENVDU11;9;251;8;8;10
1750IFE%=4THENVDU11;9;250;8;8;10
1760PRINTe$;g$;
1770ENDPROC
1780DEFPROCa:IFZ%<>23THENCHAIN"!LOADER"
1790RESTORE840:DIMY$(20,5):DIMD%(100):D
IMf$(8,6):DIMk%(8):*FX200,3
1800FORI%=1TO20:FORN%=1TO5:READY$(I%,N%
):NEXT:READD%(I%):NEXT
1810RESTORE1040:FORI%=1TO8:FORN%=1TO6:R
EADf$(I%,N%):NEXT:NEXT
1820DIMc$(8):RESTORE1120:FORI%=1TO8:REA
Dc$(I%):NEXT
1830DIMd%(8):DIMm$(6):RESTORE1130:FORI%
=1TO6:READm$(I%):NEXT
1840ENDPROC