home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / basdlx / boxdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1987-12-21  |  720 b   |  18 lines
  1. 1 '
  2. 2 '               BOX Demo (Revised For Version 1.7)
  3. 3 '
  4. 10  DEFINT a-z
  5. 11  FOR i = 1 TO 2
  6. 30  RANDOMIZE -4525 : CLS : LOCATE 1,1 : F$ = "┌─┐│ │└─┘" : m=-1
  7. 32  CALL Box (23,78,F$,7,0) : LOCATE 5,10 : CALL Box (13,58,F$,7,0) : LOCATE 10,20 : CALL box (3,38,F$,7,0)
  8. 35  FOR rep = 1 to 100
  9. 40  xspan = INT(RND(1)*30)+1 : vspan = INT(RND(1)*15)+1
  10. 220 IF m=-1 THEN mode=0 ELSE mode = INT(RND(1)*9)
  11. 230 x = INT(RND(1)*77)+1 : IF x > (79 - (xspan+2)) THEN 230 'x = (80 - xxspan)
  12. 240 y = INT(RND(1)*22)+1 : IF y > (24 - (vspan+2)) THEN 240 'y = (25 - yyspan)
  13. 250 c = RND(1)*127+1:IF INT(c/16) = c MOD 16 THEN 250
  14. 300 LOCATE y,x:CALL Box(vspan,xspan,f$,c,mode)
  15. 310 NEXT
  16. 320 IF m=-1 THEN m=0:GOTO 35
  17. 330 NEXT
  18.