home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
fortran
/
mslang
/
memacces
/
api_test.for
next >
Wrap
Text File
|
1993-06-09
|
654b
|
30 lines
include 'dosx_api.fi' !Interface statements for the memory functions
program testVid
integer real_addr
byte buf(2000)
integer j
open(1,file='dosx_api.tst')
call DosxInitInterface()
real_addr = 16#B800 0000 !Location of Video Text
do i = 0, 14
do j = 1, 80
buf(i * 80 + j) = 65
enddo
enddo
!Write a few 'A's to the screen
call WriteMemQQ( real_addr, loc(buf), 15*80 )
!Read back the 'A's (and a bit more)
call ReadMemQQ( loc(buf), real_addr, 2000 )
write(1,'(2000(1x,Z2))') buf
end