10 MODE 7 20VDU23;8202;0;0;0;0;0; 30 PRINT'''' 40PROCsearch 50PROCwait(4000) 60 CLS:PRINT''''''' 70 PROCresolve 80PROCwait(4000) 90CLS 100PRINT" Please wait..." 110CHAIN"Search2" 120DEF PROCsearch 130PRINT"   j÷¾" 140PRINT"   j5/" 150PRINT"   j5 " 160PRINT"  *%" 170PRINT 180PRINT"     5" 190PRINT"    5" 200PRINT"  5" 210PRINT"  5" 220PRINT"  5" 230PRINT"  5" 240PRINT"  250ENDPROC 260DEF PROCresolve 270PRINT"  A  $" 280PRINT"   %" 290PRINT"   %" 300PRINT"  5" 310PRINT"  PRODUCTION  ," 320ENDPROC 330PRINT"  340ENDPROC 350DEF PROCwait(x%) 360q%=1 370REPEAT 380q%=q%+1 390UNTIL q%=x% OR q%>x% OR INKEY(-99) 400ENDPROC