[net.micro.pc] SHIFT-Prt Screen from within BASIC

todd@trsvax (12/27/85)

	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.