PROG$(@): : : ,"run"(")"basmenu"( )V: P: ,: "*.bas"g( DR% }2 DC% A < ((DR%,DC%)) " " FAR%AR%P L% ZPROG$(AR%)PROG$(AR%)((DR%,DC%L%))d L%4i PROG$(AR%)"BASMENU " n : AR%AR%:PROG$(AR%)"">n DC%Hx DR%iP:I%:: (: ,: , "BASIC programs on this diskette:" DC%    DR% I%I% PROG$(I%)""  : DR%,DC% ,: "##";I%; ,: " ";PROG$(I%)' DR%1 DC%d ,: "Enter number of program desired: ",P P  P I%  P:: "Press F1 to return to menu when finished": PROG$(P)