home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / die.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-01  |  3.1 KB  |  99 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 365                                          Date: 27 Apr 94  05:43:00
  3. '  From: Jeff Root                                    Read: Yes    Replied: No 
  4. '    To: All                                          Mark:                     
  5. '  Subj: Die.bas
  6. '──────────────────────────────────────────────────────────────────────────────
  7.  ' DIE.BAS ∙ April 26, 1994 ∙ Jeff Root
  8.  ' Public domain ∙ QBASIC
  9.  
  10.  DEFINT A-Z: RANDOMIZE TIMER: CLS : LOCATE 3
  11.  PRINT "  Press any key for a new number,": PRINT
  12.  PRINT "  Esc to quit.": Fg = INT(RND * 7)
  13.  
  14.  DO
  15.    DO: a$ = INKEY$: LOOP WHILE a$ = ""
  16.    IF a$ = CHR$(27) THEN END
  17.    Fg = Fg + 1: IF Fg = 7 THEN Fg = 9
  18.    IF Fg = 16 THEN Fg = 1
  19.    Bg = Bg - 1: IF Bg < 1 THEN Bg = 6
  20.  
  21.  z: IF Bg = Fg THEN Fg = INT(RND * 15): GOTO z
  22.   
  23.    n = INT(RND * 6) + 1
  24.    COLOR Fg, Bg: CLS : LOCATE 6
  25.    ON n GOSUB 1, 2, 3, 4, 5, 6
  26.  LOOP
  27.  
  28.  1
  29.  FOR n = 1 TO 2: PRINT TAB(35); "█████████": NEXT
  30.  FOR n = 1 TO 12: PRINT TAB(39); "█████": NEXT
  31.  RETURN
  32.  
  33.  2
  34.  PRINT TAB(32); "▄▄████████████▄▄"
  35.  PRINT TAB(29); " ▄██████████████████▄"
  36.  PRINT TAB(29); "▐████▀         ▀█████▌"
  37.  PRINT TAB(29); "████▌           ▐█████"
  38.  PRINT TAB(44); "▄█████▌"
  39.  PRINT TAB(40); "▄▄███████▀"
  40.  PRINT TAB(36); "▄▄████████▀▀"
  41.  PRINT TAB(32); "▄▄████████▀▀"
  42.  PRINT TAB(30); "▄███████▀▀"
  43.  PRINT TAB(29); "▐█████▀"
  44.  FOR n = 1 TO 2: PRINT TAB(29); "█████": NEXT
  45.  FOR n = 1 TO 2: PRINT TAB(29); STRING$(22, "█"): NEXT
  46.  RETURN
  47.  
  48.  3
  49.  PRINT TAB(32); "▄▄████████████▄▄"
  50.  PRINT TAB(30); "▄██████████████████▄"
  51.  PRINT TAB(29); "▐████▀         ▀█████▌"
  52.  PRINT TAB(29); "████▌           ▐█████"
  53.  PRINT TAB(45); "▐█████"
  54.  PRINT TAB(44); "▄█████▌"
  55.  PRINT TAB(36); "█████████████▀"
  56.  PRINT TAB(36); "█████████████▄"
  57.  PRINT TAB(44); "▀█████▌"
  58.  PRINT TAB(45); "▐█████"
  59.  PRINT TAB(29); "████▌           ▐█████"
  60.  PRINT TAB(29); "▐████▄         ▄█████▌"
  61.  PRINT TAB(30); "▀██████████████████▀"
  62.  PRINT TAB(32); "▀▀████████████▀▀"
  63.  RETURN
  64.  
  65.  4
  66.  FOR n = 1 TO 6: PRINT TAB(38 - n); "█████▀": NEXT
  67.  PRINT TAB(31); "█████▀     █████"
  68.  PRINT TAB(30); "█████▀      █████"
  69.  PRINT TAB(29); "█████▀       █████"
  70.  PRINT TAB(28); STRING$(24, "█")
  71.  PRINT TAB(27); STRING$(25, "█")
  72.  FOR n = 1 TO 3: PRINT TAB(42); "█████": NEXT
  73.  RETURN
  74.  
  75.  5
  76.  FOR n = 1 TO 2: PRINT TAB(29); "▐"; STRING$(20, "█"): NEXT
  77.  FOR n = 1 TO 3: PRINT TAB(29); "▐████▌": NEXT
  78.  PRINT TAB(29); "▐████████████████▄▄"
  79.  PRINT TAB(29); "▐███████████████████▄"
  80.  PRINT TAB(44); "▀█████▌"
  81.  FOR n = 1 TO 2: PRINT TAB(45); "▐█████": NEXT
  82.  PRINT TAB(29); "████▌           ▐█████"
  83.  PRINT TAB(29); "▐████▄         ▄█████▌"
  84.  PRINT TAB(30); "▀██████████████████▀"
  85.  PRINT TAB(32); "▀▀████████████▀▀"
  86.  RETURN
  87.  
  88.  6
  89.  FOR n = 1 TO 6: PRINT TAB(38 - n); "█████▀": NEXT
  90.  PRINT TAB(31); "██████████████▄▄"
  91.  PRINT TAB(30); "███████████████████▄"
  92.  PRINT TAB(29); "█████▀         ▀█████▌"
  93.  PRINT TAB(28); "▐████▌           ▐█████"
  94.  PRINT TAB(28); "▐████▌           ▐█████"
  95.  PRINT TAB(29); "█████▄         ▄█████▌"
  96.  PRINT TAB(30); "███████████████████▀"
  97.  PRINT TAB(31); "▀▀█████████████▀▀"
  98.  RETURN
  99.