'Blueprint Software
'This game is not done yet, not even close to done, but I'll have the full version up soon...
'I jsut want to see what you guys think of screen 12 RPGs...  Try it.
'Send and comments or whatever to WaxerMan@hotmail.com
'JULY 22 1997
DECLARE SUB MISSION01MONSTERS ()
DECLARE FUNCTION OpenPic1! (FileName$)
DECLARE SUB MAIN ()
DECLARE SUB START ()
DECLARE SUB HOUSE (x, y, pick)
DECLARE SUB WEAPONS ()
DECLARE SUB ARMORS ()
DECLARE SUB TREE (x, y)
DECLARE SUB GREENSLIME ()
DECLARE SUB REDSLIME ()
DECLARE SUB DARKROCKER ()
DECLARE SUB FLAILWINGS ()
DECLARE SUB CORPSEATER ()
DECLARE SUB FATEMMETT ()
COMMON SHARED A%, B%, NAME$, POWER%, MAGIC%, WEAPON$, ARMOR$
COMMON SHARED EX%, NEX%, OBJECT$, WORD01$, WORD02$, WORD03$, WORD04$, WORD05$
COMMON SHARED CLASS$, LEVEL%, LASTSAVE$, GOLD%, DAMAGE%, WEAPON01$
COMMON SHARED WEAPON02$, WEAPON03$, WEAPON04$, WEAPON05$, DEFEND%
COMMON SHARED WEAPON01%, WEAPON02%, WEAPON03%, WEAPON04%, WEAPON05%
COMMON SHARED ARMOR01%, ARMOR02%, ARMOR03%, ARMOR04%, ARMOR05%
COMMON SHARED ARMOR01$, ARMOR02$, ARMOR03$, ARMOR04$, ARMOR05$
COMMON SHARED MOREEX%, MOREGOLD%, FULLMAGIC%, FULLPOWER%
SCREEN 12
START
STARTER: IF count$ = "YES" THEN GOTO DUMB
WEAPONS
ARMORS
CLS
DUMB:
WEAPONS
ARMORS
WORD01$ = ""
WORD02$ = ""
WORD03$ = ""
WORD04$ = ""
WORD05$ = ""
LINE (11, 11)-(349, 349), 2, BF
HOUSE 25, 25, 1
HOUSE 50, 150, 2
HOUSE 100, 75, 2
HOUSE 100, 75, 1
HOUSE 250, 50, 1
TREE 100, 100
TREE 150, 125
TREE 50, 125
TREE 250, 200
TREE 300, 300
TREE 50, 300
TREE 300, 75
TREE 200, 25
START:
MAIN
CIRCLE (A%, B%), 2, 1
PAINT (A%, B%), 1, 1
DO
count$ = ""
count% = count% + 1
IF count% > 20000 THEN LET count% = 0: count$ = "YES": GOTO STARTER
A$ = INKEY$
IF A$ = CHR$(27) THEN SYSTEM
IF A$ = CHR$(0) + CHR$(80) THEN IF B% < 345 THEN LET B% = B% + 5: CIRCLE (A%, B% - 5), 3, 2: PAINT (A%, B% - 5), 2, 2: GOTO START
IF A$ = CHR$(0) + CHR$(72) THEN IF B% > 15 THEN LET B% = B% - 5: CIRCLE (A%, B% + 5), 3, 2: PAINT (A%, B% + 5), 2, 2: GOTO START
IF A$ = CHR$(0) + CHR$(77) THEN IF A% < 345 THEN LET A% = A% + 5: CIRCLE (A% - 5, B%), 3, 2: PAINT (A% - 5, B%), 2, 2: GOTO START
IF A$ = CHR$(0) + CHR$(75) THEN IF A% > 15 THEN LET A% = A% - 5: CIRCLE (A% + 5, B%), 3, 2: PAINT (A% + 5, B%), 2, 2: GOTO START
IF A$ = CHR$(0) + CHR$(59) THEN GOSUB SAVEGAME
IF A% = 50 AND B% = 65 THEN GOTO home
IF A% = 125 AND B% = 115 THEN GOTO inn
IF A% = 165 AND B% = 280 THEN GOTO WEAPONSHOP
IF A% = 215 AND B% = 205 THEN GOTO ARMORSHOP
IF A% = 275 AND B% = 90 THEN GOTO magicshop
IF B% = 345 THEN B% = 20: GOTO FIGHTSCREEN
LOOP
home:
CLS
WORD01$ = "YOU MUST FIND YOUR FATHER, HE WENT OUT ON SOME STRANGE MISSION"
WORD02$ = "AND HE WOULD NOT TELL ANYONE ABOUT IT.  HE WAS VERY SICK WHEN"
WORD03$ = "HE LEFT.  HE HEADED SOUTH TOWARDS AN OPEN DESERT, WHERE NO TOWNS"
WORD04$ = "OR ANYTHING ARE LOCATED.  THEN HE DISPEARED.  PLEASE FIND HIM!"
WORD05$ = "SO, QUICKLY, HEAD SOUTH AND FIND MY HUSBAND AND YOUR FATHER!"
MAIN
LOCATE 12, 12: PRINT "WELCOME HOME "; NAME$; "!"
DO: LOOP WHILE INKEY$ = ""
LET B% = B% + 5
GOTO STARTER
inn:
CLS
WORD01$ = "WELCOME TO THE INN.  NIGHTS STAY IS 3 GOLD PIECES"
MAIN
LOCATE 8, 12: PRINT "WELCOME TO THE INN"
LOCATE 25, 3: INPUT "WOULD YOU LIKE TO STAY: ", A$
IF A$ = "Y" THEN IF GOLD% > 3 THEN LET GOLD% = GOLD% - 3: LET POWER% = FULLPOWER%: LET MAGIC% = FULLMAGIC%: GOTO STARTER
IF A$ = "N" THEN LET B% = B% + 5: GOTO STARTER
GOTO STARTER
WEAPONSHOP:
CLS
WORD01$ = "WELCOME TO THE WEAPON SHOP. HOW MAY WE HELP YOU"
MAIN
WEAPONS
LOCATE 5, 10: PRINT "1: "; WEAPON01$, WEAPON01%
LOCATE 7, 10: PRINT "2: "; WEAPON02$, WEAPON02%
LOCATE 9, 10: PRINT "3: "; WEAPON03$, WEAPON03%
LOCATE 11, 10: PRINT "4: "; WEAPON04$, WEAPON04%
LOCATE 13, 10: PRINT "5: "; WEAPON05$, WEAPON05%

LOCATE 25, 3: INPUT "WOULD YOU LIKE TO [B]UY, [S]ELL OR [E]XIT: ", A$
IF A$ = "B" THEN GOTO BUYWEAPON
IF A$ = "S" THEN GOTO SELLWEAPON
IF A$ = "E" THEN LET B% = B% + 5: GOTO STARTER
BUYWEAPON:
LOCATE 26, 3: INPUT "WHAT WOULD YOU LIKE TO BUY: ", AA%
IF AA% = 1 THEN IF GOLD% > WEAPON01% THEN LET GOLD% = GOLD% - WEAPON01%: LET WEAPON$ = WEAPON01$
IF AA% = 2 THEN IF GOLD% > WEAPON02% THEN LET GOLD% = GOLD% - WEAPON02%: LET WEAPON$ = WEAPON02$
IF AA% = 3 THEN IF GOLD% > WEAPON03% THEN LET GOLD% = GOLD% - WEAPON03%: LET WEAPON$ = WEAPON03$
IF AA% = 4 THEN IF GOLD% > WEAPON04% THEN LET GOLD% = GOLD% - WEAPON04%: LET WEAPON$ = WEAPON04$
IF AA% = 5 THEN IF GOLD% > WEAPON05% THEN LET GOLD% = GOLD% - WEAPON05%: LET WEAPON$ = WEAPON05$
GOTO WEAPONSHOP
SELLWEAPON:
LOCATE 26, 3: INPUT "WHAT WOULD YOU LIKE TO SELL: ", AA%
IF AA% = 1 THEN IF WEAPON$ = WEAPON01$ THEN LET GOLD% = GOLD% + WEAPON01%: LET WEAPON$ = ""
IF AA% = 2 THEN IF WEAPON$ = WEAPON02$ THEN LET GOLD% = GOLD% + WEAPON02%: LET WEAPON$ = ""
IF AA% = 3 THEN IF WEAPON$ = WEAPON03$ THEN LET GOLD% = GOLD% + WEAPON03%: LET WEAPON$ = ""
IF AA% = 4 THEN IF WEAPON$ = WEAPON04$ THEN LET GOLD% = GOLD% + WEAPON04%: LET WEAPON$ = ""
IF AA% = 5 THEN IF WEAPON$ = WEAPON05$ THEN LET GOLD% = GOLD% + WEAPON05%: LET WEAPON$ = ""
GOTO WEAPONSHOP
ARMORSHOP:
CLS
WORD01$ = "WELCOME TO THE ARMOR SHOP. HOW MAY WE HELP YOU"
MAIN
ARMORS
LOCATE 5, 10: PRINT "1: "; ARMOR01$, ARMOR01%
LOCATE 7, 10: PRINT "2: "; ARMOR02$, ARMOR02%
LOCATE 9, 10: PRINT "3: "; ARMOR03$, ARMOR03%
LOCATE 11, 10: PRINT "4: "; ARMOR04$, ARMOR04%
LOCATE 13, 10: PRINT "5: "; ARMOR05$, ARMOR05%

LOCATE 25, 3: INPUT "WOULD YOU LIKE TO [B]UY, [S]ELL OR [E]XIT: ", A$
IF A$ = "B" THEN GOTO BUYARMOR
IF A$ = "S" THEN GOTO SELLARMOR
IF A$ = "E" THEN LET B% = B% + 5: GOTO STARTER
BUYARMOR:
LOCATE 26, 3: INPUT "WHAT WOULD YOU LIKE TO BUY: ", AA%
IF AA% = 1 THEN IF GOLD% > ARMOR01% THEN LET GOLD% = GOLD% - ARMOR01%: LET ARMOR$ = ARMOR01$
IF AA% = 2 THEN IF GOLD% > ARMOR02% THEN LET GOLD% = GOLD% - ARMOR02%: LET ARMOR$ = ARMOR02$
IF AA% = 3 THEN IF GOLD% > ARMOR03% THEN LET GOLD% = GOLD% - ARMOR03%: LET ARMOR$ = ARMOR03$
IF AA% = 4 THEN IF GOLD% > ARMOR04% THEN LET GOLD% = GOLD% - ARMOR04%: LET ARMOR$ = ARMOR04$
IF AA% = 5 THEN IF GOLD% > ARMOR05% THEN LET GOLD% = GOLD% - ARMOR05%: LET ARMOR$ = ARMOR05$
GOTO ARMORSHOP
SELLARMOR:
LOCATE 26, 3: INPUT "WHAT WOULD YOU LIKE TO SELL: ", AA%
IF AA% = 1 THEN IF ARMOR$ = ARMOR01$ THEN LET GOLD% = GOLD% + ARMOR01%: LET ARMOR$ = ""
IF AA% = 2 THEN IF ARMOR$ = ARMOR02$ THEN LET GOLD% = GOLD% + ARMOR02%: LET ARMOR$ = ""
IF AA% = 3 THEN IF ARMOR$ = ARMOR03$ THEN LET GOLD% = GOLD% + ARMOR03%: LET ARMOR$ = ""
IF AA% = 4 THEN IF ARMOR$ = ARMOR04$ THEN LET GOLD% = GOLD% + ARMOR04%: LET ARMOR$ = ""
IF AA% = 5 THEN IF ARMOR$ = ARMOR05$ THEN LET GOLD% = GOLD% + ARMOR05%: LET ARMOR$ = ""
GOTO ARMORSHOP
magicshop:
CLS
LET B% = B% + 5
GOTO STARTER
FIGHTSCREEN:
MISSION$ = "OFF"
CLS
LINE (11, 11)-(349, 349), 2, BF
TREE 110, 140
TREE 140, 155
TREE 75, 115
TREE 230, 205
TREE 300, 300
TREE 100, 50
TREE 310, 25
TREE 210, 100
TREE 50, 300
TREE 35, 250
TREE 100, 320
RANDOMIZE TIMER
START2:
MAIN
CIRCLE (A%, B%), 2, 1
PAINT (A%, B%), 1, 1
IF MISSION$ = "OFF" THEN BAD% = INT(RND * 345)
IF MISSION$ = "OFF" THEN GUY% = INT(RND * 345)
IF MISSION$ = "OFF" THEN WORSE% = INT(RND * 345)
IF MISSION$ = "OFF" THEN MAN% = INT(RND * 345)
DO

IF A% = BAD% THEN GOTO FIGHT
IF A% = GUY% THEN GOTO FIGHT
IF B% = BAD% THEN GOTO FIGHT
IF B% = GUY% THEN GOTO FIGHT

IF A% = WORSE% THEN GOTO FIGHT
IF A% = MAN% THEN GOTO FIGHT
IF B% = WORSE% THEN GOTO FIGHT
IF B% = MAN% THEN GOTO FIGHT
GOSUB MISSION01
GOSUB MISSION02
GOSUB MISSION03
GOSUB MISSION04
GOSUB MISSION05
A$ = INKEY$
IF A$ = CHR$(27) THEN SYSTEM
IF A$ = CHR$(0) + CHR$(80) THEN IF B% < 345 THEN LET B% = B% + 5: CIRCLE (A%, B% - 5), 3, 2: PAINT (A%, B% - 5), 2, 2: GOTO START2
IF A$ = CHR$(0) + CHR$(72) THEN IF B% > 15 THEN LET B% = B% - 5: CIRCLE (A%, B% + 5), 3, 2: PAINT (A%, B% + 5), 2, 2: GOTO START2
IF A$ = CHR$(0) + CHR$(77) THEN IF A% < 345 THEN LET A% = A% + 5: CIRCLE (A% - 5, B%), 3, 2: PAINT (A% - 5, B%), 2, 2: GOTO START2
IF A$ = CHR$(0) + CHR$(75) THEN IF A% > 15 THEN LET A% = A% - 5: CIRCLE (A% + 5, B%), 3, 2: PAINT (A% + 5, B%), 2, 2: GOTO START2
IF B% = 15 THEN LET B% = 340: GOTO STARTER

IF MISSION$ = "ON" THEN IF KILLED01% = 0 THEN IF A% = 300 AND B% = 225 THEN LET KILLED01% = 1: CIRCLE (300, 225), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED02% = 0 THEN IF A% = 325 AND B% = 225 THEN LET KILLED02% = 1: CIRCLE (325, 225), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED03% = 0 THEN IF A% = 200 AND B% = 225 THEN LET KILLED03% = 1: CIRCLE (200, 225), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED04% = 0 THEN IF A% = 235 AND B% = 225 THEN LET KILLED04% = 1: CIRCLE (235, 225), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED05% = 0 THEN IF A% = 310 AND B% = 200 THEN LET KILLED05% = 1: CIRCLE (310, 200), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED06% = 0 THEN IF A% = 330 AND B% = 215 THEN LET KILLED06% = 1: CIRCLE (330, 215), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED07% = 0 THEN IF A% = 325 AND B% = 265 THEN LET KILLED07% = 1: CIRCLE (325, 265), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED08% = 0 THEN IF A% = 300 AND B% = 300 THEN LET KILLED08% = 1: CIRCLE (300, 300), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED09% = 0 THEN IF A% = 300 AND B% = 310 THEN LET KILLED09% = 1: CIRCLE (300, 310), 2, 2: GOTO FIGHT
IF MISSION$ = "ON" THEN IF KILLED10% = 0 THEN IF A% = 290 AND B% = 220 THEN LET KILLED10% = 1: CIRCLE (290, 220), 2, 2: GOTO FIGHT

IF KILLED01% = 1 AND KILLED02% = 1 AND KILLED03% = 1 AND KILLED04% = 1 AND KILLED05% = 1 AND KILLED06% = 1 AND KILLED07% = 1 AND KILLED08% = 1 AND KILLED09% = 1 AND KILLED10% = 1 THEN IF A% = 300 AND B% = 250 GOTO TALKTODAD

LOOP
FIGHT:
RANDOMIZE TIMER
BADGUY% = INT(RND * 6) + 1
IF BADGUY% = 1 THEN LET BADGUY$ = "GREEN SLIME BALL"
IF BADGUY% = 2 THEN LET BADGUY$ = "RED SLIME BALL"
IF BADGUY% = 3 THEN LET BADGUY$ = "DARK ROCKER"
IF BADGUY% = 4 THEN LET BADGUY$ = "FLAIL WINGS"
IF BADGUY% = 5 THEN LET BADGUY$ = "FAT EMMETT!!"
IF BADGUY% = 6 THEN LET BADGUY$ = "CORPS EATER"

IF BADGUY$ = "GREEN SLIME BALL" THEN BADPOWER% = 3: BADATACK% = 2
IF BADGUY$ = "RED SLIME BALL" THEN BADPOWER% = 2: BADATACK% = 1
IF BADGUY$ = "DARK ROCKER" THEN BADPOWER% = 3: BADATACK% = 3
IF BADGUY$ = "FLAIL WINGS" THEN BADPOWER% = 4: BADATACK% = 2
IF BADGUY$ = "CORPS EATER" THEN BADPOWER% = 4: BADATACK% = 3
IF BADGUY$ = "FAT EMMETT!!" THEN BADPOWER% = 10: BADATACK% = 5
FIGHTER:
CLS
WORD01$ = ""
WORD02$ = ""
WORD03$ = ""
WORD04$ = ""
WORD05$ = ""
MAIN
IF BADGUY$ = "GREEN SLIME BALL" THEN GREENSLIME
IF BADGUY$ = "RED SLIME BALL" THEN REDSLIME
IF BADGUY$ = "DARK ROCKER" THEN DARKROCKER
IF BADGUY$ = "FLAIL WINGS" THEN FLAILWINGS
IF BADGUY$ = "CORPS EATER" THEN CORPSEATER
IF BADGUY$ = "FAT EMMETT!!" THEN FATEMMETT
LOCATE 19, 15: PRINT "BAD POWER: "; BADPOWER%
LOCATE 24, 3: PRINT "YOU HAVE INCOUNTERED A "; BADGUY$; "!"
LOCATE 25, 3: INPUT "[F]IGHT, [M]AGIC OR [R]UN: ", A$
IF A$ = "F" THEN LET BADPOWER% = BADPOWER% - DAMAGE%
IF A$ = "M" THEN LET BADPOWER% = BADPOWER% - SHINER%
IF A$ = "R" THEN IF POWER% < 5 GOTO FIGHTSCREEN
IF BADPOWER% < 1 THEN GOTO WINNER
LET POWER% = POWER% - BADATACK%
IF POWER% < 1 THEN SYSTEM
GOTO FIGHTER:
WINNER:
LOCATE 5, 10: PRINT "YOU WIN!!"
LOCATE 6, 10: PRINT "EXPERIENCE GAINED: "; MOREEX%: LET EX% = EX% + MOREEX%
LOCATE 7, 10: PRINT "GOLD GAINED: "; MOREGOLD%: LET GOLD% = GOLD% + MOREGOLD%
IF EX% > NEX% THEN PLAY "ABCBDE": LOCATE 8, 10: PRINT "LEVEL UP!!": LET LEVEL% = LEVEL% + 1: LET NEX% = NEX% + 53: LET FULLPOWER% = FULLPOWER% + 5: POWER% = FULLPOWER%: LET FULLMAGIC% = FULLMAGIC% + 3: MAGIC% = FULLMAGIC%
DO: LOOP WHILE INKEY$ = ""
CLS
GOTO FIGHTSCREEN
SAVEGAME:
OPEN "C:/MITH/" + NAME$ + ".MIT" FOR OUTPUT AS #1
PRINT #1, GOLD%
PRINT #1, NAME$
PRINT #1, CLASS$
PRINT #1, LEVEL%
PRINT #1, POWER%
PRINT #1, FULLPOWER%
PRINT #1, MAGIC%
PRINT #1, FULLMAGIC%
PRINT #1, EX%
PRINT #1, NEX%
PRINT #1, WEAPON$
PRINT #1, ARMOR$
PRINT #1, OBJECT$
PRINT #1, LASTSAVE$
PRINT #1, A%
PRINT #1, B%
CLOSE #1
PLAY "ADDA"
RETURN

MISSION01:
IF LEVEL% = 3 THEN MISSION$ = "ON": CIRCLE (300, 250), 2, 9: PAINT (300, 250), 9, 9: LET WORD01$ = "OF SON! YOU HAVE COME! PLEASE HELP ME! I HAVE BEEN CAPTURED!": WORD02$ = "PLEASE KILL ALL OF THESE EVIL MONSTERS AND SET ME FREE!!": MISSION01MONSTERS
RETURN
MISSION02:
RETURN
MISSION03:
RETURN
MISSION04:
RETURN
MISSION05:
RETURN
TALKTODAD:
CLS
MAIN

SUB ARMORS
ARMOR01$ = "OLD CLOTH"
ARMOR02$ = "LEATHER SUIT"
ARMOR03$ = "WOODEN SUIT"
ARMOR04$ = "BRASS SUIT"
ARMOR05$ = "THE PROTECTOR"
ARMOR01% = 10
ARMOR02% = 40
ARMOR03% = 55
ARMOR04% = 70
ARMOR05% = 95
IF ARMOR$ = ARMOR01$ THEN LET DEFEND% = 3
IF ARMOR$ = ARMOR02$ THEN LET DEFEND% = 8
IF ARMOR$ = ARMOR03$ THEN LET DEFEND% = 12
IF ARMOR$ = ARMOR04$ THEN LET DEFEND% = 18
IF ARMOR$ = ARMOR05$ THEN LET DEFEND% = 23
END SUB

SUB CORPSEATER
CIRCLE (150, 200), 25, 6
PAINT (150, 200), 6, 6
MOREEX% = 15
MOREGOLD% = 18
END SUB

SUB DARKROCKER
CIRCLE (150, 200), 50, 8
PAINT (150, 200), 8, 8
CIRCLE (200, 225), 25, 8
PAINT (200, 225), 8, 8
CIRCLE (100, 225), 25, 8
PAINT (100, 225), 8, 8
PSET (125, 175), 4
PSET (175, 175), 4
LINE (130, 200)-(170, 200), 4, B
MOREEX% = 7
MOREGOLD% = 11
END SUB

SUB FATEMMETT
CIRCLE (150, 75), 25, 14
CIRCLE (150, 200), 100, 1
CIRCLE (100, 300), 15, 14
CIRCLE (80, 320), 15, 14
CIRCLE (200, 300), 15, 14
CIRCLE (220, 320), 15, 14
CIRCLE (100, 100), 15, 14
CIRCLE (80, 80), 15, 14
CIRCLE (200, 100), 15, 14
CIRCLE (220, 80), 15, 14
MOREEX% = 25
MOREGOLD% = 35

END SUB

SUB FLAILWINGS
CIRCLE (150, 200), 25, 7
PAINT (150, 200), 7, 7
LINE (100, 200)-(200, 200), 8, BF
MOREEX% = 10
MOREGOLD% = 13
END SUB

SUB GREENSLIME
CIRCLE (150, 200), 50, 2
PAINT (150, 200), 2, 2
MOREGOLD% = 7
MOREEX% = 3
END SUB

SUB HOUSE (x, y, pick)
IF pick = 1 THEN GOTO longhouse
IF pick = 2 THEN GOTO shorthouse
longhouse:
LINE (x, y + 15)-(x + 50, y + 30), 6, BF
LINE (x, y + 15)-(x + 50, y + 15), 14, B
LINE (x + 5, y + 32)-(x + 45, y + 40), 6, BF
LINE (x + 20, y + 40)-(x + 30, y + 35), 0, BF
GOTO endhouse
shorthouse:
LINE (x + 95, y + 99)-(x + 130, y + 99), 14, B
LINE (x + 95, y + 100)-(x + 130, y + 108), 6, BF
LINE (x + 100, y + 110)-(x + 125, y + 130), 6, BF
LINE (x + 110, y + 130)-(x + 120, y + 125), 0, BF
endhouse:
END SUB

SUB MAIN
LINE (10, 10)-(350, 350), 8, B
LINE (10, 352)-(639, 463), 7, B
LINE (352, 10)-(639, 350), 8, B
LOCATE 2, 60: PRINT "GOLD: "; GOLD%
LOCATE 2, 46: PRINT "NAME: "; NAME$
LOCATE 4, 46: PRINT "CLASS: "; CLASS$
LOCATE 6, 46: PRINT "LEVEL: "; LEVEL%
LOCATE 8, 46: PRINT "POWER: "; POWER%
LOCATE 10, 46: PRINT "MAGIC: "; MAGIC%
LOCATE 12, 46: PRINT "EXPERIENCE: "; EX%
LOCATE 14, 46: PRINT "NEXT LEVEL: "; NEX%
LOCATE 16, 46: PRINT "WEAPON: "; WEAPON$
LOCATE 18, 46: PRINT "ARMOR: "; ARMOR$
LOCATE 20, 46: PRINT "OBJECTIVE: "; OBJECT$
LOCATE 24, 3: PRINT WORD01$
LOCATE 25, 3: PRINT WORD02$
LOCATE 26, 3: PRINT WORD03$
LOCATE 27, 3: PRINT WORD04$
LOCATE 28, 3: PRINT WORD05$
END SUB

SUB MISSION01MONSTERS
CIRCLE (300, 225), 2, 4
CIRCLE (325, 225), 2, 4
CIRCLE (200, 225), 2, 4
CIRCLE (235, 225), 2, 4
CIRCLE (310, 200), 2, 4
CIRCLE (330, 215), 2, 4
CIRCLE (325, 265), 2, 4
CIRCLE (240, 225), 2, 4
CIRCLE (235, 285), 2, 4
CIRCLE (290, 220), 2, 4
END SUB

SUB REDSLIME
CIRCLE (150, 200), 50, 4
PAINT (150, 200), 4, 4
MOREGOLD% = 8
MOREEX% = 5
END SUB

SUB START
DO: LOOP WHILE INKEY$ = ""
LOCATE 12, 25: INPUT "NEW GAME [Y]ES OR [N]O: ", A$
IF A$ = "Y" THEN GOTO NEW
IF A$ = "N" THEN GOTO LOAD
NEW:
CLS
LOCATE 12, 25: INPUT "WHAT IS YOUR NAME BRAVE ONE: ", NAME$
FILE$ = NAME$
GOLD% = 50
CLASS$ = "STUDENT"
LEVEL% = 1
POWER% = 10
FULLPOWER% = 10
MAGIC% = 5
FULLMAGIC% = 5
EX% = 0
NEX% = 25
WEAPON$ = "STICK"
ARMOR$ = "OLD CLOTH"
OBJECT$ = "FIND YOUR FATHER"
LASTSAVE$ = "START"
A% = 50
B% = 75
OPEN "C:\MITH\" + FILE$ + ".MIT" FOR OUTPUT AS #1
PRINT #1, GOLD%
PRINT #1, NAME$
PRINT #1, CLASS$
PRINT #1, LEVEL%
PRINT #1, POWER%
PRINT #1, FULLPOWER%
PRINT #1, MAGIC%
PRINT #1, FULLMAGIC%
PRINT #1, EX%
PRINT #1, NEX%
PRINT #1, WEAPON$
PRINT #1, ARMOR$
PRINT #1, OBJECT$
PRINT #1, LASTSAVE$
PRINT #1, A%
PRINT #1, B%
CLOSE #1
GOTO ENDSTART
LOAD:
CLS
LOCATE 12, 25: INPUT "PLAYER NAME: ", FILE$
OPEN "C:/MITH/" + FILE$ + ".MIT" FOR INPUT AS #1
INPUT #1, GOLD%
INPUT #1, NAME$
INPUT #1, CLASS$
INPUT #1, LEVEL%
INPUT #1, POWER%
INPUT #1, FULLPOWER%
INPUT #1, MAGIC%
INPUT #1, FULLMAGIC%
INPUT #1, EX%
INPUT #1, NEX%
INPUT #1, WEAPON$
INPUT #1, ARMOR$
INPUT #1, OBJECT$
INPUT #1, LASTSAVE$
INPUT #1, A%
INPUT #1, B%
CLOSE #1
WEAPONS
ARMORS
ENDSTART:
CLS
END SUB

SUB TREE (x, y)
CIRCLE (x, y), 2, 10
CIRCLE (x - 5, y - 5), 2, 10
CIRCLE (x - 10, y), 2, 10
CIRCLE (x - 15, y + 5), 2, 10
CIRCLE (x + 5, y + 5), 2, 10
CIRCLE (x, y + 10), 2, 10
CIRCLE (x - 10, y + 10), 2, 10
CIRCLE (x - 2, y + 2), 2, 10
CIRCLE (x - 8, y + 3), 2, 10
CIRCLE (x - 6, y + 7), 2, 10
LINE (x - 8, y + 10)-(x - 3, y + 25), 6, BF
LINE (x - 6, y + 12)-(x - 6, y + 13), 0, B
LINE (x - 4, y + 17)-(x - 4, y + 23), 0, B
END SUB

SUB WEAPONS
WEAPON01$ = "STICK"
WEAPON02$ = "DAGGER"
WEAPON03$ = "LONG DAGGER"
WEAPON04$ = "CLUB"
WEAPON05$ = "SHORT SWORD"
WEAPON01% = 15
WEAPON02% = 45
WEAPON03% = 60
WEAPON04% = 80
WEAPON05% = 105
IF WEAPON$ = WEAPON01$ THEN LET DAMAGE% = 3
IF WEAPON$ = WEAPON02$ THEN LET DAMAGE% = 5
IF WEAPON$ = WEAPON03$ THEN LET DAMAGE% = 8
IF WEAPON$ = WEAPON04$ THEN LET DAMAGE% = 12
IF WEAPON$ = WEAPON05$ THEN LET DAMAGE% = 17
END SUB