1 ' OLD: 0=EMPTY, 1=KEY, 2=TREASURE, 3=X, 4=HOLO-BLOCK, 5=FIRE, 6=FPD, 7=LADDER, 8=HINT, 9=BLOCK, 1 ' OLD: 10=MAN, 11=TORCH 1 ' NEW: 1=LADDER, 2=BLOCK, 3=HOLO-BLOCK, 4=MAN, 5=TORCH, 6=EMPTY, 7=KEY, 8=TREASURE, 9=X, 10=FPD, 1 ' NEW: 11=HINT, 12=FIRE 10 PMODE0:PCLEAR1:PCLEAR8:PMODE3:CLEAR2048:PMODE4,5:PCLS0:PMODE4:PCLS0:DIMA(48):L$=STRING$(208,0):H$=STRING$(255,0):N$=STRING$(12,0) 11 POKE480,6:POKE481,7:POKE482,8:POKE483,9:POKE484,3:POKE485,12:POKE486,10:POKE487,1:POKE488,11 12 POKE489,2:POKE490,4:POKE491,5 20 LV=0:CLS:PRINT"MAKING LADDER2.QMD ...",,,:OPEN"O",#1,"LADDER2.QMD" 21 LV=LV+1:READL$:IFL$<>"X"THENPRINT@352,"LEVEL"LV"...";:READH$:PRINT#1,H$:GOTO21 22 CLOSE#1:RESTORE:LV=LV-1:X=0:Q=0 30 FORX=0TOLV-1:IF(X/9)=FIX(X/9)THENF=F+1:CLS:PRINT"MAKING FILE"F"OF"FIX((LV+8)/9)"...":B=3584:C=9728:D=B:E=C 31 READL$:READH$:PRINT@64,"LEVEL"X+1"OF"LV"...";:Q=((X+1)=LV)*-248:FORT=1TO16:PRINT@96,"BYTE"T"OF 208":POKEB,2:POKEC,Q:Q=0:B=B+1:C=C+1:NEXT 32 FORT=1TO176:PRINT@96,"BYTE"T+16"OF 208";:Z=ASC(MID$(L$,T,1))-48:S=1+(((T/16)=FIX(T/16))ORMID$(L$,T+1,1)="4"ORMID$(L$,T+1,1)="9"ORZ=4ORZ=9) 33 IFT<161AND(MID$(L$,T+16,1)="7"ORZ=7)ANDMID$(L$,T+16,1)<>"4"ANDMID$(L$,T+16,1)<>"9"ANDZ<>4ANDZ<>9THENS=S+2 34 Z=Z+480:Z=PEEK(Z):POKEB,Z:POKEC,S:B=B+1:C=C+1:NEXT:FORT=1TO16:PRINT@96,"BYTE"T+192"OF 208":POKEB,12:POKEC,0:B=B+1:C=C+1:NEXT:D=D+256:E=E+256:B=D:C=E 35 IFX=LV-1OR((X+1)/9)=FIX((X+1)/9)THENPRINT,,"SAVING MAPS"X-7"TO"X+1"...":N$="LADDER2.GF"+CHR$(48+F):SAVEMN$,9728,11999,9728:PCOPY1TO5:PCOPY2TO6:PCOPY3TO7:PCOPY4TO8:N$="LADDER2.MF"+CHR$(48+F):SAVEMN$,9728,11999,9728 39 NEXT 600 SQ=28416:CLS:PRINT"CREATING TILE DATA ...",,,"STEP 1 OF 3:":FORW=1TO176:PRINT@96,"BYTE"W"OF 176";:POKE480+W,W:NEXT:PRINT@64,"STEP 2 OF 3:" 601 FORW=176TO1STEP-1:PRINT@96,"BYTE"177-W"OF 176 ";:U=RND(W):U=RND(W):V=PEEK(U+480):T=PEEK(480+W):POKE480+U,T:POKE480+W,V:G=G+1:NEXT:PRINT@64,"STEP 3 OF 3:" 602 E=1:FORW=1TO176:PRINT@96,"BYTE"E"OF 526 ";:PL=PEEK(W+480):T=PL-1:Y4=FIX(T/16):X4=T-(Y4*16):I1=(Y4-(FIX(Y4/2)*2))-1:I2=(X4-(FIX(X4/2)*2))-1:I=I1*I2:X4=X4*16:Y4=(Y4*16)+8:POKESQ+E,X4:POKESQ+1+E,Y4:POKESQ+2+E,PL:E=E+3:NEXT 603 POKESQ,0:PRINT@160,"SAVING LADDER2.TDF ...":SAVEM"LADDER2.TDF",SQ,SQ+528,SQ 900 CLS:PRINT"SAVED -",,,,"LADDER2.QMD (IN ASCII FORMAT)","LADDER2.GF1",,"LADDER2.GF2",,"LADDER2.GF3",,"LADDER2.MF1",,"LADDER2.MF2",,"LADDER2.MF3",,"LADDER2.TDF",,,, 801 DATA"00202007700202000997990770997990002720077002720009979907709979901007000770007003799999999999999770;0080000:00;077000979999790007700007000070000770200700007002079999999559999999 802 DATA"TO PASS EACH LEVEL, GET TEN BLUECHESTS AND THEN THE x. YOU NEEDA KEY TO OPEN THE CHESTS. 803 DATA"000200070:0208070997990709979907020702070207020799070997990709970007020002070300990709979907099702070207000700070997990709979907000100070006000799999999999999995555555555555555 804 DATA"TO SURVIVE FALLING DOWNWARD, GETA fALL pROTECTION dEVICE. ARE YOU WONDERING WHAT SUCH A THING IS DOING IN A MINE SHAFT? SO ARE WE. 806 DATA"8070600010000:059979997999799709002000200020070009990999099909972000200020002007990999099909990700200020002000070999099909990799000000300000070099999999999999050000000000000004 807 DATA"FALLING OFF THE SCREEN WILL KILLYOUR MAN. BUT AS LONG AS THERE IS A LADDER OR A BLOCK THAT IS SUPPORTING YOU, THERE IS NOTHINGTO WORRY ABOUT. 808 DATA"8000000000000001999799979997999790000000000000979;90909390909;9790909094909090979090922222909097909094999490909790920202020290979;94999999949;97:0000000000000679999999999999999 809 DATA"TAKE A WALK OF FAITH ... AND ALLOW THIS LEVEL TO SURPRISE YOU. 810 DATA"000000000000000000022200:0222000004999977999940000107207702703004540799999970454444079999997044400207067780702000099999779999900000000000000000000000000000000005555555555555555 811 DATA"IF THE KEY SEEMS IMPOSSIBLE TO GET, TRY TO APPROACH IT FROM EVERY ANGLE. 812 DATA"0000070:207000000799970770799970070200080000207007079999999970700702000000002070079997077079997002220703107022200997079779707990060700077000706097079999999970795755555555555575 813 DATA"YOU DON'T NEED TO TAKE ALL THAT YOU SEE TO COMPLETE A LEVEL; JUST ONE KEY, TEN TOOLBOXES, ANDTHE x. 814 DATA"777777777777777792929000092929079494920029494907949497997949490704942299224940070494799997494007049471773749400704949977994940078070070:7007006799999999999999975999999999999955 815 DATA"YES, IT'S A CASTLE. WAS A CASTLE. IN A MINE SHAFT. DON'TASK. 816 DATA"000000000000000097979797979797970202002000200207070707770777070707370710072207070777077007770707007007200227000700700777077707078:0000000000000799999999999999995555555555555555 817 DATA"''YES''? YES TO WHAT??????????? 818 DATA"090100000000309009797997799797900000000770000000;92929077092929;094949077094949000000007700000000929290770929290;94949077094949;800200077600200:99999999999999995555555555555555 819 DATA"THERE IS no PLACE IN THIS ENTIRELEVEL THAT YOU CAN'T MOVE. REMEMBER THIS! 820 DATA":0000000000000087999700007997997700070000700000770007999970949077022222222290907707777777779090770077007000909077000700700092907700000070009490770000001500530079999999990099999 821 DATA"ONE TREASURE CAN ONLY BE PICKED UP FROM ABOVE. BUT YOU MUST GETIT LAST ... 822 DATA";00202020202020;0007270707072701000999979799999700:00007270000070797000797000777870700072700070097077707970777000737070000070000079707770777000050000007070000059000000777000009 823 DATA"THIS LEVEL AND THE NEXT ARE ALL ABOUT MANEUVERABILITY. THERE ARE NO F.P.D.S, BUT NO WEAK BLOCKS, EITHER. 824 DATA"00000000000000007999979999799997790000000000009779;0172002730;97790079700797009779002920029200977900797007970097790029200292009779;0797007970;97700000000000:0079999999999999999 825 DATA"X 826 DATA"9800000000000019999979797979997999902020202099799990904040900979990202020202097990090909090900799020205050202079909090909090907993:000000000067999999999999999995555555555555555 827 DATA"THERE ARE TWO WEAK BLOCKS IN THIS LEVEL. HOWEVER, THEY'RE WELL-MARKED AND PLACED WHERE THEY'RE EASY TO REMEMBER. 828 DATA"97708777:07797707701779772077700220779997702220777007797700777009772077702779772997702220779997797702777207797707702779772077702320779997702020777607797706777309975577755799975 829 DATA"TWO WORDS - PLAN CAREFULLY! 830 DATA"000203020000000007970707970797970702070207020207070799970707070707020:0207020207099997999907070708000700000000070777777777999997071717171703610709499949490999495555555555555555 831 DATA"ONLY ONE OF THE KEYS SHOULD BE TAKEN. AND BEWARE OF ''FOOL'S GOLD''. 832 DATA"00020202020200000079797979797000907272727272709080747474747470107:70707070707070797979797979797070727272727270706079797979797030907272727272709000747474747470005555555555555555 833 DATA"THE HINT FOR THIS LEVEL CAN BE SUMMED UP IN THREE WORDS - ROWS OF REPETITION. 834 DATA"096000000000008009797979797979700970707070707070097994949494949009719202020202900979944444444490097392020202029009799444444444900970000000000:9009999999999999905555555555555555 835 DATA"ALL THE TREASURES CAN BE OBTAINED, BUT NOT FROM THE GROUND. 836 DATA"9;0777777777770;90070000200007089777000040000777970000022200000797000004440000079700002222200007970000444440000797770630201507779997044444440799509700000000:7909599999999999995 837 DATA"BY NOW, WE HOPE YOU'LL KNOW EXACTLY WHERE YOU'LL LAND WHEN YOU DROP FROM A LADDER. THIS LEVEL PUTS THAT SKILL TO THE TEST! 838 DATA"0:000006000000040797979797979704070000000000070407009291929007040704949494940704070292929292070407049494949407040700929292900704070000030000070409999999999999045555555555555555 839 DATA"X 840 DATA"0000000550000000799799799799799770202076670202077079707447079707700200755700200770979079970979077020207117020207707970749707970773000070070000:799994999999499995555555555555555 841 DATA"X 842 DATA"000000000000000000:1002020030000007970797079700008727272727270007979797979797970727272727272727074797479747974700072707270727000007470747074700000000000000000005555555555555555 843 DATA"THIS HINT - MIND THE TOPS, BUT AVOID THE BOTTOMS. 844 DATA"0100000:000000300997979797979970090202020202097009797979797979700902020202020970097974747474797009020202020209700979797979747970090000000000007009999999949999905555555555555555 845 DATA"X 846 DATA":0010000000080009999999779999999022222077022222099999997799999990000000770000000979797977979797900000005500000000909040990909090030303099030303004040409904040405555555555555555 847 DATA"ONE x IS GOOD, AND THE OTHER ONES ARE BAD. WE WOULD TELL YOUMORE, BUT IT'S NOT SUPPOSED TO BE THAT EASY FOR YOU ANYMORE. 848 DATA"7777777777777700705000000000005070925252525252907099949494949490700001000003000099797979797979970500000000000507092525252525290709494949494999070800000:000006079999999999999999 849 DATA"THERE ARE TWELVE TREASURES ... TWO OF WHICH SHOULD BE LEFT ALONE. FIND OUT WHICH TWO, AND THE LEVEL IS WON. 850 DATA"000:0000000002000797970000002700070300720002700007090007002700000708000070700000099900002700000000000002707200000000002700070000000002700000710000000700000007005555555555555555 851 DATA"YOU CAN TELL YOU'RE ON THE FINALLEVEL OF THE GAME, BECAUSE THIS ONE IS THE TRICKIEST! BUT STICKWITH IT. 899 DATA"X" 0709000700270000070800007 1 ' MAP: 1=LADDER, 2=BLOCK, 3=HOLO-BLOCK, 4=MAN, 5=TORCH, 6=EMPTY, 7=KEY, 1 ' MAP: 8=TREASURE, 9=X, 10=FPD, 11=HINT, 12=FIRE 1 GOTO9000 10 ' SHOULD YOU BE FALLING NOW? IF NOT, GOTO 12 10 Q=PEEK(M+16):IFMO<1ORA=1ORQ<3THEN12 11 Z=8:F=0:V=Y:Y=Y+8:U=X:IFA=8ANDTR<10ANDKY=1THENPOKEP0,0:PLAY"L255T255O1CBDAEGFT2L4O2":POKEP1,0:PUT(U,V)-(U+15,V+15),BL:GET(U,V)-(U+15,V+15),A:POKEM,6:GOSUB7050:GOTO208ELSE208 12 ' GOTOS: 14=KEY, 15=TREASURE, 16=X, 17=FPD, 18=HINT, 210=FIRE 12 IFA<7THEN19ELSEONA-6GOTO14,15,16,17,18,210 14 IFKY=0THENP=1:GOSUB7060:GOSUB250:KY=1:GOTO19ELSE19 15 IFTR<10ANDKY=1THENP=2:GOSUB250:GOSUB7050:GOTO19ELSE19 16 IFTR=10THEN300ELSE19 17 IFFPD=0THENGOSUB7070:FPD=1:P=4:GOSUB250:GOTO19ELSE19 18 P=5:GOSUB250:GOSUB230 19 IFTIMER<10THEN19 20 TIMER=0:M$=INKEY$:V=Y:U=X:IFMO<1THENIFJK=1THEN27ELSEPOKE341,&HFF:POKE342,&HFF:POKE343,&HFF:POKE344,&HFF:GOTO27 21 IFJK=1THENJ0=JOYSTK(0):J1=JOYSTK(1):GOTO27 22 J0=31:J1=31:IFPEEK(341)=247THENJ1=0ELSEIFPEEK(342)=247THENJ1=63 23 IFPEEK(343)=247THENJ0=0ELSEIFPEEK(344)=247THENJ0=63 27 IFM$<>"T"THEN29ELSEJK=-JK:PMODE3,M2:GET(112,87)-(143,104),JB:COLOR0:LINE(118,87)-(137,104),PSET,B:IFJK=1THENPUT(120,88)-(135,103),JN:ELSEPUT(120,88)-(135,103),JF 28 FORT=341TO344:POKET,255:NEXT:FORR=-1TO0:M$=INKEY$:POKE345,&HFF:R=PEEK(345)=247:NEXT:FORR=-1TO0:R=PEEK(345)=255ANDINKEY$<>" ":NEXT:FORR=-1TO0:POKE345,255:R=PEEK(345)=247:NEXT:PUT(112,87)-(143,104),JB 29 IFM$="!"THENNM=0:GOTO400 30 IFJ0=0AND(PEEK(S-1)AND1)=1THENX=X-8:M=M-F(2-MO):S=S-F(2-MO):GOTO34 31 IFJ0=63AND(PEEK(S)AND1)=1THENX=X+8:M=M+F(2-MO):S=S+F(2-MO):GOTO34 32 IFJ1=0ANDPEEK(S-16)>1ANDA=1THENY=Y-8:M=M-F(3-MO):S=S-F(3-MO) 33 IFJ1=63ANDPEEK(S)>1THENY=Y+8:M=M+F(3-MO):S=S+F(3-MO) 34 IFX<>U ORY<>V THENMO=-MO 35 T=M2:M2=M1:M1=T:A=PEEK(M):PMODE3,M2:IFK=PPOINT(X+4,Y+9)ORK=PPOINT(X+10,Y+9)THENPUT(X,Y+9)-(X+15,Y+14),BL:GOTO37 36 ' TREASURE CHECK 36 IFA=11OR(A=8ANDTR<10ANDKY=1)THENPUT(X,Y)-(X+15,Y+15),BL 37 ' WHICH ANIMATION FRAME? 37 IFMO=1THENPUT(X,Y)-(X+15,Y+15),M2,OR ELSEPUT(X,Y)-(X+15,Y+15),M1,OR 38 PMODE4,M2:SCREEN1,1:PMODE3,M1:PUT(U,V)-(U+15,V+15),A:GET(X,Y)-(X+15,Y+15),A:GOTO10 50 PMODE3:PUT(0,8)-(15,23),BL:GET(0,8)-(15,23),A:GOSUB7030:FORE=Q TOG STEP3:U=PEEK(E):V=PEEK(E+1):M=PEEK(E+2):PMODE3,5:PUT(U,V)-(U+15,V+15),WS:PMODE3:PUT(U,V)-(U+15,V+15),WS:FORT=-1TO0:T=(TIMER<1):NEXT:TIMER=0:NEXT 51 PCOPY1TO5:PCOPY4TO8:FORE=Q TOG STEP3:U=PEEK(E):V=PEEK(E+1):M=PEEK(E+2):M=PEEK(C+M) 52 ' NEW: 1=LADDER, 2=BLOCK, 3=HOLO-BLOCK, 4=MAN, 5=TORCH, 6=EMPTY, 7=KEY, 8=TREASURE, 9=X, 10=FPD, 52 ' NEW: 11=HINT, 12=FIRE 52 ' GOTOS: 53=TREASURE, 54=X, 56=TORCH, 57=BLOCK/HOLO-BLOCK, 58=FIRE, 59=FPD, 60=HINT, 61=LADDER, 52 ' GOTOS: 62=EMPTY, 63=MAN, 64=KEY 52 ONM GOTO61,57,57,63,56,62,64,53,54,59,60,58 53 PMODE3,5:PUT(U,V)-(U+15,V+15),CH:PMODE3:PUT(U,V)-(U+15,V+15),CH:GOTO65 54 PMODE3,5:PUT(U,V)-(U+15,V+15),XS:PMODE3:PUT(U,V)-(U+15,V+15),XS:GOTO65 56 PMODE3,5:PUT(U,V)-(U+15,V+15),T1:PMODE3:PUT(U,V)-(U+15,V+15),T2:GOTO65 57 PMODE3,5:PUT(U,V)-(U+15,V+15),BK:PMODE3:PUT(U,V)-(U+15,V+15),BK:GOTO65 58 PMODE3,5:PUT(U,V)-(U+15,V+15),FR:PMODE3:PUT(U,V)-(U+15,V+15),FI:GOTO65 59 PMODE3,5:PUT(U,V)-(U+15,V+15),FP:PMODE3:PUT(U,V)-(U+15,V+15),FP:GOTO65 60 PMODE3,5:PUT(U,V)-(U+15,V+15),QU:PMODE3:PUT(U,V)-(U+15,V+15),QU:GOTO65 61 PMODE3,5:PUT(U,V)-(U+15,V+15),LS:PMODE3:PUT(U,V)-(U+15,V+15),LS:GOTO65 62 PMODE3,5:PUT(U,V)-(U+15,V+15),BL:PMODE3:PUT(U,V)-(U+15,V+15),BL:GOTO65 63 A=E:PMODE3,5:PUT(U,V)-(U+15,V+15),M2:PMODE3:PUT(U,V)-(U+15,V+15),BL:GOTO65 64 PMODE3,5:PUT(U,V)-(U+15,V+15),KS:PMODE3:PUT(U,V)-(U+15,V+15),KS:GOTO65 65 FORT=-1TO0:T=(TIMER<1):NEXT:TIMER=0:NEXT 66 PMODE3:M$="":U=PEEK(A):V=PEEK(A+1):X=U:Y=V:L=Y-7+FIX(X/16):M=C+L:S=495+L:A=1:FORT=339TO345:POKET,255:NEXT:POKE135,0:GOTO10 200 ' I'M FALLING! 200 TIMER=0:Q=PEEK(M):PMODE3,M1:IFY<177THENGET(X,184)-(X+15,191),B:PUT(X,Y)-(X+15,Y+15),F2,OR:PUT(X,184)-(X+15,191),B 201 PMODE4,M1:SCREEN1,1:PMODE3,M2:PUT(U,V)-(U+15,V+15),A:GET(X,Y)-(X+15,Y+15),A 202 ' NEW: 1=LADDER, 2=BLOCK, 3=HOLO-BLOCK, 4=MAN, 5=TORCH, 6=EMPTY, 7=KEY, 8=TREASURE, 9=X, 10=FPD, 202 ' NEW: 11=HINT, 12=FIRE 202 ' KEY, THEN TREASURE, THEN "X" 202 IFQ=7ANDKY=0THENP=1:KY=1:GOSUB7060:PMODE3,M2:GOSUB250ELSEIFQ=8ANDKY=1ANDTR<10THENP=2:GOSUB7050:PMODE3,M2:GOSUB250ELSEIFQ=9ANDTR=10THEN300 203 ' FPD 203 IFQ=10ANDFPD=0THENFPD=1:P=4:GOSUB7070:PMODE3,M2:GOSUB250 204 ' FIRE 204 IFQ=12THENM3=M2:M2=M1:M1=M3:GOTO210 205 ' TREASURE CHECK 205 V=Y:Z=Z+8:T=M2:M2=M1:M1=T:E=PEEK(M+16):IFE=8ANDZ=16ANDKY=1ANDTR<10THENPUT(X,Y+8)-(X+15,Y+23),BL 206 ' LANDED ON A BLOCK OR LADDER? 206 IFE<3THEN209 207 Y=Y+8:IFZ>15THENM=M+16:S=S+16:Z=0 208 IFTIMER<10THEN208ELSE200 209 FORR=341TO344:POKER,&HFF:NEXT:J0=31:J1=31:IFFPD=1THEN211 210 POKEP0,0:PLAY"O2L4T2EP255EP255EP255L1CL4":POKEP1,0:GOTO213 211 Q=12:IFY<168THENQ=PEEK(M+16) 212 A=PEEK(M):FORR=-1TO0:R=(TIMER<10):NEXT:GOTO20 213 IFM1=5THENFORR=5TO8:PCOPYR-4TOR:NEXT ELSEFORR=1TO4:PCOPYR+4TOR:NEXT 214 PMODE4,5:SCREEN1,1:MN=MN-1:IFMN>0THEN7001ELSE241 220 CLS:SCREEN0,0:POKE65314,64:GOTO9207 230 ' HINT ITEM 230 T=INT((LEN(H$)+31)/64)*32:SCREEN0,0:POKE65314,32:CLS:PRINT@5,"YOU FOUND A HINT ITEM.":PRINT@160-T,"THIS LEVEL'S HINT:":PRINT 231 PRINTH$:PRINT@480,"PRESS FIRE OR SPACE TO CONTINUE";:POKE1535,110:FORT=-1TO0:POKE345,255:T=PEEK(345)=247:NEXT 232 FORT=-1TO0:T=PEEK(345)=255ANDINKEY$<>" ":NEXT:FORT=-1TO0:POKE345,255:T=PEEK(345)=247:NEXT:RETURN 240 IFM1=5THENFORP=5TO8:PCOPYP-4TOP:NEXT ELSEFORP=1TO4:PCOPYP+4TOP:NEXT:PMODE4,5:SCREEN1,1 241 R=242:N=0:GOSUB7090:PCOPY1TO5:PMODE3,1:LINE(88,92)-(167,100),PRESET,B:PUT(88,93)-(167,99),GR:PMODE4,1:SCREEN1,1:PCOPY2TO6:PCOPY3TO7:PMODE3,1 242 FORT=-1TO0:POKE345,255:T=PEEK(345)=247:NEXT:FORT=-1TO0:T=PEEK(345)=255ANDINKEY$<>" ":NEXT:FORT=-1TO0:POKE345,255:T=PEEK(345)=247:NEXT:GOTO7000 250 ' PLAY SOUND, THEN ERASE BACKGROUND UNDERNEATH LADDERMAN 250 ' GOTOS: 251=HINT, 252=KEY, 253=TREASURE, 254=X, 255=FPD 250 POKEP0,0:ONP GOTO252,253,254,255 251 PLAY"O2T10L4GO+EGO-GO+EG":GOTO256 252 PLAY"O2T10L4V25CV20CV15CV10CV5CV15T2":GOTO256 253 PLAY"L255T255O1CBDAEGFT2L4O2":GOTO256 254 PLAY"T10O5V30CO4V25CV20O3CV15O2CO1V10CT2V15":GOTO256 255 PLAY"T10O4DEFT2" 256 POKEP1,0:POKEM,6:PUT(X,Y)-(X+15,Y+15),BL:GET(X,Y)-(X+15,Y+15),A:RETURN 300 V=Y:U=X:P=3:GOSUB250:H=5:R=(K=7) 310 TIMER=0:PMODE3,M1:IFK=PPOINT(XX+2,YY+10)ORK=PPOINT(X+2,Y+14)THENPUT(X,Y+9)-(X+15,Y+14),BL 311 PUT(X,Y)-(X+15,Y+15),F2,OR:PMODE4,M1:LINE(X+8+R,Y+1)-(X+8+R,Y+2),PSET,B 312 LINE(X+3+R+F(H),Y)-(X+13+R-F(H),Y),PSET:H=H+1:IFH>8THENH=5 313 SCREEN1,1:PMODE3,M2:PUT(U,V)-(U+15,V+15),A:GET(X,Y)-(X+15,Y+15),A:U=X:V=Y:Y=Y-2:M3=M2:M2=M1:M1=M3:M3=0:FORT=-1TO0:T=TIMER<10:NEXT:IFY>7THEN310 400 ' MAKE THE LEVEL A NEGATIVE NUMBER IF IT'S SUPPOSED TO LOAD LEVEL DATA FROM DISK 400 ' ALSO, AWARD AN EXTRA MAN IF THE PLAYER HASN'T LOST A LIFE IN THIS LEVEL 400 LV=-LV-1:IFNM=MN THENMN=MN+1 401 NM=MN:IFM1=5THENFORP=5TO8:PCOPYP-4TOP:NEXT ELSEFORP=1TO4:PCOPYP+4TOP:NEXT 402 GOTO7001 500 POKEP0,0:POKE359,126:STOP:POKEP1,0:POKE359,57:GOTO31 6000 ' GARBAGE CODE FOR WHEN THE PROGRAM CREATED ALL THE TILE DATA FROM SCRATCH 6000 ' INSTEAD OF LOADING IT EXTERNALLY 6000 'COLOR0:LINE(40-22,109)-(218+22,112),PSET,B:LINE(42-22,110)-(216+22,111),PRESET,B:PMODE4:COLOR1 6000 'IFPEEK(SQ)=0THENRETURN ELSECOLOR0:LINE(18,109)-(240,112),PSET,B:LINE(20,110)-(238,111),PRESET,B:PMODE4:COLOR1:R=0:G=0 6000 'FORW=1TO176:POKE480+W,W:NEXT:FORW=176TO1STEP-1:U=RND(W):U=RND(W):V=PEEK(U+480):T=PEEK(480+W):POKE480+U,T:POKE480+W,V:G=G+1:R=R-((G AND1)+(G AND2)=0):LINE(19+R,110)-(19+R,111),PSET:NEXT 6000 'FORE=1TO176:PL=PEEK(E+480):T=PL-1:Y4=FIX(T/16):X4=T-(Y4*16):I1=(Y4-(FIX(Y4/2)*2))-1:I2=(X4-(FIX(X4/2)*2))-1:I=I1*I2:X4=X4*16:Y4=(Y4*16)+8:POKESQ+E,X4:POKESQ+176+E,Y4:POKESQ+352+E,PL:R=R+1:LINE(19+R,110)-(19+R,111),PSET:NEXT 6000 'FORE=480TO495:POKEE,0:NEXT:POKESQ,0:PMODE3,1:COLOR0:RETURN 6000 ' IF THE LEVEL IS A NEGATIVE NUMBER, LOAD THE LEVEL DATA FROM DISK 6000 IFLV>0THENRETURN 6001 LV=-LV:Q=8:PMODE4,5:SCREEN1,1:PMODE3:COLOR0:LINE(100+Q,87)-(158-Q,105),PRESET,BF:LINE(98+Q,86)-(156-Q,106),PSET,B:PUT(120,89)-(135,99),WH:LINE(102+Q,101)-(152-Q,104),PSET,B:PMODE4:SCREEN1,1:PMODE3 6002 R=104+Q:PMODE4:COLOR1:POKE359,126:POKEP0,0:OPEN"I",#1,"LADDER2.QMD":FORT=1TOLV:LINE(R,102)-(R,103),PSET:R=R+1:LINEINPUT#1,H$:NEXT 6003 IFLV<25THENFORG=T TO25:LINE(R,102)-(R,103),PSET:R=R+1:LINEINPUT#1,M$:NEXT 6004 CLOSE#1:A=FIX((LV-1)/9):M$="LADDER2.GF"+CHR$(49+A):LOADMM$:POKEP1,0:POKE359,57:S=(LV-1-(A*9))*8 6005 FORT=15TO21:PMODE3,5:GET(0,S)-(255,S),JB:POKE186,0:PUT(0,T)-(255,T),JB:S=S+1:PMODE4:COLOR1:LINE(R,102)-(R,103),PSET:R=R-((T AND1)=0):NEXT 6006 A=FIX((LV-1)/9):M$="LADDER2.MF"+CHR$(49+A):POKE359,126:POKEP0,0:LOADMM$:POKEP1,0:POKE359,57:S=(LV-1-(A*9))*8 6007 FORT=16TO22:PMODE3,5:GET(0,S)-(255,S),JB:POKE186,108:PUT(0,T)-(255,T),JB:S=S+1:PMODE4:COLOR1:LINE(R,102)-(R,103),PSET:R=R-((T AND1)=0):NEXT 6009 FORT=5TO8:PCOPYT-4TOT:NEXT:PMODE4,5:SCREEN1,1:RETURN 7000 ' MAKE THE LEVEL A NEGATIVE NUMBER IF IT'S SUPPOSED TO LOAD LEVEL DATA FROM DISK 7000 MN=3:LV=-1:NM=MN 7001 M1=1:M2=5:X4=0:Y4=8:TR=0:FPD=0:X=0:KY=0:MO=1:M$="":IFLV<-25THEN8000 7002 GOSUB6000:PMODE3:POKE186,108:FORT=8TO14:GET(0,T+8)-(255,T+8),JB:PUT(0,T)-(255,T),JB:NEXT 7004 'G=SQ+176:C=SQ-497:GOTO50 7004 Q=SQ+1:G=SQ+526:C=SQ-497:GOTO50 7030 PMODE4,5:SCREEN1,1:PMODE4:COLOR1:LINE(112,186)-(143,191),PSET,BF:R=48:N=LV:GOSUB7090:R=242:N=MN:GOSUB7090 7031 ' BLANK OUT CHECKBOX FOR KEYS AND TREASURE 7031 D$="C1;BM34":GOSUB7040:D$="C1;BM176":GOSUB7040:RETURN 7040 ' DRAW "X" IN CHECKBOX FOR KEYS OR TREASURES 7040 DRAWD$+",186;F4R1H4;BR4;G4L1E4":RETURN 7050 ' GOT A TREASURE! 7050 TR=TR+1:IFTR<10THENRETURN 7051 D$="C0;BM176":PMODE4,M2:GOSUB7040:PMODE4,M1:GOSUB7040:PMODE3,M1:RETURN 7060 D$="C0;BM34":PMODE4,M2:GOSUB7040:PMODE4,M1:GOSUB7040:PMODE3,M1:RETURN 7070 ' "FPD" 7070 FORMP=5TO1STEP-4:PMODE4,MP:COLOR0:LINE(114,186)-(141,191),PSET,BF:DRAW"C1;BM116,187;D3R1U1;NR2;U2R4;BR3;D3R1U3R3F1L1D1L2;BR6BU2;R1D3L1R2;NR4;U3R4D1R1D1L1":NEXT:PMODE3,M1:RETURN 7090 ' DRAW NUMBERS FOR MEN OR LEVEL 7090 PMODE3:COLOR0:LINE(R,0)-(R+13,7),PSET,BF:N$=STR$(N):N$=RIGHT$(N$,2):PMODE4:FORN=1TO2:DRAW"BM"+STR$(R)+",0;C0":T=VAL(MID$(N$,N,1))+1:ONT GOTO7091,7092,7093,7094,7095,7096,7097,7098,7099,7100 7091 DRAW"BD1;NR1;D4R1;NU4;D1R3U1;NU4;R1U4L1U1L3":GOTO7101 7092 DRAW"BR3NLDNL2DNL3D3LNU3DNL2R3":GOTO7101 7093 DRAW"BD1;R1U1R3D1R1D1L1D1L3D1L1D1;NR1;D1R5":GOTO7101 7094 DRAW"BD1;R1U1R3D1R1D1L1D1;NL2;D1R1D1L1D1L3U1L1":GOTO7101 7095 DRAW"D3R1;NU3;R3;NU3ND3;R1;ND3;U3":GOTO7101 7096 DRAW"NR5;D2R1;NU2;D1R3D1R1D1L1D1L3U1L1":GOTO7101 7097 DRAW"BR1;R3;BD1;R1;BL4;L1D4R1;NU4;D1R3U1R1U1L1U1L4":GOTO7101 7098 DRAW"R5D1L1D1L1D1L1D1L1D1R1D1L1":GOTO7101 7099 DRAW"BR1;D1L1D1R1D1;NR3;D1L1D1R1D1R3U1R1U1L1U2RU1L1U1L3":GOTO7101 7100 DRAW"BR1;R3D1R1D1L1D1L3U1L1U1R1D2R3D2R1;NU2;L1D1L3U1L1" 7101 R=R+8:NEXT:RETURN 8000 LV=26:POKE359,126:CLS0:SCREEN0,0:POKEP0,0:LOADM"LADDER2.PIC":POKEP1,0:IFK=7THENPCOPY3TO6:PCOPY4TO7ELSEPCOPY6TO3:PCOPY7TO4 8001 'PMODE0,8:PCLS1:PMODE3:PCLS:FORT=0TO248STEP16:PMODE3,5:GET(T,16)-(T+15,23),A:GET(T,24)-(T+15,31),B:PMODE3:PUT(T,0)-(T+15,7),A:PUT(T,184)-(T+15,191),B:NEXT 8001 PMODE0,8:PCLS1:PMODE3:PCLS:FORT=0TO232STEP32:PMODE3,5:GET(T,16)-(T+31,23),A:GET(T,24)-(T+31,31),B:PMODE3:PUT(T,0)-(T+31,7),A:PUT(T,184)-(T+31,191),B:NEXT 8002 PMODE4,5:COLOR1:LINE(0,32)-(47,47),PSET,BF:LINE(0,0)-(255,31),PSET,BF:SCREEN1,1 8010 POKEP0,0:PLAY"T2L8O2;EF#L2G#L4AO+C#O-L2BL4G#BL4.AL8G#L4AF#L2G#P4;L8;EF#L2G#L4AO+C#O-L2BL4G#BL4.AL8G#L4AF#L1EL4P1":POKEP1,0 8020 POKE359,57:SCREEN0,0:FORP=5TO8:PCOPYP-4TOP:NEXT:GOTO220 9000 CLS0:POKE113,0:PMODE0:PCLEAR1:PCLEAR8:CLEAR3000:M$=STRING$(255,0):PCLS0:DIMBL(6),JB(18):PMODE3:GET(0,0)-(15,15),BL:POKE65496,0:POKE65494,0:UNLOAD:UNLOAD:LOADM"LADDER2.PIC":LOADM"LADDER2.TDF":PCLS2 9001 PCOPY8TO1:GET(0,48)-(255,48),JB:FORT=37TO47:PUT(0,T)-(255,T),JB:NEXT:PMODE4:SCREEN1,1:FORT=-1TO0:M$=INKEY$:T=(M$<>"Y"ANDM$<>"N"):R=RND(9):NEXT 9002 POKE359,57:CLS0:SCREEN0,0:PMODE3,5:POKE474,0:K=7+(M$="N"):R=-(M$="Y") 9003 'SQ=28416:POKESQ,1:L$=STRING$(208,0):D$=STRING$(36,0):DIMM1(6),M2(6),FI(6),FR(6),BK(6),F2(6),CH(6),A(6),B(6),BL(6),FP(6),QU(6),LS(6),KS(6),XS(6),T1(6),T2(6),WS(6),WH(6),JN(6),JF(6),JB(18),GR(24) 9003 SQ=28416:POKESQ,1:L$=STRING$(208,0):D$=STRING$(36,0):DIMM1(6),M2(6),FI(6),FR(6),BK(6),F2(6),CH(6),A(6),B(6),FP(6),QU(6),LS(6),KS(6),XS(6),T1(6),T2(6),WS(6),JN(6),JF(6),GR(24),WH(6) 9004 ' DO SCREEN=BLUE COLOR CORRECTIONS 9004 FORT=0TO64STEP16:PMODE4,5:GET(T+1,0)-(T+15,15),JB,G:PMODE3,5:PUT(T,0)-(T+15,15),BL:PMODE4,5:PUT(T+1-R,0)-(T+15-R,15),JB,PSET:NEXT:PMODE4,5:GET(80,0)-(94,15),JB,G:PMODE3,5:PUT(80,0)-(95,15),BL:PMODE4,5:PUT(80+R,0)-(94+R,15),JB,PSET 9005 FORT=128TO144STEP16:PMODE4,5:GET(T+1,0)-(T+15,15),JB,G:PMODE3,5:PUT(T,0)-(T+15,15),BL:PMODE4,5:PUT(T+1-R,0)-(T+15-R,15),JB,PSET:NEXT:PMODE4,5:GET(176,0)-(190,15),JB,G:PMODE3,5:PUT(176,0)-(191,15),BL:PMODE4,5:PUT(176+R,0)-(190+R,15),JB,PSET 9006 FORT=192TO208STEP16:PMODE4,5:GET(T,0)-(T+14,15),JB,G:PMODE3,5:PUT(T,0)-(T+15,15),BL:PMODE4,5:PUT(T+R,0)-(T+14+R,15),JB,PSET:NEXT 9007 'PMODE4,5:GET(0,32)-(14,47),JB,G:PMODE3,5:PUT(0,32)-(15,47),BL:PMODE4,5:PUT(R,32)-(14+R,47),JB,PSET 9007 PMODE4,5:GET(0,32)-(12,47),JB,G:PMODE3,5:PUT(0,32)-(15,47),BL:PMODE4,5:PUT(R+2,32)-(14+R,47),JB,PSET 9100 ' END COLOR CORRECTIONS; NOW PUT THE IMAGES INTO MEMORY 9100 'GET(0,0)-(15,15),M1:GET(16,0)-(31,15),M2:GET(32,0)-(47,15),F2:GET(48,0)-(63,15),FI:GET(64,0)-(79,15),FR:GET(80,0)-(95,15),FP:GET(96,0)-(111,15),CH:GET(112,0)-(127,15),BK:GET(128,0)-(143,15),QU:GET(240,0)-(255,15),WS 9100 PMODE3,5:GET(0,0)-(15,15),M1:GET(16,0)-(31,15),M2:GET(32,0)-(47,15),F2:GET(48,0)-(63,15),FI:GET(64,0)-(79,15),FR:GET(80,0)-(95,15),FP:GET(112,0)-(127,15),BK:GET(128,0)-(143,15),QU:GET(240,0)-(255,15),WS 9101 IFK=6THENGET(96,0)-(111,15),CH ELSEGET(32,32)-(47,47),CH 9110 'GET(144,0)-(159,15),LS:GET(160,0)-(175,15),KS:GET(176,0)-(191,15),XS:GET(192,0)-(207,15),T1:GET(208,0)-(223,15),T2:GET(0,32)-(15,47),JN:GET(16,32)-(31,47),JF:PMODE3,5:GET(0,181)-(79,187),GR:GET(80,181)-(95,191),WH 9110 GET(144,0)-(159,15),LS:GET(160,0)-(175,15),KS:GET(176,0)-(191,15),XS:GET(192,0)-(207,15),T1:GET(208,0)-(223,15),T2:GET(0,32)-(15,47),JN:GET(16,32)-(31,47),JF:GET(0,181)-(79,187),GR:GET(80,181)-(95,191),WH 9119 M$=STRING$(255,0):S=0:P=0:H=0:R=0:N=0:PL=0:A=0:D=0:E=0:M=0:X=0:Y=0:U=0:V=0:LV=-1:F(1)=0:F(2)=0:F(3)=1:F(4)=16:F(5)=3:F(6)=1:F(7)=0:F(8)=1 9200 PMODE1,6:PCLS:PMODE3,1:PCLS:GET(0,0)-(15,15),BL:FORT=0TO248STEP16:PMODE3,5:GET(T,16)-(T+15,23),A:GET(T,24)-(T+15,31),B:PMODE3,1:PUT(T,0)-(T+15,7),A:PUT(T,184)-(T+15,191),B:NEXT 9201 PCOPY1TO5:PCOPY4TO8:A1$=CHR$(135)+" ":A2$=CHR$(139)+" ":A3$=CHR$(141)+" ":A4$=CHR$(142)+" ":FORT=1TO4:A1$=A1$+A1$:A2$=A2$+A2$:A3$=A3$+A3$:A4$=A4$+A4$:NEXT:C$=STRING$(7,32):C$=C$+"SUPER LADDERMAN"+C$ 9202 A$(0)=LEFT$(A1$,31)+CHR$(142)+" "+C$+" "+CHR$(135)+A4$:A$(1)=A2$+CHR$(141)+C$+CHR$(139)+" "+LEFT$(A3$,31) 9203 JK=-1:A=3:A$(2)=" "+LEFT$(A1$,31)+CHR$(135)+C$+CHR$(142)+A4$:A$(3)=CHR$(141)+LEFT$(A2$,31)+" "+C$+" "+LEFT$(A3$,31)+CHR$(139) 9204 GOTO9206 9205 IFTIMER<3THEN9205ELSEPRINT@0,A$(A);:A=A+1:RA=A+((A>3)*4):A=RA:TIMER=0:RETURN 9206 SCREEN0,0:POKE65314,64:P0=65494:P1=P0+1:IFPEEK(33021)=50THENP0=P0+2:P1=P1+2 9207 'A=0:TIMER=9:CLS:PRINT@136,"BY RICHARD KELLY":PRINT@480,"VERSION 1.0A 10/18/2020 FREEWAR";:POKE1535,69:PRINT@385,"PRESS fire OR spacebar TO PLAY":IFP0=65496ORLV>0THENPOKEP1,0:GOTO9211 9207 A=0:TIMER=9:CLS:PRINT@136,"BY RICHARD KELLY":PRINT@480,"V1.00 10/16/2020 OPEN SOURC";:POKE1535,69:PRINT@385,"PRESS fire OR spacebar TO PLAY":IFP0=65496ORLV>0THENPOKEP1,0:GOTO9211 9208 PRINT@230,"USE HIGH SPEED POKE?" 9209 GOSUB9205:A$=INKEY$:IFA$<>"Y"ANDA$<>"N"THEN9209 9210 P1=P1+(A$="N"):POKEP1,0 9211 'PRINT@224,"THE t KEY WORKS IN THE GAME TOO."; 9211 PRINT@256,"THE t KEY WORKS IN THE GAME TOO."; 9212 'PRINT@257,"tOGGLE......KEYBOARD";:IFJK=-1THENPRINT"< JOYSTICK ";:ELSEPRINT" JOYSTICK<"; 9212 PRINT@225,"tOGGLE......KEYBOARD";:IFJK=-1THENPRINT"< JOYSTICK ";:ELSEPRINT" JOYSTICK<"; 9213 IFLV<1THENPRINT@326,"WELCOME TO THE GAME!":GOTO9215 9214 IFLV>25THENB$=STR$(MN):PRINT@320,"CONGRATULATIONS! MEN LEFT: "RIGHT$(B$,2);:ELSEB$=" "+STR$(LV):A$=RIGHT$(B$,2):PRINT@324,"YOU MADE IT TO LEVEL "A$"." 9215 GOSUB9205:A$=INKEY$:IF(PEEK(65280)AND1)=0ORA$=" "THEN7000 9216 IFA$="T"THENJK=-JK:GOTO9212ELSE9215 9999 END:RUN 10000 P=112:FORT=-1TO0:I$=INKEY$:PMODE4:POKE186,P:SCREEN1,1:P=P+((I$=CHR$(8))*2)-((I$=CHR$(9))*2):T=I$<>CHR$(13):NEXT:PRINTP*256 L "A$"." 9215 GOSUB9205:A$=INKEY$:IF(PEEK(65280)AND1)=0ORA$=" "THEN7000 9216 IFA$="T"THENJK=-JK:GOTO9212ELSE9215 9999 END: >+ :65496,0:65494,0:(33021)5032>::" WELCOME TO LADDERMAN 2. SINCE THE GAME'S ORIGINAL INSTRUCTIONSWERE LOST, I HAD TO REWRITE THEMFROM MEMORY.":?N" AS I REMEMBER, THE HERO HAS BEEN UPGRADED FROM A ROBOT TO ANANDROID. WHILE HIS CREATOR IS ONVACATION, THE HERO GOES OFF EXPLORING AND ACCIDENTALLY FALLS";?("DOWN A MINE SHAFT.":::"PRESS [ENTER]. ";OK$:@*2"HELP LADDERMAN BACK UP OUT OF THE MINE SHAFT BY COLLECTING TENTOOLBOXES. THESE TOOLBOXES WILL CONTAIN PARTS NEEDED TO ASSEMBLEA MINI-COPTER IN LADDERMAN'S"@<"HEAD (HIS MECHANICAL BRAIN IS THE ONLY PART OF HIM WITH ENOUGHJUICE TO POWER THE MINI-COPTER).TOOL BOXES MUST BE OPENED WITH AKEY YOU'LL FIND IN EACH LEVEL. YOU THEN COMPLETE THE LEVEL BY"ATF"GETTING THE x, WHICH IS THE PROPELLOR FOR THE MINI-COPTER.":::"PRESS [ENTER]. ";OK$:AP@64,"LADDERMAN HAS A PROBLEM. WHEN HEFELL DOWN THE SHAFT, THE FALL DAMAGED HIM AND HE CANNOT SEE PROPERLY. THAT WHICH YOU SEE ON THE GAME SCREEN IS CONSTRUCTED"BZ"BY HIS RADAR SYSTEM RATHER THAN HIS OPTIC SENSORS, SO WHAT YOU SEE AS A BRICK MIGHT INSTEAD BE AN OBJECT THAT CANNOT SUPPORT LADDERMAN'S WEIGHT. WATCH OUT!":Bd"PRESS [ENTER]. ";OK$:A$(34):CXn@96,"THE GAME ALSO HAS A BONUS ITEM. IT'S SHAPED LIKE A QUESTION MARK, AND WILL USUALLY GIVE YOU A HINT TO THE CURRENT LEVEL.":Cx"IF YOU'RE GOOD ENOUGH TO PASS A LEVEL WITHOUT LOSING A MAN, YOU'LL BE AWARDED AN EXTRA LIFE.":"PRESS [ENTER]. ";OK$:D:"LADDERMAN CLIMBS LADDERS A BIT BETTER THAN IN LADDERMAN 1. HE CAN CLIMB OFF THE BOTTOM OF A LADDER NOW."::"HE CANNOT, HOWEVER, SAFELY FALL ON HIS OWN. TO SURVIVE FALLS, HE";EF"NEEDS A fALL pROTECTION dEVICE, OR FPD. THIS LOOKS LIKE NOTHING ELSE IN THE GAME, SO YOU SHOULD NOT HAVE MUCH TROUBLE TRYING TO IDENTIFY IT."::"PRESS [ENTER]. ";OK$:E@96,"ON THE TOP AND BOTTOM OF THE SCREEN ARE STATUS BARS. THE BOXON THE BOTTOM LEFT WILL HAVE AN x WHEN YOUR MAN HAS THE KEY."FC"WHEN YOUR MAN HAS TEN TREASURES,AN x WILL APPEAR IN THE BOX ON THE BOTTOM RIGHT.":::"PRESS [ENTER]. ";OK$FQ$(34)::"THIS GAME USES SEVERAL BINARY FILES. TO SAVE THEM ..."FL71776:F4951:"SAVEM"Q$"LADDER2."(L)"F"(F)Q$",9728,11999,9728":F,L::"PRESS [ENTER]. ";OK$Gv:"SAVEM"Q$"LADDER2.PIC"Q$",9728,15871,8728":"SAVEM"Q$"LADDER2.TDF"Q$",28416,28944,28416"::"PRESS [ENTER]. ";OK$GȞ:"THAT ABOUT COVERS IT. RUNNING LADDERMAN 2!":"LADDER2"."(L)"F"(F)Q$",9728,11999,9728":F,L::"PRESS [ENTER]. ";OK$GvTO PASS EACH LEVEL, GET TEN BLUECHESTS AND THEN THE x. YOU NEEDA KEY TO OPEN THE CHESTS. TO SURVIVE FALLING DOWNWARD, GETA fALL pROTECTION dEVICE. ARE YOU WONDERING WHAT SUCH A THING IS DOING IN A MINE SHAFT? SO ARE WE. FALLING OFF THE SCREEN WILL KILLYOUR MAN. BUT AS LONG AS THERE IS A LADDER OR A BLOCK THAT IS SUPPORTING YOU, THERE IS NOTHINGTO WORRY ABOUT. TAKE A WALK OF FAITH ... AND ALLOW THIS LEVEL TO SURPRISE YOU. IF THE KEY SEEMS IMPOSSIBLE TO GET, TRY TO APPROACH IT FROM EVERY ANGLE. YOU DON'T NEED TO TAKE ALL THAT YOU SEE TO COMPLETE A LEVEL; JUST ONE KEY, TEN TOOLBOXES, ANDTHE x. YES, IT'S A CASTLE. WAS A CASTLE. IN A MINE SHAFT. DON'TASK. ''YES''? YES TO WHAT??????????? THERE IS no PLACE IN THIS ENTIRELEVEL THAT YOU CAN'T MOVE. REMEMBER THIS! ONE TREASURE CAN ONLY BE PICKED UP FROM ABOVE. BUT YOU MUST GETIT LAST ... THIS LEVEL AND THE NEXT ARE ALL ABOUT MANEUVERABILITY. THERE ARE NO F.P.D.S, BUT NO WEAK BLOCKS, EITHER. X THERE ARE TWO WEAK BLOCKS IN THIS LEVEL. HOWEVER, THEY'RE WELL-MARKED AND PLACED WHERE THEY'RE EASY TO REMEMBER. TWO WORDS - PLAN CAREFULLY! ONLY ONE OF THE KEYS SHOULD BE TAKEN. AND BEWARE OF ''FOOL'S GOLD''. THE HINT FOR THIS LEVEL CAN BE SUMMED UP IN THREE WORDS - ROWS OF REPETITION. ALL THE TREASURES CAN BE OBTAINED, BUT NOT FROM THE GROUND. BY NOW, WE HOPE YOU'LL KNOW EXACTLY WHERE YOU'LL LAND WHEN YOU DROP FROM A LADDER. THIS LEVEL PUTS THAT SKILL TO THE TEST! X X THIS HINT - MIND THE TOPS, BUT AVOID THE BOTTOMS. X ONE x IS GOOD, AND THE OTHER ONES ARE BAD. WE WOULD TELL YOUMORE, BUT IT'S NOT SUPPOSED TO BE THAT EASY FOR YOU ANYMORE. THERE ARE TWELVE TREASURES ... TWO OF WHICH SHOULD BE LEFT ALONE. FIND OUT WHICH TWO, AND THE LEVEL IS WON. YOU CAN TELL YOU'RE ON THE FINALLEVEL OF THE GAME, BECAUSE THIS ONE IS THE TRICKIEST! BUT STICKWITH IT. ED TO BE THAT EASY FOR YOU ANYMORE. THERE ARE TWELVE TREASURES ... TWO OF WHICH SHOULD BE LEFo XSHB(,X_p8;("(+HKX\XQPHFX``87XYhop HM8?XZ0XTPhf 0X[hk8=`ਯXR@85P 0xt(! P(&hi(.ppXXHA0`HG(0HP0hdШx(/HI@XUha8<0Pxvx|HNX^(-0840($@PX]xrxy`x}xq`81hp HCx0@HE(* hmHOpx~  hnPXV82`xwx{8> P86pHH`hgP()И@(%@ (#`('`HL hc0HD@`XW0p((@ @hepxz89`PHJpxx8@@xuhb hjhlPphh@Ј 838: xsp88oxrxy`x}xq`81hp HCx0@HE(* hmHOpx~  hnPXV82`xwx{8> P86pHH`hgP()И@(%@ (#`('`HL hc0HD@`XW0p((@ @hepxz89`PHJpxx8@@xuhb hjhlP&                                           &&                                                     &&&&& %&'(*+,-LADDER2 GF1 LADDER2 GF2!LADDER2 GF3"LADDER2 MF1#LADDER2 MF2LADDER2 MF3LADDER2 PIC$ LADDER2 QMDLADDER2 TDFL2CREATESRCLADDER2 SRCLAD2-INSBASLADDER2 BAS)&          &&                                           &$?UPUPU@ꪪ: <w`ꪪ:<wꪪ@:8@>@?@?@?@@?@?@?@?@?@?@?@?ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffbfffffffffffffffffffffffffffff*fffffffffffffffffffffffffffbffffffffffffffffffffffffffff*fffffffffffffffffffffffffffff*ffffffffffffffffffffffffffffbfffffffffffffffffffffffffff*ffffffffffffffffffffffffffbffffffffffffffffffffffffff*fffffffffffffffffffffffffff*ffffffffffffffffffffffffffbfffffffffffffffffffffffff*ffffffffffffffffffffffffbffffffffffffffffffffffff*ffffffffffffffffffffffffbffffffffffffffffffffffffbffffffffffffffffffffffff*ffffffffffffffffffffffbffffffffffffffffffffff*??@Tss?P@SS?@QQP?Pg;UUTUU@?TP@sUTUT@?P@Q@E@@@0@@3Q@E@@P:?P0??7q@G@@P?@T ` ?PP0j?=s(  0n? x; ( ( (o?x/ ( ( ( j?T ` 3 >( (Pj?0;>>>>WW*x0g?3?|?3|?3?<3? <<>|?3?0>< >~p?`<'>?|??`<3>?|?T10:345,255:T(345)247::T10:T(345)255" "::T10:345,255:T(345)247::884?P0,0:P 65,66,67,684@"O2T10L4GO+EGO-GO+EG":695A"O2T10L4V25CV20CV15CV10CV5CV15T2":695'B"L255T255O1CBDAEGFT2L4O2":695ZC"T10O5V30CO4V25CV20O3CV15O2CO1V10CT2V15":695lD"T10O4DEFT2"5EP1,0:M,6:(X,Y)(X15,Y15),BL:(X,Y)(X15,Y15),A:5FVY:UX:P3:63:H5:R(K7)6G0:3,M1:K(XX2,YY10)K(X2,Y14)(X,Y9)(X15,Y14),BL6PH(X,Y)(X15,Y15),F2,:4,M1:(X8R,Y1)(X8R,Y2),,B6I(X3RF(H),Y)(X13RF(H),Y),:HH1:H8H56J1,1:3,M2:(U,V)(U15,V15),A:(X,Y)(X15,Y15),A:UX:VY:YY2:M3M2:M2M1:M1M3:M30:T10:T10::Y7717KLVLV1:NMMN MNMN17LLNMMN:M15P58:P4P: :P14:P4P:7UM897}NP0,0:359,126::P1,0:359,57:177OLV08PLVLV:Q8:4,5:1,1:3:0:(100Q,87)(158Q,105),,BF:(98Q,86)(156Q,106),,B:(120,89)(135,99),WH:(102Q,101)(152Q,104),,B:4:1,1:38QR104Q:4:1:359,126:P0,0:"I",#1,"LADDER2.QMD":T1LV:(R,102)(R,103),:RR1:#1,H$:8RLV25GT 25:(R,102)(R,103),:RR1:#1,M$:9 S#1:A((LV1)9):M$"LADDER2.GF"(49A):MM$:P1,0:359,57:S(LV1(A9))89xTT1521:3,5:(0,S)(255,S),JB:186,0:(0,T)(255,T),JB:SS1:4:1:(R,102)(R,103),:RR((T 1)0):9UA((LV1)9):M$"LADDER2.MF"(49A):359,126:P0,0:MM$:P1,0:359,57:S(LV1(A9))8:FVT1622:3,5:(0,S)(255,S),JB:186,108:(0,T)(255,T),JB:SS1:4:1:(R,102)(R,103),:RR((T 1)0)::fWT58:T4T::4,5:1,1::{XMN3:LV1:NMMN:YM11:M25:X40:Y48:TR0:FPD0:X0:KY0:MO1:M$"":LV25111;Z79:3:186,108:T814:(0,T8)(255,T8),JB:(0,T)(255,T),JB:;'[QSQ1:GSQ526:CSQ497:25;t\4,5:1,1:4:1:(112,186)(143,191),,BF:R48:NLV:99:R242:NMN:99;]D$"C1;BM34":94:D$"C1;BM176":94:;^D$",186;F4R1H4;BR4;G4L1E4":;_TRTR1:TR10<`D$"C0;BM176":4,M2:94:4,M1:94:3,M1:<6aD$"C0;BM34":4,M2:94:4,M1:94:3,M1:<bMP514:4,MP:0:(114,186)(141,191),,BF:"C1;BM116,187;D3R1U1;NR2;U2R4;BR3;D3R1U3R3F1L1D1L2;BR6BU2;R1D3L1R2;NR4;U3R4D1R1D1L1"::3,M1:=Zc3:0:(R,0)(R13,7),,BF:N$(N):N$(N$,2):4:N12:"BM"(R)",0;C0":T((N$,N,1))1:T 100,101,102,103,104,105,106,107,108,109=d"BD1;NR1;D4R1;NU4;D1R3U1;NU4;R1U4L1U1L3":110=e"BR3NLDNL2DNL3D3LNU3DNL2R3":110=f"BD1;R1U1R3D1R1D1L1D1L3D1L1D1;NR1;D1R5":110>g"BD1;R1U1R3D1R1D1L1D1;NL2;D1R1D1L1D1L3U1L1":110>Ih"D3R1;NU3;R3;NU3ND3;R1;ND3;U3":110>xi"NR5;D2R1;NU2;D1R3D1R1D1L1D1L3U1L1":110>j"BR1;R3;BD1;R1;BL4;L1D4R1;NU4;D1R3U1R1U1L1U1L4":110>k"R5D1L1D1L1D1L1D1L1D1R1D1L1":110?l"BR1;D1L1D1R1D1;NR3;D1L1D1R1D1R3U1R1U1L1U2RU1L1U1L3":110?Tm"BR1;R3D1R1D1L1D1L3U1L1U1R1D2R3D2R1;NU2;L1D1L3U1L1"?bnRR8::?oLV26:359,126:0:0,0:P0,0:M"LADDER2.PIC":P1,0:K736:47:63:74@*p0,8:1:3::T023232:3,5:(T,16)(T31,23),A:(T,24)(T31,31),B:3:(T,0)(T31,7),A:(T,184)(T31,191),B:@eq4,5:1:(0,32)(47,47),,BF:(0,0)(255,31),,BF:1,1@rP0,0:"T2L8O2;EF#L2G#L4AO+C#O-L2BL4G#BL4.AL8G#L4AF#L2G#P4;L8;EF#L2G#L4AO+C#O-L2BL4G#BL4.AL8G#L4AF#L1EL4P1":P1,0As359,57:0,0:P58:P4P::56At0:113,0:0:1:8:3000:M$(255,0):0:BL(6),JB(18):3:(0,0)(15,15),BL:65496,0:65494,0:::M"LADDER2.PIC":M"LADDER2.TDF":2Au81:(0,48)(255,48),JB:T3747:(0,T)(255,T),JB::4:1,1:T10:M$:T(M$"Y"M$"N"):R(9):B1v359,57:0:0,0:3,5:474,0:K7(M$"N"):R(M$"Y")BwSQ28416:SQ,1:L$(208,0):D$(36,0):M1(6),M2(6),FI(6),FR(6),BK(6),F2(6),CH(6),A(6),B(6),FP(6),QU(6),LS(6),KS(6),XS(6),T1(6),T2(6),WS(6),JN(6),JF(6),GR(24),WH(6)CxT06416:4,5:(T1,0)(T15,15),JB,G:3,5:(T,0)(T15,15),BL:4,5:(T1R,0)(T15R,15),JB,::4,5:(80,0)(94,15),JB,G:3,5:(80,0)(95,15),BL:4,5:(80R,0)(94R,15),JB,DTyT12814416:4,5:(T1,0)(T15,15),JB,G:3,5:(T,0)(T15,15),BL:4,5:(T1R,0)(T15R,15),JB,::4,5:(176,0)(190,15),JB,G:3,5:(176,0)(191,15),BL:4,5:(176R,0)(190R,15),JB,DzT19220816:4,5:(T,0)(T14,15),JB,G:3,5:(T,0)(T15,15),BL:4,5:(TR,0)(T14R,15),JB,:E{4,5:(0,32)(12,47),JB,G:3,5:(0,32)(15,47),BL:4,5:(R2,32)(14R,47),JB,E|3,5:(0,0)(15,15),M1:(16,0)(31,15),M2:(32,0)(47,15),F2:(48,0)(63,15),FI:(64,0)(79,15),FR:(80,0)(95,15),FP:(112,0)(127,15),BK:(128,0)(143,15),QU:(240,0)(255,15),WSE}K6(96,0)(111,15),CH :(32,32)(47,47),CHF~(144,0)(159,15),LS:(160,0)(175,15),KS:(176,0)(191,15),XS:(192,0)(207,15),T1:(208,0)(223,15),T2:(0,32)(15,47),JN:(16,32)(31,47),JF:(0,181)(79,187),GR:(80,181)(95,191),WHGCM$(255,0):S0:P0:H0:R0:N0:PL0:A0:D0:E0:M0:X0:Y0:U0:V0:LV1:F(1)0:F(2)0:F(3)1:F(4)16:F(5)3:F(6)1:F(7)0:F(8)1G1,6::3,1::(0,0)(15,15),BL:T024816:3,5:(T,16)(T15,23),A:(T,24)(T15,31),B:3,1:(T,0)(T15,7),A:(T,184)(T15,191),B:H~15:48:A1$(135)" ":A2$(139)" ":A3$(141)" ":A4$(142)" ":T14:A1$A1$A1$:A2$A2$A2$:A3$A3$A3$:A4$A4$A4$::C$(7,32):C$C$"SUPER LADDERMAN"C$HA$(0)(A1$,31)(142)" "C$" "(135)A4$:A$(1)A2$(141)C$(139)" "(A3$,31)IOJK1:A3:A$(2)" "(A1$,31)(135)C$(142)A4$:A$(3)(141)(A2$,31)" "C$" "(A3$,31)(139)IY134I3133:@0,A$(A);:AA1:RAA((A3)4):ARA:0:I0,0:65314,64:P065494:P1P01:(33021)50P0P02:P1P12JrA0:9::@136,"BY RICHARD KELLY":@480,"V1.00 10/16/2020 OPEN SOURC";:1535,69:@385,"PRESS fire OR spacebar TO PLAY":P065496LV0P1,0:139J@230,"USE HIGH SPEED POKE?"J133:A$:A$"Y"A$"N"137JP1P1(A$"N"):P1,0J@256,"THE t KEY WORKS IN THE GAME TOO.";KJ@225,"tOGGLE......KEYBOARD";:JK1"< JOYSTICK ";::" JOYSTICK<";KwLV1@326,"WELCOME TO THE GAME!":143KLV25B$(MN):@320,"CONGRATULATIONS! MEN LEFT: "(B$,2);::B$" "(LV):A$(B$,2):@324,"YOU MADE IT TO LEVEL "A$"."L&133:A$:((65280)1)0A$" "88LDA$"T"JKJK:140:143LL:LP112:T10:I$:4:186,P:1,1:PP((I$(8))2)((I$(9))2):TI$(13)::P256FT: "(B$,2);::B$" "(LV):A$(B$,2):@324,"YOU MADE IT TO LEVEL "A$"."L&