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