home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BASDLX16.ZIP / BOXDEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-09-08  |  681 b   |  18 lines
  1. 1 '
  2. 2 '               BOX Demo
  3. 3 '
  4. 10  DEFINT a-z
  5. 11  for i = 1 to 5
  6. 30  RANDOMIZE -4525:CLS:LOCATE 1,1 : f$ = "┌─┐│ │└─┘":m=-1
  7. 32  call box (78,23,f$,7,0) : locate 5,10 : call box (58,13,f$,7,0) : locate 10,20 : call box (38,3,f$,7,0)
  8. 35  for rep = 1 to 150
  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)*6)
  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(xspan,vspan,f$,c,mode)
  15. 310 next
  16. 320 if m=-1 then m=0:goto 35
  17.  
  18.