100 '@YOUPLAY
110 LC X+C,Y+2:?" ";
120 K=INKEY():C=C-(K=28)*(C>0)+(K=29)*(C<3)
130 LC X+C,Y+2:?CHR$(226);
140 IF K!=32 GOTO 100
150 BEEP:LC X+C,Y+2:?" ";:LRUN 0,260
200 '@COMPLAY
210 FOR E=0 TO 2
220 FOR F=E+1 TO 3
230 IF [Q+F]=[Q+E] [80+E]=1:[80+F]=1
240 NEXT:NEXT
250 FOR E=0 TO 3
260 IF [80+E]=0 C=E
270 [80+E]=0:NEXT
280 LRUN 0,260
300 '@ICHIGO
310 IF P=0 BEEP 30,10:WAIT 60
320 FOR C=0 TO 3
330 E=RND(M):F=[E]
340 IF F=255 OR F=0 GOTO 330
350 [E]=[Q+C]:[Q+C]=F
360 NEXT:LRUN 0,230