The Datafile PD-CD 1B

home *** CD-ROM | disk | FTP | other *** search

/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 004 / cribbage_z / CRIBBAGE.OPA / CRIBBAGE.txt next >

Wrap

Text File | 1994-08-10 | 5KB | 498 lines

OPLObjectFile** LOC::A:\CRIB\CRIBBAGE.OPL Cribbage.ODB \OPD\ DRIVE$ NUMBER$ START% TURNED% WHOSE% LEVEL% TURN% CCANT% PCANT% RUN4% RUN5% COUNT% PLAYED% WINNER% CARDN% CARDS% CCARDN% CCARDS% PCARDN% PCARDS% CHANDN% CHANDS% PHANDN% PHANDS% THEBOXN% THEBOXS% PSCORE% CSCORE% CHECK% PHANDV% CHANDV% HANDX% PLAYX% CHANDP% PHANDP% TOTAL PTOTAL MTOTAL HAND% CUTN% CUTS% HOLEX% HOLEY% STDSCO PROBSCO MODSCO PCDLEFT% CCDLEFT% LSTCRDN% LSTCRDS% PLAYTOT% PEGTOT PEGHAND LLVEL% RAND% DRIVECHK SETWINS LOADPICS MAINSCRN PLAYSCRN SHUFFLE AICOMPCH SHOWBOX SELECT JACKCHK PLAYHAND NONBOXSC WHOBOXSC BOXSCORE ENDG[Q aicribK aicribK COMMISERATIONS You have lost to PsionO Better luck next timeO CONGRATULATIONS You have beaten PsionO DRIVE$ A:\crib\GFX\crib.picW A:\crib\gfx\ B:\crib\GFX\crib.picW B:\crib\gfx\ M:\crib\GFX\crib.picW M:\crib\gfx\ ENDC[~ SYSTEM WARNING Files are missing or theyO are not in their correctO places. Cannot run programO DRIVE$ NUMBER$ crib.picKO crib.picKO cardK .picKO cardK .picKO + cardh.picKO + cardh.picKO + cardc.picKO + cardc.picKO + cardd.picKO + cardd.picKO + cards.picKO + cards.picKO + cardb.picKO + cardb.picKO peg.picKO peg.picKO + arrow.picKO + arrow.picKO box.picKO box.picKO START% DRIVE$ RAND% xyz.picKO OYOBO xyz.picKO OYOBO Od|RWBO Cribbage+ Start New GameOs+ Set LevelOl+ Info on CribbageOi+ Exit from CribbageOx Menuopt MenuOpt Cribbage+ Info on CribbageOi+ Quit this gameOq+ Exit from CribbageOx Menuopt MenuOpt START% START% WINNER% START% WINNER% CRIBBAGE Converted for the Psion 3aO and Written by Zooey BallO - - - * - - -O Copyright 26.4.94O LEVEL% LLVEL% Which level Choosing Hand+ Easy,Moderate,Hard Playing Hand+ Easy,Moderate,Hard CUT4BOX HANDX% PLAYX% CHECK% CARDN% CARDS% PCARDN% PCARDS% CCARDN% CCARDS% PHANDN% PHANDS% CHANDN% CHANDS% THEBOXN% THEBOXS% CSCORE% PSCORE% COUNT% HOLEX% HOLEY% O4|RWBO O'PHOIH WHOSE% |RWBO SHSCORES WHOSE% CHECK% CARDN% CARDS% RAND% PCARDN% PCARDS% CCARDN% CCARDS% PHANDN% PHANDS% CHANDN% CHANDS% THEBOXN% THEBOXS% Od|RWBO O4|RWBO WHOSE% CCARDN% CARDN% CCARDS% CARDS% HANDX% PCARDN% PCARDS% O`O$O O`O$O O`O$O WHOSE% HANDX% O`O$O O`O$O O`O$O O`O$O O`O$O TOTAL TOTAL TOTAL CHK4RUN TOTAL CHK5RUN TOTAL RUN4% RUN5% TOTAL RUN4% RUN5% TOTAL COUNT% TOTAL PTOTAL TOTAL CUTS% WHOSE% MTOTAL DRAWBOX CLEARBOX WINNER% THEBOXN% PCARDN% THEBOXS% PCARDS% HANDX% WHOSE% PHANDN% PHANDS% O`O$O O`O$O O`O$O O`O$O O`O$O O`O$O CUTN% CARDN% CUTS% CARDS% O(|RWBO SHSCORES WINNER% CUTN% WHOSE% CSCORE% PSCORE% A JACK HAS BEEN CUT Two points to him A JACK HAS BEEN CUT Two points to you SHSCORES AICOMPPL CHOOSECD REDEAL WINNER% PLAYED% LSTCRDN% LSTCRDS% PCANT% CCANT% PHANDP% CHANDP% PHANDV% PHANDN% CHANDV% CHANDN% WHOSE% TURN% PLAYTOT% CSCORE% PSCORE% PLAYX% O(O(O PEGGING POINTS FOR HIM Plus one for last cardO PEGGING POINTS FOR YOU Plus one for last cardO O(O(O O`O$O O`O$O O(O(O PEGGING POINTS FOR HIM Plus one for last cardO PEGGING POINTS FOR YOU Plus one for last cardO PEGSCORE LLVEL% PLAYTOT% CHANDV% CHANDP% PEGHAND PEGTOT PLAYED% CHANDN% LSTCRDN% LSTCRDS% CHANDS% HANDX% PLAYX% HO 0\[ HO 0\[ OiO$O O`O$O DRAWBOX CLEARBOX PEGSCORE PCDLEFT% PHANDP% RAND% WINNER% PLAYTOT% PHANDV% PLAYED% LSTCRDN% PHANDN% LSTCRDS% PHANDS% HANDX% PLAYX% Od|RWBO HO 0[ OkO&O HANDX% CHANDN% CHANDS% PHANDN% PHANDS% WHOSE% THEBOXN% THEBOXS% OmOPO OiO$O OkO&O SHSCORES PLAYED% LSTCRDN% TURN% CSCORE% WINNER% PSCORE% PLAYTOT% O(O(O PEGGING POINTS FOR HIM Two points for a pairO + Six points for a three of a kindO +"twelve points for a four of a kindO O(O(O PEGGING POINTS FOR YOU Two points for a pairO + Six points for a three of a kindO +"twelve points for a four of a kindO O(O(O PEGGING POINTS FOR HIM Three points for a runO Four points for a runO Five points for a runO Six points for a runO Seven points for a runO O(O(O PEGGING POINTS FOR YOU Three points for a runO Four points for a runO Five points for a runO Six points for a runO Seven points for a runO O(O(O PEGGING POINTS FOR HIM Fifteen for two pointsO PEGGING POINTS FOR YOU Fifteen for two pointsO O(O(O PEGGING POINTS FOR HIM Thirty-one for two pointsO PEGGING POINTS FOR YOU Thirty-one for two pointsO CSCORE% HOLEX% HOLEY% PSCORE% Oy0\[# Oy0\[' Oy0\[# Oy0\[' GETSCORE SHSCORES WHOSE% WINNER% PHANDN% CUTN% PHANDS% CUTS% TOTAL PSCORE% CHANDN% CHANDS% CSCORE% IN YOUR HAND + You have pointsKO IN HIS HAND He has pointsKO GETSCORE SHSCORES WHOSE% WINNER% PHANDN% CUTN% PHANDS% CUTS% TOTAL PSCORE% CHANDN% CHANDS% CSCORE% IN YOUR HAND + You have pointsKO IN HIS HAND He has pointsKO GETSCORE SHSCORES WINNER% THEBOXN% CUTN% THEBOXS% CUTS% WHOSE% TOTAL PSCORE% CSCORE% IN THE BOX + You have pointsKO IN THE BOX He has pointsKO CRIBHELP WINNER% DRIVE$ cribhelpK cribhelpK CRIBBAGE SETWINSr DRIVECHK LOADPICS' MAINSCRN MENU' MENUOPTS% MENUOPTXF MENUOPTQv MENUOPTI MENUOPTLB CUT4BOX( PLAYSCRNT SHUFFLE SHOWBOX CHKTOTAL/ CHK2P CHK4RUN=" CHK5RUN CHKPTOT GETSCOREO+ CHKMODS SELECT CLEARBOX DRAWBOXB6 CUTz6 JACKCHK 7 PLAYHAND\8 AICOMPPL CHOOSECD REDEAL0J PEGSCORE{L SHSCORES NONBOXSC;[ WHOBOXSC BOXSCORE/` HELP#b