1 SCREEN 1,0:CLS:KEY OFF:DEF SEG=0:POKE 108,83:POKE 109,255:POKE 110,0:POKE 111,240
2 DEF SEG=&HB800:POKE 1,1: IF PEEK(1)<>1 THEN 5000
3 rem copy protection lines 5,6 removed
5 rem SCREEN 0,0:DEF SEG=&HB900:POKE 0,&H55:POKE 1,&H8B:POKE 2,&HEC:POKE 3,&HB8:POKE 4,&H1:POKE 5,&H4:POKE 6,&H2B:POKE 7,&HD2:POKE 8,&HB9:POKE 9,&H50:POKE 10,&H27:POKE 11,&HCD:POKE 12,&H13:POKE 13,&H73:POKE 14,&HB:POKE 15,&H2B:POKE 16,&HC0:POKE 17,&HCD
6 rem POKE 18,&H13:POKE 19,&H2B:POKE 20,&HC0:POKE 21,&H8B:POKE 22,&H7E:POKE 23,&H6:POKE 24,&H89:POKE 25,&H5:POKE 26,&H5D:POKE 27,&HCA:POKE 28,&H2:POKE 29,&H0:ENTRY%=0:BADDISK%=1:CALL ENTRY%(BADDISK%):DEF SEG:IF BADDISK%=0 THEN 5
99 ON ERROR GOTO 9999
100  SCREEN 1,0:CLS:KEY OFF:FOR L=1 TO 10:KEY L,X$:NEXT:DEF SEG=0:POKE 108,83:POKE 109,255:POKE 110,0:POKE 111,240
101 DEF SEG=&HB800:POKE 1,1: IF PEEK(1)<>1 THEN 5000
102 DEF SEG=0 : POKE &H410,(PEEK(&H410) AND &HCF) OR &H10: SCREEN 1,0:WIDTH 40: DEF SEG: CLS: SCREEN 0 :SCREEN 1,0
280 DEF SEG=&HB800:BLOAD"logo1.pic",4088:BLOAD"logo2.pic",12279:DEF SEG:X1=110:X2=135:X3=168:X4=X3+6:Y=32:X5=X3+45:X6=X3+39:X7=X3+16
290 X4=X3+6:X5=X3+45:X6=X3+39:X7=X3+16
300 LINE (X1,Y)-(X1+20,Y+2),1,BF:LINE (X1,Y+5)-(X1+20,Y+7),1,BF:LINE (X1+6,Y+10)-(X1+14,Y+12),1,BF:LINE (X1+6,Y+15)-(X1+14,Y+17),1,BF:LINE (X1+6,Y+20)-(X1+14,Y+22),1,BF:LINE (X1+6,Y+25)-(X1+14,Y+27),1,BF:LINE (X1,Y+30)-(X1+20,Y+32),1,BF
310 LINE (X1,Y+35)-(X1+20,Y+37),1,BF:LINE (X2,Y)-(X2+24,Y+2),1,BF:LINE (X2,Y+5)-(X2+28,Y+7),1,BF:LINE (X2+5,Y+10)-(X2+29,Y+12),1,BF:LINE (X2+5,Y+15)-(X2+25,Y+17),1,BF:LINE (X2+5,Y+20)-(X2+27,Y+22),1,BF:LINE (X2+5,Y+25)-(X2+29,Y+27),1,BF
320 LINE (X2,Y+30)-(X2+28,Y+32),1,BF:LINE (X2,Y+35)-(X2+24,Y+37),1,BF:LINE (X2+13,Y+10)-(X2+21,Y+12),0,BF:LINE (X2+13,Y+25)-(X2+21,Y+27),0,BF:LINE (X3,Y)-(X5,Y+2),1,BF:LINE (X3,Y+5)-(X5,Y+7),1,BF:LINE (X4,Y+10)-(X6,Y+12),1,BF
330 LINE (X4,Y+15)-(X6,Y+17),1,BF:LINE (X4,Y+20)-(X6,Y+22),1,BF:LINE (X4,Y+25)-(X6,Y+27),1,BF:LINE (X3,Y+30)-(X5,Y+32),1,BF:LINE (X3,Y+35)-(X5,Y+37),1,BF:LINE (X7,Y)-(X3+30,Y+2),0,BF
340 LINE (X7+2,Y+5)-(X3+28,Y+7),0,BF:LINE (X7+4,Y+10)-(X3+26,Y+12),0,BF:LINE (X7+6,Y+15)-(X3+24,Y+17),0,BF:LINE (X7-2,Y+20)-(X3+15,Y+22),0,BF:LINE (X7-2,Y+25)-(X3+17,Y+27),0,BF:LINE (X7-2,Y+30)-(X3+19,Y+32),0,BF
350 LINE (X7-2,Y+35)-(X3+21,Y+37),0,BF:LINE (X7+14,Y+20)-(X3+31,Y+22),0,BF:LINE (X7+12,Y+25)-(X3+31,Y+27),0,BF:LINE (X7+10,Y+30)-(X3+31,Y+32),0,BF:LINE (X7+8,Y+35)-(X3+31,Y+37),0,BF
999 DEF SEG=0:POKE 1264,1:DEF SEG
1000 LOCATE 25,13:PRINT"0960000000";:LOCATE 23,1,0:PRINT"(c) Copyright IBM Corporation 1983";:PRINT:PRINT"(c) Copyright The Learning Company 1982";
1020 FOR L=1 TO 2000:NEXT:CLS:PIC$="plotpict.pac":GOSUB 10000:PLAY"MBO2L8GO3L4CO2L8GL4EL8GL4O3C":FOR L=1 TO 3000:NEXT:RUN"menu
5000 CLS:LOCATE 10,2:PRINT "`BUMBLE PLOT' will not work without a color/graphics adapter":BEEP:BEEP
5010 GOTO 5010:'0960000000
9999 RUN
10000 DUMMY$=STRING$(47,32):X=VARPTR(DUMMY$):UNPAC=256*PEEK(X+2)+PEEK(X+1):BLOAD"unpacker.bin",UNPAC
10010 DEF SEG=&HF000:DAK=INP(&H3DA):DAK=PEEK(&HFFFE):DEF SEG=&H40:IF DAK=&HFD THEN OUT &H3DA,&H10 ELSE OUT &H3D8,(PEEK(&H65) AND &HF7)
10011 OUT &H3C0,0:SCREEN 1,0:CLS:DEF SEG=&HB800:BLOAD PIC$,0:DEF SEG:CALL UNPAC
10012 DAL=INP(&H3DA):DEF SEG=&H40:IF DAK=&HFD THEN OUT &H3DA,0 ELSE OUT &H3D8,PEEK(&H65)
10014 OUT &H3C0,&H20:RETURN