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