**TI92P*Group file dated 01/13/02, 09:027F-backgamn,bargamn blkdnmnblkupmn0chknwposu clccols clcnwposclcrowscnthomecolomecounte1dblflag;dielagEdocursdomovedoroll_drwcursformstrgmeovergmestart'grydnrtgryuprt7gtkeyrtinitvars movlftsmovrgtsnwcolsnwrowsoldfold oldscn&playn#plrupl$plrwonw$pupon$restscn$rollcn$rollflg$rowflg%setscn%shwroll%uflags &updtbar&updtpf(whtdnl)whtup)Z)?????@@@߁6)@@@?????߁6=exitsub2/ bar checknwcolnwrowuflagsՀcolrowuflagsՀnwcolnwrowcountnwcolnwrowcountՀcolrowcountcolrowcountՀ no bar exitsub2/nwcolnwrowuflagsՀnwcolnwrowcountnwcolnwrowcountՀbarbarՀbarՉ;goodwht0exitsub2/ bar checknwcolnwrowuflagsՀcolrowuflagsՀnwcolnwrowcountnwcolnwrowcountՀcolrowcountcolrowcountՀ no bar exitsub2/nwcolnwrowuflagsՀnwcolnwrowcountnwcolnwrowcountՀbarbarՀbarՉ;goodblk0exitsub/plrwongmeover countՇ9plrwongmeoverz countՇ;gmestartrollflgrollՇrollՇ;shwrolldierollՀexitsub20Rexitsub0exitsub2/Z; Forfeit?-bForfeit-V Bad play-bError-Vbadplay0exitsub2/ pup ocupiedgoodwht/ not occupied goodwht/barbarՀnwcolnwrowcountՀ hitznwcolnwrowcountՇ9badplay/znwcolnwrowcountՅ; pup=white ocupiedgoodblk/ not occupied goodblk/barbarՀnwcolnwrowcountՀ hitnwcolnwrowcountՇ9badplay/nwcolnwrowcountՉ; pup=blackpup;badplay/nwcol;.qretRret ret;retret}ܰ* pup bar move on rownwrownwcolznwcolnwcol;coldierollՍnwcol row=1 cnthome exact roll>colnwcol nwcol;coldierollՋnwcol rollcolnwcol nwcol;coldierollՋnwcol rollret ret;ret}chR pupDch countՋch countՉ;  t pup=white Dch countՍch countՅ;  t pup=blackpup;chch }Z /B    !!{Qlvedomove key9lvekey9row-drwcurscolcountՊ; downXkey9row-drwcurscolcountՊ; upRkey9movrgt rightTkey9movlft leftQkey;gtkeykeylve=lvekeylve}$Rexitsub0chknwposclcnwpos die selectiondie dierollՊ9AdieR=-roll R=-roll Ddie=rollՊrollՊ;die bar check opponent's pieceexitsub/ Trying to move opponent's piece-bError-VcolrowcountՅpupcolrowcountՉpup;exitsub/ First select a row-bError-Vrow;barՇpupbarՇpup;cplruppup puprollrollՉ;pup;shwrollrollflgdblflagrollrollՇ;rollՀrollՀ CrollՀrollՀrollrollՇ=rollՀrollՀpup;dblflagdie*~Pcolclccol0cstrOovrridecstr row-cstrcolcountՇcolcountՊ9row-cstrcolcountՇcolcountՊ;row-cstr-ovrride; colclccol0 -Oclr;cstr}ovrrideclrܖrTstrR str 0- str  ;str} ܣ#!!)I @@@@HB@@@ $D IJHP@@@)@@@PHJI $D @@HB@@@@@ I keyRvldXkeyRkeyTkeyQkeykey key;keykey=keyvld=vldvldkey}FIgmeovergmestartrollflgpup colrowbarzzzzcountuflags;-drwcursxfndcolcountՊcolcountՊ; colcol;colcolfnd= clr curs at cur pos-drwcursfndfnd}ܰJ-drwcursyfndcolcountՊcolcountՊ;col col;colcolfnd= clr curs at cur pos-drwcursfndfnd}ܴJ&%main-OFF-OFF-OFF-oldfold restscnexitgame0start/ Player 2 (WHITE) won!-bGame Over-V start/ Player 1 (BLACK) won!-bGame Over-Vplrwon;over0updttb/doroll You must SELECT first-bError-Vrollflg;roll0update/docurs-drwcurs You must ROLL first-bError-Vrollflg;select0updttb/ All Rights Reserved-bCopyright 2002-bBy Scott Thompson-bBackgammon V1.0-bAbout-Vabout0updttb/updttb HOME AREA -VaboutAbout-WHELP-VselectSELECT-VrollROLL-VexitgameExit-WstartRestart-WGAME-Vupdttb0 next up doubles Roll again!-bDoubles-V doubles plruppup puppup;gmestartdblflag;rollflggmestart;over/gmeover;-drwcursupdtpfupdate0initvarsstart0setscnbackgamn backgamn\oldfold local<n?P=W-O Player 2 (WHITE) up-bPlayer Up-V n?P=B-O Player 1 (BLACK) up-bPlayer Up-Vpup;0<%!Voldscnlabels-oldscnaxes-oldscngrid- !!} off-labels-oldscnՀoff-axes-oldscnՀoff-grid-oldscnՀT{܊.8n R-roll roll O:ٚxn5W-barformstrOn+B-barformstrO=)yl=l)y܆(Rn[W--OnB--Oupdtbar clccol^ formstrO clccol formstrO; ;clccolclcrowblkup_ clccolclcrowblkdn_; clccolclcrowgryup_ clccolclcrowgrydn_;countՉ9clccolclcrowwhtup_ clccolclcrowwhtdn_;countՇ;countK uflagsՀuflagsՇ; tt }+) @@@@@@@@ @@@ )@@@ @@@@@@@@