ClsViewWindow 1,126,1,1,64,10ÞA~ZText 20,44,"BLACK JACK"While Getkeyá31Text 30,44,"PUSH [EXE]"Text 30,44,"             "WhileEndCls1ÞZ1ÞC300ÞBPlot 1,8Plot 125,8LineFor 1ÞA To 621AÞCPlot C,1Plot C,8LineNextText 57,3,"QUIT"Text 57,70,"‰10"Text 57,48,"™10"Text 57,27,"BET"Text 57,91,"HIT"Text 57,108,"STAY"Plot 123,62While Z=1If (Getkey=69) And (P=0)Then For 1ÞC To 50 Step 5Text C,1,"                           "Next0ÞDText 30,20,"CURRENT BUDGET:"Text 30,90,BText 40,20,"YOUR BET:"Text 40,60,DPlot 1,40Plot 125,40LineText 10,25,"[EXE] TO EXIT BET MENU"Plot 1,11ÞEDoIf Getkey=59Then D™10ÞDD<0ÞD‰10ÞDText 40,60,"                       "Text 40,60,DIfEndIf Getkey=49Then D‰10ÞDD>BãD™10ÞDText 40,60,"                       "Text 40,60,DIfEndGetkey=31ã0ÞE1ÞPPlot 1,1LpWhile E=1IfEnd5ÞAIf P=1Then For 1ÞC To 50 Step 5Text C,1,"                                       "NextText 20,1,"DEALER"Int 10Ran#‰1ÞMText 20,30,MInt 10Ran#‰1ÞNText 20,38,NM‰NÞMText 40,1,"PLAYER"Int 10Ran#‰1ÞNText 40,30,NInt 10Ran#‰1ÞOText 40,38,OPlot 1,1N‰OÞO48ÞQDoIf Getkey=39Then Int 10Ran#‰1ÞNText 40,Q,NPlot 1,18‰QÞQN‰OÞOO>21ã0ÞPIfEndGetkey=29ã4ÞPLpWhile 1=PIfEndIf P=4Then 46ÞQWhile ((M<18) Or (M<O)) And (M<22)Int 10Ran#‰1ÞNText 20,Q,NN‰MÞMQ‰8ÞQPlot 1,1WhileEnd0ÞPO=M ã Text 10,55,"PUSH"Plot 1,1If (O>M) Or <M>21)Then 2D‰BÞBText 10,50,"YOU WIN"Plot 1,1IfEndIfEndIf (O>21) Or ((O<M) And (M<22))Then B™DÞBText 10,50,"YOU LOSE"Plot 1,1IfEnd0ÞM0ÞOGetkey=79ã0ÞZWhileEndBà0ã"™™™BANKRUPT™™™"