; HP-29C Games

HP29C

PROGRAM 132
NAME RACETRACK

001  LBL 0
002  FIX 2
003  DEG
004  CLRG
005  5
006  STO 6
007  R/S
008  LBL 1
009  1
010  STO 0
011  GTO 9
012  LBL 2
013  5
014  STO 0
015  LBL 9
016  ROLL
017  9
018  x<=y?
019  x<>y
020  ROLL
021  ->R
022  GSB 6
023  x<>y
024  ISZ
025  GSB 6
026  RCL 8
027  RCL 4
028  -
029  RCL 6
030  RCL 2
031  -
032  ->P
033  2
034  x>y?
035  GTO 5
036  RCL i
037  DSZ
038  RCL i
039  DSZ
040  RCL i
041  DSZ
042  x<>y
043  RCL i
044  ->P
045  R/S
046  LBL 5
047  0
048  PSE
049  GTO 5
050  LBL 6
051  RCL i
052  +
053  STO i
054  LSTX
055  +
056  2
057  :
058  ISZ
059  STO + i
060  RTN
061  R/S
END

PROGRAM 133
NAME PINBALL

001  LBL 0
002  CLRG
003  1
004  STO 2
005  .
006  9
007  8
008  5
009  3
010  STO 3
011  EEX
012  2
013  STO 5
014  8
015  5
016  STO 7
017  5
018  STO 0
019  FIX 0
020  LBL 5
021  RCL 3
022  STO x 2
023  GTO 5
024  LBL 1
025  3
026  9
027  GTO 4
028  LBL 2
029  5
030  3
031  GTO 4
032  LBL 3
033  RCL 7
034  LBL 4
035  RCL 2
036  RCL 7
037  x
038  +
039  RCL 3
040  y^x
041  RCL 3
042  x
043  x^2
044  FRC
045  RCL 5
046  x
047  STO 4
048  TAN
049  ABS
050  STO 2
051  RCL 4
052  RCL 7
053  x<=y?
054  GTO 8
055  RCL 2
056  1
057  0
058  x
059  INT
060  RCL 5
061  x
062  STO + 1
063  PSE
064  RCL 1
065  R/S
066  LBL 8
067  DSZ
068  GTO 9
069  RCL 1
070  CLRG
071  CHS
072  R/S
073  LBL 9
074  0
075  PSE
076  GTO 9
077  R/S
END

PROGRAM 134
NAME BALL POOL

001  LBL 1
002  0
003  STO 1
004  STO 2
005  STO 8
006  1
007  STO 0
008  CHS
009  STO 4
010  R/S
011  LBL 0
012  FIX 0
013  RCL 7
014  PI
015  +
016  x^2
017  FRC
018  STO 7
019  EEX
020  3
021  x
022  FRC
023  EEX
024  2
025  x
026  RCL 6
027  :
028  INT
029  6
030  x<=y?
031  GTO 9
032  1
033  STO + i
034  STO + 8
035  1
036  5
037  RCL 8
038  x=y?
039  GTO 2
040  R/S
041  GTO 0
042  LBL 9
043  RCL 4
044  CHS
045  STO 4
046  STO + 0
047  0
048  R/S
049  GTO 0
050  LBL 2
051  RCL 2
052  1
053  %
054  RCL 1
055  +
056  FIX 2
057  R/S
058  GTO 0
059  R/S
END

PROGRAM 135
NAME ROULETTE

001  LBL 5
002  FIX 2
003  CLRG
004  LBL 1
005  INT
006  STO 1
007  LSTX
008  FRC
009  STO 3
010  GSB 9
011  RCL 3
012  x!=y?
013  GTO 0
014  RCL 1
015  3
016  2
017  x
018  STO + 2
019  RCL 2
020  R/S
021  LBL 2
022  0
023  STO 0
024  GTO 8
025  LBL 3
026  .
027  5
028  STO 0
029  LBL 8
030  ROLL
031  STO 1
032  GSB 9
033  5
034  0
035  x
036  FRC
037  RCL 0
038  x!=y?
039  GTO 0
040  RCL 1
041  STO + 2
042  RCL 2
043  R/S
044  LBL 0
045  RCL 1
046  STO - 2
047  RCL 6
048  R/S
049  RCL 2
050  R/S
051  LBL 9
052  RCL 7
053  PI
054  +
055  x^2
056  FRC
057  STO 7
058  EEX
059  2
060  x
061  3
062  :
063  INT
064  1
065  %
066  STO 6
067  RTN
068  R/S
END

PROGRAM 136
NAME TIC TAC TOE

001  LBL 1
002  EEX
003  5
004  STO 9
005  2
006  R/S
007  8
008  STO 0
009  x=y?
010  GTO 6
011  ROLL
012  LBL 3
013  RCL i
014  GSB 0
015  DSZ
016  GTO 3
017  LBL 0
018  INT
019  x=y?
020  GTO 4
021  ROLL
022  RTN
023  LBL 4
024  RCL i
025  +
026  LBL 5
027  GSB 9
028  x=y?
029  GSB 9
030  R/S
031  GTO 5
032  LBL 9
033  LSTX
034  FRC
035  1
036  0
037  x
038  INT
039  RTN
040  LBL 6
041  9
042  R/S
043  4
044  x>y?
045  GTO 7
046  CLX
047  6
048  x<=y?
049  GTO 8
050  3
051  R/S
052  1
053  x=y?
054  6
055  R/S
056  LBL 8
057  1
058  R/S
059  3
060  x=y?
061  5
062  R/S
063  LBL 7
064  CLX
065  1
066  x=y?
067  RCL 9
068  RCL 7
069  x
070  +
071  GTO 5
072  R/S
END

PROGRAM 137
NAME BELL FRUIT

001  LBL 5
002  CLRG
003  STO 8
004  DEG
005  R/S
006  LBL 1
007  FIX 3
008  RCL 8
009  EEX
010  3
011  x
012  COS
013  ABS
014  STO 8
015  EEX
016  6
017  +
018  LSTX
019  -
020  FRC
021  STO 5
022  GSB 9
023  STO 2
024  -
025  GSB 9
026  STO 3
027  -
028  GSB 9
029  STO 4
030  1
031  RCL 2
032  x=y?
033  GTO 6
034  RCL 3
035  x!=y?
036  GTO 7
037  RCL 4
038  x!=y?
039  GTO 8
040  1
041  GSB 0
042  1
043  STO 0
044  ROLL
045  LBL 8
046  x!=0?
047  GTO 7
048  9
049  DSZ
050  1
051  GSB 0
052  LBL 7
053  RCL 5
054  .
055  1
056  CHS
057  LBL 0
058  STO + 1
059  ROLL
060  RTN
061  LBL 6
062  .
063  2
064  GSB 0
065  RCL 3
066  x!=y?
067  GTO 7
068  .
069  3
070  GSB 0
071  GTO 7
072  LBL 9
073  1
074  0
075  x
076  ENT
077  INT
078  RTN
079  LBL 2
080  RCL 1
081  FIX 2
082  R/S
END

PROGRAM 138
NAME BLACKJACK

001  LBL 1
002  STO 6
003  0
004  STO 0
005  STO 4
006  STO 5
007  FIX 0
008  LBL 7
009  GSB 0
010  STO + 5
011  2
012  1
013  RCL 5
014  PSE
015  x=y?
016  GTO 9
017  x>y?
018  GTO 8
019  R/S
020  GTO 7
021  LBL 2
022  GSB 0
023  STO + 4
024  2
025  1
026  RCL 4
027  PSE
028  x>y?
029  GTO 9
030  RCL 5
031  x<>y
032  x>y?
033  GTO 8
034  GTO 2
035  LBL 8
036  1
037  STO 0
038  LBL 9
039  RCL 6
040  DSZ
041  CHS
042  CHS
043  STO + 2
044  FIX 2
045  RCL 2
046  R/S
047  LBL 0
048  1
049  0
050  RCL 1
051  PI
052  +
053  x^2
054  FRC
055  STO 1
056  1
057  3
058  x
059  1
060  +
061  INT
062  x>y?
063  x<>y
064  RTN
065  R/S
END

PROGRAM 139
NAME CANNIBALS

001  LBL 5
002  FIX 2
003  CLRG
004  0
005  R/S
006  LBL 1
007  1
008  STO + 3
009  R/S
010  LBL 2
011  1
012  STO + 4
013  R/S
014  LBL 3
015  RCL 5
016  x!=0?
017  GTO 0
018  1
019  STO 5
020  RCL 3
021  STO + 1
022  RCL 4
023  STO + 2
024  LBL 9
025  1
026  STO 0
027  RCL 4
028  x=0?
029  GTO 8
030  ISZ
031  RCL 3
032  x>y?
033  GTO 8
034  +
035  4
036  STO 0
037  x<=y?
038  GTO 8
039  RCL 2
040  x=0?
041  GTO 7
042  3
043  x=y?
044  GTO 7
045  RCL 1
046  RCL 2
047  DSZ
048  x!=y?
049  GTO 8
050  LBL 7
051  0
052  STO 3
053  STO 4
054  RCL 1
055  EEX
056  1
057  :
058  RCL 2
059  EEX
060  2
061  :
062  +
063  R/S
064  LBL 4
065  RCL 5
066  x=0?
067  GTO 0
068  0
069  STO 5
070  RCL 3
071  STO - 1
072  RCL 4
073  STO - 2
074  GTO 9
075  LBL 0
076  0
077  :
078  LBL 8
079  RCL 0
080  R/S
END

PROGRAM 140
NAME SUBMARINE

001  LBL 1
002  CLRG
003  STO 2
004  DEG
005  FIX 2
006  GSB 0
007  STO 4
008  GSB 0
009  STO 1
010  1
011  STO 5
012  R/S
013  LBL 3
014  0
015  STO 5
016  ROLL
017  LBL 2
018  1
019  STO 0
020  ROLL
021  RCL 4
022  -
023  x<>y
024  RCL 1
025  -
026  ->P
027  .
028  8
029  -
030  x>0?
031  GTO 9
032  RCL 5
033  x=0?
034  GTO 8
035  ROLL
036  LBL 9
037  1
038  STO 3
039  x<=y?
040  STO - 3
041  GSB 0
042  4
043  x<=y?
044  STO 0
045  RCL 1
046  GSB 0
047  4    
048  .    
049  5    
050  -    
051  ENT  
052  ABS  
053  :    
054  DSZ  
055  RCL 4
056  +    
057  9    
058  -    
059  ABS  
060  9    
061  -    
062  ABS  
063  ISZ  
064  STO i
065  RCL 5
066  x=0? 
067  STO 3
068  1
069  STO 5
070  RCL 3
071  R/S
072  LBL 8
073  1
074  PSE
075  GTO 8
076  LBL 0
077  2
078  RCL 2
079  +
080  STO 2
081  COS
082  ABS
083  EEX
084  5
085  x
086  FRC
087  1
088  0
089  x
090  INT
091  RTN
092  R/S
END


PROGRAM 141
NAME ARTILLERY

001  LBL 1
002  DEG
003  CLRG
004  STO 7
005  3
006  6
007  0
008  GSB 0
009  STO 1
010  5
011  EEX
012  3
013  STO 8
014  GSB 0
015  RCL 8
016  +
017  STO 2
018  1
019  0
020  STO 4
021  FIX 5
022  R/S
023  LBL 2
024  2
025  x
026  SIN
027  EEX
028  4
029  x
030  ->R
031  CLE
032  E+
033  0
034  STO .0
035  RCL 1
036  RCL 2
037  ->R
038  E-
039  /x
040  ->P
041  EEX
042  2
043  x>y?
044  GTO 6
045  ROLL
046  EEX
047  5
048  :
049  STO 3
050  x<>y
051  INT
052  x<0?
053  GSB 7
054  STO + 3
055  RCL 4
056  GSB 0
057  RCL 4
058  2
059  :
060  -
061  STO + 1
062  EEX
063  3
064  GSB 0
065  STO - 2
066  RCL 2
067  EEX
068  3
069  x>y?
070  GTO 8
071  RCL 3
072  R/S
073  LBL 8
074  0
075  GTO 9
076  LBL 7
077  RCL 3
078  CHS
079  STO 3
080  ROLL
081  RTN
082  LBL 6
083  1
084  LBL 9
085  PSE
086  GTO 9
087  LBL 0
088  RCL 7
089  PI
090  +
091  x^2
092  FRC
093  STO 7
094  x
095  RTN
096  R/S
END
