!-------------------------------------------------- !- Friday, February 28, 2014 11:41:14 AM !- Import of : !- C:\data\THE FINAL CAVE.prg !-------------------------------------------------- 0 POKE 53280,0:POKE 53281,0:PRINT"{clear}"TAB(241)" please wait, redefining characters.."V{8}{1}"{ltblue}" 2 POKE 52,48:POKE 56,48:CLR 3 PRINT"{black}"FRE(0)-(SGN(FRE(0))<0)*65535 4 POKE 56334,PEEK(56334) AND 254 5 POKE 1,PEEK(1) AND 251:PRINT"{ltblue}" 6 FOR I=0 TO 511:POKE I+12288,PEEK(I+53248):NEXT 7 POKE 1,PEEK(1)OR4 8 POKE 56334,PEEK(56334)OR1 9 POKE 53272,(PEEK(53272)AND240)+12 15 REM --TREASURE-- 16 FORI=12488 TO 12488+7:READ A:POKE I,A:NEXT 17 DATA 0,63,67,133,249,250,252,248 18 REM --MAN-- 19 FORI=12936TO12936+7:READ A:POKEI,A:NEXT 20 DATA 24,153,255,24,255,255,255,255 21 REM --GIRDER-- 22 FORI=12496TO12496+7:READ A:POKEI,A:NEXT 28 DATA 0,0,0,129,219,255,255,255 29 REM --LADDER-- 30 FORI=12992TO12992+7:READ A:POKEI,A:NEXT 31 DATA195,255,255,195,195,255,255,195 50 REM --COUSIN-- 55 FOR I=12664 TO 12664+7:READ H:POKE I,H:NEXT 56 DATA 24,153,255,24,24,36,36,195 218 PRINT"{ltblue}{clear}":X=1334:A=1 220 POKE 1117,26:POKE 1118,26:POKE 1119,26: POKE 1120,26:POKE 1121,26:POKE 1122,26 222 POKE 1123,26:POKE 1124,26:POKE 1125,26: POKE 1126,26:POKE 1127,26:POKE 1128,26 224 POKE 1129,26:POKE 1130,26:REM ++END++ 226 POKE 1226,26:POKE 1227,26:POKE 1228,26: POKE 1229,26:POKE 1230,26:POKE 1231,26 227 POKE 1232,26:POKE 1233,26:POKE 1234,26: POKE 1235,26:POKE 1236,26:POKE 1237,26 228 POKE 1238,26:POKE 1806,26:POKE 1686,26 229 REM ----------- 230 REM DRAW SCREEN 240 REM ----------- 250 FORA=1TO186:READ K1:POKEK1,26:NEXT 300 DATA 1240,1241,1242,1243,1244,1245 310 DATA 1247,1248,1249,1250,1251,1252 320 DATA 1253,1255,1256,1257,1258,1259 330 DATA 1260,1261,1326,1327,1330,1331 332 DATA 1332,1333,1334,1335,1336,1341 334 DATA 1342,1346,1347,1348,1349,1359 336 DATA 1360,1361,1362,1363,1393,1394 337 DATA 1395,1396,1397,1418,1419,1419 338 DATA 1420,1421,1422,1445,1446,1447 340 DATA 1448,1449,1468,1469,1470,1471 350 DATA 1478,1479,1480,1481,1482,1492 352 DATA 1493,1494,1495,1496,1497,1514 354 DATA 1515,1539,1540,1541,1564,1565 355 DATA 1566,1567,1568,1569,1570,1586 358 DATA 1587,1588,1589,1590,1591,1592 360 DATA 1593,1597,1598,1599,1600,1601 362 DATA 1602,1612,1613,1614,1615,1616 364 DATA 1617,1618,1673,1674,1675,1687 365 DATA 1698,1699,1700,1701,1702,1708 368 DATA 1709,1710,1718,1719,1720,1721 370 DATA 1722,1723,1731,1732,1733,1734 380 DATA 1793,1794,1795,1796,1807,1808 382 DATA 1809,1816,1817,1819,1820,1821 384 DATA 1826,1827,1828,1829,1830,1831 386 DATA 1838,1839,1840,1841,1842,1843 387 DATA 1844,1845,1851,1852,1853,1854 388 DATA 1855,1856,1239,1479,1348,1688 389 DATA 1328,1329,1723,1599,1587,1822 390 REMX DATAX1814,1815,1816,1817,1818 391 DATA 1246,1247,1254,1255,1243,1253 392 DATA 1350,1351,1711,1390,1430,1347 394 REMXXDXTA X814X1815,1816,1817,1X18 395 DATA 1814,1815,1816,1817,1818 399 REM ------X----------- 400 REM DRAW BOTTOM BORDER 401 REM ------------------ 402 FOR M=1944 TO 1983 403 POKE M,26: NEXT:REM --------------------------- 404 REM POSITION TREASURE ON SCREEN 405 REM --------------------------- 406 POKE 1188,25: POKE 1220,25 408 POKE 1441,25: POKE 1309,25 410 POKE 1456,25: POKE 1547,25 412 POKE 1845,32: POKE 1787,25 414 POKE 1800,25: POKE 1781,25 415 REM -------------------------- 416 REM POSITION LADDERS ON SCREEN 418 REM -------------------------- 420 FORM=1 TO 64:READA1:POKEA1,88:NEXT 430 DATA 1118,1158,1198,1882,1922,1842 440 DATA 1236,1276,1316,1356,1895,1935 442 DATA 1855,1600,1640,1680,1227,1267 446 REMX DATAX1414X1454,1328,1368,1408 448 DATA 1868,1908,1687,1727,1767,1807 450 DATA 1847,1887,1470,1510,1550,1448 460 DATA 1488,1528,1927,1815,1252,1292 470 DATA 1567,1607,1647,1350,1390,1430 471 DATA 4330,1347,1396,1238,1328,1720 472 DATA 1374,1494,1590,1760,1800,1840 473 DATA 1307,1480,1520,1560,1408,1828 474 DATA 1414,1454,1328,1368,1414,1368 475 A=1 480 REM --------------- 490 REM -DRAW TOP BORDER- 495 REM --------------- 500 IF A<>2 THEN POKE 1089,47 501 REM "score: 00" 510 POKE 1028,19:POKE 1029,3:POKE 1030,15 511 POKE 1035,48:POKE 1036,48 512 POKE 1031,18:POKE 1032,5:POKE 1033,58: REM "time: 000000" 513 POKE 1049,20:POKE 1050,9:POKE 1051,13 514 POKE 1052,5:POKE 1053,58:POKE 1054,32 550 REM 560 REM -------- 570 REM THE GAME 580 REM -------- 590 P=1980:TI$="000000" 600 PRINT"{home}{up}";TAB(30);TI$:POKE P,81 610 B1=-((PEEK(56321)AND16)=0):REM FIRE BUTTON 620 J1=NOT PEEK(56321)AND15 :REM 1 JOYSTICK 632 IFJ1=4THENP=P-1:POKEP+1,26:REM MAN MOVES LEFT 633 IFJ1=8THENP=P+1:POKEP-1,26:REM MAN MOVES RIGHT 634 IF PEEK(P-40)=88 AND J1=1 THEN P=P-40:POKEP+40,88 635 IF PEEK(P+40)=88 AND J1=2 THEN P=P+40:POKEP-40,88 636 IF PEEK(P-40)=96 AND J1=1 THEN GOTO 600: 637 IF PEEK(P+40)=96 AND J1=2 THEN GOTO 600: 640 IF PEEK(P+1)=32 THEN P=P-1 650 IF PEEK(P-1)=32 THEN P=P+1 651 IF PEEK(P-40)=25 AND B1=1 THEN POKEP-40,46:S=S+1:GOSUB 1001 652 IF A<>2 THEN IF PEEK(1036)=56 THEN POKE 1118,88 653 IF A<>2 THEN IF PEEK(1036)=57 THEN GOSUB 2000 654 IF PEEK(P-40)=47 THEN GOSUB 2000 655 IF PEEK(1035)=49 AND PEEK(1036)=56 THEN GOSUB 4500 1000 GOTO 600 1001 IF PEEK(1035)=48 AND PEEK(1036)=48 AND S=1 THEN POKE 1036,49 1002 IF PEEK(1035)=48 AND PEEK(1036)=49 AND S=2 THEN POKE 1036,50 1003 IF PEEK(1035)=48 AND PEEK(1036)=50 AND S=3 THEN POKE 1036,51 1004 IF PEEK(1035)=48 AND PEEK(1036)=51 AND S=4 THEN POKE 1036,52 1005 IF PEEK(1035)=48 AND PEEK(1036)=52 AND S=5 THEN POKE 1036,53 1006 IF PEEK(1035)=48 AND PEEK(1036)=53 AND S=6 THEN POKE 1036,54 1007 IF PEEK(1035)=48 AND PEEK(1036)=54 AND S=7 THEN POKE 1036,55 1008 IF PEEK(1035)=48 AND PEEK(1036)=55 AND S=8 THEN POKE 1036,56 1009 IF PEEK(1035)=48 AND PEEK(1036)=56 AND S=9 THEN POKE 1036,57 1010 IF PEEK(1035)=48 AND PEEK(1036)=57 AND S=10 THEN POKE 1035,49: POKE 1036,48 1011 IF PEEK(1035)=49 AND PEEK(1036)=48 AND S=11 THEN POKE 1035,49: POKE 1036,49 1012 IF PEEK(1035)=49 AND PEEK(1036)=49 AND S=12 THEN POKE 1035,49: POKE 1036,50 1013 IF PEEK(1035)=49 AND PEEK(1036)=50 AND S=13 THEN POKE 1035,49: POKE 1036,51 1014 IF PEEK(1035)=49 AND PEEK(1036)=51 AND S=14 THEN POKE 1035,49: POKE 1036,52 1015 IF PEEK(1035)=49 AND PEEK(1036)=52 AND S=15 THEN POKE 1035,49: POKE 1036,53 1016 IF PEEK(1035)=49 AND PEEK(1036)=53 AND S=16 THEN POKE 1035,49: POKE 1036,54 1017 IF PEEK(1035)=49 AND PEEK(1036)=54 AND S=17 THEN POKE 1035,49: POKE 1036,55 1018 IF PEEK(1035)=49 AND PEEK(1036)=55 AND S=18 THEN POKE 1035,49: POKE 1036,56 1019 IF PEEK(1035)=49 AND PEEK(1036)=56 AND S=19 THEN POKE 1035,49: POKE 1036,57 1020 RETURN 2000 TM$=TI$:PRINT"{clear}{space*11}screen completed{space*11}" 2010 PRINT:PRINT 2012 PRINT"all of the treasure was taken, and " 2025 PRINT 2026 PRINT"big brother is saved.{space*2}time for" 2027 PRINT"the first screen: ";TM$ 2028 PRINT TAB(80) 2030 PRINT"please wait and enjoy the victory song." 3010 REM -----VICTORY SONG----- 3020 S=54272:FORE=STOS+28:POKEE,0:NEXTE 3030 POKE S+5,34:POKES+6,100 3040 POKE S+12,37:POKES+13,145:POKES+24,15 3050 FOR X=5TO145:POKES+1,X:POKES,X 3060 IF X<65 THEN POKE S+8,X:POKES+7,X:POKES+11,33:GOTO 3110 3070 POKE S+4,65:A=INT(RND(1)*50)+10 3080 IF X/A<>INT(X/A) OR X<>65THEN3100 3090 POKE S+8,37:POKES+7,162:POKES+11,129:F=X:GOTO3110 3100 IF X-F>RND(1)*5 THENPOKES+11,0 3110 FOR DE=1 TO X/1.2:NEXTDE 3120 POKE S+4,129:NEXT X:POKES+4,128:POKES+11,0 3130 FOR DE=1TO (RND(1)*1000)+500:NEXTDE:POKES+11,32 3140 FOR X=11000 TO (RND(1)*500)+500 STEP -50 3150 FH=INT(X/256):FL=X-(256*FH) 3160 POKE S+1,FH:POKES,FL:POKES+4,129 3170 POKES+8,FH:POKES+7,FL:POKES+11,129 3180 FOR DE=1 TO X/300:NEXT DE 3190 POKE S+4,65:POKE S+11,65:NEXT X: 3195 POKE S+4,0 :POKE S+11,0 :POKE S+8,0:POKE S+1,0 3800 PRINT CHR$(147):A=3:A=A-1 4000 REM -SCREEN #2- 4010 FOR X=1112 TO 1135:POKE X,26:NEXT 4015 FOR X=1230 TO 1234:POKE X,26:NEXT 4020 FOR X=1242 TO 1245:POKE X,26:NEXT 4025 FOR X=1253 TO 1257:POKE X,26:NEXT 4030 FOR X=1316 TO 1320:POKE X,26:NEXT 4035 FOR X=1327 TO 1331:POKE X,26:NEXT 4040 FOR X=1350 TO 1353:POKE X,26:NEXT 4045 FOR X=1374 TO 1377:POKE X,26:NEXT 4050 FOR X=1402 TO 1405:POKE X,26:NEXT 4055 FOR X=1468 TO 1472:POKE X,26:NEXT 4060 FOR X=1475 TO 1492:POKE X,26:NEXT 4065 FOR X=1495 TO 1499:POKE X,26:NEXT 4070 FOR X=1588 TO 1592:POKE X,26:NEXT 4075 FOR X=1595 TO 1612:POKE X,26:NEXT 4080 FOR X=1615 TO 1619:POKE X,26:NEXT 4085 FOR X=1706 TO 1712:POKE X,26:NEXT 4090 FOR X=1715 TO 1732:POKE X,26:NEXT 4091 FOR X=1735 TO 1741:POKE X,26:NEXT 4095 FOR X=1826 TO 1832:POKE X,26:NEXT 4100 FOR X=1835 TO 1852:POKE X,26:NEXT 4105 FOR X=1855 TO 1861:POKE X,26:NEXT 4110 FOR X=1944 TO 1983:POKE X,26:NEXT 4111 POKE 1243,32:POKE 1244,32:POKE 1204,47 4115 REM -LADDERS FOR SCREEN #2- 4120 FOR X=1121 TO 1481 STEP 40:POKE X,88:NEXT X 4125 FOR X=1126 TO 1486 STEP 40:POKE X,88:NEXT X 4130 FOR X=1479 TO 1617 STEP 40:POKE X,88:NEXT X 4135 FOR X=1488 TO 1608 STEP 40:POKE X,88:NEXT X 4140 FOR X=1597 TO 1717 STEP 40:POKE X,88:NEXT X 4145 FOR X=1610 TO 1730 STEP 40:POKE X,88:NEXT X 4150 FOR X=1721 TO 1841 STEP 40:POKE X,88:NEXT X 4155 FOR X=1726 TO 1846 STEP 40:POKE X,88:NEXT X 4160 FOR X=1837 TO 1957 STEP 40:POKE X,88:NEXT X 4165 FOR X=1850 TO 1970 STEP 40:POKE X,88:NEXT X 4170 FOR X=1232 TO 1352 STEP 40:POKE X,88:NEXT X 4175 FOR X=1351 TO 1471 STEP 40:POKE X,88:NEXT X 4180 FOR X=1470 TO 1590 STEP 40:POKE X,88:NEXT X 4185 FOR X=1589 TO 1709 STEP 40:POKE X,88:NEXT X 4190 FOR X=1708 TO 1828 STEP 40:POKE X,88:NEXT X 4195 FOR X=1827 TO 1947 STEP 40:POKE X,88:NEXT X 4200 FOR X=1255 TO 1375 STEP 40:POKE X,88:NEXT X 4205 FOR X=1376 TO 1496 STEP 40:POKE X,88:NEXT X 4210 FOR X=1497 TO 1617 STEP 40:POKE X,88:NEXT X 4215 FOR X=1618 TO 1738 STEP 40:POKE X,88:NEXT X 4220 FOR X=1739 TO 1859 STEP 40:POKE X,88:NEXT X 4225 FOR X=1860 TO 1980 STEP 40:POKE X,88:NEXT X 4230 REM -SCREEN #2 TREASURE- 4235 POKE 1073,25:POKE 1094,25:POKE 1191,25:POKE 1216,25:POKE 1277,25:POKE 1290,25 4240 POKE 1193,25:POKE 1436,25:POKE 1451,25:POKE 1458,25:POKE 1671,25:POKE 1680,25 4245 POKE 1687,25:POKE 1700,25:POKE 1791,25:POKE 1816,25:POKE 1912,25:POKE 1935,25 4246 POKE 1240,26:POKE 1247,26:POKE 1322,26:POKE 1325,26:POKE 1400,26:POKE 1407,26 4247 POKE 1243,26:POKE 1244,26:POKE 1204,32 4250 REM -DRAW TOP BORDER- 4255 REM "score: 00" 4260 POKE 1028,19:POKE 1029,3:POKE 1030,15 4265 POKE 1035,48:POKE 1036,48 4270 POKE 1031,18:POKE 1032,5:POKE 1033,58:REM "time: 000000" 4275 POKE 1049,20:POKE 1050,9:POKE 1051,13 4280 POKE 1052,5 :POKE 1053,58:POKE 1054,32 4285 GOTO 480 4500 FOR X=1105 TO 1945 STEP 40:POKE X,88:NEXT X 4505 POKE 1104,26:POKE 1105,26:POKE 1106,26:POKE 1107,26:POKE 1108,26:POKE 1109,26 4510 POKE 1068,47:POKE 1824,26:POKE 1704,26:POKE 1036,57:POKE 1065,32:POKE 1105,88 4515 RETURN