home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / basdlx / griddemo.bas < prev    next >
Encoding:
BASIC Source File  |  1987-12-21  |  1.0 KB  |  27 lines
  1. 1  '
  2. 2  '               GRID Demo (Revised For Version 1.7)
  3. 3  '
  4. 10  DEFINT a-z : OPTION BASE 1 : DIM x(30),y(10)
  5. 30  RANDOMIZE -4525:CLS:LOCATE 1,1 : f$ = "┌─┬┐│ ││├─┼┤└─┴┘":m=-1
  6. 35  for rep = 1 to 100
  7. 40  xspan = INT(RND(1)*40)+1 : vspan = INT(RND(1)*10)+1
  8. 50  xpieces = INT(RND(1)*28)+1 : vpieces = INT(RND(1)*8)+1
  9. 55  span = xspan / xpieces: xxspan = 1
  10. 60  FOR i = 1 TO xpieces-1
  11. 70    x(i) = span : xxspan=xxspan + span + 1
  12. 100 NEXT:xspan = xspan + xpieces + 1
  13. 110 x(i+1)=-1
  14. 150 span = vspan / vpieces : yyspan = 1
  15. 160 FOR i = 1 TO vpieces-1
  16. 170   y(i) = span : yyspan=yyspan + span + 1
  17. 200 NEXT:vspan = vspan + vpieces + 1
  18. 210 y(i+1)=-1
  19. 220 if m=-1 then mode=0 else mode = INT(RND(1)*6)
  20. 225 CALL gridspan(x(1),xxspan):CALL gridspan(y(1),yyspan)
  21. 230 x = INT(RND(1)*79)+1 : IF x > (80 - xxspan) then 230 'x = (80 - xxspan)
  22. 240 y = INT(RND(1)*24)+1 : IF y > (25 - yyspan) then 240 'y = (25 - yyspan)
  23. 250 c = RND(1)*127+1:if int(c/16) = c mod 16 then 250
  24. 300 locate y,x:call grid(y(1),x(1),f$,c,mode)
  25. 310 next
  26. 320 if m=-1 then m=0:goto 35
  27.