90 REMBUBBLE-BOBBLE BY XELSIA [0x15] 100 VDU6 110 LEV=?&321A:LEV=(LEV MOD16)+(LEV DIV 16)*10 120 L1=?&11FE:L2=?&11FF:L1=(L1 MOD 16)+(L1 DIV 16)*10:L2=(L2 MOD 16)+(L2 DIV 16)*10 130 IFL1=165 THEN L1=LEV 140 IFL2=165 THEN L2=LEV 150 IFL1=0 THEN L1=99 160 IFL2=0 THENL2=99 170 *L. SPRS 180 *TV0,1 190 MODE2 200 FORI=1TO15:VDU19,I,0;0;:NEXT:VDU23;8202;0;0;0; 210 VDU23,251,4,4,4,255,64,64,64,255 220 COLOUR129:COLOUR0 230 VDU31,0,1:FORI%=1TO600:VDU251:NEXT 240 COLOUR128 250 FORY%=1 TO 23:VDU31,4,Y%,32,32,32,32,31,12,Y%,32,32,32,32:NEXT 260 FORY%=26TO28:VDU31,4,Y%,32,32,32,32,31,12,Y%,32,32,32,32:NEXT 270 VDU23,255,127,127,127,127,127,127,127,127 280 VDU5:GCOL0,0 290 FORX%=0TO19STEP8:MOVEX%*64+48,988:VDU255:MOVE(X%+2)*64+24,988:VDU255:NEXT 300 VDU5 310 GCOL0,3 320 FORL=0TO100 STEP10 330 MOVE1072+32*(L=100)-32*(L=0),928-L*6.4:PRINT;L 340 MOVE48+32*(L=100)-32*(L=0),928-L*6.4:PRINT;L 350 NEXT 360 FORI=3TO23 370 !&72=&31A0+I*640:?&2F28=&80:?&2F29=&2E:CALL&2F08 380 !&72=&30A0+I*640:?&2F28=&80:?&2F29=&2E 390 CALL&2F08:NEXT 400 !&72=&71C0:?&2F28=&80:?&2F29=&2A:CALL&2F00 410 !&72=&7280:?&2F28=&40:?&2F29=&2B:CALL&2F00 420 !&72=&7180:?&2F28=&00:?&2F29=&29:CALL&2F00 430 !&72=&72C0:?&2F28=&C0:?&2F29=&29:CALL&2F00 440 VDU4:COLOUR7 450 P1=?&A50+?&A4F*256+?&A4E*65536:P1=P1*16 460 P2=?&A53+?&A52*256+?&A51*65536:P2=P2*16 470 HI=?&A56+?&A55*256+?&A54*65536:HI=HI*16 480 IF P1>HI THEN HI=P1 490 IF P2>HI THEN HI=P2 500 PRINTTAB(1,31);RIGHT$("0000000"+STR$~P1,7);TAB(12,31);RIGHT$("0000000"+STR$~P2,7);TAB(4,0);"HIGH ";RIGHT$("0000000"+STR$~HI,7) 510 !&72=&30A0:?&2F28=0:?&2F29=&2D:CALL&2F00 520 !&72=&31A0:?&2F28=&C0:?&2F29=&2D:CALL&2F00 530 FORI=1TO15:VDU19,I,I;0;:NEXT 540 S=1 550 IF L1>L2 THEN LEV=L1 ELSE LEV=L2 560 L1=L1*1.6+6:L2=L2*1.6+6 570 FORI=1TOLEV*1.6+6 STEPS 580 PROCDISP 590 NEXT 600 GOTO710 610 DEFPROCDISP 620 ?&8E=0:?&8F=0 630 IF L1>=I THEN ?&8E=1 640 IF L2>=I THEN ?&8F=1 650 H=(I DIV 8)*640+(I MOD 8) 660 IF I>=40 THEN *FX19 670 H2=((I-1) DIV 8)*640+((I-1) MOD 8) 680 IF I<40 THEN *FX19 690 !&88=H+&30A0:!&8A=H2+&30A0:CALL&2C00 700 ENDPROC 710 IF L1=166 THEN !&72=&62A6:?&2F28=0:?&2F29=&2D:CALL&2F00 720 IF L1=166 THEN !&72=&7180:?&2F28=&00:?&2F29=&29:CALL&2F00 730 IF L1=166 THEN !&72=&7180:?&2F28=&00:?&2F29=&2D:CALL&2F00 740 IF L2=166 THEN !&72=&63A6:?&2F28=&C0:?&2F29=&2D:CALL&2F00 750 IF L2=166 THEN !&72=&72C0:?&2F28=&C0:?&2F29=&29:CALL&2F00 760 IF L2=166 THEN !&72=&72C0:?&2F28=&C0:?&2F29=&2D:CALL&2F00 770 VDU23,255,&0A,&1F,&1F,&1F,&E,&E,4,0 780 VDU5:GCOL0,1 790 IF L1=166 THEN MOVE348,180:VDU255 800 IF L2=166 THEN MOVE850,180:VDU255 810 VDU4 820 IF L1=166 OR L2=166 PROCEND 830 *FX15 840 A$=INKEY$(500) 850 H%=HI/16 860 PAGE=&1100:CHAIN"S" 870 END 880 DEFPROCEND 890 PROCBOX 900 GCOL0,0:MOVE88,396:DRAW1192,396:DRAW1192,834:DRAW88,834:DRAW88,396 910 PROCDIS("CONGRATULATIONS!",800) 920 PROCDIS("YOU HAVE",730) 930 PROCDIS("VANQUISHED THE",660) 940 PROCDIS("EVIL BONNER FROM",590) 950 PROCDIS("THE CAVE OF",520) 960 PROCDIS("MONSTERS",450) 970 ENDPROC 980 DEFPROCDIS(A$,Y) 990 VDU5 1000 GCOL0,0:MOVE640-LEN(A$)*32,Y:PRINT A$ 1010 GCOL0,1:MOVE632-LEN(A$)*32,Y+4:PRINT A$ 1020 ENDPROC 1030 DEFPROCBOX 1040 GCOL0,7 1050 S=215/544 1060 FORI=0 TO 544 STEP 8 1070 I2=I*S 1080 MOVE640+I,615+I2:DRAW640-I,615+I2:DRAW640-I,615-I2:DRAW640+I,615-I2:DRAW640+I,615+I2 1090 NEXTI 1100 ENDPROC