Category : Miscellaneous Language Source Code
Archive : DEBUT141.ZIP
Filename : BLOAD.BAS
Output of file : BLOAD.BAS contained in archive : DEBUT141.ZIP
'- BLOAD.BAS -
'- Willie Robinson -
'- 2613 Louis Blvd -
'- Hephzibah Ga 30815 -
'- -
'- Example: How to Load a BSAVE File with Quick Basic -
'- -
'- -
'- UpDated 1 June 1990 -
'- -
'--------------------------------------------------------------------------
DEFINT A-Z
'-/Modify this Line by Entering Your Own Screens/-------------------------
BSaveScreenToBeRetrived$ = "YourFile.BAS" '--Change "YourScrn"
'-/Get Video Mode/--------------------------------------------------------
DEF SEG = &H40
IF PEEK(&H49) = 7 THEN '--PEEK to See Type of Monitor(Mono = 7)
DEF SEG = &HB000 '--MonoChrome Monitor(Memory Location)
ELSE
DEF SEG = &HB800 '--Color Monitor(Memory Location)
END IF
'-/Load the Screen into the Video Memory/---------------------------------
BLOAD BSaveScreenToBeRetrived$, &H0
END
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/