home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / system / lessons / version7 / mainmenu.txt < prev    next >
Text File  |  1992-10-04  |  9KB  |  170 lines
  1. \SCREEN M=18\READ GALLOPLR.PIC
  2. \CLEAR SCREEN\CLEAR SHOW\HEIGHT 444
  3. \READ 162018PW.FON\OVER 1
  4. \LOCATE 100,20\WID 440 DOTS CENTERED\OVERLAY 0\TEXT PLANE=0010\HEIGHT 480
  5. WELCOME!
  6. \"
  7. \TEXT PLANE=1110
  8. This is P11 Version 7!
  9. \"
  10. \TEXT PLANE=0110\WID 440 DOTS BOTH\LOC 110,100
  11. It runs in lots of VGA resolutions, but amazingly, it also runs in CGA on a plain 8088 PC with DOS 2.1!
  12. 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 nearly 100,000 lines of ASSEMBLER LANGUAGE code.  It's power is unmatched!
  13. \"
  14. \TEXT PLANE=1010
  15. AND NOW, INCREDIBLY, IT'S SHAREWARE!
  16. \LOCATE 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED
  17. Press <RETURN> to continue...
  18. \LINE 0,0,639,479,13,B
  19. \LINE 2,2,637,477,12,B
  20. \LINE 4,4,635,475,11,B
  21. \LINE 6,400,634,402,2,BF\LINE 6,403,634,404,10,BF
  22. \READ GALLOPLR.PIC\ON KEY 7181 JUMP PAGE2\ON KEY 14624 JUMP PAGE2
  23. \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
  24. \X PAGE2\ON KEY 7181\ON KEY 14624\BLANK 6,450,634,474
  25. \OVERLAY 0\LOC 60,20\TEXT PLANE=1111\WIDTH 520 DOTS CENTERED
  26. Here are just a few of the features:
  27. \"
  28. \TEXT PLANE=1110
  29. VGA, MCGA, ECGA and CGA resolutions!
  30. 2-color, 4-, 16-color screen modes up to 640 by 480 dots resolution, and 256-color screen mode with 320 by 200 dot resolution!
  31. \"
  32. 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!)
  33. \"
  34. Use a built-in multiframe picture editor to create the images.  Use the text editor to write interactive animated programs!
  35. \"
  36. \BLANK 6,340,634,449
  37. Free Run-Time version for marketing and distributing your creations!
  38. \"
  39. \LOC 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED\ON KEY 7181 JUMP PAGE2A\ON KEY 14624 JUMP PAGE2A
  40. Press <RETURN> to continue...
  41. \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
  42. \JUMP REMAN\X PAGE2A\ON KEY 7181\ON KEY 14624\BLANK 6,450,634,474
  43. \OVERLAY 0\LOC 60,20\TEXT PLANE=1111\WIDTH 520 DOTS CENTERED
  44. And don't forget these important extras!
  45. \"
  46. \TEXT PLANE=1110
  47. 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!
  48. \"
  49. 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!
  50. \"
  51. Complete documentation is provided, including reference guides, technical data, online help, and LOTS of fine examples!
  52. \"
  53. \BLANK 6,340,634,449
  54. \"
  55. \"
  56. \LOC 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED\ON KEY 7181 JUMP PAGE3\ON KEY 14624 JUMP PAGE3
  57. Press <RETURN> to continue...
  58. \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
  59. \JUMP RECAT\X PAGE3\BLANK 6,450,634,474\ON KEY 7181\ON KEY 14624
  60. \LOC 20,20\WIDTH 600 DOTS CENTERED\TEXT PLANE=1111
  61. HERE'S HOW IT WORKS:
  62. \"
  63. \TEXT PLANE=1110\LOC 60,60\WIDTH 520 DOTS CENTERED
  64. This is a sample screen from the picture editor.
  65. \"
  66. \TEXT PLANE=0110\BLANK 6,100,633,449
  67. 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!
  68. \READ PICEDIT7.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
  69. \ROUNDS 1000 SPEED 3\CLEAR SPRITES
  70. \SPRITE LOC=40,80 STRING=1,1 I=4,4\SPRINT 5\SPRITE LOC=26,64 PATH=5,1 X=A\SPRINT 4
  71. \LOC 60,450\TEXT PLANE=0100\WID 520 DOTS CENTERED
  72. Press <RETURN> to continue...
  73. \LOCATE 448,310\WIDTH 160 DOTS\TEXT PLANE=1011
  74. These drawing icons (dark blue) are shown smaller than actual size.
  75. \RUN\WAIT NOW -1\X PAGE4\ON KEY 7181\ON KEY 14624\BLANK 6,450,634,474
  76. \LOC 60,60\TEXT PLANE=1110\WIDTH 520 DOTS CENTERED
  77. The text editor lets you put your images and text together and allows user control of the action!
  78. You can make the text editor any size so you can still see your work as you modify it.
  79. \BLANK 6,177,634,449
  80. The text editor includes features like search/replace, block and line moves, and other useful tools!
  81. \TEXT PLANE=1011
  82. (The text editor shown below is smaller than actual size.)
  83. \READ TXTEDIT7.PIC\ON KEY 7181 JUMP PAGE10\ON KEY 14624 JUMP PAGE10
  84. \LOC 60,450\TEXT PLANE=0100
  85. Press <RETURN> to continue...
  86. \CLEAR SHOW\SHOW 120,-30,2
  87. \SHOW L=120,36 F=1,1 W=120,212,600,385\WAIT NOW 300
  88. \SHOW L=120,27 F=1,1\WAIT NOW 300
  89. \SHOW L=120,18 F=1,1\WAIT NOW 300
  90. \SHOW L=120,7 F=1,1\WAIT NOW 300
  91. \SHOW L=120,-3 F=1,1\WAIT NOW 300
  92. \SHOW L=120,-12 F=1,1\WAIT NOW 300
  93. \SHOW L=120,-21 F=1,1\WAIT NOW 300
  94. \CLEAR SHOW
  95. \ROUNDS 1 SPEED 1300\SHOW 120,-30,3,5
  96. \SHOW W=0,322,640,395 L=120,-39 F=5\BLANK 120,379,440,387\WAIT NOW 300
  97. \SHOW L=120,-48 F=5\BLANK 120,370,440,378\WAIT NOW 300
  98. \SHOW L=120,-57 F=5\BLANK 120,360,440,378\WAIT NOW 330
  99. \SHOW L=120,-67 F=5\BLANK 120,350,440,378\WAIT NOW 370
  100. \SHOW L=120,-78 F=5\BLANK 120,340,440,378\WAIT NOW 400
  101. \SHOW L=120,-87 F=5\BLANK 120,330,440,378\WAIT NOW 440
  102. \SHOW L=120,-92 F=5\BLANK 120,320,440,378\WAIT NOW 500
  103. \WAIT NOW -1\X PAGE10\ON KEY 7181\ON KEY 14624\TEXT PLANE=1110
  104. \BLANK 6,50,634,474\LOCATE 60,60\ON KEY 7181 JUMP PAGE12\ON KEY 14624 JUMP PAGE12
  105. The text files you create contain COMMANDS and TEXT.  Text is just displayed on the screen.  Commands control the flow of action.
  106. There are over 85 commands and literally thousands of options and possibilities!  A comprehensive, printable manual is included!
  107. \"
  108. Other file types include fonts, macros, data files and print files.  These allow you to create a complete interactive package!
  109. \"
  110. \TEXT PLANE=1010
  111. This program is a powerful PROFESSIONAL authoring system, but...IT'S SHAREWARE!
  112. \TEXT PLANE=1001\LOC 60,412\"PROUDLY DEVELOPED IN THE
  113. \TEXT PLANE=1001\LOC 60,430\"UNITED STATES OF AMERICA
  114. \LOC 60,450\WID 520 DOTS CENTERED\TEXT PLANE=0100
  115. Press <RETURN> to continue...
  116. \READ USA_FLAG.PIC\SAVE SCREEN\MOVE 640 TO H\MOVE 1 TO G\X LOOP1\WAIT NOW 33
  117. \SHOW W=8,0,632,470 L=H,350 F=G\ACTIVATE SCREEN 1\SHOW L=H,350 F=G\ACTIVATE SCREEN 0
  118. \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
  119. \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
  120. \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
  121. \RUN
  122. \WAIT NOW -1\X PAGE12\LOC 60,20\ON KEY 7181\ON KEY 14624\TEXT PLANE=1111\BLANK 6,450,634,474
  123. Here are the available commands:
  124. \"
  125. \"
  126. \LOC 60,64
  127. \TEXT PLANE=1001\BLANK 6,46,634,449
  128. ACTIVATE, ADD, APPEND, AUTHORITY, BEEP, BLANK, BREAK, BUILD, BUTTON, CALL, CALLM, CIRCLE, CLEAR, CLOCK, CLOSE, CONNECT, CONVERT, CRAWL, CURSOR, DATA, DELETE,
  129. DIGITIZER, DISPLAY, DIVIDE, DOT, DRAW, ELIMINATE, ELSE, END, ENDIF, ERROR, EXCHANGE, EXECUTE, FRAME, HEIGHT, HUE, IF, IN,
  130. JOYSTICK, JRCOLOR, JUMP, KEY, LENGTH, LINE, LOAD, LOCATE, MARQUE, MEMORY, MOUSE, MOVE, MULTIPLY, NAME, ON ERROR, ON KEY, OPEN, OUT,
  131. OVERLAY, PAINT, PASSWORD, PEN, PRINT, QUESTION, READ, RESTORE, RETURN, ROTATE, ROUNDS, RUN, SAVE, SCREEN, SCROLL, SET, SHOW, SOUND, SPRINT, SPRITE, SUBTRACT, TEXT, THEN, WAIT, WIDTH, WRITE, X, ZING, *, ", +
  132. \"
  133. \TEXT PLANE=1110\LOC 60,370\ON KEY 7181 JUMP PAGE15\ON KEY 14624 JUMP PAGE15
  134. That's quite a few, isn't it?  Don't worry, the manual explains them all!
  135. \TEXT PLANE=0100\LOC 60,450\"Press <RETURN> to continue...
  136. \X CRWLTEXT\CRAWL 2\LOC 60,419\TEXT PLANE=0010
  137.                              P11 was (and continues to be) written by Russell D. Hoffman and is Copyright 1984 to 1992.  This new shareware version is complete--you do not need to register to get a better version (new releases notwithstanding.)
  138.   THIS is the biggest and best animation/multimedia program around!
  139. \JUMP CRWLTEXT\X PAGE15\ON KEY 7181\ON KEY 14624\OVER 1
  140. \BLANK 6,450,634,474\LOC 60,20\READ SMALLPST.PIC\TEXT PLANE=1111\WID 520 DOTS CENTERED
  141. HERE'S A SERIES OF 24 FRAMES...
  142. \"
  143. \"
  144. \"
  145. \BLANK 6,40,634,450
  146. \CLEAR SHOW\ROUNDS 1 SPEED 0\SHOW L=30,45 M=24,0 F=1,24
  147. ...AND HERE IS A LITTLE COMMAND FILE...
  148. \LOC 90,140\WIDTH 500 DOTS\TEXT PLANE=1101
  149. \"\READ SMALLPST.PIC
  150. \"\ROUNDS 1000 SPEED 33
  151. \"\SHOW LOCATION=290,245 FRAMES=1,24
  152. \"
  153. \TEXT PLANE=1111
  154. ...And here are those commands in action!
  155. \"
  156. \"
  157. \"
  158. \TEXT PLANE=1011
  159. 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!
  160. \LOC 60,418\WID 520 DOTS CENTERED\TEXT PLANE=1110
  161. IT'S THAT SIMPLE!
  162. \CLEAR SHOW\ROUNDS 1000 SPEED 33\ON KEY 7181 JUMP PAGE18\ON KEY 14624 JUMP PAGE18
  163. \SHOW LOCATION=290,245 FRAMES=1,24
  164. \CALL WAITANDRET\BLANK 6,450,634,474
  165. \X PAGE18\READ LEARNIT2.TXT
  166. \X WAITANDRET\LOC 60,450\WID 520 DOTS CENTERED\TEXT PLANE=0100\WAIT NOW 211
  167. Press <RETURN> to continue...
  168. \WAIT NOW -1\BLANK 6,450,634,474\LOC 60,100\RETURN
  169.  
  170.