0MODE7:REM THIS LINE ADDED BY CJR FO R MENU PURPOSES 1X=13:C=18:REPEATP=P+1:PRINTTAB(C,24 )"*"'TAB(X)"  ";TAB(X+15)"  ":f=RND(2) :g=RND(2):X=ABS(X+f-g):G$=INKEY$(1):IFG$ ="Z"C=C-1:UNTILC=X OR C=X+15:PRINTP:ELSE IFG$="X"C=C+1:UNTILC=X OR C=X+15:PRINTP :ELSE UNTIL C=X OR C=X+15:PRINTP:ELSE UN TILC=X OR C=X+15