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