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