G376:" FOR 128 BY OBERT . HRIFT 'SERVE 75545,1710sPW:L(W)E(G): SCAN FOR LIST INSERTIONL(P)T$L$(L(P))PL(P):3RH:HL(R):FFO:L$(R)T$:L(R)L(P):L(P)R:UUO: INSERT INTO LISTE(G)L(W):D(G)D(G)O:  DELETE ENTRYSL(W)E(G):L(Q)L(P):L(P)H:HP:UUO:FFO:D(G)D(G)O:E(G)L(W):w208,W: INPUT UPPER CASE CHAR. 12:Z$"A"Z$"Z"Z$((Z$)128)  "GET" STATEMENT WITH BLINKING CURSOR C1$;:Z$:C2$;:  15,DE,X$,TR,BL:DE20DEW:X$"": DISK ERR. CHECK&hP$(T$,O):LL(T$):K12:SDW:L8L93: TEXT OUTPUT FORMATTERK2L9:J$(T$,K1,K2):(J$,O)" "K1K1O:16K1K2LL22(T$,K1K2,O)" "22(J$,O)" "22K2K2O:J$(J$,K2):K2L819K2L9:J$(T$,K1,K2)ISD$(SD)(SP$,F9)J$:SDSDO:K1K1K2:K1LL16F9SD$(W)(((J)" ",5)P$SP$,F9)(SD$(W),F9O)SD$(SD)(L$,L9F9):208,W:I$"":LIW: STRING INPUT12:Z(Z$):ZSP38ZQU26ZLZ35 ZUA32 ZUZ35 26. ZSC:5,V2:C !ZSSZ$" ":35K "26m #Z$;:LILIO:LIMSI$I$Z$ $LIMS5,V4 %26 &ZCR:5,V2: '(ZDL)(LIW)26 (Z$;:LILIO:LIMSI$(I$,LI):5,2 )26 *X$">> IST MPTY! <<"!+:%!, ------- MAIN MENU --------+!-:J!.H$": "G$(G):370a!/X$""364:X$""!0 U;6);"OB";:U1"S";:ՙ" ";!1" IN LIST"!2D(G);6);"OB";:D(G)1"S";:ՙ" ";!3 " IN THIS CATEGORY""45,V3:"ELECT UNCTION:":" ":5,V5I"5UAS" DD A JOB TO CURRENT CATEGORY"u"6D(G)" DIT LIST ITEM BY ITEM""7D(G)" IEW LIST ON SCREEN""8U" RINT LIST ON PRINTER" #9" HANGE CURRENT CATEGORY":" OAD JOB LIST FILE"I#:" TORE JOB LIST FILE":" UIT":"";:5,V2g#;8: INPUT COMMAND LETTER#<FCW:IOML:(M$,I,O)Z$FCI:IML#=:FCO59,66,77,156,177,206,283,312,335#> : IMPOSSIBLE TO GET HERE#?:$@ ------- NEW ENTRY -------- $A:.$BFWX$">> IST ULL! <<":46]$C369:5,V4:S67)"SE NO QUOTES!":5,V2t$D"ATEGORY: "G$(G)$E5,V3:"NTER ESCRIPTION OF OB:"$F5,V5: "-> ";:5,V2:25:T$I$:T$""72$G:350:Z$(13)73%HX$"OB NTRY BORTED":46!%IZ$:T$Z$T$:2:CHO:46'%J:B%K ------- EDIT -------H%L:W%MD(G)W42t%NL(W)E(G):PW:L9MW:F9W%OQP:PL(P):PW46%PT$L$(P):15:H$HD$(FC)G$(G):370:X$""361:X$""%Q"RIORITY: ";:P$"0""":ՙP$&R5,V6:SD$(SD):5,V2:IWSDO:SD$(I):4&S5,V6:SD$(SD):5,V2Z&T5,V3:"ELECT UNCTION:":5,V5v&U " ","EWRITE EXT"&V" ","HANGE PRIORITY":" ","ELETE THIS JOB"&WNCO" ","OVE JOB TO ANOTHER CATEGORY"'XNCO" ","OPY JOB TO ANOTHER CATEGORY"='Y" ","XIT TO MAIN MENU":208,W:5,V3q'Z"R TO SKIP TO NEXT JOB":"";:5,V2'[8:Z$(13)79'\Z$""146']Z$""105'^Z$""NC1112'_Z$""NC1129'`Z$""46'aZ$""91'b:(c ------- DELETE -------(d:>(e7:PQ:X$"OB ELETED":CHO:79D(f:j(g ------- CHANGE PRIORITY -------p(h:(i370:"RIORITY "P$:5,V6:SD$(SD)(j5,V2:IWSDO:SD$(I)::5,V6:SD$(SD)(k5,V2:349:(Z$(13))(Z$P$)PQ:79)lT$Z$(T$,2):7:2:PQ:CHO:79)m:?)n ------- MOVE JOB ENTRY -------E)o:r)p370:"RIORITY "P$:5,V6:SD$(SD):5,V2)qIWSDO:SD$(I)::5,V6:SD$(SD):5,V3)r"OVE TO WHICH CATEGORY?":"ELECT BY NUMBER:")s5,V2:IWNCO:IGI,G$(I)*t:5,V3>*u"R PRESS TO RETAIN":"IN CATEGORY: ";:5,V2O*v5,V2:G$(G)h*w8:Z$(13)PQ:79*xZ$"0"Z$"9"119*yC(Z$):CNCO119*zCG79*{7:C1G:GC:2:GC1:PQ:L(W)E(G)*|X$"OVED TO "G$(C):CHO:L(Q)79*}46*~:#+ ------- COPY JOB ENTRY -------)+:P+FWX$">> IST ULL! <<":PQ:79}+370:"RIORITY "P$:5,V6:SD$(SD):5,V2+IWSDO:SD$(I)::5,V6:SD$(SD):5,V3+"OPY TO WHICH CATEGORY?":"ELECT BY NUMBER:",5,V2:IWNCO:IGI,G$(I),:5,V3B,"R PRESS TO EXIT TO DIT MENU":5,V2[,8:Z$(13)PQ:79r,Z$"0"Z$"9"136,C(Z$):CNC1136,CG136,C1G:GC:2:GC1:PQ:L(W)E(G),X$"OPIED: "G$(C):CHO:L(Q)79,46,:- ------- REWRITE TEXT --------:D-370:"RIORITY "P$:5,V6:SD$(SD):5,V2q-IWSDO:SD$(I)::5,V6:SD$(SD):5,V3-"E-ENTER TEXT, OR JUST PRESS "-"TO RETAIN PRESENT TEXT."-5,V5: "-> ";:5,V2:25:T$I$-T$""PQ:79.T$P$T$:7:2:PQ:CHO:79.:A. ------- SCREEN DISPLAY -------G.:V.D(G)W42. 171:L(W)E(G):JO:PL(W):F98:L9MWF9.T$L$(P):15:(LNSDO)25164.5,V3:"(MORE)";:5,V2.5,V5:(CD$,24)S611)"";./(CD$,25)S611)" RESS TO IEW ORE ";:173D/5,V2:Z$""46M/171m/IWSDO:SD$(I):LNLNO:/5,V6:SD$(SD):LNLNO:5,V2/PL(P):JJO:P158/5,V3:"(END)";:5,V2/5,V5:(CD$,24)S613)"";70(CD$,25)S613)" RESS NY EY TO ONTINUE ";:173E05,V2:46o05,V1:"O. RI.";TB);G$(G):5,V205,V6:(L$,MW):5,V2:LN3:0208,W:Z$:Z$((Z$)128):: NO CURSOR0:0 ------- PRINT -------0:0UW421369:"ATEGORY: "G$(G)"";15,V3:"ELECT RINT PTION:":5,V5|1" URRENT CATEGORY ONLY":" LL CATEGORIES":5,V31"R TO GO BACK TO":"MAIN MENU WITHOUT PRINTING"15,V2:8:Z$(13)X$"RINT UNCTION BORTED":46 2Z$""Z$""18282Z$""D(G)W42: ABORT IF IT'S EMPTYS2Z$:A$Z$:DT$""18825,V5:" ODAY'S DATE (//)? ";:5,V2225:DT$I$:208,W:5,V32" RESS ANY KEY":" WHEN PRINTER IS READY.":Z$:5,V22: 3,4,7:A$""1913IWNCO:192::3,(12):3:4623IG:192:3:3:46X3D(I)W: SKIP EMPTY CATEGORIES3TT$"":JO(G$(I)):Z$(G$(I),J,O): CATEGORY IN CAPS3Z$"Z"Z$"A"Z$((Z$)128)3TT$TT$Z$::TT$TT$" "DT$: ADD DATE TO CATEGORY 43:3,TT$:3:TT$)43,"O. RI. OB":3R4L(W)E(I):PW:KW:JW:F910:L979F9b4L(P)W2024PL(P):T$L$(P):JJO:15:KWSDO:3,SD$(K)4:3:19943:3:4:4 ------- CHANGE CATEGORY -------4: 5369:LN3:(X$):364:X$"":"";:LN6C55,V3:"ELECT ATEGORY BY UMBER OR URSOR":5,V2Z5NCCSO:LNLNOw5IWNCO:I;:IG"";5T$""(PD$,28((G$(I),28)))5T$T$("..."((D(I)),2),3)" OB":D(I)OT$T$"S"6(G$(I),28);T$::5,V3:"R ELECT:"'6NCCS" ","REATE A CATEGORY"K6NCO" ","ELETE A CATEGORY"6" ","ENAME A CATEGORY":"R PRESS TO GO BACK"6"TO THE MAIN COMMAND MENU.":"";:5,V26Y1%(235):Y2%(236)68:Z$(13)466Z$""NCCS2357Z$""NCO244!7Z$""26787Z$"0"Z$"9"225O7Z(Z$):ZNC218[7GZ:46y7CG:Z$""Z$""2287GGO:GNCGW: CURSOR DOWN72307Z$""Z$""2187GGO:GWGNCO: CURSOR UP 8 1,3,GLN,G$(G),1: 1,3,CLN,G$(C),0$8 0,Y2%,Y1%,"",0:218*8:T8 ------- CREATE NEW CATEGORY -------Z8:~8H$" ":370:5,V58"ATEGORY AME? ";:5,V2:25:G$(NC)(I$,28)8G$(NC)""X$"REATE UNCTION BORTED":206 9TNC:IWNCO:G$(I)G$(NC)TI:INC?9:TNCX$"ATEGORY LREADY XISTS!":GT:206j9D(NC)W:E(NC)W:GNC:NCNCO:CHO:206p9:9 ------- DELETE CATEGORY -------9:9H$" ":370:5,V3:"ELETE WHICH CATEGORY?":"ELECT BY NUMBER:":5,V2:IWNCO:I,G$(I)::5,V3V:"R PRESS TO LEAVE":"CATEGORIES UNCHANGED.":"";q:5,V2:8:Z$(13)206:Z$"0"Z$"9"247:C(Z$):CNCO247:D(C)W261::5,V4:" *** ! ***"; "HERE ";:D(C)O"IS 1 JOB";:254;"ARE"D(C)" JOBS";9;" IN THIS CATEGORY!"{;"F YOU DELETE A CATEGORY, YOU ALSO":"DELETE ITS CONTENTS!";5,V5:"RE YOU SURE YOU WANT TO":"DELETE ( OR )? ";;5,V2:8:Z$""Z$""257;Z$:Z$""206&<X$"ELETED "G$(C):RE(C): DELETE ENTIRE CATEGORY_<PR:RL(P):L(P)H:HP:UUO:FFO:D(C)D(C)O:R260<ICNC2:G$(I)G$(IO):E(I)E(IO):D(I)D(IO):<NCNCO:GNCOGGO<206<:<  ------- RENAME CATEGORY -------< := H$" ":370:NC2CW:274Q= 5,V3:"ENAME WHICH CATEGORY?":"ELECT BY NUMBER:"v= 5,V2:IWNCO:I,G$(I)::5,V3="R PRESS TO LEAVE":"CATEGORIES UNCHANGED.":"";=5,V2:8:Z$(13)206=Z$"0"Z$"9"271>C(Z$):CNCO2710>:5,V5:"LD NAME: ";:5,V2:G$(C):5,V5N>"EW NAME:? ";:5,V2:25r>I$""X$"ENAME BORTED":206>I$(I$,28):TNC:IWNCO:G$(I)I$TI:INC>:TNCX$"ATEGORY LREADY XISTS!":206>G$(C)I$:GC:CHO:206>:? ------- LOAD DISK FILE ------- ?:2?369:UW292[?5,V4:" *** ! ***"?" OADING FILE WILL CAUSE EXISTING"?" JOBS TO BE CLEARED FROM MEMORY!":5,V5?"RE YOU SURE YOU WANT TO LOAD ( OR )? "; @ 5,V2:8:Z$""Z$""2886@!Z$::Z$""X$"OADING ABORTED":46y@"IWCS:D(I)W:E(I)W::GW:UW:FAS:HO:"LEARING DATA..."@#IWASO:L(I)IO::L(AS)W:G$(W)"ISCELLANEOUS":NCO:CHW@$5,V5:"NTER FILE NAME, OR PRESS ":"FOR DEFAULT NAME =";A%5,V2:" JOBS.DATA":5,V5GA&F$"JOBS.DATA":"ILE AME? ";:5,V2cA'25:I$""F$(I$,16)A("";F$:CHWA)15,8,15:8,8,8,"0:"F$",S,R":13:DE308A*8,T$:13:T$"$JOBS$"X$F$" NOT A JOB FILE":308A+DE308B,5,V3:"OADING...":5,V2=B-8,NC:IWNCO:8,G$(I)::13:DE308YB.GWNCO:8,N:NW307jB/JON:8,T$B0(T$,1)(24)306B18,B$:T$(T$,(T$)O)B$:304: LONG RECORDB22:B3:13:X$""X$": "F$B48:15:GW:46B5:C6 ------- STORE DISK FILE -------C7:+C8UW42PC9369:5,V5:F$""F$"JOBS.DATA"C:"NTER FILE NAME, OR PRESS ":"FOR DEFAULT NAME = ";C;5,V2:F$:5,V5C<"ILE AME? ";:5,V2:25:I$""F$(I$,16)C="";F$ D>"ELETING OLD FILE: "F$&D?15,8,15,"S0:"F$:13MD@ 8,8,8,"0:"F$",S,W":13:DE331vDA"AVING "F$"...":8,"$JOBS$":8,NCDBIWNCO:8,(QU)G$(I)(QU):DCIWNCO:8,D(I):L(W)E(I):PW:D(I)W330DDPL(P):PW330DEB$L$(P)DF(B$)803292EG8,(QU)(B$,79)(24)(QU): EXTENDED RECORDMEHB$(B$,(B$)79):326iEI8,(QU)B$(QU): 324EJ:13:X$""X$": "F$:CHWEK8:15:46EL:EM ------- QUIT -------EN:EO(CHW)(UW)340 FP369:CH5,V4:" HANGES HAVE NOT BEEN SAVED!"=FQ5,V5:" RE YOU SURE YOU WANT TO QUIT? ";_FR5,V2:8:Z$""Z$""338nFSZ$""46FT" ";:6,S1:5,S2:0,S3:4,S4FU PROVISION FOR RESTARTFVTB8)"'RUN' TO RE-RUN PROGRAM"FWTB8)"'CONT' TO RESTART"GXTB8)"WITHOUT LOSING DATA":&:GGY"  ";:6,V0:0,V0:4,V0:5,V2:436MGZ:pG[ ------- GET PRIORITY -------vG\:G]TM$"KEEP PRIORITY "P$:351G^TM$"ABORT ENTRY"G_5,V3:"ELECT RIORITY:":5,V5G`"0 5 O HIS ONTH".Ha"1 O MMEDIATELY 6 O ITHIN 3 OS."]Hb"2 O ODAY 7 O ITHIN 6 OS."Hc"3 O HIS EEK 8 O ITHIN 12 OS."Hd"4 O ITHIN 2 EEKS 9 O OMETIME"He5,V3:"R PRESS TO "TM$:"";:5,V2Hf8:Z$(13)IgZ$"0"Z$"9"358Ih Ii:EIj ----- BOX AROUND MESSAGE -----KIk:yIl5,V4:LX((X$,MW5)):" "(L$,LX2)""Im" "(X$,LX)" ":" "(L$,LX2)"":5,V2:In:Io ----- PRINT FUNCTION HEADER -----Ip:IqH$HD$(FC)Ir5,V12JsLH(H$):""(SP$,S6LH2)H$(SP$,S6(LHO)2)"";IJt(T1$,S5):5,V2:OJu:tJv ----- DISPLAY TITLE PAGE -----zJw:JxV01:S1(6):S2(5):" "(142);:6,V0:5,15:TB20JyS3(0):0,V0:S4(4):4,V0:MW(238): CHECK 40 OR 80KzMW39TB4:&:%@K{S5MW1:S6S52:TB)"  ߒ  ߒ"lK|TB)"  ߒ  ߒ"K}TB)"     "K~TB)"     "KTB)"    ߒ",LTB)"      "XLTB)"   "LTB)"   "LTB)"V."REV"BY ROBERT L. THRIFT"LTB)"   ߒ  "MTB)"   ߒ  "EMTB)"     "vMTB)"   ߒ  "MTB)"   ߒ  "MTB)"     " NTB)"    "RV108: HEADER LINE.........................[LT. YEL]xRV202: USER-ENTERED TEXT...................[ WHITE ]RV315: INSTRUCTION LINES...................[LT. BLU]RV411: SPECIAL MESSAGES IN BOXES...........[LT. RED]&SV508: PROMPTS.............................[LT. YEL]`SV614: LINE SEPARATORS.....................[LT. GRN]SM$"":ML(M$):I1ML:HD$(I):SL$(AS1),L(AS1),D(CS),G$(CS),E(CS),SD$(10)SG$(W)"ISCELLANEOUS"TIWCS:D(I)W:E(I)W::GW:UW:FAS:HO,TIOASO:L(I)IO::L(AS)W:5,V2LT"  "S5"OLUMN ODE"T"ROGRAM IS CONFIGURED FOR":"COLOR MONITOR - ? (/) ";T8:Z$""Z$""429TZ$:Z$""46T"ELECT MONITOR TYPE:":" 1 OLOR ONITOR OR OLOR "9U" 2 ONOCHROME ONITOR":" 3 LACK AND HITE "VU8:Z$"1" Z$"3" 433UZ$"1"V12:V22:V32:V42:V52:V62UZ$"3"V013(MW39):6,V0:0,V0:4,V0U"  ";:X$" ."((REV),2):46