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