home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe 1 / Pegasus_Graphics_Universe.iso / p11 / demo / mcgademo / hello.txt < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.8 KB  |  39 lines
  1. \READ AMAZING.PIC\CLEAR SHOW\ON KEY F10 JUMP MENU
  2. \LOC 0,111\WID 320 DOTS\HEI 199\OVE 1\WAIT NOW #1142/6
  3. \BLANK 0,0,319,115\SHOW 0,-40,1\LOC 0,116
  4. Use Function Key 10 to return
  5. to the main menu at any time
  6. while viewing this demonstration.
  7. \"
  8. \LOC 0,156
  9. Use <RETURN> to advance the demo.
  10. \BLANK 0,165,320,199\CLEAR PICS\MOVE 1 TO #1001
  11. \ON ERROR JUMP WAYTOOSMALL\APPEND MADEUSA.PIC 1,28\CLEAR ON ERROR
  12. \ON KEY 7181 JUMP SCN1\CLEAR SPRITES\ROUNDS 350 SPEED 12
  13. \SPRITE F=Y L=188,61 A=5 R=0,-1\SPRINT 1 TO 7
  14. \SPRITE L=-120,-120 A=NO\SPRINT 1
  15. \SPRITE M=6,0 E=180,99,183,200 X=A K=Y F=N
  16. \SPRITE L=-11,177 R=10,-1\SPRINT 8\SPRITE L=-11,179 R=20,-1\SPRINT 10
  17. \SPRITE L=-11,181 R=30,-1\SPRINT 12\SPRITE L=-11,183 R=40,-1\SPRINT 14
  18. \SPRITE L=-11,189 R=50,-1\SPRINT 16\SPRITE L=-11,191 R=60,-1\SPRINT 18
  19. \SPRITE L=-11,193 R=70,-1\SPRINT 20
  20. \SPRITE M=-6,0 LOC=373,178 R=15,-1\SPRINT 9
  21. \SPRITE L=373,180 R=25,-1\SPRINT 11\SPRITE L=373,182 R=35,-1\SPRINT 13
  22. \SPRITE L=373,188 R=45,-1\SPRINT 15\SPRITE L=373,190 R=55,-1\SPRINT 17
  23. \SPRITE L=373,192 R=65,-1\SPRINT 19\SPRITE L=373,194 R=75,-1\SPRINT 21
  24. \SPRITE E=-1,-1,-1,-1
  25. \SPRITE L=-18,175 W=26,110,121,199 M=3,0 R=120,143 P=NO X=A K=Y\SPRINT 22
  26. \SPRITE L=120,175 M=-3,0\SPRINT 28
  27. \RUN\X SCN1\ON KEY 7181\LOC 112,10\OVE 0\HEI 111\WID 12
  28. \LENGTH #771\IF A>1\IF #771>1\JUMP POPORI\ENDIF
  29. \ON ERROR JUMP POPORI
  30. \MOVE 2 TO #771\READ MASKHORS.PIC\CLEAR ON ERROR\SAVE SCREEN\MOVE 1 TO #771
  31. \CLEAR SPRITES\ROUNDS 60 SPEED 27
  32. \SPRITE L=-112,111 A=1 F=Y M=9,0\SPRINT 9 TO 15,1 TO 8\BLANK 188,61,320,100
  33. \ON KEY 7181 JUMP POPORI\RUN
  34. \X POPORI\ON KEY 7181 JUMP MENU
  35. \X SHOWSMALL\CLEAR ON ERROR\MOVE 1 TO #1153\ON KEY 7181 JUMP MENU
  36. \CALLM HELLOPICS\WAIT NOW 333
  37. \X MENU\READ MENU.TXT
  38. \X WAYTOOSMALL\CLEAR ON KEYS\CALLM WAY2SMALL\END
  39.