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 LRUN 1,300
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 LRUN 1,100 ELSE LRUN 1,200
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