home *** CD-ROM | disk | FTP | other *** search
/ PC Home 11 / PC_HOME_11.ISO / general / maths / gcemath / ama / am0504u.cha < prev    next >
Encoding:
Text File  |  1994-07-12  |  3.2 KB  |  158 lines
  1. .rem modified to test quit option in Unit Test
  2. .SCR 0
  3. .SNA(*(.INF 39)0*)
  4. .SET #9(*C*)
  5. .SET #5(*0*)
  6. .COL 7,0
  7. .LOC 2,46(*UT*)
  8. .COL 11,0
  9. .LOC 5,1
  10. .CEN(*UNIT TEST*)
  11. .COL 14,0
  12. .LOC 7,1
  13. .CEN(*There are 5 questions in the test*)
  14. .COL 10,0
  15. .LOC 10,1
  16. .CEN(*In the full version of the program you can *)
  17. .CEN(*opt to QUIT so that you can work on the question*)
  18. .CEN(*in your own time.*)
  19. .LOC 15,1
  20. .COL 12,0
  21. .CEN(*The corresponding RESUME<name> feature allows you*)
  22. .CEN(*to pick up where you left off, taking into account*)
  23. .CEN(*the number of times you have attempted the current*)
  24. .CEN(*question or opted to QUIT from it.*)
  25. .COL 0,3
  26. .LOC 24,64(*SPACE >*)
  27. .PAU(*>*)
  28. .COL 0,0
  29. .LET(*#35=#35+#30*)
  30. .SET #11(*0*)
  31. @LAB:SCREENUT1
  32. .SCR 1
  33. .TIM START #2
  34. .PUT PART=(*(.INF 39).LIB*)
  35. .SET #10(*C*)
  36. .COL 12
  37. .PAL 1
  38. .SET #8(*UT1*)
  39. @EQU(*#11>#5*):SCREENUT1C
  40. @QBA=(.INF 39) PICK(RAND 1 RANGE=1;5)
  41. @GOT:SCREENUT1D
  42. @LAB:SCREENUT1C
  43. @QBA=(.INF 39) PICK((.INF 50))
  44. @LAB:SCREENUT1D
  45. @EQU (*#9=#10*):SCREENUT1A TEXT
  46. @EQU(*#11>#30*):SCREENUT1B
  47. .LET(*#11=#11+#30*)
  48. @SYS STOP
  49. @LAB:SCREENUT1B
  50. .LOC 20,4(*You have run out of attempts !*)
  51. @LAB:SCREENUT1A
  52. .PUT 250,187 PART=3 PSET
  53. .LOC 23,2
  54. .PAU(* *)
  55. .LET(*#35=#35+#30*)
  56. .SET #11(*0*)
  57. @LAB:SCREENUT2
  58. .SCR 1
  59. .PUT PART=(*(.INF 39).LIB*)
  60. .SET #10(*C*)
  61. .COL 12
  62. .PAL 1
  63. .SET #8(*UT2*)
  64. @EQU(*#11>#5*):SCREENUT2C
  65. @QBA=(.INF 39) PICK(RAND 1 RANGE=6;10)
  66. @GOT:SCREENUT2D
  67. @LAB:SCREENUT2C
  68. @QBA=(.INF 39) PICK((.INF 50))
  69. @LAB:SCREENUT2D
  70. @EQU (*#9=#10*):SCREENUT2A TEXT
  71. @EQU(*#11>#30*):SCREENUT2B
  72. .LET(*#11=#11+#30*)
  73. @SYS STOP
  74. @LAB:SCREENUT2B
  75. .LOC 20,4(*You have run out of attempts !*)
  76. @LAB:SCREENUT2A
  77. .PUT 250,187 PART=3 PSET
  78. .LOC 23,2
  79. .PAU(* *)
  80. .LET(*#35=#35+#30*)
  81. .SET #11(*0*)
  82. @LAB:SCREENUT3
  83. .SCR 1
  84. .PUT PART=(*(.INF 39).LIB*)
  85. .SET #10(*C*)
  86. .COL 12
  87. .PAL 1
  88. .SET #8(*UT3*)
  89. @EQU(*#11>#5*):SCREENUT3C
  90. @QBA=(.INF 39) PICK(RAND 1 RANGE=11;15)
  91. @GOT:SCREENUT3D
  92. @LAB:SCREENUT3C
  93. @QBA=(.INF 39) PICK((.INF 50))
  94. @LAB:SCREENUT3D
  95. @EQU (*#9=#10*):SCREENUT3A TEXT
  96. @EQU(*#11>#30*):SCREENUT3B
  97. .LET(*#11=#11+#30*)
  98. @SYS STOP
  99. @LAB:SCREENUT3B
  100. .LOC 20,4(*You have run out of attempts !*)
  101. @LAB:SCREENUT3A
  102. .PUT 250,187 PART=3 PSET
  103. .LOC 23,2
  104. .PAU(* *)
  105. .LET(*#35=#35+#30*)
  106. .SET #11(*0*)
  107. @LAB:SCREENUT4
  108. .SCR 1
  109. .PUT PART=(*(.INF 39).LIB*)
  110. .SET #10(*C*)
  111. .COL 12
  112. .PAL 1
  113. .SET #8(*UT4*)
  114. @EQU(*#11>#5*):SCREENUT4C
  115. @QBA=(.INF 39) PICK(RAND 1 RANGE=16;20)
  116. @GOT:SCREENUT4D
  117. @LAB:SCREENUT4C
  118. @QBA=(.INF 39) PICK((.INF 50))
  119. @LAB:SCREENUT4D
  120. @EQU (*#9=#10*):SCREENUT4A TEXT
  121. @EQU(*#11>#30*):SCREENUT4B
  122. .LET(*#11=#11+#30*)
  123. @SYS STOP
  124. @LAB:SCREENUT4B
  125. .LOC 20,4(*You have run out of attempts !*)
  126. @LAB:SCREENUT4A
  127. .PUT 250,187 PART=3 PSET
  128. .LOC 23,2
  129. .PAU(* *)
  130. .LET(*#35=#35+#30*)
  131. .SET #11(*0*)
  132. @LAB:SCREENUT5
  133. .SCR 1
  134. .PUT PART=(*(.INF 39).LIB*)
  135. .SET #10(*C*)
  136. .COL 12
  137. .PAL 1
  138. .SET #8(*UT5*)
  139. @EQU(*#11>#5*):SCREENUT5C
  140. @QBA=(.INF 39) PICK(RAND 1 RANGE=21;25)
  141. @GOT:SCREENUT5D
  142. @LAB:SCREENUT5C
  143. @QBA=(.INF 39) PICK((.INF 50))
  144. @LAB:SCREENUT5D
  145. @EQU (*#9=#10*):SCREENUT5A TEXT
  146. @EQU(*#11>#30*):SCREENUT5B
  147. .LET(*#11=#11+#30*)
  148. @SYS STOP
  149. @LAB:SCREENUT5B
  150. .LOC 20,4(*You have run out of attempts !*)
  151. @LAB:SCREENUT5A
  152. .PUT 250,187 PART=3 PSET
  153. .LOC 23,2
  154. .PAU(* *)
  155. .TIM STOP #2 MINUTES
  156. .LET(*#9=#42*)
  157. @CHA PROG=FINISH2.CHA
  158.