dCR$(1),PL$(5)SnCR$(0)(18)(32)(157):CR$(1)(146)(32)(157):MX2px"":4,1:0,1:5,3:170Y(A$):Y2(Y2)A$A$" ":YY1T1Y2:("CC6C"),,21T,X:(A$,T);(A$,T)::Y(A$):Y2(Y2)A$A$" ":YY1,T1Y2:("CC6C"),,X,21T:(A$,T);(A$,T)::X1:A$"":130:X23:130:X10:A$"":130X20:130: 1:5,8:X6:A$"":150:X5:A$" THAT'S BUSINESS ":150X4:A$"":150:5,4:X10:A$"":150:X11:A$" VER 2.9 5/03/86 ":150:X12:A$""150:5,2:X16:A$"":150:X17:A$" BY ":150:X18:A$" RAYMOND L. CROWNOVER ":150:X19+A$"":150: 4:X21A$"ENTER NUMBER OF PLAYERS (1-5)":150:("CC6C"),,21,36:M11:M25:800:P1A:"":0,7:4,15:5,15 A1P1:A$"ENTER NAME OF PLAYER NUMBER"(A):X4A2:150:PL$(A):PL$(A)(PL$(A),10):PL$(A)""PL$(A)"PLAYER"(A) :"":A$"THE SCREEN WILL BLANK WHILE I":X11:150:A$"SET UP THE GAME. PLEASE WAIT.":X12:150: 3:4,11:"" %:T05:PL$(T)""PL$(T)"COMMODORE"::Ղ,!E$(6),E(5,6),S1(5,8),S2(5,8),S0(5,8),Q(5),EX(5,10),PR(5),US(6),MU(6),IU(6),B(5),GR(5),NI(5),RM(5),EQ(5),FW(5),RD(5)!PL05:280:PR(PL)250:EQ(PL)50000:FW(PL)100000:US(PL)1:RM(PL)1000:B(PL)250000:T08:A:S1(PL,T)A:S0(PL,T)A:::US(6)6!4,6,7.5,4,18000,2600,1300,1,3!"T06:A$:E1$(T)A$:`",T06:A$:E$(T)A$::PL05:330:T06:A:E(PL,T)A:::M$"JANFEBMARAPLMAYJUNJULAUGSEPOCTNOVDEC":YR1987"6LINE WORKER,LINE FOREMAN,SUPERVISOR,OFFICE WORKER,MANAGER,SALES MANAGER,SALESMAN#@LINE WORKERS,LINE FOREMEN,SUPERVISORS,OFFICE STAFF,MANAGERS,SALES MANAGERS,SALESMEN##J30,2,0,5,2,1,2?#TT010:A$:EX$(T)A$:#^WAGES & SALARIES,FRINGE BENEFITS,EMPLOYMENT TAXES,UTILITIES,MAINTENANCE,OFFICE EXPENCES#hADVERTISING,PREVENT. MAINT.,RESEARCH & DEVELOPMENT,CORPORATE TAXES,******TOTAL******($r1190:4,14:5,14:1,13:&:1280:YR1987410`$|"":("CC6C"),,12,5:"CONTINUE THE GAME? (Y/N) ";~$A$:A$"Y"A$"N"390$A$:A$"N"750$MXMX3:MX34YRYR1:MX1$MO$(M$,MX,3):PL1P1:B(PL)1740S%""PL$(PL)" IS NOW PLAYING "MO$","YR:"############## #$#########.##";"AMOUNT IN BANK",B(PL):0,4,39,24,1%4,7:"OPTIONS:":" 1. SEE EXPENCE SUMMARY":" 2. SEE WAGE & SALARY REPORT":" 3. SEE COMPARATIVE REPORT"K&" 4. SEE EMPLOYMENT ROSTER":" 5. ADJUST WAGES/SALARIES":" 6. HIRE/LAYOFF WORKERS"&" 7. ADJUST BUDGET ITEMS":" 8. PURCHASE RAW MATERIALS":" 9. PASS TO NEXT PLAYER"&M11:M29:"CHOOSE A NUMBER ";:800:A90,0,39,24,0"'A490,500,510,520,530,540,550,560,5707'4,11:1470:430J'4,5:850:430_'4,14:1280:430t'4,13:1480:430'4,5:1490:430'4,13:1760:430'&4,11:1980:430'04,10:1930:430':4,15:T08:S1(PL,T)S0(PL,T)640 (D:FW(PL)2EQ(PL)610(N"THE NEW EQUIPMENT YOU ORDERED ARRIVED, BUT YOU DISCOVERED THAT THERE ISN'T ROOMFOR IT IN YOUR PRESENT BUILDING!"(X"YOU MUST SELL IT AT A LOSS.":X(EQ(PL)2FW(PL))2:B(PL)B(PL)X:EQ(PL)2FW(PL)(b 3:EX(PL,8)02180)lT06:E(PL,T)0E(PL,T)11)v::0,0,39,24:2200@)(1).3y)T0690:ՙ" YOUR FACTORY WORKERS ARE ON STRIKE!")SO(PL,0)S0(PL,0).1S0(PL,0):" THEY DEMAND ";:"#$##.## #####";SO(PL,0),"/HOUR":" WILL YOU AGREE? (Y/N)"*A$:A$"Y"A$"N"670i*A$"Y"S1(PL,0)S0(PL,0)::S1(PL,0)0:S0(PL,0)S0(PL,0)((1)1001)100:*XS1(PL,T)S0(PL,T):T6TT2*X(E(PL,T)X):XE(PL,T)*E(PL,T)X2730*""E(PL,T)X;E$(T)" HAVE QUIT THIS MONTH.":E(PL,T)X:9+""E(PL,T)X;E1$(T)" HAS QUIT THIS MONTH.":E(PL,T)X:Z+""PL$(PL)" IS BANKRUPT!"+T05:A(T)B(T)::1070:"PLACE NAME AMOUNT IN BANK PLAYER"+T501:" # ########## #$#######.## #";6T,PL$(RO(T)),B(RO(T)),RO(T):," PLAY AGAIN? (Y/N)"=, A$:A$"Y"A$"N"780Q,A$"N"2380:Պe, A$:A$""800s,*CR$(CR);,4A$:A$""840,>A(A$):AM1AM2840:ՙ""A:,HT1150::CR(CR0):810-R" REPORT ON WAGES AND SALARIES":S1(PL,0)02370:T13:ՁT03i-\"############ #$##.## ##### #$########.##";E$(T),S1(PL,T),"/HOUR",S2(PL,T):-fT46:"############## #$##### ### #$########.##";E$(T),S1(PL,T),"/YR",S2(PL,T):/.p"SALES COMMISSIONS":T78:"############## ##.# # #$#########.##";E$(T2),S1(PL,T),"%",S2(PL,T):v.z"############## #$#########.##";"SUBTOTAL",EX(PL,0)."############## #$#########.##";"BENEFITS",EX(PL,1)/"################ #$#########.##";"EMPLOYMENT TAXES",EX(PL,2)/"################ #$#########.##";"TOTAL",EX(PL,0)EX(PL,1)EX(PL,2):" PRESS ANY KEY";:M10:M210:800:"":/ ---EXPENCES---10PL05:EX(PL,0)0:T08:EX(PL,0)EX(PL,0)S2(PL,T)::EX(PL,1)EX(PL,0).195:EX(PL,2)EX(PL,0).18:EX(PL,3)MU(PL)((1)355)0EX(PL,4)FW(PL).1EQ(PL).15(EX(PL,7)(1)):EX(PL,4)1000EX(PL,4)10000XEX(PL,4)2000:XX(3(E(PL,3)E(PL,4))):XX(6S1(PL,3)):XX(XE(PL,3))0EX(PL,5)X1000::&1AD0:X0:T05:XE(T,6)X:ADADEX(T,6)::AD1AD1X1A(AD10000):A(A32X)100:A12000A12000y1AMU(6)IU(6)AMU(6)IU(6)1T05:XUS(T)US(6):US(T)(XA2.5): 2T05:XEX(T,8)AD:US(T)US(T)(XA5):A(T)Q(T)::1050:AAUS(6):A1(A2.5):1070:AA1:1110b2AA1:T05:A(T)PR(T)::1070:1110:T05:US(T)MU(T)IU(T)US(T)MU(T)IU(T)2IU(T)IU(T)MU(T)US(T)::1050:4,16:11602US(6)0:T05:US(6)US(6)US(T)::2$ ----BUBBLE SORT----3.T05:RO(T)T::Z511:T16Z:A(T1)A(TZ1)1090l38XA(T1):YA(TZ1):A(T1)Y:A(TZ1)X:XRO(T1):YRO(TZ1):RO(T1)Y:RO(TZ1)Xv3B::3L---APPORTIONING SALES----3VX2:Y0:Z13`A(Y)A(Z)XX1:ZZ1:Z511204jTYZ1:US(RO(T))US(RO(T))(AX)::AA(AX)(X1):YYZ:X2:Y51120N4tUS(RO(5))US(RO(5))A:T05:US(T)(US(T).5)::t4~===INCOME--GROSS & NET==========4T05:GR(T)PR(T)US(T):S2(T,7)GR(T)S1(T,7)100:S2(T,8)GR(T)S1(T,8)100::940R5PL05:EX(PL,10)0:T09:EX(PL,10)EX(PL,10)EX(PL,T)::NI(PL)GR(PL)EX(PL,10):EX(PL,9)NI(PL)10:EX(PL,10)EX(PL,10)EX(PL,9)5NI(PL)NI(PL)EX(PL,9):B(PL)B(PL)NI(PL):::---MANUFACTURING---5RM((1)205):MU(6)0:PL05:XE(PL,0)(E(PL,0)4)6E(PL,1)0XX(E(PL,0)5):XX1.5(15E(PL,0)E(PL,1))1026XX(EX(PL,7)5EQ(PL))[6S1(PL,0)3X0:XX(10S1(PL,0))56E(PL,2)0XX(E(PL,1)3):XX.5(5E(PL,1)E(PL,2))106XEQ(PL)2000XEQ(PL)20007MU(PL)X32:RM(PL)RM(PL)MU(PL):RM(PL)0MU(PL)MU(PL)RM(PL):RM(PL)0l7MU(6)MU(6)MU(PL):T03:S2(PL,T)S1(PL,T)173E(PL,T)::T46:S2(PL,T)S1(PL,T)12E(PL,T):7T78:S2(PL,T)S1(PL,T)GR(PL)100:::4,7:9807" COMPARATIVE REPORT":"COMPANY 0 1 2""8 " "r8"########## ########################";"UNITS MADE",MU(0),MU(1),MU(2)8"########## ########################";"UNITS SOLD",US(0),US(1),US(2)9("########## ########################";"INVENTORY ",IU(0),IU(1),IU(2)b92"########## ########################";"PRICE/UNIT",PR(0),PR(1),PR(2)9<"########## ########################";"GROSS INC.",GR(0),GR(1),GR(2) :F"########## ########################";"EXPENCES ",EX(0,10),EX(1,10),EX(2,10)[:P"########## ########################";"NET INCOME",NI(0),NI(1),NI(2):Z"":"COMPANY 3 4 5 ":d" "6;n"########## ########################";"UNITS MADE",MU(3),MU(4),MU(5);x"########## ########################";"UNITS SOLD",US(3),US(4),US(5);"########## ########################";"INVENTORY ",IU(3),IU(4),IU(5)&<"########## ########################";"PRICE/UNIT",PR(3),PR(4),PR(5)v<"########## ########################";"GROSS INC.",GR(3),GR(4),GR(5)<"########## ########################";"EXPENCES ",EX(3,10),EX(4,10),EX(5,10)="########## ########################";"NET INCOME",NI(3),NI(4),NI(5)U=" PRESS ANY KEY ";:M10:M29:800:=" SUMMARY OF EXPENCES"::T010:"###################### #$########.##";EX$(T),EX(PL,T)::14600>" EMPLOYMENT ROSTER":T06:" ############# #####";E$(T),E(PL,T)::1460>" ADJUST WAGES, SALARIES OR COMMISSIONS":T03:"############ #$##.## #####";E$(T),S1(PL,T),"/HOUR":>T46:"############## #$##### ###";E$(T),S1(PL,T),"/YR":F?"SALES COMMISSIONS":T78:"############## ##.# # #$#########.##";E$(T2),S1(PL,T),"%":?"USE UP/DOWN CURSOR TO PICK ITEM YOU WANTTO CHANGE. PRESS RETURN WHEN MARKER IS OPPOSITE FIGURE YOU WISH TO CHANGE."?"THEN ENTER NEW FIGURE AND PRESS RETURN."@A0:27,3,39,13:(27)"M":1610X@A$:Y(A$):(Y17)2(Y145)3(Y13)1560,1580,1620:1550k@AA1:A7A9u@"1590@,AA1:A8A6@6A1A10:1610@@A11A0@J"":("CC6C"),,A,0:" ":1550AT"":("CC6C"),,A,0:"$";:A$:X((A$)):A6AA2JA^A11640,1650,1660,1640,1670,1680,1690,1700,1710iAhX3.95X3.95:1720:1720ArXS1(PL,0)1.5XS1(PL,0)1.5:1720:1720A|XS1(PL,1)2XS1(PL,1)2:1720:1720AX18000X18000:1720:1720BX3000X3000:1720:1720"BX1200X1200:1720:1720;BX1X1:1720:1720^BXS1(PL,7)1.5XS1(PL,7)1.5BS1(PL,A)S0(PL,A)S0(PL,A)S1(PL,A)BS1(PL,A)X:""(27)"L":("CC6C"),,20,5:"CHANGE ANOTHER FIGURE? (Y/N)"BA$:A$"Y"A$"N"1740CA$"Y"1490:ՎaC" HIRE OR LAYOFF WORKERS":" HIRE LAYOFF ":T06C" ############# ###";E$(T),E(PL,T):D"USE UP/DOWN CURSOR TO PICK THE CATEGORY OF EMPLOYMENT AND LEFT/RIGHT CURSOR TO CHOOSE LAYOFF OR HIRE. PRESS RETURN"D"WHEN YOU HAVE COMPLETED YOUR CHOICE. THEN ENTER THE NUMBER OF WORKERS TO BE HIRED/LAIDOFF AND PRESS RETURN."DA0:B0:1,5,6,11:(27)"M":1850 EA$:Y(A$):(Y17)2(Y145)4(Y13)3(Y29)3(Y157)1820,1840,1860,1880:1810EAA1:A7A0'E&1850;E0AA1:A1A6eE:"":("CC6C"),,A,0:" ":1810ED"":B1,5,6,11:30,5,35,11ENB(B0):1850EX"":("CC6C"),,A,0:A$:X((A$)):BE(PL,A)E(PL,A)X:E(PL,A)E(PL,A)XFbE(PL,A)0E(PL,A)0CFl""(27)"L":("CC6C"),,20,5:"HIRE/LAYOFF MORE? (Y/N)"bFvA$:A$"Y"A$"N"1910vFA$"Y"1760:ՎF" PURCHASE RAW MATERIAL":" RAW MATERIAL IS NOW SELLING FOR":" #$## #####";RM,"/UNIT"(GRM(PL)(RM(PL)):"YOU NOW HAVE";:RM(PL)1" ONE UNIT"TGRM(PL)0" NO UNITS":ՙRM(PL)" UNITS"G"HOW MANY DO YOU WANT";A$:A((A$)):B(PL)ARM"YOU CAN'T AFFORD THAT MUCH.":1960GB(PL)B(PL)ARM:RM(PL)RM(PL)A:DH" ADJUST DISCRETIONARY BUDGET ITEMS":T68:"################ #$########";EX$(T),EX(PL,T):|H"################ #$########";"UNIT PRICE",PR(PL)H"#########################";"CAPITAL IMPROV./BUILDINGS"H"######################";"PURCHASE NEW EQUIPMENT"nI"USE UP/DOWN CURSOR TO PICK ITEM YOU WANTTO CHANGE. PRESS RETURN WHEN MARKER IS OPPOSITE FIGURE YOU WISH TO CHANGE."I"THEN ENTER NEW FIGURE AND PRESS RETURN."IA0:28,4,39,9:(27)"M":2090JA$:Y(A$):(Y17)2(Y145)3(Y13)2060,2080,2100:2050J AA1:A6A0 J20904J AA1:A1A5cJ*"":("CC6C"),,A,0:" ":2050J4"":("CC6C"),,A,0:"$";:A$:X((A$)):XB(PL)X0J>A3AA6:EX(PL,A)X:2150JHA3PR(PL)X:2150KRA4FW(PL)FW(PL)X:EQ(PL)EQ(PL)XK\B(PL)B(PL)XUKf""(27)"L":("CC6C"),,20,5:"ANY OTHER ADJUSTMENTS? (Y/N)"tKpA$:A$"Y"A$"N"2160KzA$"Y"1980:ՎKRD(PL)RD(PL)EX(PL,8):X((1)500000):RD(PL)X1L" RESEARCH AND DEVELOPMENT DEPARTMENT REPORTS PRODUCT IMPROVEMENT":Q(PL)Q(PL)1:RD(PL)0: 3:L"":A$"":X10:150:A$"THE SCREEN WILL BLANK":X11:150:A$" WHILE I PREPARE ":X12:150MA$" THE MONTHLY REPORT. ":X13:150:A$"":X14:150: 3:4,7:5,14:M%:PL05:PL$(PL)"COMMODORE"2240MM4,PL1::370tMB(PL)04,14:5,14:0,13:&:740MNI(PL)100PR(PL)PR(PL)((1)51):PR(PL)PR(PL)((1)31)2MRM10RM(PL)8002280NB(PL)RM(1200RM(PL))B(PL)B(PL)RM(1200RM(PL)):RM(PL)1200hNRM(PL)400B(PL)RM(400RM(PL))B(PL)B(PL)RM(400RM(PL)):RM(PL)400NB(PL)30000EQ(PL)EQ(PL)1000:FW(PL)FW(PL)2000:B(PL)B(PL)3000NX(EQ(PL)2000)2:YE(PL,0)(E(PL,0)4):YXE(PL,0)E(PL,0)2O YXE(PL,0)E(PL,0)2QO S1(PL,0)10:E(PL,1)(E(PL,0)15.5):E(PL,2)(E(PL,1)3.5)O EX(PL,6)((NI(PL)5)):EX(PL,8)EX(PL,6):S1(PL,3)6:E(PL,3)((FW(PL).05EQ(PL).1)2000):E(PL,4)(E(PL,3)3):EX(PL,7)(EQ(PL)5)O$ EX(PL,8)02180 P. IU(PL)1000T02:E(PL,T)(E(PL,T)2):*P8 2230\PB "LINE WORKERS ON STRIKE $0.00":~PL : POKE792,240:POKE808,110PV :