Copy-n-Paste into a TI-Graphlink Editor and send.
This may need some adjustments prior to sending.
Use the editor's Replace All feature if necessary.
In this game you can play as yourself, Bulbasaur, Starmie, Starmie, Drowsee, Voltorb, Mr. Mime, Wartortle, Poliwag, Charizard, Magmar, Bulbasaur, Meowth, Grimer, Onix, Grimer, Wartortle, Clefable, Grimer, Vulpix, and Machamp. You fight against Wigglytuff, Electabuzz, Tauros, Poliwag, Horsea, Nidorina, Poliwag, Nidoqueen, Bulbasaur, Poliwag, Rapidash, Charizard, Pidgeotto, Starmie, Magnemite, Meowth, Nidoqueen, Pikachu, Mew Two, and Slowpoke by using Body Slam, Confusion, Bite, Punch, Slap, Egg Bomb, Horn Drill, Rage, Reflect, Mega Kick, Sonic Boom, Explosion, Hypnosis, Teleport, and Self Destruct. Have fun and Good Luck!
Lbl A1
Full
Normal
Fix 0
0→G
0→F
0→L
ClrHome
"****************"→Str0
Disp Str0,Str0,"*POKEMON*MASTER*",Str0,Str0,"*WILLIAM*WHITE*",Str0
Output(8,1,Str0
Pause
Lbl A2
Menu("*POKEMON*MASTER*","PLAY",B1,"ABOUT",A3,"HELP",A4,"LOAD",A6,"QUIT",A8
Lbl B1
Menu("CHARACTERS","BULBASAUR",E1,"STARMIE",F1,"STARMIE",G1,"DROWSEE",H1,"VOLTORB",I1,"MR. MIME",J1,"MORE",B2
Lbl B2
Menu("CHARACTERS","WARTORTLE",E2,"POLIWAG",F2,"CHARIZARD",G2,"MAGMAR",H2,"BULBASAUR",I2,"MORE",B3,"MAIN",A2
Lbl B3
Menu("CHARACTERS","MEOWTH",E3,"GRIMER",F3,"ONIX",G3,"GRIMER",H3,"WARTORTLE",I3,"MORE",B4,"MAIN",A2
Lbl B4
Menu("CHARACTERS","CLEFABLE",E4,"GRIMER",F4,"VULPIX",G4,"MACHAMP",H4,"INPUT YOURS",G7,"MORE",B5,"MAIN",A2
Lbl B5
Menu("OPTIONS","START OF LIST",B1,"MAIN",A2
Lbl A3
ClrHome
Disp "THIS IS FROM","REALLY BORED","PRODUCTIONS 2
Pause
Goto A2
Lbl A4
ClrHome
Disp "DON'T DELETE:","STRINGS:","Str2-Str9","","SAVED GAMES:","L1-L4
Pause
Goto A2
Lbl A5
ClrHome
Disp "ENTER PASSKEY:
0→X
While X=0
getKey→X
End
{L,G,B,D,K,F,X}→L6
Lbl Aθ
Input "SLOT (1-4):",B
abs(iPart(B))→B
If B<1 or B>4:Goto Aθ
If B=1
Then
L6→L1
Str0→Str2
Str1→Str3
End
If B=2
Then
L6→L2
Str0→Str4
Str1→Str5
End
If B=3
Then
L6→L3
Str0→Str6
Str1→Str7
End
If B=4
Then
L6→L4
Str0→Str8
Str1→Str9
End
DelVar L6
Goto A2
Lbl A6
Menu("SAVED GAME ?","YES",A7,"NO",A1,"QUIT",A8
Lbl A7
ClrHome
Input "SLOT (1-4):",B
abs(iPart(B))→B
If B<1 or B>4:Goto A7
If B=1
Then
L1→L6
Str2→Str0
Str3→Str1
DelVar L1
End
If B=2
Then
L2→L6
Str4→Str0
Str5→Str1
DelVar L2
End
If B=3
Then
L3→L6
Str6→Str0
Str7→Str1
DelVar L3
End
If B=4
Then
L4→L6
Str8→Str0
Str9→Str1
DelVar L4
End
Disp "PRESS PASSKEY:
0→X
While X=0
getKey→X
End
If L6(7)=X
Then
L6(1)→L
L6(2)→G
L6(3)→B
L6(4)→D
L6(5)→K
L6(6)→F
D→X
Goto Z1
End
Goto A1
Lbl A8
ClrHome
DelVar B
DelVar D
DelVar F
DelVar G
DelVar L
DelVar K
DelVar X
DelVar Str0
DelVar Str1
Float
Stop
Lbl E1
"BULBASAUR"→Str0
Goto Z5
Lbl F1
"STARMIE"→Str0
Goto Z5
Lbl G1
"STARMIE"→Str0
Goto Z5
Lbl H1
"DROWSEE"→Str0
Goto Z5
Lbl I1
"VOLTORB"→Str0
Goto Z5
Lbl J1
"MR. MIME"→Str0
Goto Z5
Lbl E2
"WARTORTLE"→Str0
Goto Z5
Lbl F2
"POLIWAG"→Str0
Goto Z5
Lbl G2
"CHARIZARD"→Str0
Goto Z5
Lbl H2
"MAGMAR"→Str0
Goto Z5
Lbl I2
"BULBASAUR"→Str0
Goto Z5
Lbl E3
"MEOWTH"→Str0
Goto Z5
Lbl F3
"GRIMER"→Str0
Goto Z5
Lbl G3
"ONIX"→Str0
Goto Z5
Lbl H3
"GRIMER"→Str0
Goto Z5
Lbl I3
"WARTORTLE"→Str0
Goto Z5
Lbl E4
"CLEFABLE"→Str0
Goto Z5
Lbl F4
"GRIMER"→Str0
Goto Z5
Lbl G4
"VULPIX"→Str0
Goto Z5
Lbl H4
"MACHAMP"→Str0
Goto Z5
Lbl G7
ClrHome
Input "YOUR NAME:",Str0
Lbl Z5
randInt(33,48)→B
Goto Z1
Lbl C1
Menu("MOVES","BODY SLAM",D1,"CONFUSION",D2,"BITE",D3,"PUNCH",D4,"SLAP",D5,"EGG BOMB",D6,"MORE",C2
Lbl C2
Menu("MOVES","HORN DRILL",K1,"RAGE",K2,"REFLECT",K3,"MEGA KICK",K4,"SONIC BOOM",K5,"EXPLOSION",K6,"MORE",C3
Lbl C3
Menu("MOVES","HYPNOSIS",L1,"TELEPORT",L2,"SELF DESTRUCT",L3,"START OF LIST",C1,"SAVE",A6,"QUIT",A1
Lbl D1
.9B-.2D→B
.9D-.1B→D
Goto Z6
Lbl D2
1.2D→B
1.1B→D
Goto Z6
Lbl D3
.8B-.2D→B
.7D-.3B→D
Goto Z6
Lbl D4
.9B-.2D→B
.8D-.35B→D
Goto Z6
Lbl D5
.7B-.25D→B
.7D-.15B→D
Goto Z6
Lbl D6
.6B-.4D→B
.6D-.2B→D
Goto Z6
Lbl K1
2B→B
1.9B→D
Goto Z6
Lbl K2
.75B-.3D→B
.8D-.3B→D
Goto Z6
Lbl K3
.95B-.1D→B
.D-.05B→D
Goto Z6
Lbl K4
.7B-.4D→B
.7D-.45B→D
Goto Z6
Lbl K5
.9B-.2D→B
.9D-.35B→D
Goto Z6
Lbl K6
.7B-.5D→B
.7D-.55B→D
Goto Z6
Lbl L1
.8B-.4D→B
.8D-.45B→D
Goto Z6
Lbl L2
.8B-.2D→B
.75D-.25B→D
Goto Z6
Lbl L3
.8B-.2D→B
.8D-.25B→D
Lbl Z6
L+1→L
Goto Z1
Lbl Y1
"WIGGLYTUFF"→Str1
randInt(55,70)→D
D→X
Goto Z2
Lbl Y2
"ELECTABUZZ"→Str1
Goto Zθ
Lbl Y3
"TAUROS"→Str1
Goto Zθ
Lbl Y4
"POLIWAG"→Str1
Goto Zθ
Lbl Y5
"HORSEA"→Str1
Goto Zθ
Lbl Y6
"NIDORINA"→Str1
Goto Zθ
Lbl Y7
"POLIWAG"→Str1
Goto Zθ
Lbl Y8
"NIDOQUEEN"→Str1
Goto Zθ
Lbl Y9
"BULBASAUR"→Str1
Goto Zθ
Lbl Y0
"POLIWAG"→Str1
Goto Zθ
Lbl X2
"RAPIDASH"→Str1
Goto Zθ
Lbl X3
"CHARIZARD"→Str1
Goto Zθ
Lbl X4
"PIDGEOTTO"→Str1
Goto Zθ
Lbl X5
"STARMIE"→Str1
Goto Zθ
Lbl X6
"MAGNEMITE"→Str1
Goto Zθ
Lbl X7
"MEOWTH"→Str1
Goto Zθ
Lbl X8
"NIDOQUEEN"→Str1
Goto Zθ
Lbl X9
"PIKACHU"→Str1
Goto Zθ
Lbl X0
"MEW TWO"→Str1
Goto Zθ
Lbl W1
"SLOWPOKE"→Str1
Lbl Zθ
randInt(iPart(1.5X),3X)→D
D→X
Goto Z2
Lbl Z1
If L=1
Then
L-2→L
Goto Z2
End
If F=0
Then
F+1→F
Goto J2
End
If F=1:Goto J3
Lbl Z2
ClrHome
Output(1,1,Str0
Output(2,1,"ENERGY LEVEL:
Output(3,1,B
Output(5,1,Str1
Output(6,1,"ENERGY LEVEL:
Output(7,1,D
If D≤=0:Goto J4
If B≤=0:Goto J5
Pause
Goto C1
Lbl J4
ClrHome
1.6B→B
0→F
Output(4,5,"YOU WIN!
Pause
G+1→G
Goto Z1
Lbl J5
ClrHome
Output(4,5,"YOU LOSE
Pause
Goto A2
Lbl J2
If G=0:Goto Y1
If G=1:Goto Y2
If G=2:Goto Y3
If G=3:Goto Y4
If G=4:Goto Y5
If G=5:Goto Y6
If G=6:Goto Y7
If G=7:Goto Y8
If G=8:Goto Y9
If G=9:Goto Y0
If G=10:Goto X2
If G=11:Goto X3
If G=12:Goto X4
If G=13:Goto X5
If G=14:Goto X6
If G=15:Goto X7
If G=16:Goto X8
If G=17:Goto X9
If G=18:Goto X0
If G=19:Goto W1
If G>19
Then
ClrHome
Disp "YOU ARE THE BEST","IN THE UNIVERSE,","BE GOOD AND HELP","OTHERS...
Pause
Goto A2
End
Lbl J3
randInt(1,15)→K
ClrHome
Disp Str1,"USED
If K=1
Then
Disp "BODY SLAM
Pause
Goto D1
End
If K=2
Then
Disp "CONFUSION
Pause
Goto D2
End
If K=3
Then
Disp "BITE
Pause
Goto D3
End
If K=4
Then
Disp "PUNCH
Pause
Goto D4
End
If K=5
Then
Disp "SLAP
Pause
Goto D5
End
If K=6
Then
Disp "EGG BOMB
Pause
Goto D6
End
If K=7
Then
Disp "HORN DRILL
Pause
Goto K1
End
If K=8
Then
Disp "RAGE
Pause
Goto K2
End
If K=9
Then
Disp "REFLECT
Pause
Goto K3
End
If K=10
Then
Disp "MEGA KICK
Pause
Goto K4
End
If K=11
Then
Disp "SONIC BOOM
Pause
Goto K5
End
If K=12
Then
Disp "EXPLOSION
Pause
Goto K6
End
If K=13
Then
Disp "HYPNOSIS
Pause
Goto L1
End
If K=14
Then
Disp "TELEPORT
Pause
Goto L2
End
If K=15
Then
Disp "SELF DESTRUCT
Pause
Goto L3
End
If L=0:Goto Z1