home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / mkdir.amos / mkdir.amosSourceCode
AMOS Source Code  |  1990-12-28  |  355b  |  13 lines
  1. Screen Open 0,320,200,4,Lowres
  2. Pen 2 : Paper 0 : Cls 
  3. Home : Centre "SELECT+WIPE by CHRIS HURST"
  4. Locate 0,10 : Centre "Left Mousebutton to Type" : Curs Off 
  5. Locate 0,11 : Centre "Right Mousebutton to Quit" : Curs Off 
  6. Do 
  7. If Mouse Key=1 Then Gosub SEL
  8. If Mouse Key=2 Then End 
  9. Loop 
  10. SEL:
  11. Clear Key : Locate 0,20 : Input "Directoryname:";D$
  12. Mkdir D$
  13. Return