\IF P=275 AND R>=32\IF Q>=63\IF O>4 OR O=0\JUMP GOOD_ENVIRONMENT\ENDIF
\IF P=175 AND R=9\IF Q>=15 AND O=0\JUMP GOOD_ENVIRONMENT\ENDIF
\X BAD_ENVIRONMENT\BEEP 231,68\ON KEY F10 JUMP GOOD_ENVIRONMENT
\WAIT RET 55 "SETUP parameters are not set correctly.  Press <RET> for more information."
\WAIT RET 55 "Program may not be able to run properly. Press <F10> to try to run anyway."
\WAIT RET 55 "Did you run the batch file for the demo? Press <RET> for more information."
\WAIT RET 55 "If program can't run, try: RUN DEMO LITE instead.  PRESS <RETURN> TO EXIT!"\END
\X GOOD_ENVIRONMENT\ON KEY F10\IF O<5 AND O>0\JUMP CANTMSG2\ENDIF
\ON ERROR JUMP CANTMSG\SCREEN 0,0,19\READ SMALLOGO.PIC\CLEAR ON ERROR ;READING THIS FILE ESTABLISHES SOME PIC MEMORY AREAS, PREVENTING MEMORY FRAGMENTATIN
\MEMORY ?\MOVE A TO #221\MOVE Q TO #741\MOVE O TO #748
\IF O>22 AND #741>=63\MOVE 9 TO #744\ELSE\MOVE 360 TO #744\ENDIF
\CLEAR NAMES\CLEAR MACROS\+
\NAME #98=MEM_SIZE\READ PR_ORDER.MAC\READ MENU.MAC
\READ LITLDEMO.HUE\READ HARTTEXT.HUE\HUE C=32,32 SET=4,4,35  ;SET USA BLUE!
\LENGTH #999\IF A<>0\JUMP VALUES_SET\ENDIF
\MOVE 0 TO #752 ;IF BIGDEMO CANT RUN, SETS THIS...
\MOVE 0 TO #753 ;IF THE HORSES FAIL...
\MOVE #221 TO #98\MOVE #221 TO #211
\MOVE G TO #212\MOVE H TO #213\MOVE I TO #214\MOVE J TO #215
\MOVE K TO #216\MOVE K TO #97\MOVE L TO #217\MOVE M TO #218
\MOVE N TO #239\MOVE 'MASTER MENU' TO #999
\MOVE "/P11/DEMO/MCGADEMO/" TO #4000
\MOVE 0 TO #771\MOVE 0 TO #774\MOVE 0 TO #775
\X VALUES_SET
\LENGTH #211\IF A=2\CONVERT #211\ENDIF
\LENGTH #212\IF A=2\CONVERT #212\ENDIF
\LENGTH #213\IF A=2\CONVERT #213\ENDIF
\LENGTH #214\IF A=2\CONVERT #214\ENDIF
\LENGTH #215\IF A=2\CONVERT #215\ENDIF
\LENGTH #216\IF A=2\CONVERT #216\ENDIF
\LENGTH #217\IF A=2\CONVERT #217\ENDIF
\MOVE 139 TO J  ;MENU CHOICE COUNTER
\IF #97>2
\MOVE #97 TO #94\MOVE #97 TO #93
\ELSE
\MOVE 1 TO #93\MOVE 2 TO #94
\ENDIF
\MOVE #213[5,1] TO #220
\IF #220=' '\BUILD #213=#213[1,4],'0',#213[6,1]\ENDIF
\MOVE #215[5,1] TO #220
\IF #220=' '\BUILD #215=#215[1,4],'0',#215[6,1]\ENDIF
\MOVE " NO" TO #220
\MOUSE ?
\IF A=2 \MOVE "YES" TO #220 \ENDIF
\BUILD #211=#211[2,5],'K'
\BUILD #217=#217[2,5]
\BUILD #216=#216[2,5]
\BUILD #215=#214[2,6],'.',#215[5,2]
\BUILD #213=#212[2,6],'.',#213[5,2]
\IF #218=255\MOVE '    PC   ' TO #219\ELSE
\IF #218=254\MOVE '    PC/XT' TO #219\ELSE
\IF #218=253\MOVE '    PCjr ' TO #219\ELSE
\IF #218=252\MOVE '    PC/AT' TO #219\ELSE
\IF #218=249\MOVE ' PC Conv.' TO #219\ELSE
\MOVE '    N/A  ' TO #219\ENDIF
\X VALUES_SET
\MOVE 0 TO #1144   ;1144 COUNTS TO SEE IF ANYONE PRESSED A KEY
\MOVE 80 TO #1140 ;COUNTS SECONDS
\MOVE 400 TO #1141 ;COUNTS WAIT RET SECONDS AND ROUNDS
\MOVE 555 TO #1142  ;ABOUT A SECOND...
\MOVE 2444 TO #1143 ;FOR THE AIRPLANE
\MOVE 5 TO #1145 ;IS FOR THE HORSE CYCLES--5 OR JUST 2
\MOVE 20 TO #1147 ;A TEMP CNTR, INIT IT TO SOMETHING...
\MOVE 0 TO #1149  ;USED BY HEART
\MOVE 170 TO #1150 ;COUNTS TOT # OF FRAMES USED IN THE INTRO-WHICH S/B BIG!
\MOVE 0 TO #1153 ;0 MEANS WE HAVE THE BIG INTRO PIC, 1 MEANS WE DON'T
\MOVE 0 TO #1154  ;INDICATES THAT AN ERROR OCCURRED DURING A READ
\MOVE 73 TO #1156  ;FRAME NUMBER TO USE FOR THE CURSOR AREA
\MOVE 0 TO #1012\MOVE 0 TO #1001\MOVE 0 TO #1002\MOVE 0 TO #1003
\MOVE 0 TO #1004\MOVE 0 TO #1005\MOVE 0 TO #1006\MOVE 0 TO #1007
\MOVE 0 TO #1008\MOVE 0 TO #1009\MOVE 0 TO #1010\MOVE 0 TO #1011
\MOVE 139 TO #9902 ;KEEPS TRACK OF CURSOR LOCATION
\MOVE 0 TO #9997 ;TELLS MENU TO WAIT RET
\MOVE 0 TO #9002 ;JUST USED FOR THE VERY FIRST PASS SO MENU COMES UP FIRST
\MOVE 0 TO #893 ;COUNTS WHICH MASTER FRAME TO USE
\MOVE 1 TO #677 ;IF YOU KNOW TO PRESS F10 HERE, YOU CAN SEE IT ALL!!!
\MOVE 9999 TO #1158 ;9'S IS LOAD TIME-SO DISPLAY HELP MSG (1158 IS AUTO CONTIN)
\ON ERROR JUMP CANTMSG\READ /(#4000)/081119PW.FON\CLEAR ON ERROR
\LOC 0,0\WIDTH 320 DOTS C\OVER 8,A,43\HEIGHT 99
\ON KEY 7181 JUMP READY\ON KEY F10 JUMP RDMENU
\CLEAR SCREEN\SHOW 60,56,1
Press <RETURN> to begin the 256-COLOR
VGA demonstration software from
THE ANIMATED SOFTWARE COMPANY
\"
\LOC 0,40\OVE 8,A,33\WAIT NOW 1168
If available a CGA demo will appear if you do not press <RETURN> before time runs out.
\"
\"
\"
\"
\LOC 0,98\OVE 8,A,44
If you have any problems running this
demonstration or desire more information
please contact Russell D. Hoffman at:
\"
\LOC 0,139\OVE 8,A,40
THE ANIMATED SOFTWARE COMPANY
P. O. Box 188006, Carlsbad CA 92009
AOL: RUSSELL DH      Compuserve: 70743,1226
Phone: (800) 551-2726 or (619) 720-7261
Thank you!
\LOC 140,76\WIDTH 39 DOTS\CRAWL 2,A,5\"...19...
\WAIT NOW 505\"...18...
\WAIT NOW 505\"...17...
\WAIT NOW 505\"...16...
\WAIT NOW 505\"...15...
\WAIT NOW 505\"...14...
\WAIT NOW 505\"...13...
\WAIT NOW 505\"...12...
\WAIT NOW 505\"...11...
\WAIT NOW 505\"...10...
\WAIT NOW 505\"...9....
\WAIT NOW 505\"...8....
\WAIT NOW 505\"...7....
\WAIT NOW 505\"...6....
\WAIT NOW 505\"...5....
\WAIT NOW 505\"...4....
\WAIT NOW 505\"...3....
\WAIT NOW 505\"...2....
\WAIT NOW 505\"...1....
\WAIT NOW 505\CLEAR SCREE\OV 0\CLEAR ON KEYS\ON ERROR JUMP NOTCGA
\READ /P11/DEMO/CGADEMO/CGADEMO.TXT\X NOTCGA\+
\WAIT RET 55 "CGA VERSION NOT AVAILABLE. PRESS <RET>"\END
\X READY\ON KEY 7181\CLEAR SCREEN\OV 0
\ON ERROR JUMP CANTMSG8\SCREEN 0,0,17
\X AGAIN17\CLEAR PICS\BLANK 240,180,400,300
\MOVE TIME&DATE[19,1] TO #9001\CONVERT #9001\MOVE #9001 TO W\ADD 3 TO W\MOVE W-2 TO S\IF S<3\ADD 7 TO S\ENDIF
\MOVE 240 TO X \MOVE 180 TO Y\MOVE 0 TO V\MOVE 0 TO T\MOVE 0 TO U
\X MOD17LINES
\LINE X+T,Y+U,X+159-T,Y+120-U,1\LINE X+T,Y+120-U,X+159-T,Y+U,1\WAIT NOW 6
\ADD W TO U\ADD V TO T\IF U>=65\MOVE 0 TO W\MOVE 0 TO U\MOVE S TO V\MOVE S TO T\ENDIF
\IF U<65 AND T=0\JUMP MOD17LINES\ELSE\IF T<84\JUMP MOD17LINES\ENDIF
\FRAME 240,180,160,120\SHOW 240,60,1\SHOW 240,300,1
\SHOW 80,120,1\SHOW 400,120,1\SHOW 80,240,1\SHOW 400,240,1\WAIT NOW 56
\SHOW -80,60,1\SHOW 560,60,1\SHOW -80,300,1\SHOW 560,300,1\WAIT NOW 42
\SHOW 240,-60,1\SHOW 240,420,1
\SHOW 80,0,1\SHOW 400,0,1\SHOW 80,360,1\SHOW 400,360,1\WAIT NOW 60
\SHOW -80,-60,1\SHOW 560,-60,1\SHOW -80,420,1\SHOW 560,420,1\WAIT NOW 47
\SHOW -80,180,1\SHOW 560,180,1
\ROUNDS 7 SPEED 24\READ GLPMOD17.PIC\CLEAR ON ERROR\ON KEY F7 JUMP AGAIN17\ON KEY 7181 JUMP NEXT1
\SHOW F=1,15 L=270,203\SHOW 270,93,1\SHOW 270,323,12
\SHOW 110,143,6\SHOW 430,143,8\SHOW 110,263,11\SHOW 430,263,3\WAIT NOW 36
\SHOW -50,83,4\SHOW 590,83,9\SHOW -50,323,14\SHOW 590,323,2\WAIT NOW 50
\SHOW 270,-37,10\SHOW 270,443,15
\SHOW 110,23,5\SHOW 430,23,13\SHOW 110,383,6\SHOW 430,383,12\WAIT NOW 49
\SHOW -50,-37,9\SHOW 590,-37,11\SHOW -50,443,4\SHOW 590,443,8\WAIT NOW 67
\SHOW -50,203,1\SHOW 590,203,13\WAIT NOW 1222
\X NEXT1\ON KEY 7181\ON KEY F7\ON ERROR JUMP CANTMSG\ON KEY 7181\CLEAR PICS
\SCREEN 0,0,19\READ /(#4000)/081119PW.FON
\ON ERROR JUMP CANTMSG9\READ INTRSCRN.PIC\SHOW 0,0,1\ON ERROR JUMP WAYTOOSMALL
\READ SMLGLPRT.PIC\ON ERROR JUMP APPMEDX
\APPEND X_POINTS.PIC 1,1\JUMP APPLRGX
\X APPMEDX\ON ERROR JUMP WAYTOOSMALL\APPEND X_POINTS.PIC 2,2
\X APPLRGX\CLEAR ON ERROR
\MOVE TIME&DATE[13,2] TO #674\CONVERT #674
\MOVE TIME&DATE[16,2] TO #675\CONVERT #675
\MOVE 0 TO X\MOVE 234 TO Z\ROUNDS 5 SPEED 16\MOVE 1 TO S
\X INTROBOX
\LINE X,X,319-X,198-X,Z,B   ;NOTE BOT LINE NOT USED TO HELP HORSES FIT BETTER!
\ADD S TO Z
\CURSOR 0,0\DISPLAY Z\IF Z<234 OR Z>246\DISPLAY S\ENDIF
\IF Z>246 OR Z<234\MULT S BY -1\BEEP\ENDIF
\ADD 1 TO X\IF X<56\JUMP INTROBOX\ENDIF
\SAVE SCREEN
\IF B=14624\JUMP SKIP_TIMING_CHECK
\ENDIF ;press space bar to get complete intro & all the main screen animations!
\MOVE TIME&DATE[13,2] TO #676\CONVERT #676
\MOVE TIME&DATE[16,2] TO #677\CONVERT #677\+
\IF #674>#676\ADD 60 TO #676\ENDIF ;ADJST FOR NXT MINUTE\+
\ADD #674*60 TO #675\ADD #676*60 TO #677;TOT SECONDS IN ONE AREA\+
\SUB #675 FROM #677 ;HOW MANY SECONDS (TIMING GUIDE)
\X SKIP_TIMING_CHECK\SHOW W=56,58,263,142 L=20,119 F=1,15 M=5,0
\MOVE 0 TO X\MOVE -2 TO Y\MOVE 40 TO W\MOVE 1 TO Z\CLEAR SHOW\ROUNDS 1 SPEED 5
\ACTIVATE SCREEN 1\CLEAR SCREEN\SHOW -20,-42,16\SHOW 66,55,16
\SHOW 175,9,16\SHOW 260,70,16\ACTIVATE SCREEN 0
\X HORSES_EVERYWHERE\SHOW L=X,Y F=Z,Z W=X,Y+2,X+41,Y+24
\ADD 1 TO Z\IF Z>15\MOVE 1 TO Z\ENDIF\ADD W TO X\WAIT NOW 7
\IF X<0 OR X>319\MULT W BY -1\ADD W TO X\ADD 22 TO Y\ENDIF
\IF Y<190\JUMP HORSES_EVERYWHERE\ENDIF
\WAIT NOW 636
\X RDMENU\CLEAR PICS\ON ERROR JUMP CANTMSG\SCREEN 0,0,19\READ MENU.TXT
\X CANTMSG8\SCREEN 0,0,4\READ /(#4000)/081104NW.FON
\LOCATE 0,11\DISPLAY "You do not have, or are not using,"
\LOCATE 0,22\DISPLAY "Expanded memory for this program, and "
\JUMP CANTMSG9\X CANTMSG\BEEP 21,380\BEEP 70,81\BEEP 80,55
\WAIT RET 55 "UNABLE TO INITIALIZE SCREEN MODE 19     (MCGA)! PRESS <RETURN>"
\BEEP 14,331\BEEP 87,26
\WAIT RET 55 "YOU NEED VGA GRAPHICS, OR YOU DON'T HAVE ENOUGH CONVENTIONAL RAM MEMORY"
\ON ERROR JUMP CANTCGA
\SCREEN 0,0,4\ON ERROR JUMP FONTFAIL\READ /(#4000)/081104PW.FON\JUMP FONTREAD2
\X FONTFAIL\BEEP 33,188\ON ERROR JUMP FONTFAIL2\READ /(#4000)/081104NW.FON\JUMP FONTREAD2
\X FONTFAIL2\BEEP 22,266\ERROR ?\CURSOR 15,3\DISPLAY A
\WAIT RET 55 "UNABLE TO READ A FONT TO START DEMO!    PRESS <RETURN>"
\X CANTCGA\WAIT RET 55 "UNABLE TO START DEMO! PRESS <RETURN> TO EXIT TO DOS!"\END
\X FONTREAD2\BEEP 111,28
\LOCATE 0,0\DISPLAY "This demo needs MCGA video!"
\LOCATE 0,11\DISPLAY "MCGA is available on VGA systems."
\LOCATE 0,22\DISPLAY "If you are sure you have VGA then"
\X CANTMSG9\BLANK 0,37,320,199
\LOCATE 0,33\DISPLAY "you currently do not have enough"
\LOCATE 0,44\DISPLAY "conventional memory (needs about 550K.)"
\LOCATE 0,55\DISPLAY "Try to release tsr's, DOS shells, etc."
\X CANTMSG2\LOCATE 0,66\DISPLAY "This demo needs at least 5 (FIVE) pages
\LOCATE 0,77\DISPLAY "of LIM 3.2 'Expanded Memory', if used."
\LOCATE 0,88\DISPLAY "At the DOS prompt, type:"
\LOCATE 0,99\DISPLAY "    \P11\RUN DEMO LITE"
\LOCATE 0,111\DISPLAY "to restart the demo to use only minimal"
\LOCATE 0,122\DISPLAY "conventional memory.  (Some images will"
\LOCATE 0,133\DISPLAY "be smaller or will not be able shown.)"
\LOCATE 0,144\DISPLAY "to be shown at all.)"
\WAIT RET 55 "Press <RETURN> to go back to DOS."
\END\X WAYTOOSMALL\CLEAR ON KEYS\CALLM WAY2SMALL\END
