home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / DMWINDO.BAS < prev    next >
BASIC Source File  |  1993-12-07  |  1KB  |  24 lines
  1. SUB dmwindo (WA as integer, WB as integer, WC as integer, WD as integer, title$, item$())
  2.  
  3. WA = WA - 1: WB = WB - 1: WC = WC + 1: WD = WD + 1
  4.     FOR zxy = 0 TO WC - WA
  5.     A$ = CHR$(27) + "[" + MID$(STR$(WA + zxy), 2) + ";" + MID$(STR$(WB), 2) + "f"
  6.         IF zxy < 3 THEN PROZOPRINT A$ + CHR$(186) + SPACE$((WD - WB) - 1) + CHR$(186) ELSE PROZOPRINT A$ + CHR$(186) + "  " + LEFT$(item$(zxy - 2) + SPACE$(80), (WD - WB) - 3) + CHR$(186): item$(zxy - 2) = ""
  7.     NEXT zxy
  8.  
  9. '***PROZOPRINT the window
  10. PROZOLOCATE WA, WB: PROZOPRINT CHR$(201): PROZOLOCATE WA, WD: PROZOPRINT CHR$(187): PROZOLOCATE WC, WB: PROZOPRINT CHR$(200): PROZOLOCATE WC, WD: PROZOPRINT CHR$(188)
  11. PROZOLOCATE WA, WB + 1: PROZOPRINT STRING$((WD - WB) - 1, 205): PROZOLOCATE WC, WB + 1: PROZOPRINT STRING$((WD - WB) - 1, 205)
  12. PROZOLOCATE WA, WB + 1: PROZOPRINT "[" + Global$(1) + "]"
  13. '***PROZOPRINT the header And the item list
  14. PROZOLOCATE WA + 1, WB + (INT((WD - WB) / 2) - INT(LEN(title$) / 2))
  15. PROZOPRINT title$
  16.  
  17. PROZOLOCATE WC - 1, WB + 2
  18. PROZOPRINT " Select --> "
  19. VALUE$=PROZOINPUT$
  20. PUSHARG Value$
  21. END SUB
  22.  
  23.  
  24.