9 ON ERROR GOTO 9999
10 DEF SEG=0:SND=PEEK(1264):GOSUB 5400:GOSUB 5100:DIM N%(580),F%(580)
30 FOR L=0 TO 282:READ N%(L):NEXT:FOR L=0 TO 282:READ F%(L):NEXT
50 PIC$="MENU.PAC":GOSUB 10000:GOSUB 910
100 GOSUB 5101
101 GOSUB 5100:IN$=INKEY$:IF IN$="" THEN 101 ELSE GOSUB 5102
110 IN=VAL(IN$)
130 IF IN<1 OR IN>7 THEN 100
140 IF IN<6 THEN LINE(0,144)-(319,199),0,BF:LOCATE 21,4:PRINT "LOADING: ";
200 ON IN GOTO 300,400,500,600,700,900,1000
300 PRINT "TRAP AND GUESS":RUN"TRAPANDG"
400 PRINT "BUMBLEBUG":RUN"BUMBLEBU"
500 PRINT "HIDDEN TREASURE":RUN"treasure"
600 PRINT "BUMBLE ART":RUN"BUMBLEAR"
700 PRINT "ROADBLOCK":RUN"ROAD"
900 IF SND=1 THEN SND=0 ELSE SND=1
910 DEF SEG=0:POKE 1264,SND:DEF SEG
920 IF SND=1 THEN PUT(134,146),N%,PSET
930 IF SND=0 THEN PUT(134,146),F%,PSET
940 GOTO 100
1000 SCREEN 0,1:COLOR 7,0,0:CLS
1010 SCREEN 0,1: COLOR 15,1,1: CLS:LOCATE 11,6,0:PRINT"Bumble says,"+CHR$(34)+"Thanks for playing.
1011 LOCATE 13,10,0:PRINT "Please come play again!"+CHR$(34)
1012 LOCATE 23,4,0:PRINT "Press <ENTER> to return to the menu.";
1014 LOCATE 25,9,0:PRINT "Or turn off the computer.";
1020 GOSUB 5101
1025 GOSUB 5100:IN$=INKEY$:IF IN$= CHR$(13) THEN 50 ELSE 1025
5100 DEF SEG=0:POKE 1047,(PEEK(1047) OR 96) AND (223-(32*(PC<>&HFD))):DEF SEG :RETURN
5101 DEF SEG=0:POKE 1050,PEEK(1052):DEF SEG :RETURN
5102 DEF SEG=0:POKE 1047,96+32*(PC=&HFD):DEF SEG :RETURN
5400 DEF SEG=0:POKE 1264,SND:POKE 108,83:POKE 109,255:POKE 110,0:POKE 111,240:DEF SEG=&HF000:PC=PEEK(&HFFFE):DEF SEG:RETURN
9000 DATA 192,24,-1,-1,-1,-1,0,0,0,0,0,0,0,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0,-16129,-253,16380,16380,0,-16369,16128,252,-253,-16129,-253,-16129,255,-256,4080,4080,0
9001 DATA -4033,-256,255,-241,-3841,-241,-3841,252,16128,4080,4080,0,-4033,-253,-16129,-241,-3841,-241,-3841,240,3840,1008,4080,0,-3841,-241,-3841,-241,-16129,-241
9002 DATA -16129,1008,4032,240,4080,0,-3841,-1009,-4033,-4081,0,-4081,0,4080,4080,240,3888,768,-16129,-4081,-4081,-4081,0,-4081,0,4080,4080,240,3840,768,-16129,-4081,-4081,-4081,0,-4081
9003 DATA 0,4080,4080,240,3840,3840,255,-4081,-4081,-4081,0,-4081,0,4080,4080,240,3840,3840,255,-4081,-4081,-241,192,-241,192,4080,4080,240,3840,16128,252,-4081,-4081,-241,240,-241,240,4080,4080
9004 DATA 3312,3840,16128,252,-4081,-4081,-241,240,-241,240,4080,4080,4080,3840,-256,240,-4081,-4081,-241,192,-241,192,4080,4080,4080,4032,-256,240,-4081,-4081,-4081,0,-4081,0,4080,4080,4080,4080,-253,192
9005 DATA -4081,-4081,-4081,0,-4081,0,4080,4080,4080,4080,-253,192,-4081,-4081,-4081,0,-4081,0,1008,4032,4080,4080,-241,0,-1009,-4033,-4081,0,-4081,0,240,3840,4080,4080,-241,0,-241,-3841,-4081,0,-4081
9006 DATA 0,252,16128,4080,4080,-1009,0,-253,-16129,-4081,0,-4081,0,255,-256,4080,4080,-1009,0,-256,255,-4081,0,-4081,0,-16129,-253,16380,16380,-4093,0,16128,252,-16381,0,-16381,0,-1,-1,-1,-1,0,0,0,0,0,0,0,0
9007 DATA -1,-1,-1,-1,0
9010 DATA 192,24,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,0,0,0,0,0,0,-1,-1,-1,-1,-1,-1,16128,252,-16381,-16381,0,-16369,-16129,-253,252,16128,252,16128,-256,255,-4081,-4081,0
9011 DATA -4033,255,-256,240,3840,240,3840,-253,-16129,-4081,-4081,0,-4033,252,16128,240,3840,240,3840,-241,-3841,-1009,-4081,0,-3841,240,3840,240,16128,240
9012 DATA 16128,-1009,-4033,-241,-4081,0,-3841,1008,4032,4080,-1,4080,-1,-4081,-4081,-241,-3889,768,-16129,4080,4080,4080,-1,4080,-1,-4081,-4081,-241,-3841,768,-16129,4080,4080,4080
9013 DATA -1,4080,-1,-4081,-4081,-241,-3841,3840,255,4080,4080,4080,-1,4080,-1,-4081,-4081,-241,-3841,3840,255,4080,4080,240,-193,240,-193,-4081,-4081,-241,-3841,16128,252,4080,4080,240,-241,240,-241,-4081,-4081
9014 DATA -3313,-3841,16128,252,4080,4080,240,-241,240,-241,-4081,-4081,-4081,-3841,-256,240,4080,4080,240,-193,240,-193,-4081,-4081,-4081,-4033,-256,240,4080,4080,4080,-1,4080,-1,-4081,-4081,-4081,-4081,-253,192
9015 DATA 4080,4080,4080,-1,4080,-1,-4081,-4081,-4081,-4081,-253,192,4080,4080,4080,-1,4080,-1,-1009,-4033,-4081,-4081,-241,0,1008,4032,4080,-1,4080,-1,-241,-3841,-4081,-4081,-241,0,240,3840,4080,-1,4080
9016 DATA -1,-253,-16129,-4081,-4081,-1009,0,252,16128,4080,-1,4080,-1,-256,255,-4081,-4081,-1009,0,255,-256,4080,-1,4080,-1,16128,252,-16381,-16381,-4093,0,-16129,-253,16380,-1,16380,-1,0,0,0,0,0,0
9017 DATA -1,-1,-1,-1,-1,-1,0,0,0,0,0
9999 RUN
10000 DUMMY$=STRING$(47,32):X=VARPTR(DUMMY$):UNPAC=256*PEEK(X+2)+PEEK(X+1):BLOAD"unpacker.bin",UNPAC
10010 SCREEN 1,0: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:POKE 9121,124: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