home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / DMMENU.BAS < prev    next >
BASIC Source File  |  1993-12-07  |  1KB  |  31 lines
  1. SUB DMMENU (WA AS INTEGER, WB AS INTEGER, WC AS INTEGER, WD AS INTEGER, title$, item$())
  2. WA = WA - 1: WB = WB - 1: WC = WC + 1: WD = WD + 1
  3. IF tty THEN
  4.  
  5.     FOR zxy = 0 TO WC - WA
  6.         IF zxy = 0 THEN
  7.  
  8.         ELSEIF zxy = 1 THEN
  9.                 PROZOPRINT title$ + CrLf$
  10.         ELSEIF zxy = 2 THEN
  11.         ELSE
  12.                 PROZOPRINT item$(zxy - 2) + CrLf$: IF LEN(item$(zxy - 2)) THEN items = items + 1
  13.         END IF
  14.     NEXT zxy
  15. ELSE
  16. FOR zxy = 0 TO WC - WA
  17. A$ = CHR$(27) + "[" + MID$(STR$(WA + zxy), 2) + ";" + MID$(STR$(WB), 2) + "f"
  18. IF zxy < 3 THEN PROZOPRINT A$ + CHR$(179) + SPACE$((WD - WB) - 1) + CHR$(179) ELSE PROZOPRINT A$ + CHR$(179) + "  " + LEFT$(item$(zxy - 2) + SPACE$(80), (WD - WB) - 3) + CHR$(179): item$(zxy - 2) = ""
  19. NEXT zxy
  20.  
  21. '***PROZOPRINT the window
  22. PROZOLOCATE WA, WB: PROZOPRINT CHR$(213): PROZOLOCATE WA, WD: PROZOPRINT CHR$(184): PROZOLOCATE WC, WB: PROZOPRINT CHR$(212): PROZOLOCATE WC, WD: PROZOPRINT CHR$(190)
  23. PROZOLOCATE WA, WB + 1: PROZOPRINT STRING$((WD - WB) - 1, 205): PROZOLOCATE WC, WB + 1: PROZOPRINT STRING$((WD - WB) - 1, 205)
  24.  
  25. '***PROZOPRINT the header and the item list
  26. PROZOLOCATE WA + 1, WB + (INT((WD - WB) / 2) - INT(LEN(title$) / 2))
  27. PROZOPRINT title$
  28. END IF
  29. END SUB
  30.  
  31.