ZXTape! 0Created with Ramsoft MakeTZXPRINTSHOP PMP#0::3650B:3000 #236099\,200:8030^ I2:0:7::6,8;"LEVEL OF DIFFICULTY" &,,,,8;"1. PRINT MARKET POOR" $,,8;"2. PRINT MARKET FAIR" $,,8;"3. PRINT MARKET GOOD" 820,8;1;"KEY";" LEVEL YOU REQUIRE" 85004!:XY !XY>3XY<110   900a U=14 L=L-CR:L=L+DR  950m W=128` .4:7;"STAFF OPTION WEEK ";W ]10 ,0;"DO YOU WISH TO CHANGE THE NUMBEROF STAFF YOU EMPLOY? YES OR NO" 85004!:I$  I$="N"I$="n"30  500z W=138 J2:1:7::2;"PAPER STOCK - UPDATE OPTIONS" B,,,,"1. STOCK OF EACH TYPE OF PAPER INCREASED TO 100 REAMS" &,,"2. REVIEW INDIVIDUAL STOCK BAL." !$,,"3. POSTPONE PURCHASE OF STOCK" "O #O=11700T $O=238 %O=3@700/ & ' 1000z ( ) 2000z - 4000z < 6000; A GPA=GPA+GP DL<07500L EIT=IT+(LF*(LR/5200P)) F"L<0IT=IT+(L*.005y# =) KAD=AD+(S*.05|L) P 9000 QS(U)=S R L(U)=JJ-SO S O(U)=SO cU 5000@ PLA=PLA+PL GPA=0 HH=0 RR=0 7000Z 7200  NW<-15009995 ' MH=3@9900  18 J6:2:7::3;"STAFF ESTABLISHMENT WEEK ";W =,,,,"WHAT ADDITIONAL STAFF ARE":21;"REQUIRED ?" b,,"NOTE AFTER 1ST WEEK IT TAKES TWOWEEKS TO RECRUIT NEW STAFF OR SACK EXISTING STAFF" E$(8,14`) E$(1)="LAYOUT ARTIST"  E$(2)="PRINT OPERAT0R"  E$(3@)="FINISHER"  E$(4)="PRINT SUPV"  E$(5 )="CATEGORY"  E$(6@)="PRINT PREP." E$(7`)="OFFSET" E$(8)="FINISHING" 5,,"PRESENT";9 ;E$(5);24;"FUTURE" -"N0S.";9 ;"OF STAFF";24;"NOS." K=13@  ,2;E(K);9 ;E$(K); 85004!:I I<0WS=WS+250z  E(K)=E(K)+I 27;E(K) !K "H19,2;E(4);9 ;E$(4);27;E(4) &IE(1)+E(2)+E(3@)>4E(4)<11500; +IE(1)+E(2)+E(3@)>9E(4)<21500; ,JE(1)+E(2)+E(3@)>19E(4)<3@1500; 0 8030z W K=17` STK=STK+M(K)*N(K) K  40  GPA=0  E(4)  M(7`)  N(7`) 0O(4):S(4):L(4):Z(8) SC=5000@ L=5000@  W=0 XF=W CRR=W DRR=W STT=W LL=5000@ CR=W DR=W PLA=W  C(9) K=19 C(K)=W K CST=W SF=W MH=W HH=W PL=W IT=W AD=W  MT=0  LF=0  LR=1  MTT=0   S=0 ST=S OC=S  W=W+1 PCH=S PPCH=S  SO=0 STK=S DR=S STC=S FS=S MU=S WS=S H=S OR=S  ;0:7:1::10 ;"PAPER STOCKS" >16,0;"KEY ADDITIONAL STOCK YOU REQUIRE"  1800a M$(7`,110) M$(1)="WHT 70 GSM" M$(2)="WHT 85 GSM" M$(3@)="WHT CFB 53" M$(4)="BLUE 80" M$(5 )="GREEN 80" M$(6@)="YELLOW 80" M$(7`)="BD TINT 80" N(1)=3@ N(2)=4 N(3@)=9 N(4)=5 N(5 )=5 N(6@)=5 N(7`)=4 \2,0;"OLD";8;"PAPER";18;"NEW";22;"UNIT";27;"VALUE" 8"BAL";8;"TYPE";18;"BAL";22;"COST" 5,,"RMS";18;"RMS";24;"`";29;"`" $K=17` .M(K);5;M$(K); 885004!:I B M(K)=M(K)+I QPCH=PCH+(I*N(K)) T VV=M(K) V 59409 W24;N(K); XVV=M(K)*N(K) Y 59008` [STK=STK+M(K)*N(K) `K e,15;"TOTAL VALUE"; hVV=STK j 59008` y 8030z  >E(1)+E(2)+E(3@)>4E(4)=1 >E(1)+E(2)+E(3@)>9E(4)=2 ?E(1)+E(2)+E(3@)>19E(4)=3@ 419,9 ;E$(4);27;E(4)  K=17` 1M(K)100HPCH=PCH+((100H-M(K))*N(K))  M(K)100HM(K)=100H STK=STK+M(K)*N(K) K  8030z  40 K=17` SM(K)<018,0;"NOTE NEGATIVE OLD STOCK BALANCESRELATE TO RESERVED STOCKS FOR FUTURE ORDERS.PURCHASE PAPER AT LEAST TO COVER NEGATIVE BAL." XK b JJ=XY+(*W) N=1JJ OR=OR+1 PP=(*20 )+1 Q=(*150)+2 M=(*7`)+1 FN=(*20 )+1 PR=(Q/6@)+1 TM=(*3@)+1 )0:0:7::8200 17,7;"CUSTOMER ORDER NO. ";OR T$(7`,12@) T$(1)="ORDER PADS" T$(2)="INVOICES" T$(3@)="BROCHURES" T$(4)="DEBIT NOTES" T$(5 )="DELIV. NOTES" T$(6@)="LETTER HEADS" T$(7`)="PRICE LISTS" '9 ,4;Q;" REAMS OF ";T$(M) 011 ,7;"REQUIRED IN ";TM;" WEEK(S)"  8030z  2500@ H5:0:7::4;"COST ESTIMATE-ORDER NO.";OR ,,"DESCIPTION";,;"ESTIMATE"  !,,13 ;"HRS";23;"`"  5,0;""  VV=PP*5  59209  VV=PR*7`  59209  VV=FN*5 5920 :2180  ,,"PAPER" " TYPE ";M$(M) " QUANTITY ";Q;" REAMS";  VV=Q*N(M)  59209 ,TT=((PP+FN)*5 )+(Q*N(M))+(PR*7`)  58105 9;"TOTAL"; VV=TT  59209  58105 =19,5;1;2;"YOUR QUOTATION PLEASE"  85004!:IB %%CQ=TT*((*(50H*XY))/10 ) *IBCQ21,11 ;2;1;1;"ORDER LOST":I=122:.02{# =,2*I:.01z# =,20-I:I:19,0;" " 3N e p57,0;E$(6);:7,14;PP r59 ,0;E$(7);:9 ,14;PR u,,E$(8);14;FN z 56,0;E$(6);:6,14;PP 58,0;E$(7);:8,14;PR ,,E$(8);14;FN: x19,0;" ":21,6;1;1;7;"QUOTATION ACCEPTED" -I=122:.01z# =,*502:I   28502  DR=DR+IB SO=SO+1 S=S+IB  M(M)=M(M)-Q X>W2290 M(M)<02300  STC=STC+(Q*N(M))  FS=FS+IB  2220 5,,,,2;"PAPER PURCHASED - OTHER PRINTERS" $PPCH=PPCH-((M(M)*N(M))*1.5@) %,,;M$(M);,;1;"-OUT OF STOCK" A-M(M);" REAMS";22;"COST `";-(M(M)*(N(M)*1.5@))  M(M)=" "  8000z  F1:1:7::5;"PRODUCTION LOAD SCHEDULE" ;,,"DESCIPTION";13 ;"NEW";20;"UNCOMMITED" T13 ;"JOB";17;"WEEK";22;"WEEK";27;"WEEK" 518;W;23;W+1;28;W+2 A13 ;"HRS";18;"HRS";23;"HRS";28;"HRS" 2160 N>12580!@ W22650% K=13@ C(K)=E(K)*30p K K=46@ C(K)=E(K-3@)*30p K K=7`9 C(K)=E(K-6@)*30p K TM=12600" TM=22700( TM=3@2800/ P14,0;1;"KEY WEEK NO. ";13 ;"TO SCHEDULE NEW JOB" 85004!:X !XW+22592" "X>WTM<22592" #$X>W+1TM<3@2592" %,,10 ;X & 8030z ' (K=13@ -$5 +(2*K),18;C(K) 2K 7 ZC(1)=C(4) [C(2)=C(5 ) \C(3@)=C(6@) ]C(4)=C(7`) ^C(5 )=C(8) _C(6@)=C(9) d 2565 P K=13@ ;5 +(2*K),18;C(K);238;C(K+3@) K  K=13@ R5 +(2*K),18;C(K);238;C(K+3@);28`;C(K+6@) K  "X=WXF=0 #X=1+WXF=3@ $X=2+WXF=6@ ' C(1+XF)=C(1+XF)-PP , C(2+XF)=C(2+XF)-PR 1 C(3@+XF)=C(3@+XF)-FN 4uC(1+XF)<0C(2+XF)<0C(3+XF)<04;2;"SUBCONTRACTERS COSTS" 6#C(1+XF)<029005@ ;#C(2+XF)<029206 @#C(3@+XF)<029508` E110,0;"" J TOC=OC-C(1+XF)*15p Y ,,E$(6@);"CONTRACTED OUT" Z,220;"COST `";-C(1+XF)*15p ^C(1+XF)=0 a 502 c hOC=OC-C(2+XF)*21( m ,,E$(7`);"CONTRACTED OUT" n,220;"COST `";-C(2+XF)*21( rC(2+XF)=0 u 502 w OC=OC-C(3@+XF)*15p ,,E$(8);"CONTRACTED OUT" ,220;"COST `";-C(3@+XF)*15p C(3@+XF)=0 502  1:4:7: J5,5;"           " \6,5;"                 " P7,5;"              " P8,5;"               " P9 ,5;"              " A12 ,7;"          " M13 ,7;"               " ?14,7;"         " R15,7;"              " >16,7;"          " #19,0;:N=196`:1;" ";:.006yD,N/2:N:.4L,14:19,10 ;1;7;" ":20,11 ;1;7;" 1982 ";:175 $80:0:7:1:0:0: )N=181-1:N+1,9 ;" ":N,9 ;"  1982":N+2,9 ;" ":N+1,9 ;"":.01z# =,N:N .6,10 ;"WARNING":8,0;"Copies of this recording may ","only be made for the sole use ofthe purchaser unless written","permission is obtained.":400: A B#N="A""A"+23:TX:N,TX:N MM31,63?,112p,224,224,112p,63?,31 NG0,15,15,3,1,0,127,127 OO0,254,254,128,192,224,240,240 s  S=S-FS+SF /H=(E(2)*60p)+(E(3@)*30p) cWS=WS+(E(1)*150)+(E(2)*210R)+(E(3@)*150)+(E(4)*270) K=17` ST=ST+M(K)*N(K) K MU=STK+PPCH-ST-STC+CST  ST=ST+STC )0:6:0::8100  ),4;"TRADING ACCOUNT WEEK ";W  8120} ,,"SALES"; VV=S  59008`  58005@ "DIRECT COSTS" ,,"PAPER,MATERIALS"; VV=MU " 59209 ',,"SUBCONTRACTORS"; ,VV=OC . 59209 1 VV=MU+OC 2 59008` 6 58005@ ;"CONTRIBUTION TO" @"WAGES AND PROFIT"; ACWP=S-(MU+OC) BVV=CWP C 59008` E,,"LESS SALARIES,WAGES"; JVV=WS O 59008` T 58005@ Y GP=CWP-WS ^%GP>0"GROSS PROFIT"; hGP<0"LOSS"; mVV=GP r 59008` w 58005@  L=L-(WS+OC)  HH=HH+H  8050{  MH=MH+1 )3:7:1::8100 .,4;"PROFIT AND LOSS MONTH ";MH  8120} RR=1680R #E(4)>1RR=3360 ,,"GROSS PROFIT" "(FROM TRADING ACCOUNTS)"; VV=GPA  59008`  58005@ ,,"EXPENDITURE" ,,"RENT,RATES"; VV=RR  59209 "EQUIPMENT HIRE"; VV=HH  59209  "INTEREST"; VV=IT  59209 "ADMINISTRATION"; VV=AD  59209 21;"-----"; EXP=RR+HH+AD+IT #VV=EXP ( 59008` - 58005@ 2 PL=GPA-EXP 7#PL>0"NET PROFIT"; 9PL<0"LOSS"; <VV=PL A 59008` F 58005@ KL=L-(RR+HH+AD+IT) L IT=0 M AD=0 N:8000@ O 27;"_____"  21;"_____";   Z=31x  59509   Z=25H % 59509 * 4 Z=20 9 5970: = >X$=VV C(Z-X$+1);X$ H RX$=VV W(Z-X$+1);X$; [ r CR=PCH+PPCH uCR=(CR/2) z DR=DR-FS+SF L=L-CR  A(8) A(1)=GP A(2)=CR-CRR A(3@)=DRR-DR A(4)=STT-ST A(5 )=CRR-CR A(6@)=DR-DRR A(7`)=ST-STT A(8)=-GP K=17` A(K)<0A(K)=0 K (A(8)<0A(8)=0 3A=A(1)+A(2)+A(3)+A(4)+MTT /B=A(5 )+A(6@)+A(7`)+A(8) )1:5:0::8100 .,3;"CASH FLOW STATEMENT WEEK ";W .,,"SOURCE OF CASH";30;"`" GP>06306E CR>CRR6310E0 +MTT>0"LOANS";:VV=MTT:5920  DRDRR6340F ST>STT6345FH VV=B  59008`  58005@  A>B6355F AN=2162 C2N+1,0;0;20-(N+2) HN MK=18 RG=1Z(K) W A$=" " \.K-2*(K/2)=0A$=" " ]20,8;"SALES ORDER CHART" ^G2,2;"ORDERS LOST ";" ";" ORDERS WON  " aZ21,3;0;"Wk ";W-3;" Wk ";W-2;" Wk ";W-1;" Wk ";W f20-G,K*3;A$ kG:K l8030^: L FINANCE O6:7:1: Q+1,7;"FINANCING DECISION" V'5,0;"CASH AT BANK = `";L `,,"(OVERDRAFT RATE= 18% )" e,,"PRESENT LOANS =`";MT j(LF=100d+((*40()*100d) oLR=10 +(*16) t$,,"LOAN FACILITIES AVAILABLE `";LF ~15;"AT ";LR;"%" 615,0;1;"DO YOU REQUIRE A LOAN ?" !,,,,"KEY YES OR NO" 85004!:I$ I$="N"I$="n"7599 L=L+LF MTT=LF  MT=MT+LF  @f.05|L,30:.13~R,2:21,4;2;1;"TO CONTINUE PRESS ENTER" E85004!:J$ J O ^.05|L,10 :220 _ 8051{ r.1}L,40(:300, t v 9 ;" PRINTSHOP "  ,,30;"`"  ;7:5,3;""; K=16@ 3;"";30;"" K 212 ,3;"" ! !4>I=13:.08}# =,30:.05|L,15:I !9 #(I7:6:0::7;2;"NOTES FOR GUIDANCE" #+,,,, #,AGP<420R+H+(S*.05|L)"PROFIT DOES NOT COVER OVERHEADS" #-%OC>S/8"MORE STAFF REQUIRED" #2*WS>S/2"STAFF NOT FULLY UTILISED" #7>PPCH>200H"POOR STOCK CONTROL COST `";(PPCH*.5) #<.L<500zST>4000z"STOCKS TOO HIGH" #A;S>2000zGP<500z"QUOTATIONS NEED TO BE HIGHER" #D1JJ-W<-0"NUMBER OF ORDERS DISAPPOINTING" #F LO=JJ-SO #K.LO>2LO;" ORDERS LOST BY OVERQUOTING" #PCL<0"BALANCE OF OVERDRAFT=`";L:"LOAN FACILITIES REQUIRED" # 8000z # %[:8200 :7,7;"DO YOU WANT ANOTHER":9 ,10 ;"GAME ? Y/N":I$ %!I$="n"I$="N"9999' %& :1 &)0:0:7::8200 &!7,10 ;"END OF GAME" &HXY>1PLA>40009 ,5;"WELL DONE-TRY NEXT LEVEL" &NXY=3PLA4000PLA>09 ,5;"A VERY GOOD RESULT" &IXY<3PLA4000PLA>09 ,8;"A FAIR RESULT" &@XY<3PLA09 ,6;"TRY AN EASIER LEVEL" &6XY=3PLA0,,8;"VERY BAD RESULT" 'LXY=1PLA>40009 ,4;"START YOUR OWN BUSINESS !!" 'SN=110 :I=((*24)-12 ):K=((*3)+1)/30 'K,I:.75@9991' ' N ' 9500% ' K=19 ' 1,,5;2;1;"YOU ARE BANKRUPT" ' *.15~,20:.08}# =,2:K '8:8200 :7,12 ;"BYE BYE":500: )4!p@l@wrrt@l@stscpctth&&+0 uLAYOUT ARTIST PRINT OPERAT0RFINISHER PRINT SUPV CATEGORY PRINT PREP. OFFSET FINISHING