\READ 081109PW.FON
\CLEAR PICS\APPEND OPENING.PIC 1,2
\IF MEM_SIZE<#744\APPEND OPENING.PIC 1,1\ELSE\APPEND OPENING.PIC 3,3\ENDIF
\APPEND SMALLBRD.PIC 1,-1\APPEND SMALLHRT.PIC 1,-1
\APPEND SMALLGLP.PIC 1,-1\APPEND SMALLKAN.PIC 1,-1
\APPEND SMALLPST.PIC 1,-1\APPEND SMALLPLN.PIC 1,-1
\PAINT\DOT 0,0,0\CLEAR SPRITES\CLEAR SHOW
\ON KEY F1 JUMP HELP\ON KEY F10 JUMP BEGIN
\IF #9997=0\JUMP BEGIN\ENDIF
\MOVE 0 TO #9997\MOVE 0 TO B\MOVE 0 TO F
\LOC 0,182\WID 320 DOTS 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
\SHOW 0,0,2\BLANK 0,24,319,199
\LOC 30,28\OVE 0,A,68\WID 140 DOTS
Picture Potpourri
\LOC 30,43
Horse Gaits
\LOC 30,58
Airplane Wing
\LOC 30,73
Human Heart Lesson
\LOC 30,88
Combustion Engine
\LOC 30,103
Creatures In Motion
\LOC 30,118
How It Works
\LOC 30,133
Exit
\CALL SHOW_DONE
\LOC 0,163\WID 320 DOTS C\HEI 36\OVE 0,A,226
\WAIT LIMIT -1
Select with mouse or 'up' and 'down' keys,
then click mouse button or press 'return'
\LOC 24,189\WID 288 DOTS\HEI 11\OV 0,A,68
       -viewed           -not viewed
\LOC 58,189\WID 9 DOTS\HEI 11\SCRO 0,X,2\"#
\LOC 172,189\WID 9 DOTS\HEI 11\OV 0,A,5\"#
\X MAIN1
\SHOW 180,58,67\SAVE SCREEN
\CLEAR SPRITES\ROUNDS -1 SPEED 14
\SPRITE L=180,30 A=5 \SPRINT 4 TO 10
\SPRITE L=4000,4000 A=NO \SPRINT 1
\SPRITE L=267,28 A=3 \SPRINT 19 TO 33
\SPRITE L=4000,4000 A=NO \SPRINT 1
\SPRITE L=47,137 A=4 M=5,0 T=R E=320,0,340,199 W=70,0,319,199\SPRINT 34 TO 42
\CLEAR SPRITE 0\SPRITE L=4000,100\SPRINT 1
\SPRITE L=192,91 A=6\SPRINT 11 TO 18
\SPRITE L=4000,4000 A=NO \SPRINT 1
\SPRITE L=320,64 M=-2,0 A=1 F=Y W=180,0,319,199 E=0,0,132,199 T=R
\SPRINT 68,69,70,71,72,71,70,69
\CLEAR SPRITE 0
\SPRITE L=4000,4000 A=NO \SPRINT 1
\SPRITE L=268,91 A=1 \SPRINT 43 TO 66
\SUB 34 FROM #9001\DIV #9001 BY 15\MULT #9001 BY 15\ADD 34 TO #9001
\IF #9001>120\MOVE 19 TO #9001\ENDIF
\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\+
\MOUSE W=17,34,17,144 R=1 F=0,1 L=17,#9001+15 A=1,15\+
\RUN MOUSE\MOVE E TO #9001
\X AFTERKEY
\CLEAR SCREEN
\IF #9001<49\MOVE 34 TO #9001\SHOW 0,0,3
\IF MEM_SIZE>720 OR O>20\CLEAR PICS\READ DEMO.TXT\ELSE
\READ HELLO.TXT\ELSE
\IF #9001<64\MOVE 49 TO #9001\READ HORSE5.TXT\ELSE
\IF #9001<79\MOVE 64 TO #9001\READ AIRPLANE.TXT\ELSE
\IF #9001<94\MOVE 79 TO #9001\READ HEART89.TXT\ELSE
\IF #9001<109\MOVE 94 TO #9001\READ PISTON.TXT\ELSE
\IF #9001<124\MOVE 109 TO #9001\READ SCRNCHGS.TXT\ELSE
\IF #9001<139\MOVE 124 TO #9001
\LOC 70,0\HEI 199\OVE 0,A,218\WID 180 DOTS C
Here's How P11 Works:
\DRAW J82,10,C5,R150
\LOC 0,20\WID 320 DOTS C\OVE 0,A,9
P11 is capable of many different types
of animation. By combining a powerful
command language with a full-featured
drawing program, P11 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 #9001
\JUMP GOODBY
\X SHOW_DONE
\LOC 14,30\WID 9 DOTS\SCRO 0,A,5\HEI 10\"1
\IF #1001=1
\LOC 14,30\WID 9 DOTS\SCRO 0,X,2\HEI 10\"1
\ENDIF
\LOC 14,45\WID 9 DOTS\SCRO 0,A,5\HEI 10\"2
\IF #1002=1
\LOC 14,45\WID 9 DOTS\SCRO 0,X,2\HEI 10\"2
\ENDIF
\LOC 14,60\WID 9 DOTS\SCRO 0,A,5\HEI 10\"3
\IF #1003=1
\LOC 14,60\WID 9 DOTS\SCRO 0,X,2\HEI 10\"3
\ENDIF
\LOC 14,75\WID 9 DOTS\SCRO 0,A,5\HEI 10\"4
\IF #1004=1
\LOC 14,75\WID 9 DOTS\SCRO 0,X,2\HEI 10\"4
\ENDIF
\LOC 14,90\WID 9 DOTS\SCRO 0,A,5\HEI 10\"5
\IF #1005=1
\LOC 14,90\WID 9 DOTS\SCRO 0,X,2\HEI 10\"5
\ENDIF
\LOC 14,105\WID 9 DOTS\SCRO 0,A,5\HEI 10\"6
\IF #1006=1
\LOC 14,105\WID 9 DOTS\SCRO 0,X,2\HEI 10\"6
\ENDIF
\LOC 14,120\WID 9 DOTS\SCRO 0,A,5\HEI 10\"7
\IF #1007=1
\LOC 14,120\WID 9 DOTS\SCRO 0,X,2\HEI 10\"7
\ENDIF
\LOC 14,135\WID 9 DOTS\SCRO 0,A,5\HEI 10\"8
\IF #1008=1
\LOC 14,135\WID 9 DOTS\SCRO 0,X,2\HEI 10\"8
\ENDIF
\RETURN
\X HELP\CLEAR SCREEN
\READ 081109PW.FON
\LOC 10,0\WID 310 DOTS\OVE 0,A,216\HEIGHT 18
            General Information
\DRAW J 0,11,C7,R320 C,D2C9R1L320
\LOC 10,15\HEI 179\OVE 0,A,227
                        Page 1 of 2
You can return to the main menu of this
tutorial at any time from any place in
the tutorial by pressing Function Key 10.
\"
Press "escape" anytime to exit to DOS.
\"
You can change the background screen color
to any of three choices.  To change the
background press the "up" or "down" arrows
on the numeric keypad.
\"
\"
Press any other key to continue . . .
\MOVE 0 TO U\MOVE 0 TO V
\X COLOR_CHOICES
\ON KEY 18488 JUMP COLOR_UP
\ON KEY 18432 JUMP COLOR_UP
\ON KEY 20480 JUMP COLOR_DOWN
\ON KEY 20530 JUMP COLOR_DOWN
\WAIT NOW 21444\JUMP COLOR_CONT
\X COLOR_UP
\IF U=0\MOVE 4 TO U\ELSE
\IF U=4\MOVE 8 TO U\ELSE
\IF U=8\MOVE 0 TO U\ENDIF
\JUMP SCREEN_COLOR
\X COLOR_DOWN
\IF U=4\MOVE 0 TO U\ELSE
\IF U=8\MOVE 4 TO U\ELSE
\IF U=0\MOVE 8 TO U\ENDIF
\JUMP SCREEN_COLOR
\X SCREEN_COLOR
\HUE C=0,0, S=U,U,U
\JUMP COLOR_CHOICES
\X COLOR_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,225
                        Page 2 of 2
If you have a compatible mouse input
device, P11 will recognize it.  You may
use any mouse button instead of the
"return" key at any time. The mouse can
also be used for cursor movement in many
places throughout the program.
\"
\"
\"
This program was written and produced
by Russell Hoffman, Bridgeport, CT.
\"
\"
\WAIT RET -1\LOC 10,15
\JUMP BEGIN
\X OTHERFNT\READ 081109PW.FON\BL 0,135,319,199\JUMP ENDITALL
\X GOODBY
\ON ERROR JUMP OTHERFNT
\READ SNOWRD09.FON\ON ERROR\BL 0,116,320,199
\X ENDITALL
\LOC 0,0\WID 320 DOTS C\OV 0\HEI 199
Thank you for watching our demo. We hope you enjoyed it!
\READ 081109PW.FON
\LOC 30,155\WID 260 DOTS C\OVE 0,A,12
Press F10 or the "return" key
to return to the demo. 
Any other key will return to DOS.
\ROUNDS -1 SPEE 33
\MOVE 0 TO #1001\MOVE 0 TO #1002
\MOVE 0 TO #1003\MOVE 0 TO #1004
\MOVE 0 TO #1005\MOVE 0 TO #1006
\MOVE 0 TO #1007
\ON KEY 7181 JUMP STAY
\ROUND -1 SPEE 8
\MARQ 45,153,272,190,2,13
\END
\X STAY\ON KEY 7181\JUMP BEGIN
\X POTPOURRI\MOVE 34 TO #9001\JUMP AFTERKEY
\X HORSEGAITS\MOVE 49 TO #9001\JUMP AFTERKEY
\X AIRWING\MOVE 64 TO #9001\JUMP AFTERKEY
\X HUMANHEART\MOVE 79 TO #9001\JUMP AFTERKEY
\X PISTON\MOVE 94 TO #9001\JUMP AFTERKEY
\X FIGURES\MOVE 109 TO #9001\JUMP AFTERKEY
\X HOWWORKS\MOVE 124 TO #9001\JUMP AFTERKEY
\END
