Created
January 20, 2012 10:22
-
-
Save tildedave/1646585 to your computer and use it in GitHub Desktop.
save/load functionality for one of my QBasic games (circa 1996?)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SAVE: INPUT "What is your name?", N$ | |
| IF N$ = "" THEN N$ = "the_elf" | |
| SAV$ = N$ + ".cas" | |
| OPEN SAV$ FOR OUTPUT AS #1 | |
| PRINT #1, RM | |
| PRINT #1, Level | |
| PRINT #1, Orb | |
| PRINT #1, Hp | |
| PRINT #1, MaxHp | |
| PRINT #1, GatesOpened | |
| PRINT #1, Guide | |
| PRINT #1, Tried | |
| PRINT #1, Tried2 | |
| PRINT #1, Tried3 | |
| PRINT #1, Tried4 | |
| PRINT #1, Tried5 | |
| PRINT #1, Tried6 | |
| PRINT #1, Ambush | |
| PRINT #1, RevHp | |
| PRINT #1, Revs | |
| PRINT #1, dagger | |
| PRINT #1, Bar | |
| PRINT #1, Healing | |
| PRINT #1, Gold | |
| PRINT #1, RazorVine | |
| PRINT #1, Hat | |
| PRINT #1, PortalOpen | |
| PRINT #1, Guide2 | |
| PRINT #1, ShatorDead | |
| PRINT #1, CastingSpell | |
| PRINT #1, SavageHp | |
| PRINT #1, Skull | |
| PRINT #1, SteppedOut | |
| PRINT #1, CastingSpell2 | |
| PRINT #1, PortalOpen2 | |
| PRINT #1, SavageDead | |
| PRINT #1, Robes | |
| PRINT #1, TornadoCome | |
| PRINT #1, PortalOpen3 | |
| PRINT #1, Crumbling | |
| PRINT #1, RockRm | |
| PRINT #1, Rock | |
| PRINT #1, Flying | |
| PRINT #1, BalloonRm | |
| PRINT #1, InBalloon | |
| PRINT #1, Mug | |
| PRINT #1, Appeared | |
| PRINT #1, FiendHp | |
| PRINT #1, FiendDead | |
| PRINT #1, CastingSpell3 | |
| PRINT #1, SpellCast | |
| PRINT #1, Dir | |
| PRINT #1, PortalOpen4 | |
| PRINT #1, Book | |
| PRINT #1, FiendDead2 | |
| PRINT #1, SpellCast2 | |
| PRINT #1, Appeared2 | |
| PRINT #1, BlowingUp | |
| PRINT #1, PortalOpen5 | |
| PRINT #1, RockMoved | |
| PRINT #1, SeenHim | |
| PRINT #1, EndGame | |
| PRINT #1, Time | |
| CLOSE #1 | |
| PRINT "File saved.": GOTO 940 | |
| LOAD: INPUT "What is your name?", N$ | |
| IF N$ = "" THEN N$ = "the_elf" | |
| SAV$ = N$ + ".cas" | |
| OPEN SAV$ FOR INPUT AS #1 | |
| INPUT #1, RM | |
| INPUT #1, Level | |
| INPUT #1, Orb | |
| INPUT #1, Hp | |
| INPUT #1, MaxHp | |
| INPUT #1, GatesOpened | |
| INPUT #1, Guide | |
| INPUT #1, Tried | |
| INPUT #1, Tried2 | |
| INPUT #1, Tried3 | |
| INPUT #1, Tried4 | |
| INPUT #1, Tried5 | |
| INPUT #1, Tried6 | |
| INPUT #1, Ambush | |
| INPUT #1, RevHp | |
| INPUT #1, Revs | |
| INPUT #1, dagger | |
| INPUT #1, Bar | |
| INPUT #1, Healing | |
| INPUT #1, Gold | |
| INPUT #1, RazorVine | |
| INPUT #1, Hat | |
| INPUT #1, PortalOpen | |
| INPUT #1, Guide2 | |
| INPUT #1, ShatorDead | |
| INPUT #1, CastingSpell | |
| INPUT #1, SavageHp | |
| INPUT #1, Skull | |
| INPUT #1, SteppedOut | |
| INPUT #1, CastingSpell2 | |
| INPUT #1, PortalOpen2 | |
| INPUT #1, SavageDead | |
| INPUT #1, Robes | |
| INPUT #1, TornadoCome | |
| INPUT #1, PortalOpen3 | |
| INPUT #1, Crumbling | |
| INPUT #1, RockRm | |
| INPUT #1, Rock | |
| INPUT #1, Flying | |
| INPUT #1, BalloonRm | |
| INPUT #1, InBalloon | |
| INPUT #1, Mug | |
| INPUT #1, Appeared | |
| INPUT #1, FiendHp | |
| INPUT #1, FiendDead | |
| INPUT #1, CastingSpell3 | |
| INPUT #1, SpellCast | |
| INPUT #1, Dir | |
| INPUT #1, PortalOpen4 | |
| INPUT #1, Book | |
| INPUT #1, FiendDead2 | |
| INPUT #1, SpellCast2 | |
| INPUT #1, Appeared2 | |
| INPUT #1, BlowingUp | |
| INPUT #1, PortalOpen5 | |
| INPUT #1, RockMoved | |
| INPUT #1, SeenHim | |
| INPUT #1, EndGame | |
| INPUT #1, Time | |
| CLOSE #1 | |
| PRINT "File loaded.": GOSUB 5: GOTO 940 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment