\X FIRST\CALL SETUP\CALL SET_ONKEYS
\X START2\LOC 0,189\WID 320 C\HEI 11\SCRO 0,X,44\MOVE 34 TO #9001
F1-Help.                F10-Main Menu.
\JUMP FRST
\X SCN1\ON KEY 7181
\X FRST\MOVE 1 TO #1001
\CLEAR SPRITES\SPRITE F=Y L=-180,107 A=2 M=5,0 \SPRINT 1 TO 15
\SPRITE L=-120,-120 A=NO M=0,0\SPRINT 1\SPRITE L=-91,11 M=2,0 A=3 R=0,290
\SPRINT 31 TO 37
\SPRITE L=-120,-120 A=NO M=0,0\SPRINT 1
\SPRITE R=293,328 A=8 L=138,27
\SPRINT 148 TO 152
\SPRITE L=-120,-120 A=NO M=0,0\SPRINT 1
\SPRITE M=6,0 E=124,0,128,200 F=Y
\SPRITE L=-68,52 R=40,-1\SPRINT 38
\SPRITE L=-68,54 R=50,-1\SPRINT 40
\SPRITE L=-68,56 R=60,-1\SPRINT 42
\SPRITE L=-68,58 R=70,-1\SPRINT 44
\SPRITE L=-68,64 R=80,-1\SPRINT 46
\SPRITE L=-68,66 R=90,-1\SPRINT 48
\SPRITE L=-68,68 R=100,-1\SPRINT 50
\SPRITE M=-6,0 LOC=328,53 R=45,-1 E=120,1,125,199\SPRINT 39
\SPRITE L=328,55 R=55,-1\SPRINT 41
\SPRITE L=328,57 R=65,-1\SPRINT 43
\SPRITE L=328,63 R=75,-1\SPRINT 45
\SPRITE L=328,65 R=85,-1\SPRINT 47
\SPRITE L=328,67 R=95,-1\SPRINT 49
\SPRITE L=328,69 R=105,-1\SPRINT 51
\*PRITE A=3 L=-78,95 M=2,0 X=NO R=175,-1 F=Y\SPRINT 16 TO 30
\SHOW L=0,0 F=153,153 W=0,0,319,188
\SAVE SCRE\ON KEY 7181\MOVE 0 TO B\ROUNDS 10 SPEED 14\RUN
\ROUNDS 359 SPEED 14\ON KEY 7181 JUMP SCN2\MOVE 0 TO B\RUN FROM C
\X SCN2\ON KEY 7181\+
\IF C>137\JUMP NEXT3\ENDIF\+
\IF B=7181 OR F>0\BL 0,152,320,188\ENDIF
\X NEXT3\CLEAR SPRITES
\SPRITE P=54,1 M=0,0 L=20,111 T=R K=N R=1,-1 F=N\SPRINT 56
\SPRITE P=53,1 L=230,111\SPRINT 56\SPRITE P=54,8 L=20,111\SPRINT 57
\SPRITE P=53,8 L=230,111\SPRINT 57\SPRITE P=54,16 L=20,111\SPRINT 55
\SPRITE P=53,16 L=230,111\SPRINT 55
\SPRITE P=54,1 M=0,0 L=20,15 T=R K=N R=1,-1 F=N\SPRINT 55
\SPRITE P=53,1 L=230,15\SPRINT 55\SPRITE P=54,8 L=20,15\SPRINT 56
\SPRITE P=53,8 L=230,15\SPRINT 56\SPRITE P=54,15 L=20,15\SPRINT 57
\SPRITE P=53,15 L=230,15\SPRINT 57
\SPRITE L=-20,91 M=7,0 A=2 T=R E =273,0,330,199 P=NO F=N W=60,0,273,199
\SPRINT 58 TO 69
\SPRITE L=77,140 W=126,110,186,199 M=3,0 R=40,58 P=NO X=A K=Y A=NO\SPRINT 52
\SPRITE L=185,140 M=-3,0\SPRINT 113
\BL 0,0,320,9\BL 0,10,115,100\BL 208,10,320,120
\BL 0,95,320,188
\LOC 116,10\OVE 0,A,223\HEI 111\WID 104 DOTS
P11 makes it easy to write educational tutorials, cartoons, demos 
and much more!
\"
\"
\ON KEY 7181\ROUNDS 11 SPE 38\RUN
\ROUNDS 170 SPE 38\ON KEY 7181 JUMP SCN3\RUN FROM C
\X SCN3\ON KEY 7181\+
\IF B=7181 OR F>0\BL 60,96,273,121\ENDIF\+
\IF C<93\BL 120,140,186,172\ENDIF\+
\LOC 116,10\OVE 0,A,217\HEI 111\WID 105 DOTS
P11 combines    a powerful command language with unique graphics capabilities!
\CLEAR SPRITES
\SPRITE L=10,21 A=1 F=Y\SPRINT 70 TO 80
\SPRITE A=NO L=-111,-111\SPRINT 1\SPRITE L=224,30 A=3\SPRIN 81 TO 94,144 TO 147
\SPRITE P=54,8 M=0,0 L=20,111 T=R K=N R=1,-1 F=N A=NO\SPRINT 55
\SPRITE P=53,8 L=230,111\SPRINT 55\SPRITE P=54,16 L=20,111\SPRINT 56
\SPRITE P=53,16 L=230,111\SPRINT 56\SPRITE P=54,1 L=20,111\SPRINT 57
\SPRITE P=53,1 L=230,111\SPRINT 57
\SPRITE P=NO M=2,0 L=100,136 R=30,83 X=N A=NO Z=124,137,115\SPRINT 114
\SPRITE M=0,-3 L=124,137 W=120,135,210,180 R=157,170\SPRINT 115
\ROUN 9 SPEE 35\ON KEY 7181\RUN
\ROUN 180\ON KEY 7181 JUMP SCN4\RUN FROM C
\X SCN4\ON KEY 7181\+
\LOC 116,10\OVE 0,A,227\HEI 111\WID 100 DOTS
Animate over 8000 frames, draw paths for animation to follow, and many other
techniques available!
\BL 0,0,115,188\BL 227,0,320,188
\CLEAR SPRITES\+
\BL 120,135,210,167\SHOW 0,151,101
\SPRITE L=64,153 M=,-3 R=1,-1 W=0,15,319,153 F=Y\SPRINT 102
\SPRITE L=60,153 A=1 M=0,-3 R=12,-1 \SPRINT 97 TO 99
\SPRITE A=NO L=-111,-111\SPRINT 1
\SPRITE L=246,168 M=,-2 R=4,-1 W=0,15,319,162\SPRINT 103
\SPRITE L=250,168 A=1 M=0,-2 R=17,-1\SPRINT 123 TO 125
\SPRITE A=NO L=-111,-111\SPRINT 1
\SPRITE L=11,159 M=0,-3 R=11,-1 W=0,15,319,153\SPRINT 104
\SPRITE L=7,159 A=1 M=0,-3 R=39,-1\SPRINT 97,98
\SPRITE A=NO L=-111,-111\SPRINT 1
\SPRITE L=284,162 M=0,-3 R=55,-1 W=0,15,319,156\SPRINT 105
\SPRITE L=279,162 A=1 M=0,-3 R=90,-1\SPRINT 116 TO 117
\SPRITE A=NO L=-111,-111\SPRINT 1
\SPRITE L=244,168 M=0,-4 R=89,-1 W=0,15,319,162\SPRINT 106
\SPRITE L=244,168 A=1 M=0,-4 R=100,-1\SPRINT 97 TO 98
\SPRITE A=NO L=-111,-111\SPRINT 1
\SPRITE L=64,153 M=0,-2 R=44,-1 W=0,15,319,153\SPRINT 108
\SPRITE L=60,153 A=1 M=0,-2 R=78,-1\SPRINT 97 TO 98
\SPRITE L=-111,-111 A=NO\SPRINT 1
\SPRITE L=11,154 M=0,-3 R=80,-1 W=0,15,319,153\SPRINT 109
\SPRITE L=7,154 A=1 M=0,-3 R=95,-1\SPRINT 118,117,116
\SPRITE A=NO S=1,6 M=0,0 R=1,-1 L=0,8 I=18,18\SPRINT 119
\ROUNDS 9 SPEED 33\ON KEY 7181\RUN
\ROUNDS 175\ON KEY 7181 JUMP SCN5\RUN FROM C
\X SCN5\CLEAR SPRITES\LOC 116,10\OVE 0,A,228\HEI 111\WID 100 DOTS\ON KEY 7181\+
\BL 0,0,108,63\BL 202,0,320,63\BL 0,64,320,188
Multiple windows can 
be placed anywhere on the screen!
\SPRITE P=121,1 W=20,149,154,182 L=-219,-31 T=R F=Y R=1,24\SPRINT 120
\SPRITE L=20,149 R=24,24 X=NO F=Y P=NO\SPRINT 126
\SPRITE A=1 M=4,0 L=-60,150 R=24,197 P=NO T=R E=168,0,320,199
\SPRINT 58 TO 69
\SPRITE P=121,81 W=10,0,95,76 L=-199,-161 T=R A=NO R=5,35 M=0,0 E=0,0,-1,-1
\SPRINT 120
\SPRITE L=16,2 R=35,35 X=NO F=Y P=NO\SPRINT 126
\SPRITE A=3 L=10,0 W=0,0,319,199 R=36,210\SPRINT 16 TO 30
\SPRITE P=121,11 W=220,70,249,148 L=-29,-60 T=R R=7,50 A=NO\SPRINT 120
\SPRITE L=220,70 R=50,50 X=NO F=Y P=NO\SPRINT 126
\SPRITE P=121,11 W=186,149,319,182 L=-29,-60 T=R R=7,50\SPRINT 120
\SPRITE L=186,149 R=50,50 X=NO F=Y P=NO\SPRINT 126
\SPRITE L=162,153 R=50,50 F=NO\SPRINT 101
\SPRITE M=0,-3 L=226,155 W=0,58,319,155 R=56,-1 F=Y\SPRINT 107
\SPRITE A=1 R=69,-1 L=222,155\SPRINT 116,118,117
\SPRITE M=0,-3 L=226,155 A=NO R=123,-1\SPRINT 102
\SPRITE A=1 R=134,-1 L=222,155\SPRINT 98 TO 99
\SPRITE P=121,51 W=223,10,316,55 L=19,-161 T=R R=10,72 A=NO M=0,0\SPRINT 120
\SPRITE L=223,10 R=72,72 X=NO F=Y P=NO\SPRINT 126
\SPRITE A=5 L=208,10 R=72,-1\SPRINT 31 TO 37
\SPRITE P=121,31 W=120,82,200,136 L=-111,-49 T=R R=1,24 M=0,0 A=NO
\SPRITE S=1,20 I=80,80 L=116,74 R=15,71 X=NO F=Y P=NO T=N\SPRINT 127
\SPRITE S=1,16 I=48,48 R=82,160 X=A K=NO\SPRINT 127
\SPRITE S=1,30 I=120,120 R=160,202 X=Y T=NO\SPRINT 127
\SPRITE P=121,41 W=28,86,89,134 L=-169,-79 T=R R=13,92 X=N F=Y Z=NO\SPRINT 120
\SPRITE L=28,86 R=92,92 X=NO F=Y P=NO\SPRINT 126
\SPRITE P=53,3 M=0,0 L=20,70 T=R K=N R=95,-1 F=N\SPRINT 56
\SPRITE P=53,11\SPRINT 57\SPRITE P=53,19\SPRINT 55
\SPRITE P=121,71 W=258,86,313,134 L=39,-79 T=R R=13,92 F=Y\SPRINT 120
\SPRITE L=258,86 R=92,92 X=NO P=NO\SPRINT 126
\SPRITE P=54,3 M=0,0 L=242,70 T=R K=N R=95,-1 F=N\SPRINT 56
\SPRITE P=54,11\SPRINT 57\SPRITE P=54,19\SPRINT 55
\ROUNDS 9 SPEED 25\RUN
\ROUND 217\ON KEY 7181 JUMP SCN6\RUN FROM C
\X SCN6\ON KEY 7181\LOC 116,10\OVE 0,A,225\HEI 111\WID 99 DOT
Create your own ways to place images on the screen!
\"
\BL 0,0,99,148\BL 0,149,179,188\BL 219,0,319,129\BL 180,130,319,184\+
\BL 100,0,114,68\BL 210,0,319,68\BL 70,63,248,188\MOVE 102 TO Q
\ROUNDS 226 SPE 1
\CLEAR SPRITES\SPRITE WPATH=142,1 W=0,0,5,5 F=Y L=Q+2,68\SPRINT 129\RUN
\ROUNDS 736 SPEED 1\ON KEY 7181 JUMP MENU\RUN FROM C
\ROUNDS 510 SPEE 15\CLEAR SPRITES
\SPRITE Z=Q+2,68,128 M=4,0 L=40,68 R=11,60 F=Y W=0,0,222,127\SPRINT 134
\SPRITE W=0,128,222,189 M=-4,0 R=51,110 L=228,128\SPRINT 134
\SPRITE Z=Q+2,68,130 W=0,0,161,130 M=0,-1 L=101,126 R=120,240\SPRINT 138
\SPRITE W=0,131,161,199 M=0,1 L=103,103\SPRINT 139
\SPRITE W=161,130,222,199 M=0,1 L=160,100\SPRINT 138
\SPRITE W=161,0,222,130 M=0,-1 L=162,130\SPRINT 139
\SPRITE Z=Q-4,68,131 M=0,1 L=96,12 W=50,68,231,184 R=240,296\SPRIN 135
\SPRITE M=0,1 L=96,66\SPRINT 135
\SPRITE M=0,1 L=96,118\SPRINT 135
\SPRITE L=72,68 M=0,0 Z=NO R=310,368 F=NO W=160,125,161,126 OPEN=-2,-1,2,1
\SPRINT 143
\SPRITE M=1,0 R=377,-1 OPEN=0,0,0,0
\SPRITE W=72,68,247,128 L=48,68\SPRINT 141
\SPRITE W=72,129,159,188 L=160,128 M=-1,0\SPRINT 141
\SPRITE W=72,68,247,128 L=250,68 M=-1,0\SPRINT 141
\SPRITE W=159,129,247,188 L=139,129 M=1,0\SPRINT 141
\ON KEY 7181 JUMP MENU\RUN\JUMP SCN1
\X SETUP\READ 081109PW.FON\CLEAR ON KEYS
\FRAME ?\IF A>152\JUMP SETUP2\ENDIF
\MOVE 0 TO B
\X DEL_FRMS\CLEAR PICS
\IF B=17408\JUMP MENU\ENDIF
\READ MASKHORS.PIC\APPE DSYREAL3.PIC 1,15
\APPE MADEUSA.PIC 1,27\APPE CATGALOP.PIC 1,12
\APPE MANRUNNG.PIC 1,11\APPE BACKFLIP.PIC 1,14\APPE ROCKETS2.PIC 1,33
\APPE BOATS.PIC 1,14\APPE MATRIX01.PIC 1,1\APPE GRANTANK.PIC 1,1
\APPE BACKFLIP.PIC 15,18\APPE MADEUSA.PIC 29,34
\IF B=0\WAIT NOW 555\ELSE\IF B=17408\JUMP MENU\ELSE
\IF B=7181\JUMP SETUP2\ENDIF\ON KEY F10 JUMP MENU
\X SETUP2\RETURN
\X HELP_KEY\CALL ONKEYS_OFF
\LOC 0,0\WID 320 DOT\HEI 199\OVE 0,A,218
    This demo was created with P11, and is
    being shown with the run-time version,
    P11RUN.  Both programs are part of the
    P11 package.  P11 includes a Screen
    Capture Utility and a small utility that
    can be called from other programs so you
    can add animation anywhere it's needed!
\OVE 0,X\LOC 70,83\WID 175 DOTS C
\LINE 0,76,320,117,0,BF\LINE 62,84,246,104,1,BF
TO PRINT AN ORDER FORM,
PRESS FUNCTION KEY 2
\LOC 0,107\OVE 0,A,218\WID 320 DOTS
    Return to the main menu any time by
    pressing Function Key 10.
    To advance through the demo, press
    return, or any mouse button.
    Function Key 1 is "help".
    Use the "escape" key to end the demo
    and return to DOS.
\LOC 0,187\BL 0,183,320,199\WID 320 DOT C
Press any key to continue...
\ROUNDS 1666 SPEED 28
\MARQUE 64,186,253,198,23\BL 46,187,269,199
\CALL SET_ONKEYS\JUMP START2
\X SET_ONKEYS\ON KEY F1 JUMP HELP_KEY\+
\ON KEY F2 JUMP PRINT_ORDER\ON KEY F10 JUMP MENU\+
\ON KEY 561 JUMP SC1\ON KEY 818 JUMP SC2\+
\ON KEY 1075 JUMP SC3\ON KEY 1332 JUMP SC4\+
\ON KEY 1589 JUMP SC5\ON KEY 1846 JUMP SC6\+
\RETURN
\X PRINT_ORDER\ON KEY 7181
\CALLM PRINT_ORDER\CALL SET_ONKEYS
\JUMP START2
\X ONKEYS_OFF\ON KEY F1\ON KEY 561\ON KEY 818\+
\ON KEY 1075\ON KEY 1332\ON KEY 1589\ON KEY 1846\ON KEY 7181\RETURN
\X SC1\JUMP SCN1
\X SC2\BL 0,0,320,188\JUMP SCN2
\X SC3\BL 0,0,320,188\JUMP SCN3
\X SC4\BL 0,0,320,188\JUMP SCN4
\X SC5\BL 0,0,320,188\JUMP SCN5
\X SC6\BL 0,0,320,188\JUMP SCN6
\X MENU\READ MENU.TXT
