\ON KEY 4096 JUMP ENDITALL
\LENGTH #9301\IF A=0\MOVE 'LESSONS.TXT' TO #9301\MOVE 'EXIT' TO #9302\ELSE\LENGTH #9302\IF A>0\IF #9302="EXIT"\JUMP ENDITALL\ELSE\ELSE\MOVE 'EXIT' TO #9302\ENDIF
\SCREEN M=18\READ GALLOPLR.PIC
\CLEAR SCREEN\CLEAR SHOW\HEIGHT 444
\READ 162018PW.FON\OVER 1
\LOCATE 100,20\WID 440 DOTS CENTERED\OVERLAY 0\TEXT PLANE=0010\HEIGHT 480
WELCOME!
\"
\TEXT PLANE=1110
This is P11 Version 8!
\"
\TEXT PLANE=0110\WID 440 DOTS BOTH\LOC 110,100
It runs in SVGA, VGA, EGA, and, amazingly, it also runs in CGA on a plain 8088 PC with DOS 2.1!
The P11 project started in 1984, and has customers in 40 countries.  It is the culmination of 10's of thousands of hours of programming effort, and comprises over 100,000 lines of ASSEMBLER LANGUAGE code.  It's power is unmatched!
\"
\TEXT PLANE=1010
AND NOW, INCREDIBLY, IT'S SHAREWARE!
\LOCATE 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED
Press <RETURN> to continue...
\LINE 0,0,639,479,13,B
\LINE 2,2,637,477,12,B
\LINE 4,4,635,475,11,B
\LINE 6,400,634,402,2,BF\LINE 6,403,634,404,10,BF
\READ GALLOPLR.PIC\ON KEY 7181 JUMP PAGE2\ON KEY 14624 JUMP PAGE2
\X REHORSE\ROUNDS 122 SPEED 15\CLEAR SPRITES\SPRITE L=-70,331 A=1 M=8,0 W=6,0,634,450\SPRINT 1 TO 15\RUN\JUMP REHORSE
\X PAGE2\ON KEY 7181\ON KEY 14624\BLANK 6,450,634,474
\OVERLAY 0\LOC 60,20\TEXT PLANE=1111\WIDTH 520 DOTS CENTERED
Here are just a few of the features:
\"
\TEXT PLANE=1110
SVGA, VGA, MCGA, ECGA and CGA resolutions!
2-color, 4-, 16-color screen modes up to 800 by 600 dots resolution, and 256-color screen modes up to 1024 by 768 dots resolution!
\"
Animate over 8,000 images, at over 1,000 frames-per-second (WOW!!)  Animate from DISK or from RAM, or from EXPANDED MEMORY, CD-ROM, even DISKETTES! (YECCH!)
\"
Use a built-in multiframe picture editor to create the images.  Use the text editor to write interactive animated programs!
\"
\BLANK 6,340,634,449
Free Run-Time version for marketing and distributing your creations!
\"
\LOC 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED\ON KEY 7181 JUMP PAGE2A\ON KEY 14624 JUMP PAGE2A
Press <RETURN> to continue...
\X REMAN\ROUNDS 101 SPEED 31\READ MEDMANRN.PIC\CLEAR SPRITES\SPRITE W=8,0,633,450 M=8,0 F=Y A=1 L=-30,385\SPRINT 1 TO 11\RUN
\JUMP REMAN\X PAGE2A\ON KEY 7181\ON KEY 14624\BLANK 6,450,634,474
\OVERLAY 0\LOC 60,20\TEXT PLANE=1111\WIDTH 520 DOTS CENTERED
And don't forget these important extras!
\"
\TEXT PLANE=1110
You can do very complex animation sequences using paths, windows, start- and stop-points, and many other possibilities!  You can also do animation quickly and easily, using just ONE command!
\"
Utility programs are included for adding animation to other software, for HP Laserjet (tm) printing, for displaying ".PCX" images, and a "TSR" program for screen capture!
\"
Complete ONLINE documentation is provided, including reference guides, command syntax guides, technical data, key help and LOTS of fine examples!
\"
\BLANK 6,340,634,449
\"
\"
\LOC 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED\ON KEY 7181 JUMP PAGE3\ON KEY 14624 JUMP PAGE3
Press <RETURN> to continue...
\X RECAT\ROUNDS 101 SPEED 25\READ CATGALOP.PIC\CLEAR SPRITES\SPRITE W=8,0,633,450 M=8,0 F=Y A=1 L=-70,385\SPRINT 1 TO 11\RUN
\JUMP RECAT\X PAGE3\BLANK 6,450,634,474\ON KEY 7181\ON KEY 14624
\LOC 20,20\WIDTH 600 DOTS CENTERED\TEXT PLANE=1111
HERE'S HOW IT WORKS:
\"
\TEXT PLANE=1110\LOC 60,60\WIDTH 520 DOTS CENTERED
This is a sample screen from the picture editor.
\"
\TEXT PLANE=0110\BLANK 6,100,633,449
You can edit any and all of the frames in the file, with powerful features like onion skin, zoom, masking, vector images, tilt, flip, scale, and more!
\READ PICEDIT8.PIC\SHOW 108,180,1\SHOW 108,180,2\SHOW 108,170,3\SAVE SCREEN\ON KEY 7181 JUMP PAGE4\ON KEY 14624 JUMP PAGE4
\ROUNDS 1000 SPEED 3\CLEAR SPRITES
\SPRITE LOC=40,80 STRING=1,1 I=4,4\SPRINT 5\SPRITE LOC=26,64 PATH=5,1 X=A\SPRINT 4
\LOC 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED
Press <RETURN> to continue...
\LOCATE 448,310\WIDTH 160 DOTS\TEXT PLANE=1011
These drawing icons (dark blue) are shown smaller than actual size.
\RUN\WAIT NOW -1\X PAGE4\ON KEY 7181\ON KEY 14624\BLANK 6,450,634,474
\LOC 60,60\TEXT PLANE=1110\WIDTH 520 DOTS CENTERED
The text editor lets you put your images and text together and allows user control of the action!
You can make the text editor any size so you can still see your work as you modify it.
\BLANK 6,177,634,449
The text editor includes features like search/replace, block and line moves, and other useful tools!
\TEXT PLANE=1011
(The text editor shown below is smaller than actual size.)
\READ TXTEDIT8.PIC\ON KEY 7181 JUMP PAGE10\ON KEY 14624 JUMP PAGE10
\LOC 60,450\TEXT PLANE=0100
Press <RETURN> to continue...
\CLEAR SHOW\SHOW L=120,-30 F=1,1 W=120,390,600,480
\SHOW L=120,36 F=1,1 W=120,212,600,385\WAIT NOW 300
\SHOW L=120,27 F=1,1\WAIT NOW 300
\SHOW L=120,18 F=1,1\WAIT NOW 300
\SHOW L=120,7 F=1,1\WAIT NOW 300
\SHOW L=120,-3 F=1,1\WAIT NOW 300
\SHOW L=120,-12 F=1,1\WAIT NOW 300
\SHOW L=120,-21 F=1,1\WAIT NOW 300
\CLEAR SHOW
\ROUNDS 1 SPEED 1300\SHOW 120,-30,2,4
\SHOW W=0,322,640,395 L=120,-39 F=4\BLANK 120,379,440,387\WAIT NOW 300
\SHOW L=120,-48 F=4\BLANK 120,370,440,378\WAIT NOW 300
\SHOW L=120,-57 F=4\BLANK 120,360,440,378\WAIT NOW 330
\SHOW L=120,-67 F=4\BLANK 120,350,440,378\WAIT NOW 370
\SHOW L=120,-78 F=4\BLANK 120,340,440,378\WAIT NOW 400
\SHOW L=120,-87 F=4\BLANK 120,330,440,378\WAIT NOW 440
\SHOW L=120,-92 F=4\BLANK 120,320,440,378\WAIT NOW 500
\WAIT NOW -1\X PAGE10\ON KEY 7181\ON KEY 14624\TEXT PLANE=1110
\BLANK 6,50,634,474\LOCATE 60,60\ON KEY 7181 JUMP PAGE12\ON KEY 14624 JUMP PAGE12
The text files you create contain COMMANDS and TEXT.  Text is just displayed on the screen.  Commands control the flow of action.
There are over 85 commands and literally thousands of options and possibilities!  Online, comprehensive, printable manuals are included!
\"
Other file types include fonts, macros, data files and print files.  These allow you to create a complete interactive package!
\"
\TEXT PLANE=1010
This program is a powerful PROFESSIONAL authoring system, but...IT'S SHAREWARE!
\TEXT PLANE=1001\LOC 60,412\"PROUDLY DEVELOPED IN THE
\TEXT PLANE=1001\LOC 60,430\"UNITED STATES OF AMERICA
\LOC 60,450\WID 520 DOTS CENTERED\TEXT PLANE=0100
Press <RETURN> to continue...
\ON ERROR JUMP NOFLAG
\READ USA_FLAG.PIC\SAVE SCREEN\MOVE 640 TO H\MOVE 1 TO G\X LOOP1\WAIT NOW 33
\SHOW W=8,0,632,470 L=H,350 F=G\ACTIVATE SCREEN 1\SHOW L=H,350 F=G\ACTIVATE SCREEN 0
\ADD 1 TO G\IF G>24\MOVE 1 TO G\ENDIF\ADD -8 TO H\IF H>-40\JUMP LOOP1\ENDIF\ROUNDS -1 SPEED 33\SAVE SCREEN
\CLEAR SPRITES\SPRITE F=Y L=44,412 A=1\SPRINT 1,3 TO 5,7 TO 11,13 TO 15,17 TO 23,1 TO 4,6,8 TO 14, 16 TO 20, 24
\SPRITE L=4000,4000 A=NO\SPRINT 1\SPRITE L=536,412 A=1\SPRINT 12 TO 20,22 TO 24,1 TO 11,13 TO 16, 19 TO 22,24,2 TO 5,8 TO 10
\RUN\JUMP PAGE12\X NOFLAG\CLEAR PICS\APPEND USA_FLAG.PIC 11,11\SHOW 290,335,1
\WAIT NOW -1\X PAGE12\CLEAR PICS\CLEAR ON ERROR\LOC 60,20\ON KEY 7181\ON KEY 14624\TEXT PLANE=1111\BLANK 6,450,634,474
Here are the available commands:
\"
\"
\LOC 60,64
\TEXT PLANE=1001\BLANK 6,46,634,449
ACTIVATE, ADD, APPEND, AUTHORITY, BEEP, BLANK, BREAK, BUILD, BUTTON, CALL, CALLM, CIRCLE, CLEAR, CLOCK, CLOSE, CONNECT, CONVERT, CRAWL, CURSOR, DATA, DELETE,
DIGITIZER, DISPLAY, DIVIDE, DOT, DRAW, ELIMINATE, ELSE, END, ENDIF, ERROR, EXCHANGE, EXECUTE, FRAME, HEIGHT, HUE, IF, IN,
JOYSTICK, JRCOLOR, JUMP, KEY, LENGTH, LINE, LOAD, LOCATE, MARQUE, MEMORY, MOUSE, MOVE, MULTIPLY, NAME, ON ERROR, ON KEY, OPEN, OUT,
OVERLAY, PAINT, PASSWORD, PEN, PRINT, QUESTION, READ, RESET, RESTORE, RETURN, ROTATE, ROUNDS, RUN, SAVE, SCREEN, SCROLL, SET, SHOW, SOUND, SPRINT, SPRITE, SUBTRACT, TEXT, THEN, WAIT, WIDTH, WRITE, X, ZING, *,",+
\"
\TEXT PLANE=1110\LOC 60,370\ON KEY 7181 JUMP PAGE15\ON KEY 14624 JUMP PAGE15
That's quite a few, isn't it?  Don't worry, the manual explains them all!
\TEXT PLANE=0100\LOC 60,450\"Press <RETURN> to continue...
\X CRWLTEXT\CRAWL 2\LOC 60,419\TEXT PLANE=0010
                             P11 was (and continues to be) written by Russell D. Hoffman and is Copyright 1984 to 1993.  This new shareware version is complete--you do not need to register to get a better version (new releases notwithstanding.)
  THIS is the biggest and best animation/multimedia program around!
\JUMP CRWLTEXT\X PAGE15\ON KEY 7181\ON KEY 14624\OVER 1
\BLANK 6,450,634,474\LOC 60,20\READ SMALLPST.PIC\TEXT PLANE=1111\WID 520 DOTS CENTERED
HERE'S A SERIES OF 24 FRAMES...
\"
\"
\"
\BLANK 6,40,634,450
\CLEAR SHOW\ROUNDS 1 SPEED 0\SHOW L=30,45 M=24,0 F=1,24
...AND HERE IS A LITTLE COMMAND FILE...
\LOC 90,140\WIDTH 500 DOTS\TEXT PLANE=1101
\"\READ SMALLPST.PIC
\"\ROUNDS 1000 SPEED 33
\"\SHOW LOCATION=290,245 FRAMES=1,24
\"
\TEXT PLANE=1111
...And here are those commands in action!
\"
\"
\"
\TEXT PLANE=1011
The file SMALLPST.PIC was \READ, the desired number of cycles (\ROUNDS) and the SPEED were set, and then frames 1 through 24 were shown at location 290 on the X axis and 245 on the Y axis of the screen!
\LOC 60,418\WID 520 DOTS CENTERED\TEXT PLANE=1110
IT'S THAT SIMPLE!
\CLEAR SHOW\ROUNDS 1000 SPEED 33\ON KEY 7181 JUMP PAGE18\ON KEY 14624 JUMP PAGE18
\SHOW LOCATION=290,245 FRAMES=1,24
\CALL WAITANDRET\BLANK 6,450,634,474
\X ENDITALL\IF #9302='EXIT'\JUMP ENDIT\ENDIF\READ (#9301)\ENDIT\END
\X PAGE18\READ LEARNIT2.TXT\X ENDIT\END
\X WAITANDRET\LOC 60,450\WID 520 DOTS CENTERED\TEXT PLANE=0100\WAIT NOW 211
Press <RETURN> to continue...
\WAIT NOW -1\BLANK 6,450,634,474\LOC 60,100\RETURN

