10DEFFNS="MENU" 20IF PAGE<>&1900:PAGE=&1900:CHAIN"MEN U" 30MODE7 40VDU23;8202;0;0;0; 45PROCprt("Guess Who") 46PROCprt("Programmed by C.J.Richards on") 50PROCprt("1. Play Guess Who") 60PROCprt("2. Info for Guess Who") 70PROCprt("3. Add to data") 80PROCprt("Press 1 - 3") 90A$=GET$ 100IFA$="1"CHAIN"GessWho" 110IFA$="3"CHAIN"GessWri" 120*/GessInf 130END 140DEFPROCprt(Z$):Z$=Z$+STRING$(LENZ$M OD2," "):FORM%=1TOLENZ$:PRINTTAB(18-M%/2 );"   ,M%/2):VDU11,11:NEXT:VDU10,10:ENDPROC