67 ARRAYFILENAMEDISKFILECOUNCHOICLOOGKERASPAUS *** MENU (44 PROGRAM MAX)*** (C) 1980 LEN LINDSSAY *** LAST REVISION 11-15-80FFԡŠ٠ĠϠŠĠҠҠӠή 11;A(,;@ ,;@ ,;@,9@'@@89DEFAULT MARGINS4 +4CLEAR SCREEN AND GO INTO TEXT MODE 0"AR@"CURSOR OFF(Q0@@@70@@@Q0@@@2/ 6.D1:/THE DISK TO BE USED FOR A MENU<: 6.:THE NAME MUST START WITH THE DISK DRIVE NUMBERFA67B:,%@,.*.*ALOADING D1:*.* GIVES DISK DIRECTORYdE @@EOPEN THE DISK DIRECTORY FOR A READn"6-"INITIALIZE COUNTx)@)READ NEXT PROGRAM NAMEKB:,@AKNOT A PROGRAM - THIS IS THE SECTORS LEFT COUNT$6-%@$ADD ONE TO COUNTm"@#!@@3-@mSWITCH TO RIGHT HALF OF SCREEN (CHANGE LEFT MARGIN TOO)K!@D6-@D% A KTOO MANY PROGRAMS-JUST KEEP READINGd6. dINITIALIZE THE NAME FIELD TO ALL BLANKS EXCEPT THE DOT BEFORE THE EXTENSIONe7@<@,4 767@ <@ ,. eTHERE IS NO EXTENSION SO GET RID OF THE DOT_+67@<@,.7@<@,_ASSIGN THE FIRST 8 CHARACTERS OF THE PROGRAM NAMEZ+67@<@,.7@<@,ZASSIGN THE THE EXTENSION OF THE PROGRAM NAME,a @  aADD AN EXTRA SPACE BEFOR THE SINGLE DIGIT NUMBERS TO ALIGN WITH2 DIGITS6 > PRINT FILE NUMBER@   PRINT THE PROGRAM NAMES67B:,%@,.SADD ON THE LATEST NAME TO END OF STRING OF NAMES THUS FAR* A *GO READ THE NEXT FILE NAME& A&SET TRAP FOR BAD INPUT<@<CLOSE THE FILE USED TO INPUT DISK DIRECTORY+AR@+TURN CURSOR BACK ONF-@@"&  RUN NUMBERFPRINT MESSAGE ON MESSAGE LINE 2@@2SET LEFT MARGIN TO DEFAULT..GET THE NUMBER OF THE PROGRAM TO RUN# 6-P:,#GET RID OF FRACTIONS&7 @)!A7OUT OF RANGE OF THIS MENUXU 6.UTHE NAME TO USE WITH A RUN STATMENT MUST BEGIN WITH THE DISK DRIVE NUMBERbW&6.7$@&@<$@,WTHE NAME OF THE PROGRAM INCLUDING EXTRA SPACESl-@@v)7<,0 )67B:,%@,.7<, ' A 'SET TRAP FOR DISK ERRORF-@@"&  LOADING FPRINT MESSAGE ON MESSAGE LINE1% BEg1RUN PROGRAM AND TURN OFF TRAPH-@@"(  CAN'T RUN HPRINT MESSAGE ON MESSAGE LINEA-@A  ADELAY TO ALLOW TIME TO READ MESSAGE A GO AND TRY AGAIN D:P166P1.BAS