01OSOJUPDOWNPMBASCANDLFLAMJAOFJA3A \ i A(B'h@BA@ B9% BCt @ @t @@RB(#@ ''*** BURNING CANDLE SIMULATION ***//BY LINDA M. SCHREIBER FOR ANTIC DEC. 1982AA9@P<@,9@<@,;@,;@,([6-F:A,&@2[SET ASIDE 2K FOR PLAYER/MISSILE GRAPHICS - GRAPHICS 7 NEEDS 4K26. hȱ͈`<6. hȑ͈`F0 +@0HIGH RESOLUTION WITH TEXT WINDOWPCBBy6-$AVCTELL ANTIC WHERE P/M GRAPHICS BEGINZXAY@b'B2w@XENABLE P/M GRAPHICS FOR SINGLE LINE RESOLUTIONd&AA&COLOR OF FLAMEn'AA'COLOR OF CANDLEx$AA $COLOR OF JAR'AAT'COLOR OF OXYGEN%A @%COLOR OF DISHG-%A$%A C'+ GCLEAR MEMORY FOR GRAPHICSU @,A@u1/A@pC/@@@pU-@P@u=Ae@=@@S:46-%A&4LOCATION OF CANDLE IN P/M MEMORYO #A!-@%%"-%1 OREAD IN THE DATA FOR CANDLE,B2IA ,PUT CANDLE ON SCREEN36-%AW3LOCATION OF FLAME IN P/M MEMORYr6-%A0AP:%A6,'AVeA+%A6,&P:+%A6,'AV,$AVrJAR IN P/MDAU#-@@P1%A)5 DDRAW THE JARCB2X@'B2PACPUT THE JAR ON THE SCREEN8 @!-@@P8PUT OXYGEN ON SCREEN06-P:H:@,$A`,0COLUMN OF OXYGEN-6-P:H:@,$@,-ROW OF OXYGENI!@`* @-!@CApIDON'T PLACE IT IN THE JAR"<!@@* A-!@iAp<OR ON SAUCER,N68<@,-%68<@,-NPLACE THE OXYGEN LOCATION IN THE ARRAY6 , DO IT 50 TIMES@'-@@'OXYGEN IN JARJU%6-P:H:@,$@#,%@cG6-P:H:@,$@#,%@FUAREA OF JART:68<@,-%68<@,-:PLACE IN JAR ARRAY^* , 6-@*DO IT 10 TIMESheAR@1(PRESS TO MOVE JAR4(V(PRESS TO LIGHT CANDLEeINSTRUCTIONSrN F:B2y,"@ANNO KEY PRESSED - MOVE OXYGEN & FLAME IF LIT|h@wFF:B2y,"@*"*"AhTURN OFF ATTRACT - LIGHT FLAME?lF:B2y,"@" A0."8@L-@@h,8<@,8<@,l 3" A@# Ap3FLAME NOT LITE6-@!B2HA + A EANIMATE FLAME ON SCREEN ApR"#-@@Q/6-?:C:,,3 ?6-@B$RMOVE JAR DOWNP-@@Q#6-?:C:,,' 36-?6-@B$PMOVE JAR UPDATA FOR CANDLEcc8,8,12,28,28,30,62,62,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126,126I%6-P:H:@,$@,%@IPICK ONE OF THREE FLAME POSITIONSP#A0%#-@ '"/%3 PREAD IN THE DATA FOR FLAME 16,8,12,28,62,62,28,24,8,48,4,6,12,60,60,28,48,16,8!!32,16,24,56,30,30,12,12,4,2``DECREASE THE OXYGEN IF FLAME IS ON AND JAR IS DOWN. FLAME GOES OUT WHEN THERE IS NO OXYGENz"@*"@#@?,8<@,8<@,M6-&@Y"e6-wB2Hz$&*"A*NO OXYGEN IN JAR0-@@;6-P:H:@,$@#,%@c]6-P:H:@,$@#,%@Fg@,8<@,8<@,68<@,-68<@,-: @, Dr-@@P@)@E,8<@,8<@,_6-P:H:@,$A`,rGET A NEW COLUMNNU6-P:H:@,$@,3!@`* @G!@CAUIN THE JAR!X?!@@* A-!@iA?ON THE SAUCER!!b<68<@,-%68<@,-/@5,9 <$ D2:CANDLE