\MOVE 0 TO #1150\CLEAR PICS\IF B=0\MOVE 195 TO #1158\ELSE\MOVE 2200 TO #1158
\ENDIF\X RESTART\READ /(#4000)/MENU.MAC\READ /(#4000)/PR_ORDER.MAC\+
\CLEAR ON KEY\CALLM CLRMKEYS\CLEAR ON ERROR\+
\MOVE 40 TO #1140\MOVE 400 TO #1141\MOVE 555 TO #1142\MOVE 2444 TO #1143\MOVE 5 TO #1\+
\ON ERROR JUMP WAYSML\READ /(#4000)/081119PW.FON\CLEAR ON ERR
\FRAME ?\IF A>=#1150 AND A>0\JUMP SHOWINTRO\ENDIF
\CLEAR PICS\MOVE 170 TO #1150
\ON ERROR JUMP WAYSML\APPEND /(#4000)/OPENING.PIC 1,2\X SHOWINTRO\CLEAR ON ERR
\CALLM INTRO_SCRN
\X PICSREAD\PEN W=1\PAINT\DOT 0,0,0\CLEAR ON ERR
\CLEAR SPRITES\CLEAR SHOW\CLEAR ON KEY
\ON KEY F1 JUMP HELP\ON KEY F2 JUMP PR_ORDER
\IF #9997=0\JUMP BEGIN\ENDIF\MOVE 0 TO #9997\MOVE 0 TO B\MOVE 0 TO F
\LOC 0,182\WID 320 DOT C\OVE 0,A,216\HEI 12
 Press <RETURN> to go to the main menu.
\X LOOPRET\IF B=7181 OR F<>0\ELSE\JUMP LOOPRET\ENDIF
\X BEGIN\ON KEY 14624\FRAME ?\IF A<#1150\JUMP RESTART\ENDIF
\IF #1153=0\SHOW W=0,0,319,19 L=0,0 F=2,2\ENDIF\CLEAR SHOW
\LOC 0,181\WID 320 DOT C\HEI 36\OVE 0,O,44\WAIT LIMIT #1141
Select with mouse or <UP> and <DOWN> arrows,
\LOC 0,191
then click mouse button or press <RETURN>
\SAVE SCREEN\CLEAR SHOW\ACTIVATE SCREEN 0\IF #1153=0\SHOW 0,0,73\SAVE SCREEN
\ELSE\RESTORE SCREEN\ENDIF
\CLEAR SPRITES\ROUNDS 1 SPEED 15\IF #1150<11\JUMP NOHEART\ENDIF
\SPRITE L=180,30 A=2\SPRINT 4 TO 10
\X NOHEART\IF #1150<33\JUMP NOHORSE\ENDIF
\SPRITE L=4000,4000 A=NO\SPRINT 1\SPRITE L=267,28 A=3\SPRINT 19 TO 33
\X NOHORSE\IF #1150<42\JUMP NOKANGA\ENDIF
\SPRITE L=4000,4000 A=NO\SPRINT 1
\SPRITE L=135,152 A=4 M=6,0 T=R E=320,0,340,199 W=173,0,310,199\SPRINT 34 TO 42
\X NOKANGA\CLEAR SPRITE 0\SPRITE L=4000,100\SPRINT 1
\IF #1150<18 OR #677>4\JUMP NOHRT\ENDIF\SPRITE L=187,101 A=6\SPRINT 11 TO 18
\X NOHRT\IF #1150<68 OR #677>6\JUMP SMALL68\ENDIF\SPRITE L=4000,4000 A=NO\SPRINT 1
\SPRITE L=173,63 M=-2,0 A=1 F=Y W=173,0,310,199 E=-100,0,-97,199 T=R
\SPRINT 68,68,69,69,70,71,71,72\X SMALL68\CLEAR SPRITE 0
\IF #1150<66 OR #677>5\JUMP NOPST\ENDIF\SPRITE L=4000,4000 A=NO\SPRINT 1
\SPRITE L=264,101 A=1\SPRINT 43 TO 66
\X NOPST\ON KEY 561 JUMP POTPOURRI\ON KEY 818 JUMP HORSEGAITS\+
\ON KEY 1075 JUMP AIRWING\ON KEY 1332 JUMP HUMANHEART\ON KEY 1589 JUMP PISTON\+
\ON KEY 1846 JUMP FIGURES\ON KEY 2103 JUMP HOWWORKS\ON KEY 2360 JUMP GOODBY\+
\MOVE 179 TO Y\SHOW WINDOW=173,0,311,199\ON ERROR JUMP RESTART\ROUNDS #1158*5+9
\MOVE 0 TO B\MOVE 0 TO #1144\+
\ON KEY 18488 CALL UPCRSR\ON KEY 18432 CALL UPCRSR\ON KEY 20480 CALL DNCRSR\+
\ON KEY 20530 CALL DNCRSR\ON KEY 7181 JUMP RANLOOP\ON KEY F10 JUMP RUNLOOP\+
\MOVE #9902 TO J\ADD 15 TO J\IF J>139\MOVE 33 TO J\ENDIF\+
\MOVE 0 TO #879\MOVE 6 TO #880\MOVE 172 TO Y\CALL CLEANCRSR
\X RUNLOOP\CALL CLEANCRSR\MOVE 0 TO B\RUN MOUSE\+
\X RANLOOP\MOVE E TO #9902\MOVE E TO J\+
\IF B=0 AND F=0\MOVE 2 TO #1140\MOVE 3 TO #1141\MOVE 55 TO #1142\+
\MOVE 244 TO #1143\MOVE 2 TO #1145\JUMP AFTKY\ENDIF\+
\IF B<>7181\JUMP RUNLOOP\ENDIF\X AFTKY\MOVE J TO #9902\CALL CLEANCRSR
\ACTIVATE SCREEN 0\CLEAR ON KEY\+
\ON KEY F10 JUMP RESTART\CLEAR SHOW\ON KEY 7181\MOVE 0 TO B\+
\IF J<48\MOVE 33 TO J\+
\IF MEM_SIZE>720 OR O>20\IF #752=0\DOT 0,100,0\+
\SHOW 0,0,3\CALL FIX_6_40BUG\CLEAR PICS\+
\READ DEMO.TXT\ELSE\READ HELLO.TXT\ELSE\READ HELLO.TXT\ENDIF
\IF J<63\MOVE 48 TO J\JUMP HORSEY\ELSE
\IF J<78\MOVE 64 TO J\READ AIRPLANE.TXT\ELSE
\IF J<93\MOVE 78 TO J\JUMP HEART89\ELSE
\IF J<108\MOVE 93 TO J\JUMP PISTON1\ELSE
\IF J<123\MOVE 108 TO J\READ SCRNCHGS.TXT\ELSE
\IF J<138\MOVE 123 TO J\READ 081119PW.FON\+
\LOC 70,0\HEI 199\OVE 0,A,40\WID 180 DOT C\CLEAR SCREEN
Here's How it Works:
\DRAW J82,10,C42,R150\LOC 0,13\WID 320 DOT C\OVE 0,A,53
Our software is capable of many different
types of animation. By combining a graphics
command language with a powerful multi-
frame drawing program, it lets YOU design
applications the way YOU want-you are
not confined to the limited options
of a menu-driven system.
\READ HOWITWRK.TXT\ELSE\MOVE 129 TO J\JUMP GOODBY
\X HEART89\MOVE 1 TO #1004\CLEAR SCREEN
\LOC 180,3\HEI 189\OV 1,A,219\WID 140 DOT\MOVE 0 TO #1149
\CLEAR ON KEY\ON ERROR JUMP RDHRT2\MOVE "/P11/HEART/MCGAHART/" TO #4001\+
\ON KEY F10 JUMP RESTART\READ /(#4001)/LARGEHRT.PIC\SHOW 0,11,1,1\JUMP LRGHRT3
\X RDHRT2\ON ERROR JUMP HRSERR\READ /(#4001)/MEDHEART.PIC\CLEAR ON ERROR
\SHOW 11,22,1,1\X LRGHRT3\CLEAR PI
The human heart is an amazing organ.
It is only about the size of your palm and weighs less than 3/4's of a pound,
yet it will beat continuously from long before birth to the moment of death.
If it stops for even a few moments your body cannot get the vital oxygen and
nutrients it needs to survive.
\JUMP HRTNEXT1\X READHART3\MOVE 1 TO #1149
\X HRTNEXT1\READ HARTDEMO.TXT
\X PISTON1\MOVE "/P11/PISTON/" TO #4001\CLEAR PICS\+
\ON ERROR JUMP HRSERR\MOVE 1 TO #1005\READ /(#4001)/OPENPIST.PIC\CLEAR ON ERROR
\SHOW 0,0,1\BLANK 0,21,319,199
\LOC 0,50\WID 214 DOT\HEI 199\OV 1,A,220
The four-stroke piston engine
was invented in the 1800's.
In 1861 Nikolaus August Otto
built a working four-stroke
gas engine, having realized
the sequence of events
necessary to establish
a continuous operation.
\LOC 0,183\WID 320 DOT C\OVE 1,A,224
Press <RETURN> to continue...
\READ PISTON91.TXT
\X HORSEY\DOT 0,0,0\ON KEY F10 JUMP RESTART
\LINE 0,0,319,132,40,B\LINE 1,1,318,131,41,B\LINE 2,2,317,130,42,B\LINE 3,3,316,129,43,B\+
\LINE 4,4,315,128,44,B\LINE 5,5,314,127,45,B\LINE 6,6,313,126,0,BF\LINE 0,133,319,199,108,BF\+
\LOC 6,6\HEI 190\WID 308 DOT C\OV 0,X,40\PAINT\READ 081119PW.FON
In the late 1800's Eadweard Muybridge is
said to have settled a famous wager as to
whether or not a horses's hoofs are ever
all off the ground when a horse trots.
Following are four gaits: Galloping,
Trotting, Pacing and Cantering. These
tracings, taken from Eadweard Muybridge's
original photographs, show that for all
these gaits, the horse leaves the ground
entirely at some point(s) in the stride.
Muybridge's friend won the bet.
\MOVE "/P11/HORSE/MCGAHORS/" TO #4001\CLEAR PICS\+
\ON ERROR JUMP HRSERR\READ /(#4001)/SMLHORSE.PIC\CLEAR ON ERROR
\CLEAR SPRITES\SPRITE L=2,136 M=40,0 A=1 W=0,136,319,199
\SPRINT 1 TO 8\SPRITE L=999,999 A=NO\SPRINT 1
\SPRITE L=2,163 M=40,0 A=1 W=0,163,319,199\SPRINT 9 TO 15,1
\ROUNDS 15 SPEE 0\RUN\READ HORSE8.TXT
\X HRSERR\BEEP 44,444\BEEP 411,44\CLEAR ON ERROR
\LOC 6,6\HEI 190\WID 308 DOT C\OV 0,X,40\CLEAR SCREEN
This option is not available right now.
please obtain:
\IF #4001="/P11/HORSE/MCGAHORS/"
   HORSE
\ELSE\IF #4001="/P11/HEART/MCGAHART/"
   HEART
\ELSE
   PISTON
\ENDIF
available from many SHAREWARE
and FREEWARE sources:
America Online:RUSSELL DH
or The Animated Software Company
\JUMP STAYING
\X HELP\ACTIVATE SCREEN 0\CLEAR SCRE\READ /(#4000)/081119PW.FON\ON KEY 7181\CLEAR PICS\+
\LOC 10,0\WID 310 DOT\OVE 0,A,216\HEI 18\CLEAR ON KEY\ON KEY F10 JUMP RESTART
            General Information
\DRAW J 0,11,C57,R320 C,D2C59R1L320\ON KEY F2 JUMP PR_ORDER
\LOC 10,15\HEI 179\OVE 0,A,38
                        Page 1 of 2
You can return to the main menu of this
demo at any time from any place in the
demo by pressing Function Key 10.
\"
Press <ESCAPE> anytime to exit to DOS.
\"
To change the background screen color to
any of three choices, press the <UP> or
<DOWN> arrows on the numeric keypad now.
\"
To print an order form press Function Key 2.
\"
Press any other key to continue . . .
\MOVE 0 TO U\MOVE 0 TO V\X CLR_CHOICES\ON KEY 18488 JUMP CLR_UP
\ON KEY 18432 JUMP CLR_UP\ON KEY 20480 JUMP CLR_DOWN
\ON KEY 20530 JUMP CLR_DOWN\WAIT NOW #1142*30\JUMP CLR_CONT
\X CLR_UP\IF U=0\MOVE 8 TO U\ELSE\IF U=8\MOVE 16 TO U\ELSE
\IF U=16\MOVE 0 TO U\ENDIF\JUMP SCRN_CLR
\X CLR_DOWN\IF U=8\MOVE 0 TO U\ELSE\IF U=16\MOVE 8 TO U\ELSE
\IF U=0\MOVE 16 TO U\ENDIF\JUMP SCRN_CLR
\X SCRN_CLR\HUE C=0,0, S=U,U,U\JUMP CLR_CHOICES
\X CLR_CONT\ON KEY 19766\ON KEY 19712\ON KEY 19200\ON KEY 19252\+
\ON KEY 20530\ON KEY 20480\ON KEY 18432\ON KEY 18488\LOC 10,15\OVE 0,A,39
                        Page 2 of 2
If you have a compatible mouse input
device, we will recognize it.  You may
use any mouse button instead of
<RETURN> at any time.
\"
Press Function Key 1 (help) from the
main menu to see this message again.
\"
The demo will self-advance if no keys are
pressed.  To stop the self-advance, return
to the main menu and then choose an option.
\"
Written and produced by Russell Hoffman,
THE ANIMATED SOFTWARE COMPANY
\X STAYING\WAIT RET #1141 "     Press <RETURN> to continue..."
\MOVE 2200 TO #1158\JUMP BEGIN
\X GOFONT2\BL 0,20,320,199\READ 081119PW.FON\SPRITE L=140,66\JUMP GOFNT
\X GOODBY\ON ERROR JUMP GOFONT2\CLEAR PICS\CLEAR SPRITES\ON KEY F10 JUMP RESTART
\READ SNOWGR19.FON\ON ERROR\BL 0,135,320,199\SPRITE L=140,106
\X GOFNT\BL 0,0,319,27\LOC 0,0\WID 320 DOT C\OV 0\HEI 199
Thank you for watching our demo.
We hope you enjoyed the show!
\"
\READ 081119PW.FON\LOC 0,175\WID 320 DOT C\OVE 0,A,222
Press <F10> or <RETURN> to continue.
Press <SPACE BAR> to exit to DOS.
\CLEAR ON KEY\READ FLAGWAVE.TXT\ON KEY 14624\END
\X STAY\ON KEY 7181\JUMP BEGIN
\X POTPOURRI\CLEAR ON KEY\MOVE 33 TO J\JUMP AFTKY
\X HORSEGAITS\CLEAR ON KEY\MOVE 48 TO J\JUMP AFTKY
\X AIRWING\CLEAR ON KEY\MOVE 63 TO J\JUMP AFTKY
\X HUMANHEART\CLEAR ON KEY\MOVE 78 TO J\JUMP AFTKY
\X PISTON\CLEAR ON KEY\MOVE 93 TO J\JUMP AFTKY
\X FIGURES\CLEAR ON KEY\MOVE 108 TO J\JUMP AFTKY
\X HOWWORKS\CLEAR ON KEY\MOVE 123 TO J\JUMP AFTKY
\X CLEANCRSR\SUB 33 FROM J\DIV J BY 15\MULT J BY 15\+
\ADD 33 TO J\IF J>138\MOVE 33 TO J\ENDIF\+
\IF B<>0 OR F>0\IF #1158<30000\ADD 100 TO #1158\ENDIF\MOVE J TO #9902\+
\MOUSE W=9,33,9,143 R=1 F=0,1 L=9,J A=1,15 X=A\RETURN
\X UPCRSR\MOVE E TO J\MOVE E TO #9902\SUB 15 FROM J\+
\IF J<33\MOVE 138 TO J\ENDIF\CALL CLEANCRSR\RETURN
\X DNCRSR\MOVE E TO J\MOVE E TO #9902\ADD 15 TO J\CALL CLEANCRSR\RETURN
\X PR_ORDER\CLEAR ON KEY\CALLM PRINT_ORDER\READ MENU.TXT\END
\X FIX_6_40BUG\IF #212<"7"\LINE 0,199,319,199,0\ENDIF\RETURN
\X WAY2SML\CLEAR ON KEY\CALLM WAY2SMALL\END
\X WAYSML\CLEAR ON KEY\CALLM FAR2SMALL\END
