home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / PCCAI210.ZIP / DEMO.CAI < prev    next >
Text File  |  1993-12-06  |  17KB  |  689 lines
  1. .rem                                                                 
  2. .rem -----------------PRESS CTRL-G (Go) TO RUN THIS PROGRAM--------- 
  3. .rem                                                                 
  4. @OPTION ESCAPE:THATSALL
  5. @MON(*12:ISVGA*)
  6. @GOTO:ISNOTVGA
  7. @LABEL:ISVGA
  8. .screen 12
  9. @SHELL(*caipcx cailogo.pcx 7,0,0*)
  10. .wait 2
  11. .locate 25,1
  12. @LABEL:ISNOTVGA
  13. .screen 0
  14. .color 15,1
  15. .cls
  16.  
  17.                                  PC-CAI 2.10
  18.  
  19.                      (C)Copyright Alan C. Elliott, 1986-93
  20.                   Portions (C) Microsoft Corporation 1982-87
  21.  
  22.  
  23.  
  24. .col 12,1
  25. .cen(* WELCOME TO THE PC-CAI DEMO! *)
  26. .col 7,1
  27.  
  28. This demo will use the CGA graphics capabilities of your computer. If you are
  29. currently using an IBM monochrome monitor without graphics capabilities, some
  30. of the graphic images will not appear in the demo.
  31.  
  32. This software is distributed under the user supported concept, and you may
  33. copy or give it away only under the conditions outlined in the manual.
  34. Thanks for your interest and support.
  35.  
  36. To end the demo at any time, press the Esc key.
  37. .voice(*PCCAI*)
  38. .locate 25,1
  39. .pause
  40. .screen 1
  41. .CIR CENTER=(160, 265) radius=300 color=2
  42. .CIR CENTER=(160, 300) radius=300 color=2
  43. .PAINT CENTER=(170, 20) color=2 bound=2
  44. .CIR CENTER=(150, 6) radius=5
  45. .CIR CENTER=(160, 6) radius=5
  46. .CIR CENTER=(170, 6) radius=5
  47. .PSET 30, 44
  48. .DRAW (*c1u20f7g7*)
  49. .PAINT CENTER=(32, 28) color=1 bound=1
  50. .PSET 230, 24
  51. .DRAW (*c1u20f7g7*)
  52. .PAINT CENTER=(232, 8) color=1 bound=1
  53. .PSET 300, 44
  54. .DRAW (*c1u20f7g7*)
  55. .PAINT CENTER=(302, 28) color=1 bound=1
  56. .PSET 90, 24)
  57. .DRAW (*c1u20f7g7*)
  58. .PAINT CENTER=(92, 8) color=1 bound=1
  59. .locate 21,1
  60. Here comes something new . . .
  61. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  62. .ANIMATE (1,100)-(250,100) STEPX=4 STEPY=0 PAUSE=1
  63. .voice(*onesmall*)
  64. .screen 0
  65. .color 15,1
  66. .CLS
  67.  
  68.                            I N T R O D U C I N G ...
  69.  
  70.  
  71.  
  72.  
  73.                      █████  █████     █████   ███    ███
  74.                      █   █  █         █      █   █    █
  75.                      █   █  █         █      █   █    █
  76.                      █   █  █    ████ █      █   █    █
  77.                      █████  █         █      █████    █
  78.                      █      █         █      █   █    █
  79.                      █      █████     █████  █   █   ███
  80.  
  81.  
  82. PC-CAI is a Personal Computer - Computer Aided Instruction language. It is
  83. a language specifically designed to implement the personal computer as a
  84. tutor.
  85. .color 15,1
  86. .locate 24,1
  87. .pause (*Please press ENTER to continue*)
  88. .screen 1
  89. .cls
  90. .pset 1,100
  91. .draw (*C2r320*)
  92. .circle center=(160,100) radius=50 color=2 start=0 stop=3.14
  93. .paint center=(160,98) color=2 bound=2
  94. .PSET 250,150
  95. .DRAW (*e3u30h4e2h7e4h3r2f3g4f7g2f4r6*)
  96. .DRAW (*h4e2h7e4h3r2f3g4f7g2f4*)
  97. .DRAW (*e4h7e4h3r2f3g4f7g4d30f3*)
  98. .CIRCLE CENTER=(256,100) RADIUS=30 COLOR=1
  99. .CIRCLE CENTER=(245,102) RADIUS=6 COLOR=1
  100. .CIRCLE CENTER=(265,107) RADIUS=11 COLOR=1
  101. .CIRCLE CENTER=(256,97) RADIUS=5 COLOR=1
  102. .CIRCLE CENTER=(256,92) RADIUS=7 COLOR=1
  103. .CIRCLE CENTER=(245,90) RADIUS=9 COLOR=1
  104. .PSET 160,100
  105. .DRAW (*c2u90*)
  106. .PSET 160,100
  107. .DRAW (*c2e90*)
  108. .PSET 160,100
  109. .DRAW (*c2h90*)
  110. .PSET 10,160
  111. .DRAW (*C3R310*)
  112. .PSET 1,180
  113. .DRAW (*C3R310*)
  114. .PSET 20,160
  115. .DRAW (*g20r20e10l20r20e10*)
  116. .DRAW (*g20r20e10l20r20e10*)
  117. .DRAW (*g20r20e10l20r20e10*)
  118. .DRAW (*g20r20e10l20r20e10*)
  119. .DRAW (*g20r20e10l20r20e10*)
  120. .DRAW (*g20r20e10l20r20e10*)
  121. .DRAW (*g20r20e10l20r20e10*)
  122. .DRAW (*g20r20e10l20r20e10*)
  123. .DRAW (*g20r20e10l20r20e10*)
  124. .DRAW (*g20r20e10l20r20e10*)
  125. .DRAW (*g20r20e10l20r20e10*)
  126. .DRAW (*g20r20e10l20r20e10*)
  127. .DRAW (*g20r20e10l20r20e10*)
  128. .DRAW (*g20r20e10l20r20e10*)
  129. .DRAW (*g20r20e10l20r20e10*)
  130. .pallette 0
  131. .pallette 1
  132. .pallette 0
  133. .pallette 1
  134. .pallette 0
  135. .pallette 1
  136. .pallette 0
  137. .PSET 50,160
  138. .DRAW (*c1e10r1g10h8r1f7u5*)
  139. .PSET 200,180
  140. .DRAW (*c1e10r1g10h8r1f7u5*)
  141. .PSET 250,152
  142. .DRAW (*c1e10r1g10h8r1f7u5*)
  143. .get beetle.img
  144. .play (*mfo3l16ap4a*)
  145. .move (20,155)-(100,155) steps=50
  146. .play (*mfo3l16ap4a*)
  147. .put 100,155
  148. .move (100,155)-(250,155) steps=50
  149. .play (*mfo3l16ap4ap4a*)
  150. .put 250,155
  151. .locate 1,1
  152. .center (*The Dawn of a New Day*)
  153. .center (*in Computer Aided Instruction!*)
  154. .locate 24,1
  155. .pause (*Please press ENTER to continue*)
  156. .rem skip this part if not VGA
  157. @MON(*12:VGA*)
  158. @GOTO:NONVGA
  159. @LABEL:VGA
  160. .screen 0
  161. .color 15,1
  162. .cls
  163. .color 3
  164. .cls
  165. PC-CAI allows the computer to act as a teacher and tester. Instruction, such
  166. as what you are reading now, may be displayed on the screen. The learner
  167. reads the instructions at his or her own pace.  Special effects may be added:
  168.  
  169. .COLOR 19
  170. Color changes, and blinking text.
  171. .color normal
  172.  
  173. .pause (*Press the ENTER key to hear some music . . .*)
  174. .play (*mft200o2l8dggggg4.a8bbbbb4.o3l8d4dedo2bgabbaag4*)
  175.  
  176. .locate 20,30
  177. .color reverse
  178. LOOK! YOU HAVE COMPLETE CONTROL OVER THE TEXT
  179. .COLOR 3
  180. .locate 10,1
  181. With locator instructions, notices may be placed anywhere on the screen.
  182. Look for the LOOK! placed on the screen below this text.
  183.  
  184. .cen (*Or CENTER TEXT on the screen*)
  185.  
  186. After instruction is given, questions may be asked to reinforce the learning.
  187. All of this is performed with an easy to use set of instructions created
  188. specifically for this purpose.
  189. .locate 25,1
  190. .pause (*Please press ENTER to continue*)
  191. .cls
  192. Now let's see what you have learned...
  193.  
  194.  
  195. @BEGIN QUESTION
  196. .col 10
  197.                               ANSWER THIS QUESTION
  198.  
  199.  
  200. .col 3
  201. @read (*What is the name of this language? *)
  202. @try 3
  203. @right (*PC-CAI*) nocase
  204. .color 10
  205.  
  206. THAT'S EXACTLY CORRECT!
  207.  
  208. With PC-CAI, you can check for answers where case may or may not be
  209. important. Also, you can check for exact answers, or answer that "sound"
  210. right. You'll see what I mean later...
  211.  
  212. .play (*mft200l16o2cccdddeeefffgggaaabbbo3ccc*)
  213. .locate 24,1
  214. .pau
  215. @wrong
  216. .col 12
  217.  
  218. Oops, try a little harder...
  219.  
  220. I'm looking for the name of the Personal Computer-Computer Assisted
  221. Instruction language.  (Hint:PC-CAI)
  222.  
  223. With PC-CAI you can specify expected responses to questions, and use the
  224. answer to cause the program to branch to other parts of the tutorial.
  225.  
  226. .Play  (*mfp2p2p2*)
  227. @WRONG FINAL
  228. .col 12
  229.  
  230. The answer is PC-CAI.
  231. .locate 24,1
  232. .pause
  233. @end question
  234. .col 11
  235. .cls
  236. .color 15,4
  237. .blank 2
  238. .color 0,15
  239. .blank 2
  240. .color 15,4
  241. .blank 2
  242. .color 0,15
  243. .blank 2
  244. .color 15,4
  245. .blank 2
  246. .color 0,15
  247. .blank 2
  248. .color 15,4
  249. .blank 2
  250. .color 0,15
  251. .blank 2
  252. .color 15,4
  253. .blank 2
  254. .color 0,15
  255. .blank 2
  256. .color 15,4
  257. .blank 2
  258. .color 15,1
  259. .locate 1,1 (*  * * * * * * * * * *  *)
  260. .locate 2,1 (*                       *)
  261. .locate 3,1 (*  * * * * * * * * * *  *)
  262. .locate 4,1 (*                       *)
  263. .locate 5,1 (*  * * * * * * * * * *  *)
  264. .locate 6,1 (*                       *)
  265. .locate 7,1 (*  * * * * * * * * * *  *)
  266. .locate 8,1 (*                       *)
  267. .locate 9,1 (*  * * * * * * * * * *  *)
  268. .locate 10,1 (*                       *)
  269. .locate 12,1
  270. .CENTER (*ARE YOU GOOD AT AMERICAN HISTORY?*)
  271. .skip 1
  272. .COLOR 9
  273. .CENTER (*HERE'S YOUR CHANCE TO SHOW*)
  274. .skip 1
  275. .COLOR 12
  276. .CENTER (*YOUR TRUE COLORS*)
  277. .PLAY (*T180O2L8GEC4E4G4O3C2*)
  278. .locate 24,1
  279. .pause
  280. .cls
  281. @begin question
  282. .col 3
  283.  
  284. @read (*Who was the first president of the USA ?*)
  285. @trys 3
  286. @right (*washington*) keyword
  287. .col 10
  288. George Washington is correct!
  289. .PLAY (*T255O1CDEFGABO2C*)
  290. .play (*mfp1p1*)
  291. @wrong (*lincoln*) keyword
  292. .color 12
  293. Lincoln was president during the Civil War
  294.  
  295. @wrong (*jefferson*)
  296. .col 12
  297. Thomas Jefferson was an early president, and he was the author of
  298. the Declaration of Independence.
  299.  
  300. @wrong
  301. .color 25
  302. HINT:
  303. .color 11
  304. The capitol of the United States was named after him.
  305.  
  306. .PAUSE (*Press ENTER to continue.*)
  307. @wrong final
  308. .col 3
  309.  
  310. The answer is GEORGE WASHINGTON.
  311.  
  312. @end question
  313. .locate 24,1
  314. .pau(*Please press ENTER*)
  315. .screen 1
  316. .cls
  317. .pcx testpcx.pcx 0,0
  318. .locate 1,1
  319. .CEN(*  DISPLAY PCX PAINTBRUSH TYPE GRAPHICS  *)
  320. .locate 25,1 (*                                        *)
  321. .locate 25,1
  322. .pause (* Press Enter*)
  323. .locate 25,1 (*            *)
  324. .locate 1,1
  325. .cen (* COMBINE PCX GRAPHICS AND PC-CAI IMAGES *)
  326. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  327. .ANIMATE (30,10