DOS  BASIC - CF %- MRP (. PRNTSCH A MSTRSCHDE TXS I PRDSTR W PRINT Z READ ] ENGBOM _ TXS1 c PRNTBOM q PRNTINV u PRNTMSTRy PRNTTXS | 5 ð))'))×"F$#å#b&y"q"U*1c >2 >!"c 5 ['yg> gy?O  2&{2& ͮ!{¥ : >!! ~Y(!(!*&~}OG<=͗!:5 0"!@{!: ! >wG#7wG# ! >!Wr!0O>!/!×!:{!:>! ::!:Ù!͗!:!0:&!͙!!: y2 :&_͙! ͗!:@!>!@{!: "!!+"G#+"G# " #!>!::3":;"::&R":I~_G#~_G# T"X*& >?1&&1c :&+"6& RE-BOOT">T1&01&&>D1&y?01&&>S1&%v"", V$, >2&!&+6 "T]t&7 ",7 , #7w#t&"A&t& 7:/ !&O:&o&'>" , {@#×!:+ ;#:&2&> >"d##Gy@O:&c 2&x2&6#:&҄#=S#*&:&!&h&)T]))o|g:& !9"&#/$#_#y?##x##7#!$!$g} W /2&h"&"&M\N#*&*&|E.#} W\MN#yW:4 6$>FD"&2&~ ""د2&>2/ !"&~$:& h$7*&y2&* !%" !/ :&O:&o&'>" "  :/ $!':&%$# $~ $,&N#F !&̈́&$"&¸$<"  :/ 2/ Ã$~ $:&Q%:&Q%=N%%6& , 8%&:3 =2&F&# Q%,&%&,&~r%)%&Sʃ%D&o&%~£%&#,&%& $, PRESS RETURN TO CONTINUE"0%%%0%%%/"U*%*U*x&:&G& :&  & &s#r#^#V#G "1&6&t&]& A&0, , , Oy2&S&}2&:3 2&>W$*&~ ʂ&#"&#z+{"O,&,&~怱O~#, {,&z*ڸ&-Ҹ&2&" *&> W*TEST NORTH STAR DOS 5.1DQ "COPYRIGHT NORTH STAR COMPUTERS, INC., 1979>!)c ['2&>! 6Y#=u'͗!>=„':'z2& :0 +'6&y")>0x>07>@!|;)gN)~w,;)$N)|;)0)>A>>>7>7>0>`>ʀ)xʊ)> xxx!U*  *@*!*@&v"__4*4*@*&v"+*wG&  &#*q"GO BASIC t& u*!͖*, ))))ot& €*0:ҡ*0AG?7t&7 ʫ*!:, 0, T])))_t& ,ø*ͫ*, |, }t&D+ *S+, t&, !"" !q""- 2&+&*!W*"&*U*!H+ ̈́&##?+##.+q",&( CR*,DEt+GO&JGO BASIC +IN,LI,TY+LF+SF+"++6 |+ u**&> "*, G~怰w·+u*#'&+ +":&O,&,&z, ~怱O{u*+" , +ͫ*,  ,,, A&u***xO}%,<+"V$, "V$, ͫ*, *&~Aܫ**x2&f,#|g}o:&O/$DM+ , , '&q#p#:&w#q&+w, A&*xOx/G!'6 #6 #¯,/$!> '" ,  =¿,*&~# ,#>,~#"&oA&b&-7!_!-PY-__^1][>2[#"["[>2[!yY"YX>2Y>2yY2Yң-*[~ʀ-h-*U![eHP-*[:[u-*[6 2%0."[:[ʝ-*[#PE*[eH.. 2-!-6-2!YzY:-6# »-HͧHD> 2YX:[*[62yYXQXgM>2Y!o>SHlM*Y!"["[2[:YP.*YZ͘K> !ZNH*Y*Y5"YZ IͮMOYKS.KlM:Z 5 .0x.:~Z5tT7 .5 2ͅ.-!Z"Y#H>!77#H !Y././././././.*["[6/././.*[+"Y.0.0:Y/*["Y*[KE 2[&/:Y&/:[SH:Y-*[DM^!YeHF/ o g{/!>SHZ͘K> !ZNH-3J*[ͪG:[o&3J*[ͪG2[*Y*Y"[*[###"Y6ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"!Z"YLK"Z*YZʹ1~]06);06,:06\?G 1#1>110~ ʫ1 #"0~ ʫ1 #"0,1x ,1,1,1,1{1{1{1{1{1{10ʹ1"YLK>D}*Y0  x ʹ1,0# {1> !~Zq+ # ~ ʷ1#mH͘K##~11 1!?#1~1#11#mH͘K1*[6"[*[6+"[*[#"Y!4G2YLKک.~4wʩ.![eHڻ." -7-͙MIJ|».}һ. ڻ.ͮM}*[w*[~~2I*["[>Â2*[2[>2[#H> ک.OPE##~.~怱O#~.*[62| 2" .73-#H> ҩ.5o&*Y#"Y~ 3 2LKک.>2[-3:[O:[*[" "YÝ3!/ 2[A3xGyO! a3.W_:4 X3.z!< .KE"[KE:[!/ w  ,  w#Ç352H[#H> ک.OPEPE~怱O~.#z:H[3 3=һ.w 3*[" .#H .́K.#H .Y1-g4> . HIJ9H>D4IJz»..2[!H[-3g4> .+6 ]4 ! "[!H[7 E> ! "["[LKڡ4"[9H¡4LKک.|ʻ."[#H ©.I*[~4###"Y+H ʲ4oKھ4Iھ4¾4*[*Y++KEþ4*[DM*[*[~#KE*U 4͙MLK>5}!:"- *yY% ͙M:-2[#H *[*[O5́K9HO5#H *[O5́K#"H[#H ©.lM~:yY‰5:[ʉ5=†5!u>SHKlM:-=2[Z1#NHvMlM!H[eH_5! "Y"YLK5"Y9H5LKک.|ʩ."Y H>2Y-2Y5o&Z͘K> NH!0SH*[*[ I#} 6$|LKک.)J HLKک.)J"[ H![eHҩ.*[~*U*[ I#DM U-:Y0.2Y2Y"["Y6!yY"ÝK.lM 2*[~20.+"Y"Y6 2Y2Y2[DXF6ʵ.HFG=0.!GHKEFè6###"YHͧHvM!9"Y*["Y7~F6:> 2Y2Y#H"Y/7.>+Ho&mHwEH> Ë́=êGIwE.Ḧ́=ͪGḦ́=>;Hz7!B͕G}7̈́=͸G*Y~F=r+s+r+s+6"Y"[GFV0*[.ʤ7¥77I2H[*[#~=#ͶF7}EeH=N#F:H[N~mH 8DM,A8"[mH~F"Y6HT8̈́=ͧGH:Yʻ8>2YoKE97*[RD+H..c>#mH###*[RDxʛ8zʶ8~++ ʃ8á8zʡ87!8!Y6A>"[88<á8#H"8+H#H ."8+H8 \oKһ8+Hʺ8»8»8>2YK8I*[#~="[oK.I)J### 8IJz».HoK. E9 H39I)Jq9I͸GoK.)J~FDMp+q+6###%8I*[#~=ʕ9ʦ9~9#^#V"[~ 8:#~Gy_>YWw#³9"[#~9RD~F9*[U"[+#̈́=~F9͕G#^#V"Y#~"[#^#V"[ͪG*[9I %:\oK#H ȸ+H%:>:F]:Gү.HIJʯ.H=E9H;:y OGү.H!GIJ!GKE9Hڕ:IJKw:HeEV:I~F:>2Y*Y*[!9"Y2yYgM!0SH#;HVIG9H:FGd0.wEG;H:ͪG;>" EG9H:oK*[)J+"YʹH͙M@;ͨFlMͨF,<%ʝ;Hx;̈́=ͧG*[0R;MGͮMlMSH9H@;lM*[RD"[zo;ͮMG;MlMFDM+Ä;H+HLK;D;![Z;@C; ;$;#<~wà;ʹHà;|.}!.2[+HI1;H͙M>";H<?DMK2[lMZwEʟ<2Sڸ<9Hڰ E"Y Æ2[i< INPUT ERROR-RETYPE " IF: IH0.IJ9HIJz».{>!=H[!H[wz».#s#6IJ9HIJsIͨF>o=oK.)J"[ HwE."[ HwE."[>2[ɯ2[QX*[g4Î2!@!9i0.2Y:Y=ͶFگ=}E.͕G==H='I=#HAʪAAYBʋB!@U>#H=H>:Y.*Y->>>.+HÖ=> c>+H͇=~ͅG?>"[ DM!=#mH+H*Y-.c>Ḧ́=H/>O!@ READY"PRESS RETURN TO CONTINUE" ERROR" IN LINE "o65%225~2R6d2{423( 3655/7J71;7,8:L<:9O9w9;:::";6:<<1;%9=0=8VYWIU.s=D2P44==LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETRUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVESAVEBYEEDITDELPSIZECATSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILE([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYPA XC MNBNA O AA&^qA}AC&AAA_AAA A AAB0BQBA^1][B.Aw.Aw>Aw.Aw.Aw.Aw.Aw>?A ?APYDMg dAdA! dA# YA$wG> PYwG xAxABKxAwG!>zGHIJ9HºAIJ!A3JH=HwE.ÿAHHAwE.zʻ.n&ÿAABGx&BO&B$ "BB$ B%BK>NLJ>!=H[o&3JͧG*Y*[ I3JLJn ҢB!>͕GA~o&ÿALJͯX.W!3J#3J3J#3J0BP@ACBH@.@B)D>y[zGy[t[Oy[t[NBy[Mt[y[N=C!t[zGwTB@TBA hCPY!BzGJ CBC,AڠC͕GLJt[zGt[MÑC͕G1]!YͪGM[CCͅGBK(DMLJ+"n[C:-W0!G#C"n[ͧG*n[}-D?|g}oC"n[#3JͅGBK(DO!"n[eS`E"[zGM*["[N=4DŷH҆D.#HʻDDD>'IҨDwE.zʨD*[DM IG"[*[~ #zD¹D>;HYDHIJ͸GsHèDHIJ{ _D:-ʮ:DḦ́=HͧGʹH*[0RX"[ÆD*[SD*["[!9eH)EKE*[z~+2E! GKEs#r#^#V#!G## KEKKE##GͶF.FE#H>;HʝEGE!GE> OGUE##IJeHһ.##N#FxEK+ HðEH#HHG =EPE"[PE"["[>;H?SF_F![eHF».*[+"[9H>F_F![eH:F»."[H*[ I.#"["[7*[*[>=*[*[*[IJʻ."["["[+H\ ʘF!Y.:~F~?ڤF###"Y#H \!Y[GGhG?OͶF.>$;HyOFy@O:~F+H 7ȸȹF#H G+HFF/.ʵ.HxA*[#*UT]mH|=G~#*G##!G"["[KEq###>2Y7#HA[?rG#H0:?#"Y!B~+ |G*[ T]ͅGBK͸GzG<2Y!Y*[ "[zG*[G"[*Y*Y"Y"Y*YG"YvH!YeHG![eH0*[+"[.,H+HH)+H.+H+"Y*Y~# .H"Y>,+H+"Y7 HH UH"~G .DM#UH#z+{~#fop#zvH#H+H[GڔHhG+H"Y"$*["[*["[*["[*["[!#"[#H!Y2S"Y!YÕGH>""H;H*Y"[G~#I .H"Y*[:Y =:Y0.}o|gW>;HIF.Gڵ.PEH͸G6IwEIʋI͕G͸Gr+s+6̈́=ͪG+H,“II9HIUI> EwI).I>);HI͸Gr+s+w!9͸GxYS w +¾Ir+61yY>;H6w9I0."Y"Y*Y"Y*Y*Y*["[*[Ny7#"[eH+?*[*[ڻ."[ JI..\[͘K> !Y2SÕG̈́=ͅGAͧG~.O #~Jڻ. J~Jڻ. hJz̈́=ͅGBK(D,AҟJLJ{Z*[ͅG͕GJOͅGAͅG͕GLJͅGBKJMͅG DMNͧGLJ{%`C"[bk)))*[_zWYzGA,Ax5Kz».{Y:KX:K|».}gû.By K!T)FK @K#H"[.T?Jڻ..TZK*[+"Y>;H7#^#V#"Y#H *[LKک.I.ɯͽKͽKͽKͽKͽK>0"[ K*[BѰ>0:yY G KK:-x*Y"Y~MY!Z6 ;MOͮMO2Y2YK )L6 !ZY~# L!LʠLʩLLLL_LLʶL MM@M L:Y{L {Lw#6 GDM ͮMOZ!Yw# L6 0. LsL͠L sLìLK LDMºLsLGL L%DML:-G:YL+6 :YDM DMDM:Y<2YDM>DM!ZY#~ "M@DMlM:[K*[SHK:yY \M ;M*[4;M*[6;M DM DM:- 2Y:Y½::02[:[&/é:>#;H>ڪMIJ9H{2yY!zY:yY*U"[~!YòM M![>6+=M![cN>![ NON>w MN[ON N+=M[͇N[ͲNG~@ZNTN>ZN0.G怰[zGO+wgN+w!~ʝNP+>æN>'w+ >¦N !T]bNշ'w+N![w+ N[ Oo`iN/< OzGV[+~ O![1OO+ *O=O#T]cN~P+ԖNF+O7>'+ UOOx'w+ ?qOT]#w…O#~žO O¦O xwO6¼OcN+|G'+OO|G>~͝NxNNpbN. ! "[![w+P6![cN![w+(P w+0P6[![͕PG![͕P*[w#"[ ?P͇NͲNgoAʓPP>PNNW{怲 7>'+ŸPژPNy"[G!i[6":[P+60.=P+6."["["[P+6 P"[+6!*[~cQAQ0Q QH RQQARQ#Q+~.-Q,-Q"JQ1Q!h[:[#uQ:[Q~0Q6 +uQ:[#Q#6"+~"[.®Q+~ ʩQ!®Q##60îQ>0Q*[~>-Q*[/G"Q>0QQ:[@Q![5Q6>,Q*[+W~!."[r*[#W~"R"[rz5cQ-Q>W>0x=_*[~+R0>2[>2[:[IʻR#ʋRER:[ͺP:[ dR~>+Q>$Q*[:[#~R#~ vR+T]"ÂR!"[~ʻRIRG+~®R~ʠRxARJMRJ.2[:[<ͺP>"2h[SR~2[RAw:[ͺP*[~.R#6E#:[+ SA S-/"SR2[2[2[>2[+[S[SVS-\S>2["[>+6=aS"["[.TڛS.€S.TډS7![5.TʂSSESS.TʘSکS.ʆSÔSDT![4.TکS.SES![@S![*[w*[:[G.TSDTSESS.TT+ T T- T€S2[.TҀS_.T!TJ.T:[{S/%;HgU͆JaX H>;H>&;HUHʵU͑Ẍ́=ͧG!Y~•U6~͘W#—U9HjU͑X>nWRD|##U͑X>͘W|͘WU͑X>͘W}͘W*["[zʤU~͘W+U͑XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ Hg4> .2H[PE###KEPE~.~!H[w4W)KEKEr:H[w9H3JwE.êG#HIJͯX?X~w/X*[~ wWw~#PE NW++~G nW q*[~怰?X PEKEW͛W/X*[W~~O#PEPEPEeHڻ.ʻ.PE!X" yWzW{_>" !." .!." .6 #6 #=$X*[~@~@wW~@~G~p WͯX?XTX*[~ eHʄXx„X{_eH?XKEw*[ ##F#~#N+ W\eHһ.z».{». KY~"[ͯX6X!."- !." COPYRIGHT NORTH STAR COMPUTERS, INC., 1978!! !GGZY= ZZ(.7.@@@@@@@@ yYyY߂Z_Z`B@BYE 11534,80 4) Z 11534,80 THEN GOTO 60 RINT1" TO MENU " UBTOTALS " .." ,X F2,M1BYE 11534,80 4) u! 64""Ya``##BYYZh[h[Y Y__!BzG],A!BzG],Aڻ.͕G͏G]M͏GBNͅGAͅG͕GͅGt[zGy[zGy[Ay[Nt[ ]My[t[Ny[N͏G]MͅGNͧGt[zGt[Mt[y[!!]>)Dt[~[!0]>)Dy[M~[N~[OBNBOͅG~wLJ{\/<{\]OM\<wPbCseQA)%FI=1b'vA$8C 2BDCA<]BOʻ..>@BK],A\]=ʻ.4t[zGBNBNt[BNt[Ot[zGt[M>y[!^)D>~[!^)Dy[M~[O]Nt[Mo&3J͏G]NͅGNçGdB1b'v@@)h1cIAg5`iBABK^N2[͕G͏G^O͏GBNͅGAͅG͕GLJ{d^:[2[ͅGt[zGy[zGy[Ay[Nt[^My[t[Ny[N͏G_MͅGNͧG͕G͏GM͏Gt[!_>)DͅGt[Mt[Mt[NͧG:[wpycA1AY&A1AAY&SX=ffW3Q>t&0;A@_!Bt[zGt[O!t[zGt[zGt[M> t[y[!_)Dy[Mz_y[ t_^N!y[_~ʉ_wzG@333#@'YE@w&g?D5u3"'C?q@IT>  R11534)  R  `dB),C$20),G$20),Q$20) 2 CLEAR EEN < R10592)\R10592) A 10639,00 F #0\ #1 P MENU FOLLOWS 5Z "* * * * * * * Game Site Info * * * * * * *" d +n "Select (1) - Normal Maintenance" +x " w&g?D5u3"'C?q@IT>5Z~ w Uw~#͵B N"U++~G T q*5Z~怰EV ͵BðB{EͷG̓E͵V+͵B͡GDRH3K*5Z n&͡GDULE4;{EͷG̓E͵V+͵B͡G4;#ͅEͷG͵V+vEͷG+U(U5V*5Z U~~O#͵B͵B͵BEڲ+ʲ+͵B!V" yVzW{"j2120//> ڣ0Oͻ/"2ͻ/"2ͻ/"2}Ć0:->22ͻ/"2*2*2a-͆0ʻ0͌0һ0/ n- a-0//> -22͆0-0/0:2Dʣ-S¯0:222"2ͻ/"2ͻ/"2:2-)*2:2-)zک0-{ک0Ö.1/0ã-2/0U."222!0:2 0"2*j2~ 5.,5. 5.#"j2.͆0-)1/0:2DU.S¯0:222*2:2g.):2Ov.#|g}o"2*2Җ.#ڵ0͆0ʵ0͌0ҵ0*2*2Ͷ/*2Ͷ/*2}G:2怰oͶ/*2Ͷ/ *2*2DM*2.1/r0( "2"2! > .y:2O2* "2!u/" *2" *2" :2O:2J/yJ/<J/=!2=>/6 #C/*22" O*2 O*2 }O|G.*2"  *2/}<:2/!2=ʪ/â/6 #zª//s#r#^#V#*j2~ /#"j2*j2~"j2 #/"G~0/*j2~ /0!2"j2}o|g!2͂00@0&0@~0.__9090E0~00+ 0wG~0  ~0# 00*j2~#"j2 Z0000ɯ ~0 ~0  : yW:4 “0>FDT10k101010?20101r0/.[20 FROM FILE: "TO FILE: "EXISTING FILE. WRITE IN SINGLE(S) OR DOUBLE(D) DENSITY? "NEW FILE. SINGLE(S) OR DOUBLE(D) DENSITY? "SOURCE FILE NOT FOUND."DESTINATION FILE TOO SMALL."ILLEGAL DENSITY SPECIFICATION."NEW FILE WILL NOT FIT."ERROR OCCURRED."FILE DIRECTORY FULL."COPY COMPLETED."EXISTING FILE. PRESS RETURN TO CONTINUE."NEW FILE. PRESS RETURN TO CONTINUE."DOUBLE SIDED DRIVE REQUIRED"CONTROL-C STOP"/ MULTIPLANT MATERIAL REQUIENTS PLANNING  2 WRITTEN JUNE, 1981 by Jeffrey W. Anderson ( 52 Reset all files initialize S disk Drive #2 < +F "JAXSCH1,2"\"WASHSCH,2"\"A&TSCH1,2" P "MAINSCH,2"\"PURCHSCH,2" Z "SSCFLE,2" d "ALLOCINV,2" n x Dimension the Arrays  $ T10)\ W10)\ U10)\ Y10) / A10),A110),A210),A310),A410),A510) " A610),A710),A810),A910)  # File names are defined next  4 I1$"JAXINV1,2"\I2$"WASHINV,2"\I3$"A&TINV1,2" 4 I4$"MAININV,2"\I5$"NBRNINV,2"\I6$"SHIPOEM,2" % I7$"SERVINV,2"\I8$"PURCHINV,2" 4 S1$"JAXSCH1,2"\S2$"WASHSCH,2"\S3$"A&TSCH1,2" $ S4$"MAINSCH,2"\S6$"SHIPSCH,2" % S7$"SERVSCH,2"\S8$"PURCHSCH,2"  F1$"BOM3,2"\F2$"MSTR1,2"  7 Open Master Schedule and Product Structure Files " , #1,F2$\ #2,F1$ 96 "Master Schedule & Product Structure Files Opened" @ J File Creates T (^ S1$,30\ S2$,30\ S3$,30\ S4$,30 h "SSCFLE,2",20 r S8$,30 | "ALLOCINV,2",30   Open Files   #3,S1$\ #3,N\ #3  #3,S2$\ #3,N\ #3  #3,S3$\ #3,N\ #3  #3,S4$\ #3,N\ #3 $ #3,S8$\ #3,N\ #3\N99999999 " #3,"ALLOCINV,2"\ #3,N\ #3  #3,"SSCFLE,2"\ #3,N\ #3 ( "Schedule Files Created & Opened"   Read the Master Schedule  $ "Reading the Master Schedule" ' 1)0 "PROCESSING COMPLETE" & 1)0 ,0 #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S : !D Read the Product Structure N &X "Reading the Product Structure" .b 2)0 "PART SCHEDULED NOT ON FILE" l 2)0 v 2)1 #2,Z$  2)2 #2,V  V99999999 b  #2,L,P1  L9L  PP1 b  #2,P1$,Z,D,Z1,Z2,P2,U,A,B  % Open the Source Inventory File  * "Reading the Source Inventory File"  Z1 F4$"JAXINV1,2"  Z2 F4$"WASHINV,2"  Z3 F4$"A&TINV1,2"  Z4 F4$"MAININV,2"  #3,F4$ . 3)0 "PART NOT ON INVENTORY FILE"   3)0 * 3)1 #3,Z$ 4 3)2 #3,V > V9999999  H #3,P3 R P3P  =\ #3,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V f #3 p 1z Read andor write to the allocations file      Gosub to fill TEMP. ARRAY     Gosub to ALLOE ROCESS   R  # Update the allocations file   L  1 Open Source Schedule File and write F.A.S. $ . Z1 #3,S1$ 8 Z2 #3,S2$ B Z3 #3,S3$ L Z4 #3,S4$ V Z5 #3,S5$ ` Z5 j Z1 t X1 10\TX)TX))\ X ~ X1 10\WX)WX))\ X  3)0   3)1 #3,M$  3)2 #3,V    V99999999\N90 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1  X1 10\ #3,YX)\ X  #3,N9,N1,N1  N92 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1  X1 10\ #3,TX)\ X  #3,N9,N1,N1  P20    P22   N93 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1 ( X1 10\ #3,WX)\ X 2 #3,N9,N1,N1 < #3 F 6P F.A.S. is written continue with explosion Z )d \ "Entering main explosion loop"\ n 2x Gosub to store L.L.R. in appropriate array   <  ' Gosub to read product structure   P9P1\L9L     Check SSC2   Z22 6  F90  ) Go sub to factor new gross rqrts.   & " ", Open Source Inventory File 6 @ Z1 #3,"JAXINV1,2" J Z2 #3,"WASHINV,2" T Z3 #3,"A&TINV1,2" ^ Z4 #3,"MAININV,2" h Z5 #3,"NBRNINV,2" r Z7 #3,"SERVINV,2" | Z8 #3,"PURCHINV,2"  " Read Source Inventory Data  ) 3)0 "PART NOT ON INV. FILE"  3)0  3)1 #3,Z$  3)2 #3,V  V9999999   #3,P3  P3P1  = #3,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V  #3  1 Read andor write to the allocations file    & :0 Gosub to allocate In Production Inventory starts) : D  N 7X Gosub to allocate On Hand Inventory finishes) b l v $ Open the Source Schedule File   Z1 #3,"JAXSCH1,2"  Z2 #3,"WASHSCH,2"  Z3 #3,"A&TSCH1,2"  Z4 #3,"MAINSCH,2"  Z5 #3,"NBRNSCH,2"  Z7 #3,"SERVSCH,2"  Z8 #3,"PURCHSCH,2"  7 Write the starts and finishes into the schedule  - X1 10\YX)YX))\TX)TX))\ X  3)0 *   3)1 #3,M$  3)2 #3,V   * V99999999\N10\N91 (4 #3,V,P1,P2$,D1$,O,I1,I2,Z,D,Z9,L1 <> #3,Y1),Y2),Y3),Y4),Y5),Y6),Y7),Y8),Y9),Y10) H #3,N9,N1,N1 R N92 (\ #3,V,P1,P2$,D1$,O,I1,I2,Z,D,Z9,L1 H R Allocate InProcess \ f "Allocating In-Process" p G8I1\I1I1G4 z X1 10 % X1 TX)I1 WX)TX)I1 % X1 TX)I9 WX)TX)I9  X1 TX)I1 WX)0  X1 TX)I9 WX)0  X1 I9I1TX)  X1 I9I9TX)  I90 I90  X G4G8I9 I1G8    Allocate H   "Allocating On-Hand"  G8O\OOG5 $ X1 10 #. X1 YX)O TX)YX)O %8 X1 YX)O9 TX)YX)O9 B X1 YX)O TX)0 L X1 YX)O9 TX)0 V X1 O9OYX) ` X1 O9O9YX) j O90 O90 t X ~ OG8\G5G8O9    Allocate IN PRODUCTI  ! "Allocating In-Production"  G8I2\I2I2G3  X1 10 % X1 WX)I2 YX)WX)I2 % X1 WX)I9 YX)WX)I9  X1 WX)I2 YX)0  X1 WX)I9 YX)0  X1 I9I2WX)  X1 I9I9WX)   I90 I90  X  I2G8\G3G8I9 ( 2 %< This subroutine stores L.L.R. F P "Store L.L.R." Z L0 d L1 n L2 x L3  L4  L5  L6  L7  L8  - Subroutine to read the prod.structure  * "Reading the Product Structure - ",  2)0 H  2)0  2)1 #2,Z$  2)2 #2,V  V99999999 b % #2,L,P1,P1$,Z,D,Z1,Z2,P2,U,A,B ( "LVL ",L," P/N ",P1," ",P1$ " , 66 Routine check SSC flag, stores LLR, sets flag @ J F90  T '^ Store L.L.R. depending on level h r < | F91    ( Xfer L.L.R. to L.L.R. array WX)   L0  L1  L2  L3  L4  L5  L6  L7  L8 % "LEVEL EXCEEDS PROGRAM DESIGN"   $& Routine factors requirements 0 : "Factoring Requirements" D Z1Z1100 N X1 10 X WX)WX)UZ1 b X l Z1Z1100 v   Lead Time Offsetting   "Lead Time offset"  X1 10\UX)WX)\ X  X1 10\WX)0\ X  YL15)  W1)U1) & X11 Y\W1)W1)UX11)\ X1 2 X2 10\ YX)10 YY1\WX)UYX)\ X # X210Y\ XX2 10\WX)0\ X  X1 10\WX)WX))\ X   *  Routine increase L.L.R. by Scrap %    "Scrap Adj." * J1Z91 %4 X1 10\WX)WX)J1))\ X > H \\ R "PROCESSING COMPLETE" \ #2 f GO MPS ITEM p  z 5 Routine to write Source inventory Allocations   G0  #4,"ALLOCINV,2"  4)0   #4,G  G99999999   4)0   #4,G1,G2,G3,G4,G5,G  G1P3   G2Z   #4  0 "Part being written into allocation file" $ G30\G40\G50\G90\G799999999 ) G99999999 #4,P3,Z,G3,G4,G5,G9 %$ G0 #4,G7,P3,Z,G3,G4,G5,G9 . #4 8 B 0L Routine to write the updated allocations V !` "Updating Allocation File" j #4,"ALLOCINV,2" t 4)0  ~ #4,G  G99999999 t  #4,G1,G2  G1P3 #4,G,G,G,G  G1P3 t  G2Z #4,G,G,G,G  G2Z t  #4,G3,  #4,G4,  #4,G5,  #4   * Routine to check SSCFLE for L.L.R.   & "Looking for SSC P/N In SSCFLE"  #4,"SSCFLE,2" ( 4)0  2 #4,V < V9999999 ( .F #4,P6,Z6,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,V P P6P1 ( 4Z W1)S1\W2)S2\W3)S3\W4)S4\W5)S5\W6)S6 $d W7)S7\W8)S8\W9)S9\W10)S n L9L x #4    #4     Write the SSCFLE   "Writing SSCFLE"  V9999999  #4,"SSCFLE,2"  4)0 , ! #4,V1\ V19999999   4)0 6  #4,V1\ V1P1   #4   #4,V1 "  , #4,V 6 #4,P1,Z @ X1 10\ #4,WX)\ X J V0 T #4,V ^ #4 h r ;| Check SSC flag write SSCFLE if 0 & PN not filed   F90    W@p&nKGn7N /ij5|JJ m^QN-Nn'S? p?Opm `@O0@PNp*s..xQOihp@OqoNqNP]1NZ3_7J]`я^`>>?/Do7^`F[/AO@@?P_t?Oj?`/` ?70o1_xN. Aj~a '_@+_?/@O2pOop? s@O_>OPoX пҏGt/@@|7pB pP/TaTttOQO@Pr9pOb`dOAN`@?ab 0 (;9< Routine follows to print the Facility Schedule Files  \\  "Schedule Files - print" ( \ !2 "Enter the file name ",H$ (7 "Hit RETURN to print report ",M$ < #1,H$",2" >  A F 1)0  P 1)1 #1,M$ Z 1)2 #1,V d V99999999 F $n #1,P,P2$,D1$,O,I1,I2,Z,D,C1,C &x #1,Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8,Z9,Z  #1,N9,N1,N1  F  P2$P9$ J  P2$P9$  0 "P/N",10),"DESCRIPTION",23),"DESTIN", / 31),"L/T",36),"SCRAP",43),"INPRO", $ 52),"ON HAND",61),"INPDN" ! P," ",P2$,10),D1$,23),  D1 "JAX",  D2 "WASH",  D3 "A&T",  D4 "MAIN",  D5 "NBRN",  D6 "SHIP",  D7 "SERV",  D8 "PURCH",  31),C,35),C1100,"%",  43),I1,52),O,61),I2 "  ., "PERIOD",11),"1",17),"2",23),"3", +6 29),"4",35),"5",41),"6",47), )@ "7",53),"8",59),"9",65),"10" B E N90 "SHIP", J N91 "ISSUES", T N92 "FINISH", Y N93 "STARTS", +^ 10),Z1,16),Z2,22),Z3,28),Z4, +h 34),Z5,40),Z6,46),Z7,52),Z8, r 58),Z9,64),Z  P9$P2$     M$  & H$"JAXSCH1" "JACKSONVILLE" $ H$"WASHSCH" "WASHINGTON" # H$"A&TSCH1" "HTFD. A&T" $ H$"MAINSCH" "HTFD. MAIN" % H$"PURCHSCH" "PURCHASING" ! H$"SERVSCH" "SERVICE" +  H$"SHIPSCH" "SHIPPING SCHEDULE"   X1 80\ "*",\ X  F9F91  F96 P   " ",  X1 66\ "-",\ X\\ P X1 50\F90\ X U \2,12 Z F90 d X1 80\ "*",\ X\ JAXSCH1 AHS Housing, ACCAA@PA0ACCCCC"C"C AH0AHS Housing, ACCAA@PA0ACCCCC"C"C0AH AHR, CODE FOLLOWS THE MASTER SCHEDULE = "Hit RETURN to create and load the MASTER SCHEDULE",M$  \ #( "Enter the FILE NAME: ",H$ 2 H$",2",10 < #1,H$",2" F \ 4P "Enter the PART NUMBER to be scheduled: ",P Z +d "Enter the SHIP POINT CODE (1)=JAX" ,n " (2)=WASH" +x " (3)=A&T" , " (4)=MAIN" , " (5)=NBRN"   A  B0\Z99999999  \ 1 "Enter the FIRST period schedule: ",S1 1 "Enter the SECOND period schedule: ",S2 1 "Enter the THIRD period schedule: ",S3 1 "Enter the FOURTH period schedule: ",S4 1 "Enter the FIFTH period schedule: ",S5 1 "Enter the SIXTH period schedule: ",S6 1 "Enter the SEVENTH period schedule: ",S7 1 "Enter the EIGHTH period schedule: ",S8 1 "Enter the NINTH period schedule: ",S9 0 "Enter the TENTH period schedule: ",S  \ ." #1,Z,P,A,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,B , #1 6  @PAe B JR2 e Raw Matl AAription: ",D1$ 6F "INPRO: ",I1," INPDN: ",I2," ON-HAND: ",O1 G H Q72 @ I Q73  J Q74 ` ,K Q75 "Hit return to continue ",M$ L Q75  3P "INPDN: ",I2," INPRO: ",I1," ON-HAND: ",O1Q U /Z "Hit RETURN if O.K. else type NO ",M$ _ M$"NO"  d O9O1Q n #1,"JAXINV,2" x 1)0   1)1 #1,M$  1)2 #1,Z  Z9999999 x  #1,P  PP9 5 Routines to create MultiPlant Inventory Tx's   Written June, 1981 ( 2 X1 16\\ X 7< "Please enter your NAME and hit RETURN key ",N$ F ?P "Please enter NEW if opening a new audit trail file ",M$ 6Z "Code follows to created Inventory Transactions d t n X1 16\\ X x \ 8 " * * * * * INVENTORY TRANSACTIONS * * * * * * *"  \ % "Enter (1) Hartford A & T" ) " (2) Jacksonville A & T" $ " (3) Hartford Main" ! " (4) Washington"  " (5) New Bern"  9 " * * * * * * * * * * * * * * * * * * * * * * * *" Q9  Q95 Z  X1 16\\  \  x  + "Select (1) Raw Stock Crib" +" " (2) Blanks Crib" +, " (3) Component Crib" +6 " (4) Finished Goods" .@ " (5) Display Inventory" 1J " * * * * * * * * * * * * * * * * * * * *" T Q8 ^ Q85  h Q85 Q77 r Q85 D | X1 16   X  x ! Q81 15),"RAW STOCK"  Q82 15),"BLANKS" " Q83 15),"COMPONENTS" & Q84 10),"FINISHED GOODS" ! Q85 15),"RECEIVING"  Q86 15),"SHIPPING"  . "Select (1) For ENTRY RECEIPTS" ' " (2) For RECEIPT" % " (3) For ISSUE" 7 " (4) For RETURN (in production)" 5 " (5) For RETURN (to inprocess)" ( " (6) For SHIPMENT" 4& " (7) For DISPLAY of Inventory" 0 : Q7 D Q77  %N "Enter the PART NUMBER: ",P9 X Q77 l $b "Enter the QUANTITY: ",Q l Q91 #1,"A&TINV1,2" v Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9  < #1,S,P1$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V   O9O1  #1  Q77   F90  \\\   X1 64\ "*",\ X\ /* "P/N: ",P," ",P1$," Description: ",D1$ 4 > \  H /R 10),"INPROCESS",25),"ON HAND",40), (\ "IN PRODUCTION",55),"TOTAL O/H" f F90 "OLD BAL.", p F91 "NEW BAL.", z 12),I1,27),  Q81 O1,  Q82 O2,  Q83 O3,  Q84 O4,  42),I2,  57),O  F91   F91 `  Q71   Q72   Q73 "  Q74 r  Q75 &  Q76   F91  Q77 L $ p $. "Hit RETURN to continue ",M$ 8 Q77 Z B F91 z L -V Q77 "Hit RETURN to continue ",M$ ` Q77 Z -j "Hit RETURN to accept the transaction" 1t "Enter (NO) to abort the transaction ",M$ ~ Q77 Z  M$"NO" Z\   1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9   #1,S,P1$,D1$  #1,O1,  #1,O2,  #1,O3,  #1,O4,  #1,I1,   #1,I2,  #1,O,  #1,O9, ( #1 2 8 < "TRANSACTION COMPLETE" F \ "Thank you -- ",N$ P X1 200\C60\ X Z n d #1 n d ;x Q91 " * * * * * * * HTFD. A & T * * * * * * * " 9 Q92 " * * * * * * * JAX A & T * * * * * * *" 9 Q93 " * * * * * * * HTFD. MAIN * * * * * * *" 9 Q94 " * * * * * * * WASHINGTON * * * * * * *" 7 Q95 " * * * * * * * NEW BERN * * * * * * *"   Entry receipt  Q81 O1O1Q  Q82 O2O2Q  Q83 O3O3Q  Q84 O4O4Q  OO1O2O3O4   Receipt    I1I1Q  " Issue , Q81 O1O1Q 6 Q82 O2O2Q @ Q83 O3O3Q J Q84 O4O4Q T OO1O2O3O4 ^ I2I2Q h r Return |   I2I2Q  " Q71 "ENTRY RECEIPT ", . Q72 "RECEIPT (Within facility) ",  Q73 "ISSUE ", . Q74 "RETURN (to In Production) ", + Q75 "RETURN (to In Process) ",  Q76 "SHIPMENT ",   Open Files  Q91 #1,"A&TINV1,2"  Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  & Return from inprocess 0 N : I1I1Q D N Q81 O1O1Q X Q82 O2O2Q b Q83 O3O3Q l Q84 O4O4Q v OO1O2O3O4   Shipments 4 Q84 "SHIPMENTS ONLY FROM FINISHED GOODS"  Q84 M$  Q84 Z  O4O4Q  OO1O2O3O4   Display the Inventory  X1 16\\ X  Q91 "Htfd.A&T"  Q92 "Jax A&T"  Q93 "Htfd.Main"  Q94 "Washington"   Q95 "New Bern"  X1 64\ "*",\ X\ 7  "P/N ",P,"(",P1$,")",20),"DESCRIPTION: ",D1$ * X1 64\ "-",\ X\ 4 (> "Raw Stock",12),"Blanks",30), %H "Components",50),"Fin.Goods" )R 2),O1,14),O2,32),O3,50),O4 \ /f "Inprocess",12),"Total On Hand",30), %p "Inproduction",50),"Salvage" z 2),I1,14),O,32),I2  X1 64\ "*",\ X\  " "Hit RETURN to continue",M$  n " Routine to print TX header $ Q81 "Raw Stock Crib - ", ! Q82 "Blanks Crib - ", % Q83 "Components Crib - ", ) Q84 "Finished Goods Crib - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"   \ $ X1 64\ "*",\ X\ . .8 Subroutine to write the Tx audit trail B Z9999999 9L #2,Z,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8 V #2,I1,I2,I3,I4,N$,C$,S ` Z0 j 't Routine to create a new AUDIT ~ M$"NEW" "AUDIT,2" M$"NEW" "AUDIT,2",15  Z0  #2,"AUDIT,2"  M$"NEW" #2,Z  M$"NEW"  2)0  2)1 #2,M1$  2)2 #2,Z  5 Set up the original balances for the Tx file ( O5O1\O6O2\O7O3\O8O4\I3I1\I4I2   C GPARRotorA0A AE`CE`CE`SAM GAR1 Rotor, S/F A0AAEBEBFRED 0)  #3,N9,N1,N1  #3 6 F J N K J J * } y } } } } } } } }J} } } }J} J } }  }J*}  }  ? JJ  * j J+4J *  }  J  J   {} } }J}J} } } } } J} }}  ?J? } J} }    }J   j  K J J K  K  z ? J} } }J  }  ~ ) CODE FOLLOWS THE PRODUCT FLOW # "Enter the FILE NAME: ",H$  H$",2",20 ( #1,H$",2" 2 \ < "Enter the LEVEL: ",L F "Enter the P/N: ",P P "Enter the P/N ALPH",P1$ #Z "Enter the SOURCE CODE: ",S "d"Enter the DESTIN CODE: ",D #n"Enter the % SUPPLY: ",S1 #x"Enter the SRC.SEQ.CODE: ",S2 #"Enter the PLANCODE: ",P2 ""Enter the USEAGE: ",U $#1,Z,L,P,P1$,S,D,S1,S2,P2,U,A,B  \ % "Enter (1) IF MORE DATA" $ " (2) IF FINISHED"   X  X1 2  @PA A B!B Raw Matl A#1 6 MfUf4d#dEfef]f MSTR1 HAACCCCCCCC C C* "  $ "Enter the PART NUMBER: ",P9  $  + CODE FOLLOWS THE PRODUCT FLOW  \ ! "Enter the FILE NAME ",H$ ( #1,H$",2" -  2 1)0  < 1)1 #1,M$ F 1)2 #1,Z P Z99999999 2 $Z #1,L,P,P1$,S,D,S1,S2,P2,U,A,B d n 2  #1  M$   V1 L  "*",  V # L,15),P,20),P1$,25),S, 1 30),D,35),S2,40),P2,45),S1,55),U  3 "LEVEL",15),"P/N",20),"P/N",25),"SRC", 1 30),"DST",35),"SSC",40),"PCD",45),  "%SPLY",55),"USE"    V1 L "*",  V L,  15),P,20),P1$, 25),  30),   ) 35),S2,40),P2,45),S1,55),U   S1 "JAX",  S2 "WSH",  S3 "A&T",  S4 "MAI",  S5 "NBN",  S6 "SHP",  S7 "SVC",  S8 "PCH",   D1 "JAX",  D2 "WSH",  D3 "A&T",  D4 "MAI",  D5 "NBN",  D6 "SHP",  D7 "SVC",  D8 "PCH",  @PAHPABdBsd RR2 cdA@AkdCAA`A J * P  }  B}w }} JB} }J}  } t J }} } }  ( Jt B C BBB}J J J t    / } } |( . u* # "Enter the FILE NAME: ",H$  #1,H$",2"  1)0   1)1 X1 X0 2 1)2 Y1 Y0 < X1 #1,M$ F X1 M$, G S20 H W50 I S20 S0 K W50 2,12 L W50 W0 P Y1 #1,Z Z Y1 Z, [ W50 \ S35 ] S35 S0 _ W50 2,12 ` W50 W0 b SS1 c S20 WW1 d   #1  G0AHSHousing, Ass the SOC CODE ",S1 . (8 "Enter the ALPHA EQUIV. P/N ",P1$ B $L "Enter the DESCRIPTION ",D1$ V '` "Enter the ON HAND BALANCE ",H1 j *t "Enter the IN PROCESS BALANCE ",I1 ~ - "Enter the IN PRODUCTION BALANCE ",I2  % "Enter the MADE-FROM P/N ",P2  . "Enter the Made-From p/n SOC CODE ",S2  ( "Enter the ALPHA EQUIV. P/N ",P2$  * "Enter the RUN SIZE if fixed ",Q1  $ "Enter the PROCESS CODE ",P9   "Enter the SCRAP %+ CODE FOLLOWS THE PRODUCT FLOW  \ ! "Enter the FILE NAME ",H$ !# "Hit RETURN to print ",M$ % "Engineering B.O.M." ' ( #1,H$",2" -  2 1)0  < 1)1 #1,M$ F 1)2 #1,Z P Z99999999 2 $Z #1,L,P,P1$,S,D,S1,S2,P2,U,A,B d S21 n 2  #1  M$   V1 L  "*",  V # L,15),P,20),P1$,25),S, 1 30),D,35),S2,40),P2,45),S1,55),U  3 "LEVEL",15),"P/N",20),"P/N",25),"SRC", 1 30),"DST",35),"SSC",40),"PCD",45),  "%SPLY",55),"USE"    V1 L "*",  V L,  15),P,20),P1$, 25),   30),    35),S2,40),P2,55),U   S1 "JAX",  S2 "WSH",  S3 "A&T",  S4 "MAI",  S5 "NBN",  S6 "SHP",  S7 "SVC",  S8 "PCH",   D1 "JAX",  D2 "WSH",  D3 "A&T",  D4 "MAI",  D5 "NBN",  D6 "SHP",  D7 "SVC",  D8 "PCH",  5d=d dbcbcd-dEdc BOM3 A0ACA AAH@ABR3@A@ACA AAHPABRR@A@AC AAHPABRRA@ACAAA HPAcB%d RR2 dA@AdCAAA`A5 Routines to create MultiPlant Inventory Tx's   Written June, 1981 ( 2 X1 16\\ X 7< "Please enter your NAME and hit RETURN key ",N$ F ?P "Please enter NEW if opening a new audit trail file ",M$ 6Z "Code follows to created Inventory Transactions d t n X1 16\\ X x \ 8 " * * * * * INVENTORY TRANSACTIONS * * * * * * *"  \ % "Enter (1) Hartford A & T" ) " (2) Jacksonville A & T" $ " (3) Hartford Main" ! " (4) Washington"  " (5) New Bern"  9 " * * * * * * * * * * * * * * * * * * * * * * * *" Q9  Q95 Z  X1 16\\  \  x  + "Select (1) Raw Stock Crib" +" " (2) Blanks Crib" +, " (3) Component Crib" +6 " (4) Finished Goods" .@ " (5) Display Inventory" 1J " * * * * * * * * * * * * * * * * * * * *" T Q8 ^ Q85  h Q85 Q77 r Q85 D | X1 16   X  x ! Q81 15),"RAW STOCK"  Q82 15),"BLANKS" " Q83 15),"COMPONENTS" & Q84 10),"FINISHED GOODS" ! Q85 15),"RECEIVING"  Q86 15),"SHIPPING"  . "Select (1) For ENTRY RECEIPTS" ' " (2) For RECEIPT" % " (3) For ISSUE" 7 " (4) For RETURN (in production)" 5 " (5) For RETURN (to inprocess)" ( " (6) For SHIPMENT" 4& " (7) For DISPLAY of Inventory" 0 : Q7 D Q77  %N "Enter the PART NUMBER: ",P9 X Q77 l $b "Enter the QUANTITY: ",Q l Q91 #1,"A&TINV1,2" v Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9  < #1,S,P1$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V   O9O1  #1  Q77   F90  \\\   X1 64\ "*",\ X\ /* "P/N: ",P," ",P1$," Description: ",D1$ 4 > \  H /R 10),"INPROCESS",25),"ON HAND",40), (\ "IN PRODUCTION",55),"TOTAL O/H" f F90 "OLD BAL.", p F91 "NEW BAL.", z 12),I1,27),  Q81 O1,  Q82 O2,  Q83 O3,  Q84 O4,  42),I2,  57),O  F91   F91 `  Q71   Q72   Q73 "  Q74 r  Q75 &  Q76   F91  Q77 L $ p $. "Hit RETURN to continue ",M$ 8 Q77 Z B F91 z L -V Q77 "Hit RETURN to continue ",M$ ` Q77 Z -j "Hit RETURN to accept the transaction" 1t "Enter (NO) to abort the transaction ",M$ ~ Q77 Z  M$"NO" Z\   1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9   #1,S,P1$,D1$  #1,O1,  #1,O2,  #1,O3,  #1,O4,  #1,I1,   #1,I2,  #1,O,  #1,O9, ( #1 2 8 < "TRANSACTION COMPLETE" F \ "Thank you -- ",N$ P X1 200\C60\ X Z n d #1 n d ;x Q91 " * * * * * * * HTFD. A & T * * * * * * * " 9 Q92 " * * * * * * * JAX A & T * * * * * * *" 9 Q93 " * * * * * * * HTFD. MAIN * * * * * * *" 9 Q94 " * * * * * * * WASHINGTON * * * * * * *" 7 Q95 " * * * * * * * NEW BERN * * * * * * *"   Entry receipt  Q81 O1O1Q  Q82 O2O2Q  Q83 O3O3Q  Q84 O4O4Q  OO1O2O3O4   Receipt    I1I1Q  " Issue , Q81 O1O1Q 6 Q82 O2O2Q @ Q83 O3O3Q J Q84 O4O4Q T OO1O2O3O4 ^ I2I2Q h r Return |   I2I2Q  " Q71 "ENTRY RECEIPT ", . Q72 "RECEIPT (Within facility) ",  Q73 "ISSUE ", . Q74 "RETURN (to In Production) ", + Q75 "RETURN (to In Process) ",  Q76 "SHIPMENT ",   Open Files  Q91 #1,"A&TINV1,2"  Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  & Return from inprocess 0 N : I1I1Q D N Q81 O1O1Q X Q82 O2O2Q b Q83 O3O3Q l Q84 O4O4Q v OO1O2O3O4   Shipments 4 Q84 "SHIPMENTS ONLY FROM FINISHED GOODS"  Q84 M$  Q84 Z  O4O4Q  OO1O2O3O4   Display the Inventory  X1 16\\ X  Q91 "Htfd.A&T"  Q92 "Jax A&T"  Q93 "Htfd.Main"  Q94 "Washington"   Q95 "New Bern"  X1 64\ "*",\ X\ 7  "P/N ",P,"(",P1$,")",20),"DESCRIPTION: ",D1$ * X1 64\ "-",\ X\ 4 (> "Raw Stock",12),"Blanks",30), %H "Components",50),"Fin.Goods" )R 2),O1,14),O2,32),O3,50),O4 \ /f "Inprocess",12),"Total On Hand",30), %p "Inproduction",50),"Salvage" z 2),I1,14),O,32),I2  X1 64\ "*",\ X\  " "Hit RETURN to continue",M$  n " Routine to print TX header $ Q81 "Raw Stock Crib - ", ! Q82 "Blanks Crib - ", % Q83 "Components Crib - ", ) Q84 "Finished Goods Crib - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"   \ $ X1 64\ "*",\ X\ . .8 Subroutine to write the Tx audit trail B Z9999999 9L #2,Z,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8 V #2,I1,I2,I3,I4,N$,C$,S ` Z0 j 't Routine to create a new AUDIT ~ M$"NEW" "AUDIT,2" M$"NEW" "AUDIT,2",20  Z0  #2,"AUDIT,2"  M$"NEW" #2,Z  M$"NEW"  2)0  2)1 #2,M1$  2)2 #2,Z   5 Set up the original balances for the Tx file ( O5O1\O6O2\O7O3\O8O4\I3I1\I4I2  B FRED NEW r}GGPARRotorA0A A`BQ`CE`C GPARRotorA0A AE`CE`CE`SAM GAR1 Rotor, S/F A0AAEBEBFRED 0)  #3,N9,N1,N1  #3 6 F J N K J J * } y } } } } } } } }J} } } }J} J } }  }J*}  }  ? JJ  * j J+4J *  }  J  J   {} } }J}J} } } } } J} }}  ?J? } J} }    }J   j  K J J K  K  z ? J} } }J  }  ~ + CODE FOLLOWS THE PRODUCT FLOW  \ ! "Enter the FILE NAME ",H$ !# "Hit RETURN to print ",M$ % "Multi-Plant B.O.M." ' ( #1,H$",2" -  2 1)0  < 1)1 #1,M$ F 1)2 #1,Z P Z99999999 2 $Z #1,L,P,P1$,S,D,S1,S2,P2,U,A,B d n 2  #1  M$   V1 L  "*",  V # L,15),P,20),P1$,25),S, 1 30),D,35),S2,40),P2,45),S1,55),U  3 "LEVEL",15),"P/N",20),"P/N",25),"SRC", 1 30),"DST",35),"SSC",40),"PCD",45),  "%SPLY",55),"USE"    V1 L "*",  V L,  15),P,20),P1$, 25),  30),   ) 35),S2,40),P2,45),S1,55),U   S1 "JAX",  S2 "WSH",  S3 "A&T",  S4 "MAI",  S5 "NBN",  S6 "SHP",  S7 "SVC",  S8 "PCH",   D1 "JAX",  D2 "WSH",  D3 "A&T",  D4 "MAI",  D5 "NBN",  D6 "SHP",  D7 "SVC",  D8 "PCH",  BOM3 AHPABKRA ACAAAHA AHRAAC0AAHA AHRAAPB A AAH A@AHDAACA AAH0ApAHD1AAC AAH0ApAHD101 80\ "*",\ X  F9F91  F96 P   " ",  X1 66\ "-",\ X\\ P X1 50\F90\ X U \2,12 Z F90 d X1 80\ "*",\ X\  ihififxihhhii PURCHSCH A@A@PA0AHBRR Raw Matl RA@A@PAAHBRR Raw Matl R5 Routine to print the Facility Inventory Files   Written June, 1981 ( "2 "Enter the FILENAME- ",F$ < !F "Hit RETURN to print ",M$ P #1,F$",2" Z _ F$"PURCHINV" d "Facility Inventory - ", &n F$"JAXINV1" "Jacksonville" "x F$"A&TINV1" "Htfd.A&T" $ F$"WASHINV" "Washington" # F$"MAININV" "Htfd.Main" " F$"NBRNINV" "New Bern" % F$"PURCHINV" "Purchasing"    G1 * "P/N",5),"P/N",10),"DESCRIPT.", & 23),"RAW STK",31),"BLANKS", ' 39),"CMPTS.",47),"FIN.GDS.", & 57),"TOT.O/H",65),"INPRO.",  73),"INPDN"    P3,5),P2$,10),D1$,  23),O1,31),O2,  39),O3,47),O4,  57),O,65),I1,73),I2  G1 "  Routine to read the file  1)0   1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P3\ P30  ( #1,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O $  #1    M$   Print a STAR line  X1 80\ "*",\ X\   Purchasing Routines "Purchasing Order Status"    ) "P/N",5),"P/N",10),"DESCRIP.",  25),"ON-ORDER"    HPAfBf RR2 fA@AfCAAA`A0AHBRR Raw Matl RA@A@PAAHBRR Raw Matl R, Routine to print the Master Schedule   Written June, 1981 ( 2 "< "Enter the FILENAME: ",F$ F *P "Hit RETURN to print the file ",M$ Z _ #1,F$",2" d "Master Schedule" n x     G1 ( "P/N",P,10),"ASSY.FACILITY - ",  X1 "Jacksonville"  "PER.1",7),"PER.2", # 14),"PER.3",21),"PER.4", # 28),"PER.5",35),"PER.6", # 42),"PER.7",49),"PER.8", # 56),"PER.9",63),"PER.10"  - S1,7),S2,14),S3,21),S4,28),S5, + 35),S6,42),S7,49),S8,56),S9,  63),S  G1  1)0  . #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,D   #1\ M$\  X11 80\ "*",\ X1\\  MSTR1 SAVE PRNTMHAACCCCCCCC C C* "  $ "Enter the PART NUMBER: ",P9  $  9 " #3,"ALLOCINV,2"\ #3,N\ #3 #3,"SSCFLE,2"\ #3,N\ #3  "Schedule Files Created"  Read the Master Schedule $ "Reading the Master Schedule" ' 1)0 "PROCESSING COMPLETE"  1)0 , #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S ! Read the Product Structure & "Reading the Product Structure" . 2)0 "PART SCHEDULED NOT ON FILE"  2)0  2)1 #2,Z$  2)2 #2,V  V99999999  #2,L,P1  L9L  PP1 2 Routine follows to print the Tx audit trail  * "Hit RETURN to begin printing ",M$ ( P50\P71 22 "Transaction Audit Trail",70),"Page ",P7 < F #1,"AUDIT,2" P 1)0 | Z 1)1 #1,M$ d 1)2 #1,Z n Z9999999 P 7x #1,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8  #1,I1,I2,I3,I4,N$,C$,S  P8P8P9\Q5Q5Q  - "P/N - ",P1$,P9,15),"DESCRIPT. - ",  D1$,40),"LOC'N - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"  "Tx Type - ", 0 ( 40),"Qty.- ",Q,60),"By - ",N$  5 10),"Raw Stk",20),"Blanks",30),"Cmpts.", / 40),"FinGds.",50),"Total O/H",60), #" "Inprocess",70),"Inprod'n" ., "New Bal's",10),O1,20),O2,30),O3, +6 40),O4,50),O1O2O3O4,60),I1, @ 70),I2 .J "Old Bal's",10),O5,20),O6,30),O7, +T 40),O8,50),O5O6O7O8,60),I3, ^ 70),I4 h \ r P | File Closings here  #1  &    M$  + Routine to print header & star line  P57 &  P57 2,12  P57 P7P71 * P57 "Transaction Audit Trail", ! P57 70),"Page ",P7  P57  P57 &  P57 P50  P5P51  & X1 80\ "*",\ X\\ #0 Subroutine to print Tx type : Q71 "Entry Receipt", !D Q72 "Receipt (crib)", N Q73 "Issue (crib)", !X Q74 "Return (Inpdn)", !b Q75 "Return (Inpro)", l Q76 "Shipment", v Q77 "InvXfer",  + Subroutine to print the hash totals  \2,12  P7P71 / "Transaction Audit Trail - Hash Totals",  70),"Page ",P7  &  % "Hash Total Part Number = ",P8  % "Hash Total Quantities = ",Q5   &  2,12   SAM GAA Pump, Typi A@A`AE