: MENU.BAS Nov 11,1984 Bob Shannon+: Modified version of a public domain programg: (author annonymous) that displays a menu of the: BASIC progams available on the default disk.:: Color Version !!!!!!$: .:--------------------------------------------------8:= +B PROG$(@)JL: P: ,: "a:\*.bas"|V ,: , : " Loading Directory ...."`:j: list directory on screen and load into array prog$t:~ DR%  DC% <  ((DR%,DC%)) " " "AR%AR%1 L% ]PROG$(AR%)PROG$(AR%)((DR%,DC%L%))f L%p DC%z DR%:: Display menu of programs on default disk:P:I%:: (: ,: , "BASIC programs on this diskette:"  DC%   . DR% :I%I%`( PROG$(I%)"" x : DR%,DC%z2 , ,: "##";I%;<  ,: " ";PROG$(I%)F DR%P DC%Z:d: now get program desired and run itn:x ,: ,: "Enter number of program desired: ",P; P  P I% J PROG$(P)-------- 60210 'Parameters: Do not use these names elsewhere in your program 60220 ' 60230 ' SYM