10 '*Ichigo Trump
20 CLV:CLS
30 LET [90],5,6,0,3,5,0,10,3
40 FOR N=0 TO 3
50 FOR S=235 TO 245
60 [M]=S:M=M+1
70 NEXT:NEXT
80 GSB 400
100 FOR P=0 TO 3
110 Q=50+P*5
120 FOR N=0 TO 2
130 M=M-1:[Q+N]=[M]:[M]=0
140 NEXT
150 GSB 300
160 NEXT
170 FOR N=1 TO 3
180 [M]=255:M=M+1
190 NEXT:GSB 400
200 '@GAMELOOP
210 Q=50+P*5:D=RND(M):[Q+3]=[D]:[D]=0
220 GSB 300
225 IF [Q+3]=255 GSB 1300
230 GSB 300:IF [Q]=[Q+1] AND [Q]=[Q+2] AND [Q]=[Q+3] GOTO 290
240 Z=90+P*2:X=[Z]:Y=[Z+1]:C=3
250 IF P=0 GSB 1100 ELSE GSB 1200
260 [D]=[Q+C]:FOR N=C TO 3:[Q+N]=[Q+N+1]:NEXT:GSB 300
280 WAIT 60:P=(P+1)%4:GOTO 200
290 BEEP 10,30:G=P:GSB 300
292 LC 0,10:IF P=0 ?"*YOU"; ELSE ?"*COM";P;
294 ?" WIN*":END
300 '@PRTCARD
310 Z=90+P*2:X=[Z]:Y=[Z+1]
320 LC X,Y:IF P=0 ?"YOU" ELSE ?"COM";P
330 LC X,Y+1
340 FOR N=0 TO 3
350 F=[Q+N]
360 IF P=G OR F=0 ?CHR$(F); ELSE ?CHR$(219);
370 NEXT:RTN
400 '@SHUFFLE
410 FOR N=1 TO 100
420 A=RND(M):B=RND(M)
430 D=[A]:[A]=[B]:[B]=D
440 NEXT:RTN
1100 '@YOUPLAY
1110 LC X+C,Y+2:?" ";
1120 K=INKEY():C=C-(K=28)*(C>0)+(K=29)*(C<3)
1130 LC X+C,Y+2:?CHR$(226);
1140 IF K!=32 GOTO 1100
1150 BEEP:LC X+C,Y+2:?" ";:RTN
1200 '@COMPLAY
1210 FOR E=0 TO 2
1220 FOR F=E+1 TO 3
1230 IF [Q+F]=[Q+E] [80+E]=1:[80+F]=1
1240 NEXT:NEXT
1250 FOR E=0 TO 3
1260 IF [80+E]=0 C=E
1270 [80+E]=0:NEXT
1280 RTN
1300 '@ICHIGO
1310 IF P=0 BEEP 30,10:WAIT 60
1320 FOR C=0 TO 3
1330 E=RND(M):F=[E]
1340 IF F=255 OR F=0 GOTO 1330
1350 [E]=[Q+C]:[Q+C]=F
1360 NEXT:RTN