_________________________________________________________________________

           Title: RPG
         Version: v1.0
          Author: Peter Pizzo
            Size: 
	     Model: 9850+
     Description: 

	A really cool RPG game for the CASIO...EASILY the best game so far.
you wander around a forest looking for enemies, if an asterix pops up 
grabit and it will add more health. Has everything a real RPG offers, 
On a calculator!!!  During the forest scene press 5 to pause and view 
stats, hit EXE to exit.

during the match: 
7=slash attack
4=magic attack
1=run away
_________________________________________________________________________

 Program :

Lbl Y
ClrText
For 1->A To 6
Locate 9,4,"------"
Locate 8,5,"--------"
Next
For 1->A To 11
Locate 9,4,"SQUARE"
Locate 8,5,"PRESENTS"
Next
ClrText
For 1->A To 8
Locate 9,4,"*****"
Locate 9,4,"~~~~~"
Next
For 1->A To 30
Locate 9,4,"RPG#1"
Next
For 1->A To 8
Locate 6,7,"**********"       /11-asterixes
Locate 6,7,"~~~~~~~~~~"       /11-Squigglies
Next
Locate 6,7,"PRESS [EXE]"_     /disp command
ClrText
1->K
525->P
25->M
1->L
Lbl R
Int 300Ran#+25->Q       ***change to this
QxL->Q                   ***add this
1->Z
0->S
1->O
0->Y
1->B
1->G
7->H
For 1->A To 7
Locate 1,B,"^^^^^^^^^^^^^^^^^^^^"   /21 carrots
B+1->B
Next
While Z=1
Int 40Ran#+1->E
E=40=>Goto 1
Int 75Ran#+1->T
T=35=>Int 21Ran#+1->S
T=35=>Int 7Ran#+1->Y
T=35=>Locate S,Y,"*"
Locate G,H,"O"
If G=S And H=Y And O=1
Then For 1->A To 6
Locate 8,1,"HP+75"
Locate 8,1,"HP+75"
Locate 8,2,"MP+5"
Next
M+5->M
P+75->P
Locate 8,1,"^^^^^"
Locate 8,2,"^^^^"
2->O
IfEnd
If Getkey=38 And G>1
Then Locate G,H,"^"
G-1->G
IfEnd
If Getkey=27 And G<20
Then Locate G,H,"^"
G+1->G
IfEnd
If Getkey=28 And H>1
Then Locate G,H,"^"
H-1->H                    ***There was an error here in beta...Fixed
IfEnd
If Getkey=37 And H<7      ***These lines were missing...add them
Then Locate G,H,"^"
H+1->H
IfEnd
If Getkey=63
Then Locate 8,1,"PAUSED"
L>1=>(Lx1325)+(Lx1005)->R    ***add these two lines
L=1=>(Lx1005)->R
Int R->R                     ***add this line
While Getkey=/=31
Locate 8,1,"PAUSED"
Locate 3,3,"HP="
Locate 6,3,P
Locate 3,4,"LEVEL="
Locate 9,4,L
Locate 3,5,"NEXT LEV="
Locate 12,5,Int R              ***add int to get rid of decimal
Locate 3,6,"EXP POINTS="
Locate 14,6,Int K              ***add int
WhileEnd
Locate 8,1,"^^^^^^^"              /7 carrots
Locate 2,3,"^^^^^^^^^^^^^"        /13 carrots
Locate 2,4,"^^^^^^^^^^^^^^^^^"    /17 carrots
Locate 2,5,"^^^^^^^^^^^^^^^^^"    /17 carrots
Locate 2,6,"^^^^^^^^^^^^^^^^^"    /17 carrots
IfEnd 
WhileEnd
Lbl 1
For 1->A To 4
Locate G+1,H,">"
Locate G+1,H,">"
Locate G+1,H,"-"
Locate G+1,H,"-"
Locate G+1,H,"^"    ***add this line
Next
Locate G+1,H,"^"
For 1->A To 3
Locate G,H,">"
Locate G,H,">"
Locate G,H,"-"
Locate G,H,"-"
Locate G,H,"^"       ***add this line
Next
For 1->A To 10
Locate 5,4,"ENEMY COMES!"
Locate 5,4,"ENEMY COMES!"
Locate 5,4,"            "        /12 spaces
Next
ClrText
Locate 1,5,"^------------------^"    /19 -'s
Locate 1,1,"[H.P.=       HIT=7"      /7 spaces
Locate 1,2,"[M.P.=       MGK=4"
Locate 1,3,"[LEVEL=      RUN=1"     ***fix this area
Locate 1,4,"[ENEMY="
Locate 21,1,"]"
Locate 21,2,"]"
Locate 21,3,"]"
Locate 21,4,"]"
Locate 2,7,"O"
Locate 20,7,"X"
For 1->A To 20
Locate 1,6,"         "               /9 Spaces
Next
2->Z
While Z=2
Lbl G
Locate 3,6,"                "        /17 spaces
P-(Lx5)->P
P=<0=>Goto D
P<100=>Locate 9,1," "
Locate 1,7,"xxx"
Locate 1,7,"xxx"
Locate 1,7," O "
Locate 7,1,Int P       ***change abs to Int
Locate 7,2,M
Locate 8,3,L
Locate 8,4,Q
Int 35Ran#+1->I
If Getkey=74
Then Lx11->N
Locate 8,4,"   "                     /3 spaces
Q-N->Q
Q=<0=>Goto V
For 1->A To 3
Locate 19,7"xxx"
Locate 19,7"xxx"
Locate 19,7"---"
Locate 19,7"---"
Locate 19,7" X "
Next
For 1->A To 10
Locate 4,6,"YOU SLASHED HIM"       ***from 5 to 4
Next
Locate 4,6,"               "        /15 Spaces
IfEnd                                ***get rid of the 'next'
If Getkey=73 And M>9
Then Lx25->N
Q-N->Q
Locate 8,4,"   "                    /3 spaces
For 1->A To 3
Locate 5,7,"***************"        /15 of them
Locate 5,7,"///////////////"        /15 slashes
Next
Locate 5,7,"               "        /15 spaces
Locate 20,7,"X"
For 1->A To 10
Locate 19,7,"o*o"         /where o is the degree mark...OPTN,F6,F5,F1  
                          /and *is the square OPTN,F6,F5,F4
Locate 19,7,"o*o"     
Locate 19,7,"---"     
Locate 19,7,"---"
next
For 1->A To 3
Locate 19,7,"***"
Locate 19,7,"+++"
Locate 19,7," X "
Next
For 1->A To 10
Locate 5,6,"CASTED A SPELL"
Next
M-5->M
Locate 5,6,"              "         /14 spaces
Locate 7,2,"  "        2 spaces
Q=<0=>Goto V
IfEnd
If Getkey=72
Then Int 2Ran#+1->Y
Y=1->Locate 5,6,"COULDN'T RUN"
Y=1->For 1->A To 150
Y=1=>Next
Y=1=>Goto G
Y=2=>Locate 3,6,"YOU'VE RETREATED"
For 1->X To 150
Next
Y=2=>Goto R
IfEnd
WhileEnd
Lbl V
Locate 1,1,"^-----------------^     /19 -'s
Locate 1,7,"^-----------------^     /19 -'s
2->B
For 1->A To 5
Locate 1,B,"I"
B+1->B
Next
2->B
For 1->A To 5
Locate 21,B,"I"
B+1->B
Next
Locate 6,2,"VICTORIOUS"
Locate 3,4,"EXP POINTS="
Locate 3,5,"LEVEL="
Locate 9,5,L
PxL->U
Locate 14,4,U
For 1->A To 75 
Locate 2,6,"     "                /5 spaces
Next
Goto E
Lbl E
L>1=>(Lx1325)+(Lx1005)->R        ***add these lines
L=1=>Lx1005->R
U+K->K
K>R=>L+1->L
K>R=>Locate 6,6,"LEVEL UP"
K>R=>(525+(Lx45))->P
K>R=>(Lx5)->M
If K>R
Then Locate 6,6,"LEVEL UP"
For 1->A To 6
Locate 6,6,"LEVEL UP"
Next
Locate 6,6,"        "                 /8 spaces
IfEnd
Goto R
Lbl D
For 1->A To 8
Locate 1,6,"xxxxxxxxxxxxxxxxxxx"       /21 x's
Locate 1,7,"xxxxxxxxxxxxxxxxxxx"       /21 x's
Locate 1,6,"-------------------"       /21 -'s
Locate 1,7,"-------------------"       /21 -'s
Next
For 1->A To 25
Locate 2,6,"YOU'VE BEEN KILLED"
Next
Locate 2,6,"-----------------"         /18 -'s
For 1->A To 17
Locate 7,6,"GAME OVER!"
Locate 7,6,"GAME OVER!"
Locate 7,6,"          "                /10 spaces
Next
Goto Y
_________________________________________________________________________