5748463 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n commveiw.bas
   1: CLS
   2: INPUT "R="; R
   3: INPUT "C="; C
   4: DIM ROY AS STRING * 2                'CHANGE THIS NUMBER TO EQUAL M
   5: PRINT "Filepos:"; ((R - 1) * 79) + C
   6: OPEN "\command.com" FOR BINARY AS #1
   7: GET #1, ((R - 1) * 79) + C, ROY
   8: PRINT ROY
   9: INPUT "Change TO"; ROY
  10: PUT #1, ((R - 1) * 79) + C, ROY
  11: CLOSE #1
  12:
5748464 [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:01:05