10DEFFNS="Pr600-2" 30MODE7 40VDU23;8202;0;0;0; 50PROCprt("Wordsearch 600-2 by C.J.Ri chardson.") 60PROCprt("Written using a wordsearch ") 70PROCprt("generator.") 80PROCprt("This will *TYPE the file w s600-2") 90PROCprt("Prepare your printer,") 100PROCprt("then press a key") 110REPEATUNTILGET 120VDU2 130*TYPE ws600-2 140VDU3 150END 160DEFPROCprt(A$):A$=A$+STRING$(LENA$M OD2," "):FORL%=1TOLENA$:PRINTTAB(18-L%/2 );"   ,L%/2):VDU11,11:NEXT:VDU10,10:ENDPROC