A NBASNBAMSAASAGNA REM Zd REM * WIDGETS *KZ( REM * BY ALEXANDER LAIRD *Z!(( REM * COPYRIGHT (C) 1989 *ӑZ!2+ REM * MINDCRAFT PUBL. Corp. *Z$ <' REM * CONCORD, MA 01742 *Z F REM ZdP GOTO 2630##,  F ^Z : REM CLEAR FLASH AREAeZ dB REM VTAB 11: FOR F = 1 TO 7: HTAB 30: PRINT : NEXT : RETURN, Z; x : REM [ INTEGER ALIGN IlZ - AL$ = STR$ (AL):AA = LEN (AL$): RETURN>_+9#AL=ALN{9FAAALFb'& : REM [ DECIMAL ALIGN(_Z AL= INT (AL * 100+ .5)/100F<UA9<#ALALY@?@Y@j2 IF AL = 0 THEN AL$ = "0.00" :AA = 4: RETURN q0X+0:AL p9 UAL0.009$AA@b,Xt+ AX = INT (AL * 100) :AX$ = STR$ (AX)b69&#AXHALY@Y@9QAXAX{0T5 IF LEN (AX$) < 3 THEN AX$ = "0" + AX$:GOTO 190#lb#0S.7AAXF@ k9NAX0AX, -2rR LF$ = LEFT$ (AX$, LEN (AX$) - 2): RT$ = RIGHT$ (AX$,2):AL$ = LF$ + "."+ RT$395 #LF+AXWAXEF@ qE9$)`RTAX@k9$>ALLF.RTJ] AA = LEN (AL$): RETURNa<+9#AAALFb\REMZREMZ : REM [ DISPLAY RESULTS I1Z .K VTAB 12: FOR F = I TO 5: HTAB 30: PRINT ".":PRINT : NEXT: REM :W+{ (@'0@?/ >@S ) . S6 G>ZD3 HOME: VTAB 1: PRINT "[[ OPERATING P ERFORMANCE ]]"QW{ ?S$$[[ OPERATING P ERFORMANCE ]] s PRINT "Entering quarter ";QTR ;" your workforce is ";EMPL;"."; :HTAB 50: PRINT "Revenue"; :AL = INT (REV ): GOSUB 130:AA=74-AA:HTAB AA: PRINT AL$ 1SM>Entering quarter TQTR your workforce is EMPL./ AI@SJRevenue9\ALREV@+ m s9wAAR@AA / AAS AL  PRINT NEMP;" employees joined the company.";:HTAB 50: PRINT "-Mfg co st "; :AL = INT (MCST): GOSUB 130:AA=74-AA:HTAB AA: PRINT AL$XS1,NEMP employees joined the company./ .I@S7-Mfg co st 9PALMCST@+ a g9kAAR@AA / tAAS } AL " : PRINT LEMP;" employees left the company";: HTAB 50: PRINT "-Payroll. " ; :AL = INT (DE(1)): GOSUB 130:AA=74-AA: HTAB AA: PRINT AL$c S. ){LEMP employees left the company/ 4I@S= -Payroll. 9&SALDE?@+ e k9oAAR@AA / yAAS AL ,PRINT "You manufactured " ;DE(4);"(000) Widgets.";: HTAB50: PRINT "-Advertising " ; :AL = INT (DE(3)): GOSUB 130:AA=74-AA: HTAB AA: PRINT AL$1 1S@2You manufactured DE@(000) Widgets./ 4I@S<-Advertising 9&XALDE@@+ j p9tAAR@AA / ~ AAS AL (6 :UCST = INT (UCST * 100 + .5)/ 100: PRINT "Standard unit cost was $" ;UCST;"/unit.";: HTAB50: PRINT "-Research."; :AL = INT (RCST): GOSUB 130:AA=74-AA: HTAB AA: PRINT AL$FE9@ (%UCSTUCSTY@?@Y@S640Standard unit cost was $UCST/unit./ mI@Su -Research.9ALRCST@+ 9AAR@(AA / ;AAS AL "@ :IVTY = INT (IVTY): PRINT "Current inventory is: ";IVTY;"(OOO) units.";: HTAB50: PRINT "Net Profit " ;:AL =INT (PFT): GOSUB 130:AA=74-AA: HTAB AA: PRINT AL$h//9 %IVTY]IVTY@S:3Current inventory is: IVTY (OOO) units./ RI@SZNet Profit 9v ALPFT@+ 9AAR@AA / $AAS AL SJ PRINT "You sold ";PSALE;"(OOO) units at $";DE(2);"/unit.";: HTAB50: PRINT "'Available Cash.";:AL = INT (CASH): GOSUB 130: HTAB74 - AA: PRINT AL$J )SR: You sold KPSALE(OOO) units at $DE@/unit./ =I@SE'Available Cash.9_ALCASH@+ p v/{ R@AA S AL CT REM Zd^& REM COMPARATIVE RESULTS'ZhP(1) = (EMPL / XEMP) - 1:P(2) = (IVTY / XIVTY) - 1:P(3) = (PSALE / XPSALE) - 1:P(4) =(UCST / XUCST) -1:P(5)=(SAL / XSAL) - 1:REM PERCENT CHANGEn= X97-P?7EMPLYXEMP? 98lP@vIVTYXIVTY? 9:3P@PSALEXPSALE? 98OP@UCSTXUCST? 96g.P@7SALXSAL? Z}QrC FOR F = 1 TO 5:P$(F) = "up": IF P(F) < 0 THEN P$(F) = "down"^'#E?@?9  MPeup0?$mP 95 Pdown}|@ P(F) = ABS (P(F) * 100):AL = P(F): GOSUB 160:PC$(F) = AL$uB92"P)1PTY@9 ]ALeP+ * 094  PCAL NEXTiGm VTAB 11: HTAB 33: PRINT "[[ COMPARATIVE RESULTS ]]": HTAB 30: PRINT "Workforce went ";P$(1);" by ";: HTAB70 - LEN (PC$(1)):PRINT PC$(1);"%" { &@/ @@S!![[ COMPARATIVE RESULTS ]] / <>@S3E%Workforce went  P? by /&lQ@ PC?F S PC?% ^ HTAB 30: PRINT "Inventory went ";P$(2);" by ";: HTAB70 - LEN (PC$(2)): PRINT PC$(2);"%"A/ >@S3%Inventory went  oP@ by /&7Q@ PC@F SN PC@% 1r IF QTR > 2 THEN HTAB 30: PRINT "Product sales went ";P$(3);" by ";: HTAB70 - LEN (PC$(3)): PRINT PC$(3);"%"F0k1fQTR@/ >@S7 )Product sales went  P@ by /&KQ@ PC@F Sb PC@% )_ HTAB 30: PRINT "Unit cost went ";P$(4);" by ";: HTAB70 - LEN (PC$(4)): PRINT PC$(4);"%"KA/ >@S3%Unit cost went  oP@ by /&8Q@ PC@F SO PC@% b HTAB 30: PRINT "Salary cost went ";P$(5);" by ";: HTAB70 - LEN (PC$(5)): PRINT PC$(5); "%">C/ >@S5'Salary cost went  qP@ by /&:Q@ PC@F SQ PC@% _ RETURN:b6 : REM [ OPERATING RESULTSZ . QTR = QTR + 1':9! $QTRQTR?F XEMP = EMPL:XIVTY = IVTY:XUCST = UCST:XPSALE = PSALE:XSAL = SAL}9 %XEMP:EMPL9 FXIVTY[IVTY9 gXUCST|UCST9-XPSALEPSALE9< XSALSALE$ IF XPSALE = 0 THEN XPSALE = 1+V0=4>XPSALE U9 XPSALE?<^ IF XIVTY=0 THEN XIVTY=1ssT0;3=XIVTY S9XIVTY?D( IF DE(5) < RD(2) THEN UCST = UCST * 1.3q0X'E.DE@ORD@ p9#ZUCSTUCST?w+K IF DE(5) > = RD(2) AND DE(5) < RD(3) THEN UCST = UCST * 1.15*0Jo.DE@CRD@VDE@yRD@ 9#2UCSTUCSTgfffff?&J IF DE(5) > = RD(4) AND DE(5) < RD(5) THEN UCST = UCST * .850Io.DE@CRD@VDE@yRD@ 9#2UCSTUCST433333?01 IF DE(5) > = RD(5) THEN UCST = UCST * .70nq0X0E.DE@ORD@p9# ZUCSTUCSTgfffff?m9:| IF FL(1) > 0 THEN DE(4) = INT (DE(4) / 2):MCST = MCST + FL(1): REM FLASH 1.. .ADD FlRE COST TO MFG COST (MCST)fw0u;EFL?9<YDE@DE@@@9-1MCSTMCSTFL?ZF6Q0DL IF FL(4) > 0 THEN UCST = UCST - 1: REM FLASH 4. . .REDUCE UNIT COSTbo0VK;EFL@n9#PUCSTUCST? Z$(Nn IF FL(6) > 0 THEN MCST = MCST + (DE(4) * FL(6)): REM FLASH 6.. .ADDED REWORK COST * P RODUCTION[0um;EFL@9B$PMCSTZMCSTmDE@FL@Z@.KX IF UCST < 9 THEN UCST=9TFR092<UCST"@ Q9UCST"@b^ IVTY = IVTY + DE(4):MCST = MCST + (DE(4) *UCST): REM MFG->INVENTORY AND MFG COSTK9-%IVTY/IVTYODE@99ZMCSTdMCSTwDE@UCSTZ?lN IF FL(7) > 0 THEN NEMP = FL(7): REM FLASH 7. . .ADDTL EMPLOYEESm0TG;EFL@l9! PNEMPFL@Z''GvL IF FL(8) > 0 THEN LEMP = FL(8): REM FLASH 8. . .LOST EMPLOYEESm0TE;EFL @l9! PLEMPFL @Z'%݃9 RCST = DE(5) + RP: REM ADD MKT REPORT TO R &D COSTUL9+%RCST8DE@RPZ7 HIT = 0: IF DE(2) < PC(2) THEN HIT = 1: GOTO 690F99HIT0]'cLDE@mPC@ 9&HIT?, /4z7)IF DE(2) > = PC(7) THEN HIT = 7: GOTO 6907vl0])E.DE@OPC@u9HIT@, !&S FOR F = 2 TO 6: IF DE(2) > = PC(F) AND DE (2) < PC(F + 1) THEN HIT = F:F = 6'#F@@?0<YDE@bPCj}DE@PC? 9FHIT9N@ FNEXTG& PE = PZ(HIT): REM PRICE EFFECT%T@9 #PE,PZHITZo7 HIT = 0: IF DE(3) < AI(2) THEN HIT = 1: GOTO 740AE99HIT0]'cLDE@mAI@ 9&HIT?, /4Q)IF DE(3) > = AI(8) THEN HIT = 8: GOTO 740_vl0])E.DE@OAI @u9HIT @, !&S FOR F = 2 TO 7: IF DE(3) > = AD(F) AND DE (3) < AD(F + 1) THEN HIT = F:F = 7'#F@@?0<YDE@bADj}DE@AD? 9FHIT9N@CD NEXTJ GZ' AE = AI(HIT): REM ADVTSG EFFECT%@9 #AE,AIHITZVSL = ((PE / 100) * (PAD / 100)) + ((AE / 100) * (APR / 100)): REM SALES % OF INVENTORY-9`<#SL6PEY@LPADY@_AEY@APRY@Z>TLIF FL(3) > 0 THEN SL = 1.00:DE(2) = FL(3): REM FLASH 3... SELL 100% OF INVTY?0zL;EFL@9 bSL?9* vDE@FL@Z+!IF SL > 1 THEN SL=1(N050:SL?M9SL? )PSALE = IVTY * SL: REM BASIC SALES VOLUMED9#&PSALE0IVTYSLZmIF FL(2) > 0 ThEN PSALE = PSALE * ((100 -FL(2)) / 100): REM FLASH 2... REDUCED SALE S TRANSPORTATION SHUTDOWN0xm;EFL@9E$QPSALEePSALEY@FL@ Y@Z85 YIF FL(9) > 0 ThEN PSALE = PSALE + INT (PSALE * (FL(9) / 100)): REM FLASH 9... ADDED SALESz0Y;EFL"@9N+QPSALE\PSALEgPSALEFL"@Y@@Z?*!IF PSALE > IVTY THEN PSALE = IVTYV0=!4&PSALE>IVTYU9 JPSALEIVTY4VIF FL(5) > 0 THEN SAL = SAL * 1.25:PRDN = PRDN + 1: REM FLASH S.. BENEFITS PLAN EFFECT{0V;EFL@9!OSALnSAL?9##yPRDNPRDN?Z4"c>REV = PSALE * DE(2):IVTY = IVTY - PSALE: IF SFLAG = 1 THEN SFLAG = 0:REV = IVTY * 29.95:DE(2)=29.95:PSALE = IVTY:IVTY = 0: REM REVENUE CALCULATIONE P9-$REV/PSALEODE@9%ZIVTYdIVTY}PSALE 0)iSFLAG? O9; SFLAG9"EREVIVTY33333=@9 X DE@33333=@9d PSALE2IVTY9qIVTYZ{'H7IF SFLAG = 1 THEN SFLAG = 0:REV = IVTY * 29.95:IVTY = 0W073=SFLAG? 9 ]SFLAG9"gREVIVTY33333=@9/IVTYROIF FL(10) > 0 THEN SFLAG = 1: REM FLASH 10. . .SELL OUT FLAG NEXT PERIODd0KO;EFL$@c9 SFLAG?Z1\"MPAY = EMPL * SAL: REM MIN PAYROLLғD9#%MPAY/EMPLSALZEfsIF DE(1) > = MPAY ThEN NEMP = NEMP + INT((DE(1) - MPAY) / 10) + INT ( RND ( 10)): REM ADDED EMPLOYEES0s<.DE?FMPAY9dGQNEMP[NEMPnDE?MPAY $@@$@l@Z`phIF DE(1) < MPAY THEN LEMP = LEMP + INT ((MPAY - DE(1)) / SAL) + INT ( RND (4)):REM LOST EMPLOYEES0h<.DE?FMPAY 9d@QLEMP[LEMPeMPAYzDE? SAL@@l@ZV&zSIF LEMP > (EMPL + NEMP) THEN LEMP = EMPL +NEMP: REM AVOID NEGATIVE EMPLOYEESWt0[S?%LEMP/EMPLINEMPs9$TLEMP^EMPLNEMPZ7EMPL = EMPL + NEMP - LEMPtHI90%EMPL/EMPL;NEMPLEMP V *FLTN = RND (3) : REM INFLATION 1-3%*?.9FLTN@lZo`UCST = UCST +(UCST * (FLTN / 100)):SAL = SAL + (SAL * (FLTN / 100)): REM INFLATION EFFECT79;"%UCST/UCST9UCST]FLTNY@98#'gSALpSALySALFLTNY@ZL*)HPFT = RND(250) + 500: REM EXCESS PROFITJ.9)HPFT@o@l@@Z\PFT = REV - DE(l)- MCST - DE(3) - RCST: REM PROFIT = REV - PAYROLL - MFG - ADVTSG - Rдu9T&$PFT-REV6DE>  JMCST _DE@ RCST Z(4i8PFT = INT (PFT)D6-9$PFTPFT@^IF PFT > HPFT THEN VTAB 12: HTAB 30:: PRINT "STRIKE! Excess profits of $ ";PFT;" cause": HTAB 30: PRINT "employee and supplier complaints." 02$PFTHPFT{ (@/ >@S:&1STRIKE! Excess profits of $ PFT cause / Y>@S)b)!employee and supplier complaints. KIF PFT > HPFT THEN HTAB 30:: PRINT "Employee costs rise by $1.00 per un it"J{0bK2$PFTHPFTz/ >@S..&Employee costs rise by $1.00 per un it IF PFT > HPFT THEN HTAB 30::PRINT "and profits are reduced by 50%" :PFT= INT (PFT / 2):SAL = SAL + 1: VTAB 18: INVERSE : PRINT " TO CONTINUE:";: NORMAL : INPUT " "; XX$: VTAB 18:2>0%2$PFT|HPFT=/ >@S&&and profits are reduced by 50% 9(DPFTPFT@@9!W SAL#SAL?{ f2@4oSy TO CONTINUE:42 XX{ 2@CASH = CASH + PFT <9#%CASH/CASHPFTCASH = INT (CASH) :UCST = INT (UCST * 100+ .5)/ 100:FLTN = INT (FLTN * 100 + .5)/ 100:SAL = INT (SAL * 100 + .5)/ 100:PFT = INT (PFT):MCST = INT (MCST):IVTY =INT (IVTY):PSALE = INT (PSALE) /9%CASHACASHl@9@ LUCSTUCSTY@?@Y@9@4!FLTNFLTNY@?@Y@9>VSALSALY@?*@Y@9v!PFT<PFTQ@9GMCSTcMCSTx@9nIVTYIVTY@9!PSALEPSALE@(IF CASH < = 0 THEN GOSUB 100: VTAB 12:HTAB 30: PRINT "OUT OF CASH! You must": HTAB 30: PRINT "sell 50% of production":HTAB 30: PRINT "capacity to replenish cash ($1000).": HTAB 30;02CASH+  d{ (@/ &>@S/OUT OF CASH! You must / N>@SWsell 50% of production / v>@S++#capacity to replenish cash ($1000). / >@PRINT "Cash balance is: $";CASH?2S&Cash balance is: $CASH ?%IF CASH < = 0 ThEN HTAB 30: PRINT " to sell:";: INPUT " "; XX$:CASH = CASH + 1000 :PRDN = PRDN / 2:PRDN = INT (PRDN * 100 + .5) / 100: IF CASH < 0 THEN 1010: REM STILL NEGATIVE-WE0>2tCASHV/ >@S to sell:28 XX9#GCASHCASH@@9#[PRDNPRDN@9@k"PRDN%PRDNY@?@Y@04)<CASH V, Z`IF EMPL < = 0 THEN GOSUB 100: VTAB 12:HTAB 30: PRINT "Youve lost all your people. You must ": PRINT "spend 50% of your cash balance of $" ;CASHJ ;02EMPL+  d{ (@/ &>@S./.&Youve lost all your people. You must S7_1#spend 50% of your cash balance of $CASH lDIF EMPL = 0 THEN HTAB 30: PRINT "to hire new people at 30% premium."ݿw0^D2EMPL v/ >@S**"to hire new people at 30% premium. #+IF EMPL = 0 ThEN HTAB 30: PRINT " to hire new people.";: INPUT " "; XX$:CASH = INT (CASH / 2):EMPL = INT (CASH/(SAL * 1.30)):DE(1) = DE(1) + CASH:NEMP = NEMP + EMPLf a0H2EMPL `/ >@S#% to hire new people.2A XX9*PCASHCASH@@95fEMPLCASHSAL?@96DE?'DE?>CASH9$INEMPSNEMPEMPL $IF PRDN < .5 THEN GOSUB 100: VTAB 12:HTAB 30: PRINT "Youve gone into negative cash": HTAB 30: PRINT "for the last time. Youre bankrupt!": HTAB 30: PRINT " for Directors Report.";: INPUT " "; XX$:BK = 17P;072*PRDN? O+  d{ (@/ %>@S&.&Youve gone into negative cash / V>@S+_+#for the last time. Youre bankrupt! / >@S%' for Directors Report.2 <XX9BK?I&.RETURNb8REMZBREMZL: REM [ FLASH REPORTS IDZV*FOR F = 1 TO 10:F$(F) = "":FL(F) = 0: NEXT'#E?$@?9  MFb9 kFLG&`FA = RND (20) + 1: REM 1-20JEH,9'FA4@l?Z<jgIF FA > 10 THEN F$(1) = "FLASH Report: Industry is stable for":F$(2) = "the current period.": GOTO 1240 0g0:FA$@9=. F?$FLASH Report: Industry is stable for9,? F@the current period., ^ cK tIF FA = 1 THEN FL(1) = RND (100) + 125:F$(1) = "FLASH Report: FIRE in the plant. The" :F$(2) = "production is cut by 50% while repairs":F$(3) = "are made. The cost to restore your" :F$(4) = "production is: " + STR$ (FL(1)): GOTO 1240W00:FA? 92tFL?Y@{l@_@9=.. F?$FLASH Report: FIRE in the plant. The9?^0 F@&production is cut by 50% while repairs9;, CF@"are made. The cost to restore your9D( hF@production is: FL?{, 2:~IF FA = 2 THEN FL(2) = RND (20) + 10:F$(1) = "FLASH Report: Transportation shutdown!":F$(2) = STR$ (FL(2)) + "% of sales cannot be shipped. Your" :F$(3) = "customers cancel orders!": GOTO 1240v\RW0C0:FA@ [92tFL@4@l$@9?,0 F?&FLASH Report: Transportation shutdown!9W]; F@FL@{"% of sales cannot be shipped. Your91" F@customers cancel orders!, N+IF FA = 3 THEN FL(3) = RND (15) + 20:F$(1) = "FLASH Report: Major government order!":F$(2) = "Entire inventory sells out at $" + STR$ (FL(3)): GOTO 1240 W00:FA@ 92tFL@.@l4@9>,/ F?%FLASH Report: Major government order!9T\8 F@Entire inventory sells out at $FL@{, 9>B/ F?%FLASH Report: Quality defects require9>r+ /F@rework with added cost of 5DAL9&XFL@rAL9" F@ per unit., l2IF FA = 7 THEN FL(7) = RND (15) + 10:F$(1) = "FLASH Report: Layoff in neighboring" :F$(2) = "plant. " + STR$ (FL(7)) + " more employees are hired" :F$(3) = "and ready to produce next quarter.": GOTO 1240yMf\W0M0:FA@ e92tFL@.@l$@9<,- F?#FLASH Report: Layoff in neighboring9Z[E F@plant. FL@{ more employees are hired9;, F@"and ready to produce next quarter., 7/IF FA = 8 THEN FL(8) = RND (11)+ 5:F$(1) = "FLASH Report: Competitor raids your":F$(2) = "company and" + STR$ (FL(8)) + " employees resign.": GOTO 1240G W00:FA @ 92tFL @&@l@9<#- F?#FLASH Report: Competitor raids your9WQ; F@ company andFL @{ employees resign., ֮IF FA = 9 THEN FL(9) = RND (11) + 20:F$(1) = "FLASH Report: Widgets wins advertising" :F$(2) = "award! Market demand rises by " + STR$ (FL(9)) + "%.": GOTO 1240V &W0 0:FA"@ %92tFL"@&@l4@9?%0 F?&FLASH Report: Widgets wins advertising9ZW> F@award! Market demand rises by FL"@{%., 7IF FA = 10 THEN FL(10) = 1:F$(1) = "FLASH Report: Major order received!":F$(2) = "Total inventory can be sold at $29.95" :F$(3) = "next period with no advertising expense": GOTO 1240G=30$0:FA$@ <9  bFL$@?9<- F?#FLASH Report: Major order received!9>I/ F@%Total inventory can be sold at $29.959@z1 F@'next period with no advertising expense, ()3VTAB 12: FOR F = 1 TO 5: HTAB 30: PRINT F5(F): NEXT++{ (@'# j?@?/ >@S" sF5 G/`pREM VTAB 18: HTAB 30: INVERSE : PRINT " TO CONTINUE:";: NORMAL : INPUT " "; XX$: VTAB 18: VTAB 1:ZpRETURNb ": REM [ CALCULATE BUSINESS INDEXESۜZ f: REM [PRICE SENSITIVITY]~ZZ(;X = 100: FOR F = 1 TO 6:PZ(F) = X: IF F < 3 THEN X = X - 15i93Y@'# _?@?9 hPZo06#@ 91 .@ 2IF F >= 3 THEN X=X- 103O06-7@N9=$@ |<NEXTGF@ TEMP = RND (7) + 1:TEMP = TEMP + 5: REM RANGE 5-12u.9)KTEMP@l?9#VTEMPTEMP@Z2%P6 PC(1) = 9.95:PC(7) = 29.95:PC(4) = TEMP + 9.95:;(9  BPC?gffff#@9  jPC@33333=@9,"~PC@TEMPgffff#@ޝZ2PC(6) =29.95 - ((PC(7) - PC(4)) / 2)n9U27PC@33333=@JPC@PC@ @ od#PC(2) =9.95 + ((PC(4) - PC(1)) / 2)jn9U#7PC@gffff#@JPC@PC? @n2PC(3) =PC(2) + ((PC(4) - PC(2)) / 2)^x9_2.PC@APC@TPC@PC@ @?x2PC(5) =PC(4) + ((PC(6) - PC(4)) / 2)x9_2.PC@APC@TPC@PC@ @M<TEMP = RND (5) + 2: REM RANDOM LINE St 2-6 FOR MARKET WINDOW%J.9)TEMP@l@Z(' PZ(TEMP) = 50 + INT ( RND ( 50))1SA9: #PZTEMPI@I@Hl@5 : REM ADVTSG INDEX.NZ 9X = 10: FOR F = 2 TO 8:AI(F) = X: IF F 4 THEN X=X+10G$O06-7@N9 =$@Z|NEXTG&TEMP = RND (50) + 75: REM RANGE 75-124VJ.9)TEMPI@lR@Z AD(4) = TEMP &:9! .AD@TEMP2k AD(1) = 25:AD(8) = 200La9  BAD?9@9  AD @i@- AD(2) = 25 + INT ((AD(4) - AD(1)) / 2)Fuj9\&7AD@9@JAD@AD? @@Vo0 AD(3) = INT ((AD(4) - AD(2)) / 2) + AD(2)a9f).AD@AAD@hAD@ @@AD@Ga5AD(6) = INT((AD(8)- AD(4)) / 2) + AD(4)a9f5.AD@AAD @hAD@ @@AD@t=AD(5) = INT((AD(6) - AD(4)) / 2) + AD(4)T!a9f=.AD@AAD@hAD@ @@AD@r=AD(7) = INT((AD(8) - AD(6)) / 2) + AD(6)."a9f=.AD@AAD @hAD@ @@AD@|<TEMP = RND (6) + 2: REM RANDOM LINE St 2-7 FOR MARKET WINDOWZJ.9)TEMP@l@Z(C" AI(TEMP) = 50 + RND (50)\LA93#AITEMPI@I@l:,REMZ6: REM [R&D INDEX]%Z@ AMT = 30-/9AMT>@8JFOR F = 1 TO 5<'#?@?T TEMP = (F * 25) + 251?B9)%TEMP9@9@ m^ RD(F) = TEMP + RN=@9'#RD*4TEMPRNܑh, RN = RND (25) + 1:RD(F) = RD(F ) + RNCt,9'IRN9@l?9,RRDYbRDhRNtr* RI(F) = AMT:AMT = INT((AMT - 15)/2)pg9 #RI*>AMT93HAMTAMT.@ @@x|NEXT FG REMZ : REM [PRICE/AD IMPACT]#sZ 9 PAD = INT ( RND ( 30)) + 40:APR = 100 - PAD(q-9/QPAD>@4l@D@9!#dAPRY@PAD ~RETURNbREMZREMZ: REM [MARKET REPORT] >ZU RP = 0.9RP VTAB 17: REM+{ 1@Z $VTAB 18: IF (MKT * 1.25) > CASH + 20 THEN PRINT "You dont have enough cash to buy the Market Report. to continue:";: INPUT " "; XX$:MKT$ = "N": GOTO 1780b-{ 2@0 ZAMKT?CASH4@SQ*SJYou dont have enough cash to buy the Market Report. to continue:2 XX9 MKTN, }VTAB 18: PRINT"Do you wish to purchase the Market Report for $";MKT;: PRINT "K? Y/N:";: INPUT " "; MKT$: PRINT MK$;: IF MKT$ < > "Y" AND MKT$ < > "N" AND MKT$ < > "y" AND MKT$ < > "n" THEN 1770a{ 2@SA ;/Do you wish to purchase the Market Report for $MKTSFK? Y/N:2X MKTS i MK0YuLMKTY MKTN MKTy MKTn , lVTAB 18a#{ 2@)IF MKT$ = "Y" OR MKT$ = "y" THEN RP = MKT[0B)=*MKTY GMKTy Z9!PRPMKTh MKT = MKT * 1.25:MKT = INT (MKT)s_V9!$MKTCMKT?9MMKTMKT@w,IF MKT$ < > "Y" AND MKT$ < > "y" THEN RETURNPF0-,=*MKTY MKTy Eb&# HOME: VTAB 10+{ $@&AVTAB 1: PRINT "R&D Index.... Price Index Advertising Index"d{ ?S991R&D Index.... Price Index Advertising Index 0FOR F = 1 TO 8<'#? @? :REMZDpIF F < = 5 THEN AL = RD(F): GOSUB 130:HTAB 3 - AA: PRINT AL$;:AL = RI(F): GOSUB 130: HTAB 8 - AA: PRINT AL$;"%";oY0p-7@9 @ALIRDt+  "/& @AA S 3 AL9> ALRI+ J P/U  @AA SbAL%y N#IF F = 7 THEN PRINT "Price/Ad Mix";?I00#-@ HS Price/Ad MixpGXpIF F = 8 THEN AL = PAD: GOSUB 130: HTAB 3 - AA: PRINT AL$;"%"; :AL = APR: GOSUB 130: HTAB 9 - AA: PRINT AL$;"%";cS0p-7 @ 9@ALnPAD+  /# @AA S0AL%9@ALAPR+ J P/U "@AA SbAL% bnIF F < = 7 THEN AL = PC(F): GOSUB 160:HTAB 24 - AA: PRINT AL$;:AL = PZ(F):GOSUB 130:: HTAB 29 - AA: PRINT AL$;bY0n-7@9 @ALIPCt+  "/& 8@AA S 4 AL9? ALPZ+ J P/V =@AA S d AL^ laAL = AD(F): GOSUB 130: HTAB 47 - AA:PRINT AL$;:AL = AI(F): GOSUB 130: HTAB 51 - AA: PRINT AL$;"%"@ <9 #AL,ADW+ / G@lAA S $ AL9/ ALAI+ ; A/F I@AA ST AL% Fv NEXT FG= VTAB 17: PRINT "Market Report..:";: HTAB 18: PRINT RP: i^{ 1@SMarket Report..:/ +2@S 4RP ]REM VTAB 18:: INVERSE : PRINT "PRINT MARKET REPORT? Y/N:";: NORMAL : INPUT " "; XX$: VTAB 18: Z]A *REM IF XX$ = "Y" OR XX$ = "y" THEN A=A:REMMZ* VTAB 18:#{ 2@RETURNbREMZREMZ: REM [ ENTER DECISIONSFZ3VTAB 10:: FOR F = 1 TO 76: PRINT "=";: NEXT : PRINT1r+{ $@'# ?S@?S =G'S. ׉4 VTAB 11: POKE 1403,2: PRINT "[[ DECISIONS ]]"JM^{ &@Q @@S[[ DECISIONS ]] V GOSUB 100#+  d 6 VTAB 12: PRINT "Payroll ": PRINT "Price: ": PRINT "Advertising....: ": PRINT "Production(k)..:": PRINT "Research & Dcv.:">% { (@SPayroll S"Price: S3Advertising....: SNProduction(k)..: ShResearch & Dcv.: -4 3VTAB 12: FOR F = 1 TO 5: HTAB 18: PRINT DE(F): NEXT.+{ (@'# j?@?/ 2@S" sDE G/$-VTAB 12: FOR F = 1 TO 5: HTAB 18: INPUT" ";X$_w+{ (@'# o?@?/ 2@2"  X- !IF X$ <> "" THEN DE(F) = VAL (X$)oSJ0:!)3X R9!<DECXN&VTAB 12 + (F - 1): HTAB 18:PRINT DE(F)c"{(@Q? / 2@S ZDE {  NEXTG*IF DE(4) > (EMPL * PRDN) THEN VTAB 18:PRINT "You dont have enough employees to produce: ";DE(4);:PRINT ". Press RETURN:" ;: INPUT " "; XX$:: VTAB 18:: GOTO 2030X 0H.DE@8EMPLPRDN{ 2@SH&;,You dont have enough employees to produce: DE@Sb. Press RETURN:2} XX{ 2@, 42HIT = 0: FOR F = 1 TO 5: IF DE(F) < 0 THEN HIT = F 97HIT'# d?@?09mDE 9+HIT\>NEXTGHIF HIT > 0 ThEN VTAB 18: PRINT "You cannot enter a negative number for decisions. Press RETURN:";: INPUT " "; XX$: VTAB 18: GOTO 2030 :REMva 01HIT{ 2@SFH?You cannot enter a negative number for decisions. Press RETURN:2c XX{ s2@, | ZRIF DE(1) = 0 OR DE(2) = 0 OR DE(4) = 0 THEN VTAB 18: PRINT "You must use a positive number for Payroll, Price & Prodn. Press RETURN:";: INPUT " "; XX$: VTAB 18:: GOTO 2030"0 {9DE? YDE@ DE@ !{ ,2@SP5RIYou must use a positive number for Payroll, Price & Prodn. Press RETURN:2 XX{ 2@, $\IF (DE(1) + DE(3) + DE(5) + RP) > CASH THEN VTAB 18: PRINT "You dont have enough cash to pay for these decisions. Press RETURN:";: INPUT " "; XX$:: VTAB 18:: GOTO 2030C0p.DE?CDE@XDE@bRPCASH{ ,2@SK5MDYou dont have enough cash to pay for these decisions. Press RETURN:2 XX{ 2@, fX VTAB 18: INVERSE : PRINT " TO ACCEPT... R TO REENTER:";: NORMAL:INPUT " "; XX$:2v{ 2@4 S*,# TO ACCEPT... R TO REENTER:4B2I XXp REM VTAB 18x Z z1IF XX$ = "R" OR XX$ = "r" THEN VTAB 18: GOTO 2030" `V0G1;)XXR XXr _{ 2@, ( -\RETURNbREMZREMZ: REM [ DISPLAY STATUShBZjvVTAB 19: HTAB 1:: VTAB 19: PRINT : PRINT "Qtr Empl Invty $Cash $Unit Prodn Infln Salary $Profit"{ 3@/ ?{ 3@S SS#SKQtr Empl Invty $Cash $Unit Prodn Infln Salary $Profit  )FOR F = 1 TO 76: PRINT "=";: NEXT : PRINT|`'#?S@?S =GS$ : PRINT QTR; :AL = EMPL: GOSUB 130: HTAB 12 - AA: PRINT AL$;:AL = IVTY:GOSUB 130: HTAB 22 - AA: PRINT AL$;:AL= CASH: GOSUB 130: HTAB 32 - AA: PRINT AL$; FLS  /QTR9 8ALgEMPL+  /$ (@|AA S 2 AL9= ALIVTY+ G M /R 6@AA S ` AL9kAL'CASH+ | / @@<AA S ALAL = UCST: GOSUB 170: HTAB 40 - AA: PRINT AL$; :AL = PRDN: GOSUB 160: HTAB 48 - AA: PRINT AL$;:AL = FLTN:GOSUB 170: HTAB 56 - AA: PRINT AL$;179 #ALRUCST+ / D@gAA S $ zAL90 ALPRDN+ ; A/F H@AA S T AL9_ ALFLTN+ i o/t L@'AA S AL"cAL = SAL: GOSUB 170: HTAB 65 - AA: PRINT AL$; :AL = CPFT: GOSUB 130: HTAB 76 - AA: PRINT AL$r69#ALQSAL+ / @P@fAA S # yAL9/ ALCPFT+ : @/E S@AA S Z AL 4 RETURNzb#REMZREMZ REM [ FINAL LETTERNZ HOMEw  & PRINT "Mr/Ms President!": PRINT <SMr/Ms President! S!  ] PRINT "Over your ";TM;" quarters in office, you produced the following results:":PRINT}*SYP Over your TM8 quarters in office, you produced the following results: SX $ WAL = CREV / TM: GOSUB 160: PRINT " Average Revenue ";: HTAB 40 - AA: PRINT "$";AL$xA9 #AL-CREVTM+  S Average Revenue /< D@AA SJ $AL .. `AL = CPFT / TM:AV = AL: GOSUB 160: PRINT " Average Profit " ;: HTAB 40 - AA : PRINT "$";AL$&]9 #AL-CPFTBTM9KAVAL+  S# Average Profit /D D@AA SS $AL j8 u AL = INT((CLEFT / CEMP) * 100):TRN = AL: GOSUB160: PRINT " Average Turnover..,.";: HTAB 40 - AA: PRINT AL$;"%"sE95#AL.CLEFTWCEMPY@@9&aTRNAL+ 05S: Average Turnover..,./Z D@AA Sh AL% " B s AL = (CPFT / CREV) * 100:MGIN = AL: GOSUB 160: PRINT " Average Profit Margin ";: HTAB 40 - AA: PRINT AL$;"%"9yl9-#AL-CPFTOCREVY@9 ZMGINAL+ + 1S6  Average Profit Margin /X D@AA Sf AL% !' L AL = (CASH + (IVTY * UCST)) / (750+ (50 *TM)):AL = ((AL * 100) - 100) / TM:AASET = AL: GOSUB 160: PRINT " Average Asset Return";: HTAB 40 - AA: PRINT AL$;"%" /9N-#AL-CASH7IVTYWUCSTp@I@pTM945yALALY@Y@ TM9R AASET AL+ ^ dSi Average Asset Return/ D@AA S AL% TV FIF MGIN > = 20 THEN MG$ = "is outstanding! Keep it up!" :RVW = RVW + 4+0uF2<MGIN4@9*#nMGis outstanding! Keep it up!9!9 xRVWRVW@4` [IF MGIN > = 10 AND MGIN < 20 THEN MG$ = "is very good. Good expense control!":RVW = RVW + 30[I0MGIN$@SMGIN4@ 92"+MG#is very good. Good expense control!9!N RVWRVW@D j n IF MGIN > = 5 AND MGIN < 10 THEN MG$ = "could be better. Analyze your decisions better." :RVW = RVW + 20gI0MGIN@SMGIN$@ 9>(7MG/could be better. Analyze your decisions better.9!a RVWRVW@E t 9IF MGIN < 5 THEN MG$ = "is miserable. You can do better!"j0Q92<MGIN@ i9/(MG is miserable. You can do better!Dw~ FIF TRN < = 5 THEN TRN$ = "is excellent. Keep it moving!":RVW = RVW + 3t0wF1;TRN@9-&pTRNis excellent. Keep it moving!9!9 zRVWRVW@ d IF TRN >5 AND TRN <=10 THEN TRN$="is acceptable. Watch your payroll carefully!":RVW = RVW + 240]G/TRN@QTRN$@9<#3TRN,is acceptable. Watch your payroll carefully!9!W RVWRVW@ > b IF TRN >10 ANDTRN <=15 THEN TRN$="is marginal. Pay attention to your people!":RVW = RVW + 1Ϋ0[G/TRN$@QTRN.@9:#1TRN*is marginal. Pay attention to your people!9!U RVWRVW?X MIF TRN > 15 ThEN TRN$ = "is very poor. You need more organization stability,"}0dM1;TRN.@|9C<TRN3is very poor. You need more organization stability,| k IF AASET > = 35 THEN AAS$ = "is brilliant. Were delighted with the investment!":RVW= RVW + 3S0d3=AASETA@9B;AAS2is brilliant. Were delighted with the investment!9!XRVWRVW@X aIF AASET > = 25 AND AASET < 35 THEN AAS$ = "is acceptable... but watch your cash." :RVW = RVW + 2/0aK1AASET9@UAASETA@ 95$.AAS%is acceptable... but watch your cash.9!T RVWRVW@X `IF AASET > = 12 AND AASET < 25 THEN AAS$ = "is marginal, Were frankly concerned.":RVW = RVW + 1j0`K1AASET(@UAASET9@ 95$.AAS%is marginal, Were frankly concerned.9!S RVWRVW? MIF AASET < 12 ThEN AAS$ = "is unacceptable. Our investment is disappointing." }0dM3=AASET(@ |9A:AAS1is unacceptable. Our investment is disappointing.3 vIF BK = 1 THEN PRINT : PRINT "With these results, youve taken the company into bankruptcy!": PRINT:RVW = 0: GOTO 2570L>0v0BK? S SEE=With these results, youve taken the company into bankruptcy! S^ 9dRVW, m r( 2PRINT : PRINT "Your profit margin management ";MG$CTIS S0*Your profit margin management MG  + PRINT "Your people management ";TRN$y%C7S*$Your people management TRN  * PRINT "Your asset management ";AAS$B6S)#Your asset management AAS  PRINT : IF RVW > = 7 THEN PRINT "Youve done an excellent job in running Widgets Corp. Wed like to hire you": PRINT "for an other term with a bonus of $"; :AL = INT (AV / 2): GOSUB 130: PRINT AL$;",000!"gw)&S 0<RVW@(SSSKYouve done an excellent job in running Widgets Corp. Wed like to hire you S*o,#for an other term with a bonus of $9&ALAV@@+ SAL,000! I IF RVW > = 4 AND RVW < 7 ThEN PRINT "Youve done an adequate job with the company. Were willing to renew your": PRINT "contract for another term, but we suggest that you pay more attention": PRINT "to the market reports."&!0G/RVW@RVW@ SQQIYouve done an adequate job with the company. Were willing to renew your SMqMEcontract for another term, but we suggest that you pay more attention Sto the market reports. e- IF RVW < 4 ThEN PRINT "Youve really done a pitiful job with the assets and resources of the company.": PRINT "We wont be asking you to renew your contract.. and please close the door": PRINT "on your way out."z= 01RVW@ SVVNYouve really done a pitiful job with the assets and resources of the company. SQhQIWe wont be asking you to renew your contract.. and please close the door Son your way out. f' PRINT : PRINT "The Directors"9S S The Directors  RETURNb( REMZ2 REMZ< : REM [ INTRODUCTIONi7Z@F  REM SETUP SCREEN PRINT@S$$**************************** / >>@S$h$* WIDGETS CORPORATION * ud HTAB 30: PRINT "* A business simulation *": HTAB 30: PRINT "* by Alexander Laird *": HTAB 30: PRINT "****************************"/ >@S$$* A business simulation * / >>@S$h$* by Alexander Laird * / >@S$$****************************  n VTAB 10: HTAB 30: PRINT " Copyright 1989": HTAB 29: PRINT " by MindCraft Publ. Corp.": PRINT : HTAB 25: PRINT " TO BEGIN.. .S)KIP COMMENTS:";: INPUT " "; XX$: HOME: IF XX$ = "S" OR XX$ = "s" THEN 3080՗<2{ $@/ >@S Copyright 1989 / +=@S!4! by MindCraft Publ. Corp. S^ / f9@S+o-$ TO BEGIN.. .S)KIP COMMENTS:2  XX05#)XXS XXs ;,  8x SPRINT "CONGRATULATIONS! You have been elected President of Widget Corporation. In":kSRRJCONGRATULATIONS! You have been elected President of Widget Corporation. In lVPRINT "this important job, youll select a contract term for decision-making and then"oSVVNthis important job, youll select a contract term for decision-making and then  BPRINT "make a series of management decisions each quarter:": PRINT_S;;3make a series of management decisions each quarter: S= ? 7PRINT " Payroll $8(000) per employee per quarter"MPS77/ Payroll $8(000) per employee per quarter F  &PRINT " Price $9.95 to $29.95":?S&& Price $9.95 to $29.95 `  %PRINT " Advertising.. $0 to 200(000)">S%% Advertising.. $0 to 200(000) Q UPRINT " Production... Depends on the number of employees and their unit productivity"5nSUUM Production... Depends on the number of employees and their unit productivity b &PRINT " R&D $0 to $200(000)"2~?S&& R&D $0 to $200(000) h PRINT : PRINT "Widgets are high-tech appliances found in homes and offices. Although they": PRINT "have a low cost, they take expensive, skilled labor. If you pay less than the"4S SRRJWidgets are high-tech appliances found in homes and offices. Although they SU\UMhave a low cost, they take expensive, skilled labor. If you pay less than the  PRINT "$8(000) PER EMPLOYEE per quarter, some employees will leave for other jobs. If": PRINT "you pay more, then new employees will join the company and begin producing in"SVVN$8(000) PER EMPLOYEE per quarter, some employees will leave for other jobs. If SU_UMyou pay more, then new employees will join the company and begin producing in  PRINT "the following quarter.": PRINT: PRINT "Each employee can initially produce 2(000) Widgets per quarter. However other ": PRINT "Industry factors such as technology advances, strikes, and damaged goods can"aSthe following quarter. S  SV'VNEach employee can initially produce 2(000) Widgets per quarter. However other STTLIndustry factors such as technology advances, strikes, and damaged goods can Ch& 3PRINT "affect manufacturing cost and productivity."CLS33+affect manufacturing cost and productivity. G PRINT : PRINT " for next page:";:INPUT " "; XX$: HOME : PRINT "When you start a new quarter, a variety of price, cost, advertising, and R&D" QS S  for next page:2) XX9ST@TLWhen you start a new quarter, a variety of price, cost, advertising, and R&D 5 PRINT "tables are automatically created. These tables are used with your decisions to": PRINT "to produce the company performance results." SVVNtables are automatically created. These tables are used with your decisions to S3X3+to produce the company performance results.  PRINT : PRINT "For example: there are built-in advertising and pricing demand tables The": PRINT "lower your price, the more youll sell. But be careful not to sell below cost"S SQQIFor example: there are built-in advertising and pricing demand tables The SUbUMlower your price, the more youll sell. But be careful not to sell below cost  PRINT "or youll lose money. And if you price above $29.95, you wont sell a single ": PRINT "Widget. Similarly, your advertising expenditures affect the percentage of your"~SUUMor youll lose money. And if you price above $29.95, you wont sell a single SVWVNWidget. Similarly, your advertising expenditures affect the percentage of your z +PRINT "inventory that is sold each quarter"HDS++#inventory that is sold each quarter j PRINT : PRINT "You can buy a special Executive Market Report to display the index tables for": PRINT "the current quarter. It costs $50(000) and the price rises by 25% each quarter."SS SUUMYou can buy a special Executive Market Report to display the index tables for SW_WOthe current quarter. It costs $50(000) and the price rises by 25% each quarter. " PRINT : PRINT "Research & Development expense affects the unit cost impact curve. If you spend": PRINT "more, your cost will go down. Spend less and the cost rises. You can affect"*S SWWOResearch & Development expense affects the unit cost impact curve. If you spend SSaSKmore, your cost will go down. Spend less and the cost rises. You can affect ¥, PRINT "the unit cost (up or down) by up to 30% per quarter.": PRINT : PRINT "There is also an inflation factor that affects the payroll expense between"S<<4the unit cost (up or down) by up to 30% per quarter. S> SRFRJThere is also an inflation factor that affects the payroll expense between &*6 PRINT "1% to 3% per quarter. If you dont keep pace with inflation in your payroll": PRINT "then more employees will leave the company."e SSSK1% to 3% per quarter. If you dont keep pace with inflation in your payroll S3\3+then more employees will leave the company. x@ ? PRINT : PRINT " for next page:";: INPUT " "; XX$ ZQS S  for next page:21 XX J [HOME : PRINT "Heres an example of how the demand curves work using the Price Index": PRINTomySMMEHeres an example of how the demand curves work using the Price Index SV _K 8PRINT "Price Index R&D Index Price/Ad Mix"BQS880Price Index R&D Index Price/Ad Mix pT 7PRINT " 9.95 100% 74 30% 60% 40%":#OS66. 9.95 100% 74 30% 60% 40% qU "PRINT " 15.45 85% 118 15%":C]:S!! 15.45 85% 118 15% V "PRINT " 18.20 70% 132 0%":Y:S!! 18.20 70% 132 0% ?W #PRINT " 20.95 67% 145 -15%":Tc;S"" 20.95 67% 145 -15% X "PRINT " 23.20 50% 162 -30%"7Z;S"" 23.20 50% 162 -30% `^ PRINT " 25.45 40%",S 25.45 40% J_ PRINT " 29.95 0%",S 29.95 0% Hh PRINT : PRINT "With this index, if you set the price at $18.20 to $20.94, youll sell 70%": PRINT "of the inventory that is affected by price. In addition, the Price/Ad Index"S SRRJWith this index, if you set the price at $18.20 to $20.94, youll sell 70% SScSKof the inventory that is affected by price. In addition, the Price/Ad Index ur PRINT "shows the relative influence of price and advertising for the quarter. In the": PRINT "quarter shown, pricing affects 60% of sales and advertising affects only 40%"8SUUMshows the relative influence of price and advertising for the quarter. In the ST^TLquarter shown, pricing affects 60% of sales and advertising affects only 40% J| PRINT : PRINT "With the R&D Index, if you spend $1 to 117K your unit cost will rise 30%. If": PRINT "you spend $145 to 161K, y our unit manufacturing cost will be reduced by 15%."S STTLWith the R&D Index, if you spend $1 to 117K your unit cost will rise 30%. If SU^UMyou spend $145 to 161K, y our unit manufacturing cost will be reduced by 15%. 3( PRINT : PRINT "These indexes as well as an advertising index are shown when you purchase the": PRINT "special Market Report. The information can have a dramatic effect on results,"S SUUMThese indexes as well as an advertising index are shown when you purchase the SUfUMspecial Market Report. The information can have a dramatic effect on results, Z > PRINT : PRINT " for next page:";:INPUT " "; XX$hZQS S  for next page:20 XX  HOME : PRINT "You can also be affected by strikes if you have excessive profits. When you": PRINT "have a strike, it costs 50% of the current quarter profits to settle it, plus"OSSSKYou can also be affected by strikes if you have excessive profits. When you SU\UMhave a strike, it costs 50% of the current quarter profits to settle it, plus  F PRINT "double the normal inflation effect in salary increases."FiXS??7double the normal inflation effect in salary increases.  PRINT : PRINT "Widgets market has severaI advertising and pricing holes where special": PRINT "promotions may sell out inventory at a relatively high price. But youll have"TS SQQIWidgets market has severaI advertising and pricing holes where special SUbUMpromotions may sell out inventory at a relatively high price. But youll have  * PRINT "to experiment to find them."t#<S##to experiment to find them.  PRINT : PRINT "When you have entered your decisions for Payroll, Price, Advertising, Research": PRINT "and Production, your results for the current quarter will be displayed."44S SVVNWhen you have entered your decisions for Payroll, Price, Advertising, Research SOnOGand Production, your results for the current quarter will be displayed. / PRINT : PRINT "Each quarter, your results will also be affected by FLASH news reports that": PRINT "can be windfalls or setbacks with: major orders, fire, advertising awards, etc."S SSSKEach quarter, your results will also be affected by FLASH news reports that SW]WOcan be windfalls or setbacks with: major orders, fire, advertising awards, etc.  PRINT : PRINT "At the end of your term of office, youll receive a performance review by the": PRINT "Board of Directors based on your profitability, return on assets, and employee"S SUUMAt the end of your term of office, youll receive a performance review by the SV_VNBoard of Directors based on your profitability, return on assets, and employee  ~ PRINT "management skills.": PRINT : PRINT "Enjoy! And GOOD LUCK!": PRINT : PRINT "< RETURN> to begin:";: INPUT " "; XX$/Smanagement skills. S# S+Enjoy! And GOOD LUCK! SJ SR< RETURN> to begin:2p XXA REMZ REMZ  : REM [ SETUP MENU IXZ  l BK = 0:QTR = 1:EMPL = 50:IVTY = 50:CASH =750:UCST = 12.00:PRDN = 2:FLTN = 1:SAL = 8:CPFT = 0:MKT = 50"a97BK9UQTR?9 tEMPLI@9 IVTYI@9* CASHp@94 UCST(@9APRDN@9JFLTN?9S-SAL @9[LCPFT9dMKTI@: HOME : VTAB 12: HTAB 20: PRINT "Welcome to Widget Corp. Mr/Ms President!": HTAB 20: INPUT "How many Quarters will you serve? ( 2-12):";TM$:TM = VAL (TM$): IF TM < 2 THEN 3090A{ (@/ 4@S00(Welcome to Widget Corp. Mr/Ms President! / K4@29T6*How many Quarters will you serve? ( 2-12):TM9TMTM0* TM@ ,  Ku REMZ& REMZ0 ) : REM [ MAIN CONTROL LOOP ]Z : HOMEw D 2 GOSUB 1320: REM BUILD INDEXES ++ (ZN 3 GOSUB 2220: REM DISPLAY STATUSB$++ Z%-X 2 GOSUB 1740: REM MARKET REPORT++ Z/b 4 GOSUB 2000: REM ENTER DECISIONS|,++ Z0l 1 GOSUB 1110: REM FLASH REPORT++ VZ $v 3 GOSUB 490: REM CALC OPERATING RESULTSE++ ZK2 ` CREV = CREV + REV:CPFT = CPFT + PFT:CLEFT = CLEFT + LEMP:CEMP = CEMP + EMPL9#%CREV/CREVEREV9# PCPFTZCPFTpPFT9&2|CLEFTCLEFTLEMP9$NCEMPCEMPEMPLD@ - VTAB 1: GOSUB 2220: REM DISPLAY STATUS=+{ ?+  Z$x % GOSUB 250: REM DISPLAY RESULTS++  ZO0 f HTAB 1: VTAB 18: INVERSE : PRINT "RETURN TO CONTINUE:";: NORMAL : INPUT " "; XXS: PRINT XX$;: VTAB 18x/ ?{ 2@4SRETURN TO CONTINUE:4:2C XXSS S XX{ _2@- 2 IF XX$ = "Y" OR XX$ = "y" THEN A=A: REM : Z0A+;)XXY EXXy Y9&KZ+ 4REV = 0:PFT = 0:MCST = 0:RCST = 0:LEMP = 0 :NEMP = 0"+98REV9VPFT9uMCST9RCST9"LEMP9,NEMP GIF BK = 0 AND QTR < = TM ThEN 3140: REM CHECK END OF TERM OR BANKRUPTCYP`N0GGE.BK 7QTRTM_, D Z$#>( REMZ  : REM [ END OF TERMYour Term is completed. Press RETURN for the Directors Ietter:4c2l XX  GOSUB 2310#+   & REM VTAB 21: PRINT : INVERSE : PRINT "PRINT LETTER? Y/N:";: NORMAL : INPUT " "; XX$: VTAB 21: IF XX$ < > "Y" AND XX$ < > "N" AND XX$ < > "n AND XX$< > "y" THEN 3310 Z / REM IF XX$ = "Y" OR XX$ = "y" ThEN A=A :Z(m  XX$ = "": VTAB 21: PRINT : PRINT "ENTER: Q )UIT OR A)NOTHER TERM:";: INPUT " "; XX$: IF XX$ < > "A" AND XX$ < > "Q" AND XX$ < > "a" AND XX$ < > "q" THEN 3330^ 9XX{ 5@S S&"(ENTER: Q )UIT OR A)NOTHER TERM:2L XX0U\IXXA XXQ XXa XXq ,   * IF XX$ = "A" THEN CLEAR : GOTO 3080/G=0.#+XXA F , !  &g ' PRINT "YOUR TERM IS ENDED.": END|<SYOUR TERM IS ENDED. $J4 & : REM [ SCREEN DUMP M/L ROUTINEaZ 9 RETURNb