home *** CD-ROM | disk | FTP | other *** search
/ PC Home 11 / PC_HOME_11.ISO / general / maths / gcemath / ama / quittest.cha < prev    next >
Encoding:
Text File  |  1994-07-12  |  3.2 KB  |  161 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 1
  36. .PUT PART=(*(.INF 39).LIB*)
  37. .SET #10(*C*)
  38. .COL 8
  39. .PAL 1
  40. .SET #8(*UT1*)
  41. @EQU(*#11>#5*):SCREENUT1C
  42. @QBA=(.INF 39) PICK(RAND 1 RANGE=1;5)
  43. @GOT:SCREENUT1D
  44. @LAB:SCREENUT1C
  45. .LET(*#7=#43*)
  46. @QBA=(.INF 39) PICK((.INF 7))
  47. @LAB:SCREENUT1D
  48. @EQU (*#9=#10*):SCREENUT1A TEXT
  49. @EQU(*#11>#30*):SCREENUT1B
  50. .LET(*#11=#11+#30*)
  51. @SYS STOP
  52. @LAB:SCREENUT1B
  53. .LOC 20,4(*You have run out of attempts !*)
  54. @LAB:SCREENUT1A
  55. .PUT 250,187 PART=3 PSET
  56. .PAU(**)
  57. .LET(*#35=#35+#30*)
  58. .SET #11(*0*)
  59. @LAB:SCREENUT2
  60. .SCR 1
  61. .PUT PART=(*(.INF 39).LIB*)
  62. .SET #10(*C*)
  63. .COL 8
  64. .PAL 1
  65. .SET #8(*UT2*)
  66. @EQU(*#11>#5*):SCREENUT2C
  67. @QBA=(.INF 39) PICK(RAND 1 RANGE=6;10)
  68. @GOT:SCREENUT2D
  69. @LAB:SCREENUT2C
  70. .LET(*#7=#43*)
  71. @QBA=(.INF 39) PICK((.INF 7))
  72. @LAB:SCREENUT2D
  73. @EQU (*#9=#10*):SCREENUT2A TEXT
  74. @EQU(*#11>#30*):SCREENUT2B
  75. .LET(*#11=#11+#30*)
  76. @SYS STOP
  77. @LAB:SCREENUT2B
  78. .LOC 20,4(*You have run out of attempts !*)
  79. @LAB:SCREENUT2A
  80. .PUT 250,187 PART=3 PSET
  81. .PAU(**)
  82. .LET(*#35=#35+#30*)
  83. .SET #11(*0*)
  84. @LAB:SCREENUT3
  85. .SCR 1
  86. .PUT PART=(*(.INF 39).LIB*)
  87. .SET #10(*C*)
  88. .COL 8
  89. .PAL 1
  90. .SET #8(*UT3*)
  91. @EQU(*#11>#5*):SCREENUT3C
  92. .LET(*#7=#43*)
  93. @QBA=(.INF 39) PICK(RAND 1 RANGE=11;15)
  94. @GOT:SCREENUT3D
  95. @LAB:SCREENUT3C
  96. @QBA=(.INF 39) PICK((.INF 7))
  97. @LAB:SCREENUT3D
  98. @EQU (*#9=#10*):SCREENUT3A TEXT
  99. @EQU(*#11>#30*):SCREENUT3B
  100. .LET(*#11=#11+#30*)
  101. @SYS STOP
  102. @LAB:SCREENUT3B
  103. .LOC 20,4(*You have run out of attempts !*)
  104. @LAB:SCREENUT3A
  105. .PUT 250,187 PART=3 PSET
  106. .PAU(**)
  107. .LET(*#35=#35+#30*)
  108. .SET #11(*0*)
  109. @LAB:SCREENUT4
  110. .SCR 1
  111. .PUT PART=(*(.INF 39).LIB*)
  112. .SET #10(*C*)
  113. .COL 8
  114. .PAL 1
  115. .SET #8(*UT4*)
  116. @EQU(*#11>#5*):SCREENUT4C
  117. @QBA=(.INF 39) PICK(RAND 1 RANGE=16;20)
  118. @GOT:SCREENUT4D
  119. @LAB:SCREENUT4C
  120. .LET(*#7=#43*)
  121. @QBA=(.INF 39) PICK((.INF 7))
  122. @LAB:SCREENUT4D
  123. @EQU (*#9=#10*):SCREENUT4A TEXT
  124. @EQU(*#11>#30*):SCREENUT4B
  125. .LET(*#11=#11+#30*)
  126. @SYS STOP
  127. @LAB:SCREENUT4B
  128. .LOC 20,4(*You have run out of attempts !*)
  129. @LAB:SCREENUT4A
  130. .PUT 250,187 PART=3 PSET
  131. .PAU(**)
  132. .LET(*#35=#35+#30*)
  133. .SET #11(*0*)
  134. @LAB:SCREENUT5
  135. .SCR 1
  136. .PUT PART=(*(.INF 39).LIB*)
  137. .SET #10(*C*)
  138. .COL 8
  139. .PAL 1
  140. .SET #8(*UT5*)
  141. @EQU(*#11>#5*):SCREENUT5C
  142. @QBA=(.INF 39) PICK(RAND 1 RANGE=21;25)
  143. @GOT:SCREENUT5D
  144. @LAB:SCREENUT5C
  145. .LET(*#7=#43*)
  146. @QBA=(.INF 39) PICK((.INF 7))
  147. @LAB:SCREENUT5D
  148. @EQU (*#9=#10*):SCREENUT5A TEXT
  149. @EQU(*#11>#30*):SCREENUT5B
  150. .LET(*#11=#11+#30*)
  151. @SYS STOP
  152. @LAB:SCREENUT5B
  153. .LOC 20,4(*You have run out of attempts !*)
  154. @LAB:SCREENUT5A
  155. .TIM STOP #2 MINUTES
  156. .LET(*#9=#42*)
  157. .PUT 250,187 PART=3 PSET
  158. .PAU(**)
  159. @CHA PROG=FINISH2.CHA
  160.  
  161.