This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Heartlight
-
Category:Games
-
Publisher/Developer:Tajemnice Atari
-
Year:1990
Listing 1
1 REM ------------------------------- 2 REM : HEARTLIGHT : 3 REM : autor: Janusz Pelc : 4 REM : (C) 1990 Tajemnice ATARI : 5 REM ------------------------------- 10 POKE 106,112:GRAPHICS 2+16 20 P6=1536:RDTA=P6:RHEX=P6+3 30 BEGN=36864:PLAY=BEGN+608:CAV=28672 50 POKE 559,0:RESTORE 500:A=P6 60 READ B:IF B>-1 THEN POKE A,B:A=A+1:GOTO 60 100 A=BEGN+20:L=10030:DIM A$(40) 110 ERR=0:POKE ERR,0 120 RESTORE 10000:TRAP 200 130 READ A$:X=USR(RHEX,ADR(A$),A):IF PEEK(ERR)=0 THEN A=A+12:L=L+10:GOTO 130 140 GRAPHICS 0:? "Popraw linie ";L:STOP 200 IF PEEK(195)<>6 THEN L=130:GOTO 140 210 RESTORE 1000 220 FOR A=708 TO 712:READ B:POKE A,B:NEXT A 230 FOR A=CAV TO CAV+2:READ B:POKE A,B:NEXT A 240 READ A$:IF A$(1,1)="/" THEN X=USR(RDTA,ADR(A$),A):A=A+20:GOTO 240 400 X=USR(PLAY) 500 REM ----------------------------- 510 REM : Program wczytujacy dane : 520 REM ----------------------------- 530 DATA 76,114,6,104,104,133,204 540 DATA 104,133,203,104,133,206,104 550 DATA 133,205,162,0,160,0,132 560 DATA 208,32,49,6,176,19,145 570 DATA 205,24,101,208,133,208,200 580 DATA 192,12,144,239,32,49,6 590 DATA 197,208,240,2,230,0,96 600 DATA 169,0,32,60,6,176,56 610 DATA 10,10,10,10,141,109,6 620 DATA 161,203,230,203,208,2,230 630 DATA 204,201,48,144,9,201,58 640 DATA 176,5,56,233,48,176,24 650 DATA 201,97,144,9,201,103,176 660 DATA 5,56,233,87,176,11,201 670 DATA 65,144,11,201,71,176,7 680 DATA 56,233,55,9,108,24,96 690 DATA 56,96,104,104,133,204,104 700 DATA 133,203,104,133,206,104,133 710 DATA 205,230,203,208,2,230,204 720 DATA 160,19,177,203,145,205,136 730 DATA 16,249,96,-1 900 TRAP 910:A=0/0 910 RETURN 1000 REM ---------------------------- 1010 REM : Komnaty : 1020 REM ---------------------------- 1025 REM kolory 1030 DATA 4,6,14,10,0 1040 REM 1045 REM zycia,dodatkowe,ilosc komnat 1050 DATA 3,2,4 1060 REM 1070 DATA / JANUSZ PELC / 1075 REM 1080 REM % murek twardy 1081 REM # murek miekki 1082 REM @ kamien 1083 REM $ serduszko 1084 REM * bohater 1085 REM ! wyjscie 1086 REM & bomba 1087 REM . trawa 1088 REM 1100 REM komnata 1 1101 DATA /%%%%%%%%%%%%%%%%%%%%/ 1102 DATA /%....@.....@.$.....%/ 1103 DATA /%.*..@$...@@@@...@.%/ 1104 DATA /%....@...$.......@.%/ 1105 DATA /%%%%%%%%%%%%%%%%.$.%/ 1106 DATA /%....@@...@....@...%/ 1107 DATA /%.@...$..@...$.@...%/ 1108 DATA /%.@.%%%%%%%%%%%%%%%%/ 1109 DATA /%$.@...@.@...$@....%/ 1110 DATA /%....@@..@$...@$..@!/ 1111 DATA /%.$....@.@..@..$..@%/ 1112 DATA /%%%%%%%%%%%%%%%%%%%%/ 1200 REM komnata 2 1201 DATA /%%%%%%%%%%%%%%%%%%%%/ 1202 DATA /%.......@..........%/ 1203 DATA /%..$.@.......$...&.%/ 1204 DATA /%&...#####.#####.$.%/ 1205 DATA /%$@..#...#.# #...%/ 1206 DATA /%.@..#.$.#$# ! #.@@%/ 1207 DATA /%.@.@#..@#.# #@..%/ 1208 DATA /%....#####@#####...%/ 1209 DATA /%@......@....@...$.%/ 1210 DATA /%...$.*..@.........%/ 1211 DATA /%..@......@...@@..@%/ 1212 DATA /%%%%%%%%%%%%%%%%%%%%/ 1300 REM komnata 3 1301 DATA / & @ $ / 1302 DATA / ###@#### %%%%%%%% / 1303 DATA / #....... .....@.% / 1304 DATA / #..$.... .@.....% / 1305 DATA / #....... &.......%@/ 1306 DATA / #.@..... *...$..@% / 1307 DATA /$#...$... .....@.% / 1308 DATA / #.....@. .$..@..% / 1309 DATA / #..@.... ...@.!.% / 1310 DATA / #....@.. ..@...@% / 1311 DATA / ######## %%%%%%%% / 1312 DATA / @ / 1400 REM komnata 4 1401 DATA /%%%%%%%%%%%%%%%%%%%%/ 1402 DATA /%........%..@....&.%/ 1403 DATA /%.$.@...@%@......$.%/ 1404 DATA /%.......$%.*.@.$...%/ 1405 DATA /%.@@.....%$.....@..%/ 1406 DATA /%.$..&...%%%%.@....%/ 1407 DATA /%......%%%%......!@%/ 1408 DATA /%@.$......%.@..@...%/ 1409 DATA /%....@..*.%.$.@.$..%/ 1410 DATA /%@.#####..%......@.%/ 1411 DATA /%$.# #..%..@.....%/ 1412 DATA /%%%# $ #%%%%%%%%%%%%/ 10000 REM --------------------------- 10010 REM : GRA : 10020 REM --------------------------- 10030 DATA 01060b1f000000004090e0f4d5 10040 DATA 00000001061b2f7f0000004010 10050 DATA 90e4f8fd0001061b2f7fbffff7 10060 DATA 004090e4f8fdfeff01061b2ff7 10070 DATA 7fbfffff4090e4f8fdfeffffe1 10080 DATA 2a20212221221500aa0199658e 10090 DATA 996555000001060a1a2a2a2afc 10100 DATA 005094a4a5a5a5a5000100102d 10110 DATA 00010010000400000400000019 10120 DATA 00000009002f002f000000248b 10130 DATA 00fd00fd030300030e3a193498 10140 DATA f0a88952545554010002050d85 10150 DATA 0b3f0f0b00a86b5a5554e498f6 10160 DATA 02050d0b3f0f0b0aa86b5a5544 10170 DATA 54e498b4000a3a29150506091a 10180 DATA 00a0545c787ffcb80a3a29157d 10190 DATA 05060907a0545c787ffcb8a8be 10200 DATA 010609172f2f1f2f50a458f514 10210 DATA fefefdfe3f3a3a3a3a3a15006d 10220 DATA ffa9a9a9a9a9550000000000a1 10230 DATA 00000000000000000000000000 10240 DATA 1f0b060100000000f4e09040d5 10250 DATA 000000007f2f1b0601000000d0 10260 DATA fdf8e49040000000ffbf7f2f15 10270 DATA 1b060100fffefdf8e4904000c8 10280 DATA ffffbf7f2f1b0601fffffefd86 10290 DATA f8e49040aa01996599655500a8 10300 DATA 2a202122212215002a2a1a1568 10310 DATA 05050100a59595555454500027 10320 DATA 00000004000010004100001065 10330 DATA 01004000000b0002000000004e 10340 DATA 00f400d0004000000920052052 10350 DATA 050501005401540154545000ad 10360 DATA 0a0a090101030f00b4f4d45401 10370 DATA 58bcfc000a09313d0f000000a0 10380 DATA f4d45b5f3c00000007070505d6 10390 DATA 090f0f00a8e8d85050b0fc00db 10400 DATA 0705393d0f000000e8d8535f03 10410 DATA 3c0000002f1f2f2f251a15003c 10420 DATA fefdfefe56a95500ffa9a9a945 10430 DATA a9a955003f3a3a3a3a3a15001d 10440 DATA 54a8cccccccca8541060b03078 10450 DATA 3030a85454a80cfcc0c0a854dc 10460 DATA 54a80c3c0c0ca8544084c8ccb0 10470 DATA fc0c080454a8c0fc0c0ca854e0 10480 DATA 54a8c0fccccca85454a80c0c60 10490 DATA 0c0c080454a8ccfccccca8547c 10500 DATA 54a8ccfc0c0ca854ffedddd576 10510 DATA f6d5ddffff5bd7f7d7df67ffeb 10520 DATA a2ff9a208a974c08933045a47c 10530 DATA 923044009b04040404040404bd 10540 DATA 04040404040404040404040430 10550 DATA 0404040441699270707070707c 10560 DATA 70707047cc927006707070702b 10570 DATA 067046c09f418b928080808079 10580 DATA 801a1b80c0c4808080808080b9 10590 DATA 80808080808080808080808000 10600 DATA 8080804a4b80c0c18080808016 10610 DATA 8080808080a8a5a1b2b4aca929 10620 DATA a7a8b4808080808000617574cd 10630 DATA 6f725a006a616e75737a007046 10640 DATA 656c630080808080e1f5f4efed 10650 DATA f280ebefedeee1f4da80808056 10660 DATA 201398207896acfc02c0fff052 10670 DATA 09a9ff8dfc02c01cf00c2cc606 10680 DATA 98103aa92a20af98d0e1a2006f 10690 DATA a92bbcc09ec02ad0039dc09ea6 10700 DATA e8e0f090f1a9408d1e02207867 10710 DATA 96ad1e02d0f8cec098adc09856 10720 DATA c9ffd0034c60922096934c0876 10730 DATA 93eec398adc398cd0270a900cc 10740 DATA 90068dc3988dc498f818adc4e8 10750 DATA 9869018dc498d8cec898d08849 10760 DATA eec098d005cec098d0032096ca 10770 DATA 93ad01708dc8984c0893a9002e 10780 DATA 8dc198aec098f012f818adc16c 10790 DATA 9869019002a9998dc198d8ca5e 10800 DATA d0ee60a92f4c6c95a928a027db 10810 DATA 4cb195a90285cba928a0271035 10820 DATA 0da9294c6c95a90385cba929fa 10830 DATA a02485cd84cea00320f7959047 10840 DATA 16c92af008c922f004c926d09f 10850 DATA 0aa92b99c09ea5cb4c3296a5fe 10860 DATA cda4ce20b1959063b0f0a92d0e 10870 DATA 4c6c95a922a0264cb195a00313 10880 DATA 20f795901f48a902203296689e 10890 DATA c92ad006a92b99c09e60c92eeb 10900 DATA d004a926d002a92b9dc09e60a4 10910 DATA a922a0264cb195a003984820c6 10920 DATA f7953015c925f011c926f004a3 10930 DATA c92bd004a9ab3002a9b099c000 10940 DATA 9e68a88810dfa9b09dc09e60d9 10950 DATA adc298d0faa5d0290408adcaf2 10960 DATA 98297f28f00209808dca986032 10970 DATA ad00d3c9fff00b4a4a4a4a2d98 10980 DATA 00d309f0300dad0fd22904d094 10990 DATA 10ac09d2b951fba00fd95c9515 11000 DATA f00c8810f8add39829fc8dd329 11010 DATA 9860982903a88cc598c002b0bf 11020 DATA 17add39829f385cd98486901e7 11030 DATA 0a0a05cd8dd39820e89468a88a 11040 DATA 20f7959005202e95b00dbdc05e 11050 DATA 9e098099c09ea9209dc09e6042 11060 DATA 8a4818a5007920961879209605 11070 DATA c914b03384cd20f795a228c950 11080 DATA 27f006a222c926d02286ce98ae 11090 DATA aaa4cd20f795b017a5d04ab0fd 11100 DATA 12a901203296bdc09e098099e1 11110 DATA c09ea9209dc09e68aa60c92481 11120 DATA d00acec298a90320329618600e 11130 DATA c92ed007a9012032961860c9a1 11140 DATA 21d00fadc298d00a8dc698a975 11150 DATA 219dc09e18603860fbf7fefd19 11160 DATA 6f7071612b2a2d3d363938374e 11170 DATA 85cda00320f795492ef0334984 11180 DATA 2e4925f02d4925492af0279041 11190 DATA 26a00220f795c5cdf01ca000b2 11200 DATA 20f795d007a00420f795900f72 11210 DATA a00120f795d007a00520f79575 11220 DATA 900160a5cd9dc09e60098085cc 11230 DATA cd84cea9209dc09ea00320f79d 11240 DATA 95b009900138a5cd99c09e60e0 11250 DATA c92ef020c925f01ca00420f7bc 11260 DATA 95b007a00020f79590e3a005b0 11270 DATA 20f795b007a00120f79590d515 11280 DATA a5ce9dc09e386018a50079205c 11290 DATA 96c9149003a9ff6018a5017945 11300 DATA 2696c90cb0f3188a792c96a8b9 11310 DATA b9c09e297fc92018f001386049 11320 DATA ff010000ff010000ff01010102 11330 DATA ff01ec141315cdc79890038d74 11340 DATA c79860acc798f02f88200c9835 11350 DATA ad1ad2290f69088d7296b97404 11360 DATA 96c003900698a0031974968dda 11370 DATA 01d2b970968d00d2200c98a95e 11380 DATA 008d01d28dc7986000040010c0 11390 DATA 8104a400a2ff8ec5988ec698a1 11400 DATA e886008601bdc09e3035c9306e 11410 DATA 90184838e930690320329618ad 11420 DATA 686901c9379002a9209dc09e28 11430 DATA d019290f0aa8b9e198f0108d92 11440 DATA bc96b9e0988dbb968a4820ba0d 11450 DATA 9668aae600a500c9149006a94f 11460 DATA 008500e601e8e0f090b3a2eff8 11470 DATA bdc09e297f9dc09ecae0ffd037 11480 DATA f3add398acc5983007add39863 11490 DATA 4902d00229fe8dd398a5d029da 11500 DATA 01d010adcd9849808dcd98ad5b 11510 DATA d29849808dd298203b96464dae 11520 DATA a51130034c6092ad1c02d0fbbd 11530 DATA a9068d1c02e6d0a200a90085e0 11540 DATA cba99b85cca91385cdbcc09e88 11550 DATA b9a998a00091cb0901c891cb24 11560 DATA 0920a02991cb29fe8891cb1871 11570 DATA a5cb690285cb9002e6cce8c61d 11580 DATA cd10d618a5cb692885cb9002ae 11590 DATA e6cce0f090c3adc198a00920a4 11600 DATA 7797adc498a0234820809768c1 11610 DATA 4a4a4a4a290f18694099a492f0 11620 DATA 8860a9e08511a28ba09220d55b 11630 DATA 97464dad0fd24a4a4a2d1fd0b2 11640 DATA 2d10d02d11d0d0eda2008ec3cb 11650 DATA 98e88ec498a0efa92099c09eb9 11660 DATA 88c0ffd0f8ad00708dc0982031 11670 DATA 9693ad01708dc898202397a9b7 11680 DATA 90a269a0928df402a9008d0086 11690 DATA d48d2f028e30028c3102a213c6 11700 DATA a9009d0090bd03700a08c9c0a1 11710 DATA b006e93eb00269c0286a9dc0a7 11720 DATA 9fca10e4200c98a9228d2f02aa 11730 DATA a514c514f0fc60a91785cda999 11740 DATA 7085ceaec398f00e38a9ef65ff 11750 DATA cd85cd9002e6cecad0f2a9801a 11760 DATA 205498add39829fc8dd398adee 11770 DATA ca98297f8dca98205498a924d2 11780 DATA 20af988dc298a9ff8dfc0260e1 11790 DATA 8dae98a2198a48a228ac1ad2c2 11800 DATA c0f0b0f9209798cad0f3207cd1 11810 DATA 9868aacad0e7a000209798c8e2 11820 DATA c0f090f8a5cd48a5ce48200cd9 11830 DATA 98202397a903203296203b96f7 11840 DATA 6885ce6885cd60b1cd2cae98c5 11850 DATA 1002a923c9209004c9309002e6 11860 DATA a92799c09e6000a200a000d942 11870 DATA c09ed001e8c8c0f090f58a60fe 11880 DATA 000000000000000000009c12ae 11890 DATA 0a909e120c0c90180208120e34 11900 DATA 0c020406080604020000649424 11910 DATA 0e940000c99300000294b393da 11920 DATA bf93ce937c943b94000007942d 11930 DATA 0000b89300000000000000004b
References
Listing downloads
Downloads
Copyright holder