Slots

I really enjoyed this slot machine implementation because to me it seemed like the scrolling text looked like slot machine wheels spinning. Text of program below and 82p files attached.

slots.zip

Slots:

\START82\
\COMMENT=Program file dated 01/20/80, 00:00
\NAME=ASLOTS
\FILE=ASLOTS.82P
ClrHome
10\->\G
Disp “+————-+”
Disp “! YOU ARE !”
Disp “! PLAYING !”
Disp “! !”
Disp “! SLOTS !”
Disp “+————-+”
Pause
ClrHome
Disp “+————–+”
Disp “! WRITTEN BY !”
Disp “! SCOTT WENDT !”
Disp “+————–+”
Pause
ClrHome
prgm[ASLOTS
\STOP82\

@ASLOTS:

\START82\
\COMMENT=Program file dated 01/20/80, 00:02
\NAME=\@\ASLOTS
\FILE=ZASLOTS.82P
ClrHome
int (10rand)+1\->\A
int (10rand)+1\->\B
int (10rand)+1\->\C
Disp “INSERT A DOLLAR”
Disp “——AND——-”
Disp “-PRESS ENTER TO-”
Disp “PULL THE HANDLE”
Pause
ClrHome
For(X,1,5)
Disp “”
Disp “”
Disp “”
Disp “”
Disp “”
Disp “”
For(Y,1,5)
End
Disp “—————-”
For(Y,1,5)
End
Disp “—————-”
For(Y,1,5)
End
Disp “—————-”
End
Disp “”
Disp “”
Disp “”
Disp “”
Disp “”
G-1\->\G
If A\<=\4
Then
Disp “—–CHERRY—–”
1\->\D
End
If A>4
Then
If A\<=\7
Then
Disp “—–LEMON——”
2\->\D
End
End
If A>7
Then
If A\<=\9
Then
Disp “——BELL——”
3\->\D
End
End
If A=10
Then
Disp “——BAR——-”
4\->\D
End
If B\<=\4
Then
Disp “—–CHERRY—–”
1\->\E
End
If B>4
Then
If B\<=\7
Then
Disp “—–LEMON——”
2\->\E
End
End
If B>7
Then
If B\<=\9
Then
Disp “——BELL——”
3\->\E
End
End
If B=10
Then
Disp “——BAR——-”
4\->\E
End
If C\<=\4
Then
Disp “—–CHERRY—–”
1\->\F
End
If C>4
Then
If C\<=\7
Then
Disp “—–LEMON——”
2\->\F
End
End
If C>7
Then
If C\<=\9
Then
Disp “——BELL——”
3\->\F
End
End
If C=10
Then
Disp “——BAR——-”
4\->\F
End
Disp “”
Disp “”
Pause
ClrHome
prgm[ASCHEK
\STOP82\

@ASCHEK:

\START82\
\COMMENT=Program file dated 01/20/80, 00:02
\NAME=\@\ASCHEK
\FILE=ZASCHEK.82P
If D=E
Then
If E=F
Goto A
If D=1
Then
Disp “-DOUBLE CHERRY-”
Disp “—-WIN TWO—-”
G+2\->\G
End
If D=2
Then
Disp “–DOUBLE LEMON–”
Disp “—WIN THREE—”
G+3\->\G
End
If D=3
Then
Disp “–DOUBLE BELL–”
Disp “—-WIN FIVE—-”
G+5\->\G
End
If D=4
Then
Disp “—DOUBLE BAR—”
Disp “—-WIN SIX—-”
G+6\->\G
End
Else
Disp “—-NOTHING—–”
End
Goto D
Lbl A
If D=1
Then
Disp “–ALL CHERRIES–”
Disp “—-WIN TEN—-”
G+10\->\G
End
If D=2
Then
Disp “—ALL LEMONS—”
Disp “—–WIN 11—–”
G+11\->\G
End
If D=3
Then
Disp “-SMALL JACKPOT-”
Disp “—–WIN 50—–”
G+50\->\G
End
If D=4
Then
Disp “—–JACKPOT—-”
Disp “—-WIN 100—-”
G+100\->\G
End
Lbl D
Pause
ClrHome
Disp “—-YOU HAVE—-”
Disp G
Disp “—-DOLLARS—–”
Pause
ClrHome
If G\<=\0
prgm[ASBROK
Menu(“CASH OUT”,”NO”,C,”YES”,B)
Lbl C
prgm[ASLOTS
Lbl B
Disp “YOU MADE”
Disp G-10
Disp “DOLLARS”
Pause
ClrHome
Disp “—————-”
Disp “! BYE !”
Disp “—————-”
Stop
\STOP82\

@ASBROK:

\START82\
\COMMENT=Program file dated 01/20/80, 00:02
\NAME=\@\ASBROK
\FILE=ZASBROK.82P
ClrHome
Disp “-YOU ARE BROKE-”
Stop
\STOP82\

Leave a Reply