HXA J :S, "E!FAILED! I_ ZJ 27I J HX2 HK M2 J HXZ HK MZ ' -D K J I_ ZJ 27I J HX2 HK M2 J GA 27I! !J S,0,.K IEB HXZ HK MZ !P55.TE PROGRAM TO GIVE 55 LINES PER PAGE IN A FILE NO EXTRA LINES ARE INSERTED. !!SET LAST BUFFER SWITCH !1UB! FILL UP BUFFER IS BUFFER FULL? !!3! 2048&Z"E O1' 1024&Z"E O1' 512&Z"E O1'O2! GET MORE DATA !!1! ZUA ZJ A A QA-Z"E 0UA O2' O3! FULL BUFFER, !!2!! STORE 55 LINES !J 55L 12I 0,.PW 0,.K! 55 LINES LEFT? AND IS LAST BUFFER? !!4! J 55L Z-."E O8' O7 !8! QB"E Z"E ODONE' O7'! GET MORE DATA !!5! ZUA ZJ A A QA-Z"E 0UB O7' O9! IS BUFFER FULL? !!9!2048&Z"E O10' 1024&Z"E O10' 512&Z"E O10' O6! MORE DATA !!10! ZUA ZJ A QA-Z"E 0UB O6' O9! FULL BUFFER, !!6! !7! ! STORE 55 LINES !J 55L 12I 0,.PW 0,.K O4! !!DONE! EF EX !ATAB.TE PROGRAM TO ALPHABETIZE A LIST. GMC 3/22/75 !ZUC ! !!START! J 0UZ 0AUA L QC-Z"E OCONT' !!ERROR!! LOST SOME LINES!  OTAG4 !CONT! 0UN 0AUB !TAG6! QA-9"E OTAG2' QB-9"E !TAG3! XA K -L GA 1UZ !TAG2! 0AUA L .-Z"E QZ"E OTAG4' OSTART' OCONT' QA-QB"G OTAG3' QA-QB"E -L 1%NAUA L QNAUB OTAG6' OTAG2 !TAG4! TYPE CTRL P  50<1000<> > !A.TE PROGRAM TO ALPHABETIZE A LIST. GMC 3/21/75 !!START! 0UN 0UZ J 0AUA! !!CONT! L 0AUB QBUC! !!TAG6! QA"C OTAG1' OTAG2! IS QA A CHARACTER !!TAG1! QB"C OTAG4' OTAG3! IS QB A CHARACTER? !!TAG4! QA-QB"G OTAG3'! !QA-QB"E OTAG5' OTAG2! !!TAG5! (QN+1)UN -L QNAUA L QNAUB OTAG6! !!TAG3! XA K -L GA 1UZ! !!TAG2! 0UN! !QCUA! !L .-Z"B -L OCONT'! !QZ"G 0UZ OSTART'! !50<1000<> > !DEL.TE DELETE ALL EMPTY LINES IN A FILE !!START! J .-Z"E ODONE'! DONE?? !!POINT! L .UA -L! GET END OF LINE POINTER. !!CHECK! 0A"C L OLINE' C! CHECK FOR CHARACTER IN LINE. !.-QA"E -L K OLINE' OCHECK! END OF LINE !!LINE! .-Z"E P OSTART' OPOINT! !!DONE! EF! ! !CLEANF.TE SET LAST BUFFER SWITCH !1UB! FILL UP BUFFER IS BUFFER FULL? !!3! 2048&Z"E O1' 1024&Z"E O1' 512&Z"E O1'O2! GET MORE DATA !!1! ZUA ZJ A QA-Z"E 0UA O2' O3! FULL BUFFER, ADD 15 RETURNS TO TOP OF PAGE !!2! ML J 15< 13I 10I>! STORE 55 LINES !J 55L 12I 0,.PW 0,.K! 55 LINES LEFT? AND IS LAST BUFFER? !!4! J 55L Z-."E O8' O7 !8! QB"E Z"E ODONE' O7'! GET MORE DATA !!5! ZUA ZJ A QA-Z"E 0UB O7' O9! IS BUFFER FULL? !!9!2048&Z"E O10' 1024&Z"E O10' 512&Z"E O10' O6! MORE DATA !!10! ZUA ZJ A QA-Z"E 0UB O6' O9! FULL BUFFER, ADD 2 LINES TO TOP OF PAGE !!6! ML !7! J 0A-13"E 2D' 2< 13I 10I >! STORE 55 LINES !J 55L 12I 0,.PW 0,.K O4! !!DONE! EF  !ADDSPA.TE ADD SPACES TO THE FRONT OF EACH LINE IN A FILE !!1! J Z-."E ODONE'! !!2! 0A-9"E C' I  L! !Z-."E HT P O1' O2! !!DONE! EF  !INVEN.TE INVENTORY PROG. TO MAKE UP PARTS LIST AND KEEP A QUANTITY TOTAL !!4! PART NUMBER = ! !!3! J! !!1! ^TI R 0A-13"E !RETURN! D O2'! !0A-127"E !RUBOUT! C -.D O4' C O1! !!2!   9I 27I !UC! 85I 67I 27I 13I 10I J 58I 83I J XB K! !!7! QUANTITY = ! ! J !5! ^TI R 0A-13"E !RETURN! D O6'! !0A-127"E !RUBOUT! C -.D O7' CO5! !!6!   13I 10I J \UA J K! DO THE SEARCH !MB QC"E !FAILED! ZJ GB -L 2D @S// -D! !K 9I QA\ 13I 10I O4'! !2S  \+QAUB 0L2S  K QB\ 13I 10I O4! !CAPFIL.TE CONVERT FILE TO ALL UPPER CASE !!BEGIN! J .-Z"E OFINISH'! !J !START! .-Z"E ODONE' 0A"C 0A-96"G 0A-32I D OSTART'! ! C OSTART' C OSTART! !!DONE! P OBEGIN! !!FINISH! EF !CAPTAL.TE CONVERT PAGE TO ALL UPPER CASE! J !START! .-Z"E ODONE' 0A"C 0A-96"G 0A-32I D OSTART' C OSTART' C OSTART! !!DONE! !ICS.TE PROGRAM TO STORE AND OBTAIN POWER IN MW OF ALL ICS USED. ! QZ"E EBSYS:ICS.TEY' 1UZ  TYPE THE "LF" LINE FEED KEY TO RETURN TO OS/8.  !4! PART NUMBER = ! !!3! J! !!1! ^TI R 0A-13"E !RETURN! D O2'! !0A-127"E !RUBOUT! C -.D O4' 0A-10"E!LINE FEED! C -.D EX' C O1! !!2! 9I 27I 85I 67I 27I 13I 10I J 58I 83I J XB K! !MB QC"E !FAILED! J  PART NOT FOUND! TYPE "RETURN" TO INSERT OR TYPE "RUBOUT" FOR NEXT SEARCH  !6! ^TI R 0A-13"E !RETURN! C -.D O7'! !0A-127"E !RUBOUT! C -.D O4'0A-10"E!LINE FEED! C -.D EX' C -.D O6! !!7!  TYP. POWER IN MW =  !9! ^TI R 0A-13"E !RETURN! D O8'! !0A-127"E !RUBOUT! C -.D O7'0A-10"E!LINE FEED! EX' C O9 !8! 13I 10I J XA J K ZJ GB -L 2D S  KGA O4' !PART FOUND!  TYP POWER IN MW =  T O4