home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / pc_cai.zip / DEMO.CAI < prev    next >
Text File  |  1989-01-06  |  17KB  |  646 lines
  1. @OPTION ESCAPE=MENU
  2. .screen 0
  3. .color 15,1
  4. .cls
  5.  
  6.                                      PC-CAI
  7.  
  8.                      (C)Copyright Alan C. Elliott, 1986-89
  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 are give it away only under the conditions outlineed 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. .pallette 0  
  126. .pallette 1  
  127. .pallette 0  
  128. .pallette 1  
  129. .pallette 0  
  130. .pallette 1  
  131. .pallette 0  
  132. .PSET 50,160
  133. .DRAW (*c1e10r1g10h8r1f7u5*)    
  134. .PSET 200,180                   
  135. .DRAW (*c1e10r1g10h8r1f7u5*)
  136. .PSET 250,152                       
  137. .DRAW (*c1e10r1g10h8r1f7u5*)        
  138. .get beetle.img                     
  139. .play (*mfo3l16ap4a*)
  140. .move (20,155)-(100,155) steps=50
  141. .play (*mfo3l16ap4a*)
  142. .put 100,155                        
  143. .move (100,155)-(250,155) steps=50
  144. .play (*mfo3l16ap4ap4a*)
  145. .put 250,155                        
  146. .locate 1,1
  147. .center (*The Dawn of a New Day*)           
  148. .center (*in Computer Aided Instruction!*)  
  149. .locate 24,1
  150. .pause (*Please press ENTER to continue*)  
  151.  
  152. .screen 0
  153. .color 3
  154. .cls
  155. PC-CAI allows the computer to act as a teacher and tester. Instruction, such
  156. as what you are reading now, may be displayed on the screen. The learner 
  157. reads the instructions at his or her own pace.  Special effects may be added: 
  158.  
  159. .COLOR 19
  160. Color changes, and blinking text.
  161. .color normal
  162.  
  163. .pause (*Press the ENTER key to hear some music . . .*)
  164. .play (*mft200o2l8dggggg4.a8bbbbb4.o3l8d4dedo2bgabbaag4*)
  165.  
  166. .locate 20,30
  167. .color reverse
  168. LOOK! YOU HAVE COMPLETE CONTROL OVER THE TEXT
  169. .COLOR 3
  170. .locate 10,1
  171. With locator instructions, notices may be placed anywhere on the screen.
  172. Look for the LOOK! placed on the screen below this text.
  173.  
  174. .cen (*Or CENTER TEXT on the screen*)
  175.  
  176. After instruction is given, questions may be asked to reinforce the learning.
  177. All of this is performed with an easy to use set of instructions created 
  178. specifically for this purpose.
  179. .locate 25,1
  180. .pause (*Please press ENTER to continue*)
  181. .cls
  182. Now let's see what you have learned...
  183.  
  184.  
  185. @BEGIN QUESTION
  186. .col 10
  187.                               ANSWER THIS QUESTION
  188.  
  189.  
  190. .col 3
  191. @read (*What is the name of this language? *)
  192. @try 3
  193. @right (*PC-CAI*) nocase
  194. .color 10
  195.  
  196. THAT'S EXACTLY CORRECT!
  197.  
  198. With PC-CAI, you can check for answers where case may or may not be 
  199. important. Also, you can check for exact answers, or answer that "sound" 
  200. right. You'll see what I mean later...
  201.  
  202. .play (*mft200l16o2cccdddeeefffgggaaabbbo3ccc*)
  203. .locate 24,1
  204. .pau
  205. @wrong
  206. .col 12
  207.  
  208. Oops, try a little harder...
  209.  
  210. I'm looking for the name of the Personal Computer-Computer Assisted
  211. Instruction language.  (Hint:PC-CAI)
  212.  
  213. With PC-CAI you can specify expected responses to questions, and use the
  214. answer to cause the program to branch to other parts of the tutorial.
  215.  
  216. .Play  (*mfp2p2p2*)
  217. @WRONG FINAL
  218. .col 12
  219.  
  220. The answer is PC-CAI.
  221. .Play  (*mfp2p2p2*)
  222. @end question
  223. .col 11
  224. .cls
  225. .color 15,4
  226. .blank 2
  227. .color 0,15
  228. .blank 2
  229. .color 15,4
  230. .blank 2
  231. .color 0,15
  232. .blank 2
  233. .color 15,4
  234. .blank 2
  235. .color 0,15  
  236. .blank 2     
  237. .color 15,4  
  238. .blank 2     
  239. .color 0,15  
  240. .blank 2     
  241. .color 15,4  
  242. .blank 2     
  243. .color 0,15  
  244. .blank 2     
  245. .color 15,4  
  246. .blank 2     
  247. .color 15,1
  248. .locate 1,1 (*  * * * * * * * * * *  *)
  249. .locate 2,1 (*                       *)
  250. .locate 3,1 (*  * * * * * * * * * *  *)
  251. .locate 4,1 (*                       *)
  252. .locate 5,1 (*  * * * * * * * * * *  *)
  253. .locate 6,1 (*                       *)
  254. .locate 7,1 (*  * * * * * * * * * *  *)
  255. .locate 8,1 (*                       *)
  256. .locate 9,1 (*  * * * * * * * * * *  *)
  257. .locate 10,1 (*                       *)
  258. .locate 12,1
  259. .CENTER (*ARE YOU GOOD AT AMERICAN HISTORY?*)
  260. .skip 1
  261. .COLOR 9
  262. .CENTER (*HERE'S YOUR CHANCE TO SHOW*)
  263. .skip 1
  264. .COLOR 12
  265. .CENTER (*YOUR TRUE COLORS*)
  266. .PLAY (*T180O2L8GEC4E4G4O3C2*)
  267. .locate 24,1
  268. .pause
  269. .cls
  270. @begin question
  271. .col 3
  272.  
  273. @read (*Who was the first president of the USA ?*)
  274. @trys 3
  275. @right (*washington*) keyword
  276. .col 10
  277. George Washington is correct!
  278. .PLAY (*T255O1CDEFGABO2C*)
  279. .play (*mfp1p1*)
  280. @wrong (*lincoln*) keyword
  281. .color 12
  282. Lincoln was president during the Civil War
  283.  
  284. @wrong (*jefferson*)
  285. .col 12
  286. Thomas Jefferson was an early president, and he was the author of
  287. the Declaration of Independence.
  288.  
  289. @wrong
  290. .color 25
  291. HINT:
  292. .color 11
  293. The capitol of the United States was named after him.
  294.  
  295. .PAUSE (*Press ENTER to continue.*)
  296. @wrong final
  297. .col 3
  298. The answer is GEORGE WASHINGTON.
  299.  
  300. @end question
  301. .locate 24,1
  302. .pau(*Please press ENTER*)
  303. .cls
  304. .col 3
  305. .cen(*HERE IS AN EXAMPLE -- "FROM HOW TO USE A PC"*)
  306.  
  307. .col normal
  308.  
  309.                               ┌────────────────┐
  310.                               │ ┌──────────┐   │
  311.                               │ │          │ ▄ │
  312.                               │ │          │   │
  313.                               │ │          │ ° │
  314.                               │ └──────────┘ ° │
  315.                         ┌─────┴════════════════┴─────┐
  316.                         │  ▄      ▄▄▄──▄▄▄ ▄▄▄──▄▄▄  │
  317.                         │ │││││││ █▄▄__▄▄█ █▄▄__▄▄█  │
  318.                         └────────────────────────────┘
  319.  
  320.  
  321. .locate 7,35
  322. .color 10
  323. WELCOME
  324. .color 7
  325. .play (*mft160o2l8cdep2*)
  326. .locate 7,35 (*       *)
  327. .locate 7,36
  328. .color 12
  329. TO THE
  330. .color 7
  331. .play (*fgap2*)
  332. .color 14
  333. .loc 6,35 (*  IBM*)
  334. .loc 7,35 (*PERSONAL*)
  335. .loc 8,35 (*COMPUTER*)
  336. .play (*bo3c*)
  337. .col 14
  338. .locate 14,64
  339. ╒══════╕
  340. .loc 15,64
  341. │      │
  342. .loc 16,64
  343. │┌────┐│
  344. .loc 17,64
  345. ││──┘││
  346. .loc 18,64
  347. │└────┘│
  348. .loc 19,64
  349. │      │
  350. .loc 20,64
  351. │      │
  352. .loc 21,64
  353. ╘══════╛
  354. .loc 14,1
  355. .color 3
  356.  
  357. The IBM Personal Computer awaits your every command.
  358. First, we must know how to tell it to do something. After
  359. typing your answer to a question, you must press the
  360. ENTER key (sometimes called the RETURN key). This key is
  361. located on the right side of the keyboard. It looks like
  362. the one pictured here.
  363.  
  364. .col 14
  365. .pau(*Press the ENTER key once *)
  366. .col normal
  367. .cls
  368. .loc 1,1
  369.      ┌──╥──┐┌──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥─────╥─────╥─────┐
  370.      │F1║F2││ES║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║ -- ║NumLk║ScrLk│
  371.      ╞══╬══╡╞══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩═╦═══╬══╦══╬══╦══╡
  372.      │F3║F4││-│║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║  │║7 ║8 ║9 ║- │
  373.      ╞══╬══╡╞═══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣─┘╠══╬══╬══╬══╡
  374.      │F5║F6││Ctrl║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║   ║4 ║5 ║6 ║  │
  375.      ╞══╬══╡╞═══╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬═══╬══╬══╬══╣  │
  376.      │F7║F8││  ║\ ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║ * ║1 ║2 ║3 ║+ │
  377.      ╞══╬══╡╞═══╩═╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬═══╩══╬══╩══╣  │
  378.      │F9║F0││ Alt ║                            ║CapLk║  0   ║  .  ║  │
  379.      └──╨──┘└─────╨────────────────────────────╨─────╨──────╨─────╨──┘
  380. .loc 1,16
  381. .color reverse
  382. ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥
  383. .loc 2,16
  384. ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║
  385. .loc 3,16
  386. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩
  387. .loc 4,17
  388. ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║
  389. .loc 5,17
  390. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣
  391. .loc 6,18
  392. ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║
  393. .loc 7,18
  394. ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬
  395. .loc 8,20
  396. ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║
  397. .loc 9,19
  398. ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬
  399. .loc 10,19
  400. ║                            ║
  401. .loc 11,19
  402. ╨────────────────────────────╨
  403. .color 3
  404. .LOCATE 15,1
  405. .col 3
  406. This is a simple picture of the IBM Personal Computer Keyboard. Notice that 
  407. it looks very similar to a standard typewriter keyboard, especially the 
  408. high-lighted portion.
  409.  
  410. .col 14
  411. .pau (*Please press ENTER*)
  412. .color normal
  413. .loc 1,16
  414. ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥
  415. .loc 2,16
  416. ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║
  417. .loc 3,16                            
  418. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩
  419. .loc 4,17                             
  420. ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║
  421. .loc 5,17                             
  422. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣
  423. .loc 6,18                            
  424. ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║
  425. .loc 7,18                            
  426. ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬
  427. .loc 8,20                          
  428. ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║
  429. .loc 9,19                           
  430. ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬
  431. .loc 10,19
  432. ║                            ║
  433. .loc 11,19                    
  434. ╨────────────────────────────╨
  435. .color reverse
  436. .locate 5,18
  437. ╦═╩╦
  438. .locate 6,18
  439. ║A ║
  440. .locate 7,18
  441. ╩═╦╩
  442. .col 3
  443. .loc 15,1 
  444. .bla 9
  445. .loc 15,1
  446. Let's try using the keyboard. Locate the "A" on the keyboard and press it 
  447. once. Notice that a lowercase "a" appears on the screen. Press the ENTER key 
  448. after you have typed an "a". 
  449. @Begin question 
  450. @trys 7 
  451.  
  452. @write                                                                 
  453.  
  454. .col 14
  455. @READ (*Press the "A" key once, and press the ENTER key :*)
  456. @right (*A*) exact nocase
  457. .col 10
  458. Very, good. Let's continue.
  459. .play (*t160l16o2cdefgabo3cp2p2*)
  460. @wrong
  461. .col 12
  462. Woops, enter a single letter "A", and press the Enter key.
  463. .play (*o1a1p1p1*)
  464. .loc 19,1
  465. .bla 4
  466. .loc 19,1
  467. @end question
  468. .col 14
  469. .loc 15,1
  470. .bla 9
  471. .loc 17,1
  472. .cen(*GET THE IDEA???*)
  473. .locate 24,1
  474. .pause
  475. .col 3
  476. .cls
  477. .locate 2,1
  478. That is a brief view of what PC-CAI can do . . .
  479. .color 11
  480. .loc  4,1
  481. .bla 3
  482. .loc 4,1
  483.  
  484.                  -You can create your own tutorials with PC-CAI
  485.  
  486.                     -You can use it as an instructional tool
  487.  
  488.               -You can integrate color, sound, animation and more!
  489.  
  490.  
  491. No previous programming is required to use PC-CAI, you can begin by using the
  492. PC-CAI Program Generator, and PC-CAI will allow you to be more sophisticated 
  493. in your tutorials as you learn how to use it more. 
  494.  
  495. .color 10  
  496.  
  497.  
  498.  
  499.           NOW LET'S SEE ANOTHER EXAMPLE OF PC-CAI'S CAPABILITIES. . .
  500.  
  501. .locate 24,1
  502. .pau (*Please press ENTER*)
  503. .color normal                                                               
  504. .cls
  505. .scr 1
  506. .get a.img
  507. .move (0,0)-(0,70) steps=15
  508. .get l.img
  509. .move (0,0)-(30,70)
  510. .get p.img
  511. .move (0,0)-(60,70)
  512. .get h.img
  513. .move (0,0)-(90,70)
  514. .get a.img
  515. .move (0,0)-(120,70)
  516. .PLAY (*mbt200o1l4ggo2ddeed2cco1bbmsa8a8a8a8g2*)
  517. .get b.img
  518. .move (0,0)-(150,70)
  519. .get e.img
  520. .move (0,0)-(180,70)
  521. .get t.img
  522. .move (0,0)-(210,70)
  523. .loc 23,1
  524. .PLAY (*o2ddcco1bba2o2ddcco1bba2o1ggo2ddeed2cco1bbaag2*)
  525. .play(*mfp16*)
  526. .pau
  527. .cls
  528. .get a.img
  529. .move (0,0)-(20,70) steps=20
  530. .get apple.img
  531. .move (200,0)-(145,70)
  532. .loc 17,1
  533. .cen (*APPLE*)
  534. .get good.img
  535. @begin
  536. .loc 23,1 (*                     *)
  537. @read (*PRESS THE LETTER A : *)
  538. @right (*A*) force nocase auto
  539. .play (*mbo3l32gabo4c*)
  540. .put 50,10
  541. .put 100,10
  542. .put 150,10
  543. .put 200,10
  544. @end
  545. .loc 23,1 (*                     *)  
  546. .pau                                 
  547. .cls                                 
  548. .get b.img
  549. .move (0,0)-(20,70) steps=25
  550. .get ball.img
  551. .move ((0,0)-(310,190) steps=30
  552. .play (*o4l16a*)
  553. .put 310,190
  554. .move (310,190)-(0,100)
  555. .play (*o4l16a*)
  556. .put 0,100
  557. .move (0,100)-(145,70)
  558. .play (*o4l16a*)
  559. .loc 17,1                            
  560. .cen (*BOUNCING BALL*)
  561. .get good.img
  562. @begin                               
  563. .loc 23,1 (*                     *)
  564. @read (*PRESS THE LETTER B : *)
  565. @right (*B*) force nocase auto
  566. .play (*mbo3l32gabo4c*)
  567. .put 50,10
  568. .put 100,10
  569. .put 150,10
  570. .put 200,10
  571. @end
  572. .loc 23,1 (*                     *)
  573. .pau
  574. .cls                                 
  575. .get c.img
  576. .move (0,0)-(20,70) steps=20
  577. .LOAD CAT1,CAT2,CAT3,CAT4                
  578. .ANIMATE (1,100)-(140,100) STEPX=2 STEPY=0 PAUSE=1
  579. .get cat1
  580. .put 140,100
  581. .loc 17,1
  582. .cen (*CAT*)
  583. .get good.img
  584. @begin                               
  585. .loc 23,1 (*                     *)  
  586. @read (*PRESS THE LETTER C : *)
  587. @right (*C*) force nocase auto
  588. .play (*mbo3l32gabo4c*)
  589. .put 50,10
  590. .put 100,10
  591. .put 150,10
  592. .put 200,10
  593. @end                                 
  594. .loc 23,1 (*                     *)  
  595. .pau                                 
  596. @label :tmp
  597. .cls                                 
  598. .get d.img
  599. .PSET  140,70
  600. .DRAW (*c1r60d8l3d6r3d41l60u55*)
  601. .CIRCLE center=(170,95) radius=10 color=1
  602. .CIRCLE center=(170,109) radius=4 color=1 start=0 stop=3.14
  603. .CIRCLE center=(170,119) radius=4 color=1 start=3.14 stop=0
  604. .PSET  174,109
  605. .DRAW (*c1d10*)
  606. .PSET 166,119
  607. .DRAW (*c1u10*)
  608. .paint center=(142,72) color=2 bound=1
  609. .move (0,0)-(20,70) steps=20
  610. .loc 17,18
  611. DISKETTE
  612. .get good.img                      
  613. @begin                               
  614. .loc 23,1 (*                     *)  
  615. @read (*PRESS THE LETTER D : *)
  616. @right (*D*) force nocase auto
  617. .play (*mbo3l32gabo4c*)
  618. .put 50,10
  619. .put 100,10
  620. .put 150,10
  621. .put 200,10
  622. @end                                 
  623. .loc 23,1 (*                     *)  
  624. .pau                                 
  625. .cls
  626. .scr 0
  627. .color 15,0
  628.  
  629.     ┌─────────────────────────────────────────────────────────────────────┐
  630.     │                                                                     │ 
  631.     │                             FANTASTIC!!                             │
  632.     │                                                                     │ 
  633.     │            That's a look at some of PC-CAI's capabilities.          │ 
  634.     │                                                                     │ 
  635.     │                           What you can do                           │ 
  636.     │                                                                     │ 
  637.     │                              Is limited                             │ 
  638.     │                                                                     │
  639.     │                     Only by what you can imagine!                   │
  640.     │                                                                     │  
  641.     │                                                                     │  
  642.     └─────────────────────────────────────────────────────────────────────┘
  643. .locate 24,1
  644. .pause
  645. @menu
  646.