750 print "[156]";dn$;dn$;dn$;dn$;"how clumsy of you! you lose!": goto 710
760 rem
770 rem *** keyboard input subroutine ***
780 rem
790 print "[166][146][157]";
800 get kb$
810 if kb$<>"" then if asc(kb$)<>13 then print " ": return
820 for ct=1 to 40
830 get kb$
840 if kb$<>"" then if asc(kb$)<>13 then print " ": return
850 next ct: print "[166][157]";: for ct=1 to 40
860 get kb$
870 if kb$<>"" then if asc(kb$)<>13 then print " ": return
880 next ct: goto 790
890 rem
900 rem *** subroutine to print the grid on the screen ***
910 rem
920 print dn$;rt$;"[145][145][145][176][192][195][192][192][192][178][192][195][192][192][192][178][192][195][192][192][192][174]": gosub 980: for j=1 to 2