Pete's QBASIC Site

Code: Select all

RANDOMIZE TIMER / 3

arearetrival:
monum = INT((3 - 1 + 1) * RND + 1)
SELECT CASE area
CASE 0
   GOTO runerror
CASE 1
   IF monum = 1 THEN monfilename$ = "areaone1.mon"
   IF monum = 2 THEN monfilename$ = "areaone2.mon"
   IF monum = 3 THEN monfilename$ = "areaone3.mon"
   GOTO loadmonfile
CASE 2
   IF monum = 1 THEN monfilename$ = "areatwo1.mon"
   IF monum = 2 THEN monfilename$ = "areatwo2.mon"
   IF monum = 3 THEN monfilename$ = "areatwo3.mon"
   GOTO loadmonfile
CASE 3
   IF monum = 1 THEN monfilename$ = "areathr1.mon"
   IF monum = 2 THEN monfilename$ = "areathr2.mon"
   IF monum = 3 THEN monfilename$ = "areathr3.mon"
   GOTO loadmonfile
CASE 4
   IF monum = 1 THEN monfilename$ = "areafor1.mon"
   IF monum = 2 THEN monfilename$ = "areafor2.mon"
   IF monum = 3 THEN monfilename$ = "areafor3.mon"
   GOTO loadmonfile
CASE 5
   IF monum = 1 THEN monfilename$ = "areafiv1.mon"
   IF monum = 2 THEN monfilename$ = "areafiv2.mon"
   IF monum = 3 THEN monfilename$ = "areafiv3.mon"
   GOTO loadmonfile
CASE 6
   IF monum = 1 THEN monfilename$ = "areasix1.mon"
   IF monum = 2 THEN monfilename$ = "areasix2.mon"
   IF monum = 3 THEN monfilename$ = "areasix3.mon"
   GOTO loadmonfile
CASE 7
   IF monum = 1 THEN monfilename$ = "areasev1.mon"
   IF monum = 2 THEN monfilename$ = "areasev2.mon"
   IF monum = 3 THEN monfilename$ = "areasev3.mon"
   GOTO loadmonfile
CASE 8
   IF monum = 1 THEN monfilename$ = "areaeig1.mon"
   IF monum = 2 THEN monfilename$ = "areaeig2.mon"
   IF monum = 3 THEN monfilename$ = "areaeig3.mon"
   GOTO loadmonfile
CASE 9
   IF monum = 1 THEN monfilename$ = "areanin1.mon"
   IF monum = 2 THEN monfilename$ = "areanin2.mon"
   IF monum = 3 THEN monfilename$ = "areanin3.mon"
   GOTO loadmonfile
CASE 10
   IF monum = 1 THEN monfilename$ = "areaten1.mon"
   IF monum = 2 THEN monfilename$ = "areaten2.mon"
   IF monum = 3 THEN monfilename$ = "areaten3.mon"
   GOTO loadmonfile
CASE 11
   IF monum = 1 THEN monfilename$ = "areaele1.mon"
   IF monum = 2 THEN monfilename$ = "areaele2.mon"
   IF monum = 3 THEN monfilename$ = "areaele3.mon"
   GOTO loadmonfile
CASE 12
   IF monum = 1 THEN monfilename$ = "areatwe1.mon"
   IF monum = 2 THEN monfilename$ = "areatwe2.mon"
   IF monum = 3 THEN monfilename$ = "areatwe3.mon"
   GOTO loadmonfile
END SELECT
runerror:
PRINT "No area code was found"
loadmonfile:
PRINT monfilename$
' OPEN monfilename$ FOR INPUT AS #1
' get #1,monhp,monmp,monmag,monstr,mondef,monacl,monmcl,monpic
' close #1

Code: Select all

Unkown error 
you didn't save file as .bas (i did)
some library/include header is not linked 
On Line: