home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser03.arj / stoser03.msa / A / T1L4.ASC < prev   
Text File  |  1987-04-22  |  1KB  |  61 lines
  1. 10 rem DRAW A BOX
  2. 20 rem
  3. 30 rem ERROR TRAPPING
  4. 40 rem
  5. 50 on error goto 580
  6. 60 rem
  7. 70 rem  SET UP THE SCREEN
  8. 80 rem
  9. 90 cls : key off : click off : curs off 
  10. 100 if mode<>0 then mode 0
  11. 110 rem
  12. 120 rem DISPLAY TITLE
  13. 130 rem
  14. 140 locate 0,4 : centre "PROGRAMME 4"
  15. 150 rem
  16. 160 rem  GET SIZE OF BOX
  17. 170 rem
  18. 180 locate 0,8
  19. 190 input "BOX LENGTH";BY
  20. 200 locate 0,10
  21. 210 input "BOX WIDTH";BX
  22. 220 rem
  23. 230 rem  GET COLOUR OF BOX
  24. 240 rem
  25. 250 locate 0,12
  26. 260 input "BOX COLOUR";C
  27. 270 rem
  28. 280 rem THE BOX DRAWING BIT
  29. 290 rem
  30. 300 rem  DOES IT FIT ON THE SCREEN?
  31. 310 rem
  32. 320 if BX>=320/2 then BX=300/2 : gosub 550
  33. 330 if BY>=198/2 then BY=198/2 : gosub 550
  34. 340 rem
  35. 350 rem SET THE SIZE/COLOUR
  36. 360 rem
  37. 370 BX1=BX*2 : BY1=BY*2
  38. 380 ink C
  39. 390 rem
  40. 400 rem THE BOX DRAWING BIT
  41. 410 rem
  42. 420 box BX,BY to BX1,BY1
  43. 430 rem
  44. 440 rem wait for a key prees
  45. 450 rem
  46. 460 print "press a key"
  47. 470 wait key 
  48. 480 rem
  49. 490 rem jump back to the start
  50. 500 rem
  51. 510 goto 70
  52. 520 rem
  53. 530 rem if a number was too big
  54. 540 rem
  55. 550 flash 1,"(007,20)(502,20) "
  56. 560 locate 8,20 : print "Number Too Big"
  57. 570 wait 200 return 
  58. 580 flash 1,"(007,20)(502,20) "
  59. 590 locate 8,20 : print "Colour 0 to 15"
  60. 600 wait 200 : goto 50
  61.