| Final Soul 2? | | Final Soul – Text Adventure Game

Well, there was supposed to be a Final Soul 2: Chamber of Souls, but I never got to do it. Not sure what all happened, but the entire cast of the game included the following:

Adam-X, Princes, Chucky-Poo, Tam, Mike D-Day, Robyn (Just Robyn), Shawn the Warlock, Eddie the Slickster, Fabulous Fabiola, Persephone, Amy the Blessed, Spyce, Blade, Titan, Sugar, Marti-San, Shonda Evilstare, Bandog, Shilantra, Bumpers, Woolf, Peewee, The Nortious U.N.D.Y., Starscream, ODee, Tyu!, Ravenbane, Reverie, Fizban, Sam Colt, Precious, Orpheus, Tree, Taurus, Pebbles, Harliquin, Gigglehymer, Aidan, Torque E. Bentley, Lord Vladamir Dracul -D-, Wallaby, Posterboy!!!, Thorrin, Magius, Sorak, Aristippus, iCeMan, Freya The Cat, Athena The Cat, Artax the Cat, Moose, Sami, Nathan, Matthew, Tim the Spider Clones, Neptune, Schießen, Sunshyne, Contradiction, Goddess, Iblis, DungeonMaster (and his loyal side kick Pyro!), Woody, Gambit, Drizzt, LueCFur, Mr. Nasse, Matt the Spazz Smith, Toulouse, Diamond, Kyrmson, M’Rolled, Jayde, Green Goblin, Hawaiin Logan, Vanishes, and finally Ghost Rider.

I had plans to add many others:

Coolio, Cerebrus, Buffy, Willow and Artimes, and many others that I can’t recall off hand.

If you’re wondering about all the unusual names above – that’s because the cast of characters in the game were based on real life friends (and even pets), as well as folks I knew from several BBS (Bulletin Board Systems) I was a part of, or run (for example, my own BBS was called The NeXuS).

So why bring it up now? Well, while cleaning, I came across the notes and the disks I was using for Final Soul 2: Chamber of Souls. So I figured I’d post the stuff here, since I am never gonna do it, anyway. The source code is in BASIC (QBASIC) and was always compiled to .EXE using a POWERBASIC compiler program. The coding is obviously incomplete, as I had barely begun working on FS2:CoS, but anyway, for your curiosity, enjoyment, or laughter, here you go:

CAST = 0: job = 0
i% = 0: TIMER ON
CAST$ = "ADAM-X": job$ = "FINAL SOUL II DEVELOPMENT"
CLS
beginning:
	TIMEPAST = 0
	LOCATE 1, 20, 0: COLOR 9: PRINT "FINAL SOUL II: Chapter Two: The Haunting"
	RANDOMIZE TIMER
	x% = INT(RND * 16) + 4
	y% = INT(RND * 40) + 1
	LOCATE x%, y%, 0: COLOR 15: PRINT job$
	StartTime = TIMER
	WHILE TIMEPAST < 3
		TIMEPAST = TIMER - StartTime
	WEND
	LOCATE x%, y%, 0: COLOR 7: PRINT job$
	DO WHILE i% < 32600
		i% = i% + 1
		LOOP
		i% = 0
	LOCATE x%, y%, 0: COLOR 8: PRINT job$
	DO WHILE i% < 32600
		i% = i% + 1
		LOOP
		i% = 0
	LOCATE x%, y%, 0: COLOR 0: PRINT job$
	a$ = INKEY$
		DO WHILE i% < 32600
		i% = i% + 1
		LOOP
		i% = 0
	IF a$ = "Q" THEN GOTO endcredits:
		REM PLAY "a b c e d f"
			COLOR 15
			job = job + 1: i% = i% + 1
			IF job = 1 THEN job$ = "EXECUTIVE PRODUCER: ADAM-X"
			IF job = 2 THEN job$ = "CREATIVE DIRECTOR: ADAM-X"
			IF job = 3 THEN job$ = "GAME DESIGNER: ADAM-X"
		IF job = 4 THEN job$ = "ORIGINAL SCREEN SAVER DEVELOPED BY: SORAK & PLUBIUS"
			IF job = 5 THEN job$ = "MODIFIED SCREEN SAVER BY: ADAM-X"
			IF job = 6 THEN job$ = "LEAD PROGRAMMER: ADAM-X"
			IF job = 7 THEN job$ = "LEAD WRITER: ADAM-X"
			IF job = 8 THEN job$ = "QUALITY INSURANCE: ADAM-X & A LOT OF TIME"
			IF job = 9 THEN job$ = "SPECIAL THANKS TO: WELL, SEE THE CAST LISTING NEXT!"
			IF job = 10 THEN job$ = "HINTBOOK WRITER:  heh!"
			IF job = 11 THEN job$ = "BETA TESTERS: SEE THE CAST LISTING..."
			IF job > 11 GOTO START ELSE GOTO beginning:
START:
	LOCATE 1, 20, 0: COLOR 9: PRINT "FINAL SOUL II: Chapter Two: The Haunting"
	LOCATE 2, 32, 0: PRINT "... Starring...": COLOR 15
	RANDOMIZE TIMER
	x% = INT(RND * 16) + 4
	y% = INT(RND * 35) + 1
	LOCATE x%, y%, 0: COLOR 15: PRINT CAST$
	TIMEPAST = 0
	StartTime = TIMER
	WHILE TIMEPAST < 2
		TIMEPAST = TIMER - StartTime
	WEND
	LOCATE x%, y%, 0: COLOR 7: PRINT CAST$
	DO WHILE i% < 32600
		i% = i% + 1
		LOOP
		i% = 0
	LOCATE x%, y%, 0: COLOR 8: PRINT CAST$
	a$ = INKEY$
		DO WHILE i% < 32600
		i% = i% + 1
		LOOP
		i% = 0
	LOCATE x%, y%, 0: COLOR 0: PRINT CAST$
	DO WHILE i% < 32700 i% = i% + 1 LOOP i% = 0 IF a$ = "Q" THEN GOTO endcredits: REM PLAY "a b c e d f" CAST = CAST + 1: i% = i% + 1 IF CAST = 1 THEN CAST$ = "PRINCESS" IF CAST = 2 THEN CAST$ = "CHUCKY-POO" IF CAST = 3 THEN CAST$ = "FREYA-TAM" IF CAST = 4 THEN CAST$ = "MIKE D-DAY" IF CAST = 5 THEN CAST$ = "ROBYN, JUST ROBYN" IF CAST = 6 THEN CAST$ = "SHAWN THE WARLOCK" IF CAST = 7 THEN CAST$ = "EDDIE THE SLICKSTER" IF CAST = 8 THEN CAST$ = "FABULOUS FABIOLA" IF CAST = 9 THEN CAST$ = "PERSEPHONE" IF CAST = 10 THEN CAST$ = "AMY THE BLESSED" IF CAST = 11 THEN CAST$ = "SPYCE" IF CAST = 12 THEN CAST$ = "BLADE" IF CAST = 13 THEN CAST$ = "TITTAN" IF CAST = 14 THEN CAST$ = "SUGAR" IF CAST = 15 THEN CAST$ = "MARTI-SAN" IF CAST = 16 THEN CAST$ = "SHONDA EVILSTARE" IF CAST = 17 THEN CAST$ = "BANDOG" IF CAST = 18 THEN CAST$ = "SHILANTRA" IF CAST = 19 THEN CAST$ = "BUMPERS" IF CAST = 20 THEN CAST$ = "WOOLF" IF CAST = 21 THEN CAST$ = "PEEWEE" IF CAST = 22 THEN CAST$ = "THE NOTORIOUS U.N.D.Y." IF CAST = 23 THEN CAST$ = "Mr. CROWE" IF CAST = 24 THEN CAST$ = "ODee" IF CAST = 25 THEN CAST$ = "TYU!" IF CAST = 26 THEN CAST$ = "RAVENBANE" IF CAST = 27 THEN CAST$ = "REVERIE" IF CAST = 28 THEN CAST$ = "FIZBAN" IF CAST = 29 THEN CAST$ = "SAM COLT" IF CAST = 30 THEN CAST$ = "PRECIOUS" IF CAST = 31 THEN CAST$ = "ORPHEUS" IF CAST = 32 THEN CAST$ = "TREE" IF CAST = 33 THEN CAST$ = "TAURUS" IF CAST = 34 THEN CAST$ = "PEBBLES" IF CAST = 35 THEN CAST$ = "HARLEQUIN" IF CAST = 36 THEN CAST$ = "GIGGLEHYMER" IF CAST = 37 THEN CAST$ = "AIDAN" IF CAST = 38 THEN CAST$ = "TORQUE E. BENTLEY" IF CAST = 39 THEN CAST$ = "LORD VLADIMIR DRACUL [-D-]" IF CAST = 40 THEN CAST$ = "WALLABY" IF CAST = 41 THEN CAST$ = "POSTERBOY!!! [TIMENTIN]" IF CAST = 42 THEN CAST$ = "THORRIN" IF CAST = 43 THEN CAST$ = "MAGIUS" IF CAST = 44 THEN CAST$ = "SORAK" IF CAST = 45 THEN CAST$ = "ARISTIPPUS" IF CAST = 46 THEN CAST$ = "iCE MAN" IF CAST = 47 THEN CAST$ = "FREYA-CAT & ATHYE" IF CAST = 48 THEN CAST$ = "ARTAX" IF CAST = 49 THEN CAST$ = "MOOSE" IF CAST = 50 THEN CAST$ = "SAMI, NATHAN & SEANERS as THE DEMONS TRIO" IF CAST = 51 THEN CAST$ = "TIM THE SPIDER CLONE" IF CAST = 52 THEN CAST$ = "NEPTUNE" IF CAST = 53 THEN CAST$ = "SCHIEBEN" IF CAST > 53 THEN GOTO endcredits:
GOTO START:
endcredits:
COLOR 13: CLS
LOCATE 10, 10, 0: PRINT "THANK YOU FOR PLAYING FINAL SOUL II: CHAPTER TWO: THE HAUNTING."
COLOR 14
LOCATE 12, 27, 0: PRINT "(C) 1996 NEXUS SOFTWARE, INC."
LOCATE 1, 1, 0: PRINT " ": COLOR 0, 0, 0: LOCATE 1, 1, 0: F$ = INPUT$(1)
COLOR 14
CLS

REM ADAM-X IS AT CAST=0, AUTOMATICALLY SET IN.
REM ANY CHANGES TO THE CAST CAN BE MADE HERE AND RECOPIED
REM INTO THE PROGRAM ITSELF. JUST AN IDEA.

IF CAST = 1 THEN CAST$ = "PRINCESS"
IF CAST = 2 THEN CAST$ = "CHUCKY-POO"
IF CAST = 3 THEN CAST$ = "FREYA-TAM"
IF CAST = 4 THEN CAST$ = "MIKE D-DAY"
IF CAST = 5 THEN CAST$ = "ROBYN, JUST ROBYN"
IF CAST = 6 THEN CAST$ = "SHAWN THE WARLOCK"
IF CAST = 7 THEN CAST$ = "EDDIE THE SLICKSTER"
IF CAST = 8 THEN CAST$ = "FABULOUS FABIOLA"
IF CAST = 9 THEN CAST$ = "PERSEPHONE"
IF CAST = 10 THEN CAST$ = "AMY THE BLESSED"
IF CAST = 11 THEN CAST$ = "SPYCE"
IF CAST = 12 THEN CAST$ = "BLADE"
IF CAST = 13 THEN CAST$ = "TITTAN"
IF CAST = 14 THEN CAST$ = "SUGAR"
IF CAST = 15 THEN CAST$ = "MARTI-SAN"
IF CAST = 16 THEN CAST$ = "SHONDA EVILSTARE"
IF CAST = 17 THEN CAST$ = "BANDOG"
IF CAST = 18 THEN CAST$ = "SHILANTRA"
IF CAST = 19 THEN CAST$ = "BUMPERS"
IF CAST = 20 THEN CAST$ = "WOOLF"
IF CAST = 21 THEN CAST$ = "PEEWEE"
IF CAST = 22 THEN CAST$ = "THE NOTORIOUS U.N.D.Y."
IF CAST = 23 THEN CAST$ = "Mr. CROWE"
IF CAST = 24 THEN CAST$ = "ODee"
IF CAST = 25 THEN CAST$ = "TYU!"
IF CAST = 26 THEN CAST$ = "RAVENBANE"
IF CAST = 27 THEN CAST$ = "REVERIE"
IF CAST = 28 THEN CAST$ = "FIZBAN"
IF CAST = 29 THEN CAST$ = "SAM COLT"
IF CAST = 30 THEN CAST$ = "PRECIOUS"
IF CAST = 31 THEN CAST$ = "ORPHEUS"
IF CAST = 32 THEN CAST$ = "TREE"
IF CAST = 33 THEN CAST$ = "TAURUS"
IF CAST = 34 THEN CAST$ = "PEBBLES"
IF CAST = 35 THEN CAST$ = "HARLEQUIN"
IF CAST = 36 THEN CAST$ = "GIGGLEHYMER"
IF CAST = 37 THEN CAST$ = "AIDAN"
IF CAST = 38 THEN CAST$ = "TORQUE E. BENTLEY"
IF CAST = 39 THEN CAST$ = "LORD VLADIMIR DRACUL [-D-]"
IF CAST = 40 THEN CAST$ = "WALLABY"
IF CAST = 41 THEN CAST$ = "POSTERBOY!!! [TIMENTIN]"
IF CAST = 42 THEN CAST$ = "THORRIN"
IF CAST = 43 THEN CAST$ = "MAGIUS"
IF CAST = 44 THEN CAST$ = "SORAK"
IF CAST = 45 THEN CAST$ = "ARISTIPPUS"
IF CAST = 46 THEN CAST$ = "iCE MAN"
IF CAST = 47 THEN CAST$ = "FREYA-CAT & ATHYE"
IF CAST = 48 THEN CAST$ = "ARTAX"
IF CAST = 49 THEN CAST$ = "MOOSE"
IF CAST = 50 THEN CAST$ = "SAMI, NATHAN & SEANERS as THE DEMONS TRIO"
IF CAST = 51 THEN CAST$ = "TIM THE SPIDER CLONE"
IF CAST = 52 THEN CAST$ = "NEPTUNE"
IF CAST = 53 THEN CAST$ = "SCHIEBEN"
IF CAST > 53 THEN GOTO endcredits:

Some Ideas For Final Soul ][
GENERAL IDEAS
—————–

Ladder Inside Of Fireplace That Leads Upstairs
Turn off fireplace using tuning fork. You know those fireplaces that
have like handles to turn.
Need to put sedatives in the steak, or else steak doesn’t distract
dogs long enough.
Key inside rat hole. Unable to get until rat is captured, or else get
bitten.
Wine Barrel is empty. Actually a secret door.
Turn off ceiling fan to get key or else get cut!
Mines under estate (haunted by dead miner?)
Tiles on the kitchen floor actually make a map. Have to get certain tile pieces around the house to complete the “map” before going into maze. (Force comment, ie: “I am not going into that maze without some kind of idea, of where I am going.”
Forced comment is cleared, when kitchen floor is looked at, and the missing tile pieces are in place).
Make it so certain things are only activated after so many turns have gone by (like for example, a gate remains locked until 100 turns have gone by, in which you might say, “It appears someone has recently broken the lock on this gate…”

GENERAL TIPS & IDEAS FOR SOFTWARE LAYOUT
——————————————
Layout:
LOAD GAME DATA FROM SAVE FILE
{Game/Room Info: One Room Per Program*}
SAVE GAME DATA INFO FOR NEXT ROOM LOAD.
* This allows for >A LOT< more room for input, to describe EVERYTHING,
without worrying about ROOM/MEMORY limitations of the software compiler.

SCREEN SAVER – User Initiated Screen Saver. If the user chooses, he/she can initiate a screen saver, which basically acts just like loading another room, but randomly moves words around the screen. NOTE: Screen Saver layout was designed by SORAK and PLUBIUS

MAP(S) – Idea that the place may be more than one story. Use several maps. When trying to determine which map to use, simply use a variable (ie FLR=2) for floor 2 or something.

Item Where Why
————————————————————————

Boxcutter – Garage – Splice Wire
Electrical Tape * ?????? Tape Wires
Tuning Fork – Music Room – Turn Off Fireplace
Metal Hanger – Closet – Key under Gazebo
T-Bone Steak – Kitchen – Give dogs in yard
Sedatives – Bathroom/Medicine Cabinet – Put in steak
30′ Metal Link Dog Chain – Dog’s Neck Outside – Go down mine shaft
Lens – Observatory – Read small words
Laundry Basket – Laundry Room – Catch Rat
Key – Gazeebo Floor – Open Door
Key – Rat Hole – Open Door
Key Ceiling – Fan/Liv. Rm – Open Door
Rope – Carriage House – Use w/Basket for Rat
Pick ** Garage Give to Miner
Diamond Miner (Dead) Give To Ghost-Wife
Toy-Head Ghost-Wife Give Ghost-Daughter
Tile(s)*** ??????? Make map on kitchen
Lantern The boat dock Guide through mines
Space Jest 7 (Game)**** Computer Room Game For Computer

* Wires for Electrical tape are for something (ie, cord) that needs to be replaced.

** Get the pick from the garage, to give the ghost miner in the mines, who gives you a diamond that he had come down for his wife, give diamond to ghost wife, who gives you doll head to give to ghost daughter so daughter knows to trust you, and goes to it’s ghost mother…:) Ghost Miner is actually one of the first owners of the house, and if you look it up in the library or whatever, it will say his body was never found after a cave in.

*** Tiles make a map on the kitchen floor, which is actually a map through the mines (the owner, the dead miner) made it that way; can’t go through the mines without the “tiles” complete. Also need lantern to go in; can enter without doglink chain, but will have to go back for it. Use the doglink chain to go down a shaft where there was once an elevator.

**** SPACE JEST 7: Dogger Wilco In The Vinal Can’t Hear. Designed by: Adam-X, one of those guys from “Those Two Guys From California” does a solo project; find a note of spite how Warlock (the other part of the Two Guys) left; later find note from Warlock about how Adam-X kicked him out… Ship’s name in game is DeepSpace 10-1 (“Ten Dash One” which is a parody of DeepSpace 9 (since 10 Dash One, can also be seen as 10 minus 1, which would equal 9, thus the name, Deepspace 9). 🙂

**** Use the drumstick to throw and distract the dog, which will allow you to put the meat in the dog’s tray, which will knock out the dog (if done correctly), which will allow ye to get the dog’s leash while unconscious.

**** Magazine details the soon to be released Space Jest 7: Dogger Wilco in the Vinal Can’t Heaar, and about how Adam-X and Warlock parted ways, which is why the game has been delayed so long.

**** Use the pole from the gym to lay across the chasm, so you can go down into the mine, since there is nothing to tie the dog chain link to, around the mine’s entrance.

**** The lab mask is used so you don’t breathe in any fumes, or otherwise dangerous particulars down below in the mine shaft.

**** Use the poem (about resting in peace) on the miner after he digs up the diamond for you.

REM -=:INTRODUCTION TO THE STORY:=-
DEF SEG = 0
POKE &H417, (Status% XOR &H40) 'Change Caps Lock state, bit 6.
TIMER ON: TIMEPAST = 0: COLOR 15, 1, 1: CLS
TIMEPAST = 0
StartTime = TIMER
LOCATE 9, 20, 0: COLOR 13: PRINT "RUMOR HAS IT THAT ADAM'S CASTLE IS HAUNTED..."
LOCATE 15, 23, 0: COLOR 14: PRINT "BUT THEN, HE'D HAVE IT NO OTHER WAY..."
WHILE TIMEPAST < 2
TIMEPAST = TIMER - StartTime
WEND
COLOR 15
TIMEPAST = 0: COLOR 12: CLS
LOCATE 12, 24, 0: PRINT "...IT'S NOT JUST A GAME ANYMORE..."
StartTime = TIMER
WHILE TIMEPAST < 1 TIMEPAST = TIMER - StartTime WEND COLOR 15, 1, 1 CLS : PRINT : PRINT : PRINT : PRINT "WANTING TO PULL OFF THE BIGGEST GATHERING EVER, ADAM-X POOLS A FRACTION OF" PRINT "HIS MONEY THAT HE GOT FROM THE SALES OF HIS EVER POPULAR, EVER CLASSICAL GAME, " PRINT CHR$(34); "FINAL SOUL, CHAPTER ONE"; CHR$(34); " TO FLY ALL HIS FRIENDS UP TO A CASTLE IN THE LANDS" PRINT "OF SPAIN ITSELF..." PRINT : PRINT "STILL OVERWHELMED BY THE ENORMOUS SIZE OF THE CASTLE, EVERYONE ENTERS WITH" PRINT "BUT ONE QUESTION ON THEIR MIND: WASN'T FINAL SOUL 1, FREEWARE?" PRINT : PRINT "STILL, EVERYONE TAKES THEIR SEATS. AT THE HEAD OF THE TABLE IS THE HOST &" PRINT "HOSTESS, ADAM-X AND HIS SOULMATE, PRINCESS. TO THEIR RIGHT IS CHUCKY-POO AND" PRINT "HIS WIFE, FREYA-TAM. NEXT TO THEM IS MIKE-D-DAY AND HIS LOVE, ROBYN." PRINT "TO ADAM'S LEFT IS, WARLOCK AND HIS DEAREST, BUMPERS. NEXT TO THE PAIR IS THE" PRINT "SLICKERS AND FABULOUS FABIOLA. FREYA-TAM'S SISTER, PERSEPHONE AND HER BEST" PRINT "FRIEND, AMY THE BLESSED, SIT NEXT TO ONE ANOTHER." PRINT "ADAM BOWS TO HIS SECOND FAMILY, WHICH IS BLADE, SPYCE, SUGAR AND TITTAN." PRINT "(THAT'S TITAN WITH TWO 'T's). NEXT TO THEM IS MARTI-SAN AND EVILSTARE, HUSBAND" PRINT "AND WIFE." LOCATE 22, 30, 0: COLOR 26: PRINT ">>> PRESS A KEY! <<<" F$ = INPUT$(1): CLS COLOR 15: CLS PRINT : PRINT "MOVING DOWN THE LIST, WE COME TO BANDOG, SHILANTRA, WOOLF AND THE RAJUN" PRINT "CAJUN. ACROSS FROM THE OTHER RESIDENT MUTANT, IS THE NOTORIOUS U.N.D.Y. (AND" PRINT "DESPITE POPULAR BELIEF, U.N.D.Y. DOESN'T STAND FOR ANYTHING). NEXT TO UNDYMAN" PRINT "IS ODee AND TYU! SEATED NEXT TO THEM IS RAVENBANE, REVERIE, AND THE BAFFLING" PRINT "FIZBAN THE FABULOUS. NEXT TO THEM, ENGAGED IN CONVERSATION OF SOME SORT IS" PRINT "RONNIE AND ORPHEUS. SHARPING HIS TINY SWORD, WHICH IS CALLS BLACKMOON, IS" PRINT "THE ONE KNOWN AS TREE, THE OTHER RESIDENT ELF, BESIDES WOOLF. NEXT TO TREE" PRINT "IS TAURUS, PEBBLES AND HARLIQUIN (MAKING UP THE GENX HALF), FOLLOWED BY TWO" PRINT "OTHERS TALKING ABOUT ANARCHY, IS GIGGLEHYMER AND AIDAN. DEBATING WITH NO ONE" PRINT "BUT HIMSELF, AND STILL HOLDING UP A GOOD ARGUMENT IS TORQUE E. BENTLEY." PRINT "PRETENDING TO BE INTERESTED IN WHAT TORQUE HAS TO SAY IS LORD VLADAMIR, WHO" PRINT "IS SITTING NEXT TO AN IRRATE WALLABY. NEXT TO HER IS CHARLIE SHENE* - NO, WAIT" PRINT "THAT'S POSTERBOY. THEY LOOK SO MUCH ALIKE. FINALLY, ROUNDING OFF THE" PRINT "END OF THE TABLE IS MAGIUS AND THORRIN, WHO ARE TALKING ABOUT DIFFERENT" PRINT "ASPECTS OF AD&D...FOLLOWED BY ARISTIPPUS, iCEMAN, TIM THE SPIDER CLONE, NEPTUNE," PRINT "SCHIEBEN, AND 3 KIDS: SEANERS, SAMI, AND NATHAN, AS WELL AS THREE" PRINT "CATS: FREYA, ATHYE AND ARTAX..." LOCATE 22, 30, 0: COLOR 26: PRINT ">>> PRESS A KEY! <<<"
F$ = INPUT$(1): CLS
COLOR 12: CLS
LOCATE 12, 1, 0: PRINT "* NO THAT WAS NO INCORRECTLY MISPELLED. JUST PROTECTING THE RIGHTS OF THOSE"
LOCATE 13, 16, 0: PRINT "WHO MAY NOT WISH TO BE A PART OF THIS! "
TIMEPAST = 0: COLOR 12:
LOCATE 12, 24, 0
StartTime = TIMER
WHILE TIMEPAST < 1
TIMEPAST = TIMER - StartTime
WEND
COLOR 15, 1, 1: CLS

CAST = 0: job = 0
i% = 0: TIMER ON
CAST$ = "ADAM-X": job$ = "FINAL SOUL II DEVELOPMENT"
CLS
beginning:
TIMEPAST = 0
LOCATE 1, 20, 0: COLOR 9: PRINT "FINAL SOUL II: Chapter Two: The Haunting"
RANDOMIZE TIMER
x% = INT(RND * 16) + 4
y% = INT(RND * 40) + 1
LOCATE x%, y%, 0: COLOR 15: PRINT job$
StartTime = TIMER
WHILE TIMEPAST < 3
TIMEPAST = TIMER - StartTime
WEND
LOCATE x%, y%, 0: COLOR 7: PRINT job$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE x%, y%, 0: COLOR 8: PRINT job$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE x%, y%, 0: COLOR 0: PRINT job$
a$ = INKEY$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
IF a$ = "Q" THEN GOTO endcredits:
REM PLAY "a b c e d f"
COLOR 15
job = job + 1: i% = i% + 1
IF job = 1 THEN job$ = "EXECUTIVE PRODUCER: ADAM-X"
IF job = 2 THEN job$ = "CREATIVE DIRECTOR: ADAM-X"
IF job = 3 THEN job$ = "GAME DESIGNER: ADAM-X"
IF job = 4 THEN job$ = "ORIGINAL SCREEN SAVER DEVELOPED BY: SORAK & PLUBIUS"
IF job = 5 THEN job$ = "MODIFIED SCREEN SAVER BY: ADAM-X"
IF job = 6 THEN job$ = "LEAD PROGRAMMER: ADAM-X"
IF job = 7 THEN job$ = "LEAD WRITER: ADAM-X"
IF job = 8 THEN job$ = "QUALITY INSURANCE: ADAM-X & A LOT OF TIME"
IF job = 9 THEN job$ = "SPECIAL THANKS TO: WELL, SEE THE CAST LISTING NEXT!"
IF job = 10 THEN job$ = "HINTBOOK WRITER: heh!"
IF job = 11 THEN job$ = "BETA TESTERS: SEE THE CAST LISTING..."
IF job > 11 GOTO START ELSE GOTO beginning:
START:
LOCATE 1, 20, 0: COLOR 9: PRINT "FINAL SOUL II: Chapter Two: The Haunting"
LOCATE 2, 32, 0: PRINT "... Starring...": COLOR 15
RANDOMIZE TIMER
x% = INT(RND * 16) + 4
y% = INT(RND * 35) + 1
LOCATE x%, y%, 0: COLOR 15: PRINT CAST$
TIMEPAST = 0
StartTime = TIMER
WHILE TIMEPAST < 2
TIMEPAST = TIMER - StartTime
WEND
LOCATE x%, y%, 0: COLOR 7: PRINT CAST$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE x%, y%, 0: COLOR 8: PRINT CAST$
a$ = INKEY$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE x%, y%, 0: COLOR 0: PRINT CAST$
DO WHILE i% < 32700 i% = i% + 1 LOOP i% = 0 IF a$ = "Q" THEN GOTO endcredits: REM PLAY "a b c e d f" CAST = CAST + 1: i% = i% + 1 IF CAST = 1 THEN CAST$ = "PRINCESS" IF CAST = 2 THEN CAST$ = "CHUCKY-POO" IF CAST = 3 THEN CAST$ = "FREYA-TAM" IF CAST = 4 THEN CAST$ = "MIKE D-DAY" IF CAST = 5 THEN CAST$ = "ROBYN, JUST ROBYN" IF CAST = 6 THEN CAST$ = "SHAWN THE WARLOCK" IF CAST = 7 THEN CAST$ = "EDDIE THE SLICKSTER" IF CAST = 8 THEN CAST$ = "FABULOUS FABIOLA" IF CAST = 9 THEN CAST$ = "PERSEPHONE" IF CAST = 10 THEN CAST$ = "AMY THE BLESSED" IF CAST = 11 THEN CAST$ = "SPYCE" IF CAST = 12 THEN CAST$ = "BLADE" IF CAST = 13 THEN CAST$ = "TITTAN" IF CAST = 14 THEN CAST$ = "SUGAR" IF CAST = 15 THEN CAST$ = "MARTI-SAN" IF CAST = 16 THEN CAST$ = "SHONDA EVILSTARE" IF CAST = 17 THEN CAST$ = "BANDOG" IF CAST = 18 THEN CAST$ = "SHILANTRA" IF CAST = 19 THEN CAST$ = "BUMPERS" IF CAST = 20 THEN CAST$ = "WOOLF" IF CAST = 21 THEN CAST$ = "PEEWEE" IF CAST = 22 THEN CAST$ = "THE NOTORIOUS U.N.D.Y." IF CAST = 23 THEN CAST$ = "Mr. CROWE" IF CAST = 24 THEN CAST$ = "ODee" IF CAST = 25 THEN CAST$ = "TYU!" IF CAST = 26 THEN CAST$ = "RAVENBANE" IF CAST = 27 THEN CAST$ = "REVERIE" IF CAST = 28 THEN CAST$ = "FIZBAN" IF CAST = 29 THEN CAST$ = "SAM COLT" IF CAST = 30 THEN CAST$ = "PRECIOUS" IF CAST = 31 THEN CAST$ = "ORPHEUS" IF CAST = 32 THEN CAST$ = "TREE" IF CAST = 33 THEN CAST$ = "TAURUS" IF CAST = 34 THEN CAST$ = "PEBBLES" IF CAST = 35 THEN CAST$ = "HARLEQUIN" IF CAST = 36 THEN CAST$ = "GIGGLEHYMER" IF CAST = 37 THEN CAST$ = "AIDAN" IF CAST = 38 THEN CAST$ = "TORQUE E. BENTLEY" IF CAST = 39 THEN CAST$ = "LORD VLADIMIR DRACUL [-D-]" IF CAST = 40 THEN CAST$ = "WALLABY" IF CAST = 41 THEN CAST$ = "POSTERBOY!!! [TIMENTIN]" IF CAST = 42 THEN CAST$ = "THORRIN" IF CAST = 43 THEN CAST$ = "MAGIUS" IF CAST = 44 THEN CAST$ = "SORAK" IF CAST = 45 THEN CAST$ = "ARISTIPPUS" IF CAST = 46 THEN CAST$ = "iCE MAN" IF CAST = 47 THEN CAST$ = "FREYA-CAT & ATHYE" IF CAST = 48 THEN CAST$ = "ARTAX" IF CAST = 49 THEN CAST$ = "MOOSE" IF CAST = 50 THEN CAST$ = "SAMI, NATHAN & SEANERS as THE DEMONS TRIO" IF CAST = 51 THEN CAST$ = "TIM THE SPIDER CLONE" IF CAST = 52 THEN CAST$ = "NEPTUNE" IF CAST = 53 THEN CAST$ = "SCHIEBEN" IF CAST > 53 THEN GOTO endcredits:
GOTO START:
endcredits:
COLOR 13: CLS
CHAIN "DEMO002.DAT"

COLOR 14, 0, 0: CLS
PLAY "mBmso4l4ggo5l2c"
PRINT : PRINT : PRINT : PRINT : PRINT : PRINT ""
PRINT " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT " ÖÄÄÄÄÄÄÄÄÄ´F I N A L S O U L IIÃÄÄÄÄÄÄÄÄÄÄ·"
PRINT " ºÚÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄ¿º"
PRINT " º³FINAL SOUL II (C) 1/31/96, >>IS<< A FREE-³º"
PRINT " º³WARE GAME, WHICH MEANS YOU HAVE THE RIGHT³º"
PRINT " º³TO DISTRIBUTE THIS GAME ANYWHERE. THERE'S³º"
PRINT " º³NO REGISTERATION FEE, AND THE SOFTWARE IS³º"
PRINT " º³NOT CRIPPLED IN ANYWAY. FOR COMMENTS AND/³º"
PRINT " º³OR HINTS, YOU CAN REACH THE PROGRAMMER AT³º"
PRINT " º³THE EMAIL ADDRESS HIDDEN IN THE GAME! -AX³º"
PRINT " ÓÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁ½"
F$ = INPUT$(1)
COLOR 10, 0, 0: CLS
TIMER ON
timepast = 0
LOCATE 10, 12, 0: PRINT "FINAL SOUL ][: CHAPTER TWO, THE HAUNTING (C)1996, 1/31"
LOCATE 11, 30, 0: PRINT "NEXUS SOFTWARE, INC."
F$ = INPUT$(1)
CLS : i% = 0: COLOR 15: CLS
REM PLAY "MBo3L8ED+ED+Eo2Bo3DMBCL2o2A"
REM PLAY "MBCL2o2AED+Eo2Bo3DMBCL2o2A"
PARTA$ = "FINAL SOUL II: CHAPTER TWO: THE HAUNTING..."
PARTB$ = "IT SHOULD HAVE BEEN FUN. IT SHOULD HAVE BEEN HARMLESS. IT SHOULD"
PARTC$ = "HAVE BEEN ONE OF THE BIGGEST GATHERINGS EVER..."
PARTD$ = "YES... IT SHOULD HAVE BEEN MANY THINGS..."
PARTE$ = "BUT... IT SHOULD HAVE NEVER BEEN DEADLY...."
START:
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
F$ = INPUT$(1)
COLOR 15: LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
StartTime = TIMER
WHILE timepast < 1
timepast = TIMER - StartTime
WEND
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
COLOR 15: LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
COLOR 15: LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
COLOR 15: LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
COLOR 7: LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
COLOR 8: LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
COLOR 0: LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 2, 18, 0: PRINT PARTA$
LOCATE 11, 8, 0: PRINT PARTB$
LOCATE 12, 18, 0: PRINT PARTC$
LOCATE 13, 21, 0: PRINT PARTD$
LOCATE 20, 21, 0: PRINT PARTE$
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
CLS : timepast = 0
REM PLAY "MBCL2o2AED+Eo2Bo3DMBCL2o2A"
PARTA$ = "A NEXUS SOFTWARE PRODUCTION"
PARTB$ = "OF PURE HORROR"
LOCATE 10, 25, 0: COLOR 15: PRINT "A NEXUS SOFTWARE PRODUCTION"
LOCATE 11, 32, 0: PRINT "OF PURE HORROR": COLOR 15
LOCATE 10, 25, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 32, 0: COLOR 15: PRINT PARTB$
StartTime = TIMER
WHILE timepast < 1
timepast = TIMER - StartTime
WEND
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 25, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 32, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 25, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 32, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 25, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 32, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 25, 0: COLOR 7: PRINT PARTA$
LOCATE 11, 32, 0: COLOR 7: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 25, 0: COLOR 8: PRINT PARTA$
LOCATE 11, 32, 0: COLOR 8: PRINT PARTB$
a$ = INKEY$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 25, 0: COLOR 0: PRINT PARTA$
LOCATE 11, 32, 0: COLOR 0: PRINT PARTB$
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
CLS : timepast = 0
PARTA$ = "WRITTEN BY"
PARTB$ = "ADAM-X"
REM PLAY "MBCL2o2AED+Eo2Bo3DMBCL2o2A"
LOCATE 10, 35, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 37, 0: PRINT PARTB$: COLOR 15
LOCATE 10, 35, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 37, 0: COLOR 15: PRINT PARTB$
StartTime = TIMER
WHILE timepast < 1
timepast = TIMER - StartTime
WEND
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 35, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 37, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 35, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 37, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 35, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 37, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 35, 0: COLOR 7: PRINT PARTA$
LOCATE 11, 37, 0: COLOR 7: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 35, 0: COLOR 8: PRINT PARTA$
LOCATE 11, 37, 0: COLOR 8: PRINT PARTB$
a$ = INKEY$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 35, 0: COLOR 0: PRINT PARTA$
LOCATE 11, 37, 0: COLOR 0: PRINT PARTB$
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
CLS : timepast = 0
REM PLAY "MBCL2o2AED+Eo2Bo3DMBCL2o2A"
PARTA$ = "IN ASSOCIATION WITH:"
PARTB$ = "PRINCESS PRODUCTIONS, INC."
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 27, 0: PRINT PARTB$: COLOR 15
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 27, 0: COLOR 15: PRINT PARTB$
StartTime = TIMER
WHILE timepast < 1
timepast = TIMER - StartTime
WEND
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 27, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 27, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 27, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 7: PRINT PARTA$
LOCATE 11, 27, 0: COLOR 7: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 8: PRINT PARTA$
LOCATE 11, 27, 0: COLOR 8: PRINT PARTB$
a$ = INKEY$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 0: PRINT PARTA$
LOCATE 11, 27, 0: COLOR 0: PRINT PARTB$
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
CLS : timepast = 0
REM PLAY "MBCL2o2AED+Eo2Bo3DMBCL2o2A"
PARTA$ = "IN ASSOCIATION WITH:"
PARTB$ = "THE WALLGROUP, INCORPERATED."
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 26, 0: PRINT PARTB$: COLOR 15
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 26, 0: COLOR 15: PRINT PARTB$
StartTime = TIMER
WHILE timepast < 1
timepast = TIMER - StartTime
WEND
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 26, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 26, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 15: PRINT PARTA$
LOCATE 11, 26, 0: COLOR 15: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 7: PRINT PARTA$
LOCATE 11, 26, 0: COLOR 7: PRINT PARTB$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 8: PRINT PARTA$
LOCATE 11, 26, 0: COLOR 8: PRINT PARTB$
a$ = INKEY$
DO WHILE i% < 32600
i% = i% + 1
LOOP
i% = 0
LOCATE 10, 30, 0: COLOR 0: PRINT PARTA$
LOCATE 11, 26, 0: COLOR 0: PRINT PARTB$
DO WHILE i% < 32700
i% = i% + 1
LOOP
i% = 0
timepast = 0
COLOR 15: CLEAR : CLS
LOCATE 11, 20, 0: PRINT "THIS PROGRAM HAS BEEN MODIFIED FROM IT'S"
LOCATE 12, 20, 0: PRINT "ORIGINAL VERSION. IT HAS BEEN FORMATTED"
LOCATE 13, 30, 0: PRINT "TO FIT THIS MONITOR."
F$ = INPUT$(1)

PLAY “mfmlo2l3al5fDl3al5gFl3AL3FGo1l3C”
PLAY “mfmsO2L16ddddddccddddddccL4gaL8O3cO2bgfl16ededL3eL8fl2gl4ecl8d”

SAVE:
INPUT "Enter Filename: "; n$
OPEN n$ FOR OUTPUT AS #1
PRINT #1, RM, TURN
CLOSE
LOAD:
OPEN n$ FOR INPUT AS #1
INPUT #1, a$
PRINT "Read from file: "; a$
CLOSE

i% = 0: TIMER ON start: CLS : timepast = 0 RANDOMIZE TIMER x% = INT(RND * 20) + 2 y% = INT(RND * 38) + 1 z% = INT(RND * 15) + 1 a = x% + 1 b = y% + 12 c = b + 6 LOCATE x%, y%, 0: COLOR z%: PRINT “FINAL SOUL, CHAPTER TWO: THE HAUNTING…” a$ = INKEY$ StartTime = TIMER WHILE timepast < 2 timepast = TIMER – StartTime REM LOCATE a, b, 0: COLOR 14: PRINT “TIME:” REM COLOR 13: LOCATE a, c, 0: PRINT TIME$ WEND IF a$ = “” THEN GOTO start: