10MODE6:VDU23;8202;0;0;0;13;
20PRINT"This program is shareware. It
may be copied and distributed freely
under the conditions outlined in the in
structions."'''"1. Greek Verbs Test"''"
2. Instructions"
30X%=GET:Z%=23
40IFX%=49THENGOTO110
50ONERRORGOTO80
60MODE0:VDU14:VDU23;8202;0;0;0;0:PRIN
T"-----------------<SHIFT> TO SCROLL TEX
T - <ESCAPE> TO ABANDON";:FORI%=1TO99:PR
INT"-";:NEXT
70VDU28,0,30,79,2:PROCd
80ONERROROFF:*FX200,3
90PRINT''"-------------------------<R
ETURN> TO CONTINUE";:FORI%=1TO115:PRINT"
-";:NEXT
100REPEATUNTILGET=13
110MODE6:VDU23;8202;0;0;0;0;0:PRINT"PL
EASE WAIT":PROCc
120CLS:PRINT"PLEASE WAIT":CHAIN"VERBS"
130DEFPROCc
140X%=OPENIN"CHARSET":FORI%=1TO&14A:VD
UBGET#X%:NEXT:CLOSE#0:ENDPROC
150d%=RND(-TIME)
160DEFPROCd
170X%=OPENIN"!instr":FORI%=1TO&21D2:A%
=BGET#X%
180IFA%=13THENPRINTELSEVDUA%
190NEXT:CLOSE#0:ENDPROC