A NBASNBAMSAASAGNA !REM *****************************VZ!U!REM * GRAPHIC BLACKJACK *VmZ!U!REM * BY MIKE HARVEY *iZ!U(!REM * USING NBASIC *cZ!U2!rem *****************************CWZ!U<clsR/Fdim s$(10): dim c$(13):5G 4S$@ C*@U\P#dim cd$(65): dim vv(65): dim vl(65)&e 5CD@P@ QVV@P@ VL@P@XZ+dim em(100): dim sd$(100), PH$(10), DH$(10)o 5EMY@:  HSDY@ [PH$@ DH$@wd%rem: assign variables to initial deck4Z%n;for f=1to4: read s$(f): next: for f= 1to13: read c$(f):next '# D?@?X LSdG'# ?*@?X, CG7x&dim vc(15):FORF=1to 13: readvc(f):nexty 5VC.@'# `?*@?X iVCG"VVrem LOAD 52 CARD DECK CD$()WITH CARD&SUIT -- MARKER EM() -- AND PARALLEL VALUES VV()ytZV Yfor s= 1to4: for c= 1 to 13: n=n+1: cd$(n)= c$(c)+" "+s$(s):em(n)=1:vv(n)=vc(c):next:nextu''# D?@?'# p?*@?9v  ?97$ CD C  S9<EM ?9"D VV  VCGPGUGHT$= "BD3 U1 L1 U1 L1 U1 L3 D1 L1 D1 L1 D2 L1 D3 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U3 L1 U2 L1 U1 L1 U1 L3 D1 L1 D1" : REM HEARTS SYMBOL9HTBD3 U1 L1 U1 L1 U1 L3 D1 L1 D1 L1 D2 L1 D3 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 R1 D1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U1 R1 U3 L1 U2 L1 U1 L1 U1 L3 D1 L1 D1ZgSP$= "D1 L1 D1 L1 D1 L1 D1 L1 D1 L1 D1 L1 D3 L1 D3 R1 D1 R1 D1 R3 D1 R1 U1 R1 U1 D5 L1 D1 R2 U1 U4 R1 D1 R1 U1 R2 U1 R1 U2 R1 U3 L1 U3 L1 U1 L1 U1 L1 U1 L1 U1 L1 U1 L1 U1" 9SPD1 L1 D1 L1 D1 L1 D1 L1 D1 L1 D1 L1 D3 L1 D3 R1 D1 R1 D1 R3 D1 R1 U1 R1 U1 D5 L1 D1 R2 U1 U4 R1 D1 R1 U1 R2 U1 R1 U2 R1 U3 L1 U3 L1 U1 L1 U1 L1 U1 L1 U1 L1 U1 L1 U1 DM$= "D1 L1 D2 L1 D3 L1 D1 L1 D3 L1 D1 R1 D1 R1 D3 R1 D1 R1 D3 R1D1 U1 R1 U3 R1 U1 R1 U3 R1 U1 R1 U1 L1 U3 L1 U1 L1 U3 L1 U3 L1"9DMyD1 L1 D2 L1 D3 L1 D1 L1 D3 L1 D1 R1 D1 R1 D3 R1 D1 R1 D3 R1D1 U1 R1 U3 R1 U1 R1 U3 R1 U1 R1 U1 L1 U3 L1 U1 L1 U3 L1 U3 L1 D2$= "G8 F8 E8 H8"a39D2 G8 F8 E8 H8xaCB$= "G2 D3 F2 D3 L1 H1 L1 G3 D3 F3 R1 E3 R1 D6 R1 U6 R1 F3 R1 E3 U3 H3 L1 G1 L1 U3 E1 U3 H3 L3"F9iaCBZG2 D3 F2 D3 L1 H1 L1 G3 D3 F3 R1 E3 R1 D6 R1 U6 R1 F3 R1 E3 U3 H3 L1 G1 L1 U3 E1 U3 H3 L33RD$= "P9,0": BK$= "P0,0": RB$="" :REM COLOR OF SUIT0-f9 5RDP9,09 PBKP0,09RBZ"B`REM DISPLAY DECK for f= 1 to 4: for i= 1 to 13: locate i,(f*15): print c$(i);" ";s$(f):next:next2Z` goto 1100#, L REM ******** Z !rem: SHUFFLE CARD DECK SUBROUTINEIZ!Us=0: q=0E949 Zcls: VTAB 10: HTAB20: PRINT "SHUFFLING DECK": FOR F=1TO 100:VTAB 11: HTAB20: PRINT"*****":-c{ $@/ 4@SSHUFFLING DECK '#. ?Y@?{ <&@/ E4@S M ***** O NEXT: CLS "GN*for f= 1 to 52: em(f)= 1: next: REM MARKERq'#E?J@?9NEM?GZ "'r= rnd(52): REM RANDOM POSITION IN DECKW:)9 J@lZ ^M,if s>=52 then 360#@60'-J@?, hW6RREM S=SHUFFLE COUNT -- SD$() IS SHUFFLED DECK VL() IS VALUE OF EACH SHUFFLED CARDv:ZRZ @Fif em(r)=1 then s=s+1: sd$(s)= cd$(r):vl(s)=vv(r): em(r)=0: goto 290 :F0F7$EMA? 9Gb?9" kSDr {CD9"& VLVV93EM, <"A0Jif em(r)=0 then 290.J@017$EM I, "WTt=10/+9$@^REM DISPLAY SHUFFLED DECKPZhREM **** PRINT"LINE 240":t=10: for n= 1 to 52 step 4:t=t+1: for f=1to4:q=q+1: locate t,(f*15): print q;" "; sd$(q);" ";vl(q):next:next/ Zrreturnb| REM ******** Z returnb REM ******** Z REM HIT VS. STAND#Z)VTAB 9: input" H= Hit ... S= Stand:"; hs$OF{ "@2$! H= Hit ... S= Stand:HSKif hs$="s" or hs$="S" then 5109tND05;)HSs HSS M,  REM ******** Z REM CHECK ACE 1 OR 11-ZYgif hs$="h" or hs$="H" then PD$="P": GOSUB 820: GOSUB 1050: REM HIT... ADD CARD 'PL'= PLAYER CARD COUNTg\0gg;)HSh EHSH 9PDP+ $ 4*n+ / 5Z;,for f=1 to PL: if left$(PH$(f),1)= "A" then xx=f:VTAB19:PRINT "Do you want the Ace ";PH$(F);" to be '1' or '11'?";:INPUT"";OT: ht=ht-HV(F): ht=ht+OT: HV(f)=OT:PH$(F)= STR$(OT)+PH$(F): GOSUB1050: rem PICK ACE AS 1 OR 11 AND SET NAME TO VALUE + ACE`]'" (?EPL?0l NPHv?EA 9,XX{ 13@SD8:Do you want the Ace  PH to be '1' or '11'?2s OT9%  HTHTHV1 9:HTBHTWOT9`HVgzOT93 PHOT{ PH+ Z3,next f/G 'VTAB8: HTAB50:PRINT "Player total ";ht\Q{  @/ I@S Player total HT D9if ht>21 then VTAB 22:HTAB 15: print "Bust" else goto 410~t0e90HT5@k{ 6@/ .@S  Bust }, 16,returnbREMZrem DEALER HITS>Zrem ### PRINT FACE DOWN CARDj`Z&,NN$= LEFT$(DH$(1),2): SS$= MID$(DH$(1),3,1): ?9/#NN QDH?@E98ZSS DH?@?Rh0!IF SS$= "h" then SU$=HT$: RB$=RD$=d0K!+5SSh c9>SUQHT9ZRBRDpz:!IF SS$= "c" THEN SU$=CB$: RB$=BK$Txd0K!+5SSc c9>SUQCB9ZRBBKupD!IF SS$= "d" THEN SU$=D2$: RB$=RD$xd0K!+5SSd c9>SUQD29ZRBRDoN!IF SS$= "s" THEN SU$=SP$: RB$=BK$h{d0K!+5SSs c9>SUQSP9ZRBBKzX3GRAPH ON: GOSUB 1980: REM DISPLAY DEALER FIRST CARDK4"+ ZJbif dt<17 then GOSUB 950 : IF LEFT$(DH$(DL),1)="A" and DT>21 THEN DT=DT-10: rem keep adding cards, CHECKING FOR ACE and displaying totals if Dealer has less than 17v29h00MDT1@ +  0q VDHuDL?EA DT5@9ADTDT$@ ZKXclNIF DT<17 THEN 540: REM KEEP ADDING CARDS... THEN CHECK DEALER ACES FOR 1 OR 11K902N0DT1@ J, Z;.vUTT=0: ACES=0: FOR F=1 TO DL: IF left$(DH$(f),1)= "A" THEN ACES=ACES+1: REM COUNT ACES1l97TT9UACES'" d?DL?0]8 DH?EA 9#: ACESACES?ZG NEXT F:+G OIF DT>21 AND ACES>0 THEN DT=DT-10: ACES=ACES-1: REM CONVERT AN ACE FROM 11 TO 1p0OG.DT5@QACES9ZDTxDT$@ 9## ACESACES? Z0ґif dt>21 then sb=sb+bet: return`0G0:DT5@_9 CSBKSBBETbQ%IF DT<17THEN540: REM ADD ANOTHER CARDK902%0DT1@ J,  Z}IF DT>21 THEN RETURN: REM BUSTZuA0(0DT5@@bZsREM #### for f=1 to DL: if left$(DH$(f),1)= "A" then xx=f: PRINT"Do you want the DEALER Ace ";DH$(F);" to be '1' or '11'?";:INPUT"";OT: Dt=Dt-vl(f): Dt=Dt+OT: DH$(F)= STR$(OT)+DH$(F): rem PICK DEALER ACE AS 1 OR 11 AND SET NAME TO VALUE + ACE ZzREM #### next fZreturnb!REM CHECK DEALER ACES FOR 1 OR 11zZ!UUTT=0: ACES=0: FOR F=1 TO DL: DT=DT+DV(F):IF DV(F)=11 THEN ACES=ACES+1: REM COUNT ACESr97TT9UACES'" d?DL?9% DTDTDV0R),DV&@ 9#: ACESACES?ZGl NEXT F:+G BIF DT>21 AND ACES>0 THEN DT=DT-10: REM CONVERT AN ACE FROM 11 TO 1Ew0^BG.DT5@QACESv9ZDTDT$@ Z#if dt>21 then VTAB 19: HTAB 15:print "Dealer Bust" : sb=sb+bet: VTAB 16: HTAB15: print "Your win and your winnings are: "; sb: 00yDT5@{ 3@/ .@S Dealer Bust 95 SBSBBET{ @0@/ I.@S2Q- Your win and your winnings are: SB Breturnb !data hearts,diamonds,spades,clubsM>%!!hearts,diamonds5spadesclubsRdata 2,3,4,5,6,7,8,9,10,J,Q,K,A1bN52 3$4(5,6074889=10AJEQIKA' #data 2,3,4,5,6,7,8,9,10,10,10,10,11QpR9#2 3$4(5,6074889=10B10G10L1011F* REM ******** Z 4rem ADD A PLAYER CARD6ZY>graph on` ( HBOX (30,1)-(350,130)"F->@?u@@`@RDRAW "BM45,2 P2,0"'( BM45,2 P2,0eW\1CC=CC+1: PL=PL+1: PH$(PL)=SD$(CC): HV(PL)=VL(CC):9#CCACC?9 JPLhPL?9( qPH{PL SDCC9(# HVPLVLCCAf-NN$=LEFT$(PH$(PL),2): SS$= MID$(PH$(PL),3,1):>9.#NN ,PHPPL@}E97YSS bPHPL@?RAp!IF SS$= "h" then SU$=HT$: RB$=RD$=d0K!+5SSh c9>SUQHT9ZRBRDpzz!IF SS$= "c" THEN SU$=CB$: RB$=BK$Txd0K!+5SSc c9>SUQCB9ZRBBKup!IF SS$= "d" THEN SU$=D2$: RB$=RD$xd0K!+5SSd c9>SUQD29ZRBRDo!IF SS$= "s" THEN SU$=SP$: RB$=BK$h{d0K!+5SSs c9>SUQSP9ZRBBKz3GRAPH ON: ON PL GOSUB 1560,1630,1700,1770,1840,1910k/"JI )PL+j9^C M%W0*av/9aht=ht+vl(CC): VTAB8: HTAB50:PRINT "Player total ";ht:VTAB PL+15: HTAB 10: rem ### print PH$(PL):9( #HT+HT4VLCC{  @/ I@S Player total HT {6 PL.@/ B$@ZKީ%return: REM add PLAYER card AND VALUEA!bZ/REM ADD DEALER CARD+Z/=CC=CC+1: DL=DL+1: DH$(DL)=SD$(CC):DV(DL)=VL(CC):DT=DT+DV(DL):E9#CCACC?9 JDLhDL?9( qDH{DL SDCC9(" DVDLVLCC9(0 DTDTDVDLq= .NN$= LEFT$(DH$(DL),2): SS$= MID$(DH$(DL),3,1):>9.#NN ,DHPDL@}E97YSS bDHDL@?Rg!IF SS$= "h" then SU$=HT$: RB$=RD$=d0K!+5SSh c9>SUQHT9ZRBRDpz!IF SS$= "c" THEN SU$=CB$: RB$=BK$Txd0K!+5SSc c9>SUQCB9ZRBBKup!IF SS$= "d" THEN SU$=D2$: RB$=RD$xd0K!+5SSd c9>SUQD29ZRBRDo!IF SS$= "s" THEN SU$=SP$: RB$=BK$h{d0K!+5SSs c9>SUQSP9ZRBBKz3GRAPH ON: ON DL GOSUB 1980,2050,2120,2190,2260,2330{k/"JI )DL+j9CH M%W*a /^BOX (40,65)-(75,115): VTAB DL+15: HTAB 30: RETURN: REM add DEALER card REM ### PRINT DH$(DL):5.N-D@@P@R@\@{ DL.@/ ">@b+Z3+ rem Display Totals^;Z/rem *** VTAB 16: HTAB10: PRINT "Your total ";ht?Z/{ $uIF hs$="s" OR HS$="S" then vtab 8: HTAB50: print "Player total ";ht:VTAB9: HTAB50: PRINT"Dealer total ";dt:else PRINT&0u;)HSs |HSS {  @/ #I@S+ Player total HT { D"@/ KI@SS Dealer total DT Sp  .returnb8 REM ******** Z B REM ******** Z Lcls: sb=500: rem MAIN PROGRAMq>"9SB@@Z |lV_PRINT "Welcome to Blackjack!":print"The object of the game is to strategize your hand to have":&SWelcome to Blackjack! SA@9The object of the game is to strategize your hand to have |`Eprint "the total of your cards beat the total of the dealer's cards":0]SDDvalued at its face value. Face cards are worth 10. And an Ace .print "counts either as one or eleven.": print`kKS''counts either as one or eleven. S) nGprint "Before each card is dealt you may elect to 'Hit' or 'Stand' and"{&`SGG?Before each card is dealt you may elect to 'Hit' or 'Stand' and Nprint "each time you ask for a hit, the dealer deals you another card.": printNkSGG?each time you ask for a hit, the dealer deals you another card. SI Lprint "The dealer must 'Hit' on any hand that totals 16 or less. The dealer"eSLLDThe dealer must 'Hit' on any hand that totals 16 or less. The dealer Nprint "will 'Stand' on any value of 17 or more. Tie scores go to the dealer."gSNNFwill 'Stand' on any value of 17 or more. Tie scores go to the dealer. print^S 1VTAB 14: HTAB 20: Print "Your bankroll is %"; sbfbW{ ,@/ 4@S%Your bankroll is %SB z0VTAB 15: HTAB 20: input "Place your $$ bet:";betY_U{ .@/ 4@2"Place your $$ bet:BETM'd=0: ht=0: dt=0: CC=0:DL=0:PL=0: hs$=""x949QHT9 nDT9CC9DL9PL9!HScUMFOR F=1 TO DL: PH$(F)="":DV(F)=0:PL=0:DL=0:NEXT: FOR F=1TO PL: PH$(F)="":NEXT'" (?DDL?9  MPHb9kDV9!PL9&DLG+'"1 ?PL?9?  PHGIi gosub 240 : rem Shuffle cards++ Z , REM ******** Z rem PLAYER DEAL First Two CardsmZ+ EPD$="P": for f= 1 to 2: GOSUB 820: next F: REM FIRST TWO PLAYER CARDS3v|\91PDP'# n?@?+  4G#Z+ GRAPH ON:P ( rem First Two DEALER CARDS]Z(AVTAB1:HTAB50:PRINT "PLAYER HAND":VTAB5:HTAB50:PRINT "DEALER HAND"{ ?/ I@S  PLAYER HAND { !@/ 'I@S. DEALER HAND 2DCC=CC+1:DL=1: DH$(DL)=SD$(CC):DV(DL)=DV(DL)+VL(CC): REM DT=DT+VL(CC)!9#CCACC?9^DL?9( gDHqDL zSDCC9<DVDLDVDLVLCCZ4<CPD$="D": GOSUB 720: GOSUB 950:: REM DEAL SECOND DEALER CARD FACE UP#U19PDD+ C+  Z #FGOSUB 1050: rem print totals++ Z hPIF PL=2 AND HT=21 THEN VTAB 20: HTAB15: PRINT "BLACKJACK! You win 4X your bet! $";bet*4;:sb=sb+(bet * 4): VTAB21:HTAB15: PRINT"Your bankroll is ";sb;: goto 1220v5B80)E.PL@ HT5@ A{ 4@/ .@S>(0!BLACKJACK! You win 4X your bet! $BET@9*YSBSB&BET@{ j5@/ q.@S"yYour bankroll is SB, KZgosub 410 : rem HIT vs STANDk++ Z f$dGOSUB 1050 : REM PRINT TOTALS0l++ Z nBOX (40,340)-(600,395)+F-D@@u@@x@xDRAW "BM45,355 P11,0"N)+BM45,355 P11,0nif ht>21 then VTAB 22: HTAB 15: print "You busted. Lose $";bet; " and earnings are $";sb-bet;: sb=sb-bet: goto 1230: rem New Hand 00vHT5@{ 6@/ .@SQ =You busted. Lose $BET and earnings are $SBBET 9_ SBSBBET , j oZu r gosub 530: rem DEALER CARDS DRAW++ Z [if ht>21 then VTAB 22: HTAB 15:print "You bust with ";ht;: sb=sb-bet: gosub 1050: goto 12200[0rHT5@{ 6@/ .@SYou bust with HT9; SBSBBET + F L, R W'IRif dt>21 then VTAB 22: HTAB 15:print "Dealer Bust with ";dt;: gosub 1050:goto 122000R0uDT5@{ 6@/ .@S"Dealer Bust with DT+ > D, I N:bif dt>=ht then VTAB 22: HTAB 15:print "You LOSE! You have: ";ht; " and Dealer has ";dt;: sb=sb-bet0b/#DTwHT{ 6@/ .@SD 7You LOSE! You have: HT and Dealer has DT9Y SBSBBET  ?IF DT=HT THEN VTAB 23: HTAB 15: PRINT "Ties go to the dealer.";I?y0`?/#DTHT x{ 7@/ .@S Ties go to the dealer.W<4if dt>=ht then gosub 1050:goto 1220: rem Dealer wins\80C4/#DTHT[+  J,  Z%j if ht>dt then VTAB 22: HTAB 15:print "You WIN! You have: ";ht; " and Dealer has ";dt;: sb=sb+bet:gosub 1050: goto 1220: REM Player wins 0/#HTvDT{ 6@/ .@SC6You WIN! You have: HT and Dealer has DT9W SBSBBET+ a g, m rZxF goto 1220##,  REM ******** Z graph on` ( VTAB2: HTAB50:PRINT "PLAYER"`K{ @/ I@SPLAYER tVTAB5: HTAB50:PRINT "DEALER"<^K{ @/ I@SDEALER RETURNbDRAW "BM91,6 P15,0"!) BM91,6 P15,0_REM *** PLAYER CARD 1 ***?Z"DRAW "BM55,10 "+SU$#/$BM55,10 SU^,DRAW "BM57,20 "+RB$j"/$BM57,20 RB \6BOX (40,5)-(75,55)F-D@@R@K@=@DRAW "BM41,6 P15,0"!) BM41,6 P15,0%_JVTAB2:HTAB7:PRINT NN$;G;I?{ @/ @S NNsTreturnb^REM ***PLAYER CARD 2 ***:ZhDRAW "BM105,12 "+SU$E'0% BM105,12 SU frDRAW "BM107,20 "+RB$%0% BM107,20 RBb|BOX (90,5)-(125,55) F-V@@@_@K@6DRAW "BM91,6 P15,0"!) BM91,6 P15,0_VTAB2: HTAB13: PRINT NN$;II?{ @/ *@S  NNvreturnbREM *** PLAYER CARD 3 ***?ZDRAW "BM155,12 "+SU$r'0% BM155,12 SUfDRAW "BM157,20 "+RB$&0% BM157,20 RBocBOX (140,5)-(175,55)#F-a@@e@K@DRAW "BM141,6 P15,0"]%* BM141,6 P15,0fVTAB2: HTAB19: PRINT NN$;II?{ @/ 3@S  NNZxreturnbREM *** PLAYER CARD 4 ***?ZDRAW "BM205,10 "+SU$3'0% BM205,10 SUeDRAW "BM207,20 "+RB$%0% BM207,20 RBbBOX (190,5)-(225,55)#F-g@@ l@K@oDRAW "BM191,6 P15,0"%* BM191,6 P15,0JgVTAB2:HTAB25: PRINT NN$;DI?{ @/ 9@S  NN$y&returnb0REM *** PLAYER CARD 5 ***?Z:DRAW "BM255,10 "+SU$`'0% BM255,10 SUvfDDRAW "BM257,20 "+RB$&0% BM257,20 RBcNBOX (240,5)-(275,55)#F-n@@0q@K@CXDRAW "BM241,6 P15,0"e%* BM241,6 P15,0fbVTAB2: HTAB32:PRINT NN$;MEI?{ @/ @@S  NNzlreturnbvREM *** PLAYER CARD 6 ***@ZDRAW "BM305,10 " +SU$2*0% BM305,10 SUfDRAW "BM307,20 "+RB$%0% BM307,20 RBcBOX (290,5)-(325,55)#F- r@@Pt@K@DRAW "BM291,6 P15,0"%* BM291,6 P15,0fgVTAB2:HTAB38:PRINT NN$;i@I?{ @/ C@S NNzreturnbREM *** DEALER CARD 1 ***s>ZDRAW "BM55,72 "+SU$#/$BM55,72 SU_DRAW "BM57,77 "+RB$"/$BM57,77 RB]BOX (40,65)-(75,115)#F-D@@P@R@\@DRAW "BM41,66 P15,0"%* BM41,66 P15,0VgVTAB6:HTAB7:PRINT NN$;W;I?{ @/ @S NNureturnbREM *** DEALER CARD 2 ***>Z DRAW "BM105,72 "+SU$'0% BM105,72 SUfDRAW "BM107,77 "+RB${&0% BM107,77 RBed BOX (90,65)-(125,115)P'F-V@@P@@_@\@*DRAW "BM91,66 P15,0"%* BM91,66 P15,0g4VTAB6: HTAB13: PRINT NN$;II?{ @/ *@S  NNy>returnbHREM *** DEALER CARD 3 ***>ZRDRAW "BM155,72 "+SU$'0% BM155,72 SU\g\DRAW "BM157,77 "+RB$&0% BM157,77 RBdfBOX (140,65)-(175,115)t+F-a@@P@e@\@cpDRAW "BM141,66 P15,0"o)+BM141,66 P15,0 ozVTAB6: HTAB19: PRINT NN$;JI?{ @/ 3@S  NNB{returnbREM *** DEALER CARD 4 ***>ZDRAW "BM205,72 "+SU$'0% BM205,72 SUfDRAW "BM207,77 "+RB$&0% BM207,77 RBdBOX (190,65)-(225,115)U+F-g@@P@ l@\@DRAW "BM191,66 P15,0")+BM191,66 P15,0oVTAB6:HTAB25: PRINT NN$;DI?{ @/ 9@S  NN |returnbREM *** DEALER CARD 5 ***>ZDRAW "BM255,72 "+SU$'0% BM255,72 SUxgDRAW "BM257,77 "+RB$&0% BM257,77 RBeBOX (240,65)-(275,115)+F-n@@P@0q@\@DRAW "BM241,66 P15,0"w)+BM241,66 P15,0Z$ DRAW "BM305,72 " +SU$*0% BM305,72 SUg. DRAW "BM307,77 "+RB$&0% BM307,77 RBd8 BOX (290,65)-(325,115)h+F- r@@P@Pt@\@?B DRAW "BM291,66 P15,0")+BM291,66 P15,0oL VTAB6:HTAB38:PRINT NN$;y@I?{ @/ C@S NN}V returnb` GOTO 2400f#, ` ~