2 DIMC(52):PM=1000:FORLL=63369TO63432:POKELL,0:NEXTLL:CLS:LINE(70,24)-(115,52),1,B:LINE(120,24)-(165,52),1,B:PRINT@173," ACE";:PRINT@181," JACK";:GOSUB44:CLS:PRINT@120,"PLEASE TYPE YOUR NAME AND PRESS 'ENTER'":PRINT:LINEINPUTN$
3 KEYOFF:IFPM<=0THENGOTO37
4 PP=1:CS=2:PA=0:CA=0:PT=0:CT=0:CR=2:PC=81:CP=201:GOSUB45:PRINT:PRINTN$;", YOU HAVE $";PM
5 PRINT@200,"";:INPUT"PLEASE ENTER YOUR BET";BET:BET=INT(BET):IFBET>PMTHENGOSUB46:GOTO5
6 IFSGN(BET)=-1ORSGN(BET)=0THENGOSUB46:GOTO5
7 IFBET=PMTHENPRINT@293,CHR$(27);"p";" GO FOR IT !! ";CHR$(27);"q";:SOUND4000,15:SOUND3000,10:SOUND2000,8:FORDL=1TO500:NEXTDL
8 IFBET<100ANDPM>500THENPRINT@291,CHR$(27);"p";" YOU ARE CHEAP !! ";CHR$(27);"q";:SOUND4000,30:SOUND12000,30:FORDL=1TO500:NEXTDL