:Disp "cranwell@yahoo.com" :Lbl M:"0123456789"üS:Menu(1,"pippi",P,2,"binaar",B,4,"LAST",L,5,"NEW",N) :Lbl P:10üC:Goto M :Lbl B:2üC:Goto M :Lbl N:3üL:Goto GO :Lbl L:LNWWüL :Lbl GO:ClLCD:4üZ:For(I,1,8):Disp "":End :Lbl A:0üD:" "üX:If Z==2:Outpt(7,8,"+") :Repeat DùL:Outpt(8,6+D,"?"):D+1üD:End:0üD :Repeat DùL:iPart C rand+1üR:X+sub(S,R,1)üX:D+1üD:End :lngth X-1üW:sub(X,2,W)üX :Lbl REDO:5üD :Repeat D==0:Outpt(7,8,D):D-1üD:For(I,1,3L*Z):End:End :Outpt(8,6,X):For(I,1,3L*Z):End :Repeat D>(W-1):Outpt(8,6+D,"?"):D+1üD:End :InpST "Nop?=",NOP:If NOP=="+":Goto REDO :If NOP==X:Then:Outpt(8,6,"WINNER"):Z-1üZ :If Z<2:Then:L+1üL:4üZ:End:Else:Outpt(8,6,"LOSER") :Outpt(6,6,X):Z+1üZ :If Z>6:Then:L-1üL:4üZ:End:End:Disp "","" :LüLNWW:Goto A