90REM¶¶¶¶¶BUBBLE-BOBBLE BY XELSIA 100ENVELOPE3,1,4,0,0,40,255,0,126,0,0, -126,126,126:ENVELOPE4,3,2,1,0,8,20,0,12 6,-2,-5,-5,126,70 110S=0 120X=RND(-2) 130VDU6 140 MODE1:CLS 150*FX9,2 160*FX10,2 170HIMEM=&1D00 180VDU23;8202;0;0;0; 190*FX15 200VDU23,224,&E3,&77,&3E,&1C,&1C,&3E,& 77,&E3 210VDU23,225,&9E,&3E,&60,&FE,&FE,&60,& 3E,&9E 220VDU23,226,&C4,&CC,&CC,&DF,&DF,&C0,& FC,&FC 230VDU23,227,&0D,&0D,&0D,&ED,&ED,&CD,& CD,&8D 240VDU23,228,&E0,&F0,&B8,&9C,&8E,&87,& BF,&BF 250VDU23,229,0,0,0,0,0,2,2,6 260VDU23,230,1,1,1,0,0,0,0,0 270VDU23,231,&80,0,0,0,0,0,0,0, 280VDU23,253,0,0,0,0,0,0,0,1,23,254,0, 0,0,0,0,0,3,3 290GOTO350 300DEFPROCSTARS 310IFS=0 THEN ?&72=40 ELSE ?&72=20 320CALL&2F80 330ENDPROC 340DEFFNC(A$):PRINTTAB(10-LEN(A$)/2);A $:="" 350FORI=1TO3:VDU19,I,0;0;:NEXT 360*L. LL 370PROCSTARS 380COLOUR2:VDU31,34,30,224,225,226,227 ,228,8,8,8,11,229,8,10,10,230,231,31,0,0 390 COLOUR1:PRINTTAB(9,8)"PROGRAMMING AND SOUND":COLOUR3:PRINTTAB(13,10)"PETER GILLETT" 400 COLOUR1:PRINTTAB(10,14)"GRAPHICS A ND DESIGN":COLOUR3:PRINTTAB(13,16)"TIM D 'AUBNEY &":PRINTTAB(13,18)"MARTIN KELSEY " 410 COLOUR1:VDU23,255,&3C,&42,&9D,&A1, &A1,&9D,&42,&3C 420 COLOUR128:PRINTTAB(12,30)CHR$255;" COPYRIGHT 1988" 430CALL&2F00 440CALL&2EC0 450*L. LE 460*FX15 470REPEAT 480COLOUR130:COLOUR3:PRINTTAB(4,22)" P RESS 1 OR 2 FOR BUBBLE BOBBLE! " 490A$=INKEY$(50) 500COLOUR130:COLOUR3:PRINTTAB(4,22)" " 510IFA$="" THEN A$=INKEY$(50) 520UNTILA$="1" OR A$="2" 530?&92=1:?&91=1:IFA$="1" THEN?&91=0 540*FX13,4 550MODE2:CLS 560HIMEM=&1D00 570VDU23;8202;0;0;0; 580FORI=0TO15:VDU19,I,0;0;:NEXTI 590S=1:PROCSTARS 600COLOUR7 610CALL&22F0 620CALL&22C0 630GCOL0,0:MOVE0,640:MOVE1279,640:PLOT 85,0,1023:PLOT85,1279,1023 640COLOUR3 650HIMEM=&3000 660PRINTTAB(0,0);FNC("Now, it's the") 670PRINTTAB(0,2);FNC("beginning of a") 680PRINTTAB(0,4);FNC("fantastic story. ") 690PRINTTAB(0,6);FNC("Let's make a jou rney") 700PRINTTAB(0,8);FNC("to the cave of") 710PRINTTAB(0,10);FNC("monsters...") 720PROCB(0,&5888):PROCB(1,&59D0) 730FORI=0TO7:VDU19,I,I;0;:NEXT 740M=15 750GOTO780 760DEFPROCB(N,A) 770FORI=0TO39 STEP 4:A!I=I!(&21C0+N*80 ):!(A+I+640)=I!(&21E8+N*80):NEXTI:ENDPRO C 780ENVELOPE1,1,0,0,0,0,0,0,126,-2,-2,- 2,126,0 790ENVELOPE2,2,48,-48,0,1,1,0,126,-2,- 2,-2,126,0 800E=0 810S=5 820RESTORE 830 830DATA1E31E21D11B21D11E12011931D21B31 631D21B3203223243 840DATA0606060606060606050505050505050 503030303030303030800000800000A00000C000 0 850DATA1616161616161616141414141414141 4131313131313131318000000000000000000000 0 860READA$,B$,C$ 870A=0:B=0:C=0 880REPEAT 890VDU19,8+(B MOD 8),RND(7);0;:IF (B M OD 8)=0 THEN VDU19,15,0;0; ELSE VDU19,7+ (B MOD 8),0;0; 900IFADVAL(-7)<15 THEN 900 910IFE>0 THEN E=E-1:GOTO 970 920P=4*EVAL("&"+MID$(A$,A*3+1,2)) 930D=VAL(MID$(A$,A*3+3,1)) 940SOUND1,2,P,D*S 950A=A+1 960E=D-1 970P=4*EVAL("&"+MID$(B$,B*2+1,2)) 980SOUND2,-(P<>0),P,S 990P=4*EVAL("&"+MID$(C$,C*2+1,2)) 1000SOUND3,-(P<>0),P,S 1010B=B+1:C=C+1 1020UNTIL (A*3+1)>LEN(A$) 1030FORI=1TO15:VDU19,I,0;0;:NEXT 1040?&8F=1 1050*L. M2SCRLT 1060?&A56=H% MOD 256 1070?&A55=H% DIV 256 1080?&A54=H% DIV 65536 1090?&91=?&91*5:?&92=?&92*5 1100CALL&2360:CALL&2320