/ Nibble Magazine / nib01.dsk / F.A.S.T. ANALYSIS.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 32 20 20 52 45 4d 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a |2  REM  |********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 0a 33 20 20 52 45 4d | 20 20 2a 2a 20 46 2e 41 |*.3  REM|  ** F.A|
|00000030| 2e 53 2e 54 2e 20 41 4e | 41 4c 59 53 49 53 20 20 |.S.T. AN|ALYSIS  |
|00000040| 20 2a 2a 0a 34 20 20 52 | 45 4d 20 20 2a 2a 20 4d | **.4  R|EM  ** M|
|00000050| 49 43 52 4f 2d 53 50 41 | 52 43 2c 20 49 4e 43 2e |ICRO-SPA|RC, INC.|
|00000060| 20 20 20 2a 2a 0a 35 20 | 20 52 45 4d 20 20 2a 2a |   **.5 | REM  **|
|00000070| 20 50 2e 4f 2e 20 42 4f | 58 20 33 32 35 20 20 20 | P.O. BO|X 325   |
|00000080| 20 20 20 20 20 2a 2a 0a | 36 20 20 52 45 4d 20 20 |     **.|6  REM  |
|00000090| 2a 2a 20 4c 49 4e 43 4f | 4c 4e 2c 20 4d 41 53 53 |** LINCO|LN, MASS|
|000000a0| 20 30 31 37 37 33 20 2a | 2a 0a 37 20 20 52 45 4d | 01773 *|*.7  REM|
|000000b0| 20 20 2a 2a 20 43 4f 50 | 59 52 49 47 48 54 20 28 |  ** COP|YRIGHT (|
|000000c0| 43 29 20 31 39 38 30 20 | 20 2a 2a 0a 38 20 20 52 |C) 1980 | **.8  R|
|000000d0| 45 4d 20 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |EM  ****|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 31 35 |********|*****.15|
|000000f0| 20 53 59 20 3d 20 30 3a | 50 4b 20 3d 20 30 3a 20 | SY = 0:|PK = 0: |
|00000100| 47 4f 54 4f 20 34 30 0a | 33 30 20 20 50 52 49 4e |GOTO 40.|30  PRIN|
|00000110| 54 20 20 53 50 43 28 20 | 50 4b 20 2d 53 59 29 57 |T  SPC( |PK -SY)W|
|00000120| 24 3b 3a 53 59 20 3d 20 | 53 59 20 2b 28 50 4b 20 |$;:SY = |SY +(PK |
|00000130| 2d 53 59 29 20 2b 20 4c | 45 4e 28 57 24 29 3a 20 |-SY) + L|EN(W$): |
|00000140| 52 45 54 55 52 4e 20 0a | 33 35 20 20 50 52 49 4e |RETURN .|35  PRIN|
|00000150| 54 20 20 53 50 43 28 20 | 50 4b 20 2d 53 59 29 57 |T  SPC( |PK -SY)W|
|00000160| 24 3a 20 52 45 54 55 52 | 4e 20 0a 34 30 20 20 44 |$: RETUR|N .40  D|
|00000170| 49 4d 20 4d 24 28 31 33 | 29 2c 54 28 31 33 29 2c |IM M$(13|),T(13),|
|00000180| 4e 5a 28 32 30 29 2c 50 | 5a 28 32 30 29 2c 4e 48 |NZ(20),P|Z(20),NH|
|00000190| 28 31 33 29 2c 4d 48 28 | 31 33 29 2c 4d 4f 28 31 |(13),MH(|13),MO(1|
|000001a0| 33 29 0a 34 31 20 20 44 | 49 4d 20 43 43 24 28 32 |3).41  D|IM CC$(2|
|000001b0| 30 29 0a 34 35 20 20 46 | 4f 52 20 4e 20 3d 20 31 |0).45  F|OR N = 1|
|000001c0| 20 54 4f 20 31 32 3a 20 | 52 45 41 44 20 4d 24 28 | TO 12: |READ M$(|
|000001d0| 4e 29 3a 20 4e 45 58 54 | 20 4e 0a 34 37 20 20 48 |N): NEXT| N.47  H|
|000001e0| 4f 4d 45 20 3a 20 50 52 | 49 4e 54 20 3a 20 50 52 |OME : PR|INT : PR|
|000001f0| 49 4e 54 20 3a 20 50 52 | 49 4e 54 20 20 54 41 42 |INT : PR|INT  TAB|
|00000200| 28 20 31 30 29 22 46 4f | 52 45 43 41 53 54 20 41 |( 10)"FO|RECAST A|
|00000210| 4e 44 20 53 41 4c 45 53 | 20 54 52 45 4e 44 22 3a |ND SALES| TREND":|
|00000220| 20 50 52 49 4e 54 20 20 | 54 41 42 28 20 31 32 29 | PRINT  |TAB( 12)|
|00000230| 22 28 46 2e 41 2e 53 2e | 54 29 20 41 4e 41 4c 59 |"(F.A.S.|T) ANALY|
|00000240| 53 49 53 22 0a 34 38 20 | 20 50 52 49 4e 54 20 20 |SIS".48 | PRINT  |
|00000250| 54 41 42 28 20 31 31 29 | 22 20 4d 49 43 52 4f 2d |TAB( 11)|" MICRO-|
|00000260| 53 50 41 52 43 2c 20 49 | 4e 43 2e 20 22 3a 20 50 |SPARC, I|NC. ": P|
|00000270| 52 49 4e 54 20 3a 20 50 | 52 49 4e 54 20 22 49 4e |RINT : P|RINT "IN|
|00000280| 53 54 52 55 43 54 49 4f | 4e 53 3f 20 45 4e 54 45 |STRUCTIO|NS? ENTE|
|00000290| 52 20 59 20 4f 52 20 4e | 22 3b 3a 20 49 4e 50 55 |R Y OR N|";: INPU|
|000002a0| 54 20 58 58 24 3a 20 49 | 46 20 58 58 24 20 3d 20 |T XX$: I|F XX$ = |
|000002b0| 22 59 22 20 20 54 48 45 | 4e 20 20 47 4f 53 55 42 |"Y"  THE|N  GOSUB|
|000002c0| 20 35 30 30 30 0a 34 39 | 20 20 50 52 49 4e 54 20 | 5000.49|  PRINT |
|000002d0| 3a 20 50 52 49 4e 54 20 | 22 54 4f 20 41 44 4a 55 |: PRINT |"TO ADJU|
|000002e0| 53 54 20 54 48 45 20 52 | 45 50 4f 52 54 20 57 49 |ST THE R|EPORT WI|
|000002f0| 44 54 48 3a 22 3a 20 50 | 52 49 4e 54 20 22 45 4e |DTH:": P|RINT "EN|
|00000300| 54 45 52 20 27 47 27 20 | 46 4f 52 20 3e 20 38 30 |TER 'G' |FOR > 80|
|00000310| 20 43 4f 4c 55 4d 4e 53 | 22 3a 20 50 52 49 4e 54 | COLUMNS|": PRINT|
|00000320| 20 22 45 4e 54 45 52 20 | 27 4c 27 20 46 4f 52 20 | "ENTER |'L' FOR |
|00000330| 3c 3d 20 38 30 20 43 4f | 4c 55 4d 4e 53 22 3a 20 |<= 80 CO|LUMNS": |
|00000340| 50 52 49 4e 54 20 3a 20 | 49 4e 50 55 54 20 22 45 |PRINT : |INPUT "E|
|00000350| 4e 54 45 52 20 47 20 4f | 52 20 4c 22 3b 5a 5a 24 |NTER G O|R L";ZZ$|
|00000360| 3a 4b 20 3d 20 36 3a 20 | 49 46 20 5a 5a 24 20 3d |:K = 6: |IF ZZ$ =|
|00000370| 20 22 47 22 20 20 54 48 | 45 4e 20 4b 20 3d 20 35 | "G"  TH|EN K = 5|
|00000380| 0a 35 30 20 44 24 20 3d | 20 20 43 48 52 24 28 34 |.50 D$ =|  CHR$(4|
|00000390| 29 3a 20 49 4e 50 55 54 | 20 22 52 45 41 44 20 4f |): INPUT| "READ O|
|000003a0| 52 20 43 52 45 41 54 45 | 20 53 41 4c 45 53 20 4d |R CREATE| SALES M|
|000003b0| 4f 44 45 4c 2e 20 52 20 | 4f 52 20 43 3f 20 22 3b |ODEL. R |OR C? ";|
|000003c0| 58 58 24 0a 35 31 20 20 | 50 52 49 4e 54 20 44 24 |XX$.51  |PRINT D$|
|000003d0| 3b 22 4e 4f 4d 4f 4e 49 | 2c 4f 2c 43 22 0a 35 35 |;"NOMONI|,O,C".55|
|000003e0| 20 20 49 46 20 58 58 24 | 20 3d 20 22 52 22 20 20 |  IF XX$| = "R"  |
|000003f0| 54 48 45 4e 20 20 47 4f | 53 55 42 20 33 39 30 3a |THEN  GO|SUB 390:|
|00000400| 20 44 49 4d 20 50 4e 24 | 28 4e 50 29 2c 50 28 4e | DIM PN$|(NP),P(N|
|00000410| 50 2c 35 2c 31 32 29 2c | 50 4e 28 4e 50 2c 31 32 |P,5,12),|PN(NP,12|
|00000420| 29 2c 55 28 4e 50 2c 31 | 32 29 2c 44 28 4e 50 2c |),U(NP,1|2),D(NP,|
|00000430| 31 32 29 3a 20 47 4f 53 | 55 42 20 33 35 30 3a 20 |12): GOS|UB 350: |
|00000440| 47 4f 54 4f 20 35 30 30 | 0a 31 30 30 20 20 49 4e |GOTO 500|.100  IN|
|00000450| 50 55 54 20 22 4e 55 4d | 42 45 52 20 4f 46 20 50 |PUT "NUM|BER OF P|
|00000460| 52 4f 44 55 43 54 53 20 | 54 4f 20 42 45 20 4d 4f |RODUCTS |TO BE MO|
|00000470| 44 45 4c 45 44 3f 20 22 | 3b 4e 50 0a 31 30 35 20 |DELED? "|;NP.105 |
|00000480| 20 44 49 4d 20 50 4e 24 | 28 4e 50 29 2c 50 28 4e | DIM PN$|(NP),P(N|
|00000490| 50 2c 35 2c 31 33 29 2c | 50 4e 28 4e 50 2c 31 33 |P,5,13),|PN(NP,13|
|000004a0| 29 2c 55 28 4e 50 2c 31 | 33 29 2c 44 28 4e 50 2c |),U(NP,1|3),D(NP,|
|000004b0| 31 33 29 0a 31 31 30 20 | 20 46 4f 52 20 49 20 3d |13).110 | FOR I =|
|000004c0| 20 31 20 54 4f 20 4e 50 | 3a 0a 31 31 31 20 20 50 | 1 TO NP|:.111  P|
|000004d0| 52 49 4e 54 20 22 57 48 | 41 54 20 49 53 20 54 48 |RINT "WH|AT IS TH|
|000004e0| 45 20 4e 41 4d 45 20 4f | 46 20 50 52 4f 44 55 43 |E NAME O|F PRODUC|
|000004f0| 54 20 23 22 3b 49 3a 20 | 49 4e 50 55 54 20 50 4e |T #";I: |INPUT PN|
|00000500| 24 28 49 29 3a 20 50 52 | 49 4e 54 20 3a 20 49 46 |$(I): PR|INT : IF|
|00000510| 20 49 20 3e 31 20 20 54 | 48 45 4e 20 31 31 33 0a | I >1  T|HEN 113.|
|00000520| 31 31 32 20 20 50 52 49 | 4e 54 20 22 45 4e 54 45 |112  PRI|NT "ENTE|
|00000530| 52 20 54 48 45 20 55 4e | 49 54 53 20 4f 46 20 50 |R THE UN|ITS OF P|
|00000540| 52 49 43 45 22 3a 20 50 | 52 49 4e 54 20 22 31 20 |RICE": P|RINT "1 |
|00000550| 3d 20 24 20 44 4f 4c 4c | 41 52 53 22 3a 20 50 52 |= $ DOLL|ARS": PR|
|00000560| 49 4e 54 20 22 32 20 3d | 20 24 31 30 30 27 53 20 |INT "2 =| $100'S |
|00000570| 4f 46 20 44 4f 4c 4c 41 | 52 53 22 3a 20 50 52 49 |OF DOLLA|RS": PRI|
|00000580| 4e 54 20 22 33 20 3d 20 | 24 31 30 30 30 27 53 20 |NT "3 = |$1000'S |
|00000590| 4f 46 20 44 4f 4c 4c 41 | 52 53 22 3b 3a 20 49 4e |OF DOLLA|RS";: IN|
|000005a0| 50 55 54 20 55 4e 0a 31 | 31 33 20 20 49 4e 50 55 |PUT UN.1|13  INPU|
|000005b0| 54 20 22 57 48 41 54 20 | 49 53 20 54 48 45 20 53 |T "WHAT |IS THE S|
|000005c0| 41 4c 45 53 20 56 41 4c | 55 45 2f 55 4e 49 54 3f |ALES VAL|UE/UNIT?|
|000005d0| 22 3b 53 56 28 49 29 3a | 20 48 4f 4d 45 20 3a 20 |";SV(I):| HOME : |
|000005e0| 49 46 20 49 20 3e 31 20 | 20 54 48 45 4e 20 32 30 |IF I >1 | THEN 20|
|000005f0| 30 0a 31 31 35 20 20 50 | 52 49 4e 54 20 22 4e 4f |0.115  P|RINT "NO|
|00000600| 57 20 50 4c 45 41 53 45 | 20 45 4e 54 45 52 20 54 |W PLEASE| ENTER T|
|00000610| 48 45 20 53 41 4c 45 53 | 20 4d 4f 44 45 4c 20 46 |HE SALES| MODEL F|
|00000620| 4f 52 22 3a 20 50 52 49 | 4e 54 20 22 27 20 22 3b |OR": PRI|NT "' ";|
|00000630| 50 4e 24 28 49 29 3b 22 | 20 27 20 42 59 20 4d 4f |PN$(I);"| ' BY MO|
|00000640| 4e 54 48 2e 22 3a 20 50 | 52 49 4e 54 20 0a 31 32 |NTH.": P|RINT .12|
|00000650| 30 20 20 50 52 49 4e 54 | 20 22 54 48 49 53 20 57 |0  PRINT| "THIS W|
|00000660| 49 4c 4c 20 49 4e 56 4f | 4c 56 45 20 4d 41 4b 49 |ILL INVO|LVE MAKI|
|00000670| 4e 47 20 41 20 4a 55 44 | 47 45 4d 45 4e 54 22 3a |NG A JUD|GEMENT":|
|00000680| 20 50 52 49 4e 54 20 22 | 41 42 4f 55 54 20 54 48 | PRINT "|ABOUT TH|
|00000690| 45 20 55 4e 49 54 20 53 | 41 4c 45 53 20 54 48 41 |E UNIT S|ALES THA|
|000006a0| 54 20 41 52 45 20 4d 41 | 44 45 20 45 41 43 48 22 |T ARE MA|DE EACH"|
|000006b0| 3a 20 50 52 49 4e 54 20 | 22 4d 4f 4e 54 48 20 42 |: PRINT |"MONTH B|
|000006c0| 59 20 35 20 47 52 4f 55 | 50 53 20 4f 46 20 53 41 |Y 5 GROU|PS OF SA|
|000006d0| 4c 45 53 4d 45 4e 2e 22 | 0a 31 32 35 20 20 50 52 |LESMEN."|.125  PR|
|000006e0| 49 4e 54 20 3a 20 50 52 | 49 4e 54 20 22 46 49 52 |INT : PR|INT "FIR|
|000006f0| 53 54 2c 20 59 4f 55 27 | 4c 4c 20 42 45 20 41 53 |ST, YOU'|LL BE AS|
|00000700| 4b 45 44 20 54 4f 20 45 | 4e 54 45 52 20 54 48 45 |KED TO E|NTER THE|
|00000710| 22 3a 20 50 52 49 4e 54 | 20 22 41 56 45 52 41 47 |": PRINT| "AVERAG|
|00000720| 45 20 53 41 4c 45 53 20 | 46 4f 52 20 45 41 43 48 |E SALES |FOR EACH|
|00000730| 20 4d 4f 4e 54 48 20 46 | 4f 52 20 54 48 45 22 3a | MONTH F|OR THE":|
|00000740| 20 50 52 49 4e 54 20 22 | 54 4f 50 20 32 30 25 20 | PRINT "|TOP 20% |
|00000750| 4f 46 20 59 4f 55 52 20 | 53 41 4c 45 53 46 4f 52 |OF YOUR |SALESFOR|
|00000760| 43 45 2e 20 20 54 48 45 | 4e 20 59 4f 55 22 0a 31 |CE.  THE|N YOU".1|
|00000770| 33 30 20 20 50 52 49 4e | 54 20 22 57 49 4c 4c 20 |30  PRIN|T "WILL |
|00000780| 42 45 20 41 53 4b 45 44 | 20 54 4f 20 45 4e 54 45 |BE ASKED| TO ENTE|
|00000790| 52 20 54 48 45 20 41 56 | 45 52 41 47 45 22 3a 20 |R THE AV|ERAGE": |
|000007a0| 50 52 49 4e 54 20 22 53 | 41 4c 45 53 20 46 4f 52 |PRINT "S|ALES FOR|
|000007b0| 20 45 41 43 48 20 4d 4f | 4e 54 48 20 46 4f 52 20 | EACH MO|NTH FOR |
|000007c0| 54 48 45 20 4e 45 58 54 | 20 32 30 25 22 3a 20 50 |THE NEXT| 20%": P|
|000007d0| 52 49 4e 54 20 22 4f 46 | 20 59 4f 55 52 20 53 41 |RINT "OF| YOUR SA|
|000007e0| 4c 45 53 46 4f 52 43 45 | 2e 20 20 59 4f 55 20 57 |LESFORCE|.  YOU W|
|000007f0| 49 4c 4c 20 43 4f 4e 54 | 49 4e 55 45 22 0a 31 33 |ILL CONT|INUE".13|
|00000800| 35 20 20 50 52 49 4e 54 | 20 22 45 4e 54 45 52 49 |5  PRINT| "ENTERI|
|00000810| 4e 47 20 54 48 45 20 27 | 53 41 4c 45 53 20 4d 4f |NG THE '|SALES MO|
|00000820| 44 45 4c 27 20 41 4c 4c | 20 54 48 45 20 57 41 59 |DEL' ALL| THE WAY|
|00000830| 22 3a 20 50 52 49 4e 54 | 20 22 54 48 52 4f 55 47 |": PRINT| "THROUG|
|00000840| 48 20 54 4f 20 54 48 45 | 20 4d 4f 4e 54 48 4c 59 |H TO THE| MONTHLY|
|00000850| 20 53 41 4c 45 53 20 46 | 4f 52 20 54 48 45 22 3a | SALES F|OR THE":|
|00000860| 20 50 52 49 4e 54 20 22 | 42 4f 54 54 4f 4d 20 32 | PRINT "|BOTTOM 2|
|00000870| 30 25 20 4f 46 20 59 4f | 55 52 20 53 41 4c 45 53 |0% OF YO|UR SALES|
|00000880| 46 4f 52 43 45 2e 22 0a | 31 34 30 20 20 50 52 49 |FORCE.".|140  PRI|
|00000890| 4e 54 20 3a 20 50 52 49 | 4e 54 20 22 49 54 27 53 |NT : PRI|NT "IT'S|
|000008a0| 20 41 20 54 45 44 49 4f | 55 53 20 50 52 4f 43 45 | A TEDIO|US PROCE|
|000008b0| 53 53 20 42 55 54 20 50 | 41 59 53 20 42 49 47 22 |SS BUT P|AYS BIG"|
|000008c0| 3a 20 50 52 49 4e 54 20 | 22 44 49 56 49 44 45 4e |: PRINT |"DIVIDEN|
|000008d0| 44 53 20 49 4e 20 46 4f | 52 45 43 41 53 54 49 4e |DS IN FO|RECASTIN|
|000008e0| 47 20 41 4e 44 20 50 4c | 41 4e 4e 49 4e 47 21 22 |G AND PL|ANNING!"|
|000008f0| 3a 20 50 52 49 4e 54 20 | 0a 31 34 35 20 20 50 52 |: PRINT |.145  PR|
|00000900| 49 4e 54 20 22 48 49 54 | 20 41 4e 59 20 4b 45 59 |INT "HIT| ANY KEY|
|00000910| 20 54 4f 20 42 45 47 49 | 4e 22 3a 20 47 45 54 20 | TO BEGI|N": GET |
|00000920| 4b 24 3a 20 50 52 49 4e | 54 20 4b 24 0a 32 30 30 |K$: PRIN|T K$.200|
|00000930| 20 20 48 4f 4d 45 20 3a | 20 46 4f 52 20 58 20 3d |  HOME :| FOR X =|
|00000940| 20 34 20 54 4f 20 30 20 | 20 53 54 45 50 20 20 2d | 4 TO 0 | STEP  -|
|00000950| 31 0a 32 30 35 20 20 50 | 52 49 4e 54 20 22 46 4f |1.205  P|RINT "FO|
|00000960| 52 20 54 48 45 20 22 3b | 58 20 2a 32 30 3b 22 2d |R THE ";|X *20;"-|
|00000970| 22 3b 28 58 20 2b 31 29 | 20 2a 32 30 3b 22 20 25 |";(X +1)| *20;" %|
|00000980| 20 4f 46 20 54 48 45 20 | 53 41 4c 45 53 46 4f 52 | OF THE |SALESFOR|
|00000990| 43 45 22 0a 32 31 30 20 | 20 50 52 49 4e 54 20 22 |CE".210 | PRINT "|
|000009a0| 45 4e 54 45 52 20 54 48 | 45 20 50 52 4f 42 41 42 |ENTER TH|E PROBAB|
|000009b0| 4c 45 20 53 41 4c 45 53 | 20 4f 46 20 27 22 3b 50 |LE SALES| OF '";P|
|000009c0| 4e 24 28 49 29 3b 22 27 | 22 3a 20 50 52 49 4e 54 |N$(I);"'|": PRINT|
|000009d0| 20 22 46 4f 52 20 45 41 | 43 48 20 4d 4f 4e 54 48 | "FOR EA|CH MONTH|
|000009e0| 22 0a 32 32 30 20 20 46 | 4f 52 20 4e 20 3d 20 31 |".220  F|OR N = 1|
|000009f0| 20 54 4f 20 31 32 0a 32 | 32 35 20 20 50 52 49 4e | TO 12.2|25  PRIN|
|00000a00| 54 20 4d 24 28 4e 29 3b | 22 20 53 41 4c 45 53 3d |T M$(N);|" SALES=|
|00000a10| 22 3b 3a 20 49 4e 50 55 | 54 20 50 28 49 2c 58 20 |";: INPU|T P(I,X |
|00000a20| 2b 31 2c 4e 29 0a 32 33 | 30 20 20 4e 45 58 54 20 |+1,N).23|0  NEXT |
|00000a30| 4e 3a 20 48 4f 4d 45 20 | 3a 20 4e 45 58 54 20 58 |N: HOME |: NEXT X|
|00000a40| 3a 20 52 45 4d 20 20 52 | 45 4d 4f 56 45 20 48 4f |: REM  R|EMOVE HO|
|00000a50| 4d 45 20 49 4e 53 54 52 | 55 43 54 49 4f 4e 20 49 |ME INSTR|UCTION I|
|00000a60| 4e 20 4f 52 44 45 52 20 | 54 4f 20 53 43 52 4f 4c |N ORDER |TO SCROL|
|00000a70| 4c 20 4d 4f 4e 54 48 53 | 0a 32 34 30 20 20 48 4f |L MONTHS|.240  HO|
|00000a80| 4d 45 20 3a 20 50 52 49 | 4e 54 20 22 4e 4f 57 20 |ME : PRI|NT "NOW |
|00000a90| 45 4e 54 45 52 20 54 48 | 45 20 50 52 4f 42 41 42 |ENTER TH|E PROBAB|
|00000aa0| 4c 45 20 53 41 4c 45 53 | 20 28 42 59 20 4d 4f 4e |LE SALES| (BY MON|
|00000ab0| 54 48 29 22 3a 20 50 52 | 49 4e 54 20 22 46 4f 52 |TH)": PR|INT "FOR|
|00000ac0| 20 41 20 54 59 50 49 43 | 41 4c 20 4e 45 57 20 48 | A TYPIC|AL NEW H|
|00000ad0| 49 52 45 20 53 41 4c 45 | 53 50 45 52 53 4f 4e 22 |IRE SALE|SPERSON"|
|00000ae0| 0a 32 35 30 20 20 46 4f | 52 20 4e 20 3d 20 31 20 |.250  FO|R N = 1 |
|00000af0| 54 4f 20 31 32 0a 32 36 | 30 20 20 50 52 49 4e 54 |TO 12.26|0  PRINT|
|00000b00| 20 4d 24 28 4e 29 3b 22 | 20 53 41 4c 45 53 20 22 | M$(N);"| SALES "|
|00000b10| 3b 3a 20 49 4e 50 55 54 | 20 50 4e 28 49 2c 4e 29 |;: INPUT| PN(I,N)|
|00000b20| 3a 20 4e 45 58 54 20 4e | 0a 32 37 30 20 20 48 4f |: NEXT N|.270  HO|
|00000b30| 4d 45 20 3a 20 50 52 49 | 4e 54 20 22 4e 45 58 54 |ME : PRI|NT "NEXT|
|00000b40| 20 50 52 4f 44 55 43 54 | 22 3a 20 4e 45 58 54 20 | PRODUCT|": NEXT |
|00000b50| 49 0a 33 30 30 20 20 48 | 4f 4d 45 20 3a 20 49 4e |I.300  H|OME : IN|
|00000b60| 50 55 54 20 22 53 54 4f | 52 45 20 53 41 4c 45 53 |PUT "STO|RE SALES|
|00000b70| 20 4d 4f 44 45 4c 20 4f | 4e 20 44 49 53 4b 3f 20 | MODEL O|N DISK? |
|00000b80| 59 20 4f 52 20 4e 2e 22 | 3b 58 58 24 0a 33 30 35 |Y OR N."|;XX$.305|
|00000b90| 20 20 49 46 20 58 58 24 | 20 3c 20 3e 22 59 22 20 |  IF XX$| < >"Y" |
|00000ba0| 20 54 48 45 4e 20 35 30 | 30 0a 33 31 30 20 20 50 | THEN 50|0.310  P|
|00000bb0| 52 49 4e 54 20 44 24 3b | 22 4f 50 45 4e 20 4d 4f |RINT D$;|"OPEN MO|
|00000bc0| 44 45 4c 22 0a 33 31 31 | 20 20 50 52 49 4e 54 20 |DEL".311|  PRINT |
|00000bd0| 44 24 3b 22 57 52 49 54 | 45 20 4d 4f 44 45 4c 22 |D$;"WRIT|E MODEL"|
|00000be0| 0a 33 31 35 20 20 50 52 | 49 4e 54 20 4e 50 0a 33 |.315  PR|INT NP.3|
|00000bf0| 31 37 20 20 50 52 49 4e | 54 20 55 4e 0a 33 32 30 |17  PRIN|T UN.320|
|00000c00| 20 20 46 4f 52 20 49 20 | 3d 20 31 20 54 4f 20 4e |  FOR I |= 1 TO N|
|00000c10| 50 0a 33 32 32 20 20 50 | 52 49 4e 54 20 50 4e 24 |P.322  P|RINT PN$|
|00000c20| 28 49 29 0a 33 32 34 20 | 20 50 52 49 4e 54 20 53 |(I).324 | PRINT S|
|00000c30| 56 28 49 29 0a 33 32 35 | 20 20 46 4f 52 20 58 20 |V(I).325|  FOR X |
|00000c40| 3d 20 31 20 54 4f 20 35 | 0a 33 32 36 20 20 46 4f |= 1 TO 5|.326  FO|
|00000c50| 52 20 4e 20 3d 20 31 20 | 54 4f 20 31 32 0a 33 32 |R N = 1 |TO 12.32|
|00000c60| 38 20 20 50 52 49 4e 54 | 20 50 28 49 2c 58 2c 4e |8  PRINT| P(I,X,N|
|00000c70| 29 0a 33 33 30 20 20 4e | 45 58 54 20 4e 3a 20 4e |).330  N|EXT N: N|
|00000c80| 45 58 54 20 58 0a 33 33 | 32 20 20 46 4f 52 20 4e |EXT X.33|2  FOR N|
|00000c90| 20 3d 20 31 20 54 4f 20 | 31 32 0a 33 33 33 20 20 | = 1 TO |12.333  |
|00000ca0| 50 52 49 4e 54 20 50 4e | 28 49 2c 4e 29 0a 33 33 |PRINT PN|(I,N).33|
|00000cb0| 34 20 20 4e 45 58 54 20 | 4e 3a 20 4e 45 58 54 20 |4  NEXT |N: NEXT |
|00000cc0| 49 0a 33 33 35 20 20 50 | 52 49 4e 54 20 44 24 3b |I.335  P|RINT D$;|
|00000cd0| 22 43 4c 4f 53 45 20 4d | 4f 44 45 4c 22 0a 33 34 |"CLOSE M|ODEL".34|
|00000ce0| 30 20 20 47 4f 54 4f 20 | 35 30 30 0a 33 35 30 20 |0  GOTO |500.350 |
|00000cf0| 20 50 52 49 4e 54 20 44 | 24 3b 22 4f 50 45 4e 20 | PRINT D|$;"OPEN |
|00000d00| 4d 4f 44 45 4c 22 0a 33 | 35 35 20 20 50 52 49 4e |MODEL".3|55  PRIN|
|00000d10| 54 20 44 24 3b 22 52 45 | 41 44 20 4d 4f 44 45 4c |T D$;"RE|AD MODEL|
|00000d20| 22 0a 33 36 30 20 20 49 | 4e 50 55 54 20 4e 50 0a |".360  I|NPUT NP.|
|00000d30| 33 36 31 20 20 49 4e 50 | 55 54 20 55 4e 0a 33 36 |361  INP|UT UN.36|
|00000d40| 32 20 20 46 4f 52 20 49 | 20 3d 20 31 20 54 4f 20 |2  FOR I| = 1 TO |
|00000d50| 4e 50 0a 33 36 34 20 20 | 49 4e 50 55 54 20 50 4e |NP.364  |INPUT PN|
|00000d60| 24 28 49 29 0a 33 36 36 | 20 20 49 4e 50 55 54 20 |$(I).366|  INPUT |
|00000d70| 53 56 28 49 29 0a 33 36 | 37 20 20 46 4f 52 20 58 |SV(I).36|7  FOR X|
|00000d80| 20 3d 20 31 20 54 4f 20 | 35 0a 33 36 38 20 20 46 | = 1 TO |5.368  F|
|00000d90| 4f 52 20 4e 20 3d 20 31 | 20 54 4f 20 31 32 0a 33 |OR N = 1| TO 12.3|
|00000da0| 37 30 20 20 49 4e 50 55 | 54 20 50 28 49 2c 58 2c |70  INPU|T P(I,X,|
|00000db0| 4e 29 0a 33 37 32 20 20 | 4e 45 58 54 20 4e 3a 20 |N).372  |NEXT N: |
|00000dc0| 4e 45 58 54 20 58 0a 33 | 37 34 20 20 46 4f 52 20 |NEXT X.3|74  FOR |
|00000dd0| 4e 20 3d 20 31 20 54 4f | 20 31 32 0a 33 37 35 20 |N = 1 TO| 12.375 |
|00000de0| 20 49 4e 50 55 54 20 50 | 4e 28 49 2c 4e 29 0a 33 | INPUT P|N(I,N).3|
|00000df0| 37 36 20 20 4e 45 58 54 | 20 4e 3a 20 4e 45 58 54 |76  NEXT| N: NEXT|
|00000e00| 20 49 0a 33 38 30 20 20 | 50 52 49 4e 54 20 44 24 | I.380  |PRINT D$|
|00000e10| 3b 22 43 4c 4f 53 45 20 | 4d 4f 44 45 4c 22 0a 33 |;"CLOSE |MODEL".3|
|00000e20| 38 35 20 20 47 4f 54 4f | 20 35 30 30 0a 33 39 30 |85  GOTO| 500.390|
|00000e30| 20 20 50 52 49 4e 54 20 | 44 24 3b 22 4f 50 45 4e |  PRINT |D$;"OPEN|
|00000e40| 20 4d 4f 44 45 4c 22 0a | 33 39 32 20 20 50 52 49 | MODEL".|392  PRI|
|00000e50| 4e 54 20 44 24 3b 22 52 | 45 41 44 20 4d 4f 44 45 |NT D$;"R|EAD MODE|
|00000e60| 4c 22 0a 33 39 34 20 20 | 49 4e 50 55 54 20 4e 50 |L".394  |INPUT NP|
|00000e70| 0a 33 39 36 20 20 50 52 | 49 4e 54 20 44 24 3b 22 |.396  PR|INT D$;"|
|00000e80| 43 4c 4f 53 45 20 4d 4f | 44 45 4c 22 0a 33 39 38 |CLOSE MO|DEL".398|
|00000e90| 20 20 52 45 54 55 52 4e | 20 0a 35 30 30 20 20 48 |  RETURN| .500  H|
|00000ea0| 4f 4d 45 20 3a 20 49 4e | 50 55 54 20 22 23 20 4f |OME : IN|PUT "# O|
|00000eb0| 46 20 53 41 4c 45 53 4d | 45 4e 22 3b 4e 53 3a 4e |F SALESM|EN";NS:N|
|00000ec0| 53 20 3d 20 4e 53 20 2a | 31 30 30 0a 35 30 32 20 |S = NS *|100.502 |
|00000ed0| 20 49 46 20 55 4e 20 3d | 20 31 20 20 54 48 45 4e | IF UN =| 1  THEN|
|00000ee0| 20 5a 24 20 3d 20 22 28 | 24 20 55 4e 49 54 53 29 | Z$ = "(|$ UNITS)|
|00000ef0| 22 0a 35 30 33 20 20 49 | 46 20 55 4e 20 3d 20 32 |".503  I|F UN = 2|
|00000f00| 20 20 54 48 45 4e 20 5a | 24 20 3d 20 22 28 24 20 |  THEN Z|$ = "($ |
|00000f10| 31 30 30 27 53 29 22 0a | 35 30 34 20 20 49 46 20 |100'S)".|504  IF |
|00000f20| 55 4e 20 3d 20 33 20 20 | 54 48 45 4e 20 5a 24 20 |UN = 3  |THEN Z$ |
|00000f30| 3d 20 22 28 24 20 31 30 | 30 30 27 53 29 22 0a 35 |= "($ 10|00'S)".5|
|00000f40| 30 35 20 43 43 20 3d 20 | 31 0a 35 30 36 20 20 50 |05 CC = |1.506  P|
|00000f50| 52 49 4e 54 20 22 43 4f | 4d 4d 45 4e 54 53 3f 20 |RINT "CO|MMENTS? |
|00000f60| 54 59 50 45 20 27 45 4e | 44 27 20 54 4f 20 43 4f |TYPE 'EN|D' TO CO|
|00000f70| 4e 54 49 4e 55 45 22 0a | 35 30 37 20 20 49 4e 50 |NTINUE".|507  INP|
|00000f80| 55 54 20 43 43 24 28 43 | 43 29 0a 35 30 38 20 20 |UT CC$(C|C).508  |
|00000f90| 49 46 20 43 43 24 28 43 | 43 29 20 3d 20 22 45 4e |IF CC$(C|C) = "EN|
|00000fa0| 44 22 20 20 54 48 45 4e | 20 35 31 30 0a 35 30 39 |D"  THEN| 510.509|
|00000fb0| 20 43 43 20 3d 20 43 43 | 20 2b 31 3a 20 47 4f 54 | CC = CC| +1: GOT|
|00000fc0| 4f 20 35 30 37 0a 35 31 | 30 20 20 46 4f 52 20 49 |O 507.51|0  FOR I|
|00000fd0| 20 3d 20 31 20 54 4f 20 | 4e 50 0a 35 32 30 20 20 | = 1 TO |NP.520  |
|00000fe0| 50 52 49 4e 54 20 22 25 | 20 4f 46 20 54 49 4d 45 |PRINT "%| OF TIME|
|00000ff0| 20 54 4f 20 42 45 20 53 | 50 45 4e 54 20 4f 4e 20 | TO BE S|PENT ON |
|00001000| 22 3b 50 4e 24 28 49 29 | 3b 3a 20 49 4e 50 55 54 |";PN$(I)|;: INPUT|
|00001010| 20 50 54 28 49 29 0a 35 | 33 30 20 20 4e 45 58 54 | PT(I).5|30  NEXT|
|00001020| 20 49 0a 36 30 30 20 51 | 20 3d 20 31 0a 36 31 30 | I.600 Q| = 1.610|
|00001030| 20 20 49 4e 50 55 54 20 | 22 23 20 4f 46 20 4e 45 |  INPUT |"# OF NE|
|00001040| 57 20 48 49 52 45 53 20 | 50 4c 41 4e 4e 45 44 3f |W HIRES |PLANNED?|
|00001050| 20 30 20 54 4f 20 45 4e | 44 20 22 3b 4e 48 28 51 | 0 TO EN|D ";NH(Q|
|00001060| 29 3a 20 49 46 20 4e 48 | 28 51 29 20 3d 20 30 20 |): IF NH|(Q) = 0 |
|00001070| 20 54 48 45 4e 20 37 30 | 30 0a 36 32 30 20 20 49 | THEN 70|0.620  I|
|00001080| 4e 50 55 54 20 22 48 49 | 52 45 20 41 54 20 54 48 |NPUT "HI|RE AT TH|
|00001090| 45 20 45 4e 44 20 4f 46 | 20 4d 4f 4e 54 48 20 23 |E END OF| MONTH #|
|000010a0| 3f 20 28 31 2d 31 32 29 | 20 22 3b 4d 48 28 51 29 |? (1-12)| ";MH(Q)|
|000010b0| 0a 36 32 31 20 4e 48 28 | 51 29 20 3d 20 4e 48 28 |.621 NH(|Q) = NH(|
|000010c0| 51 29 20 2a 31 30 30 0a | 36 32 32 20 20 46 4f 52 |Q) *100.|622  FOR|
|000010d0| 20 49 20 3d 20 31 20 54 | 4f 20 4e 50 3a 4e 5a 28 | I = 1 T|O NP:NZ(|
|000010e0| 49 29 20 3d 20 4e 48 28 | 51 29 20 2a 28 50 54 28 |I) = NH(|Q) *(PT(|
|000010f0| 49 29 2f 31 30 30 29 0a | 36 32 33 20 50 5a 28 49 |I)/100).|623 PZ(I|
|00001100| 29 20 3d 20 50 5a 28 49 | 29 20 2b 4e 5a 28 49 29 |) = PZ(I|) +NZ(I)|
|00001110| 0a 36 32 35 20 4d 4f 28 | 51 29 20 3d 20 31 32 20 |.625 MO(|Q) = 12 |
|00001120| 2d 4d 48 28 51 29 3a 20 | 52 45 4d 20 20 4d 4f 4e |-MH(Q): |REM  MON|
|00001130| 54 48 53 20 4f 4e 20 42 | 4f 41 52 44 0a 36 32 38 |THS ON B|OARD.628|
|00001140| 20 56 20 3d 20 4d 48 28 | 51 29 20 2b 31 0a 36 33 | V = MH(|Q) +1.63|
|00001150| 32 20 20 46 4f 52 20 58 | 20 3d 20 31 20 54 4f 20 |2  FOR X| = 1 TO |
|00001160| 4d 4f 28 51 29 0a 36 33 | 35 20 55 28 49 2c 56 29 |MO(Q).63|5 U(I,V)|
|00001170| 20 3d 20 55 28 49 2c 56 | 29 20 2b 20 49 4e 54 28 | = U(I,V|) + INT(|
|00001180| 28 4e 5a 28 49 29 20 2a | 50 4e 28 49 2c 58 29 29 |(NZ(I) *|PN(I,X))|
|00001190| 2f 31 30 30 20 2b 2e 35 | 29 0a 36 33 38 20 56 20 |/100 +.5|).638 V |
|000011a0| 3d 20 56 20 2b 31 0a 36 | 34 35 20 20 4e 45 58 54 |= V +1.6|45  NEXT|
|000011b0| 20 58 3a 56 20 3d 20 4d | 48 28 51 29 20 2b 31 3a | X:V = M|H(Q) +1:|
|000011c0| 20 4e 45 58 54 20 49 0a | 36 39 35 20 51 20 3d 20 | NEXT I.|695 Q = |
|000011d0| 51 20 2b 31 3a 20 47 4f | 54 4f 20 36 31 30 0a 37 |Q +1: GO|TO 610.7|
|000011e0| 30 30 20 20 52 45 4d 20 | 20 44 49 53 54 52 49 42 |00  REM | DISTRIB|
|000011f0| 55 54 45 20 53 41 4c 45 | 53 46 4f 52 43 45 20 42 |UTE SALE|SFORCE B|
|00001200| 59 20 50 52 4f 44 55 43 | 54 0a 37 30 35 20 51 20 |Y PRODUC|T.705 Q |
|00001210| 3d 20 51 20 2d 31 0a 37 | 31 30 20 20 46 4f 52 20 |= Q -1.7|10  FOR |
|00001220| 49 20 3d 20 31 20 54 4f | 20 4e 50 0a 37 31 35 20 |I = 1 TO| NP.715 |
|00001230| 53 50 28 49 29 20 3d 20 | 4e 53 20 2a 28 50 54 28 |SP(I) = |NS *(PT(|
|00001240| 49 29 2f 31 30 30 29 0a | 37 32 30 20 20 4e 45 58 |I)/100).|720  NEX|
|00001250| 54 20 49 0a 37 33 30 20 | 20 52 45 4d 20 20 44 49 |T I.730 | REM  DI|
|00001260| 53 54 52 49 42 55 54 45 | 20 53 41 4c 45 53 46 4f |STRIBUTE| SALESFO|
|00001270| 52 43 45 20 42 59 20 50 | 52 4f 44 55 43 54 49 56 |RCE BY P|RODUCTIV|
|00001280| 49 54 59 20 52 41 4e 4b | 49 4e 47 0a 37 33 35 20 |ITY RANK|ING.735 |
|00001290| 20 46 4f 52 20 49 20 3d | 20 31 20 54 4f 20 4e 50 | FOR I =| 1 TO NP|
|000012a0| 0a 37 34 30 20 20 46 4f | 52 20 58 20 3d 20 31 20 |.740  FO|R X = 1 |
|000012b0| 54 4f 20 35 0a 37 34 35 | 20 45 53 28 49 2c 58 29 |TO 5.745| ES(I,X)|
|000012c0| 20 3d 20 53 50 28 49 29 | 20 2a 2e 32 0a 37 35 30 | = SP(I)| *.2.750|
|000012d0| 20 20 4e 45 58 54 20 58 | 3a 20 4e 45 58 54 20 49 |  NEXT X|: NEXT I|
|000012e0| 0a 37 35 35 20 20 52 45 | 4d 20 20 43 4f 4d 50 55 |.755  RE|M  COMPU|
|000012f0| 54 45 20 55 4e 49 54 20 | 53 41 4c 45 53 0a 37 36 |TE UNIT |SALES.76|
|00001300| 30 20 20 46 4f 52 20 49 | 20 3d 20 31 20 54 4f 20 |0  FOR I| = 1 TO |
|00001310| 4e 50 0a 37 36 35 20 20 | 46 4f 52 20 58 20 3d 20 |NP.765  |FOR X = |
|00001320| 31 20 54 4f 20 35 0a 37 | 37 30 20 20 46 4f 52 20 |1 TO 5.7|70  FOR |
|00001330| 4e 20 3d 20 31 20 54 4f | 20 31 32 0a 37 37 35 20 |N = 1 TO| 12.775 |
|00001340| 55 28 49 2c 4e 29 20 3d | 20 55 28 49 2c 4e 29 20 |U(I,N) =| U(I,N) |
|00001350| 2b 20 49 4e 54 28 28 50 | 28 49 2c 58 2c 4e 29 20 |+ INT((P|(I,X,N) |
|00001360| 2a 45 53 28 49 2c 58 29 | 29 2f 31 30 30 20 2b 2e |*ES(I,X)|)/100 +.|
|00001370| 35 29 0a 37 38 35 20 20 | 4e 45 58 54 20 4e 2c 58 |5).785  |NEXT N,X|
|00001380| 2c 49 0a 38 30 30 20 20 | 52 45 4d 20 20 43 4f 4d |,I.800  |REM  COM|
|00001390| 50 55 54 45 20 53 41 4c | 45 53 20 56 41 4c 55 45 |PUTE SAL|ES VALUE|
|000013a0| 53 0a 38 30 35 20 20 46 | 4f 52 20 49 20 3d 20 31 |S.805  F|OR I = 1|
|000013b0| 20 54 4f 20 4e 50 0a 38 | 31 30 20 20 46 4f 52 20 | TO NP.8|10  FOR |
|000013c0| 4e 20 3d 20 31 20 54 4f | 20 31 32 0a 38 31 35 20 |N = 1 TO| 12.815 |
|000013d0| 44 28 49 2c 4e 29 20 3d | 20 55 28 49 2c 4e 29 20 |D(I,N) =| U(I,N) |
|000013e0| 2a 53 56 28 49 29 0a 38 | 32 30 20 20 4e 45 58 54 |*SV(I).8|20  NEXT|
|000013f0| 20 4e 2c 49 0a 32 30 30 | 30 20 20 50 52 23 20 31 | N,I.200|0  PR# 1|
|00001400| 0a 32 30 30 35 20 20 50 | 52 49 4e 54 20 20 43 48 |.2005  P|RINT  CH|
|00001410| 52 24 28 39 29 3b 22 31 | 30 30 4e 22 3a 20 52 45 |R$(9);"1|00N": RE|
|00001420| 4d 20 20 50 52 49 4e 54 | 45 52 20 57 49 44 54 48 |M  PRINT|ER WIDTH|
|00001430| 0a 32 30 31 30 20 20 50 | 52 49 4e 54 20 20 43 48 |.2010  P|RINT  CH|
|00001440| 52 24 28 32 29 3b 20 43 | 48 52 24 28 33 30 29 0a |R$(2); C|HR$(30).|
|00001450| 32 30 31 31 20 20 46 4f | 52 20 49 20 3d 20 31 20 |2011  FO|R I = 1 |
|00001460| 54 4f 20 28 4b 20 2a 31 | 36 29 3a 20 50 52 49 4e |TO (K *1|6): PRIN|
|00001470| 54 20 22 3d 22 3b 3a 20 | 4e 45 58 54 20 49 3a 20 |T "=";: |NEXT I: |
|00001480| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 20 54 |PRINT : |PRINT  T|
|00001490| 41 42 28 20 4b 20 2a 33 | 29 22 2a 2a 2a 20 46 4f |AB( K *3|)"*** FO|
|000014a0| 52 45 43 41 53 54 20 41 | 4e 44 20 53 41 4c 45 53 |RECAST A|ND SALES|
|000014b0| 20 54 52 45 4e 44 20 28 | 46 2e 41 2e 53 2e 54 2e | TREND (|F.A.S.T.|
|000014c0| 29 20 41 4e 41 4c 59 53 | 49 53 20 2a 2a 2a 22 3a |) ANALYS|IS ***":|
|000014d0| 20 46 4f 52 20 49 20 3d | 20 31 20 54 4f 20 28 4b | FOR I =| 1 TO (K|
|000014e0| 20 2a 31 36 29 3a 20 50 | 52 49 4e 54 20 22 3d 22 | *16): P|RINT "="|
|000014f0| 3b 3a 20 4e 45 58 54 20 | 49 3a 20 50 52 49 4e 54 |;: NEXT |I: PRINT|
|00001500| 20 0a 32 30 31 33 20 20 | 50 52 49 4e 54 20 3a 20 | .2013  |PRINT : |
|00001510| 50 52 49 4e 54 20 22 2a | 2a 20 50 4c 41 4e 4e 49 |PRINT "*|* PLANNI|
|00001520| 4e 47 20 41 53 53 55 4d | 50 54 49 4f 4e 53 2f 43 |NG ASSUM|PTIONS/C|
|00001530| 4f 4d 4d 45 4e 54 53 20 | 2a 2a 22 0a 32 30 31 34 |OMMENTS |**".2014|
|00001540| 20 20 50 52 49 4e 54 20 | 3a 20 46 4f 52 20 49 20 |  PRINT |: FOR I |
|00001550| 3d 20 31 20 54 4f 20 43 | 43 20 2d 31 3a 20 50 52 |= 1 TO C|C -1: PR|
|00001560| 49 4e 54 20 43 43 24 28 | 49 29 3a 20 4e 45 58 54 |INT CC$(|I): NEXT|
|00001570| 20 49 3a 20 50 52 49 4e | 54 20 0a 32 30 31 35 20 | I: PRIN|T .2015 |
|00001580| 20 50 52 49 4e 54 20 22 | 4e 55 4d 42 45 52 20 4f | PRINT "|NUMBER O|
|00001590| 46 20 53 41 4c 45 53 4d | 45 4e 20 41 54 20 54 48 |F SALESM|EN AT TH|
|000015a0| 45 20 53 54 41 52 54 20 | 4f 46 20 54 48 45 20 59 |E START |OF THE Y|
|000015b0| 45 41 52 20 3d 22 3b 20 | 49 4e 54 28 4e 53 2f 31 |EAR ="; |INT(NS/1|
|000015c0| 30 30 29 3a 20 50 52 49 | 4e 54 20 0a 32 30 31 37 |00): PRI|NT .2017|
|000015d0| 20 20 49 46 20 4e 48 28 | 49 29 20 3c 20 3d 20 30 |  IF NH(|I) < = 0|
|000015e0| 20 20 54 48 45 4e 20 32 | 30 34 30 0a 32 30 32 30 |  THEN 2|040.2020|
|000015f0| 20 20 46 4f 52 20 49 20 | 3d 20 31 20 54 4f 20 51 |  FOR I |= 1 TO Q|
|00001600| 3a 20 50 52 49 4e 54 20 | 20 49 4e 54 28 4e 48 28 |: PRINT | INT(NH(|
|00001610| 49 29 2f 31 30 30 29 3b | 22 20 4e 45 57 20 53 41 |I)/100);|" NEW SA|
|00001620| 4c 45 53 20 50 45 4f 50 | 4c 45 20 50 4c 41 4e 4e |LES PEOP|LE PLANN|
|00001630| 45 44 20 54 4f 20 42 45 | 20 48 49 52 45 44 20 41 |ED TO BE| HIRED A|
|00001640| 54 20 45 4e 44 20 4f 46 | 20 4d 4f 4e 54 48 20 22 |T END OF| MONTH "|
|00001650| 3b 4d 48 28 49 29 3a 20 | 4e 45 58 54 20 49 0a 32 |;MH(I): |NEXT I.2|
|00001660| 30 34 30 20 20 50 52 49 | 4e 54 20 3a 20 46 4f 52 |040  PRI|NT : FOR|
|00001670| 20 49 20 3d 20 31 20 54 | 4f 20 4e 50 3a 20 50 52 | I = 1 T|O NP: PR|
|00001680| 49 4e 54 20 22 25 20 4f | 46 20 53 41 4c 45 53 20 |INT "% O|F SALES |
|00001690| 54 49 4d 45 20 50 4c 41 | 4e 4e 45 44 20 46 4f 52 |TIME PLA|NNED FOR|
|000016a0| 20 22 3b 50 4e 24 28 49 | 29 3b 22 20 3d 22 3b 50 | ";PN$(I|);" =";P|
|000016b0| 54 28 49 29 3b 22 25 22 | 3b 3a 20 50 52 49 4e 54 |T(I);"%"|;: PRINT|
|000016c0| 20 20 53 50 43 28 20 4b | 29 22 53 41 4c 45 53 20 |  SPC( K|)"SALES |
|000016d0| 56 41 4c 55 45 20 46 4f | 52 20 22 3b 50 4e 24 28 |VALUE FO|R ";PN$(|
|000016e0| 49 29 3b 22 20 3d 24 22 | 3b 53 56 28 49 29 3a 20 |I);" =$"|;SV(I): |
|000016f0| 4e 45 58 54 20 49 0a 32 | 30 34 31 20 20 50 52 49 |NEXT I.2|041  PRI|
|00001700| 4e 54 20 3a 20 46 4f 52 | 20 49 20 3d 20 31 20 54 |NT : FOR| I = 1 T|
|00001710| 4f 20 28 4b 20 2a 31 36 | 29 3a 20 50 52 49 4e 54 |O (K *16|): PRINT|
|00001720| 20 22 3d 22 3b 3a 20 4e | 45 58 54 20 49 3a 20 50 | "=";: N|EXT I: P|
|00001730| 52 49 4e 54 20 0a 32 30 | 34 32 20 20 50 52 49 4e |RINT .20|42  PRIN|
|00001740| 54 20 20 54 41 42 28 20 | 33 30 29 22 55 4e 49 54 |T  TAB( |30)"UNIT|
|00001750| 20 53 41 4c 45 53 20 46 | 4f 52 45 43 41 53 54 20 | SALES F|ORECAST |
|00001760| 42 59 20 4d 4f 4e 54 48 | 22 0a 32 30 34 33 20 20 |BY MONTH|".2043  |
|00001770| 46 4f 52 20 49 20 3d 20 | 31 20 54 4f 20 28 4b 20 |FOR I = |1 TO (K |
|00001780| 2a 31 36 29 3a 20 50 52 | 49 4e 54 20 22 2d 22 3b |*16): PR|INT "-";|
|00001790| 3a 20 4e 45 58 54 20 49 | 3a 20 50 52 49 4e 54 20 |: NEXT I|: PRINT |
|000017a0| 0a 32 30 35 30 20 53 59 | 20 3d 20 30 3a 20 46 4f |.2050 SY| = 0: FO|
|000017b0| 52 20 49 20 3d 20 31 20 | 54 4f 20 31 32 3a 50 4b |R I = 1 |TO 12:PK|
|000017c0| 20 3d 20 28 49 20 2a 4b | 29 20 2b 38 3a 57 24 20 | = (I *K|) +8:W$ |
|000017d0| 3d 20 4d 24 28 49 29 3a | 20 47 4f 53 55 42 20 33 |= M$(I):| GOSUB 3|
|000017e0| 30 3a 20 4e 45 58 54 20 | 49 0a 32 30 35 33 20 50 |0: NEXT |I.2053 P|
|000017f0| 4b 20 3d 20 28 4b 20 2a | 31 36 20 2d 36 29 3a 57 |K = (K *|16 -6):W|
|00001800| 24 20 3d 20 22 54 4f 54 | 41 4c 53 22 3a 20 47 4f |$ = "TOT|ALS": GO|
|00001810| 53 55 42 20 33 35 3a 53 | 59 20 3d 20 30 0a 32 30 |SUB 35:S|Y = 0.20|
|00001820| 35 34 20 20 46 4f 52 20 | 49 20 3d 20 31 20 54 4f |54  FOR |I = 1 TO|
|00001830| 20 28 4b 20 2a 31 36 29 | 3a 20 50 52 49 4e 54 20 | (K *16)|: PRINT |
|00001840| 22 2d 22 3b 3a 20 4e 45 | 58 54 20 49 3a 20 50 52 |"-";: NE|XT I: PR|
|00001850| 49 4e 54 20 0a 32 30 36 | 30 20 20 46 4f 52 20 49 |INT .206|0  FOR I|
|00001860| 20 3d 20 31 20 54 4f 20 | 4e 50 0a 32 30 36 35 20 | = 1 TO |NP.2065 |
|00001870| 20 50 52 49 4e 54 20 50 | 4e 24 28 49 29 3b 3a 53 | PRINT P|N$(I);:S|
|00001880| 59 20 3d 20 20 4c 45 4e | 28 50 4e 24 28 49 29 29 |Y =  LEN|(PN$(I))|
|00001890| 0a 32 30 37 30 20 20 46 | 4f 52 20 4e 20 3d 20 31 |.2070  F|OR N = 1|
|000018a0| 20 54 4f 20 31 32 0a 32 | 30 38 30 20 57 24 20 3d | TO 12.2|080 W$ =|
|000018b0| 20 20 53 54 52 24 28 55 | 28 49 2c 4e 29 29 0a 32 |  STR$(U|(I,N)).2|
|000018c0| 30 38 31 20 50 4b 20 3d | 20 28 4e 20 2a 4b 29 20 |081 PK =| (N *K) |
|000018d0| 2b 31 31 20 2d 20 4c 45 | 4e 28 57 24 29 3a 20 47 |+11 - LE|N(W$): G|
|000018e0| 4f 53 55 42 20 33 30 0a | 32 30 38 35 20 54 58 20 |OSUB 30.|2085 TX |
|000018f0| 3d 20 54 58 20 2b 55 28 | 49 2c 4e 29 0a 32 30 39 |= TX +U(|I,N).209|
|00001900| 30 20 20 4e 45 58 54 20 | 4e 3a 57 24 20 3d 20 20 |0  NEXT |N:W$ =  |
|00001910| 53 54 52 24 28 54 58 29 | 0a 32 30 39 31 20 50 4b |STR$(TX)|.2091 PK|
|00001920| 20 3d 20 28 4b 20 2a 31 | 36 29 20 2d 31 20 2d 20 | = (K *1|6) -1 - |
|00001930| 4c 45 4e 28 57 24 29 3a | 20 47 4f 53 55 42 20 33 |LEN(W$):| GOSUB 3|
|00001940| 35 3a 53 59 20 3d 20 30 | 0a 32 30 39 32 20 54 58 |5:SY = 0|.2092 TX|
|00001950| 20 3d 20 30 3a 20 4e 45 | 58 54 20 49 0a 32 39 39 | = 0: NE|XT I.299|
|00001960| 39 20 20 52 45 4d 20 20 | 50 52 49 4e 54 20 44 4f |9  REM  |PRINT DO|
|00001970| 4c 4c 41 52 20 56 41 4c | 55 45 53 0a 33 30 30 30 |LLAR VAL|UES.3000|
|00001980| 20 20 46 4f 52 20 49 20 | 3d 20 31 20 54 4f 20 28 |  FOR I |= 1 TO (|
|00001990| 4b 20 2a 31 36 29 3a 20 | 50 52 49 4e 54 20 22 3d |K *16): |PRINT "=|
|000019a0| 22 3b 3a 20 4e 45 58 54 | 20 49 3a 20 50 52 49 4e |";: NEXT| I: PRIN|
|000019b0| 54 20 0a 33 30 30 31 20 | 20 50 52 49 4e 54 20 3a |T .3001 | PRINT :|
|000019c0| 20 50 52 49 4e 54 20 20 | 54 41 42 28 20 4b 20 2a | PRINT  |TAB( K *|
|000019d0| 35 29 22 20 24 24 20 43 | 4f 4d 50 4f 53 49 54 45 |5)" $$ C|OMPOSITE|
|000019e0| 20 4e 45 54 20 43 4f 4e | 54 52 41 43 54 20 56 41 | NET CON|TRACT VA|
|000019f0| 4c 55 45 20 49 4e 20 22 | 3b 5a 24 3a 20 46 4f 52 |LUE IN "|;Z$: FOR|
|00001a00| 20 49 20 3d 20 31 20 54 | 4f 20 28 4b 20 2a 31 36 | I = 1 T|O (K *16|
|00001a10| 29 3a 20 50 52 49 4e 54 | 20 22 2d 22 3b 3a 20 4e |): PRINT| "-";: N|
|00001a20| 45 58 54 20 49 3a 20 50 | 52 49 4e 54 20 0a 33 30 |EXT I: P|RINT .30|
|00001a30| 30 32 20 20 46 4f 52 20 | 4e 20 3d 20 31 20 54 4f |02  FOR |N = 1 TO|
|00001a40| 20 31 32 0a 33 30 30 33 | 20 50 4b 20 3d 20 28 4e | 12.3003| PK = (N|
|00001a50| 20 2a 4b 29 20 2b 38 3a | 57 24 20 3d 20 4d 24 28 | *K) +8:|W$ = M$(|
|00001a60| 4e 29 3a 20 47 4f 53 55 | 42 20 33 30 3a 20 4e 45 |N): GOSU|B 30: NE|
|00001a70| 58 54 20 4e 0a 33 30 30 | 34 20 50 4b 20 3d 20 28 |XT N.300|4 PK = (|
|00001a80| 4b 20 2a 31 36 29 20 2d | 36 3a 57 24 20 3d 20 22 |K *16) -|6:W$ = "|
|00001a90| 54 4f 54 41 4c 53 22 3a | 20 47 4f 53 55 42 20 33 |TOTALS":| GOSUB 3|
|00001aa0| 35 3a 53 59 20 3d 20 30 | 0a 33 30 30 35 20 20 46 |5:SY = 0|.3005  F|
|00001ab0| 4f 52 20 49 20 3d 20 31 | 20 54 4f 20 28 4b 20 2a |OR I = 1| TO (K *|
|00001ac0| 31 36 29 3a 20 50 52 49 | 4e 54 20 22 2d 22 3b 3a |16): PRI|NT "-";:|
|00001ad0| 20 4e 45 58 54 20 49 3a | 20 50 52 49 4e 54 20 0a | NEXT I:| PRINT .|
|00001ae0| 33 30 30 37 20 20 46 4f | 52 20 49 20 3d 20 31 20 |3007  FO|R I = 1 |
|00001af0| 54 4f 20 4e 50 0a 33 30 | 31 30 20 20 50 52 49 4e |TO NP.30|10  PRIN|
|00001b00| 54 20 50 4e 24 28 49 29 | 3b 3a 53 59 20 3d 20 20 |T PN$(I)|;:SY =  |
|00001b10| 4c 45 4e 28 50 4e 24 28 | 49 29 29 0a 33 30 32 30 |LEN(PN$(|I)).3020|
|00001b20| 20 20 46 4f 52 20 4e 20 | 3d 20 31 20 54 4f 20 31 |  FOR N |= 1 TO 1|
|00001b30| 32 0a 33 30 33 30 20 57 | 24 20 3d 20 20 53 54 52 |2.3030 W|$ =  STR|
|00001b40| 24 28 44 28 49 2c 4e 29 | 29 0a 33 30 33 32 20 50 |$(D(I,N)|).3032 P|
|00001b50| 4b 20 3d 20 28 4e 20 2a | 4b 29 20 2b 31 31 20 2d |K = (N *|K) +11 -|
|00001b60| 20 4c 45 4e 28 57 24 29 | 3a 20 47 4f 53 55 42 20 | LEN(W$)|: GOSUB |
|00001b70| 33 30 0a 33 30 33 35 20 | 54 58 20 3d 20 54 58 20 |30.3035 |TX = TX |
|00001b80| 2b 44 28 49 2c 4e 29 0a | 33 30 34 30 20 20 4e 45 |+D(I,N).|3040  NE|
|00001b90| 58 54 20 4e 3a 57 24 20 | 3d 20 20 53 54 52 24 28 |XT N:W$ |=  STR$(|
|00001ba0| 54 58 29 3a 50 4b 20 3d | 20 28 4b 20 2a 31 36 29 |TX):PK =| (K *16)|
|00001bb0| 20 2d 31 20 2d 20 4c 45 | 4e 28 57 24 29 3a 20 47 | -1 - LE|N(W$): G|
|00001bc0| 4f 53 55 42 20 33 35 3a | 54 58 20 3d 20 30 3a 53 |OSUB 35:|TX = 0:S|
|00001bd0| 59 20 3d 20 30 0a 33 30 | 35 30 20 20 4e 45 58 54 |Y = 0.30|50  NEXT|
|00001be0| 20 49 0a 33 30 35 35 20 | 20 50 52 49 4e 54 20 3a | I.3055 | PRINT :|
|00001bf0| 20 50 52 49 4e 54 20 22 | 54 4f 54 41 4c 53 22 3b | PRINT "|TOTALS";|
|00001c00| 3a 53 59 20 3d 20 36 0a | 33 30 36 30 20 20 46 4f |:SY = 6.|3060  FO|
|00001c10| 52 20 4e 20 3d 20 31 20 | 54 4f 20 31 32 3a 20 46 |R N = 1 |TO 12: F|
|00001c20| 4f 52 20 49 20 3d 20 31 | 20 54 4f 20 4e 50 0a 33 |OR I = 1| TO NP.3|
|00001c30| 30 36 35 20 54 28 4e 29 | 20 3d 20 54 28 4e 29 20 |065 T(N)| = T(N) |
|00001c40| 2b 44 28 49 2c 4e 29 0a | 33 30 37 30 20 20 4e 45 |+D(I,N).|3070  NE|
|00001c50| 58 54 20 49 0a 33 30 37 | 35 20 57 24 20 3d 20 20 |XT I.307|5 W$ =  |
|00001c60| 53 54 52 24 28 54 28 4e | 29 29 0a 33 30 38 30 20 |STR$(T(N|)).3080 |
|00001c70| 50 4b 20 3d 20 28 4e 20 | 2a 4b 29 20 2b 31 31 20 |PK = (N |*K) +11 |
|00001c80| 2d 20 4c 45 4e 28 57 24 | 29 3a 20 47 4f 53 55 42 |- LEN(W$|): GOSUB|
|00001c90| 20 33 30 0a 33 30 38 32 | 20 54 58 20 3d 20 54 58 | 30.3082| TX = TX|
|00001ca0| 20 2b 54 28 4e 29 0a 33 | 30 38 35 20 20 4e 45 58 | +T(N).3|085  NEX|
|00001cb0| 54 20 4e 0a 33 30 39 30 | 20 57 24 20 3d 20 20 53 |T N.3090| W$ =  S|
|00001cc0| 54 52 24 28 54 58 29 3a | 50 4b 20 3d 20 28 4b 20 |TR$(TX):|PK = (K |
|00001cd0| 2a 31 36 29 20 2d 31 20 | 2d 20 4c 45 4e 28 57 24 |*16) -1 |- LEN(W$|
|00001ce0| 29 3a 20 47 4f 53 55 42 | 20 33 35 3a 54 58 20 3d |): GOSUB| 35:TX =|
|00001cf0| 20 30 3a 53 59 20 3d 20 | 30 0a 33 30 39 31 20 20 | 0:SY = |0.3091  |
|00001d00| 50 52 49 4e 54 20 20 43 | 48 52 24 28 39 29 3b 22 |PRINT  C|HR$(9);"|
|00001d10| 34 30 4e 22 3a 20 50 52 | 23 20 30 3a 20 50 52 49 |40N": PR|# 0: PRI|
|00001d20| 4e 54 20 3a 20 49 4e 50 | 55 54 20 22 53 4b 49 50 |NT : INP|UT "SKIP|
|00001d30| 20 54 4f 20 4e 45 57 20 | 50 41 47 45 20 41 4e 44 | TO NEW |PAGE AND|
|00001d40| 20 48 49 54 20 52 45 54 | 55 52 4e 22 3b 58 58 24 | HIT RET|URN";XX$|
|00001d50| 0a 33 30 39 32 20 20 50 | 52 23 20 31 3a 20 50 52 |.3092  P|R# 1: PR|
|00001d60| 49 4e 54 20 20 43 48 52 | 24 28 39 29 3b 22 39 36 |INT  CHR|$(9);"96|
|00001d70| 4e 22 3a 20 50 52 49 4e | 54 20 20 43 48 52 24 28 |N": PRIN|T  CHR$(|
|00001d80| 33 30 29 3a 20 52 45 4d | 20 20 50 52 49 4e 54 45 |30): REM|  PRINTE|
|00001d90| 52 20 43 4f 4e 54 52 4f | 4c 53 0a 33 30 39 35 20 |R CONTRO|LS.3095 |
|00001da0| 20 50 52 49 4e 54 20 3a | 20 46 4f 52 20 49 20 3d | PRINT :| FOR I =|
|00001db0| 20 31 20 54 4f 20 28 4b | 20 2a 31 36 29 3a 20 50 | 1 TO (K| *16): P|
|00001dc0| 52 49 4e 54 20 22 3d 22 | 3b 3a 20 4e 45 58 54 20 |RINT "="|;: NEXT |
|00001dd0| 49 3a 20 50 52 49 4e 54 | 20 0a 33 31 30 30 20 20 |I: PRINT| .3100  |
|00001de0| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 20 54 |PRINT : |PRINT  T|
|00001df0| 41 42 28 20 32 30 29 22 | 2a 2a 2a 20 53 41 4c 45 |AB( 20)"|*** SALE|
|00001e00| 53 20 50 52 4f 44 55 43 | 54 49 56 49 54 59 20 50 |S PRODUC|TIVITY P|
|00001e10| 52 4f 46 49 4c 45 20 2a | 2a 2a 22 0a 33 31 30 35 |ROFILE *|**".3105|
|00001e20| 20 20 50 52 49 4e 54 20 | 0a 33 31 31 30 20 57 24 |  PRINT |.3110 W$|
|00001e30| 20 3d 20 22 25 20 4f 46 | 20 53 41 4c 45 53 50 45 | = "% OF| SALESPE|
|00001e40| 4f 50 4c 45 22 3a 20 50 | 52 49 4e 54 20 57 24 3b |OPLE": P|RINT W$;|
|00001e50| 3a 53 59 20 3d 20 20 4c | 45 4e 28 57 24 29 3a 50 |:SY =  L|EN(W$):P|
|00001e60| 4b 20 3d 20 32 35 3a 57 | 24 20 3d 20 22 53 41 4c |K = 25:W|$ = "SAL|
|00001e70| 45 53 20 50 52 4f 44 55 | 43 54 49 56 49 54 59 20 |ES PRODU|CTIVITY |
|00001e80| 42 59 20 4d 4f 4e 54 48 | 22 3a 20 47 4f 53 55 42 |BY MONTH|": GOSUB|
|00001e90| 20 33 30 3a 57 24 20 3d | 20 22 23 20 4f 46 20 53 | 30:W$ =| "# OF S|
|00001ea0| 41 4c 45 53 50 45 4f 50 | 4c 45 22 3a 50 4b 20 3d |ALESPEOP|LE":PK =|
|00001eb0| 20 28 4b 20 2a 31 36 29 | 20 2d 31 20 2d 20 4c 45 | (K *16)| -1 - LE|
|00001ec0| 4e 28 57 24 29 3a 20 47 | 4f 53 55 42 20 33 35 3a |N(W$): G|OSUB 35:|
|00001ed0| 53 59 20 3d 20 30 0a 33 | 31 31 35 20 57 24 20 3d |SY = 0.3|115 W$ =|
|00001ee0| 20 22 49 4e 20 45 41 43 | 48 20 52 41 4e 47 45 22 | "IN EAC|H RANGE"|
|00001ef0| 3a 20 50 52 49 4e 54 20 | 57 24 3b 3a 53 59 20 3d |: PRINT |W$;:SY =|
|00001f00| 20 20 4c 45 4e 28 57 24 | 29 3a 50 4b 20 3d 20 28 |  LEN(W$|):PK = (|
|00001f10| 4b 20 2a 31 36 29 20 2d | 31 20 2d 20 4c 45 4e 28 |K *16) -|1 - LEN(|
|00001f20| 57 24 29 3a 20 47 4f 53 | 55 42 20 33 35 3a 53 59 |W$): GOS|UB 35:SY|
|00001f30| 20 3d 20 30 0a 33 31 31 | 37 20 20 46 4f 52 20 49 | = 0.311|7  FOR I|
|00001f40| 20 3d 20 31 20 54 4f 20 | 28 4b 20 2a 31 36 29 3a | = 1 TO |(K *16):|
|00001f50| 20 50 52 49 4e 54 20 22 | 2d 22 3b 3a 20 4e 45 58 | PRINT "|-";: NEX|
|00001f60| 54 20 49 3a 20 50 52 49 | 4e 54 20 0a 33 31 31 38 |T I: PRI|NT .3118|
|00001f70| 20 53 59 20 3d 20 30 3a | 20 46 4f 52 20 49 20 3d | SY = 0:| FOR I =|
|00001f80| 20 31 20 54 4f 20 31 32 | 3a 50 4b 20 3d 20 28 49 | 1 TO 12|:PK = (I|
|00001f90| 20 2a 4b 29 20 2b 38 3a | 57 24 20 3d 20 4d 24 28 | *K) +8:|W$ = M$(|
|00001fa0| 49 29 3a 20 47 4f 53 55 | 42 20 33 30 3a 20 4e 45 |I): GOSU|B 30: NE|
|00001fb0| 58 54 20 49 3a 20 50 52 | 49 4e 54 20 0a 33 31 31 |XT I: PR|INT .311|
|00001fc0| 39 20 20 46 4f 52 20 49 | 20 3d 20 31 20 54 4f 20 |9  FOR I| = 1 TO |
|00001fd0| 28 4b 20 2a 31 36 29 3a | 20 50 52 49 4e 54 20 22 |(K *16):| PRINT "|
|00001fe0| 2d 22 3b 3a 20 4e 45 58 | 54 20 49 3a 20 50 52 49 |-";: NEX|T I: PRI|
|00001ff0| 4e 54 20 0a 33 31 32 30 | 20 20 46 4f 52 20 49 20 |NT .3120|  FOR I |
|00002000| 3d 20 31 20 54 4f 20 4e | 50 0a 33 31 32 32 20 20 |= 1 TO N|P.3122  |
|00002010| 50 52 49 4e 54 20 50 4e | 24 28 49 29 3a 52 4e 4b |PRINT PN|$(I):RNK|
|00002020| 20 3d 20 31 30 30 0a 33 | 31 32 35 20 20 46 4f 52 | = 100.3|125  FOR|
|00002030| 20 58 20 3d 20 35 20 54 | 4f 20 31 20 20 53 54 45 | X = 5 T|O 1  STE|
|00002040| 50 20 20 2d 31 0a 33 31 | 32 37 20 52 4e 4b 20 3d |P  -1.31|27 RNK =|
|00002050| 20 52 4e 4b 20 2d 32 30 | 3a 57 24 20 3d 20 20 53 | RNK -20|:W$ =  S|
|00002060| 54 52 24 28 52 4e 4b 29 | 20 2b 22 20 25 2b 22 3a |TR$(RNK)| +" %+":|
|00002070| 20 50 52 49 4e 54 20 57 | 24 3b 3a 53 59 20 3d 20 | PRINT W|$;:SY = |
|00002080| 20 4c 45 4e 28 57 24 29 | 0a 33 31 33 30 20 20 46 | LEN(W$)|.3130  F|
|00002090| 4f 52 20 4e 20 3d 20 31 | 20 54 4f 20 31 32 0a 33 |OR N = 1| TO 12.3|
|000020a0| 31 33 35 20 57 24 20 3d | 20 20 53 54 52 24 28 50 |135 W$ =|  STR$(P|
|000020b0| 28 49 2c 58 2c 4e 29 29 | 3a 50 4b 20 3d 20 28 4e |(I,X,N))|:PK = (N|
|000020c0| 20 2a 4b 29 20 2b 31 31 | 20 2d 20 4c 45 4e 28 57 | *K) +11| - LEN(W|
|000020d0| 24 29 3a 20 47 4f 53 55 | 42 20 33 30 0a 33 31 33 |$): GOSU|B 30.313|
|000020e0| 36 20 20 4e 45 58 54 20 | 4e 0a 33 31 33 37 20 57 |6  NEXT |N.3137 W|
|000020f0| 24 20 3d 20 20 53 54 52 | 24 28 45 53 28 49 2c 58 |$ =  STR|$(ES(I,X|
|00002100| 29 2f 31 30 30 29 3a 50 | 4b 20 3d 20 28 4b 20 2a |)/100):P|K = (K *|
|00002110| 31 36 29 20 2d 31 20 2d | 20 4c 45 4e 28 57 24 29 |16) -1 -| LEN(W$)|
|00002120| 3a 20 47 4f 53 55 42 20 | 33 35 3a 53 59 20 3d 20 |: GOSUB |35:SY = |
|00002130| 30 0a 33 31 34 30 20 20 | 4e 45 58 54 20 58 3a 20 |0.3140  |NEXT X: |
|00002140| 50 52 49 4e 54 20 3a 20 | 4e 45 58 54 20 49 0a 33 |PRINT : |NEXT I.3|
|00002150| 31 34 35 20 20 50 52 49 | 4e 54 20 3a 20 46 4f 52 |145  PRI|NT : FOR|
|00002160| 20 49 20 3d 20 31 20 54 | 4f 20 28 4b 20 2a 31 36 | I = 1 T|O (K *16|
|00002170| 29 3a 20 50 52 49 4e 54 | 20 22 3d 22 3b 3a 20 4e |): PRINT| "=";: N|
|00002180| 45 58 54 20 49 3a 20 50 | 52 49 4e 54 20 0a 33 31 |EXT I: P|RINT .31|
|00002190| 35 30 20 20 50 52 49 4e | 54 20 3a 20 50 52 49 4e |50  PRIN|T : PRIN|
|000021a0| 54 20 22 4e 45 57 20 48 | 49 52 45 20 50 52 4f 46 |T "NEW H|IRE PROF|
|000021b0| 49 4c 45 22 0a 33 31 35 | 35 20 20 46 4f 52 20 49 |ILE".315|5  FOR I|
|000021c0| 20 3d 20 31 20 54 4f 20 | 4e 50 3a 20 50 52 49 4e | = 1 TO |NP: PRIN|
|000021d0| 54 20 50 4e 24 28 49 29 | 3b 3a 53 59 20 3d 20 20 |T PN$(I)|;:SY =  |
|000021e0| 4c 45 4e 28 50 4e 24 28 | 49 29 29 0a 33 31 35 37 |LEN(PN$(|I)).3157|
|000021f0| 20 20 46 4f 52 20 58 20 | 3d 20 31 20 54 4f 20 31 |  FOR X |= 1 TO 1|
|00002200| 32 0a 33 31 36 30 20 57 | 24 20 3d 20 20 53 54 52 |2.3160 W|$ =  STR|
|00002210| 24 28 50 4e 28 49 2c 58 | 29 29 3a 50 4b 20 3d 20 |$(PN(I,X|)):PK = |
|00002220| 28 58 20 2a 4b 29 20 2b | 31 31 20 2d 20 4c 45 4e |(X *K) +|11 - LEN|
|00002230| 28 57 24 29 3a 20 47 4f | 53 55 42 20 33 30 0a 33 |(W$): GO|SUB 30.3|
|00002240| 31 36 35 20 20 4e 45 58 | 54 20 58 0a 33 31 37 30 |165  NEX|T X.3170|
|00002250| 20 57 24 20 3d 20 20 53 | 54 52 24 28 50 5a 28 49 | W$ =  S|TR$(PZ(I|
|00002260| 29 2f 31 30 30 29 3a 50 | 4b 20 3d 20 28 4b 20 2a |)/100):P|K = (K *|
|00002270| 31 36 29 20 2d 31 20 2d | 20 4c 45 4e 28 57 24 29 |16) -1 -| LEN(W$)|
|00002280| 3a 20 47 4f 53 55 42 20 | 33 35 0a 33 31 37 35 20 |: GOSUB |35.3175 |
|00002290| 20 4e 45 58 54 20 49 0a | 33 31 38 30 20 20 50 52 | NEXT I.|3180  PR|
|000022a0| 49 4e 54 20 3a 20 50 52 | 49 4e 54 20 3a 20 46 4f |INT : PR|INT : FO|
|000022b0| 52 20 49 20 3d 20 31 20 | 54 4f 20 28 4b 20 2a 31 |R I = 1 |TO (K *1|
|000022c0| 36 29 3a 20 50 52 49 4e | 54 20 22 3d 22 3b 3a 20 |6): PRIN|T "=";: |
|000022d0| 4e 45 58 54 20 49 3a 20 | 50 52 49 4e 54 20 0a 33 |NEXT I: |PRINT .3|
|000022e0| 32 30 30 20 20 52 45 4d | 20 0a 34 30 30 30 20 20 |200  REM| .4000  |
|000022f0| 50 52 49 4e 54 20 20 43 | 48 52 24 28 39 29 3b 22 |PRINT  C|HR$(9);"|
|00002300| 34 30 4e 22 3a 20 52 45 | 4d 20 20 52 45 53 54 4f |40N": RE|M  RESTO|
|00002310| 52 45 20 44 49 53 50 4c | 41 59 0a 34 30 30 35 20 |RE DISPL|AY.4005 |
|00002320| 20 50 52 23 20 30 0a 34 | 30 31 30 20 20 50 52 49 | PR# 0.4|010  PRI|
|00002330| 4e 54 20 22 45 4e 44 22 | 3a 20 45 4e 44 20 0a 35 |NT "END"|: END .5|
|00002340| 30 30 30 20 20 48 4f 4d | 45 20 3a 20 50 52 49 4e |000  HOM|E : PRIN|
|00002350| 54 20 3a 20 50 52 49 4e | 54 20 22 54 48 45 20 46 |T : PRIN|T "THE F|
|00002360| 4f 52 45 43 41 53 54 20 | 41 4e 44 20 53 41 4c 45 |ORECAST |AND SALE|
|00002370| 53 20 54 52 45 4e 44 20 | 28 46 2e 41 2e 53 2e 54 |S TREND |(F.A.S.T|
|00002380| 29 22 3a 20 50 52 49 4e | 54 20 22 41 4e 41 4c 59 |)": PRIN|T "ANALY|
|00002390| 53 49 53 20 4d 4f 44 45 | 4c 20 49 53 20 41 20 51 |SIS MODE|L IS A Q|
|000023a0| 55 49 43 4b 20 41 4e 44 | 20 50 4f 57 45 52 46 55 |UICK AND| POWERFU|
|000023b0| 4c 22 0a 35 30 30 35 20 | 20 50 52 49 4e 54 20 22 |L".5005 | PRINT "|
|000023c0| 4d 45 54 48 4f 44 20 46 | 4f 52 20 45 56 41 4c 55 |METHOD F|OR EVALU|
|000023d0| 41 54 49 4e 47 20 41 4c | 54 45 52 4e 41 54 49 56 |ATING AL|TERNATIV|
|000023e0| 45 22 3a 20 50 52 49 4e | 54 20 22 53 54 52 41 54 |E": PRIN|T "STRAT|
|000023f0| 45 47 49 45 53 20 46 4f | 52 20 44 45 50 4c 4f 59 |EGIES FO|R DEPLOY|
|00002400| 49 4e 47 20 41 4e 44 20 | 48 49 52 49 4e 47 22 3a |ING AND |HIRING":|
|00002410| 20 50 52 49 4e 54 20 22 | 53 41 4c 45 53 4d 45 4e | PRINT "|SALESMEN|
|00002420| 20 41 43 52 4f 53 53 20 | 4d 55 4c 54 49 50 4c 45 | ACROSS |MULTIPLE|
|00002430| 20 50 52 4f 44 55 43 54 | 20 4c 49 4e 45 53 2e 22 | PRODUCT| LINES."|
|00002440| 0a 35 30 31 30 20 20 50 | 52 49 4e 54 20 3a 20 50 |.5010  P|RINT : P|
|00002450| 52 49 4e 54 20 22 59 4f | 55 20 57 49 4c 4c 20 42 |RINT "YO|U WILL B|
|00002460| 45 20 41 53 4b 45 44 20 | 54 4f 20 45 4e 54 45 52 |E ASKED |TO ENTER|
|00002470| 20 41 20 50 52 4f 46 49 | 4c 45 22 3a 20 50 52 49 | A PROFI|LE": PRI|
|00002480| 4e 54 20 22 4f 46 20 53 | 41 4c 45 53 20 50 52 4f |NT "OF S|ALES PRO|
|00002490| 44 55 43 54 49 56 49 54 | 59 20 42 59 20 4d 4f 4e |DUCTIVIT|Y BY MON|
|000024a0| 54 48 22 3a 20 50 52 49 | 4e 54 20 22 46 4f 52 20 |TH": PRI|NT "FOR |
|000024b0| 54 48 45 20 54 4f 50 20 | 32 30 25 20 4f 46 20 59 |THE TOP |20% OF Y|
|000024c0| 4f 55 52 20 53 41 4c 45 | 53 46 4f 52 43 45 2e 2e |OUR SALE|SFORCE..|
|000024d0| 2e 22 0a 35 30 32 30 20 | 20 50 52 49 4e 54 20 22 |.".5020 | PRINT "|
|000024e0| 54 48 45 4e 20 4e 45 58 | 54 20 32 30 25 20 4f 46 |THEN NEX|T 20% OF|
|000024f0| 20 54 48 45 20 53 41 4c | 45 53 46 4f 52 43 45 2e | THE SAL|ESFORCE.|
|00002500| 2e 2e 2e 2e 2e 2e 22 3a | 20 50 52 49 4e 54 20 22 |......":| PRINT "|
|00002510| 54 48 45 20 4e 45 58 54 | 20 32 30 25 2e 2e 2e 2e |THE NEXT| 20%....|
|00002520| 20 22 3a 20 50 52 49 4e | 54 20 22 41 4e 44 20 53 | ": PRIN|T "AND S|
|00002530| 4f 20 4f 4e 20 54 48 52 | 4f 55 47 48 20 54 48 45 |O ON THR|OUGH THE|
|00002540| 20 35 20 50 52 4f 44 55 | 43 54 49 56 49 54 59 22 | 5 PRODU|CTIVITY"|
|00002550| 0a 35 30 32 35 20 20 50 | 52 49 4e 54 20 22 52 41 |.5025  P|RINT "RA|
|00002560| 4e 47 45 53 20 4f 46 20 | 53 45 4c 4c 49 4e 47 22 |NGES OF |SELLING"|
|00002570| 0a 35 30 33 30 20 20 50 | 52 49 4e 54 20 3a 20 50 |.5030  P|RINT : P|
|00002580| 52 49 4e 54 20 22 59 4f | 55 20 53 48 4f 55 4c 44 |RINT "YO|U SHOULD|
|00002590| 20 45 4e 54 45 52 20 54 | 48 45 20 4e 55 4d 42 45 | ENTER T|HE NUMBE|
|000025a0| 52 20 4f 46 20 50 52 4f | 44 55 43 54 53 22 3a 20 |R OF PRO|DUCTS": |
|000025b0| 50 52 49 4e 54 20 22 59 | 4f 55 20 41 52 45 20 4d |PRINT "Y|OU ARE M|
|000025c0| 4f 44 45 4c 49 4e 47 20 | 41 54 20 54 48 45 20 53 |ODELING |AT THE S|
|000025d0| 54 41 52 54 20 4f 46 20 | 54 48 45 22 3a 20 50 52 |TART OF |THE": PR|
|000025e0| 49 4e 54 20 22 53 45 53 | 53 49 4f 4e 2e 20 20 54 |INT "SES|SION.  T|
|000025f0| 48 45 4e 20 54 48 45 20 | 53 59 53 54 45 4d 20 57 |HEN THE |SYSTEM W|
|00002600| 49 4c 4c 20 41 53 4b 20 | 59 4f 55 22 0a 35 30 34 |ILL ASK |YOU".504|
|00002610| 30 20 20 50 52 49 4e 54 | 20 22 54 4f 20 45 4e 54 |0  PRINT| "TO ENT|
|00002620| 45 52 3a 22 3a 20 50 52 | 49 4e 54 20 20 54 41 42 |ER:": PR|INT  TAB|
|00002630| 28 20 35 29 22 31 2e 20 | 50 52 4f 44 55 43 54 20 |( 5)"1. |PRODUCT |
|00002640| 4e 41 4d 45 22 3a 20 50 | 52 49 4e 54 20 20 54 41 |NAME": P|RINT  TA|
|00002650| 42 28 20 35 29 22 32 2e | 20 44 4f 4c 4c 41 52 20 |B( 5)"2.| DOLLAR |
|00002660| 55 4e 49 54 53 20 28 31 | 2c 20 31 30 30 2c 20 31 |UNITS (1|, 100, 1|
|00002670| 30 30 30 29 22 3a 20 50 | 52 49 4e 54 20 20 54 41 |000)": P|RINT  TA|
|00002680| 42 28 20 35 29 22 33 2e | 20 24 20 53 41 4c 45 53 |B( 5)"3.| $ SALES|
|00002690| 20 56 41 4c 55 45 20 50 | 45 52 20 55 4e 49 54 22 | VALUE P|ER UNIT"|
|000026a0| 0a 35 30 35 30 20 20 50 | 52 49 4e 54 20 20 54 41 |.5050  P|RINT  TA|
|000026b0| 42 28 20 35 29 22 34 2e | 20 50 52 4f 44 55 43 54 |B( 5)"4.| PRODUCT|
|000026c0| 49 56 49 54 59 20 50 52 | 4f 46 49 4c 45 53 22 3a |IVITY PR|OFILES":|
|000026d0| 20 49 4e 50 55 54 20 22 | 48 49 54 20 52 45 54 55 | INPUT "|HIT RETU|
|000026e0| 52 4e 20 46 4f 52 20 50 | 41 47 45 20 32 22 3b 58 |RN FOR P|AGE 2";X|
|000026f0| 24 0a 35 30 35 35 20 20 | 48 4f 4d 45 20 3a 20 50 |$.5055  |HOME : P|
|00002700| 52 49 4e 54 20 22 57 48 | 45 4e 20 59 4f 55 20 48 |RINT "WH|EN YOU H|
|00002710| 41 56 45 20 43 4f 4d 50 | 4c 45 54 45 44 20 54 48 |AVE COMP|LETED TH|
|00002720| 45 20 50 52 4f 43 45 53 | 53 20 4f 46 22 3a 20 50 |E PROCES|S OF": P|
|00002730| 52 49 4e 54 20 22 45 4e | 54 45 52 49 4e 47 20 54 |RINT "EN|TERING T|
|00002740| 48 45 20 4d 4f 44 45 4c | 2c 20 59 4f 55 20 53 48 |HE MODEL|, YOU SH|
|00002750| 4f 55 4c 44 20 54 48 45 | 4e 22 3a 20 50 52 49 4e |OULD THE|N": PRIN|
|00002760| 54 20 22 53 41 56 45 20 | 49 54 20 4f 4e 20 44 49 |T "SAVE |IT ON DI|
|00002770| 53 4b 2e 22 0a 35 30 36 | 30 20 20 50 52 49 4e 54 |SK.".506|0  PRINT|
|00002780| 20 3a 20 50 52 49 4e 54 | 20 22 59 4f 55 27 4c 4c | : PRINT| "YOU'LL|
|00002790| 20 54 48 45 4e 20 42 45 | 20 41 53 4b 45 44 20 54 | THEN BE| ASKED T|
|000027a0| 4f 20 45 4e 54 45 52 20 | 54 48 45 22 3a 20 50 52 |O ENTER |THE": PR|
|000027b0| 49 4e 54 20 22 54 48 45 | 20 4e 55 4d 42 45 52 20 |INT "THE| NUMBER |
|000027c0| 4f 46 20 53 41 4c 45 53 | 4d 45 4e 20 4f 4e 20 42 |OF SALES|MEN ON B|
|000027d0| 4f 41 52 44 20 41 54 20 | 54 48 45 22 3a 20 50 52 |OARD AT |THE": PR|
|000027e0| 49 4e 54 20 22 53 54 41 | 52 54 20 4f 46 20 54 48 |INT "STA|RT OF TH|
|000027f0| 45 20 59 45 41 52 22 3a | 20 50 52 49 4e 54 20 0a |E YEAR":| PRINT .|
|00002800| 35 30 36 32 20 20 50 52 | 49 4e 54 20 22 54 48 45 |5062  PR|INT "THE|
|00002810| 4e 20 59 4f 55 27 4c 4c | 20 42 45 20 41 53 4b 45 |N YOU'LL| BE ASKE|
|00002820| 44 20 46 4f 52 20 54 48 | 45 20 25 20 4f 46 20 54 |D FOR TH|E % OF T|
|00002830| 49 4d 45 22 3a 20 50 52 | 49 4e 54 20 22 54 4f 20 |IME": PR|INT "TO |
|00002840| 42 45 20 53 50 45 4e 54 | 20 4f 4e 20 45 41 43 48 |BE SPENT| ON EACH|
|00002850| 20 50 52 4f 44 55 43 54 | 20 59 4f 55 20 48 41 56 | PRODUCT| YOU HAV|
|00002860| 45 22 3a 20 50 52 49 4e | 54 20 22 45 4e 54 45 52 |E": PRIN|T "ENTER|
|00002870| 45 44 20 49 4e 54 4f 20 | 54 48 45 20 53 59 53 54 |ED INTO |THE SYST|
|00002880| 45 4d 22 0a 35 30 36 33 | 20 20 50 52 49 4e 54 20 |EM".5063|  PRINT |
|00002890| 22 54 48 45 20 53 55 4d | 20 4f 46 20 59 4f 55 52 |"THE SUM| OF YOUR|
|000028a0| 20 25 27 53 20 53 48 4f | 55 4c 44 20 45 51 55 41 | %'S SHO|ULD EQUA|
|000028b0| 4c 20 31 30 30 25 2e 22 | 3a 20 50 52 49 4e 54 20 |L 100%."|: PRINT |
|000028c0| 0a 35 30 36 35 20 20 50 | 52 49 4e 54 20 22 54 48 |.5065  P|RINT "TH|
|000028d0| 45 4e 20 45 4e 54 45 52 | 20 54 48 45 20 4e 55 4d |EN ENTER| THE NUM|
|000028e0| 42 45 52 20 4f 46 20 4e | 45 57 20 48 49 52 45 53 |BER OF N|EW HIRES|
|000028f0| 20 22 3a 20 50 52 49 4e | 54 20 22 50 4c 41 4e 4e | ": PRIN|T "PLANN|
|00002900| 45 44 20 41 4e 44 20 54 | 48 45 20 4d 4f 4e 54 48 |ED AND T|HE MONTH|
|00002910| 20 50 4c 41 4e 4e 45 44 | 20 54 4f 20 48 49 52 45 | PLANNED| TO HIRE|
|00002920| 22 3a 20 50 52 49 4e 54 | 20 22 54 48 45 4d 2e 22 |": PRINT| "THEM."|
|00002930| 0a 35 30 37 30 20 20 50 | 52 49 4e 54 20 3a 20 50 |.5070  P|RINT : P|
|00002940| 52 49 4e 54 20 22 54 4f | 20 53 54 4f 50 20 45 4e |RINT "TO| STOP EN|
|00002950| 54 45 52 49 4e 47 20 4e | 45 57 20 48 49 52 45 20 |TERING N|EW HIRE |
|00002960| 49 4e 46 4f 52 4d 41 54 | 49 4f 4e 22 3a 20 50 52 |INFORMAT|ION": PR|
|00002970| 49 4e 54 20 22 45 4e 54 | 45 52 20 30 20 41 4e 44 |INT "ENT|ER 0 AND|
|00002980| 20 48 49 54 20 52 45 54 | 55 52 4e 20 4f 4e 20 54 | HIT RET|URN ON T|
|00002990| 48 45 20 4e 45 58 54 22 | 3a 20 50 52 49 4e 54 20 |HE NEXT"|: PRINT |
|000029a0| 22 52 45 51 55 45 53 54 | 20 46 4f 52 20 4e 45 57 |"REQUEST| FOR NEW|
|000029b0| 20 48 49 52 45 20 49 4e | 46 4f 52 4d 41 54 49 4f | HIRE IN|FORMATIO|
|000029c0| 4e 2e 20 20 54 48 45 22 | 0a 35 30 37 35 20 20 50 |N.  THE"|.5075  P|
|000029d0| 52 49 4e 54 20 22 53 59 | 53 54 45 4d 20 57 49 4c |RINT "SY|STEM WIL|
|000029e0| 4c 20 54 48 45 4e 20 54 | 41 4b 45 20 4f 56 45 52 |L THEN T|AKE OVER|
|000029f0| 20 41 4e 44 20 50 52 49 | 4e 54 20 22 3a 20 50 52 | AND PRI|NT ": PR|
|00002a00| 49 4e 54 20 22 54 48 45 | 20 43 4f 4d 50 4c 45 54 |INT "THE| COMPLET|
|00002a10| 45 20 41 4e 41 4c 59 53 | 49 53 2e 22 0a 35 30 37 |E ANALYS|IS.".507|
|00002a20| 37 20 20 49 4e 50 55 54 | 20 22 48 49 54 20 52 45 |7  INPUT| "HIT RE|
|00002a30| 54 55 52 4e 20 54 4f 20 | 47 4f 54 4f 20 4e 45 58 |TURN TO |GOTO NEX|
|00002a40| 54 20 50 41 47 45 22 3b | 58 24 3a 20 48 4f 4d 45 |T PAGE";|X$: HOME|
|00002a50| 20 3a 20 50 52 49 4e 54 | 20 0a 35 30 38 30 20 20 | : PRINT| .5080  |
|00002a60| 50 52 49 4e 54 20 3a 20 | 50 52 49 4e 54 20 22 48 |PRINT : |PRINT "H|
|00002a70| 49 54 20 52 45 54 55 52 | 4e 20 54 4f 20 42 45 47 |IT RETUR|N TO BEG|
|00002a80| 49 4e 2e 22 3a 20 50 52 | 49 4e 54 20 22 57 48 45 |IN.": PR|INT "WHE|
|00002a90| 4e 20 59 4f 55 20 52 45 | 54 55 52 4e 2c 20 59 4f |N YOU RE|TURN, YO|
|00002aa0| 55 27 4c 4c 20 42 45 20 | 41 53 4b 45 44 20 49 46 |U'LL BE |ASKED IF|
|00002ab0| 20 59 4f 55 22 3a 20 50 | 52 49 4e 54 20 22 57 41 | YOU": P|RINT "WA|
|00002ac0| 4e 54 20 54 4f 20 43 52 | 45 41 54 45 2c 20 4f 52 |NT TO CR|EATE, OR|
|00002ad0| 20 52 45 41 44 2c 20 54 | 48 45 20 4d 4f 44 45 4c | READ, T|HE MODEL|
|00002ae0| 2e 22 0a 35 30 38 35 20 | 20 50 52 49 4e 54 20 22 |.".5085 | PRINT "|
|00002af0| 49 46 20 49 54 20 49 53 | 20 59 4f 55 52 20 46 49 |IF IT IS| YOUR FI|
|00002b00| 52 53 54 20 53 45 53 53 | 49 4f 4e 2c 20 59 4f 55 |RST SESS|ION, YOU|
|00002b10| 20 48 49 54 22 3a 20 50 | 52 49 4e 54 20 22 27 43 | HIT": P|RINT "'C|
|00002b20| 27 20 46 4f 52 20 43 52 | 45 41 54 45 2e 20 4f 4e |' FOR CR|EATE. ON|
|00002b30| 20 53 55 42 53 45 51 55 | 45 4e 54 20 53 45 53 53 | SUBSEQU|ENT SESS|
|00002b40| 49 4f 4e 53 22 3a 20 50 | 52 49 4e 54 20 22 59 4f |IONS": P|RINT "YO|
|00002b50| 55 20 43 41 4e 20 53 49 | 4d 50 4c 59 20 52 45 41 |U CAN SI|MPLY REA|
|00002b60| 44 20 49 4e 20 54 48 45 | 20 4d 4f 44 45 4c 20 46 |D IN THE| MODEL F|
|00002b70| 52 4f 4d 22 0a 35 30 39 | 30 20 20 50 52 49 4e 54 |ROM".509|0  PRINT|
|00002b80| 20 22 44 49 53 4b 20 41 | 4e 44 20 57 4f 52 4b 20 | "DISK A|ND WORK |
|00002b90| 53 54 52 41 54 45 47 59 | 20 41 4c 54 45 52 4e 41 |STRATEGY| ALTERNA|
|00002ba0| 54 49 56 45 53 22 3a 20 | 50 52 49 4e 54 20 22 44 |TIVES": |PRINT "D|
|00002bb0| 49 52 45 43 54 4c 59 2e | 22 0a 35 30 39 35 20 20 |IRECTLY.|".5095  |
|00002bc0| 50 52 49 4e 54 20 3a 20 | 49 4e 50 55 54 20 22 48 |PRINT : |INPUT "H|
|00002bd0| 49 54 20 52 45 54 55 52 | 4e 2e 22 3b 58 24 3a 20 |IT RETUR|N.";X$: |
|00002be0| 52 45 54 55 52 4e 20 0a | 36 30 30 30 20 20 45 4e |RETURN .|6000  EN|
|00002bf0| 44 20 0a 31 30 30 30 30 | 20 20 44 41 54 41 20 20 |D .10000|  DATA  |
|00002c00| 4a 41 4e 2c 46 45 42 2c | 4d 41 52 2c 41 50 52 2c |JAN,FEB,|MAR,APR,|
|00002c10| 4d 41 59 2c 4a 55 4e 2c | 4a 4c 59 2c 41 55 47 2c |MAY,JUN,|JLY,AUG,|
|00002c20| 53 45 50 2c 4f 43 54 2c | 4e 4f 56 2c 44 45 43    |SEP,OCT,|NOV,DEC |
+--------+-------------------------+-------------------------+--------+--------+