home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser08.arj / stoser08.msa / TUT.8 / T8L1.ASC
Text File  |  1987-04-22  |  740b  |  27 lines
  1. 10 rem **************************
  2. 20 rem ***                    ***
  3. 30 rem ***   CHANGE MOUSE     ***
  4. 40 rem ***                    ***
  5. 50 rem **************************
  6. 60 if mode<>0 then mode 0
  7. 70 cls : key off : curs off : hide on 
  8. 80 if length(1)<>0 then goto 150
  9. 90 DRV=drive : drive=0 : dir$="A:\"
  10. 100 locate 10,10 : print "LOAD A SPRITE BANK" : wait 50
  11. 110 cls : show on : SPR$=file select$("*.MBK")
  12. 120 load SPR$
  13. 130 hide on : locate 10,10
  14. 140 print SPR$;" IS LOADED" : wait 50
  15. 150 cls
  16. 160 locate 0,0 : centre "Mouse key = start"
  17. 170 MK=0
  18. 180 repeat 
  19. 190 MK=mouse key
  20. 200 until MK<>0
  21. 210 SP=1
  22. 220 show on 
  23. 230 change mouse SP+3
  24. 240 if mouse key=3 then goto 250 else goto 240
  25. 250 fade 10
  26. 260 default : end 
  27.