Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- TVidMem = ptr array[0..65_000, CGA_Char]
- proc cgaShow*(videoRam: TVidMem, x, y: int, c: cchar, attrib: cuchar) =
- videoRam[y*80+x].c = c
- videoRam[y*80+x].attrib = attrib
- #vs
- type
- TVidMem = ptr array[0..65_000, CGA_Char]
- proc cgaShow*(videoRam: var TVidMem, x, y: int, c: cchar, attrib: cuchar) =
- videoRam[y*80+x].c = c
- videoRam[y*80+x].attrib = attrib
Add Comment
Please, Sign In to add comment