10  MODE 7
   20 VDU23;8202;0;0;0;0;0;
   30  PRINT''''
   40 PROCsearch
   50 PROCwait(4000)
   60  CLS:PRINT'''''''
   70  PROCresolve
   80 PROCwait(4000)
   90 CLS
  100 PRINT"‚Please wait..."
  110 CHAIN"Search2"
  120 DEF PROCsearch
  130 PRINT"—     ÿ/¥ÿ¯¥ÿï5ÿï´ÿïµÿj5 þï´ýjþý"
  140 PRINT"—     ¯ïµÿ/¥ÿï5ÿï±ÿà°ÿï5 ÿò±ÿj5¯"
  150 PRINT"—     ¯/¥//¥ÿêµ/ª¥//¥/ª¥ ÿã±ÿj5 "
  160 PRINT"—     ///////ª////////////¢¯§ª¥"
  170 PRINT
  180 PRINT"‘       êµø¿ïô àå jÿô ©¸á¾áÿê5"
  190 PRINT"‘       êµïôð« ºª°j5ëµ ´ÿ¬¬êê5"
  200 PRINT"‘       êµô£«ý৳åj5êµèéêµïªþ5"
  210 PRINT"‘       굫ýþ§êàõêj5¿¡öò´ÿþ¥ï5"
  220 PRINT"‘       êµ|||||||||||||||||þê5"
  230 PRINT"‘       êý||||||||||||||||´ÿþ5"
  240 PRINT"‘"
  250 ENDPROC
  260 DEF PROCresolve
  270 PRINT"‘       “,,,,,,,,,‚A“,,,,,,,,¤"
  280 PRINT"”        ÿï´ÿ¯¥ÿ/¥ÿï5ÿ  ÿêµÿ/¥"
  290 PRINT"”        ÿï±ÿ¯¥¯ïµÿj5ÿ  ÿêµÿ¯¥"
  300 PRINT"”        ÿj5ÿþµÿþµÿþ5ÿþµÿ¾¡ÿþµ"
  310 PRINT"‘       “,,,,,‚PRODUCTION“,,,,"
  320 ENDPROC
  330 PRINT"‘"
  340 ENDPROC
  350 DEF PROCwait(x%)
  360 q%=1
  370 REPEAT
  380 q%=q%+1
  390 UNTIL q%=x% OR q%>x% OR INKEY(-99)
  400 ENDPROC