home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue06 / comp / comp_menu (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1990-01-17  |  1.3 KB  |  49 lines
  1.  > $.Comp_Menu
  2. *FX225,1
  3. *DIR $
  4. (*KEY0 *EXEC $.SCREENSUBS |M GOTO8 |M
  5. *FX153,0,128
  6. Work%256
  7. P$(12),N$(12)
  8. *FX21,0
  9. "Archive"
  10. 0,"COMPETITIONS MENU","1\December 1989\MENU"
  11. "12\Copy to Floppy\$.COMP_COPY","0\Sign Off\ "
  12. 1,"COMPETITION December 1989","1\Keith Miller\$.COMP_DEC89.KMILLER","2\Ed Harris (1)\$.COMP_DEC89.EHARRISA","3\Ed Harris (2)\$.COMP_DEC89.EHARRISB"
  13. "4\Brian Mawer (1)\$.COMP_DEC89.BMAWERA","5\Brian Mawer (2)\$.COMP_DEC89.BMAWERB","6\Brian Mawer (3)\$.COMP_DEC89.BMAWERC","7\Brian Mawer (4)\$.COMP_DEC89.BMAWERD"
  14. "8\Colin Singleton\$.COMP_DEC89.CSINGLETON","0\Main Menu\MENU"
  15. P$()=(""):N$()=("")
  16. X%=M%
  17. X%=-1
  18. M%=0:
  19. (X$)=0:
  20. INIT(C$,T$)
  21. V)P$="Select option by number or F key"
  22. Y%=0:
  23. X$:X%=
  24. (X$):X$=
  25. X$,1+
  26. X$,"\")):N$(X%)=
  27. X$,"\")-1):P$(X%)=
  28. X$,1+
  29. X$,"\")):Z%=4+
  30. (N$(X%)):Y%-=(Z%-Y%)*(Z%>Y%):
  31. j<@%=2:
  32. (80-Y%)
  33. 2,6+2*X%);X%;"  ";N$(X%);:
  34. (27):
  35. 3:F$=F$+
  36. (128+16*J%+I%):
  37. ENTER(P$,0,2,"0",F$)
  38. (Y%=27)
  39. X%=0 
  40. Y%<>13
  41. X%=(Y%
  42. $X$=P$(X%):
  43. X$="MENU"
  44. M%=X%:
  45. *FX225,1
  46. *FX229,0
  47. "$.MENU"
  48. *DESKTOP
  49.