Category : Files from Magazines
Archive   : VOL9N4.ZIP
Filename : PASSCOMM.FNC
CALL PassCommand("CHKDSK" + CHR$(13)) 'the 13 simulates pressing Enter
END
SUB PassCommand (Cmd$) STATIC
Work$ = LEFT$(Cmd$, 15) 'restrict the string to 15 characters
Length = LEN(Work$) 'now get the actual length
DEF SEG = 0 'set the segment for poking to low memory
POKE 1050, 30 'define the buffer head
POKE 1052, 30 + Length * 2 'and then the buffer tail
FOR X = 1 TO Length 'poke each character one by one
POKE 1052 + X * 2, ASC(MID$(Work$, X))
NEXT
END SUB
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/