10 DEFFNS="Pr600-2"
   30 MODE7
   40 VDU23;8202;0;0;0;
   50 PROCprt("Wordsearch 600-2 by C.J.Richardson.")
   60 PROCprt("Written using a wordsearch")
   70 PROCprt("generator.")
   80 PROCprt("This will *TYPE the file ws600-2")
   90 PROCprt("Prepare your printer,")
  100 PROCprt("then press a key")
  110 REPEATUNTILGET
  120 VDU2
  130 *TYPE ws600-2
  140 VDU3
  150 END
  160 DEFPROCprt(A$):A$=A$+STRING$(LENA$MOD2," "):FORL%=1TOLENA$:PRINTTAB(18-L%/2);"��";LEFT$(A$,L%/2);RIGHT$(A$,L%/2);TAB(18-L%/2);"��";LEFT$(A$,L%/2);RIGHT$(A$,L%/2):VDU11,11:NEXT:VDU10,10:ENDPROC