10 REM ึลาิษรมฬ ะฯำษิษฯฮลา ลุมอะฬล›20 REM "ISLAND JUMPER"›50 GRAPHICS 2:POKE 752,1›60 SETCOLOR 4,9,4›70 ? #6:? #6:? #6:? #6;" ISLAND"›80 ? #6:? #6;" JUMPER"›90 ? " BY"›100 ? :? ,"DAVID MARKLEY"›110 VP=1536›120 FOR G=0 TO 93›125 READ D›130 POKE VP+G,D›135 NEXT G›140 REM ** VERTICAL POSITIONER CODE **›150 DATA 104,162,5,104,149,220,202,16,250,198,220,198,222,160,0,177,224,170›160 DATA 168,165,223,240,9,169,0,145,222,136,208,249,138,168,165,221,240,7,177,224,145,220,136,208,249,96›170 REM ** AIRPLANE DATA **›180 APIMG=VP+44›190 DATA 6,142,132,255,255,4,14›200 REM ** JUMPER DATA **›210 JPIMG=APIMG+7›220 DATA 9,189,189,90,60,24,24,36,66,129›230 REM ** JUMPER & CHUTE DATA **›240 JSIMG=JPIMG+10›250 DATA 15,60,126,126,255,255,129,189,189,90,60,24,24,36,66,195›260 REM ** WAVING JUMPER **›270 JWIMG=JSIMG+16›280 DATA 15,0,0,0,0,0,128,188,188,88,60,26,25,37,66,195›290 REM ** DATA USED TO CLEAR MEMORY **›300 CLEAR=JWIMG+16›310 DATA 255›320 FOR D=1 TO 300:NEXT D›330 GRAPHICS 5›340 SETCOLOR 2,9,2›350 SETCOLOR 4,8,6›360 I=PEEK(106)›365 X=I*256-1172›370 POKE X,112›371 POKE X+1,71›372 POKE X+2,96›373 POKE X+3,I-1›374 POKE X+4,112›375 POKE X+5,74›376 POKE X+6,160›377 POKE X+7,I-5›380 I=I-8›390 POKE 54279,I›400 J=I*256+513›410 POKE 559,46›420 POKE 53256,1›430 POKE 53277,3›440 POKE 704,56›450 POKE 705,12›460 D=USR(VP,CLEAR,J,0)›465 SLOPE=2›470 TOP=J+17›480 BOT=J+55›490 SETCOLOR 0,12,8›500 SETCOLOR 1,1,2›510 COLOR 2›520 PLOT 37,34:DRAWTO 42,34›530 PLOT 36,35:DRAWTO 49,35›540 PLOT 47,29:DRAWTO 47,34›550 COLOR 1›560 PLOT 43,30:DRAWTO 47,27›570 PLOT 51,30:DRAWTO 47,27›580 PLOT 47,27:DRAWTO 49,30›590 PLOT 47,27:DRAWTO 45,30›600 PLOT 46,27›610 HSCORE=0›620 LAPOS=0›630 APOS=J+70›640 I=-1›650 JUMP=5›660 SCORE=0›670 PNTS=30›680 JMP=0›690 SOUND 0,31,4,4›700 POKE 623,4›710 JSTOP=J-219›720 FOR G=20 TO 245 STEP 3›730 POKE 53248,G›740 D=USR(VP,APIMG,LAPOS,APOS)›750 IF JMP=0 AND G<180 AND STICK(0)<>15 THEN JMP=APOS+132:POKE 53249,G+4:IMG=JPIMG:D=USR(VP,IMG,O,JMP)›760 LJMP=JMP›770 IF JMP=0 THEN 880›780 JMP=JMP+3›790 IF JMP=122 AND HJMP<=126 THEN JSTOP=J+208:GOTO 860›820 IF HJMP<120 OR HJMP>134 THEN 860›830 JSTOP=J+210›840 POKE 623,1›850 IF PNTS>15 THEN PNTS=15›860 IF JMP>JSTOP THEN 940›870 D=USR(VP,IMG,LJMP,JMP)›880 LAPOS=APOS›890 APOS=APOS+I›900 D=USR(VP,APIMG,LAPOS,APOS)›910 IF APOS>BOT THEN I=-SLOPE›920 IF APOS9 THEN PNTS=PNTS-8:GOTO 1220›950 IF JMP134 THEN TONE=8:GOTO 1010›980 SCORE=SCORE+PNTS›985 TONE=12›990 D=USR(VP,JWIMG,0,JMP-1)›1000 ? "SCORE ";SCORE:? :? ›1010 FOR D=15 TO 0 STEP -1›1020 SOUND 1,12,T0NE,D›1030 FOR I=1 TO 10:NEXT I›1040 NEXT D›1050 SOUND 0,0,0,0›1055 SOUND 1,0,0,0›1060 JUMP=JUMP-1›1070 IF JUMP<>0 THEN 1170›1080 IF SCORE>HSCORE THEN HSCORE=SCORE›1090 FOR I=1 TO 120›1100 IF I=1 THEN ? "HIGH SCORE ";HSCORE:? :? ›1110 IF I=60 THEN ? "FINAL SCORE ";SCORE:? :? ›1120 IF STRIG(0)=1 THEN 1150›1130 D=USR(VP,CLEAR,J,0)›1135 PRINT ›1140 GOTO 630›1150 NEXT I›1160 GOTO 1090›1170 ? "JUMP ";6-JUMP:? :? ›1180 FOR D=0 TO 250:NEXT D:? ›1190 D=USR(VP,CLEAR,J,0)›1195 I=SLOPE›1200 IF RND(0)>0.5 THEN I=-SLOPE›1210 GOTO 670›1220 POKE 77,0›1225 GOTO 690›1230 END ›