home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / BUERG / ALBERTAG.ZIP / RATION.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-06-14  |  24.3 KB  |  765 lines
  1. 1  REM RATION  - A PROGRAM FOR  BALANCING RATIONS FOR  LIVESTOCK
  2. 2  REM REVISED MAY/1984
  3. 3  REM CONTACT:
  4. 4  REM GARY FISHER       &      GEORGE MONNER
  5. 5  REM F.B.M.BRANCH             R.E.B.S. BRANCH
  6. 6  REM  OLDS                     FAIRVIEW
  7. 8  GOTO 5000
  8. 9  S$="":REM THIS IS THE INPUT SUBROUTINE
  9. 10  GOSUB 24:PRINT SPACE$(LEN(S$));
  10. 11  S8=0:GOSUB 24
  11. 12  GOSUB 31
  12. 13  GOSUB 35
  13. 14  GOSUB 53
  14. 15  IF S$="" THEN S$=S6$:GOTO 22
  15. 16  IF S3=1 THEN GOSUB 56
  16. 17  IF S8=1 GOTO 10
  17. 18  IF S3=1 THEN GOSUB 68
  18. 19  IF S8=1 GOTO 10
  19. 20  IF S3=3 THEN GOSUB 73
  20. 21  IF S8=1 GOTO 10
  21. 22  IF S3=1 THEN S=VAL(S$)
  22. 23  RETURN
  23. 24  REM POSITION CURSOR
  24. 25  LOCATE S1,S2,1
  25. 30  RETURN
  26. 31  REM PRINT DEFAULT
  27. 32  PRINT S6$
  28. 33  GOSUB 24
  29. 34  RETURN
  30. 35  REM TRANSPARENT CURSOR ROUTINE
  31. 36  S$=""
  32. 37  S1$=INPUT$(1)
  33. 41  S=ASC(S1$):IF S<>13 GOTO 46
  34. 42  IF S$="" THEN GOSUB 24:PRINT " ";:GOSUB 24:GOSUB 31:PRINT:RETURN
  35. 43  IF LEN(S$)>=LEN(S6$) GOTO 45
  36. 44  PRINT SPACE$(LEN(S6$)-LEN(S$));
  37. 45  PRINT S1$;:RETURN
  38. 46  IF S<32 GOTO 50
  39. 47  IF S=34 THEN S1$="'"
  40. 48  S$=S$+S1$:IF S9>0 THEN IF LEN(S$)>S9 THEN PRINT S1$;:GOTO 52
  41. 49  PRINT S1$;:GOTO 37
  42. 50  IF LEN(S$)<1 GOTO 36
  43. 51  IF LEN(S$)=1 THEN PRINT CHR$(29);:PRINT" ";:PRINT CHR$(29);:GOTO 36
  44. 52  S$=LEFT$(S$,LEN(S$)-1):PRINT CHR$(29);:PRINT" ";:PRINT CHR$(29);:GOTO 37
  45. 53  REM THIS CHECKS FOR EXIT
  46. 54  IF S$="<" THEN CLS:PRINT" LOADING MENU...":RUN "HELLO.BAS"
  47. 55  RETURN
  48. 56  S1$=S$:S7=0:REM CHECK FOR NUMERIC INPUT
  49. 57  IF LEFT$(S1$,1)=" " THEN S1$=RIGHT$(S1$,LEN(S1$)-1):GOTO 57
  50. 58  IF RIGHT$(S1$,1)=" " THEN S1$=LEFT$(S1$,LEN(S1$)-1):GOTO 58
  51. 59  IF LEN(S1$)<1 GOTO 64
  52. 60  FOR S=1 TO LEN(S1$):S6=ASC(MID$(S1$,S,1))
  53. 61  IF S6>=48 AND S6<=57 GOTO 66
  54. 62  IF (S6=43 OR S6=45) AND S=1 GOTO 66
  55. 63  IF S6=46 AND S7=0 THEN S7=1:GOTO 66
  56. 64  S2$="NON NUMERIC INPUT":S1$="":GOSUB 78
  57. 65  RETURN
  58. 66  NEXT S
  59. 67  RETURN
  60. 68  REM CHECK FOR PROPER LIMITS
  61. 69  S6=VAL(S$)
  62. 70  IF S6<S4 THEN S2$="INPUT BELOW":S1$=STR$(S4):GOSUB 78:RETURN
  63. 71  IF S6>S5 THEN S2$="INPUT ABOVE":S1$=STR$(S5):GOSUB 78:RETURN
  64. 72  RETURN
  65. 73  REM CHECK FOR YES OR NO
  66. 74  IF LEFT$(S$,1)="Y" OR LEFT$(S$,1)="N" GOTO 76
  67. 75  S2$="MUST BE YES/NO ANSWER":S1$="":GOSUB 78:RETURN
  68. 76  S$=LEFT$(S$,1)
  69. 77  RETURN
  70. 78  REM ERROR FOR ALL CONDITIONS
  71. 79  COLOR 31,0,0:BEEP
  72. 80  GOSUB 90
  73. 81  PRINT"     ";S2$;S1$;
  74. 82  FOR S7=1 TO 3000:NEXT S7
  75. 83  COLOR 7,0,0
  76. 87  GOSUB 93
  77. 88  S8=1
  78. 89  RETURN
  79. 90  REM POSTITION TO LAST LINE
  80. 91  LOCATE 25,1,0
  81. 92  RETURN
  82. 93  REM BLANK LAST LINE
  83. 94  LOCATE 25,1,1
  84. 95  PRINT SPACE$(39);
  85. 96  RETURN
  86. 100  CLS:PRINT" LOADING MENU...":RUN "HELLO.BAS"
  87. 200  REM ****DOLLAR FORMAT SUBROUTINE****
  88. 201  S3=INT(S3*100+0.5)/100
  89. 202  S3$=SPACE$(30)
  90. 203  IF S3=0 THEN S3$=RIGHT$(S3$,S4-4)+"0.00":GOTO 209
  91. 204  S4$=STR$(S3)
  92. 205  IF ASC(MID$(RIGHT$(S4$,2),1,1))=46 THEN S3$=S3$+S4$+"0":GOTO 208
  93. 206  IF ASC(MID$(RIGHT$(S4$,3),1,1))=46 THEN S3$=S3$+S4$:GOTO 208
  94. 207  S3$=S3$+S4$+".00"
  95. 208  S3$=RIGHT$(S3$,S4)
  96. 209  RETURN
  97. 300  REM HOLD SCREEN
  98. 301  S$="PRESS RETURN TO CONTINUE    "
  99. 302  COLOR 31,0,0
  100. 303  GOSUB 90
  101. 304  PRINT"     ";S$;
  102. 305  POKE 106,0
  103. 306  IF INKEY$=CHR$(13) GOTO 307 ELSE GOTO 305
  104. 307  COLOR 7,0,0
  105. 308  GOSUB 93
  106. 314  S$="":S1$=""
  107. 315  RETURN
  108. 5000  REM MAINLINE FOR  RATION
  109. 5010   GOSUB 60000:REM LOGO & DISCLAIMER
  110. 5020  CLS:PRINT"PLEASE WAIT, I'M LOADING DATA "
  111. 5030  DIM Y(15,15)
  112. 5040   GOSUB 62000
  113. 5050   GOSUB 5680:REM PROGRAM TITLE PAGE
  114. 5060  CLS:PRINT"ENTER # OF ANIMALS FED =";
  115. 5065  S6$="1":S1=1:S2=26:S3=1:S4=1:S5=2000:S9=4:GOSUB 9:NO=S
  116. 5070   GOSUB 6040:REM **SELECTION OF TYPE OF ANIMAL BEING FED
  117. 5080  REM GET REQUIREMENTS FOR  THE ANIMALS
  118. 5090  ON X+1 GOSUB 6200,6370,6370,6590,6590,6800,6940,6940,6940,6940,6940,6940
  119. 5100  IF X=0 THEN 5120
  120. 5110  W=1:GOSUB 6200:REM OPTION TO CHANGE DATA 
  121. 5115  IF W9=1 THEN RETURN:REM THIS IS FOR THE CHANGE ANIMAL CLASS OPTION
  122. 5120   GOSUB 7350:REM ENTER FEEDSTUFFS & ALLOW FOR  CHANGES
  123. 5130  CLS:PRINT"               DE     CP     CA     P"
  124. 5140  PRINT"              -----  ----  -----  -----"
  125. 5150  PRINT USING "\          \  ##.## ##.##  \   \  \   \";"REQUIREMENTS",DE,CP,CA$,PH$
  126. 5170  PRINT"NOW HAVE"
  127. 5180  PRINT"              =====  ====  =====  ====="
  128. 5190  PRINT"AMOUNT OVER"
  129. 5200  PRINT"             --------------------------"
  130. 5210  PRINT"AMOUNT OF DRY MATTER FEEDING="
  131. 5220  PRINT 
  132. 5230  PRINT"======================================="
  133. 5240  PRINT"LBS             DE    CP    CA    P"
  134. 5250  PRINT"FED            ----  ---- ----- -----"
  135. 5260  FOR J=1 TO W1
  136. 5270  PRINT USING "\  \ \       \ #.## #.### \   \ \   \";MID$(STR$(A(J,8)),2,10),A$(J,2),A(J,4),A(J,5),A$(J,6),A$(J,7)
  137. 5300  NEXT J
  138. 5310  C1=0:C2=0:C3=0:C4=0:C5=0
  139. 5320  FOR J=1 TO W1
  140. 5330  S6$=MID$(STR$(A(J,8)),2):S1=12+J:S2=1:S3=1:S4=0:S5=999:S9=4:GOSUB 9
  141. 5340  A(J,8)=S
  142. 5350  S6$=MID$(STR$(S),2)
  143. 5360   GOSUB 24:PRINT S6$;
  144. 5370  C1=C1+A(J,3)*A(J,8)/100:C2=C2+A(J,4)*A(J,8):C3=C3+A(J,5)*A(J,8)
  145. 5380  C4=C4+VAL(A$(J,6))*A(J,8):C5=C5+VAL(A$(J,7))*A(J,8)
  146. 5390  NEXT J
  147. 5400  S1=4:S2=13:GOSUB 24
  148. 5410  PRINT"                          "
  149. 5420  S2=1:GOSUB 24
  150. 5430  PRINT USING "\          \ ###.## ##.##  .####  .####";"NOW HAVE    ",C2,C3,C4,C5
  151. 5470  D2=INT((C2-DE)*100+0.5)/100:D3=INT((C3-CP)*100+0.5)/100
  152. 5480  D2=INT((C2-DE)*100+0.5)/100:D3=INT((C3-CP)*100+0.5)/100
  153. 5490  D4=INT((C4-VAL(CA$))*1000+0.5)/1000:D5=INT((C5-VAL(PH$))*1000+0.5)/1000
  154. 5500  S1=6:GOSUB 24:PRINT TAB(13)"                           ":GOSUB 24
  155. 5510  PRINT USING "\          \+###.##+##.## +.#### +.####";"AMOUNT OVER ",D2,D3,D4,D5
  156. 5520  S1=8:S2=30:GOSUB 24:PRINT "        ":GOSUB 24
  157. 5530  PRINT INT(C1*1000)/1000
  158. 5540  S1=9:S2=1:GOSUB 24
  159. 5545  PRINT"FEED<F>,REQ<R>,CST<C>,PRNT<P>,EXIT<E>";
  160. 5550  S6$=" ":S1=9:S2=38:S3=2:S9=1:GOSUB 9
  161. 5560  S2=1:GOSUB 24:PRINT"                                      "
  162. 5565  IF S$="E" THEN  GOTO 100:END
  163. 5570  IF S$<>"R" GOTO 5580
  164. 5572  CLS:PRINT "DO YOU WANT A NEW ANIMAL CLASS (Y/N)?"
  165. 5574  S6$="N":S1=1:S2=38:S3=3:S9=1:GOSUB 9
  166. 5576  IF S$="Y" THEN RESTORE:W9=1:GOSUB 5060:W9=0:GOTO 5130
  167. 5578  CLS:GOSUB 6200:GOTO 5130
  168. 5580  IF S$<>"F" GOTO 5640
  169. 5590   GOSUB 9570
  170. 5600   GOSUB 9890
  171. 5610  IF S$="A" THEN RESTORE:GOSUB 7350:GOTO 5130
  172. 5620  IF S$="C" THEN  GOSUB 7740:GOSUB 8450:GOSUB 7980:GOTO 5130
  173. 5630   GOTO 5130
  174. 5640  IF S$="C" THEN  GOSUB 8540:GOTO 5130
  175. 5650  IF S$="P" THEN CALL PRTSCR:GOTO 5540
  176. 5660   GOTO 5310
  177. 5670  REM PROGRAM TITLE PAGE
  178. 5680  CLS:PRINT"        RATION FORMULATION "
  179. 5690  PRINT"      <REVISION DATE= 5/84>"
  180. 5700  PRINT :PRINT" THIS PROGRAM IS DESIGNED TO ASSIST"
  181. 5710  PRINT"WITH THE BALANCING OF LIVESTOCK RATIONS."
  182. 5720  PRINT" ONE SELECTS AN ANIMAL FROM A LIST"
  183. 5730  PRINT"IT THEN HAS 4 NUTRITIONAL REQUIREMENTS:"
  184. 5740  PRINT :PRINT"1. DIGESTIBLE ENERGY <MCAL/ANIMAL/DAY>"
  185. 5750  PRINT"2. CRUDE PROTEIN     <LBS/ANIMAL/DAY>"
  186. 5760  PRINT"3. CALCIUM           <LBS/ANIMAL/DAY>"
  187. 5770  PRINT"4. PHOSPHOROUS       <LBS/ANIMAL/DAY>"
  188. 5780  PRINT :PRINT"ONE  THEN  SELECTS FEEDS FROM LISTS"
  189. 5790  PRINT"THESE FEEDS HAVE THESE NUTRIENT VALUES:"
  190. 5800  PRINT :PRINT"1. % DRY MATTER AS A PERCENTAGE 8%=8"
  191. 5810  PRINT"2. DIGESTIBLE ENERGY <MCAL/LB OF FEED>"
  192. 5820  PRINT"3. CRUDE PROTEIN     <LBS/LB OF FEED>"
  193. 5830  PRINT"4. CALCIUM           <LBS/LB OF FEED>"
  194. 5840  PRINT"5. PHOSPHORUS        <LBS/LB OF FEED>"
  195. 5850   GOSUB  300
  196. 5860  CLS:LOCATE 2,1:PRINT" THE NUTRIENT REQUIREMENTS AND THE"
  197. 5870  PRINT"FEED VALUES CAN BE ALTERED AT WILL."
  198. 5880  PRINT" NEW FEEDS OR ANIMALS NOT ON THE LIST"
  199. 5890  PRINT"CAN BE CUSTOMIZED."
  200. 5900  PRINT :PRINT"THE FEEDING TABLE HAS THE FEEDS ENTERED"
  201. 5910  PRINT"ON AN AS FED BASIS IN LBS."
  202. 5920  PRINT"IT RETURNS THE TOTAL NUTRIENTS SUPPLIED"
  203. 5930  PRINT"BY THE RATION AS WELL AS TOTAL DRY"
  204. 5940  PRINT"MATTER FEEDING IN LBS/ANIMAL/DAY."
  205. 5950  PRINT :PRINT" THE COSTS SECTION REQUIRES THE PRICE"
  206. 5960  PRINT"EXPRESSED IN $/UNIT. THE UNITS ARE IN"
  207. 5970  PRINT"LBS/UNIT. THE COSTS ARE RETURNED AS"
  208. 5980  PRINT"COST/DAY, COST/ANIMAL/DAY, AND"
  209. 5990  PRINT" COST/TON OF RATION."
  210. 6000  PRINT :PRINT :PRINT" NOTE:IT IS NOT A LEAST COST RATION PRO-GRAM."
  211. 6010   GOSUB 300
  212. 6020  RETURN
  213. 6030  REM **SELECTION OF TYPE OF ANIMAL & GETTING REQUIREMENTS.**
  214. 6040  CLS:PRINT"WHICH TYPE OF CATTLE ARE BEING FED?"
  215. 6050  PRINT"(ENTER CORRESPONDING NO. <0 = CUSTOM>)"
  216. 6060  PRINT"======================================"
  217. 6070  PRINT :PRINT"1. DRY PREGNANT COWS:IN MID PREGNANCY"
  218. 6080  PRINT :PRINT"2. COWS:LAST 6 WK - 3WKS. AFTER CALVING."
  219. 6090  PRINT :PRINT"3. COWS:PROD. 10 LB.MILK - 3-4 MO. AFTER       CALVING."
  220. 6100  PRINT :PRINT"4. COWS:PROD. 20 LB.MILK - '' "
  221. 6110  PRINT :PRINT"5. DAIRY COW: 1300LB COW @ 3.5% FAT TEST"
  222. 6120  PRINT :PRINT"6. FEEDLOT CATTLE GAINING 1 LB/DAY"
  223. 6130  PRINT"7.                GAINING 1.5 LB/DAY"
  224. 6140  PRINT"8.                GAINING 2.0 LB/DAY"
  225. 6150  PRINT"9.                GAINING 2.5 LB/DAY"
  226. 6160  PRINT"10.               GAINING 3.0 LB/DAY"
  227. 6165  PRINT"11.               GAINING 3.5 LB/DAY"
  228. 6170  S6$="0":S1=1:S2=37:S3=1:S4=0:S5=11:S9=2:GOSUB 9:X=S
  229. 6180  RETURN
  230. 6190  REM**CUSTOM ENTRY & CHANGE ROUTINE FOR  REQUIREMENTS
  231. 6200  CLS:LOCATE 7,1:PRINT"ENTER NUTRIENT REQUIREMENTS OF ANIMALS"
  232. 6210  PRINT"         <-----/ANIMAL/DAY>"
  233. 6220  PRINT"---------------------------------------"
  234. 6230  PRINT :PRINT"     DIGESTIBLE ENERGY <MCAL> = ";MID$(STR$(DE),2)
  235. 6240  PRINT :PRINT"     CRUDE PROTEIN <LBS>      = ";MID$(STR$(CP),2)
  236. 6250  PRINT :PRINT"     CALCIUM <LBS>            = ";CA$
  237. 6260  PRINT :PRINT"     PHOSPHOROUS <LBS>        = ";PH$
  238. 6270  PRINT :PRINT :PRINT"CHANGE DATA ?(Y OR N)";:IF W=1 THEN 6320
  239. 6280  S6$=MID$(STR$(DE),2):S1=11:S2=33:S3=1:S4=0:S5=99:S9=6:GOSUB 9:DE=S
  240. 6290  S6$=MID$(STR$(CP),2):S1=13:GOSUB 9:CP=S
  241. 6300  S6$=CA$:S1=15:GOSUB 9:CA$=S$
  242. 6310  S6$=PH$:S1=17:GOSUB 9:PH$=S$
  243. 6320  S6$="N":S1=20:S2=22:S3=3:GOSUB 9:W=0
  244. 6330  IF  S$="Y" THEN 6280
  245. 6340  IF  S$="N" THEN  RETURN
  246. 6350   GOTO 6320
  247. 6360  REM**REQUIREMENT ENTRY FOR  PREG. COWS (1 & 2)
  248. 6370  CLS:LOCATE 5,1:PRINT" WHAT IS APROX. WEIGHT OF THE COWS?"
  249. 6380  PRINT" < ENTER CORRESPONDING DIGIT >"
  250. 6390  PRINT"======================================"
  251. 6400  PRINT" 1.  1000 LBS"
  252. 6410  PRINT" 2.  1100 LBS"
  253. 6420  PRINT" 3.  1200 LBS"
  254. 6430  PRINT" 4.  1300 LBS"
  255. 6435  PRINT" 5.  1400 LBS"
  256. 6440  PRINT" 6.  1500 LBS"
  257. 6450  S6$="3":S1=5:S2=37:S3=1:S4=1:S5=6:GOSUB 9
  258. 6460  ON S+((X-1)*6) GOTO 6470,6480,6490,6500,6505,6510,6520,6530,6540,6550,6555,6560
  259. 6470  DE=17.9:CP=1.2:CA$=".042":PH$=".032":GOTO 6570
  260. 6480  DE=19.2:CP=1.3:CA$=".045":PH$=".034":GOTO 6570
  261. 6490  DE=20.5:CP=1.4:CA$=".048":PH$=".035":GOTO 6570
  262. 6500  DE=21.8:CP=1.5:CA$=".050":PH$=".036":GOTO 6570
  263. 6505  DE=23.1:CP=1.6:CA$=".053":PH$=".038":GOTO 6570
  264. 6510  DE=24.3:CP=1.65:CA$=".055":PH$=".040":GOTO 6570
  265. 6520  DE=20.6:CP=1.4:CA$=".044":PH$=".034":GOTO 6570
  266. 6530  DE=22.1:CP=1.5:CA$=".047":PH$=".036":GOTO 6570
  267. 6540  DE=23.6:CP=1.6:CA$=".050":PH$=".038":GOTO 6570
  268. 6550  DE=25.1:CP=1.7:CA$=".053":PH$=".040":GOTO 6570
  269. 6555  DE=26.5:CP=1.8:CA$=".056":PH$=".042":GOTO 6570
  270. 6560  DE=27.9:CP=1.9:CA$=".058":PH$=".045":GOTO 6570
  271. 6570  RETURN
  272. 6580  REM **REQUIREMENT ENTRY FOR  NURSING COWS(3&4)
  273. 6590  CLS:LOCATE 5,1:PRINT" WHAT IS APROX. WEIGHT OF THE COWS?"
  274. 6600  PRINT" < ENTER CORRESPONDING DIGIT >"
  275. 6610  PRINT"======================================"
  276. 6620  PRINT" 1.   900 LBS"
  277. 6630  PRINT" 2.  1000 LBS"
  278. 6640  PRINT" 3.  1100 LBS"
  279. 6650  PRINT" 4.  1200 LBS"
  280. 6660  PRINT" 5.  1300 LBS"
  281. 6662  PRINT" 6.  1400 LBS"
  282. 6664  PRINT" 7.  1500 LBS"
  283. 6666  PRINT" 8.  1600 LBS"
  284. 6670  S6$="4":S1=5:S2=37:S3=1:S4=1:S5=8:GOSUB 9
  285. 6680  ON S+((X-3)*8) GOTO 6690,6700,6710,6720,6730,6732,6734,6736,6740,6750,6760,6770,6780,6782,6784,6786
  286. 6690  DE=22.4:CP=1.8:CA$=".073":PH$=".059":GOTO 6570
  287. 6700  DE=24:CP=1.9:CA$=".076":PH$=".061":GOTO 6570
  288. 6710  DE=25.6:CP=2:CA$=".080":PH$=".064":GOTO 6570
  289. 6720  DE=27.3:CP=2.1:CA$=".085":PH$=".067":GOTO 6570
  290. 6730  DE=29:CP=2.2:CA$=".090":PH$=".069":GOTO 6570
  291. 6732  DE=30.7:CP=2.3:CA$=".095":PH$=".070":GOTO 6570
  292. 6734  DE=32.4:CP=2.4:CA$=".110":PH$=".072":GOTO 6570
  293. 6736  DE=34.1:CP=2.5:CA$=".115":PH$=".074":GOTO 6570
  294. 6740  DE=29:CP=2.6:CA$=".120":PH$=".095":GOTO 6570
  295. 6750  DE=30.6:CP=2.7:CA$=".125":PH$=".100":GOTO 6570
  296. 6760  DE=32.2:CP=2.8:CA$=".130":PH$=".100":GOTO 6570
  297. 6770  DE=33.9:CP=3:CA$=".135":PH$=".102":GOTO 6570
  298. 6780  DE=35.6:CP=3.1:CA$=".140":PH$=".105":GOTO 6570
  299. 6782  DE=37.3:CP=3.2:CA$=".145":PH$=".109":GOTO 6570
  300. 6784  DE=39:CP=3.3:CA$=".150":PH$=".114":GOTO 6570
  301. 6786  DE=40.7:CP=3.4:CA$=".155":PH$=".118":GOTO 6570
  302. 6790  REM REQUIREMENT FOR  DAIRY COWS
  303. 6800  CLS:LOCATE 6,1:PRINT"WHAT MILK PRODUCTION DO YOU REQUIRE?"
  304. 6810  PRINT :PRINT"======================================"
  305. 6820  PRINT :PRINT"ENTER A NO. BETWEEN 15 LBS & 120 LBS-"
  306. 6830  PRINT"            <IN 5 LB INCREMENTS>"
  307. 6835  PRINT:PRINT" OR ENTER A ";:COLOR 0,7:PRINT "0";:COLOR 7,0:PRINT " FOR A DRY COW"
  308. 6840  S6$="30":S1=6:S2=37:S3=1:S4=0:S5=120:S9=3:GOSUB 9
  309. 6845  IF S<15 AND S<>0 THEN S2$="INPUT BELOW":S1$=STR$(15):GOSUB 78:GOTO 6840
  310. 6850  IF S/5=INT(S/5) THEN 6880
  311. 6860  S1$="":S2$="MUST BE IN 5 LB INCREMENTS":GOSUB 78
  312. 6870   GOTO 6840
  313. 6880  S1=16:S2=1:GOSUB 24:PRINT "PLEASE WAIT, LOADING DATA";
  314. 6882  FOR I=1 TO 35:READ Q,Q$,Q1,Q2,Q3,Q4,Q5:NEXT I
  315. 6890  FOR I=1 TO 23
  316. 6900  READ M,M1,M2,M3$,M4$
  317. 6910  IF M=S THEN DE=M1:CP=M2:CA$=M3$:PH$=M4$:I=11
  318. 6920  NEXT I
  319. 6930  RESTORE:RETURN
  320. 6940  REM REQUIREMENT FOR  FEEDLOT CATTLE
  321. 6942  CLS:S1=3:S2=1:GOSUB 24:PRINT"TYPE OF CATTLE BEING FED?"
  322. 6944  PRINT"====================================="
  323. 6946  PRINT"ENTER 'S' FOR STEER OR 'H' FOR HEIFER"
  324. 6950  S1=7:S2=1:GOSUB 24:PRINT"WEIGHT OF CATTLE BEING FED?"
  325. 6960  PRINT"======================================"
  326. 6962  IF X<>11 THEN 6970
  327. 6964  PRINT"ENTER A VALUE BETWEEN 500LBS & 1200LBS"
  328. 6966  PRINT"(BETWEEN 500LBS & 1100LBS FOR HEIFERS)
  329. 6968  GOTO 6980
  330. 6970  PRINT"ENTER A VALUE BETWEEN 400LBS & 1200LBS"
  331. 6972  PRINT"(BETWEEN 400LBS & 1100LBS FOR HEIFERS)
  332. 6980  PRINT"          < IN 100 LB INCREMENTS >"
  333. 6982  S6$="S":S1=3:S2=27:S3=2:S9=1:GOSUB 9:EX$=S$
  334. 6984  IF EX$="S" OR EX$="H" THEN 6990
  335. 6986  S1$="":S2$="ENTER  S  OR  W":GOSUB 78
  336. 6988  GOTO 6982
  337. 6990  S4=400:S6$="400":IF X=11 THEN S4=500:S6$="500"
  338. 6991  S5=1200:IF EX$="H" THEN S5=1100
  339. 6992  S1=7:S2=29:S3=1:S9=4:GOSUB 9:WT=S
  340. 7000  IF WT/100=INT(WT/100) THEN 7030
  341. 7010  S1$="":S2$="MUST BE IN 100 LB INCREMENTS":GOSUB 78
  342. 7020  GOTO 6990
  343. 7030  IF WT>600 THEN 7080
  344. 7040  S1=13:S2=1:GOSUB 24:PRINT"WINTERING OR FINISHING THE CALVES?"
  345. 7050  PRINT"======================================="
  346. 7060  PRINT"ENTER 'W' FOR WINTER OR 'F' FOR FINISH"
  347. 7070  S6$="W":S1=13:S2=36:S3=2:S9=1:GOSUB 9
  348. 7072  IF S$="W" OR S$="F" THEN 7078
  349. 7074  S1$="":S2$="ENTER  W  OR  F":GOSUB 78
  350. 7076  GOTO 7070
  351. 7078  WF=1:IF S$="F" THEN WF=2
  352. 7080  S1=16:S2=1:GOSUB 24:PRINT "PLEASE WAIT, LOADING DATA";
  353. 7082  FOR I=1 TO 35:READ Q,Q$,Q1,Q2,Q3,Q4,Q5:NEXT I
  354. 7090  FOR I=1 TO 23:READ M,M1,M2,M3,M4:NEXT I
  355. 7100  IF EX$="H" THEN 7140
  356. 7105  FOR I=1 TO 6
  357. 7110  FOR I1=1 TO 9
  358. 7115  READ  Y(I,I1)
  359. 7120  NEXT I1
  360. 7125  NEXT I
  361. 7130  DE=Y(X-5,INT((WT-300)/100))
  362. 7135  FOR I=1 TO 6:READ Q,Q1,Q2,Q3,Q4,Q5,M,M1:NEXT I:GOTO 7175
  363. 7140  FOR I=1 TO 6:READ Q,Q1,Q2,Q3,Q4,Q5,M,M1,M2:NEXT I
  364. 7145  FOR I=1 TO 6
  365. 7150  FOR I1=1 TO 8
  366. 7155  READ  Y(I,I1)
  367. 7160  NEXT I1
  368. 7165  NEXT I
  369. 7170  DE=Y(X-5,INT((WT-300)/100))
  370. 7175  FOR I=1 TO 6
  371. 7180  FOR I1=1 TO 9
  372. 7185  READ Y(I,I1)
  373. 7190  NEXT I1
  374. 7195  NEXT I
  375. 7200  CP=Y(X-5,INT((WT-300)/100))
  376. 7220  IF WT>600 THEN FOR I=1 TO 6:READ CA$,PH$:NEXT I:GOTO 7290
  377. 7230  IF WF=2 THEN FOR I=1 TO 3:READ CA$,PH$:NEXT I
  378. 7240  FOR I=1 TO INT((WT-300)/100)
  379. 7250  READ CA$,PH$
  380. 7260  NEXT I
  381. 7280  RESTORE:RETURN
  382. 7290  FOR I=1 TO INT((WT-600)/100)
  383. 7300  READ CA$,PH$
  384. 7320  NEXT I
  385. 7330  RESTORE:RETURN
  386. 7340  REMCHOOSING OF FEEDSTUFFS &O0CHANGE TO NUTRIENT VALUES
  387. 7350  Z5=1:Z6=7:GOSUB 7750:LOCATE 3,1:PRINT"**HAY**":GOSUB 7800
  388. 7360  S6$="":S1=(Z6-Z5+1)*2+5:S2=33:S3=1:S4=Z5:S5=Z6:S9=2:GOSUB 7860
  389. 7370  Z5=11:Z6=14:GOSUB 7750:LOCATE 3,1:PRINT"**GREENFEED**":GOSUB 7800
  390. 7380  S1=(Z6-Z5+1)*2+5:S4=Z5:S5=Z6:GOSUB 7860
  391. 7390  Z5=21:Z6=29:GOSUB 7750:LOCATE 3,1:PRINT"**SILAGE**":GOSUB 7800
  392. 7400  S1=(Z6-Z5+1)*2+5:S4=Z5:S5=Z6:GOSUB 7860
  393. 7410  Z5=31:Z6=33:GOSUB 7750:LOCATE 3,1:PRINT"**STRAW** ":GOSUB 7800
  394. 7420  S1=(Z6-Z5+1)*2+5:S4=Z5:S5=Z6:GOSUB 7860
  395. 7430  Z5=41:Z6=43:GOSUB 7750:LOCATE 3,1:PRINT"**GRAIN**":GOSUB 7800
  396. 7440  S1=(Z6-Z5+1)*2+5:S4=Z5:S5=Z6:GOSUB 7860
  397. 7450  Z5=51:Z6=59:GOSUB 7750:LOCATE 3,1:PRINT"**SUPPLEMENT**":GOSUB 7800
  398. 7460  S1=(Z6-Z5+1)*2+5:S4=Z5:S5=Z6:GOSUB 7860
  399. 7470  RESTORE:GOSUB 7750
  400. 7480  FOR I=1 TO 35
  401. 7490  READ V,V$,V1,V2,V3,V4$,V5$
  402. 7500  FOR J=1 TO W1
  403. 7510  IF V=A(J,1) GOTO 7530
  404. 7520   GOTO 7560
  405. 7530  PRINT USING "## \      \###.# #.## #.### \   \ \   \";A(J,1),A$(J,2),A(J,3),A(J,4),A(J,5),A$(J,6),A$(J,7)
  406. 7550   GOTO 7590
  407. 7560  IF V=W(J) THEN PRINT USING "## \      \###.# #.## #.### \   \ \   \";V,V$,V1,V2,V3,V4$,V5$
  408. 7570  IF V=W(J) THEN A(J,1)=V:A$(J,2)=V$:A(J,3)=V1:A(J,4)=V2:A(J,5)=V3
  409. 7580  IF V=W(J) THEN A$(J,6)=V4$:A$(J,7)=V5$
  410. 7590  IF V=W(J) THEN PRINT 
  411. 7600  NEXT J
  412. 7610  NEXT I
  413. 7620  FOR J=1 TO W1
  414. 7630  IF A(J,1)<61  GOTO 7660
  415. 7640  PRINT USING "## \      \###.# #.## #.### \   \ \   \";A(J,1),A$(J,2),A(J,3),A(J,4),A(J,5),A$(J,6),A$(J,7)
  416. 7660  NEXT J
  417. 7670  S1=23:S2=1:GOSUB 24:PRINT"DO YOU WANT TO ADD YOUR FEEDS? <Y,N>"
  418. 7680  S6$="N":S2=38:S3=3:S9=1:GOSUB 9
  419. 7690  IF S$="N" THEN  GOSUB 7750:GOSUB 8460:GOSUB 7990:RETURN
  420. 7700  IF S$="Y" THEN  GOSUB 8210:GOSUB 7750:GOSUB 8460:GOSUB 7990:RETURN
  421. 7710   GOTO 7670
  422. 7720   GOSUB 7990
  423. 7730  RETURN
  424. 7740  REM HEADING FOR  FEEDSTUFF LISTING
  425. 7750  CLS
  426. 7760  PRINT TAB(14);"DM    DE    CP   CA    P"
  427. 7770  PRINT"---------------------------------------"
  428. 7780  RETURN
  429. 7790  REM ROUTINE FOR  READ ING & PRINT ING FEEDSTUFF LISTS
  430. 7800  FOR I=Z5 TO Z6
  431. 7810  READ V,V$,V1,V2,V3,V4$,V5$
  432. 7820  PRINT :PRINT USING "## \      \###.# #.## #.### \   \ \   \";V,V$,V1,V2,V3,V4$,V5$
  433. 7830  NEXT I
  434. 7840  RETURN
  435. 7850  REM ROUTINE FOR  CHOOSING FEEDSTUFFS FROM LISTS
  436. 7860  PRINT"ENTER THE # OF THE FEED & PRESS RETURN."
  437. 7870  PRINT" TO CONTINUE, JUST PRESS RETURN"
  438. 7880  FOR J=1 TO 4:GOSUB 9:IF S$="" THEN J=4:GOTO  7960
  439. 7890  W1=W1+1:IF W1>10 THEN S1$="":S2$="TOO MANY FEEDS":GOSUB 78:W1=W1-1:GOTO 7970
  440. 7900  W(W1)=S
  441. 7910  TE=S1:TM=S2
  442. 7920  S1=5+(S-Z5)*2:S2=1
  443. 7930  GOSUB 24:COLOR 0,7
  444. 7932  IF W(W1) >9 THEN PRINT MID$(STR$(W(W1)),2,99); ELSE PRINT STR$(W(W1));
  445. 7935  COLOR 7,0
  446. 7940  S1=TE:S2=TM
  447. 7950   GOSUB 24:PRINT"  ";
  448. 7960  NEXT J
  449. 7970  RETURN
  450. 7980  REM ROUTINE FOR  CHANGING NUTRIENT VALUES OF THE FEEDSTUFFS
  451. 7990  REM CLS
  452. 8000  FOR I=1 TO W1
  453. 8010  S1=(I-1)*2+4:S2=1:GOSUB 24:PRINT"CHANGE<Y/N>";
  454. 8020  S6$="N":S2=13:S3=3:S9=3:GOSUB 9
  455. 8030  IF S$="N" GOTO 8120
  456. 8040  IF S$="Y" THEN S2=1:GOSUB 24:PRINT"                ";
  457. 8050  FOR J=3 TO 7
  458. 8060  IF J>5 GOTO 8090
  459. 8070  S6$=MID$(STR$(A(I,J)),2):S2=(J-3)*6+10:S3=1:S4=0:S5=200:S9=6
  460. 8072  IF  J=3  THEN  S5=100
  461. 8074   GOSUB  9
  462. 8080   GOTO 8100
  463. 8090  S6$=A$(I,J):S2=(J-3)*6+10:S3=1:GOSUB 9
  464. 8100  A(I,J)=VAL(S$):A$(I,J)=S$
  465. 8110  NEXT J
  466. 8120  NEXT I
  467. 8130  PRINT
  468. 8140  PRINT"MORE CHANGES?<Y/N>";
  469. 8150  S6$="N":S1=(I-1)*2+4:S2=20:S3=3:GOSUB 9
  470. 8160  IF S$="Y" THEN  GOSUB 7750:GOSUB 8460:GOTO 7990
  471. 8170  IF S$="N" THEN RETURN
  472. 8180  GOTO 8140
  473. 8190  RETURN
  474. 8200  REM ROUTINE TO ADD NEW FEEDSTUFFS
  475. 8210  NI=61
  476. 8220  CLS:PRINT"FEEDSTUFF NUMBER "NI
  477. 8230  IF W1+1>10 THEN S1$="":S2$="TOO MANY FEEDS":GOSUB 78:RETURN
  478. 8240  PRINT"ENTER FEEDSTUFF NAME."A$(W1+1,2)
  479. 8250  PRINT"ENTER % DRY MATTER OF FEEDSTUFF. "MID$(STR$(A(W1+1,3)),2)
  480. 8260  PRINT"ENTER DE OF FEEDSTUFF. "MID$(STR$(A(W1+1,4)),2)
  481. 8270  PRINT"ENTER CP OF FEEDSTUFF. "MID$(STR$(A(W1+1,5)),2)
  482. 8280  PRINT"ENTER CA OF FEEDSTUFF."A$(W1+1,6)
  483. 8290  PRINT"ENTER P  OF FEEDSTUFF."A$(W1+1,7)
  484. 8300  PRINT"======================================"
  485. 8310  PRINT"CHANGE DATA ?(Y/N)"
  486. 8320  PRINT :PRINT"ANOTHER FEEDSTUFF?(Y/N)"
  487. 8330  S6$=A$(W1+1,2):S1=2:S2=22:S3=2:S4=0:S5=200:S9=10:GOSUB 9:A$(W1+1,2)=S$
  488. 8340  S6$=MID$(STR$(A(W1+1,3)),2):S2=34:S3=1:S1=3:S5=100:S9=5:GOSUB 9:A(W1+1,3)=S
  489. 8350  S6$=MID$(STR$(A(W1+1,4)),2):S2=24:S1=4:S5=10:GOSUB 9:A(W1+1,4)=S
  490. 8360  S6$=MID$(STR$(A(W1+1,5)),2):S2=24:S1=5:GOSUB 9:A(W1+1,5)=S
  491. 8370  S6$=A$(W1+1,6):S2=24:S1=6:S9=7:GOSUB 9:A$(W1+1,6)=S$
  492. 8380  S6$=A$(W1+1,7):S2=24:S1=7:GOSUB 9:A$(W1+1,7)=S$
  493. 8390  S6$="N":S1=9:S3=3:GOSUB 9:IF S$="Y" THEN 8330
  494. 8400  IF S$="N" THEN 8420
  495. 8410   GOTO 8390
  496. 8420  W1=W1+1:A(W1,1)=NI:NI=NI+1
  497. 8430  S1=11:GOSUB 9:IF S$="Y" THEN 8220
  498. 8440  IF S$="N" THEN RETURN
  499. 8450  REM ROUTINE FOR  LISTING FEEDSTUFFS CHOSEN
  500. 8460  LOCATE 2,1
  501. 8470  FOR I1=1 TO W1
  502. 8480  S1=1+I1*2:S2=1:GOSUB 24
  503. 8490  PRINT USING "## \      \###.# #.## #.### \   \ \   \";A(I1,1),A$(I1,2),A(I1,3),A(I1,4),A(I1,5),A$(I1,6),A$(I1,7)
  504. 8510  NEXT I1
  505. 8520  RETURN
  506. 8530  REM ROUTINE FOR  CALCULATING FEED COSTS
  507. 8540  CLS
  508. 8550  PRINT"      DAILY FEED FOR  "NO" ANIMALS."
  509. 8560  PRINT"     ============================="
  510. 8570  PRINT"              AM'T      COST    LBS"
  511. 8580  PRINT" # NAME       FED      $/UNIT   /UNIT"
  512. 8590  PRINT  "---------------------------------------"
  513. 8600  F2=0:F3=0
  514. 8610  A2=0
  515. 8620  FOR I=1 TO W1
  516. 8630  A1(I)=A(I,8)*NO
  517. 8640  IF A1(I)=0 THEN  GOTO 8670
  518. 8650  PRINT A(I,1);A$(I,2)TAB(14)"="A1(I)
  519. 8660  A2=A2+A(I,8)
  520. 8670  NEXT I
  521. 8680  F2=0:F3=0:I2=0
  522. 8690  FOR I=1 TO W1
  523. 8700  IF A1(I)=0 THEN  GOTO 8770
  524. 8710  S6$=MID$(STR$(FA(I)),2):S5=100000:S4=0.01:S1=6+I2:S2=24:S3=1
  525. 8720  S9=6:GOSUB 9:FA(I)=S
  526. 8730  IF FB(I)<=0 THEN FB(I)=1
  527. 8740  S6$=MID$(STR$(FB(I)),2):S2=32:GOSUB 9:FB(I)=S
  528. 8750  F(I)=FA(I)/FB(I):F2=F2+(A1(I)*F(I)):F3=F3+A(I,8)*F(I)
  529. 8760  I2=I2+1
  530. 8770  NEXT I
  531. 8780  F4=INT((F3*2000/A2)*100+0.5)/100
  532. 8790  S1=17:S2=1:GOSUB 24:PRINT"     C O S T S "
  533. 8800  PRINT"    ==========="
  534. 8810  PRINT"COST/DAY..........=$"INT(F2*100+0.5)/100
  535. 8820  PRINT"COST/ANIMAL/DAY...=$"INT(F3*100+0.5)/100
  536. 8830  PRINT"COST/TON OF RATION=$"F4
  537. 8840  S1=23:S2=1:GOSUB 24:PRINT"CHANGE? COSTS<C>,LBS.FED<R>,PRINT <P>"
  538. 8850  S6$=" ":S2=38:S3=2:S9=1:GOSUB 9
  539. 8860  S2=1:GOSUB 24:PRINT"                                      "
  540. 8870  IF S$="C" THEN 8680
  541. 8880  IF S$="R" THEN RETURN
  542. 8890  IF S$="P" THEN CALL PRTSCR:GOTO 8840
  543. 8900   GOTO 8840
  544. 8910  REM DATA  FOR  FEEDSTUFF & THEIR NUTRIENT VALUES
  545. 8920  DATA 1,ALFLFA-H,89.3,1.05,.159,.0167,.0021
  546. 8930  DATA 2,CLOVER-H,87.1,1.00,.133,.0126,.0019
  547. 8940  DATA 3,AL-GRS-H,88.2,.99,.121,.0116,.0018
  548. 8945  DATA 4,LG-GRS-H,87.9,.97,.112,.0100,.0017
  549. 8950  DATA 5,BROME-H,89.2,.91,.088,.0054,.0015
  550. 8955  DATA 6,TIMTHY-H,88.8,.89,.081,.0052,.0015
  551. 8960  DATA 7,GRASS-H,88.8,.91,.092,.0065,.0016
  552. 8970  DATA 11,BRLY-GF,86.8,1.04,.087,.0041,.0020
  553. 8980  DATA 12,OATS-GF,88.5,1.02,.083,.0032,.0019
  554. 8990  DATA 13,RYE-GF,89.9,1.02,.075,.002,.0016
  555. 9000  DATA 14,CREAL-GF,86.1,1.01,.085,.0044,.0020
  556. 9010  DATA 21,BRLEY-SL,39.5,.47,.043,.0021,.0011
  557. 9020  DATA 22,OATS-SL,36.4,.42,.036,.0018,.0009
  558. 9030  DATA 23,CORN-SL,32.8,.43,.029,.0012,.0008
  559. 9040  DATA 24,WHEAT-SL,38,.44,.037,.0017,.0009
  560. 9050  DATA 25,CREAL-SL,37.6,.44,.038,.0021,.0010
  561. 9055  DATA 26,ALFAL-SL,46.3,.55,.082,.0086,.0012
  562. 9060  DATA 27,AL-GR-SL,45.0,.50,.065,.0070,.0010
  563. 9070  DATA 28,GRASS-SL,38.2,.39,.045,.0034,.0010
  564. 9080  DATA 29,LEG-G-SL,44.2,.49,.062,.0061,.0010
  565. 9090  DATA 31,BRLEY-ST,88.9,.80,.042,.0042,.0009
  566. 9100  DATA 32,OATS-ST,88.7,.87,.040,.0034,.0010
  567. 9110  DATA 33,WHEAT-ST,91.1,.75,.036,.0028,.0005
  568. 9120  DATA 41,BARLEY-G,88.6,1.47,.109,.0007,.0035
  569. 9130  DATA 42,OATS-G,90.2,1.37,.105,.0009,.0032
  570. 9140  DATA 43,WHEAT-G,88.4,1.56,.140,.0005,.0034
  571. 9150  DATA 51,32% BSUP.,90,1.10,.32,.05,.0100
  572. 9160  DATA 52,32% DSUP.,90,1.25,.32,.025,.012
  573. 9170  DATA 53,UREA,100,0,2.81,0,0
  574. 9180  DATA 54,"2:1-MIN.",100,,,.2,.09
  575. 9190  DATA 55,"1:1-MIN.",100,,,.18,.18
  576. 9200  DATA 56,LIME,100,,,.38,0
  577. 9202  DATA 57,CNOLA ML,90,1.24,.370,.0068,.0115
  578. 9204  DATA 58,SOY ML,89,1.44,.475,.0032,.0067
  579. 9206  DATA 59,DEHY ALFA,92,1.12,.170,.0140,.0020
  580. 9210  REM DATA  FOR  DAIRY COW REQUIREMENTS
  581. 9212  DATA 0,24,2.00,.083,.066
  582. 9214  DATA 15,29.1,2.77,.103,.078
  583. 9216  DATA 20,32.4,3.16,.118,.088
  584. 9218  DATA 25,35.7,3.55,.133,.098
  585. 9220  DATA 30,39,3.94,.149,.109
  586. 9230  DATA 35,42.3,4.33,.164,.120
  587. 9240  DATA 40,45.6,4.72,.180,.131
  588. 9250  DATA 45,48.9,5.11,.195,.141
  589. 9260  DATA 50,52.2,5.5,.211,.152
  590. 9270  DATA 55,55.5,5.89,.226,.163
  591. 9280  DATA 60,58.8,6.28,.242,.174
  592. 9290  DATA 65,62.1,6.67,.258,.185
  593. 9300  DATA 70,65.4,7.06,.274,.196
  594. 9310  DATA 75,68.7,7.45,.289,.206
  595. 9320  DATA 80,72,7.84,.305,.217
  596. 9321  DATA 85,75.3,8.23,.321,.228
  597. 9322  DATA 90,78.6,8.62,.336,.239
  598. 9323  DATA 95,81.9,9.01,.352,.250
  599. 9324  DATA 100,85.2,9.41,.367,.260
  600. 9325  DATA 105,88.5,9.79,.383,.271
  601. 9326  DATA 110,91.8,10.18,.398,.282
  602. 9327  DATA 115,95.1,10.57,.414,.293
  603. 9328  DATA 120,98.4,10.96,.430,.303
  604. 9330  REM ENERGY REQUIREMENTS FOR FEEDLOT STEERS
  605. 9340  DATA 12.8,14.0,14.6,16.4,18.1,19.8,21.4,23.0,24.7
  606. 9350  DATA 14.7,15.5,17.7,19.7,21.5,23.4,25.4,27.2,29.2
  607. 9360  DATA 16.7,17.5,20.2,22.8,24.8,27.8,29.3,31.4,33.8
  608. 9362  DATA 17.7,19.0,22.4,25.9,28.1,30.7,33.2,35.7,37.9
  609. 9364  DATA 18.7,20.4,24.5,26.9,29.8,32.5,35.3,37.7,40.3
  610. 9366  DATA 00.0,21.8,26.7,28.9,33.1,36.1,39.2,41.9,44.8
  611. 9370  REM ENERGY REQUIREMENTS FOR FEEDLOT HEIFERS
  612. 9372  DATA 13.4,14.7,15.3,17.2,19.5,21.4,23.1,24.8
  613. 9374  DATA 15.4,16.2,18.6,21.3,23.2,25.3,27.4,29.4
  614. 9376  DATA 17.5,18.4,21.8,24.6,26.8,29.2,31.6,33.9
  615. 9378  DATA 18.6,20.0,24.2,28.0,30.3,33.2,35.9,38.6
  616. 9380  DATA 19.6,22.0,26.5,29.0,32.2,35.1,38.1,40.7
  617. 9382  DATA 00.0,23.5,28.8,31.2,35.7,39.0,42.3,45.3
  618. 9390  REM PROTEIN REQUIREMENTS FOR FEEDLOT CATTLE
  619. 9400  DATA 1.18,1.25,1.35,1.42,1.50,1.60,1.70,1.81,1.90
  620. 9410  DATA 1.31,1.42,1.53,1.62,1.73,1.84,1.97,2.09,2.15
  621. 9420  DATA 1.45,1.52,1.65,1.74,1.85,1.95,2.05,2.13,2.20
  622. 9430  DATA 1.49,1.70,1.76,1.85,1.98,2.09,2.22,2.36,2.40
  623. 9440  DATA 1.69,1.85,1.90,2.02,2.14,2.26,2.37,2.50,2.60
  624. 9445  DATA 1.85,1.98,2.08,2.18,2.31,2.44,2.58,2.68,2.75
  625. 9450  REM CA & PH REQUIREMENTS FOR  FEEDLOT CATTLE
  626. 9460  DATA ".036",".029"
  627. 9470  DATA ".040",".032"
  628. 9480  DATA ".045",".035"
  629. 9490  DATA ".047",".035"
  630. 9500  DATA ".054",".040"
  631. 9510  DATA ".061",".045"
  632. 9520  DATA ".061",".045"
  633. 9530  DATA ".068",".050"
  634. 9540  DATA ".075",".055"
  635. 9550  DATA ".081",".060"
  636. 9560  DATA ".088",".065"
  637. 9565  DATA ".095",".070"
  638. 9570  REM DELETE FEEDS SECTION
  639. 9580  CLS
  640. 9590  PRINT :PRINT :PRINT"DO YOU WISH TO DELETE FEEDS (Y/N)?"
  641. 9600  S6$="N":S1=3:S2=36:S3=3:S9=1:GOSUB 9
  642. 9610  IF S$="N" THEN  RETURN
  643. 9620   GOSUB 7740
  644. 9630   GOSUB 8450
  645. 9640  FOR I=1 TO W1
  646. 9650  S1=(I-1)*2+4:S2=1:GOSUB 24:PRINT"DELETE<Y/N>";
  647. 9660  S6$="N":S2=13:S3=3:S9=3:GOSUB 9
  648. 9670  IF S$="N" GOTO 9690
  649. 9680  A(I,1)=0
  650. 9690  NEXT I
  651. 9700  I2=0:I3=0:PRINT :S1=24:S2=1:PRINT"DELETING THIS MAY TAKE A WHILE"
  652. 9710  FOR I=1 TO W1
  653. 9720  IF A(I,1)<>0 GOTO 9810
  654. 9730  I2=I2+1:I3=I3+1
  655. 9740  IF I=W1 GOTO 9810
  656. 9750  FOR I1=I  TO  W1-1
  657. 9760  A(I1,1)=A(I1+1,1)
  658. 9770  A$(I1,2)=A$(I1+1,2):A$(I1,6)=A$(I1+1,6):A$(I1,7)=A$(I1+1,7)
  659. 9780  A(I1,3)=A(I1+1,3):A(I1,4)=A(I1+1,4):A(I1,5)=A(I1+1,5):A(I1,8)=A(I1+1,8)
  660. 9790  FA(I1)=FA(I1+1):FB(I1)=FB(I1+1):W(I1)=W(I1+1)
  661. 9800  NEXT I1
  662. 9810  NEXT I
  663. 9820  IF I2>0 THEN W1=W1-I2:I2=0:GOTO 9710
  664. 9830  IF W1+1>10 GOTO 9880
  665. 9840  FOR I=W1+1 TO W1+I3
  666. 9850  A(I,8)=0:FA(I)=0:FB(I)=0:W(I)=0
  667. 9860  A(I,1)=0:A$(I,2)="":A$(I,6)="":A$(I,7)="":A(I,3)=0:A(I,4)=0:A(I,5)=0
  668. 9870  NEXT I
  669. 9880  RETURN
  670. 9890  REM DECIDE ON ADD OR CHANGE
  671. 9900  CLS
  672. 9910  PRINT :PRINT :PRINT"DO YOU WANT TO ADD<A>, CHANGE<C> FEEDS"
  673. 9920  PRINT" OR RETURN<R> TO THE FEEDING TABLE?"
  674. 9930  S6$="":S1=4:S2=38:S3=2:S9=1:GOSUB 9
  675. 9940  IF S$="A" OR S$="C" OR S$="R" THEN RETURN
  676. 9950   GOTO  9930
  677. 60000  REM this is the logo routine
  678. 60010  DEF SEG=0:IF (PEEK(&H410) AND &H30)=&H30 GOTO 60550
  679. 60020  S=3.14159
  680. 60030  KEY OFF
  681. 60040  SCREEN 1
  682. 60050  COLOR 0,1
  683. 60060  CLS
  684. 60070  LINE(0,0)-(319,199),3,B
  685. 60080  LINE(5,5)-(314,194),3,B
  686. 60090  PAINT(1,1),1,3
  687. 60100  DRAW"c3;bm40,100;e60;d60;l5;h15;e4;f10;u40;g50;l5;"
  688. 60110  PAINT(43,99),1,3
  689. 60120  DRAW"C3;bm110,30;d70;L5;U70;R5;"
  690. 60130  PAINT(109,99),1,3
  691. 60140  DRAW"C3;bm120,40;d60;L5;U60;R5;"
  692. 60150  PAINT(119,99),1,3
  693. 60160  CIRCLE(135,83),20,3,1.25*S,0.75*S
  694. 60170  CIRCLE(135,83),15,3,1.25*S,0.9*S
  695. 60180  DRAW"bm119,96;e5;"
  696. 60190  PAINT(135,98),1,3
  697. 60200  CIRCLE(170,83),20,3,0.2*S,1.85*S
  698. 60210  CIRCLE(170,83),15,3,0.25*S,1.8*S
  699. 60220  DRAW"C3;BM182,90;R5;"
  700. 60230  DRAW"C3;BM187,75;G10;H3;E7;"
  701. 60240  PAINT(170,99),1,3
  702. 60250  PAINT(170,67),1,3
  703. 60260  DRAW"c3;bm195,100;l5;u34;r5;d34;"
  704. 60270  CIRCLE(210,83),20,3,0.55*S,0.76*S
  705. 60280  CIRCLE(210,83),15,3,0.59*S,0.88*S
  706. 60290  DRAW"bm207,66;d5;"
  707. 60300  PAINT(194,99),1,3
  708. 60310  PAINT(206,69),1,3
  709. 60320  DRAW"c3;bm217,100;l5;u40;r5;d5;r7;d5;l7;d30;"
  710. 60330  PAINT(216,97),1,3
  711. 60340  DRAW"C3;bm265,65;d35;L5;U35;R5;"
  712. 60350  CIRCLE(245,83),20,3,0.25*S,1.75*S
  713. 60360  CIRCLE(245,83),15,3,0.1*S,1.7*S
  714. 60370  DRAW"bm261,99;h6;"
  715. 60380  PAINT(245,98),1,3
  716. 60390  PAINT(264,69),1,3
  717. 60400  LOCATE 14,22
  718. 60410  PRINT"AGRICULTURE"
  719. 60420  LOCATE 18,6
  720. 60430  PRINT"LIVESTOCK INDUSTRY DIVISION"
  721. 60460  LOCATE 23,5
  722. 60470  PRINT"PROVIDED BY ALBERTA AGRICULTURE"
  723. 60480  LOCATE 24,3
  724. 60490  PRINT"RESPONSIBILITY RESTS WITH THE USER";
  725. 60500  FOR S=1 TO 4100
  726. 60510  POKE 106,0
  727. 60520  IF INKEY$<>"" GOTO 60540
  728. 60530  NEXT S
  729. 60540  ON ERROR GOTO 0 :SCREEN 0,0,0:RETURN
  730. 60550  REM **MONOCHROME LOGO**
  731. 60560  KEY OFF:WIDTH 80:CLS:S$=CHR$(219)
  732. 60570  PRINT STRING$(75,S$);
  733. 60580  FOR S=2 TO 23:LOCATE S,75:PRINT S$;:NEXT
  734. 60590  LOCATE 24,1:PRINT STRING$(75,S$);
  735. 60600  FOR S=23 TO 2 STEP -1:LOCATE S,1:PRINT S$;:NEXT
  736. 60610  '
  737. 60620  '
  738. 60630  LOCATE 5,28:PRINT "OFF"
  739. 60640  LOCATE 6,24:PRINT"/OFF  OFF  OFF"
  740. 60650  LOCATE 7,23:PRINT"/ OFF  OFF  OFF"
  741. 60660  LOCATE 8,22:PRINT"/  OFF  OFF  OFF                INKEY$"
  742. 60670  LOCATE 9,21:PRINT"/   OFF  OFF  OFF __    __       INKEY$_   __"
  743. 60680  LOCATE 10,20:PRINT"/    OFF  OFF  OFF/  \  /  \  INKEY$/  INKEY$   /  \OFF"
  744. 60690  LOCATE 11,19:PRINT"/     OFF  OFF  CSRLIN   INKEY$  OFF  /  INKEY$   INKEY$   OFF   OFF"
  745. 60700  LOCATE 12,18:PRINT"/    \ OFF  OFF  CSRLIN   INKEY$  OFF     INKEY$   INKEY$   OFF   OFF"
  746. 60710  LOCATE 13,17:PRINT"/      \OFF  OFF  OFF\__/  \__/  INKEY$   INKEY$   \__/OFF"
  747. 60720  LOCATE 15,36:PRINT"A G R I C U L T U R E"
  748. 60730  LOCATE 18,24:PRINT"LIVESTOCK INDUSTRY DIVISION"
  749. 60740  LOCATE 21,22:PRINT"PROVIDED BY ALBERTA AGRICULTURE."
  750. 60750  LOCATE 22,19:PRINT"RESPONSIBILITY RESTS SOLELY WITH USER"
  751. 60760  FOR S=1 TO 1500
  752. 60770  S$=INKEY$
  753. 60780  IF S$=CHR$(13) GOTO 60800
  754. 60790  NEXT S
  755. 60800  S$=""
  756. 60810  ON ERROR GOTO 0
  757. 60820  RETURN
  758. 62000  REM THIS IS THE SCREEN PRINT LOADER ACTIVATE WITH 'CALL PRTSCR'
  759. 62010  DEF SEG=&H0
  760. 62020  POKE &HF1, &HCD
  761. 62030  POKE &HF2, &H5
  762. 62040  POKE &HF3, &HCB
  763. 62050  PRTSCR=&HF1
  764. 62060  RETURN
  765.