' ---===< LORD ALBERONN'S >===---M ---===< BASIC 1581 MENU >===---s ---===< PROGRAM (PD) >===---( ---===< VERSION 1.0 >===---2 ---===< JANUARY, 1995 >===---< ** CLEAR/RESET ARRAYS, ECT... **F::P ** SET TO LOWERCASE, CLEAR SCREEN, SET 40-COL. COLORS, GET DRIVE # **lZ (14)(147): 53280,0: 53281,0:5030:320d*******************************n* *x* THE PURPOSE OF THIS PROGRAM ** IS TO TRY TO GIVE YOU (AND *%* ME >G< ) AN EASIER WAY TO *J* RUN PROGRAMS IN 1581 PAR- *o* TITIONS. FEEL FREE TO PLAY ** WITH IT TO FIT YOUR OWN ** NEEDS. I KEPT IT IN BASIC ** SO IT'LL RUN ON BOTH THE 64 ** AND 128. SEND COMMENTS TO: *(* M.REED29@GENIE.GEIS.COM *M* *r*******************************################################ AFTER YOU'VE FILLED YOUR ## DATA STATEMENTS, TYPE # # RUN 290 #+ ###############################R " 53280,0: 53281,0: (14): 5030 , 15,D,15:15,"S0:MENU.1581": 15:"MENU.1581",D,1 6"":"ONE!": @NP14: ****** NUMBER OF PROGRAMS THAT THE MENU RUNS GO HERE! ******0!J NA$(NP),BF$(NP),PN$(NP),LP(NP): ###### SET ARRAYS (SEE 9000) ######c!T"****************************************";!^"****************************************";!h" ---===< ORD LBERONN'S >===--- ";!r" ---===< 1581 ENU >===--- ";/"|"****************************************";a""****************************************"""": *** SET CHARACTER COLOR ***"********************************"* THE NEXT BIT READS THE DATA *"* INTO THE ARRAYS AND PRINTS *!#* THE MENU ONTO THE SCREEN *G#********************************O#X0^# N1 NPh#XX1# NA$(N): BF$(N): PN$(N): LP(N)# N10 " ";N;") ";NA$(N);: 5130# N9 N;") ";NA$(N);: 5130# N $*******************************.$*ASK FOR PROGRAM # AND LOAD IT*S$&*******************************$0"HAT PROGRAM DO YOU WANT TO LOAD (#)";NU$: NU1NUNP "HAT IS NOT A VALID CHOICE, TRY AGAIN!":560$D (147)%N 5240: *** PARTITION LOADER SUBROUTINE ***&%X "OADING ";NA$(NU);"..."E%b LP(NU)1 BF$(NU),D:d%l LP(NU)2 BF$(NU),D,1%v LP(NU)3 BF$(NU),D,1:%"":"!Š͠ՠĠ̠";%"ԠĠŠϠΠҠΠŠ";"&"ΠӠՠ.Šˠ ";U&"ӠΠŠ͠Ǡ-";&"ǠԠŠ9000 ϠŠŠҠ ";&"Ӡ. ΠՠԠŠ, ";&"Š'Π290'ϠŠŠ͠Š"; '"ŠĠ.1581ϠŠ!"&'I'*****************************l'* DRIVE SELECTION ROUTINE *'*****************************' (14): "HICH DRIVE ARE YOU USING (8-30)";D( D8 D30 "":"NCORRECT DRIVE NUMBER, TRY AGAIN!":5( (147):5(*****************************X(* SCREEN FORMATTING ROUTINE *{(*****************************(  X1 40)( X2 "":X0((P*****************************(Z* SELECT 1581 PARTITION (IF *)d* PROGRAM IS IN ONE!) *4)n*****************************a)x PN$(NU)"OOT" PN$(NU)"ROOT" 5270)"OVING TO PARTITION '";PN$(NU);"'...":"") 15,D,15:15,"/0:"PN$(NU): 15:)"ROGRAM IS IN CURRENT (SUB)DIRECTORY.":"":*(#*******************************8*2#* THE FOLLOWING DATA LINES *]*<#* ARE FOR (IN THIS ORDER): **F#* 1) PROGRAM NAME ON MENU:NA$ **P#* 2) THE ACTUAL BOOT FILE (OR **Z#* PROGRAM NAME:BF$ **d#* 3) PARTITION NAME (TYPE IN *+n#* ROOT IF IN MAIN MENU):PN$ *;+x#* 4) LOAD PROCEDURE:LP *`+#* 1=LOAD FN$,D:RUN *+#* 2=LOAD FN$,D,1 *+#* 3=LOAD FN$,D,1:RUN *+#* (D=DRIVE NUMBER) *+#* NOTE: ALL VARIABLES ARE *,#* REALLY DIM ARRAYS. (I.E. *>,#* FN$ IS ACTUALLY FN$(N) *c,#*******************************,#*******************************,% "ENU","MENU.1581","OOT",1,&% "ROGRAM AME","ILE AME","ARTITION AME",3-0% "ROGRAM AME","ILE AME","ARTITION AME",3F-:% "ROGRAM AME","ILE AME","ARTITION AME",3z-D% "ROGRAM AME","ILE AME","ARTITION AME",3-N% "ROGRAM AME","ILE AME","ARTITION AME",3-X% "ROGRAM AME","ILE AME","ARTITION AME",3.b% "ROGRAM AME","ILE AME","ARTITION AME",3J.l% "ROGRAM AME","ILE AME","ARTITION AME",3~.v% "ROGRAM AME","ILE AME","ARTITION AME",3.% "ROGRAM AME","ILE AME","ARTITION AME",3.% "ROGRAM AME","ILE AME","ARTITION AME",3/% "ROGRAM AME","ILE AME","ARTITION AME",3N/% "ROGRAM AME","ILE AME","ARTITION AME",3----------","MENU.1581","OOT",1b% "----------","MENU.1581","OOT",1l% "----------","MENU.1581","OOT",1-v% "----------","MENU.1581","OOT",1U% "----------","MENU.1581","OOT",1}% "----------","MENU.1581","OOT",1% "----------","MENU.1581","OOT",1% "----------","MENU.1581","OOT",1