home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd372 / slideshow / tools / ssm-drivercreator.amos / ssm-drivercreator.amosSourceCode
Encoding:
AMOS Source Code  |  1991-08-25  |  900 b   |  44 lines
  1. ' Slide Show Manager Driver Creator
  2. ' 5th September 1991 
  3. '
  4. Screen Open 1,640,200,8,Hires
  5. Dim DRV$(3),NS(3)
  6. For X=0 To 3
  7.    Read DRV$(X)
  8. Next 
  9. Data "dh0:","df0:","df1:","df2:"
  10. Print "SLIDE SHOW MANAGER DRIVER CREATOR"
  11. Print "*********************************" : Print : Print 
  12. Print "Enter Number of devices" : 
  13. Print "Enter <0> for Hard Drive"
  14. Print "or the number of disk drives"
  15. Print "including the internal drive"
  16. Input D
  17. Print : Print : Print 
  18. If D=0 Then 
  19. For X=1 To D
  20.    Print "Enter Number of last Slide in Drive ";DRV$(X)
  21.    Input NS(X) : Print 
  22. Next 
  23. Goto FINISH
  24. HARD:
  25. Print "Enter Number of last Slide in ";DRV$(0)
  26. Input HN
  27. FINISH:
  28. Cls 
  29. Print "Now Creating <DRIVER> File: Please wait"
  30. Open Out 1,"Driver"
  31. If D=0 Then Goto HARDFILE
  32. Print #1,D
  33. For X=1 To D
  34.    Print #1,NS(X)
  35. Next 
  36. Goto CONCLUDE
  37. HARDFILE:
  38. D=9
  39. Print #1,D
  40. Print #1,HN
  41. CONCLUDE:
  42. Close 1
  43. Print : Print "File <DRIVER> saved."
  44. End