home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / basic.wrk < prev    next >
Text File  |  1988-05-22  |  1KB  |  67 lines
  1. 5     scnclr
  2. 10    goto 245
  3. 15    rem****
  4. 20    screen 1,4
  5. 25    c=1
  6. 30    scnclr
  7. 35    x = 24 : y = 50
  8. 40    xx=580 : yy=50
  9. 45    drawmode 1
  10. 50    z = 24 : k = 100
  11. 55    zz=580 : kk=100
  12. 60    dx = 7 : dy = 5 : px=7 : tx=5
  13. 65    ex=7 : ey=5
  14. 70    pp=25 : tt=25
  15. 75    dz = 3 : dk = 3
  16. 80    ez=3 : ek=3
  17. 85    pena 0 : paint (10,10)
  18. 90    peno c
  19. 95    draw ( x,y to z,k to pp,tt to x,y)
  20. 100   gosub 190
  21. 105   c=c+1
  22. 110   x = x + dx
  23. 115   z = z + dz
  24. 120   if pp <20 or pp> 580 then px=-px
  25. 125   if tt <20 or tt> 580 then tx=-tx
  26. 130   pp=pp+px
  27. 135   tt=tt+tx
  28. 140   if x < 20 or x > 580 then dx = - dx
  29. 145   if z < 20 or z > 580 then dz = - dz
  30. 150   y = y + dy
  31. 155   k = k + dk
  32. 160   if y < 20 or y > 170 then dy = - dy
  33. 165   if k < 20 or k > 170 then dk = -dk
  34. 170   if c = 16 then c = 2
  35. 175   get a$ : if a$ = chr$ (13) then 185
  36. 180   goto 90
  37. 185   end
  38. 190   rem***
  39. 195   box (xx,yy ; zz,kk),1
  40. 200   xx=xx-ex
  41. 205   zz=zz-ez
  42. 210   if xx < 4 or xx> 640 then ex=-ex
  43. 215   if zz < 4 or zz> 640 then ez=-ez
  44. 220   yy=yy-ey
  45. 225   kk=kk-ek
  46. 230   if yy < 5 or yy > 200 then ey=-ey
  47. 235   if kk < 5 or kk > 200 then ek=-ek
  48. 240   return
  49. 245   rgb 2,0,0,2
  50. 250   rgb 3,0,0,3
  51. 255   rgb 4,0,0,4
  52. 260   rgb 5,0,0,5
  53. 265   rgb 6,0,0,6
  54. 270   rgb 7,0,0,7
  55. 275   rgb 8,0,0,8
  56. 280   rgb 9,0,0,9
  57. 285   rgb 10,0,0,10
  58. 290   rgb 11,0,0,11
  59. 295   rgb 12,0,0,12
  60. 300   rgb 13,0,0,13
  61. 305   rgb 14,0,0,14
  62. 310   rgb 15,0,0,15
  63. 315   rgb 0,5,5,5
  64. 320   for j=0 to 3 : read shape%(j) : next j
  65. 325   data 0,0, 65535 , 65535
  66. 0     goto 15
  67.