This is the first code I ever wrote. It's a rudimentary RPG and is so basic it isn't really a game.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem *****************************************************
rem *                     mage wars                     *
rem *****************************************************
rem not at all copyright, Oliver Kandasamy

set cursor 270,240
print "welcome, to MAGE WARS (it is very silly)"
input "enter name>", player$
if player$="oliverk"
cls
gosub leveltwo
endif
if player$="expert"
cls
gosub levelthree
endif
cls

print player$; ", your first battle is against STICK MAN."
print "you currently only know two spells"
print "BLOCKUS creates a force field but only breifly, it is used by "
print "pressing ENTER when the opponent's spell reaches the cunjuring zone"
print "SHPLAH fires an energy beam at your opponent inflicting minimal"
print "damage but working 80% of the time"
print "to cunjure a spell, other than BLOCKUS, type its name when it is "
print "your turn, and press enter."
print "okay, you're all set, ";player$;", good luck. I eat babies!"

wait 20000
cls

gosub levelone

cls

print "you have a new spell: BOSHANK"
print "you have won my respect, ";player$;", you can play mage wars,"
print "you're not at all a loser. You now must fight stickmerlin."
print "He is a bell-end"
wait 10000

cls

gosub leveltwo

cls

pig:
print "Your next battle, ";player$;", is against stickpotter!"
print "He is a smelly turd and no-one likes him."
print "Kill him, (here's a new spell: ARKLEBLARK)"
gosub levelthree

cls

sheep:
set cursor 300,240
print "you, like totally, won!"
set cursor 300,270
print "dude!          ";player$;" smells!"

end

makingpeople:
	circle 20,240,10
	line 20,250,16,280
	line 16,280,12,310
	line 16,280,20,310
	line 20,250,30,260
	line 20,250,15,265

	circle 40,250,5

	circle 620,240,10
	line 620,250,624,280
	line 624,280,628,310
	line 624,280,620,310
	line 620,250,610,260
	line 620,250,625,265

	circle 600,250,5

return

rem level one
levelone:

health#=100
enemy#=60

do

rem making people
gosub makingpeople

set cursor 10,10
print health#
set cursor 610,10
print enemy#

rem let the games begin 
print "your turn"
input "enter spell>",spell$

if spell$="shplah"
gosub shplah
endif
if spell$="boshank"
	gosub boshank
endif
if spell$="arkleblark"
	gosub arkleblark
endif


if enemy#<1
cls
print "YOU WON"
wait 3000
return
endif

cls
gosub makingpeople

print "stickman's turn!"

wait 20

z=rnd10
if z=10
print "stickman messed up!"
else
	a=600
	for t=1 to 120
	circle a,250,3
	a=a-5
	if returnkey()=1
		if a<=45 and a>=35
			x=0
			goto pod
		else
			x=1
		endif
	endif
	next t
pod:
if x=1 then health#=health#-(rnd15)
endif
cls
wait 5

loop

rem leveltwo
leveltwo:

health#=100
enemy#=100
do

rem making people
gosub makingpeople
line 610,240,620,210
line 630,240,620,210
line 610,240,615,270
line 620,240,615,270

set cursor 10,10
print health#
set cursor 610,10
print enemy#

rem let the games begin 
print "your turn"
input "enter spell>",spell$

if spell$="shplah"
gosub shplah
endif
if spell$="boshank"
	gosub boshank
endif
if spell$="arkleblark"
	gosub arkleblark
endif


if enemy#<1
cls
print "YOU WON"
wait 3000
	if player$="oliverk" then goto pig
return
endif

cls
gosub makingpeople
line 610,240,620,210
line 630,240,620,210
line 610,240,615,270
line 620,240,615,270
print "stickmerlin's turn!"

wait 20

z=rnd10
if z=10
print "stickmerlin messed up!"
else
	x=1
	a=600
	for t=1 to 120
	line a,250+10*sin(a),a-5,250+10*sin(a-5)
	line a,250-10*sin(a),a-5,250-10*sin(a-5)
	a=a-5
	if returnkey()=1
		if a<=45 and a>=35
			x=0
			goto poo
		else
			x=1
		endif
	endif
	if a<30 then goto poo
	next t
poo:
if x=1 then health#=health#-(rnd(20))
endif
cls
wait 5

loop

levelthree:



health#=100
enemy#=120
do

rem making people
gosub makingpeople
line 610,240,620,210
line 630,240,620,210
circle 615,240,4
circle 625,240,5
set cursor 10,10
print health#
set cursor 610,10
print enemy#

rem let the games begin 
print "your turn"
input "enter spell>",spell$

if spell$="shplah"
gosub shplah
endif
if spell$="boshank"
	gosub boshank
endif
if spell$="arkleblark"
	gosub arkleblark
endif


if enemy#<1
cls
print "YOU WON"
wait 3000
goto sheep
endif

cls
gosub makingpeople
line 610,240,620,210
line 630,240,620,210
circle 615,240,4
circle 625,240,5

print "stickpotter's turn!"

wait 20

z=rnd10
if z=10
print "stickpotter messed up!"
else
	x=1
	a=600
	for t=1 to 120
	circle a,250+10*cos(a),10*sin(a)
	a=a-5
	if returnkey()=1
		if a<=45 and a>=35
			x=0
			goto pox
		else
			x=1
		endif
	endif
	if a<30 then goto pox
	next t
pox:
if x=1 then health#=health#-(rnd(40))
endif
cls
wait 5

loop

shplah:

	a=40
	for t=20 to 0
	circle 40,250,t
	next t
	for t=1 to 11
	line 40,250,a,250
	circle a,250,t
	a=a+56
	next t
	cls
	gosub makingpeople
	z=rnd(5)
	if z=5
		print "no effect!"
		wait 2000
		else
		enemy#=enemy#-(rnd(10))
	endif

return

boshank:

a=40
b=250
for t=1 to 56
circle 40,250,10
line a,b,a+10,b+10*sin(a)
line a,b,a+10,b-10*sin(a)
a=a+10
next t
cls
z=rnd(4)
if z=4
	print "no effect"
	wait 2000
	else
	enemy#=enemy#-(rnd(40))
endif

return

arkleblark:

a=40
b=250
for t=1 to 56
circle a,b,20*cos(a)
a=a+10
next t
for t=1 to 30
circle 620,240,30-t
next t 
set cursor 600,190
print "pow!"
wait 500
cls
z=rnd(3)
if z=3
	print "no effect!"
	wait 2000
	else
	enemy#=enemy#-(rnd(50))
endif

return