Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: Notesfiles $Revision: 1.7.0.10 $; site trsvax
Path: utzoo!linus!decvax!bellcore!petrus!sabre!zeta!epsilon!gamma!ulysses!mhuxr!mhuxn!ihnp4!inuxc!pur-ee!uiucdcs!convex!trsvax!todd
From: todd@trsvax
Newsgroups: net.micro.pc
Subject: Re: SHIFT-Prt Screen from within BASIC
Message-ID: <53500024@trsvax>
Date: Thu, 26-Dec-85 17:34:00 EST
Article-I.D.: trsvax.53500024
Posted: Thu Dec 26 17:34:00 1985
Date-Received: Sat, 28-Dec-85 23:15:30 EST
References: <795@charm.UUCP>
Lines: 20
Nf-ID: #R:charm.UUCP:795:trsvax:53500024:000:559
Nf-From: trsvax!todd    Dec 26 16:34:00 1985



	To print the screen from BASIC, a short assembly language
	program will do the trick. The assembly language routine is
	embedded in a string, and should work with any MS-DOS BASIC.
	To use it, just say GOSUB 900.

	900 ' Dump screen using INT 5
	910 A$ = CHR$(&HCD) + CHR$(&H5)		' int 5 instruction
	920 A$ = A$ + CHR$(&HCB)		' far return instruction
	930 ENTRY!=PEEK(VARPTR(A$)+1)+256*PEEK(VARPTR(A$)+2)
	940 CALL ENTRY!
	950 RETURN


	This information has been provided by an individual.
	... canonical disclaimer ...

						trsvax!todd
						Tandy Corp.