home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser03.arj / stoser03.msa / A / T1L3.ASC < prev    next >
Text File  |  1987-04-22  |  652b  |  25 lines
  1. 10 on error goto 220
  2. 20 cls : key off : click off : curs off 
  3. 30 if mode<>0 then mode 0
  4. 40 locate 0,4 : centre "PROGRAMME 3"
  5. 50 locate 0,8
  6. 60 input "BOX LENGTH";BY
  7. 70 locate 0,10
  8. 80 input "BOX WIDTH";BX
  9. 90 locate 0,12
  10. 100 input "BOX COLOUR";C
  11. 110 if BX>=320/2 then BX=300/2 : gosub 190
  12. 120 if BY>=198/2 then BY=198/2 : gosub 190
  13. 130 BX1=BX*2 : BY1=BY*2
  14. 140 ink C
  15. 150 box BX,BY to BX1,BY1
  16. 160 print "press a key"
  17. 170 wait key 
  18. 180 goto 10
  19. 190 flash 1,"(007,20)(502,20) "
  20. 200 locate 8,20 : print "Number Too Big"
  21. 210 wait 200 return 
  22. 220 flash 1,"(007,20)(502,20) "
  23. 230 locate 8,20 : print "Colour 0 to 15"
  24. 240 wait 200 : goto 10
  25.