0 MODE7:REM THIS LINE ADDED BY CJR FOR MENU PURPOSES
    1 X=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 UNTILC=X OR C=X+15