home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug009.ark / GL7.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  12.3 KB  |  403 lines
  1. 10 ' PROGRAM NAME "GL7"
  2. 280 CLEAR 1000
  3. 290 INPUT "TO MOUNT THE FILES ENTER -Y-";YX$
  4. 300 IF YX$<>"Y" THEN 380
  5. 310 UNLOAD 1:MOUNT 1
  6. 330 ' TABLE CONTAINING THE LEDGER ACCOUNT NUMBER AND THE PROJECTED
  7. 340 ' MONTHLY BUDGET AMOUNT FOR THAT ACCOUNT
  8. 360 DATA 4100,-27100.00,4101,-200.00,4102,-990.00,4200,-14.00
  9. 370 DATA 4201,-1300.00,4203,-500.00,4204,-26.00,4205,-60.00
  10. 380 DATA 4300,-100.00,4301,-100.00,4302,-215.00,4303,-12.00
  11. 390 DATA 4304,-345.00,4305,-50.00,4306,-25.00,7100,1500.00
  12. 400 DATA 7101,1500.00,7102,230.00,7103,230.00,7104,1650.00
  13. 410 DATA 7105,400.00,7106,195.00,7107,470.00,7108,90.00
  14. 420 DATA 7109,200.00,7110,24.00,7111,27.50,7112,20.00,7113,17.00
  15. 430 DATA 7114,.00,7115,.00,7200,790.00,7201,552.00,7202,33.00
  16. 440 DATA 7300,105.00,7301,215.00,7302,293.00,7303,5.50,7304,50.00
  17. 450 DATA 7400,413.50,7401,.00,7402,26.50,7403,800.00,7404,19.00
  18. 460 DATA 7405,167.00,7406,18.00,7407,100.00,7408,9181.10
  19. 470 DATA 7409,815.00,7410,27.00,7411,200.00,7412,665.00,7413,.00
  20. 480 DATA 7414,.00,7415,.00,7500,10.00,7501,290.00,7502,5.00
  21. 490 DATA 7503,500.00,7504,537.05,7600,250.00,7601,100.00
  22. 500 DATA 7602,200.00,7603,115.00,7604,25.00,7605,35.00,7606,100.00
  23. 510 DATA 7607,10.00,7608,90.00,7609,50.00,7610,25.00,7611,15.00
  24. 520 DATA 7612,80.00,7613,146.75,7614,80.00,7615,.00,7700,585.00
  25. 530 DATA 7701,570.00,7702,56.00,7703,240.00,7800,210.00
  26. 540 DATA 7801,214.50,7900,125.00,7901,325.00,7902,1075.00
  27. 550 DATA 7903,5820.92,7904,.00,7416,.00,4206,.00,7417,.00,4207,.009
  28. 560 DATA 7616,.00,9999,9999
  29. 590 S1$="INCOME & EXPENSE ANALYSIS PER OCCUPIED & AVAILABLE ROOM"
  30. 600 S4$="BUDGET       ACTUAL       ACTUAL"
  31. 610 S5$="PER OCCUP    PER OCCUP    PER AVAIL"
  32. 620 H1$="CONWAY R.I. INC.  CONWAY, ARK.
  33. 630 H2$="BUDGETED OPERATING STATEMENT"
  34. 640 H3$="PREPARED WITHOUT AUDIT"
  35. 650 H4$="FOR PERIOD ENDING "
  36. 660 H5$="ACCT                            MONTHLY      MONTHLY      "
  37. 670 H6$="MONTHLY      MONTHLY"
  38. 680 H7$="NUMB     DESCRIPTION            BUDGET       REPORT     OV"
  39. 690 H8$="ER/UNDER       O/U%"
  40. 700 H9$="ACCT"
  41. 710 N=4
  42. 720 EDT$="#,###,###.##-":BLK$=" "
  43. 730 HM$="MONTHLY"
  44. 740 HY$="Y.T.D."
  45. 750 J=4
  46. 760 F1#=1898!    
  47. 770 G1#=16.5     
  48. 780 H1#=80!      
  49. 790 PRINT "OPERATING STATEMENT - BUDGET RUN"
  50. 800 INPUT "ENTER -M- FOR MONTHLY -Y- FOR Y.T.D.";MY$
  51. 810 IF MY$<>"M" AND MY$<>"Y" THEN 350
  52. 820 INPUT "ENTER REPORT DATE AS MO-DY-YR";DT$
  53. 830 IF MY$="Y" THEN INPUT "ENTER ROOMS RENTED Y.T.D.";RM#:GOTO 850
  54. 840 INPUT "ENTER ROOMS RENTED THIS MONTH";RM#
  55. 850 F2#=RM#
  56. 860 INPUT "ENTER -S- FOR STATISTICAL ANALYSIS";SA$
  57. 870 IF MY$="Y" THEN 3590
  58. 880 OPEN "I",1,"BUDGET",1
  59. 890 GOSUB 3390'            GO PRINT PAGE HEADINGS
  60. 900 LPRINT SPC(10) "INCOME":GOSUB 3270
  61. 910 LPRINT:GOSUB 3270
  62. 920 LPRINT "ROOM-TEL-MEETING ROOM SALES":GOSUB 3270
  63. 930 IF MY$="Y" THEN 950
  64. 940 GOSUB 2900
  65. 950 GOSUB 3140
  66. 960 A2#=VAL(DOL$)    
  67. 970 A3#=A2#-A1#      
  68. 980 IF A1#=0 THEN A4#=0:GOTO 1010 
  69. 990 A4#=A3#/A1#
  70. 1000 A4#=(A4#*100)
  71. 1010 IF DAC$="4100" THEN SG2#=SG2#-A2#
  72. 1020 C1$=MID$(DAC$,1,2)    
  73. 1030 C2$=MID$(DAC$,1,1)
  74. 1040 IF SA$="S" THEN 4470   
  75. 1080 LPRINT DAC$;BLK$;DIS$;SPC(1);BLK$ USING EDT$;A1#,A2#,A3#,A4#
  76. 1090 GOSUB 3270
  77. 1110 B1#=B1#+A1#    
  78. 1120 C1#=C1#+A1#   
  79. 1130 D1#=D1#+A1#   
  80. 1140 B2#=B2#+A2#   
  81. 1150 C2#=C2#+A2#   
  82. 1160 D2#=D2#+A2#   
  83. 1170 B3#=B3#+A3#   
  84. 1180 C3#=C3#+A3#   
  85. 1190 D3#=D3#+A3#   
  86. 1200 IF DAC$="7903" THEN 1250
  87. 1210 IF DAC$="7408" THEN 2220
  88. 1220 E1#=E1#+A1#     
  89. 1230 E2#=E2#+A2#
  90. 1240 E3#=E2#-E1#
  91. 1250 IF MY$="Y" THEN GOSUB 3830:GOTO 1270
  92. 1260 GOSUB 2900     
  93. 1270 IF DAC$<"0001" THEN 2270
  94. 1280 IF C1$<MID$(DAC$,1,2) THEN 1350
  95. 1290 IF C1$>MID$(DAC$,1,2) THEN 1310
  96. 1300 GOTO 950
  97. 1310 PRINT "SEQ ERROR ";C1$;" ";MID$(DAC$,1,2):STOP
  98. 1350 IF C1$="41" THEN 1920
  99. 1360 IF C1$="42" THEN 1950
  100. 1370 IF C1$="43" THEN 1980
  101. 1380 IF C1$="71" THEN 2010
  102. 1390 IF C1$="72" THEN 2040
  103. 1400 IF C1$="73" THEN 2070
  104. 1410 IF C1$="74" THEN 2100
  105. 1420 IF C1$="75" THEN 2130
  106. 1430 IF C1$="76" THEN 2160
  107. 1440 IF C1$="77" THEN 2190
  108. 1480 CAT$="TOTAL RESERVATION EXPENSE"
  109. 1490 NCAT$="INSURANCE-TAXES-DEPRECIATION"
  110. 1500 SP=27-LEN(CAT$)
  111. 1510 IF B1#=0 THEN B4=0:GOTO 1540
  112. 1520 B4#=B3#/B1#
  113. 1530 B4#=(B4#*100)
  114. 1540 LPRINT:GOSUB 3270
  115. 1550 IF SA$="S" THEN 4540
  116. 1560 LPRINT CAT$;SPC(SP) USING EDT$;B1#,B2#,B3#,B4#
  117. 1570 GOSUB 3270
  118. 1580 B1#=0:B2#=0:B3#=0:B4#=0
  119. 1590 LPRINT:GOSUB 3270
  120. 1600 LPRINT NCAT$
  121. 1610 GOSUB 3270
  122. 1620 IF EFSW=1 THEN 2310  
  123. 1660 IF C2$<MID$(DAC$,1,1) THEN 1700
  124. 1670 IF C2$>MID$(DAC$,1,1) THEN 1310
  125. 1680 GOTO 950
  126. 1700 CAT$="TOTAL INCOME" 
  127. 1710 SP=27-LEN(CAT$)
  128. 1720 IF C1#=0 THEN C4=0:GOTO 1750
  129. 1730 C4#=C3#/C1#
  130. 1740 C4#=(C4#*100)
  131. 1750 LPRINT:GOSUB 3270
  132. 1760 IF SA$="S" THEN 4610 
  133. 1770 LPRINT CAT$;SPC(SP) USING EDT$;C1#,C2#,C3#,C4# 
  134. 1780 C1#=0:C2#=0:C3#=0:C4#=0 
  135. 1790 GOSUB 3270
  136. 1800 IF EFSW=1 THEN 2330
  137. 1810 GOSUB 3360
  138. 1820 LPRINT:GOSUB 3270   
  139. 1830 LPRINT SPC(10) "EXPENSES"   
  140. 1840 GOSUB 3270     
  141. 1850 LPRINT:GOSUB 3270
  142. 1860 LPRINT "COST OF ROOM SALES" 
  143. 1870 GOSUB 3270     
  144. 1880 GOTO 950       
  145. 1920 CAT$="TOT ROOM-TELE-MEETING RM"
  146. 1930 NCAT$="MISCELLANEOUS SALES"
  147. 1940 GOTO 1500
  148. 1950 CAT$="TOTAL MISCELLANEOUS SALES"
  149. 1960 NCAT$="SALES-OTHER"
  150. 1970 GOTO 1500
  151. 1980 CAT$="TOTAL SALES-OTHER"
  152. 1990 NCAT$=" "
  153. 2000 GOTO 1500
  154. 2010 CAT$="TOTAL COST OF ROOM SALES"
  155. 2020 NCAT$="COST OF TELEPHONE SERVICE"
  156. 2030 GOTO 1500
  157. 2040 CAT$="TOT COST OF TELEPHONE SER"
  158. 2050 NCAT$="COST OF OTHER SALES"
  159. 2060 GOTO 1500
  160. 2070 CAT$="TOTAL COST OF OTHER SALES"
  161. 2080 NCAT$="GENERAL & ADMINISTRATIVE EXPENSE"
  162. 2090 GOTO 1500
  163. 2100 CAT$="TOT GENERAL & ADM EXPENSE"
  164. 2110 NCAT$="ADVERTISING & PROMOTION"
  165. 2120 GOTO 1500
  166. 2130 CAT$="TOT ADVERTISING-PROMOTION"
  167. 2140 NCAT$="REPAIRS & MAINTENANCE"
  168. 2150 GOTO 1500
  169. 2160 CAT$="TOTAL REPAIRS & MAINTENANCE"
  170. 2170 NCAT$="UTILITIES"
  171. 2180 GOTO 1500
  172. 2190 CAT$="TOTAL UTILITIES"
  173. 2200 NCAT$="RESERVATION EXPENSE"
  174. 2210 GOTO 1500
  175. 2220 IF MY$="Y" THEN A2#=10711.8*XMO 
  176. 2230 IF MY$="Y" THEN A1#=10711.8*XMO:GOTO 2260
  177. 2240 A2#=10711.8             
  178. 2250 A1#=10711.8
  179. 2260 GOTO 1220
  180. 2270 EFSW=1                  
  181. 2280 CAT$="TOT INS-TAXES-DEPREC"
  182. 2290 NCAT$=" "
  183. 2300 GOTO 1500
  184. 2310 CAT$="TOTAL EXPENSES"
  185. 2320 GOTO 1710
  186. 2330 LPRINT:GOSUB 3270     
  187. 2340 LPRINT:GOSUB 3270
  188. 2350 CAT$="NET PROFIT(-) OR LOSS(+)" 
  189. 2360 SP=27-LEN(CAT$)
  190. 2370 IF D1#=0 THEN D4=0:GOTO 2410
  191. 2380 D4#=D3#/D1#
  192. 2390 D4#=(D4#*100)
  193. 2400 IF SA$="S" THEN 4680
  194. 2410 LPRINT CAT$;SPC(SP) USING EDT$;D1#,D2#,D3#,D4#
  195. 2420 GOSUB 3270
  196. 2430 LPRINT:GOSUB 3270    
  197. 2440 LPRINT:GOSUB 3270
  198. 2450 CAT$="CASH FLOW"    
  199. 2460 SP=27-LEN(CAT$)
  200. 2470 IF E1#=0 THEN E4=0:GOTO 2510
  201. 2480 E4#=E3#/E1#
  202. 2490 E4#=(E4#*100)
  203. 2500 IF SA$="S" THEN 4750
  204. 2510 LPRINT CAT$;SPC(SP) USING EDT$;E1#,E2#,E3#,E4#
  205. 2520 GOSUB 3270
  206. 2530 CAT$="NUMBER ROOMS RENTED" 
  207. 2540 SP=27-LEN(CAT$)
  208. 2550 IF MY$="Y" THEN F1#=F1#*XMO
  209. 2560 F3#=F2#-F1#
  210. 2570 IF F1#=0 THEN F4=0:GOTO 2600
  211. 2580 F4#=F3#/F1#
  212. 2590 F4#=(F4#*100)
  213. 2600 LPRINT:GOSUB 3270
  214. 2610 LPRINT:GOSUB 3270
  215. 2620 LPRINT CAT$;SPC(SP) USING EDT$;F1#,F2#,F3#,F4#
  216. 2630 GOSUB 3270
  217. 2640 LPRINT:GOSUB 3270
  218. 2650 LPRINT:GOSUB 3270
  219. 2660 CAT$="AVERAGE ROOM RATE"  
  220. 2670 SP=27-LEN(CAT$)
  221. 2680 G2#=SG2#/RM#
  222. 2690 G3#=G2#-G1#
  223. 2700 G4#=G3#/G1#
  224. 2710 G4#=(G4#*100)
  225. 2720 LPRINT CAT$;SPC(SP) USING EDT$;G1#,G2#,G3#,G4#
  226. 2730 GOSUB 3270
  227. 2740 LPRINT:GOSUB 3270
  228. 2750 LPRINT:GOSUB 3270
  229. 2760 CAT$="OCCUPANCY RATE" 
  230. 2770 SP=27-LEN(CAT$)
  231. 2780 IF MY$="Y" THEN H2#=RM#/(2372.5*XMO):GOTO 2800 
  232. 2790 H2#=RM#/2372.5
  233. 2800 H2#=H2#*100
  234. 2810 H3#=H2#-H1#
  235. 2820 H4#=H3#/H1#
  236. 2830 H4#=(H4#*100)
  237. 2840 LPRINT CAT$;SPC(SP) USING EDT$;H1#,H2#,H3#,H4#
  238. 2850 IF MY$="Y" THEN CLOSE 2:GOTO 2870 
  239. 2860 CLOSE 1                           
  240. 2870 PRINT "EOJ"
  241. 2880 LOAD "GLMENU",0,R
  242. 2920 IF J>4 THEN PRINT "LOOP ERROR":STOP
  243. 2930 IF J>3 THEN 2990
  244. 2940 DAC$=MID$(A$(J),7,4)
  245. 2950 DIS$=MID$(A$(J),11,20)
  246. 2960 DOL$=MID$(A$(J),31,11)
  247. 2970 J=J+1
  248. 2980 RETURN
  249. 2990 E=EOF(1)
  250. 3000 IF E=-1 AND J=4 THEN 2270
  251. 3010 IF E=-1 THEN PRINT "DISK ACESS ERROR":STOP
  252. 3020 INPUT #1,BB$
  253. 3030 I=1
  254. 3040 A$(I)=MID$(BB$,1,42)
  255. 3050 I=I+1
  256. 3060 A$(I)=MID$(BB$,43,84)
  257. 3070 I=I+1
  258. 3080 A$(I)=MID$(BB$,85,126)
  259. 3090 J=1
  260. 3100 GOTO 2900
  261. 3140 FOR K=1 TO 500
  262. 3150 READ X$,Y#
  263. 3160 IF DAC$=X$ THEN 3230
  264. 3170 IF X$="9999" THEN 3190
  265. 3180 NEXT K
  266. 3190 PRINT "NO DATA IN TABLE FOR ";DAC$
  267. 3200 Y#=0:GOTO 3230
  268. 3210 RESTORE
  269. 3220 RETURN
  270. 3230 A1#=Y#
  271. 3240 IF MY$="Y" THEN A1#=A1#*XMO
  272. 3250 GOTO 3210
  273. 3300 LCT=LCT+1
  274. 3310 IF LCT>57 THEN GOSUB 3360
  275. 3320 RETURN
  276. 3360 FOR L=LCT TO 66
  277. 3370 LPRINT
  278. 3380 NEXT L
  279. 3390 LPRINT SPC(28) H1$:LPRINT
  280. 3400 IF MY$="Y" THEN 3530
  281. 3410 LPRINT SPC(34) HM$
  282. 3420 IF SA$="S" THEN LPRINT SPC(10)S1$:GOTO 3440
  283. 3430 LPRINT SPC(28)H2$
  284. 3440 LPRINT SPC(28)H3$
  285. 3450 LPRINT SPC(28)H4$;DT$
  286. 3460 IF MY$="M" THEN LPRINT:LPRINT:LPRINT:GOTO 3480
  287. 3470 LPRINT SPC(28);"MONTH ";XMO;" OF FISCAL YEAR":LPRINT:LPRINT
  288. 3480 IF SA$="S" THEN 4310
  289. 3490 IF MY$="Y" THEN 3550
  290. 3500 LPRINT H5$;H6$:LPRINT H7$;H8$:LPRINT
  291. 3510 LCT=13
  292. 3520 RETURN
  293. 3530 LPRINT SPC(35) HY$
  294. 3540 GOTO 3420
  295. 3550 LPRINT H9$;SPC(29);HY$;SPC(7);HY$;SPC(7);HY$;SPC(6);HY$
  296. 3560 LPRINT H7$;H8$:LPRINT
  297. 3570 GOTO 3510
  298. 3620 OPEN "R",2,"LEDGER"
  299. 3630 GMO$=MID$(DT$,1,2)
  300. 3640 GYR$=MID$(DT$,7,2)
  301. 3650 GMO=VAL(GMO$)
  302. 3660 GYR=VAL(GYR$)
  303. 3670 IF GMO=12 THEN GMO=1:GYR=GYR+1:GOTO 4080
  304. 3680 GMO=GMO+1:GOTO 4080
  305. 3690 GMO$=STR$(GMO):GYR$=STR$(GYR)
  306. 3700 IF LEN(GMO$)<3 THEN GD$="0"+MID$(GMO$,2,2)+MID$(GYR$,2,2):GOTO 3720
  307. 3710 GD$=MID$(GMO$,2,2)+MID$(GYR$,2,2)
  308. 3720 GET #2,2037    
  309. 3730 FOR I=1 TO 16
  310. 3740 FIELD #2, (I-1)*8 AS D$,8 AS D2$(I)
  311. 3750 IF GD$=MID$(D2$(I),1,4) THEN 3780 
  312. 3760 NEXT I
  313. 3770 PRINT "FILE NOT IN TABLE":STOP
  314. 3780 REC$=MID$(D2$(I),5,4)
  315. 3790 REC=VAL(REC$)   
  316. 3800 GOSUB 3830
  317. 3810 GOTO 890
  318. 3870 IF N=4 THEN 3930
  319. 3880 FOR M=N TO 3
  320. 3890 FIELD #2, (M-1)*42 AS DD$,42 AS DREC$(M)
  321. 3900 IF MID$(DREC$(M),1,3)="EOF" AND ESW=1 THEN 2270
  322. 3910 IF MID$(DREC$(M),1,2)=MID$(GD$,1,2) THEN 3980
  323. 3920 NEXT M
  324. 3930 REC=REC+1
  325. 3940 IF REC=2037 THEN PRINT "DISK AREA OVERFLOW":STOP
  326. 3950 GET #2,REC
  327. 3960 N=1
  328. 3970 GOTO 3870
  329. 3980 IF MID$(DREC$(M),5,2)=MID$(GD$,3,2) THEN 4000
  330. 3990 GOTO 3920
  331. 4000 ESW=1
  332. 4010 IF MID$(DREC$(M),42,1)<>"1" OR MID$(DRC$(M),7,1)<"4" THEN 3920
  333. 4020 DAC$=MID$(DREC$(M),7,4)
  334. 4030 DIS$=MID$(DREC$(M),11,20)
  335. 4040 DOL$=MID$(DREC$(M),31,11)
  336. 4050 N=M+1
  337. 4060 RETURN
  338. 4130 IF GMO=7 THEN XMO=1:GOTO 3690'  JUNE
  339. 4140 IF GMO=8 THEN XMO=2:GOTO 3690'  JULY
  340. 4150 IF GMO=9 THEN XMO=3:GOTO 3690' AUGUST
  341. 4160 IF GMO=10 THEN XMO=4:GOTO 3690' SEPTEMBER
  342. 4170 IF GMO=11 THEN XMO=5:GOTO 3690'  OCTOBER
  343. 4180 IF GMO=12 THEN XMO=6:GOTO 3690'  NOVEMBER
  344. 4190 IF GMO=1 THEN XMO=7:GOTO 3690'  DECEMBER
  345. 4200 IF GMO=2 THEN XMO=8:GOTO 3690'  JANUARY
  346. 4210 IF GMO=3 THEN XMO=9:GOTO 3690'  FEBRUARY
  347. 4220 IF GMO=4 THEN XMO=10:GOTO 3690' MARCH
  348. 4230 IF GMO=5 THEN XMO=11:GOTO 3690' APRIL
  349. 4240 IF GMO=6 THEN XMO=12:GOTO 3690' MAY
  350. 4250 PRINT "GMO ERROR":STOP
  351. 4310 IFMY$="Y"THENOM#=RM#/(23.725*XMO):AV=1898*XMO:AX=2372.5*XMO:GOTO435
  352. 4320 OM#=RM#/23.725
  353. 4330 AV=1898
  354. 4340 AX=2372.5
  355. 4350 S2$="BUDGETED AVERAGE##,###.## ACTUAL       ##,###.##"
  356. 4360 S2$=S2$+"   ACTUAL AVERAGE ##,###.##"
  357. 4370 S3$="OCCUPIED ROOMS = 80.00%   OCCUPIED ROOMS = ##.##%"
  358. 4380 S3$=S3$+"  AVAILABLE ROOMS = 100.00%"
  359. 4390 LPRINT USING S2$;AV,RM#,AX
  360. 4400 LPRINT USING S3$;OM#
  361. 4410 LPRINT:LPRINT
  362. 4420 LPRINT "ACCT";SPC(28);S4$
  363. 4430 LPRINT "NUMB     DESCRIPTION";SPC(10);S5$
  364. 4440 LPRINT
  365. 4450 LCT=16
  366. 4460 GOTO 3520
  367. 4470 IF MY$="Y" THEN S1#=A1#/(1898*XMO):GOTO 4490 
  368. 4480 S1#=A1#/1898
  369. 4490 S2#=A2#/RM#
  370. 4500 IF MY$="Y" THEN S3#=A2#/(2372.5*XMO):GOTO 4520 
  371. 4510 S3#=A2#/2371.5
  372. 4520 LPRINT DAC$;BLK$;DIS$;SPC(1);BLK$ USING EDT$;S1#,S2#,S3#
  373. 4530 GOTO 1090
  374. 4540 IF MY$="Y" THEN P1#=B1#/(1898*XMO):GOTO 4560
  375. 4550 P1#=B1#/1898
  376. 4560 P2#=B2#/RM#
  377. 4570 IF MY$="Y" THEN P3#=B2#/(2372.5*XMO):GOTO 4590
  378. 4580 P3#=B2#/2372.5
  379. 4590 LPRINT CAT$;SPC(SP) USING EDT$;P1#,P2#,P3#
  380. 4600 GOTO 1570
  381. 4610 IF MY$="Y" THEN Q1#=C1#/(1898*XMO):GOTO 4630
  382. 4620 Q1#=C1#/1898
  383. 4630 Q2#=C2#/RM#
  384. 4640 IF MY$="Y" THEN Q3#=C2#/(2372.5*XMO):GOTO 4660
  385. 4650 Q3#=C2#/2372.5
  386. 4660 LPRINT CAT$;SPC(SP) USING EDT$;Q1#,Q2#,Q3#
  387. 4670 GOTO 1780
  388. 4680 IF MY$="Y" THEN R1#=D1#/(1898*XMO):GOTO 4700
  389. 4690 R1#=D1#/1898
  390. 4700 R2#=D2#/RM#
  391. 4710 IF MY$="Y" THEN R3#=D2#/(2372.5*XMO):GOTO 4730
  392. 4720 R3#=D2#/2372.5
  393. 4730 LPRINT CAT$;SPC(SP) USING EDT$;R1#,R2#,R3#
  394. 4740 GOTO 2420
  395. 4750 IF MY$="Y" THEN V1#=E1#/(1898*XMO):GOTO 4770
  396. 4760 V1#=E1#/1898
  397. 4770 V2#=E2#/RM#
  398. 4780 IF MY$="Y" THEN V3#=E2#/(2372.5*XMO):GOTO 4800
  399. 4790 V3#=E2#/2372.5
  400. 4800 LPRINT CAT$;SPC(SP) USING EDT$;V1#,V2#,V3#
  401. 4810 GOTO 2850
  402. 4820 END
  403.