Play and Learn 2

home *** CD-ROM | disk | FTP | other *** search

/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCHERS / PCCAI / XXCAIARC.EXE / DEMO.CAI < prev next >

Wrap

Text File | 1991-06-25 | 16.3 KB | 668 lines

@OPTION ESCAPE=MENU .screen 0 .color 15,1 .cls PC-CAI 2.0 (C)Copyright Alan C. Elliott, 1986-90 Portions (C) Microsoft Corporation 1982-87 .col 12,1 .cen(* WELCOME TO THE PC-CAI DEMO! *) .col 7,1 This demo will use the CGA graphics capabilities of your computer. If you are currently using an IBM monochrome monitor without graphics capabilities, some of the graphic images will not appear in the demo. This software is distributed under the user supported concept, and you may copy or give it away only under the conditions outlined in the manual. Thanks for your interest and support. To end the demo at any time, press the Esc key. .locate 25,1 .pause .screen 1 .CIR CENTER=(160, 265) radius=300 color=2 .CIR CENTER=(160, 300) radius=300 color=2 .PAINT CENTER=(170, 20) color=2 bound=2 .CIR CENTER=(150, 6) radius=5 .CIR CENTER=(160, 6) radius=5 .CIR CENTER=(170, 6) radius=5 .PSET 30, 44 .DRAW (*c1u20f7g7*) .PAINT CENTER=(32, 28) color=1 bound=1 .PSET 230, 24 .DRAW (*c1u20f7g7*) .PAINT CENTER=(232, 8) color=1 bound=1 .PSET 300, 44 .DRAW (*c1u20f7g7*) .PAINT CENTER=(302, 28) color=1 bound=1 .PSET 90, 24) .DRAW (*c1u20f7g7*) .PAINT CENTER=(92, 8) color=1 bound=1 .locate 21,1 Here comes something new . . . .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4 .ANIMATE (1,100)-(250,100) STEPX=4 STEPY=0 PAUSE=1 .screen 0 .color 15,1 .CLS I N T R O D U C I N G ... █████ █████ █████ ███ ███ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ █ ████ █ █ █ █ █████ █ █ █████ █ █ █ █ █ █ █ █ █████ █████ █ █ ███ PC-CAI is a Personal Computer - Computer Aided Instruction language. It is a language specifically designed to implement the personal computer as a tutor. .color 15,1 .locate 24,1 .pause (*Please press ENTER to continue*) .screen 1 .cls .pset 1,100 .draw (*C2r320*) .circle center=(160,100) radius=50 color=2 start=0 stop=3.14 .paint center=(160,98) color=2 bound=2 .PSET 250,150 .DRAW (*e3u30h4e2h7e4h3r2f3g4f7g2f4r6*) .DRAW (*h4e2h7e4h3r2f3g4f7g2f4*) .DRAW (*e4h7e4h3r2f3g4f7g4d30f3*) .CIRCLE CENTER=(256,100) RADIUS=30 COLOR=1 .CIRCLE CENTER=(245,102) RADIUS=6 COLOR=1 .CIRCLE CENTER=(265,107) RADIUS=11 COLOR=1 .CIRCLE CENTER=(256,97) RADIUS=5 COLOR=1 .CIRCLE CENTER=(256,92) RADIUS=7 COLOR=1 .CIRCLE CENTER=(245,90) RADIUS=9 COLOR=1 .PSET 160,100 .DRAW (*c2u90*) .PSET 160,100 .DRAW (*c2e90*) .PSET 160,100 .DRAW (*c2h90*) .PSET 10,160 .DRAW (*C3R310*) .PSET 1,180 .DRAW (*C3R310*) .PSET 20,160 .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .DRAW (*g20r20e10l20r20e10*) .pallette 0 .pallette 1 .pallette 0 .pallette 1 .pallette 0 .pallette 1 .pallette 0 .PSET 50,160 .DRAW (*c1e10r1g10h8r1f7u5*) .PSET 200,180 .DRAW (*c1e10r1g10h8r1f7u5*) .PSET 250,152 .DRAW (*c1e10r1g10h8r1f7u5*) .get beetle.img .play (*mfo3l16ap4a*) .move (20,155)-(100,155) steps=50 .play (*mfo3l16ap4a*) .put 100,155 .move (100,155)-(250,155) steps=50 .play (*mfo3l16ap4ap4a*) .put 250,155 .locate 1,1 .center (*The Dawn of a New Day*) .center (*in Computer Aided Instruction!*) .locate 24,1 .pause (*Please press ENTER to continue*) .screen 0 .color 3 .cls PC-CAI allows the computer to act as a teacher and tester. Instruction, such as what you are reading now, may be displayed on the screen. The learner reads the instructions at his or her own pace. Special effects may be added: .COLOR 19 Color changes, and blinking text. .color normal .pause (*Press the ENTER key to hear some music . . .*) .play (*mft200o2l8dggggg4.a8bbbbb4.o3l8d4dedo2bgabbaag4*) .locate 20,30 .color reverse LOOK! YOU HAVE COMPLETE CONTROL OVER THE TEXT .COLOR 3 .locate 10,1 With locator instructions, notices may be placed anywhere on the screen. Look for the LOOK! placed on the screen below this text. .cen (*Or CENTER TEXT on the screen*) After instruction is given, questions may be asked to reinforce the learning. All of this is performed with an easy to use set of instructions created specifically for this purpose. .locate 25,1 .pause (*Please press ENTER to continue*) .cls Now let's see what you have learned... @BEGIN QUESTION .col 10 ANSWER THIS QUESTION .col 3 @read (*What is the name of this language? *) @try 3 @right (*PC-CAI*) nocase .color 10 THAT'S EXACTLY CORRECT! With PC-CAI, you can check for answers where case may or may not be important. Also, you can check for exact answers, or answer that "sound" right. You'll see what I mean later... .play (*mft200l16o2cccdddeeefffgggaaabbbo3ccc*) .locate 24,1 .pau @wrong .col 12 Oops, try a little harder... I'm looking for the name of the Personal Computer-Computer Assisted Instruction language. (Hint:PC-CAI) With PC-CAI you can specify expected responses to questions, and use the answer to cause the program to branch to other parts of the tutorial. .Play (*mfp2p2p2*) @WRONG FINAL .col 12 The answer is PC-CAI. .locate 24,1 .pause @end question .col 11 .cls .color 15,4 .blank 2 .color 0,15 .blank 2 .color 15,4 .blank 2 .color 0,15 .blank 2 .color 15,4 .blank 2 .color 0,15 .blank 2 .color 15,4 .blank 2 .color 0,15 .blank 2 .color 15,4 .blank 2 .color 0,15 .blank 2 .color 15,4 .blank 2 .color 15,1 .locate 1,1 (* * * * * * * * * * * *) .locate 2,1 (* *) .locate 3,1 (* * * * * * * * * * * *) .locate 4,1 (* *) .locate 5,1 (* * * * * * * * * * * *) .locate 6,1 (* *) .locate 7,1 (* * * * * * * * * * * *) .locate 8,1 (* *) .locate 9,1 (* * * * * * * * * * * *) .locate 10,1 (* *) .locate 12,1 .CENTER (*ARE YOU GOOD AT AMERICAN HISTORY?*) .skip 1 .COLOR 9 .CENTER (*HERE'S YOUR CHANCE TO SHOW*) .skip 1 .COLOR 12 .CENTER (*YOUR TRUE COLORS*) .PLAY (*T180O2L8GEC4E4G4O3C2*) .locate 24,1 .pause .cls @begin question .col 3 @read (*Who was the first president of the USA ?*) @trys 3 @right (*washington*) keyword .col 10 George Washington is correct! .PLAY (*T255O1CDEFGABO2C*) .play (*mfp1p1*) @wrong (*lincoln*) keyword .color 12 Lincoln was president during the Civil War @wrong (*jefferson*) .col 12 Thomas Jefferson was an early president, and he was the author of the Declaration of Independence. @wrong .color 25 HINT: .color 11 The capitol of the United States was named after him. .PAUSE (*Press ENTER to continue.*) @wrong final .col 3 The answer is GEORGE WASHINGTON. @end question .locate 24,1 .pau(*Please press ENTER*) .screen 1 .cls .pcx testpcx.pcx 0,0 .locate 1,1 .CEN(* DISPLAY PCX PAINTBRUSH TYPE GRAPHICS *) .locate 25,1 (* *) .locate 25,1 .pause (* Press Enter*) .locate 25,1 (* *) .locate 1,1 .cen (* COMBINE PCX GRAPHICS AND PC-CAI IMAGES *) .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4 .ANIMATE (30,100)-(280,100) STEPX=4 STEPY=0 PAUSE=1 .locate 25,1 .pause (* Press Enter*) .screen 0 .cls .col 3 .cen(*HERE IS AN EXAMPLE -- "FROM HOW TO USE A PC"*) .col normal ┌────────────────┐ │ ┌──────────┐ │ │ │ │ ▄ │ │ │ │ │ │ │ │ ° │ │ └──────────┘ ° │ ┌─────┴════════════════┴─────┐ │ ▄ ▄▄▄──▄▄▄ ▄▄▄──▄▄▄ │ │ │││││││ █▄▄__▄▄█ █▄▄__▄▄█ │ └────────────────────────────┘ .locate 7,35 .color 10 WELCOME .color 7 .play (*mft160o2l8cdep2*) .locate 7,35 (* *) .locate 7,36 .color 12 TO THE .color 7 .play (*fgap2*) .color 14 .loc 6,35 (* IBM*) .loc 7,35 (*PERSONAL*) .loc 8,35 (*COMPUTER*) .play (*bo3c*) .col 14 .locate 14,64 ╒══════╕ .loc 15,64 │ │ .loc 16,64 │┌────┐│ .loc 17,64 ││──┘││ .loc 18,64 │└────┘│ .loc 19,64 │ │ .loc 20,64 │ │ .loc 21,64 ╘══════╛ .loc 14,1 .color 3 The IBM Personal Computer awaits your every command. First, we must know how to tell it to do something. After typing your answer to a question, you must press the ENTER key (sometimes called the RETURN key). This key is located on the right side of the keyboard. It looks like the one pictured here. .col 14 .pau(*Press the ENTER key once *) .col normal .cls .loc 1,1 ┌──╥──┐┌──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥─────╥─────╥─────┐ │F1║F2││ES║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║ -- ║NumLk║ScrLk│ ╞══╬══╡╞══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩═╦═══╬══╦══╬══╦══╡ │F3║F4││-│║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║] ║ │║7 ║8 ║9 ║- │ ╞══╬══╡╞═══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣─┘╠══╬══╬══╬══╡ │F5║F6││Ctrl║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║ ║4 ║5 ║6 ║ │ ╞══╬══╡╞═══╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬═══╬══╬══╬══╣ │ │F7║F8││ ║\ ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║ ║ * ║1 ║2 ║3 ║+ │ ╞══╬══╡╞═══╩═╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬═══╩══╬══╩══╣ │ │F9║F0││ Alt ║ ║CapLk║ 0 ║ . ║ │ └──╨──┘└─────╨────────────────────────────╨─────╨──────╨─────╨──┘ .loc 1,16 .color reverse ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥ .loc 2,16 ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║ .loc 3,16 ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩ .loc 4,17 ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║] ║ .loc 5,17 ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣ .loc 6,18 ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║ .loc 7,18 ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬ .loc 8,20 ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║ ║ .loc 9,19 ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬ .loc 10,19 ║ ║ .loc 11,19 ╨────────────────────────────╨ .color 3 .LOCATE 15,1 .col 3 This is a simple picture of the IBM Personal Computer Keyboard. Notice that it looks very similar to a standard typewriter keyboard, especially the high-lighted portion. .col 14 .pau (*Please press ENTER*) .color normal .loc 1,16 ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥ .loc 2,16 ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║ .loc 3,16 ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩ .loc 4,17 ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║] ║ .loc 5,17 ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣ .loc 6,18 ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║ .loc 7,18 ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬ .loc 8,20 ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║ ║ .loc 9,19 ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬ .loc 10,19 ║ ║ .loc 11,19 ╨────────────────────────────╨ .color reverse .locate 5,18 ╦═╩╦ .locate 6,18 ║A ║ .locate 7,18 ╩═╦╩ .col 3 .loc 15,1 .bla 9 .loc 15,1 Let's try using the keyboard. Locate the "A" on the keyboard and press it once. Notice that a lowercase "a" appears on the screen. Press the ENTER key after you have typed an "a". @Begin question @trys 7 @write .col 14 @READ (*Press the "A" key once, and press the ENTER key :*) @right (*A*) exact nocase .col 10 Very, good. Let's continue. .play (*t160l16o2cdefgabo3cp2p2*) @wrong .col 12 Woops, enter a single letter "A", and press the Enter key. .play (*o1a1p1p1*) .loc 19,1 .bla 4 .loc 19,1 @end question .col 14 .loc 15,1 .bla 9 .loc 17,1 .cen(*GET THE IDEA???*) .locate 24,1 .pause .col 3 .cls .locate 2,1 That is a brief view of what PC-CAI can do . . . .color 11 .loc 4,1 .bla 3 .loc 4,1 -You can create your own tutorials with PC-CAI -You can use it as an instructional tool -You can integrate color, sound, animation and more! No previous programming is required to use PC-CAI, you can begin by using the PC-CAI Program Generator, and PC-CAI will allow you to be more sophisticated in your tutorials as you learn how to use it more. .color 10 NOW LET'S SEE ANOTHER EXAMPLE OF PC-CAI'S CAPABILITIES. . . .locate 24,1 .pau (*Please press ENTER*) .color normal .rem---------------------------------THIS IS THE ALPHABET PART @LABEL:ALPHA .cls .screen 1 .get a.img .move (0,0)-(0,70) steps=10 .PLAY (*msmbt200o1l4ggo2ddeed2cco1bbmsa8a8a8a8g2*) .get l.img .move (0,0)-(30,70) steps=10 .get p.img .move (0,0)-(60,70) steps=10 .get h.img .move (0,0)-(90,70) steps=10 .get a.img .move (0,0)-(120,70) steps=10 .get b.img .move (0,0)-(150,70) steps=10 .get e.img .move (0,0)-(180,70) steps=10 .get t.img .move (0,0)-(210,70) steps=10 .PLAY (*mbt200o2ddcco1bba2o2ddcco1bba2o1ggo2ddeed2cco1bbaag2*) .loc 23,1 .play(*mfp16*) .pau .cls .get a.img .move (0,0)-(20,70) steps=15 .get apple.img .move (200,0)-(145,70) .loc 17,1 .cen (*APPLE*) .get good.img @begin .loc 23,1 (* *) .loc 23,1 @read (*PRESS THE LETTER A : *) @right (*A*) force nocase auto .play (*mbo3l32gabo4c*) .put 50,10 .put 100,10 .put 150,10 .put 200,10 @end .loc 23,1 (* *) .loc 23,1 .pau .cls .get b.img .move (0,0)-(20,70) steps=20 .get ball.img .move ((0,0)-(310,190) steps=25 .play (*o4l16a*) .put 310,190 .move (310,190)-(0,100) .play (*o4l16a*) .put 0,100 .move (0,100)-(145,70) .play (*o4l16a*) .loc 17,1 .cen (*BOUNCING BALL*) .get good.img @begin .loc 23,1 (* *) .loc 23,1 @read (*PRESS THE LETTER B : *) @right (*B*) force nocase auto .play (*mbo3l32gabo4c*) .put 50,10 .put 100,10 .put 150,10 .put 200,10 @end .loc 23,1 (* *) .loc 23,1 .pau .cls .get c.img .move (0,0)-(20,70) steps=20 .LOAD CAT1,CAT2,CAT3,CAT4 .ANIMATE (1,100)-(134,100) STEPX=2 STEPY=0 PAUSE=1 .get cat1 .put 134,100 .loc 17,1 .cen(*CAT*) .get good.img @begin .loc 23,1 (* *) .loc 23,1 @read (*PRESS THE LETTER C : *) @right (*C*) force nocase auto .play (*mbo3l32gabo4c*) .put 50,10 .put 100,10 .put 150,10 .put 200,10 @end .loc 23,1 (* *) .loc 23,1 .pau @label :tmp .cls .get d.img .PSET 140,70 .DRAW (*c1r60d8l3d6r3d41l60u55*) .CIRCLE center=(170,95) radius=10 color=1 .CIRCLE center=(170,109) radius=4 color=1 start=0 stop=3.14 .CIRCLE center=(170,119) radius=4 color=1 start=3.14 stop=0 .PSET 174,109 .DRAW (*c1d10*) .PSET 166,119 .DRAW (*c1u10*) .paint center=(142,72) color=2 bound=1 .move (0,0)-(20,70) steps=20 .loc 17,18 DISKETTE .get good.img @begin .loc 23,1 (* *) .loc 23,1 @read (*PRESS THE LETTER D : *) @right (*D*) force nocase auto .play (*mbo3l32gabo4c*) .put 50,10 .put 100,10 .put 150,10 .put 200,10 @end .loc 23,1 (* *) .loc 23,1 .pau .cls .scr 0 .color 15,0 ┌─────────────────────────────────────────────────────────────────────┐ │ │ │ FANTASTIC!! │ │ │ │ That's a look at some of PC-CAI's capabilities. │ │ │ │ What you can do │ │ │ │ Is limited │ │ │ │ Only by what you can imagine! │ │ │ │ │ └─────────────────────────────────────────────────────────────────────┘ .locate 24,1 .pause @menu