Basketball

In high school a friend of mine wrote a fun random chance based basketball game. We played a lot of this back in the day. Here is the ascii listings of the programs and attached will be a *.82p file if you have the software and hardware necessary to transfer this to actual hardware.

ball.zip

Ball:
\START82\
\COMMENT=Program file dated 01/20/80, 00:00
\NAME=BALL
\FILE=BALL.82P
ClrHome
0\->\U
0\->\W
0\->\X
0\->\K
0\->\L
0\->\\@\
Disp “—————”
Disp “— YOU ARE —”
Disp “— PLAYING —”
Disp “— —”
Disp “— BERTSCH —”
Disp “— NBA JAM —”
Disp “—————”
Pause
ClrHome
Disp “—————-”
Disp “– WRITTEN BY –”
Disp “- CORY BERTSCH -”
Disp “—————-”
Pause
ClrHome
Disp “—————-”
Disp “– EDITED BY –”
Disp “- SCOTT WENDT -”
Disp “—————-”
Pause
ClrHome
Disp “—————-”
Disp “-ENTER A NUMBER-”
Disp “—————-”
Input N
N\->\rand
ClrHome
Disp “—————-”
Disp “- CHOOSE YOUR -”
Disp “—- PLAYER —-”
Disp “—————-”
Pause
Lbl I
Menu(“YOUR PLAYER”,”KEMP”,A,”EWING”,B,”MAGIC”,D,”COLEMAN”,D,”ANDERSON”,\#\
E,”RODMAN”,F,”OTHER”,H)
Lbl H
Menu(“YOUR PLAYER”,”DREXLER”,F,”BARKLEY”,B,”SHAQ”,B,”HARDAWAY”,E,”ALANZ\#\
O”,F,”ABDUL R.”,C,”OTHER”,\@\)
Lbl \@\
Menu(“YOUR PLAYER”,”ROULLIER”,Z,”JORDAN”,X,”PIPPEN”,J,”STOCKTON”,K,”OTH\#\
ER”,I)
Lbl Z
100\->\A
100\->\B
100\->\C
100\->\D
prgm[BALL1
Lbl A
90\->\A
75\->\B
50\->\C
25\->\D
prgm[BALL1
Lbl B
85\->\A
75\->\B
55\->\C
25\->\D
prgm[BALL1
Lbl C
60\->\A
93\->\B
85\->\C
20\->\D
prgm[BALL1
Lbl D
75\->\A
93\->\B
75\->\C
20\->\D
prgm[BALL1
Lbl E
65\->\A
80\->\B
80\->\C
23\->\D
prgm[BALL1
Lbl F
85\->\A
77\->\B
55\->\C
24\->\D
prgm[BALL1
Lbl G
60\->\A
92\->\B
83\->\C
23\->\D
prgm[BALL1
Lbl X
95\->\A
85\->\B
100\->\C
75\->\D
prgm[BALL1
Lbl J
99\->\A
80\->\B
70\->\C
65\->\D
prgm[BALL1
Lbl K
26\->\A
101\->\B
91\->\C
91\->\D
prgm[BALL1
\STOP82\

@ball1:
\START82\
\COMMENT=Program file dated 01/20/80, 00:02
\NAME=\@\BALL1
\FILE=ZBALL1.82P
0\->\U
0\->\K
0\->\L
ClrHome
Disp “—————-”
Disp “- CHOOSE YOUR -”
Disp “— OPPONENT —”
Disp “—————-”
Pause
ClrHome
Lbl A
Menu(“YOUR OPPONENT”,”KEMP”,H,”EWING”,I,”MAGIC”,J,”COLEMAN”,K,”ANDERSON\#\
“,L,”ELIS”,M,”OTHER”,B)
Lbl B
Menu(“OPPONENT”,”DREXLER”,M,”BARKLEY”,I,”SHAQ”,I,”HARDAWAY”,L,”ALANZO”,\#\
M,”ABDUL R.”,N,”OTHER”,C)
Lbl C
Menu(“OPPONENT”,”JORDAN”,O,”PIPPEN”,P,”STOCKTON”,Q,”ROULLIER”,R,”OTHER”\#\
,A)
Lbl H
94\->\E
77\->\F
53\->\G
28\->\H
prgm[BALL2
Lbl I
87\->\E
77\->\F
59\->\G
27\->\H
prgm[BALL2
Lbl J
64\->\E
97\->\F
87\->\G
24\->\H
prgm[BALL2
Lbl K
77\->\E
95\->\F
76\->\G
23\->\H
prgm[BALL2
Lbl L
68\->\E
83\->\F
82\->\G
26\->\H
prgm[BALL2
Lbl M
87\->\E
79\->\F
58\->\G
26\->\H
prgm[BALL2
Lbl N
62\->\E
95\->\F
85\->\G
25\->\H
prgm[BALL2
Lbl O
95\->\E
85\->\F
80\->\G
75\->\H
prgm[BALL2
Lbl P
99\->\E
80\->\F
70\->\G
65\->\H
prgm[BALL2
Lbl Q
50\->\E
100\->\F
90\->\G
90\->\D
prgm[BALL2
Lbl R
50\->\E
100\->\F
100\->\G
100\->\H
prgm[BALL2
\STOP82\

@ball2:
\START82\
\COMMENT=Program file dated 01/20/80, 00:02
\NAME=\@\BALL2
\FILE=ZBALL2.82P
If W\>=\1
prgm[BALL3
If L\>=\1
prgm[BALL3
Disp “—————-”
Disp “- CHOOSE YOUR -”
Disp “– BEST SKILL –”
Disp “—————-”
Pause
ClrHome
Menu(“SKILL”,”DUNK”,I,”JUMP SHOT”,J,”3 POINT”,K,”DEFENSE”,L)
Lbl I
A+5\->\A
prgm[BALL3
Lbl J
B+5\->\B
prgm[BALL3
Lbl K
C+3\->\C
prgm[BALL3
Lbl L
D+5\->\D
prgm[BALL3
\STOP82\

@Ball3:
\START82\
\COMMENT=Program file dated 01/20/80, 00:03
\NAME=\@\BALL3
\FILE=ZBALL3.82P
Disp “—————-”
Disp “-WHAT DO YOU DO-”
Disp “—————-”
Pause
ClrHome
Menu(“OFFENSE”,”DUNK”,M,”JUMP SHOT”,N,”3 POINT”,O)
Lbl M
int (100rand)(1)+1
Ans\->\I
A-H\->\J
If J\>=\I
int (5rand)(1)+1
Ans\->\X
Disp “—————-”
If X=0
Disp “—- DUNKN! —-”
If X=1
Disp “— YOU DUNK —”
If X=2
Disp “—– JAM! —–”
If X=3
Disp “— 360 JAM —”
If X=4
Disp “—- POWER —–”
If X=5
Disp “— REVERSE —-”
If J\>=\I
K+2\->\K
If J<I
Disp “— YOU MISS —”
Disp “—————-”
If J<I
Pause
If J<I
ClrHome
If J<I
prgm[BALL40
If J\>=\I
Pause
If J\>=\I
ClrHome
If J\>=\I
prgm[BALL4
Lbl N
int (100rand)(1)+1
Ans\->\I
Disp “—————-”
B-H\->\J
If J\>=\I
int (4rand)(1)+1
Ans\->\X
If X=1
Disp “-YOU DRAINED IT-”
If X=2
Disp “-IT BOUNCES IN-”
If X=3
Disp “–IT ROLLS IN–”
If X=4
Disp “-IT FALLS HARD-”
If J\>=\I
K+2\->\K
If J<I
Disp “— YOU MISS —”
Disp “—————-”
If J<I
Pause
If J<I
ClrHome
If J<I
prgm[BALL40
If J\>=\I
Pause
If J\>=\I
ClrHome
If J\>=\I
prgm[BALL4
Lbl O
int (100rand)(1)+1
Ans\->\I
Disp “—————-”
C-H\->\J
If J\>=\I
Disp “–YOU MADE IT–”
If J\>=\I
K+3\->\K
If J<I
Disp “— YOU MISS —”
Disp “—————-”
If J<I
Pause
If J<I
ClrHome
If J<I
prgm[BALL40
If J\>=\I
Pause
ClrHome
prgm[BALL4
\STOP82\

@ball4:
\START82\
\COMMENT=Program file dated 01/20/80, 00:03
\NAME=\@\BALL4
\FILE=ZBALL4.82P
int (3rand)(1)+1
Ans\->\X
If X=1
Goto P
If X=2
Goto Q
If X=3
Goto R
Pause
Lbl P
int (100rand)(1)+1
Ans\->\I
E-H\->\J
If J\>=\I
Disp “—————-”
If J\>=\I
Disp “— HE DUNKS —”
If J\>=\I
Disp “—————-”
If J\>=\I
L+2\->\L
If J\>=\I
Pause
If J\>=\I
ClrHome
If J>E
Disp “—————”
If J>E
Disp “– HE MISSES –”
If J>E
Disp “—————”
If J>E
Goto Z
prgm[BALL5
Lbl Q
int (100rand)(1)+1
Ans\->\I
F-H\->\J
If J\>=\I
Disp “—————”
If J\>=\I
Disp “–HE SCORES 2–”
If J\>=\I
Disp “—————”
If J\>=\I
L+2\->\L
If J\>=\I
Pause
If J\>=\I
ClrHome
If J<I
Disp “—————”
If J<I
Disp “– HE MISSES –”
If J<I
Disp “—————”
If J<I
Goto Z
prgm[BALL5
Lbl R
int (100rand)(1)+1
Ans\->\I
G-H\->\J
If J\>=\I
Disp “—————-”
If J\>=\I
Disp “-THREE! FOR HIM-”
If J\>=\I
Disp “—————-”
If J\>=\I
L+3\->\L
If J\>=\I
Pause
If J\>=\I
ClrHome
If J<I
Disp “—————”
If J<I
Disp “-HE IS BLOCKED-”
If J<I
Disp “—————”
If J<I
Goto Z
prgm[BALL5
Lbl Z
Pause
ClrHome
prgm[BALL40
\STOP82\

@BALL40:

\START82\
\COMMENT=Program file dated 01/20/80, 00:03
\NAME=\@\BALL40
\FILE=ZBALL40.82P
int (20rand)(1)+1
Ans\->\Q
int (20rand)(1)+1
Ans\->\R
Q+D\->\Q
R+H\->\R
If Q>R
Disp “—————”
If Q>R
Disp “- YOU RIP THE -”
If Q>R
Disp “—- BOARD —-”
If Q>R
Disp “—————”
If Q>R
Pause
If Q>R
ClrHome
If Q>R
prgm[BALL3
If R\>=\Q
Disp “—————”
If R\>=\Q
Disp “- HE GETS THE -”
If R\>=\Q
Disp “—- BOARD —-”
If R\>=\Q
Disp “—————”
If R\>=\Q
Pause
If R\>=\Q
ClrHome
If R\>=\Q
prgm[BALL4
\STOP82\

@ball5:

\START82\
\COMMENT=Program file dated 01/20/80, 00:03
\NAME=\@\BALL5
\FILE=ZBALL5.82P
U+1\->\U
Disp “—————-”
Disp K
Disp “–YOUR POINTS–”
Disp “—————-”
Pause
ClrHome
Disp “—————-”
Disp L
Disp “– HIS POINTS –”
Disp “—————-”
If U\>=\21
Goto A
Pause :ClrHome
prgm[BALL3
Lbl A
If L=K
Then
Pause
ClrHome
Disp “—————”
Disp “—– TIE —–”
Disp “— BREAKER —”
Disp “—————”
Pause
ClrHome
prgm[BALL3
End
If K>L
Goto B
If K<L
Goto C
Lbl B
Pause
ClrHome
Disp “—————”
Disp “— YOU WIN —”
Disp “—————”
Pause
ClrHome
W+1\->\W
Disp “—————”
Disp W
Disp “– YOUR WINS –”
Disp “—————”
Pause
ClrHome
Disp “—————”
Disp \@\
Disp “- YOUR LOSSES -”
Disp “—————”
Pause
ClrHome
Goto Z
Lbl C
Pause
ClrHome
Disp “—————-”
Disp “— YOU LOSE —”
Disp “—————-”
\@\+1\->\\@\
Pause
ClrHome
Disp “—————”
Disp W
Disp “—YOUR WINS—”
Disp “—————”
Pause
ClrHome
Disp “—————”
Disp \@\
Disp “–YOUR LOSSES–”
Disp “—————”
Pause
Lbl Z
prgm[BALL6
\STOP82\

@ball6:

\START82\
\COMMENT=Program file dated 01/20/80, 00:03
\NAME=\@\BALL6
\FILE=ZBALL6.82P
Menu(“PLAY AGAIN?”,”YES”,A,”NO”,B)
Return
Lbl A
prgm[BALL1
Lbl B
ClrHome
Disp “—————-”
Disp “—– BYE ——”
Disp “—————-”
Stop
\STOP82\

Leave a Reply