home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG051.ARK / FLT1.FLB < prev    next >
Text File  |  1984-04-29  |  13KB  |  737 lines
  1. BEGIN STAGE2.
  2. VAL B = 1 + 0.
  3. READ NEXT B.
  4. VAL W = 4 + 0.
  5. WRITE NEXT W.
  6. VAL B = 1 + 0.
  7. READ NEXT B.
  8. VAL W = 4 + 0.
  9. WRITE NEXT W.
  10. VAL B = 1 + 0.
  11. READ NEXT B.
  12. TO 01.                                      TO **
  13. VAL W = 4 + 0.
  14. WRITE NEXT W.
  15. LOC 01.
  16. VAL B = 1 + 0.
  17. READ NEXT B.
  18. TO 02 IF FLG 1 = 1.                         TO ** IF FLG * = *
  19. VAL W = 4 + 0.
  20. WRITE NEXT W.
  21. LOC 02.
  22. VAL B = 1 + 0.
  23. READ NEXT B.
  24. TO 03 IF FLG 1 = 2.
  25. TO 04.
  26. LOC 03.
  27. VAL W = 4 + 0.
  28. WRITE NEXT W.
  29. LOC 04.
  30. VAL B = 1 + 0.
  31. READ NEXT B.
  32. TO 05 IF FLG 1 NE 2.                        TO ** IF FLG * NE *
  33. VAL W = 4 + 0.
  34. WRITE NEXT W.
  35. LOC 05.
  36. VAL B = 1 + 0.
  37. READ NEXT B.
  38. TO 06 IF FLG 1 NE 1.
  39. TO 07.
  40. LOC 06.
  41. VAL W = 4 + 0.
  42. WRITE NEXT W.
  43. LOC 07.
  44. VAL B = 1 + 0.
  45. READ NEXT B.
  46. TO 08 IF VAL 1 = 1.                         TO ** IF VAL * = *
  47. VAL W = 4 + 0.
  48. WRITE NEXT W.
  49. LOC 08.
  50. VAL B = 1 + 0.
  51. READ NEXT B.
  52. TO 09 IF VAL 1 = 2.
  53. TO 10.
  54. LOC 09.
  55. VAL W = 4 + 0.
  56. WRITE NEXT W.
  57. LOC 10.
  58. VAL B = 1 + 0.
  59. READ NEXT B.
  60. TO 11 IF VAL 1 NE 2.                        TO ** IF VAL * NE *
  61. VAL W = 4 + 0.
  62. WRITE NEXT W.
  63. LOC 11.
  64. VAL B = 1 + 0.
  65. READ NEXT B.
  66. TO 12 IF VAL 1 NE 1.
  67. TO 13.
  68. LOC 12.
  69. VAL W = 4 + 0.
  70. WRITE NEXT W.
  71. LOC 13.
  72. VAL B = 1 + 0.
  73. READ NEXT B.
  74. TO 14 IF PTR 1 = 1.                         TO ** IF PTR * = *
  75. VAL W = 4 + 0.
  76. WRITE NEXT W.
  77. LOC 14.
  78. VAL B = 1 + 0.
  79. READ NEXT B.
  80. TO 15 IF PTR 1 = 2.
  81. TO 16.
  82. LOC 15.
  83. VAL W = 4 + 0.
  84. WRITE NEXT W.
  85. LOC 16.
  86. VAL B = 1 + 0.
  87. READ NEXT B.
  88. TO 17 IF PTR 1 NE 2.                        TO ** IF PTR * NE *
  89. VAL W = 4 + 0.
  90. WRITE NEXT W.
  91. LOC 17.
  92. VAL B = 1 + 0.
  93. READ NEXT B.
  94. TO 18 IF PTR 1 NE 1.
  95. TO 19.
  96. LOC 18.
  97. VAL W = 4 + 0.
  98. WRITE NEXT W.
  99. LOC 19.
  100. VAL B = 1 + 0.
  101. READ NEXT B.
  102. TO 20 IF PTR 3 GE 1.                        TO ** IF PTR * GE *
  103. VAL W = 4 + 0.
  104. WRITE NEXT W.
  105. LOC 20.
  106. VAL B = 1 + 0.
  107. READ NEXT B.
  108. TO 21 IF PTR 1 GE 1.
  109. VAL W = 4 + 0.
  110. WRITE NEXT W.
  111. LOC 21.
  112. VAL B = 1 + 0.
  113. READ NEXT B.
  114. TO 22 IF PTR 1 GE 2.
  115. TO 23.
  116. LOC 22.
  117. VAL W = 4 + 0.
  118. WRITE NEXT W.
  119. LOC 23.
  120. VAL B = 1 + 0.
  121. READ NEXT B.
  122. FLG A = 1.                                  FLG * = *
  123. TO 24 IF FLG A = 1.
  124. VAL W = 4 + 0.
  125. WRITE NEXT W.
  126. LOC 24.
  127. VAL B = 1 + 0.
  128. READ NEXT B.
  129. VAL A = PTR 3.                              VAL * = PTR *
  130. TO 25 IF VAL A = 3.
  131. VAL W = 4 + 0.
  132. WRITE NEXT W.
  133. LOC 25.
  134. VAL B = 1 + 0.
  135. READ NEXT B.
  136. PTR A = VAL 3.                              PTR * = VAL *
  137. TO 26 IF PTR A = 3.
  138. VAL W = 4 + 0.
  139. WRITE NEXT W.
  140. LOC 26.
  141. VAL B = 1 + 0.
  142. READ NEXT B.
  143. FLG C = 0.
  144. PTR C = VAL 0.
  145. VAL C = PTR 2.                              VAL * = PTR *
  146. TO 27 IF PTR C = 0.
  147. VAL W = 4 + 0.
  148. WRITE NEXT W.
  149. LOC 27.
  150. VAL B = 1 + 0.
  151. READ NEXT B.
  152. TO 28 IF FLG C = 0.
  153. VAL W = 4 + 0.
  154. WRITE NEXT W.
  155. LOC 28.
  156. VAL B = 1 + 0.
  157. READ NEXT B.
  158. VAL C = PTR 0.
  159. FLG C = 0.
  160. PTR C = VAL 0.                              PTR * = VAL *
  161. TO 29 IF VAL C = 0.
  162. VAL W = 4 + 0.
  163. WRITE NEXT W.
  164. LOC 29.
  165. VAL B = 1 + 0.
  166. READ NEXT B.
  167. TO 30 IF FLG C = 0.
  168. VAL W = 4 + 0.
  169. WRITE NEXT W.
  170. LOC 30.
  171. VAL B = 1 + 0.
  172. READ NEXT B.
  173. VAL D = PTR 0.
  174. PTR D = VAL 0.
  175. FLG D = 3.                                  FLG * = *
  176. TO 31 IF PTR D = 0.
  177. VAL W = 4 + 0.
  178. WRITE NEXT W.
  179. LOC 31.
  180. VAL B = 1 + 0.
  181. READ NEXT B.
  182. TO 32 IF VAL D = 0.
  183. VAL W = 4 + 0.
  184. WRITE NEXT W.
  185. LOC 32.
  186. VAL B = 1 + 0.
  187. READ NEXT B.
  188. VAL W = 4 + 0.
  189. WRITE NEXT W.
  190. VAL B = 1 + 0.
  191. READ NEXT B.
  192. VAL W = 4 + 0.
  193. WRITE NEXT W.
  194. VAL B = 1 + 0.
  195. READ NEXT B.
  196. FLG E = 0.
  197. PTR E = VAL 0.
  198. VAL E = 1 + 3.                              VAL * = * + *
  199. TO 33 IF VAL E = 4.
  200. VAL W = 4 + 0.
  201. WRITE NEXT W.
  202. LOC 33.
  203. VAL B = 1 + 0.
  204. READ NEXT B.
  205. TO 34 IF FLG E = 0.
  206. VAL W = 4 + 0.
  207. WRITE NEXT W.
  208. LOC 34.
  209. VAL B = 1 + 0.
  210. READ NEXT B.
  211. TO 35 IF PTR E = 0.
  212. VAL W = 4 + 0.
  213. WRITE NEXT W.
  214. LOC 35.
  215. VAL B = 1 + 0.
  216. READ NEXT B.
  217. VAL W = 4 + 0.
  218. WRITE NEXT W.
  219. VAL B = 1 + 0.
  220. READ NEXT B.
  221. VAL C = CHAR.                READ THE CARD NUMBER.
  222. VAL D = CHAR.                READ THE PERIOD.
  223. VAL E = CHAR.                READ A SPACE.
  224. VAL E = CHAR.                READ THE SECOND SPACE.
  225. VAL F = CHAR.                READ A ZERO.
  226. CHAR = VAL C.                REWRITE THE FIRST FOUR COLUMNS.
  227. CHAR = VAL D.
  228. CHAR = VAL E.
  229. CHAR = VAL E.
  230. VAL G = F + 0.               PRINT THE NUMERIC VAL FIELDS.
  231. CHAR = VAL G.
  232. CHAR = VAL E.                PRINT A SPACE FOLLOWING EACH.
  233. VAL G = F + 1.
  234. CHAR = VAL G.
  235. CHAR = VAL E.
  236. VAL G = F + 2.
  237. CHAR = VAL G.
  238. CHAR = VAL E.
  239. VAL G = F + 3.
  240. CHAR = VAL G.
  241. CHAR = VAL E.
  242. VAL G = F + 4.
  243. CHAR = VAL G.
  244. CHAR = VAL E.
  245. VAL G = F + 5.
  246. CHAR = VAL G.
  247. CHAR = VAL E.
  248. VAL G = F + 6.
  249. CHAR = VAL G.
  250. CHAR = VAL E.
  251. VAL G = F + 7.
  252. CHAR = VAL G.
  253. CHAR = VAL E.
  254. VAL G = F + 8.
  255. CHAR = VAL G.
  256. CHAR = VAL E.
  257. VAL G = F + 9.
  258. CHAR = VAL G.
  259. VAL W = 4 + 0.
  260. WRITE NEXT W.
  261. VAL B = 1 + 0.
  262. READ NEXT B.
  263. VAL C = CHAR.                READ THE CARD NUMBER.
  264. VAL D = CHAR.                READ THE PERIOD.
  265. CHAR = VAL C.                REWRITE THE FIRST FOUR COLUMNS.
  266. CHAR = VAL D.
  267. CHAR = VAL E.
  268. CHAR = VAL E.
  269. VAL H = PTR 0.               PRINT OUT PTR 0 - PTR 3.
  270. VAL G = F + H.
  271. CHAR = VAL G.
  272. CHAR = VAL E.
  273. VAL H = PTR 1.
  274. VAL G = F + H.
  275. CHAR = VAL G.
  276. CHAR = VAL E.
  277. VAL H = PTR 2.
  278. VAL G = F + H.
  279. CHAR = VAL G.
  280. CHAR = VAL E.
  281. VAL H = PTR 3.
  282. VAL G = F + H.
  283. CHAR = VAL G.
  284. VAL W = 4 + 0.
  285. WRITE NEXT W.
  286. VAL B = 1 + 0.
  287. READ NEXT B.
  288. FLG F = 0.
  289. PTR F = VAL 0.
  290. VAL F = 3 - 1.                              VAL * = * - *
  291. TO 36 IF VAL F = 2.
  292. VAL W = 4 + 0.
  293. WRITE NEXT W.
  294. LOC 36.
  295. VAL B = 1 + 0.
  296. READ NEXT B.
  297. TO 37 IF FLG F = 0.
  298. VAL W = 4 + 0.
  299. WRITE NEXT W.
  300. LOC 37.
  301. VAL B = 1 + 0.
  302. READ NEXT B.
  303. TO 38 IF PTR F = 0.
  304. VAL W = 4 + 0.
  305. WRITE NEXT W.
  306. LOC 38.
  307. VAL B = 1 + 0.
  308. READ NEXT B.
  309. FLG G = 0.
  310. PTR G = VAL 0.
  311. VAL G = 1 - 3.
  312. VAL H = G + 4.
  313. TO 39 IF VAL H = 2.
  314. VAL W = 4 + 0.
  315. WRITE NEXT W.
  316. LOC 39.
  317. VAL B = 1 + 0.
  318. READ NEXT B.
  319. TO 40 IF FLG G = 0.
  320. VAL W = 4 + 0.
  321. WRITE NEXT W.
  322. LOC 40.
  323. VAL B = 1 + 0.
  324. READ NEXT B.
  325. TO 41 IF PTR G = 0.
  326. VAL W = 4 + 0.
  327. WRITE NEXT W.
  328. LOC 41.
  329. VAL B = 1 + 0.
  330. READ NEXT B.
  331. VAL H = G + 1.                              VAL * = * + *.
  332. VAL I = 0 - 1.
  333. TO 42 IF VAL H = I.
  334. VAL W = 4 + 0.
  335. WRITE NEXT W.
  336. LOC 42.
  337. VAL B = 1 + 0.
  338. READ NEXT B.
  339. VAL J = I + I.
  340. TO 43 IF VAL J = G.
  341. VAL W = 4 + 0.
  342. WRITE NEXT W.
  343. LOC 43.
  344. VAL B = 1 + 0.
  345. READ NEXT B.
  346. VAL K = H - 1.                              VAL * = * - *
  347. TO 44 IF VAL K = G.
  348. VAL W = 4 + 0.
  349. WRITE NEXT W.
  350. LOC 44.
  351. VAL B = 1 + 0.
  352. READ NEXT B.
  353. VAL L = 1 - G.
  354. TO 45 IF VAL L = 3.
  355. VAL W = 4 + 0.
  356. WRITE NEXT W.
  357. LOC 45.
  358. VAL B = 1 + 0.
  359. READ NEXT B.
  360. FLG M = 0.
  361. VAL M = PTR 0.
  362. PTR M = 1 + 2.                              PTR * = * + *
  363. TO 46 IF PTR M = 3.
  364. VAL W = 4 + 0.
  365. WRITE NEXT W.
  366. LOC 46.
  367. VAL B = 1 + 0.
  368. READ NEXT B.
  369. TO 47 IF FLG M = 0.
  370. VAL W = 4 + 0.
  371. WRITE NEXT W.
  372. LOC 47.
  373. VAL B = 1 + 0.
  374. READ NEXT B.
  375. TO 48 IF VAL M = 0.
  376. VAL W = 4 + 0.
  377. WRITE NEXT W.
  378. LOC 48.
  379. VAL B = 1 + 0.
  380. READ NEXT B.
  381. FLG N = 0.
  382. VAL N = PTR 0.
  383. PTR N = 3 - 2.                              PTR * = * - *
  384. TO 49 IF PTR N = 1.
  385. VAL W = 4 + 0.
  386. WRITE NEXT W.
  387. LOC 49.
  388. VAL B = 1 + 0.
  389. READ NEXT B.
  390. TO 50 IF FLG N = 0.
  391. VAL W = 4 + 0.
  392. WRITE NEXT W.
  393. LOC 50.
  394. VAL B = 1 + 0.
  395. READ NEXT B.
  396. TO 51 IF VAL N = 0.
  397. VAL W = 4 + 0.
  398. WRITE NEXT W.
  399. LOC 51.
  400. VAL B = 1 + 0.
  401. READ NEXT B.
  402. PTR O = VAL 5.
  403. PTR P = VAL 4.
  404. PTR P = 0 - P.
  405. FLG O = 0.
  406. VAL O = PTR 0.
  407. PTR O = 2 - O.
  408. PTR P = P + 1.
  409. TO 52 IF PTR O = P.
  410. VAL W = 4 + 0.
  411. WRITE NEXT W.
  412. LOC 52.
  413. VAL B = 1 + 0.
  414. READ NEXT B.
  415. TO 53 IF FLG O = 0.
  416. VAL W = 4 + 0.
  417. WRITE NEXT W.
  418. LOC 53.
  419. VAL B = 1 + 0.
  420. READ NEXT B.
  421. TO 54 IF VAL O = 0.
  422. VAL W = 4 + 0.
  423. WRITE NEXT W.
  424. LOC 54.
  425. VAL B = 1 + 0.
  426. READ NEXT B.
  427. PTR Q = 0 - 1.
  428. PTR R = P + 2.                              PTR * = * + *
  429. TO 55 IF PTR R = Q.
  430. VAL W = 4 + 0.
  431. WRITE NEXT W.
  432. LOC 55.
  433. VAL B = 1 + 0.
  434. READ NEXT B.
  435. PTR S = R + Q.
  436. PTR S = S + Q.
  437. TO 56 IF PTR S = P.
  438. VAL W = 4 + 0.
  439. WRITE NEXT W.
  440. LOC 56.
  441. VAL B = 1 + 0.
  442. READ NEXT B.
  443. PTR T = R - 2.                              PTR * = * - *
  444. TO 57 IF PTR T = P.
  445. VAL W = 4 + 0.
  446. WRITE NEXT W.
  447. LOC 57.
  448. VAL B = 1 + 0.
  449. READ NEXT B.
  450. PTR T = 2 - R.
  451. TO 58 IF PTR T = 3.
  452. VAL W = 4 + 0.
  453. WRITE NEXT W.
  454. LOC 58.
  455. VAL B = 1 + 0.
  456. READ NEXT B.
  457. FLG U = 0.
  458. PTR U = VAL 0.
  459. VAL U = PTR Q.                              VAL * = PTR *
  460. TO 59 IF VAL U = H.
  461. VAL W = 4 + 0.
  462. WRITE NEXT W.
  463. LOC 59.
  464. VAL B = 1 + 0.
  465. READ NEXT B.
  466. TO 60 IF FLG U = 0.
  467. VAL W = 4 + 0.
  468. WRITE NEXT W.
  469. LOC 60.
  470. VAL B = 1 + 0.
  471. READ NEXT B.
  472. TO 61 IF PTR U = 0.
  473. VAL W = 4 + 0.
  474. WRITE NEXT W.
  475. LOC 61.
  476. VAL B = 1 + 0.
  477. READ NEXT B.
  478. FLG V = 0.
  479. VAL V = PTR 0.
  480. PTR V = VAL I.                              PTR * = VAL *
  481. TO 62 IF PTR V = Q.
  482. VAL W = 4 + 0.
  483. WRITE NEXT W.
  484. LOC 62.
  485. VAL B = 1 + 0.
  486. READ NEXT B.
  487. TO 63 IF FLG V = 0.
  488. VAL W = 4 + 0.
  489. WRITE NEXT W.
  490. LOC 63.
  491. VAL B = 1 + 0.
  492. READ NEXT B.
  493. TO 64 IF VAL V = 0.
  494. VAL W = 4 + 0.
  495. WRITE NEXT W.
  496. LOC 64.
  497. VAL B = 1 + 0.
  498. READ NEXT B.
  499. VAL X = PTR 0.
  500. FLG X = 0.
  501. PTR D = VAL 9.
  502. PTR X = 3 * 3.                              PTR ' = ' * '
  503. TO 65 IF PTR X = D.
  504. VAL W = 4 + 0.
  505. WRITE NEXT W.
  506. LOC 65.
  507. VAL B = 1 + 0.
  508. READ NEXT B.
  509. TO 66 IF FLG X = 0.
  510. VAL W = 4 + 0.
  511. WRITE NEXT W.
  512. LOC 66.
  513. VAL B = 1 + 0.
  514. READ NEXT B.
  515. TO 67 IF VAL X = 0.
  516. VAL W = 4 + 0.
  517. WRITE NEXT W.
  518. LOC 67.
  519. VAL B = 1 + 0.
  520. READ NEXT B.
  521. PTR X = P * S.
  522. TO 68 IF PTR X = D.
  523. VAL W = 4 + 0.
  524. WRITE NEXT W.
  525. LOC 68.
  526. VAL B = 1 + 0.
  527. READ NEXT B.
  528. PTR D = 0 - D.
  529. FLG Y = 0.
  530. VAL Y = PTR 0.
  531. PTR Y = P * 3.
  532. TO 69 IF PTR Y = D.
  533. VAL W = 4 + 0.
  534. WRITE NEXT W.
  535. LOC 69.
  536. VAL B = 1 + 0.
  537. READ NEXT B.
  538. TO 70 IF FLG Y = 0.
  539. VAL W = 4 + 0.
  540. WRITE NEXT W.
  541. LOC 70.
  542. VAL B = 1 + 0.
  543. READ NEXT B.
  544. TO 71 IF VAL Y = 0.
  545. VAL W = 4 + 0.
  546. WRITE NEXT W.
  547. LOC 71.
  548. VAL B = 1 + 0.
  549. READ NEXT B.
  550. PTR Y = 3 * P.
  551. TO 72 IF PTR Y = D.
  552. VAL W = 4 + 0.
  553. WRITE NEXT W.
  554. LOC 72.
  555. VAL B = 1 + 0.
  556. READ NEXT B.
  557. PTR D = VAL 9.
  558. FLG Z = 0.
  559. VAL Z = PTR 0.
  560. PTR Z = D / 3.                              PTR * = * / *
  561. TO 73 IF PTR Z = 3.
  562. VAL W = 4 + 0.
  563. WRITE NEXT W.
  564. LOC 73.
  565. VAL B = 1 + 0.
  566. READ NEXT B.
  567. TO 74 IF FLG Z = 0.
  568. VAL W = 4 + 0.
  569. WRITE NEXT W.
  570. LOC 74.
  571. VAL B = 1 + 0.
  572. READ NEXT B.
  573. TO 75 IF VAL Z = 0.
  574. VAL W = 4 + 0.
  575. WRITE NEXT W.
  576. LOC 75.
  577. VAL B = 1 + 0.
  578. READ NEXT B.
  579. PTR D = 0 - D.
  580. PTR Z = D / S.
  581. TO 76 IF PTR Z = 3.
  582. VAL W = 4 + 0.
  583. WRITE NEXT W.
  584. LOC 76.
  585. VAL B = 1 + 0.
  586. READ NEXT B.
  587. FLG Z = 0.
  588. VAL Z = PTR 0.
  589. PTR Z = D / 3.
  590. TO 77 IF PTR Z = S.
  591. VAL W = 4 + 0.
  592. WRITE NEXT W.
  593. LOC 77.
  594. VAL B = 1 + 0.
  595. READ NEXT B.
  596. TO 78 IF FLG Z = 0.
  597. VAL W = 4 + 0.
  598. WRITE NEXT W.
  599. LOC 78.
  600. VAL B = 1 + 0.
  601. READ NEXT B.
  602. TO 79 IF VAL Z = 0.
  603. VAL W = 4 + 0.
  604. WRITE NEXT W.
  605. LOC 79.
  606. VAL B = 1 + 0.
  607. READ NEXT B.
  608. PTR D = VAL 9.
  609. PTR Z = D / S.
  610. TO 80 IF PTR Z = S.
  611. VAL W = 4 + 0.
  612. WRITE NEXT W.
  613. LOC 80.
  614. VAL B = 1 + 0.
  615. READ NEXT B.
  616. PTR E = VAL 5.
  617. FLG Z = 0.
  618. VAL Z = PTR 0.
  619. PTR Z = D / E.
  620. TO 81 IF PTR Z = 1.
  621. VAL W = 4 + 0.
  622. WRITE NEXT W.
  623. LOC 81.
  624. VAL B = 1 + 0.
  625. READ NEXT B.
  626. TO 82 IF FLG Z = 0.
  627. VAL W = 4 + 0.
  628. WRITE NEXT W.
  629. LOC 82.
  630. VAL B = 1 + 0.
  631. READ NEXT B.
  632. TO 83 IF VAL Z = 0.
  633. VAL W = 4 + 0.
  634. WRITE NEXT W.
  635. LOC 83.
  636. VAL B = 1 + 0.
  637. READ NEXT B.
  638. PTR E = 0 - E.
  639. FLG Z = 0.
  640. VAL Z = PTR 0.
  641. PTR Z = D / E.
  642. TO 84 IF PTR Z = Q.
  643. VAL W = 4 + 0.
  644. WRITE NEXT W.
  645. LOC 84.
  646. VAL B = 1 + 0.
  647. READ NEXT B.
  648. TO 85 IF FLG Z = 0.
  649. VAL W = 4 + 0.
  650. WRITE NEXT W.
  651. LOC 85.
  652. VAL B = 1 + 0.
  653. READ NEXT B.
  654. TO 86 IF VAL Z = 0.
  655. VAL W = 4 + 0.
  656. WRITE NEXT W.
  657. LOC 86.
  658. VAL B = 1 + 0.
  659. READ NEXT B.
  660. VAL F = 0 - 6.
  661. TO 87 IF VAL F = 6.                         TO ** IF VAL * = *
  662. TO 88.
  663. LOC 87.
  664. VAL W = 4 + 0.
  665. WRITE NEXT W.
  666. LOC 88.
  667. VAL B = 1 + 0.
  668. READ NEXT B.
  669. TO 89 IF VAL F NE 8.                        TO ** IF VAL * NE *
  670. VAL W = 4 + 0.
  671. WRITE NEXT W.
  672. LOC 89.
  673. VAL B = 1 + 0.
  674. READ NEXT B.
  675. TO 90 IF PTR R = 1.                         TO ** IF PTR * = *
  676. TO 91.
  677. LOC 90.
  678. VAL W = 4 + 0.
  679. WRITE NEXT W.
  680. LOC 91.
  681. VAL B = 1 + 0.
  682. READ NEXT B.
  683. TO 92 IF PTR S NE 1.                        TO ** IF PTR * NE *
  684. VAL W = 4 + 0.
  685. WRITE NEXT W.
  686. LOC 92.
  687. VAL B = 1 + 0.
  688. READ NEXT B.
  689. TO 93 IF PTR 2 GE Q.                        TO ** IF PTR * GE *
  690. VAL W = 4 + 0.
  691. WRITE NEXT W.
  692. LOC 93.
  693. VAL B = 1 + 0.
  694. READ NEXT B.
  695. TO 94 IF PTR S GE 3.
  696. TO 95.
  697. LOC 94.
  698. VAL W = 4 + 0.
  699. WRITE NEXT W.
  700. LOC 95.
  701. VAL B = 1 + 0.
  702. READ NEXT B.
  703. TO 96 IF PTR R GE S.
  704. VAL W = 4 + 0.
  705. WRITE NEXT W.
  706. LOC 96.
  707. VAL B = 1 + 0.
  708. READ NEXT B.
  709. TO 97 IF PTR S GE R.
  710. TO 98.
  711. LOC 97.
  712. VAL W = 4 + 0.
  713. WRITE NEXT W.
  714. LOC 98.
  715. VAL B = 1 + 0.
  716. READ NEXT B.
  717. VAL W = 4 + 0.
  718. WRITE NEXT W.
  719. VAL B = 1 + 0.
  720. READ NEXT B.
  721. VAL W = 4 + 0.
  722. WRITE NEXT W.
  723. TO 99 BY I.
  724. VAL W = 4 + 0.
  725. WRITE NEXT W.
  726. STOP.
  727. LOC 99.
  728. VAL B = 1 + 0.
  729. READ NEXT B.
  730. VAL W = 4 + 0.
  731. WRITE NEXT W.
  732. VAL B = 1 + 0.
  733. READ NEXT B.
  734. RETURN BY I.
  735. STOP.
  736. END PROGRAM.
  737.