' MY HIGH SCORE = 159 GAMEPAD 2 DIM GLOBAL DECK(97),DEAL(1,48),ICARD(1),TARGET(1),TOP(1) GLOBAL CASH,RNUM REM WAS8BIT RANDOMIZE TIMER SPRITE 0,4*8-4,3*8-4,1 SPRITE 0 SIZE 3 PAL 1 SPRITE 1,13*8-4,3*8-4,1 SPRITE 1 SIZE 3 PAL 1 SPRITE 2,8*8-4,12*8-4,1 SPRITE 2 SIZE 3 PAL 1 SPRITE 3,8*0-2,8*3-1,5 SPRITE 3 SIZE 3 PAL 1 SPRITE 4,8*18-2,8*3-1,5 SPRITE 4 SIZE 3 PAL 1 REPLAY: CLS TEXT 5,10,"A/B CHEATS" TEXT 6,14," SCORE" TEXT 4,5,"UP DOWN" CASH=100 TARGET(0)=1 TARGET(1)=100 FOR I=0 TO 97 DECK(I)=I+2 NEXT I FOR I=1 TO 997 R1=RND(97) R2=RND(97) SWAP DECK(R1),DECK(R2) IF I\10=0 THEN PLAY 0,10,1 WAIT VBL END IF NEXT I FOR I=0 TO 97 IF I<=48 THEN DEAL(0,I)=DECK(I) ELSE DEAL(1,I-49)=DECK(I) END IF NEXT I TOP(0)=48 TOP(1)=48 ICARD(0)=48 ICARD(1)=48 RNUM=RND(44)+6 TEXT 0,0," +- 1 OR 10 OR " TEXT 0,1,"====================" DO TRACE TOP(0) 'DRAW NUMBERS NUMBER 16,0,RNUM,2 NUMBER 8,12,CASH,3 NUMBER 4,3,TARGET(0),3 NUMBER 13,3,TARGET(1),3 ' FOR Y=3 TO 15 CELL 0,Y,0 CELL 1,Y,0 CELL 18,Y,0 CELL 19,Y,0 NEXT Y ' ISTART=TOP(0) ISTOP=TOP(0)-15 IF ISTOP<0 THEN ISTOP=0 IY=0 IF TOP(0)>=0 THEN FOR II=ISTART TO ISTOP STEP -1 NUMBER 0,3+IY,DEAL(0,ICARD(0)-IY),2 INC IY NEXT II END IF ' IF TOP(1)>=0 THEN ISTART=TOP(1) ISTOP=TOP(1)-15 IF ISTOP<0 THEN ISTOP=0 IY=0 FOR II=ISTART TO ISTOP STEP -1 NUMBER 18,3+IY,DEAL(1,ICARD(1)-IY),2 INC IY NEXT II END IF 'CONTROLS ARROW=ABS(LEFT(0)+10*LEFT(1)+2*RIGHT(0)+20*RIGHT(1)) IF ARROW<>0 THEN CALL PLAYCARD(ARROW) IF BUTTON(0) AND TOP(0)>0 THEN CALL SCROLLCARDS(0) IF BUTTON(1) AND TOP(1)>0 THEN CALL SCROLLCARDS(1) WAIT VBL LOOP SUB SCROLLCARDS(II) IF CASH>0 THEN C=DEAL(II,TOP(II)) FOR I=TOP(II) TO 1 STEP -1 DEAL(II,I)=DEAL(II,I-1) NEXT I DEAL(II,0)=C FOR I=0 TO 3 PLAY I,RND(90),1 NEXT I WAIT 9 DEC CASH END IF END SUB SUB PLAYCARD(I) IF TOP(0)>=0 THEN IF I=1 THEN CALL CHECK(0,0) IF I=2 THEN CALL CHECK(0,1) END IF IF TOP(1)>=0 THEN IF I=10 THEN CALL CHECK(1,0) IF I=20 THEN CALL CHECK(1,1) END IF WAIT 15 END SUB SUB CHECK(PLY,TAR) C=DEAL(PLY,ICARD(PLY)) T=TARGET(TAR) IF (C>T AND TAR=0) OR C=T+1 OR C=T+10 OR C=T+RNUM THEN CALL SND(1) TARGET(TAR)=C DEC ICARD(PLY) DEC TOP(PLY) ELSE CALL SND(0) END IF IF (C