home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe 1 / Pegasus_Graphics_Universe.iso / p11 / demo / mcgademo / menu.mac < prev    next >
Encoding:
Text File  |  1992-05-25  |  6.0 KB  |  122 lines
  1. \X INTRO_SCRN\MOVE 0 TO #1150\MOVE 0 TO #1153\MOVE 0 TO #1154
  2. \MOVE 73 TO #1156\CLEAR SHOW\IF MEM_SIZE<#744\CALL SHWSML
  3. \CALL RDREST\ELSE\CALL RDLRG\ENDIF\RETURN\X RDLRG\ON ERROR CALL SHWSML\+
  4. \ADD 1 TO #893\IF #893=1\APPEND OPENING.PIC 3,3\ELSE\IF #893=2\+
  5. \APPEND OPENING2.PIC 3,3\ELSE\APPEND OPENING3.PIC 3,3\MOVE 0 TO #893\+
  6. \ENDIF\CLEAR ON ERROR\IF #9002=0\MOVE 1 TO #9002\JUMP NEW8\ENDIF
  7. \SHOW 0,0,2\MOVE 0 TO X\MOVE 0 TO Y\ON KEY F10
  8. \MOVE #32767[19,2] TO #1147\CONVERT #1147\MOVE #1147/2 TO W\SUB 25 FROM W
  9. \IF W<-17\JUMP NEW3\ELSE\IF W>-12 AND W<12\JUMP NEW4\ELSE\IF W>15\JUMP NEW7\ENDIF
  10. \X SHOW1\SHOW X-320,Y,2\SHOW X,Y,2\SHOW X+320,Y,2
  11. \ADD W/2 TO X\IF X<-319\ADD 320 TO X\ELSE\IF X>320\SUB 320 FROM X\ENDIF
  12. \ADD 20 TO Y\IF Y<200\JUMP SHOW1\ENDIF\LINE 0,199,320,199,31\JUMP NEW6
  13. \X NEW3\MOVE 199 TO Y\X SHOW2\SHOW L=0,Y F=2,2 W=0,Y,320,Y+20
  14. \WAIT NOW 1\SUB Y/13+5 FROM Y\IF Y>0\JUMP SHOW2\ENDIF\JUMP NEW6
  15. \X NEW4\MOVE 0 TO X\MOVE 0 TO Y\MOVE 43+W TO Z
  16. \X SHOW3\LINE X,Y+21,319-X,199-Y,Z,BF\WAIT NOW 1
  17. \ADD 6 TO Y\ADD 1 TO Z\ADD 10 TO X\IF X<160\JUMP SHOW3\ENDIF\JUMP NEW6
  18. \X NEW7\MOVE 0 TO X\MOVE 74-W TO Z\X SHOW7\LINE X,21,319-X,199,Z,BF
  19. \ADD 1 TO Z\ADD 10 TO X\IF X<160\WAIT NOW 1\JUMP SHOW7\ENDIF
  20. \X NEW6\SHOW W=0,0,320,20 L=0,0 F=2,2\X NEW8\CALL RDREST\RETURN
  21. \X SHWSML\MOVE 1 TO #1153\CLEAR PICS\MOVE 1 TO #752
  22. \ON ERROR JUMP FAR2SMALL\MOVE 1 TO V
  23. \X NXTSML\CLEAR SHOW\CLEAR PICS\APPEND SMALLDEM.PIC V,V\SHOW 0,0,1
  24. \ADD 1 TO V\IF V<5\JUMP NXTSML\ENDIF\CLEAR ON ERROR
  25. \LOC 0,181\WID 320 DOTS C\HEI 36\OVE 0,O,44\WAIT LIMIT #1141
  26. Select with mouse or <UP> and <DOWN> arrows,
  27. \LOC 0,191\WID 320 DOTS C\HEI 36\OVE 0,O,44
  28. then click mouse button or press <RETURN>
  29. \SAVE SCREEN\CLEAR PICS
  30. \ON ERROR JUMP FAR2SMALL\APPEND CURSOR01.PIC 1,3\MOVE 3 TO #1156
  31. \CLEAR ON ERROR\RETURN
  32. \X RDREST\ON ERROR CALL BADRUN\IF #1154=0\APPEND SMALLEGL.PIC 1,-1
  33. \IF #1154=0\MOVE 10 TO #1150\APPEND SMALLHRT.PIC 1,-1
  34. \IF #1154=0\MOVE 18 TO #1150\APPEND SMLHORSE.PIC 1,-1
  35. \IF #1154=0\MOVE 33 TO #1150\APPEND SMALLKAN.PIC 1,-1
  36. \IF #1154=0\MOVE 42 TO #1150\APPEND SMALLPST.PIC 1,-1
  37. \IF #1154=0\MOVE 66 TO #1150\APPEND SMALLPLN.PIC 1,-1
  38. \IF #1154=0\MOVE 72 TO #1150\APPEND WOODFRM4.PIC 1,1
  39. \IF #1154=0 AND #218<>253\IF #218<>255 AND #218<>254\IF #677<5
  40. \MOVE 73 TO #1150\ENDIF\CLEAR ON ERROR\RETURN\X PICSREAD\RETURN
  41. \X BADRUN\MOVE 99 TO #1154\IF #1150<10\JUMP WAY2SMALL\ENDIF\RETURN
  42. \X WAY2SMALL\MOVE 0 TO #1151
  43. \X WAY2SMALL2\BEEP 246,41\SCREEN 0,0,17\CLEAR ON KEYS
  44. \ON ERROR JUMP RD8\READ /(#4000)/162017PW.FON\JUMP READ_ON
  45. \X RD8\READ /(#4000)/081117PW.FON\X READ_ON\CLEAR ON ERROR 
  46. \ON KEY F10 JUMP RDMENU
  47. \LOC 0,0\HEI 480\OV 0\WID 640 DO\IF #1151=0
  48. SORRY!  You don't have enough memory to run this option!
  49. \ELSE
  50. SORRY!  You don't have enough memory to START this DEMO!
  51. \ENDIF
  52. Try installing Expanded Memory software (LIM 3.2 or higher).
  53. This demo does not NEED Expanded memory, but larger pictures
  54. and some additional sequences are shown if LIM is available.  
  55. You can also try to free some of your conventional memory if
  56. you are running any "TSR" programs, communications software
  57. or DOS shells. Since you got this far, chances are you are
  58. within 6 to 20K of having enough memory to view most of
  59. \LINE 142,155,149,145,1
  60. this demo.  Try RUN DEMO LITE, which uses:
  61. \"
  62. SET P11FLAGS=E:0 F:175 FO:9 C:0
  63. \LINE 174,215,181,205,1\LINE 341,215,348,205,1
  64. \"
  65. to restart this demo to run in the absolute minimum
  66. configuration, without using EMM.  To minimize 
  67. conventional memory and still use Expanded memory,
  68. change DEMO.BAT to the following 
  69. SET command instead:
  70. \"
  71. SET P11FLAGS=F:175 FO:9 C:0
  72. \LINE 298,375,305,364,1
  73. \"
  74. \"
  75. \IF #1151=0
  76. Press any key to exit to DOS, or press F10 to return 
  77. \LINE 429,435,436,425,1
  78. to the opening menu.
  79. \ELSE
  80. Press any key to exit to DOS... 
  81. \ENDIF\MOVE 0 TO B\WAIT NOW -31000\IF B=0\JUMP RDMENU\ENDIF\END
  82. \X FAR2SMALL\CLEAR ON KEYS\MOVE 1 TO #1151\JUMP WAY2SMALL2
  83. \X SHOWPIC\SHOW 0,0,1\CLEAR PICS\WAIT NOW 44\RETURN
  84. \X HELLOPICS\ON KEY F10 JUMP RDMENU\MOVE 0 TO #881
  85. \IF #752=0\JUMP HELLO2\ENDIF\CLEAR PIC\APPEND SMLOPENG.PIC 8,8\CLEAR SHOW
  86. \SHOW 0,0,1\SHOW 80,0,1\SHOW 160,0,1\SHOW 240,0,1\X HELLO2
  87. \CLEAR PICS\APPEND SMLOPENG.PIC 1,1\CALL SHOWPIC\APPEND SMLOPENG.PIC 2,2
  88. \SHOW 0,-6,1\CLEAR PICS\WAIT NOW 44\APPEND SMLOPENG.PIC 3,3
  89. \CALL SHOWPIC\APPEND SMLOPENG.PIC 4,4\CALL SHOWPIC
  90. \APPEND SMLOPENG.PIC 5,5\CALL SHOWPIC
  91. \APPEND SMLOPENG.PIC 6,7\SHOW 0,0,1\CLEAR SPRITES\SAVE SCREEN
  92. \SPRITE L=80,2 F=Y M=-1,0 W=27,78,100,112\SPRINT 2
  93. \ROUNDS 156 SPEE 9\RUN\CLEAR PICS
  94. \X WIPEART\MOVE 0 TO X\ON ERROR JUMP WIPE4\ROUNDS 1 SPEED 55
  95. \ON KEY F10 JUMP CL_ART\ON KEY 7181
  96. \OPEN OP_ART01.PIC\SHOW 28,129,1,15\CLOSE OP_ART01.PIC\JUMP WIPEHRS
  97. \X WIPE4\MOVE 1 TO #881\+
  98. \X WIPEHRS\ON ERROR JUMP SHIP2\ROUNDS 1 SPEED 45\+
  99. \ON KEY F10 JUMP RDMENU\X SHIP2\MOVE 1 TO #881\+
  100. \X SHIPOUT\MOVE 0 TO R\MOVE 31 TO S\MOVE -1 TO Q
  101. \X SHIPGONE\WAIT NOW 4\LIN 126+R,34+R,196-R,95-R,S,B
  102. \ADD Q TO S\IF S<17\MOVE 1 TO Q\ELSE\IF S>30\MOVE -1 TO Q\ENDIF
  103. \ADD 1 TO R\IF R<32\JUMP SHIPGONE\ENDIF\MOVE 0 TO R\MOVE 34 TO S\MOVE 1 TO Q
  104. \X DOG\WAIT NOW 8\IF B=7181\JUMP WIPEOUT\ENDIF
  105. \LIN 213+R,123+R,246-R,155-R,S,B\LIN 247+R,123+R,279-R,155-R,S,B
  106. \LIN 213+R,156+R,246-R,187-R,S,B\LIN 247+R,156+R,279-R,187-R,S,B
  107. \ADD Q TO S\IF S>48\MOVE -1 TO Q\ELSE\IF S<33\MOVE 1 TO Q\ENDIF
  108. \ADD 1 TO R\IF R<17\JUMP DOG\ENDIF\MOVE 0 TO X
  109. \X ART2\WAIT NOW 9\IF X<15\LIN 28+X,129+X,162-X,186-X,X+232,B\ELSE\IF X=15
  110. \LIN 28+X,129+X,162-X,186-X,X+231,B\ELSE\LIN 28+X,129+X,162-X,186-X,262-X,B
  111. \ENDIF\ADD 1 TO X\IF X<29\JUMP ART2\ENDIF\MOVE 0 TO X
  112. \X HRS2\WAIT NOW 9\LIN 232+X,27+X,289-X,77-X,X+190,B
  113. \ADD 1 TO X\IF X<26\JUMP HRS2\ENDIF\MOVE 0 TO X
  114. \X GLP\WAIT NOW 5\LINE 19+X,13,19+X,59,X+65\LIN 86-X,13,86-X,59,X+65
  115. \ADD 1 TO X\IF X<34\JUMP GLP\ENDIF\MOVE 0 TO X
  116. \X TANK\LIN 27+X,80+X,100-X,114-X,31,B\WAIT NOW 7
  117. \LIN 28+X,81+X,99-X,113-X,16,B\ADD 2 TO X\IF X<18\JUMP TANK\ENDIF
  118. \X WIPEOUT\IF #881<>0\JUMP RDMENU\ENDIF\RETURN
  119. \X RDMENU\CLEAR ON KEYS\WID 320 DOTS\SCREEN 0,0,19\READ /(#4000)/MENU.TXT
  120. \X CL_ART\ON ERROR JUMP RDMENU\CLOSE OP_ART01.PIC\JUMP RDMENU
  121. \X CLRMKEYS\CLEAR ON KEYS\RETURN
  122.