home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / STATUS.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  1KB  |  76 lines
  1. $link "vidram.obj"
  2. declare sub vmprint(string,integer,integer,integer)
  3. dim global$(10)
  4. shared global$()
  5. global$(3)="FILENAME.IO"
  6. call setdoslines(23)
  7. cls
  8. for y=1 to 50
  9. DPRINTLN "This is a test"
  10. call status
  11. next y
  12.  
  13. SUB STATUS
  14. S$=SPACE$(80)
  15. MID$(S$,1)=CURDIR$
  16. MID$(S$,20)="▌" + GLOBAL$(3)
  17. MID$(S$,30)="▌" + "L"+STR$(Progline%)+" P"+STR$(Prog) + _
  18.  " F"+STR$(Fork1%)+" f"+STR$(fork2%)
  19. 'MID$(S$,42)
  20. CALL VMPRINT(S$,25,1,&H70)
  21. END SUB
  22.  
  23.  
  24. SUB SetDosLines(Lin%)
  25.     DEF SEG=&h0040
  26.     POKE &H0084,Lin%
  27.     DEF SEG
  28. END SUB
  29.  
  30.  
  31.  
  32. SUB Dprint(TEST$)
  33.    TEST$=TEST$+"$"
  34.    REG 1,&h0900
  35.    REG 8,STRSEG(TEST$)
  36.    REG 4,STRPTR(TEST$)
  37.    CALL INTERRUPT &h21
  38. END SUB
  39.  
  40. SUB CurPos (y%, x%)
  41.    REG 1, &h03
  42.    REG 2, %h0100
  43.    CALL INTERRUPT &h10
  44.    Y%=REG(4)
  45.    X%=REG(4) MOD 256
  46. END SUB
  47.  
  48. SUB SetDosTop(Lin%)
  49.     DEF SEG=&h0040
  50.     POKEI &H004E,Lin%*160
  51.     POKE &H0084,25-Lin%
  52.     DEF SEG
  53. END SUB
  54.  
  55. FUNCTION DPOS%
  56.     REG 1,&H0300
  57.     REG 2,&H0000
  58.     CALL INTERRUPT &H10
  59.     DPOS%=(REG(4) AND &H00FF)+1
  60. END FUNCTION
  61.  
  62. FUNCTION DCSRLIN%
  63.     REG 1,&H0300
  64.     REG 2,&H0000
  65.     CALL INTERRUPT &H10
  66.     DCSRLIN%=(REG(4) AND &HFF00)/256+1
  67. END FUNCTION
  68.  
  69. SUB DPrintLn(TEST$)
  70.    TEST$=TEST$+CHR$(13)+CHR$(10)+"$"
  71.    REG 1,&h0900
  72.    REG 8,STRSEG(TEST$)
  73.    REG 4,STRPTR(TEST$)
  74.    CALL INTERRUPT &h21
  75. END SUB
  76.