home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / 2boxqix.bas < prev    next >
BASIC Source File  |  1988-05-22  |  1KB  |  59 lines
  1. 1     scnclr
  2. 2     goto 10000
  3. 3     rem****
  4. 4     screen 1,4
  5. 6     c=1
  6. 9     scnclr
  7. 10    x = 24 : y = 50
  8. 11    xx=580 : yy=50
  9. 20    z = 24 : k = 100
  10. 21    zz=580 : kk=100
  11. 30    dx = 7 : dy = 5
  12. 31    ex=7 : ey=5
  13. 40    dz = 3 : dk = 3
  14. 41    ez=3 : ek=3
  15. 42    pena 0 : paint (10,10)
  16. 50    peno c
  17. 51    box ( x,y ; z,k),1
  18. 52    gosub 5000
  19. 53    c=c+1
  20. 60    x = x + dx
  21. 70    z = z + dz
  22. 80    if x < 20 or x > 580 then dx = - dx
  23. 90    if z < 20 or z > 580 then dz = - dz
  24. 100   y = y + dy
  25. 110   k = k + dk
  26. 120   if y < 20 or y > 170 then dy = - dy
  27. 130   if k < 20 or k > 170 then dk = -dk
  28. 131   if c = 16 then c = 2
  29. 140   get a$ : if a$ = chr$ (13) then 1000
  30. 150   goto 50
  31. 1000  end
  32. 5000  rem***
  33. 5050  box (xx,yy ; zz,kk),1
  34. 5060  xx=xx-ex
  35. 5070  zz=zz-ez
  36. 5080  if xx < 4 or xx> 640 then ex=-ex
  37. 5090  if zz < 4 or zz> 640 then ez=-ez
  38. 5100  yy=yy-ey
  39. 5110  kk=kk-ek
  40. 5120  if yy < 5 or yy > 200 then ey=-ey
  41. 5130  if kk < 5 or kk > 200 then ek=-ek
  42. 5140  return
  43. 10000 rgb 2,0,0,2
  44. 10010 rgb 3,0,0,3
  45. 10020 rgb 4,0,0,4
  46. 10030 rgb 5,0,0,5
  47. 10040 rgb 6,0,0,6
  48. 10050 rgb 7,0,0,7
  49. 10060 rgb 8,0,0,8
  50. 10070 rgb 9,0,0,9
  51. 10080 rgb 10,0,0,10
  52. 10090 rgb 11,0,0,11
  53. 10100 rgb 12,0,0,12
  54. 10110 rgb 13,0,0,13
  55. 10120 rgb 14,0,0,14
  56. 10130 rgb 15,0,0,15
  57. 10131 rgb 0,5,5,5
  58. 10140 goto 3
  59.