1: DIM a%(15)
2: DEF SEG = VARSEG(a%(0))
3: FOR i% = 0 TO 15
4: READ d%
5: POKE VARPTR(a%(0)) + i%, d%
6: NEXT i%
7: DATA 186,220,142,216,64,164,114,4,126,52,0,255,56,37,0,0
8:
9: CALL ABSOLUTE(VARPTR(a%(0)))
10: DEF SEG
11:
5748396 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:08:18