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