home *** CD-ROM | disk | FTP | other *** search
/ YPA: Your Privacy Assured / YPA.ISO / other_goodies / dup_stuff / dup_mar.lha / Dark_Unicorn_Dispatch / zonefinder.amos / zonefinder.amosSourceCode
AMOS Source Code  |  1980-01-18  |  588b  |  28 lines
  1. Input "How many zone do you wish to define?";A
  2. Dim ZN(A,4) : Dim ZN$(A)
  3.  
  4. F$=Fsel$("**","Select an IFF to Load")
  5. Load Iff F$,0
  6.  
  7. For T=1 To A
  8. Do 
  9. X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  10.  
  11. MC=Mouse Click
  12. If MC and R=0 Then Inc Q : ZN(Q,1)=X : ZN(Q,2)=Y : R=1 : Change Mouse 2 : MC=0
  13. If MC and R=1 Then ZN(Q,3)=X : ZN(Q,4)=Y : R=0 : Change Mouse 1 : Exit 
  14. Loop 
  15. Next 
  16. Cls 
  17. For T=1 To A
  18. ZN$(T)="data "+Str$(ZN(T,1))+","+Str$(ZN(T,2))+","+Str$(ZN(T,3))+","+Str$(ZN(T,4))
  19. Print ZN$(T)
  20. Next 
  21.  
  22. F$=Fsel$("**","","Select ASCII Filename")
  23. Open Out 1,F$
  24. For T=1 To A
  25. Print #1,ZN$(T)
  26. Next 
  27. Close 1
  28. End