10 DIM D(52),C(13),D$(52)
20 CLS:KEY OFF:RANDOMIZE TIMER
30 FOR I = 1 TO 13:C(I) = 0:NEXT I
40 LOCATE 1,30:PRINT "WELCOME TO HIGH-LOW"
50 LOCATE 13,34:PRINT "SHUFFLING..."
60 FOR I = 1 TO 52
70 R = INT(13 * RND + 1):IF C(R) = 4 THEN 70:C(R) = C(R) + 1:D(I) = R
80 NEXT I
90 CLS:INPUT "PICK A CARD (1 - 52)"; N
100 IF N < 1 OR N > 52 THEN 90
110 FOR I = 1 TO 52
120 IF D(I) = 1  THEN D$(I) = "ACE"
130 IF D(I) = 11 THEN D$(I) = "JACK"
140 IF D(I) = 12 THEN D$(I) = "QUEEN"
150 IF D(I) = 13 THEN D$(I) = "KING"  ELSE PRINT D$(I):GOTO 170
151 IF D(I) = 14 THEN D$(I) = "ROOK"  ELSE PRINT D$(I):GOTO 170
152 IF D(I) = 15 THEN D$(I) = "BISHOP" ELSE PRINT D$(I):GOTO 170
153 IF D(I) = 17 THEN D$(I) = "KNIGHT" ELSE PRINT D$(I):GOTO 170
154 IF D(I) = 18 THEN D$(I) = "PAWN" ELSE PRINT D$(I):GOTO 170
160 NEXT I
170 LOCATE 3 , 1 : PRINT "YOUR PICK:"; D$(N)
180 T = INT(52 * RND + 1):IF T = N THEN 180 ELSE LOCATE 5 , 1:                      PRINT "COMPUTER PICK:"; D$(T)
190 LOCATE 7,1: IF D$(N) = D$(T) THEN PRINT "THIS IS A TIE" :                       ELSE IF D$(N) > D$(T) THEN PRINT "YOU WIN!"; ELSE IF D$(N) < D$(T)              THEN PRINT "COMPUTER WINS!"
200 LOCATE 23,30:PRINT "PLAY AGAIN? (Y OR N)";
210 A$ = INKEY$:IF A$ <> "Y" AND A$ <> "y" AND A$ <> "N" AND A$ <> "n"  THEN 210; ELSE IF A$ = "Y" OR A$ = "y" THEN 20; ELSE IF A$ = "N" OR A$ = "n" THEN END
220 END