10 DEFFNS="MENU"
   20 IF PAGE<>&1900:PAGE=&1900:CHAIN"MENU"
   30 MODE7
   40 VDU23;8202;0;0;0;
   45 PROCprt("Guess Who")
   46 PROCprt("Programmed by C.J.Richardson")
   50 PROCprt("1. Play Guess Who")
   60 PROCprt("2. Info for Guess Who")
   70 PROCprt("3. Add to data")
   80 PROCprt("Press 1 - 3")
   90 A$=GET$
  100 IFA$="1"CHAIN"GessWho"
  110 IFA$="3"CHAIN"GessWri"
  120 */GessInf
  130 END
  140 DEFPROCprt(Z$):Z$=Z$+STRING$(LENZ$MOD2," "):FORM%=1TOLENZ$:PRINTTAB(18-M%/2);"��";LEFT$(Z$,M%/2);RIGHT$(Z$,M%/2);TAB(18-M%/2);"��";LEFT$(Z$,M%/2);RIGHT$(Z$,M%/2):VDU11,11:NEXT:VDU10,10:ENDPROC