home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / disky.amos / disky.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  1.4 KB  |  46 lines
  1. 'this one didn't get very far, did it? 
  2. '
  3. Rem:  a$(n)=disk contents  a(n)=amount of disks
  4. Dim A$(1000) : Dim A(1000)
  5. Global A$(),A()
  6. Rem:^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
  7. BEG:
  8. Curs Off : Hide On : Cls 0
  9. RASTER_BACKSCR
  10. Home 
  11. Pen 2 : Paper 0 : Under On : Centre "THE DISK LISTER V1.0   Public Domain"
  12. Under Off 
  13. Pen 5
  14. Locate 0,6 : Centre "PRESS 1 TO VIEW COMPLETE LIST"
  15. Print : Print : Centre "PRESS 2 TO ENTER MORE DATA"
  16. Print : Print : Centre "PRESS 3 TO SAVE NEW DATA"
  17. Print : Print : Centre "PRESS 4 TO LOAD A NEW LIST"
  18. Rem:^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  19. KEY_LOOP:
  20. K$="" : While K$="" : K$=Inkey$ : Wend 
  21. If K$="2" Then ENTER_DATA : Goto BEG
  22. Goto KEY_LOOP
  23. Rem:^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
  24. Procedure ENTER_DATA
  25. ST:
  26. Cls 0 : Hide On : Curs On : Pen 5
  27. Print : Print : Centre "Enter new disk details & press Return"
  28. Locate 10,0 : Under On : Centre "Contents of disk:" : Under Off 
  29. Print : Print : Input CON$
  30. If Len(CON$)<39 Then Goto JJJ
  31. Print : Print : Pen 3 : Curs Off : Centre "SORRY MAKE CONTENTS LINE SHORTER!" : Print : Centre " PRESS A KEY"
  32. Clear Key : Wait Key : Goto ST
  33. JJJ:
  34. A$(C)=CON$
  35. Cls 0 : Print : Print : Centre "How many disks?"
  36. Print : Print : Input HOW
  37. A(C)=HOW
  38. End Proc
  39. Procedure RASTER_BACKSCR
  40. Colour 0,$F00
  41. Colour Back $F00
  42. Set Rainbow 0,0,144,"(9,-1,16)","","(9,1,16)"
  43. Rainbow 0,9,Y Hard(0,0),128
  44. Set Rainbow 1,0,80,"(5,1,16)","",""
  45. Rainbow 1,0,Y Hard(0,128),73
  46. End Proc