' PROGRAM NAME: OHIO MAX ' WRITTEN BY: SEYMOUR FERGUSON ' START DATE: 11/20/98 ' END DATE: 1/25/99 ' PERIOD: 4 CLS GOSUB PRESETUP GOSUB BASEDONMOVIE GOSUB PICTURE GOSUB LOADING 10 GOSUB TITLE GOSUB ASKGAME GOSUB MAX GOSUB QUESTNAME GOSUB CAST GOSUB PLAN END PRESETUP: SCREEN 7 COLOR 1, 0 PI = 4 * ATN(1) RETURN BASEDONMOVIE: COLOR 10 LOCATE 11, 8 PRINT "BASED ON THE GOOFY MOVIE" PLAY "MB" PLAY "o5 T195 MS e2o3c2f+2g1p2c8>f+8f+8o2f+8p8o4f+8f+8f+8o3c8o4f+8f+8o2f+8p8" PLAY "o4f+8f+8f+8cp8ef+a8gp8ecc8>f+8f+8f+8g8b-" FOR HOLD = 1 TO 50000 NEXT HOLD RETURN PICTURE: CLS LOCATE 10, 12 COLOR 1 PRINT "CJ ENTERTAINMENT" COLOR 14 LOCATE 13, 16 PRINT "PRESENTS" PLAY "MB" PLAY "p8b1<f+8f+8f+8f+8bp8>e-f>e-8c+p8>f+8f+8<>f+8f+8f+8e2g+1a+>c+ 300 LINE2X = LINE2X + 5 LINE (LINEX, LINEY)-(LINE2X, LINE2Y), 4, BF FOR HOLD = 1 TO 10000 NEXT HOLD WEND PLAY "g+e>g+8<>g+8<>g+8<>g+8<>g+8<>g+8" RETURN TITLE: CLS ' FIRST HEADING OF THE TITLE 'O CIRCLE (35, 35), 15, 4 CIRCLE (35, 35), 30, 4 'H LINE (45, 10)-(65, 5), 4 LINE (65, 5)-(65, 30), 4 LINE (65, 30)-(75, 30), 4 LINE (75, 30)-(72, 5), 4 LINE (72, 5)-(90, 5), 4 LINE (90, 5)-(90, 60), 4 LINE (90, 60)-(75, 60), 4 LINE (75, 60)-(75, 40), 4 LINE (75, 40)-(65, 40), 4 LINE (65, 40)-(65, 60), 4 LINE (65, 60)-(50, 57), 4 'I LINE (90, 8)-(135, 10), 4 LINE (90, 8)-(90, 20), 4 LINE (90, 20)-(108, 17), 4 LINE (108, 17)-(110, 50), 4 LINE (110, 50)-(90, 50), 4 LINE (90, 60)-(135, 60), 4 LINE (135, 60)-(135, 50), 4 LINE (135, 50)-(120, 50), 4 LINE (120, 50)-(117, 18), 4 LINE (117, 18)-(134, 20), 4 LINE (134, 20)-(135, 10), 4 'O CIRCLE (150, 35), 25, 4 CIRCLE (150, 35), 10, 4 'M LINE (195, 10)-(195, 60), 4 LINE (195, 60)-(209, 60), 4 LINE (209, 60)-(210, 45), 4 LINE (210, 45)-(215, 55), 4 LINE (215, 55)-(220, 45), 4 LINE (220, 45)-(220, 60), 4 LINE (220, 60)-(235, 60), 4 LINE (235, 60)-(235, 10), 4 LINE (235, 10)-(220, 10), 4 LINE (220, 10)-(220, 25), 4 LINE (220, 25)-(215, 35), 4 LINE (215, 35)-(210, 25), 4 LINE (210, 25)-(210, 10), 4 LINE (210, 10)-(195, 10), 4 'A LINE (235, 21)-(235, 60), 4 LINE (235, 60)-(245, 60), 4 LINE (245, 60)-(245, 45), 4 LINE (245, 45)-(255, 45), 4 LINE (255, 45)-(255, 60), 4 LINE (255, 60)-(265, 60), 4 LINE (265, 60)-(265, 25), 4 LINE (265, 25)-(255, 10), 4 LINE (255, 10)-(245, 10), 4 LINE (245, 10)-(235, 18), 4 CIRCLE (250, 30), 7, 4 'X LINE (257, 15)-(266, 10), 4 LINE (266, 10)-(280, 35), 4 LINE (280, 35)-(295, 10), 4 LINE (295, 10)-(302, 20), 4 LINE (302, 20)-(287, 40), 4 LINE (287, 40)-(302, 60), 4 LINE (302, 60)-(285, 60), 4 LINE (285, 60)-(280, 45), 4 LINE (280, 45)-(270, 60), 4 LINE (270, 60)-(265, 60), 4 LINE (265, 60)-(265, 50), 4 LINE (265, 50)-(275, 40), 4 LINE (275, 40)-(257, 15), 4 ' TWO CIRCLES CIRCLE (313, 20), 5, 4 CIRCLE (313, 55), 5, 4 ' SUB TITLE LOCATE 11, 8 COLOR 9 PRINT "IN MAX'S CRAZY ADVENTURE" ' PAINTS OHIO PAINT (112, 51), 16, 4 PAINT (30, 20), 16, 4 PAINT (66, 39), 16, 4 PAINT (55, 15), 16, 4 PAINT (60, 50), 16, 4 PAINT (150, 25), 16, 4 'PAINTS MAX: PAINT (205, 25), 16, 4 PAINT (250, 20), 16, 4 PAINT (270, 50), 16, 4 PAINT (313, 20), 16, 4 PAINT (313, 55), 16, 4 PLAY "MB" PLAY "<>g+8<>g+8>cp8ef+a8gp8eccp8" RETURN ASKGAME: LOCATE 16, 12 PRINT " 1) PLAY GAME" LOCATE 17, 12 PRINT " 2) EXIT " LOCATE 18, 12 INPUT " MAKE CHOICE"; CHOICE IF CHOICE <= 0 THEN 10 ELSE IF CHOICE > 2 THEN 10 IF CHOICE = 1 THEN GOSUB STORY ELSE IF CHOICE = 2 THEN GOSUB WHYNOT RETURN STORY: SCREEN 9 CLS COLOR 3 PRINT " THIS GAME TAKES PLACE WHEN A TEEN, NAMED MAX" PRINT " IS ATTENDING A NORMAL HIGH SCHOOL, AND FALLS" PRINT " IN LOVE WITH A GIRL NAMED ROXANNE." PRINT " HOWEVER, HE IS TOO SHY TO" PRINT " ASK HER OUT, BUT WHEN " PRINT " HE BELIEVES ALL IS LOST" PRINT " HE THINKS OF A WAY TO" PRINT " WIN HER HEART. " PRINT " HE PUTS HIS " PRINT " PLAN INTO ACTION," PRINT " BUT GETS INTO TROUBLE" PRINT " WITH HIS PRINCIPAL...UNKNOWING" PRINT " IF HE WOULD EVER GET ROXANNE...." PRINT " HIS PRINCIPAL LATER CALLS HIS FATHER" PRINT " TO DISCUSS HIS DISTURBING BEHAVIOR." PRINT " MAX'S FATHER, RECEIVES THE CALL," PRINT " AND THINKS HE IS THE CAUSE" PRINT " OF HIS MAX'S TROUBLES." PRINT " BECAUSE OF THIS, HE DECIDES TO TAKE" PRINT " ON A ROAD TRIP..." PRINT " MAX DOESN'T LIKE THIS, BUT HE HAS NO CHOICE." PRINT " IT IS YOUR JOB, TO RECONNECT MAX WITH HIS FATHER" PRINT " AND TO GET ROXANNE TO BE HIS GIRLFRIEND." PLAY "MB" PLAY "ef+a8gp8ec>c8d+8c8d8c8<<>a8<>a8<>a8<>a8" PLAY "<>a8<>a8<>a8<>a8d+fg+8f+p8d+f8f8f8f+2p8" FOR HOLD = 1 TO 800000 NEXT HOLD RETURN CAST: CLS GOSUB MAXDAD GOSUB MAX GOSUB ROXANNE GOSUB CASTNAMES RETURN MAXDAD: ' MAX'S DAD CIRCLE (40, 46), 6, 16, 0, PI * 2, .4 CIRCLE (40, 49), 10, 16, .7, 2.5 CIRCLE (36, 34), 7, 16, 0, PI * 2, 2 CIRCLE (45, 34), 7, 16, 0, PI * 2, 2 CIRCLE (29, 45), 5, 16, 1, 4.5 CIRCLE (30, 53), 7, 16, 2, 6 LINE (38, 55)-(40, 55), 16 CIRCLE (47, 54), 7, 16, 3.3, 1 CIRCLE (50, 45), 5, 16, 4.7, 2 CIRCLE (28, 42), 25, 16, PI * 2, 1 CIRCLE (51, 44), 25, 16, 2, 3 LINE (50, 30)-(60, 30), 16 LINE (19, 30)-(31, 30), 16 LINE (51, 35)-(60, 35), 16 LINE (29, 35)-(19, 35), 16 CIRCLE (63, 44), 15, 16, 0, PI * 2, 4 CIRCLE (16, 44), 15, 16, 0, PI * 2, 4 CIRCLE (50, 55), 1, 16 CIRCLE (30, 55), 1, 16 CIRCLE (46, 26), 5, 16, 0, 3 CIRCLE (34, 26), 5, 16, 0, 3 CIRCLE (36, 34), 3, 16, 0, PI * 2, 2 CIRCLE (45, 34), 3, 16, 0, PI * 2, 2 LINE (27, 60)-(32, 64), 16, B LINE (45, 60)-(50, 64), 16, B PAINT (40, 46), 4, 16 RETURN ROXANNE: 'EYE LASH CIRCLE (140, 100), 5, 16, 1, 3 'EYE & NOSE CIRCLE (141, 105), 3, 16, 0, PI * 2, 2 CIRCLE (135, 115), 6, 16, 0, PI * 2, .45 'FACE CIRCLE (137, 102), 15, 16, 6, 2 CIRCLE (145, 114), 14, 16, 5, 1 ' REST IS HAIR CIRCLE (145, 95), 17, 16, 1, 4 LINE (120, 95)-(135, 105), 16 CIRCLE (105, 98), 20, 16, PI * 1.5, PI * 2 LINE (112, 115)-(127, 125), 16 CIRCLE (138, 120), 11, 16, 3.3, 6 'LINE (40, 40)-(45, 45), 16 CIRCLE (97, 115), 17, 16, 1, 4 CIRCLE (110, 90), 17, 16, 1, 4 CIRCLE (136, 83), 17, 16, 0, 3 CIRCLE (155, 87), 18, 16, 6, 2 CIRCLE (169, 107), 18, 16, 6, 2 CIRCLE (174, 122), 16, 16, 6, 2 'NECK LINE (85, 126)-(130, 126), 16 LINE (145, 126)-(188, 126), 16 'PAINTS NOSE & HAIR PAINT (135, 115), 4, 16 PAINT (140, 80), 6, 16 PAINT (170, 120), 6, 16 RETURN CASTNAMES: LOCATE 1, 2 PRINT "MAX'S DAD" COLOR 1 LOCATE 7, 35 PRINT "MAX" COLOR 4 LOCATE 14, 27 PRINT "ROXANNE" COLOR 14 LOCATE 21, 15 PRINT "THE CAST" 'PLAY "MB" 'PLAY "b8>d8f8d+8p4<<bp8d+f>d+8c+p8>f+8f+8" FOR HOLD = 1 TO 300000 NEXT HOLD RETURN MAX: ' MAX SCREEN 7 CIRCLE (200, 40), 8, 16, 0, PI * 2, .5 CIRCLE (210, 40), 10, 16, PI * .2, 2.5 CIRCLE (225, 35), 10, 16, PI * .2, 2.7 CIRCLE (210, 29), 20, 16, PI * 1.4, 0 CIRCLE (220, 27), 10, 16, PI * 0, 2 CIRCLE (210, 27), 10, 16, PI * .29, PI * 1.4 LINE (215, 20)-(215, 32), 16 LINE (220, 43)-(230, 50), 16 CIRCLE (230, 43), 7, 16, PI * 1.5, 1.7 CIRCLE (206, 15), 10, 16, PI * 0, 3 CIRCLE (226, 12), 10, 16, PI * 0, 3 LINE (235, 25)-(225, 40), 16 LINE (236, 10)-(235, 25), 16 LINE (204, 8)-(204, 20), 16 CIRCLE (206, 8), 10, 16, PI * 0, 3 CIRCLE (245, 25), 25, 16, .2, 2 CIRCLE (236, 15), 30, 16, PI * 1.5, PI * 2 LINE (216, 0)-(267, 0), 16 LINE (216, 0)-(216, 4), 16 LINE (267, 0)-(267, 14), 16 LINE (267, 10)-(295, 10), 16 LINE (295, 10)-(295, 17), 16 LINE (267, 17)-(295, 17), 16 LINE (227, 20)-(260, 20), 1 CIRCLE (230, 47), 2, 16 PAINT (200, 40), 4, 16 PAINT (220, 27), 1, 16 PAINT (210, 27), 1, 16 PAINT (230, 47), 13, 16 PAINT (268, 12), 1, 16 PAINT (217, 3), 1, 16 RETURN QUESTNAME: PRINT "PLEASE INPUT YOUR NAME" INPUT NAME$ LOCATE 10, 25 PRINT "ITS NICE TO MEET YOU "; NAME$; " !!!" FOR HOLD = 1 TO 200000 NEXT HOLD RETURN WHYNOT: CLS SCREEN 9 LOCATE 10, 30 COLOR 7 PRINT "THE END..YOU SHOULD OF PLAYED." PLAY "t255l8 o2 ggbg o3 d o2 g bg" PLAY "l8 ddg-dgdgg-" PLAY "l8 ccecgagg-" CLS LOCATE 10, 30 COLOR 4 PRINT "THE CREDITS" PLAY "l8 o2 eegeaeba" PLAY "l8 o2 ggbg o3 d o2 g bg" CLS COLOR 2 LOCATE 10, 30 PRINT "PROGRAMMER: SEYMOUR FERGUSON" PLAY "l8 ddg-dgdgg-" PLAY "l8 ccecgagg-" CLS LOCATE 10, 30 COLOR 5 PRINT "MUSIC BY: SEYMOUR FERGUSON" PLAY "l8 o2 eegeaeba" PLAY "l8 o2 ggbg o3 d o2 g bg" PLAY "l8 ddg-dgdgg-" CLS COLOR 12 LOCATE 10, 30 PRINT "PLAY THE GAME NEXT TIME." PLAY "l8 ccecgagg-" END PLAN: CLS GOSUB MAX COLOR 15 PRINT " HERE IS THE PLAN." PRINT "I AM THINKING OF SINGING" PRINT "A SONG TO WIN ROXANNE," PRINT "BUT I AM A SCARED!!" PRINT PRINT "WHAT SHOULD I DO?" PRINT "1) SING THE SONG" PRINT "2) FORGET ABOUT IT" INPUT SINGORNO IF SINGORNO <= 0 THEN GOSUB PLAN ELSE IF SINGORNO > 2 THEN GOSUB PLAN IF SINGORNO = 1 THEN GOSUB SING ELSE IF SINGORNO = 2 THEN GOSUB FORGETIT RETURN SING: SCREEN 7 CLS GOSUB MAX GOSUB MIC1 GOSUB CORD1 GOSUB HAND1 GOSUB SOMEWHERE1 FOR HOLD = 1 TO 100000 NEXT HOLD GOSUB ROXANNEYES RETURN MIC1: CIRCLE (210, 60), 5, 16 CIRCLE (210, 60), 4, 16, 2.3, .3 LINE (190, 80)-(204, 60), 16 LINE (190, 80)-(211, 65), 16 LINE (190, 80)-(185, 85), 16 CIRCLE (184, 86), 2, 16 RETURN CORD1: CIRCLE (148, 89), 35, 16, 4 CIRCLE (113, 129), 25, 16, 1, 3 RETURN HAND1: CIRCLE (200, 70), 4, 16, 0, PI * 2, .3 CIRCLE (203, 66), 4, 16, 0, PI * 2, .3 CIRCLE (206, 70), 2, 16 RETURN SOMEWHERE1: LOCATE 20, 25 PRINT "Somewhere out there..." PLAY "t90o2l2cd+co1l4g+p6" PRINT "Beneath the pale moonlight..." PLAY "t90o1l7a+l4o2ce-a+a-l2fp4" PRINT "Someone's thinking of me," PLAY "t90o2l2fo1l4a+l8o2cd-l2d+o1l3g+p9" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "And watching me tonight..." PLAY "t90o2l7cl4d-d+fd-o1l2a+p6" PRINT "Somewhere out there" PLAY "t90o2l2cd+co1l4g+p6" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "Someone's singing a prayer;" PLAY "t90o1l7a+l4o2ce-a+a-l2fp4" PRINT "We'll find one another" PLAY "t90o2l2fl4b-l8a-fl2d+l3cp9" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "in that big somewhere out there." PLAY "t90o2l8cl4c+co1a-l8fa-l2a-" PRINT "And even though I know how very far" PRINT "apart we are," PLAY "t90o1l8a-fa-fa-ge-ge-fd-fd-e-p5" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "it helps to think we might be wishing" PRINT "on the same bright star..." PLAY "t90o1l8a-fa-fa-a+ga+ga-fa-fgp5" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "And when the night wind starts to" PRINT "sing a lonesome lullaby," PLAY "t90o2l8co1ao2co1ao2co1bgbgafafgp5" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "It helps to think we're sleeping" PRINT "underneath the same big sky!" PLAY "t90l8o2co1ao2co1ao2cdo1bo2do1bo2do1bo2do1bo2l2e" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "Somewhere out there..." PLAY "t90o2l2d-ed-o1l4ap6" PRINT "If love can see us through..." PLAY "t90o1l7bl4o2d-ebal2f+p4" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "Then we'll be together" PLAY "t90o2l2f+l4bl8ag-l2el8d-" PRINT "somewhere out there..." PLAY "t90o1l8aag+f+o2l2d" CLS GOSUB MAX GOSUB CORD1 GOSUB HAND1 GOSUB MIC1 LOCATE 20, 25 PRINT "out where dreams..." PRINT "come true..." PLAY "t90o1l8bag+o2l2ep6l4el1e" FOR HOLD = 1 TO 100000 NEXT HOLD RETURN ROXANNEYES: SCREEN 12 COLOR 7 PRINT "AFTER THE SONG, MAX IS SENT" PRINT "TO THE PRINCIPAL'S OFFICE" PRINT "WHERE THE PRINCIPAL CALLS" PRINT "MAX'S DAD ABOUT HIS DISTURBING" PRINT "BEHAVIOR." PRINT "" PRINT "MAX IS THEN ENCOUNTERED BY" PRINT "ROXANNE, WHO WAS JUST" PRINT "PASSING BY. SHE SAYS," PRINT "THAT SHE LIKED HIS SONG & DANCE." PRINT "" PRINT "MAX, NOW SHOCKED BY ROXANNE" PRINT "TALKING TO HIM, ASKS HER OUT." PRINT "SHE SAYS YES. MAX JUMPS FOR" PRINT "JOY, AND INVITES HER TO STACY'S" PRINT "HOUSE, ROXANNE'S BEST FRIEND," PRINT "FOR A PARTY & TO SEE THEIR FAVORITE." PRINT "SINGER, POWERLINE, PERFORM LIVE ON PAY-PER-VIEW." PRINT PRINT "THE BELL RINGS, AND MAX HEADS" PRINT "HOME...BY NOW, THE WHOLE SCHOOL" PRINT "HAS HEARD ABOUT MAX'S ACCOMPLISHMENT," PRINT COLOR 4 PRINT "BUT ON HIS WAY HOME....." FOR HOLD = 1 TO 900000 NEXT HOLD GOSUB WHILEHOME RETURN WHILEHOME: SCREEN 7 CLS GOSUB MAXDAD GOSUB CAR GOSUB WHEEL GOSUB LIGHTS GOSUB SKY GOSUB TALK END CAR: 'HOOD OF CAR LINE (80, 115)-(130, 100), 16 LINE (140, 140)-(190, 125), 16 LINE (130, 100)-(140, 140), 16 LINE (80, 115)-(190, 125), 16 LINE (130, 100)-(190, 125), 16 LINE (80, 115)-(140, 140), 16 LINE (80, 115)-(80, 135), 16 LINE (80, 135)-(140, 160), 16 LINE (140, 160)-(299, 112), 16 LINE (140, 140)-(140, 160), 16 'WINDSCREEN LINE (130, 100)-(150, 65), 16 LINE (190, 145)-(190, 80), 16 LINE (150, 65)-(190, 80), 16 'TOP OF CAR LINE (150, 65)-(205, 55), 16 LINE (190, 80)-(281, 60), 16 'OTHERS (SIDE WINDOW) LINE (190, 125)-(301, 93), 16 ' INNER SIDE WINDOW LINE (194, 118)-(231, 107), 16 LINE (231, 107)-(231, 76), 16 LINE (194, 118)-(194, 84), 16 LINE (194, 84)-(231, 76), 16 ' BACKWINDOW LINE (240, 75)-(275, 67), 16 LINE (275, 67)-(275, 95), 16 LINE (240, 75)-(240, 105), 16 LINE (240, 105)-(275, 95), 16 LINE (280, 61)-(280, 120), 16 LINE (235, 70)-(235, 130), 16 'INSIDE WINDOW LINE (134, 100)-(151, 70), 16 LINE (151, 70)-(185, 82), 16 LINE (185, 82)-(185, 122), 16 LINE (131, 100)-(185, 122), 16 RETURN WHEEL: CIRCLE (165, 155), 17, 16 CIRCLE (165, 155), 10, 16 CIRCLE (270, 100), 41, 16, 6, 2.2, 1.3 CIRCLE (229, 103), 66, 16, .8, 2, .8 CIRCLE (267, 128), 17, 16 CIRCLE (267, 128), 10, 16 LINE (205, 55)-(251, 67), 16 RETURN LIGHTS: ' TWO LIGHTS CIRCLE (90, 130), 7, 16, PI * 0, PI * 2, 1.5 CIRCLE (125, 144), 7, 16, PI * 0, PI * 2, 1.5 LINE (115, 130)-(115, 149), 16 LINE (100, 124)-(100, 143), 16 ' ANTENNA LINE (154, 40)-(154, 65), 16 CIRCLE (154, 37), 2, 16 ' PAINT ENTIRE CAR PAINT (140, 110), 4, 16 PAINT (140, 125), 4, 16 PAINT (130, 110), 4, 16 PAINT (130, 125), 4, 16 PAINT (200, 80), 4, 16 PAINT (200, 60), 4, 16 PAINT (147, 75), 4, 16 PAINT (200, 140), 4, 16 PAINT (255, 107), 4, 16 PAINT (300, 100), 4, 16 PAINT (300, 90), 4, 16 PAINT (279, 90), 4, 16 PAINT (235, 60), 4, 16 PAINT (270, 60), 4, 16 PAINT (260, 63), 4, 16 PAINT (145, 150), 4, 16 PAINT (137, 150), 4, 16 PAINT (85, 120), 4, 16 PAINT (110, 130), 15, 16 PAINT (90, 130), 14, 16 PAINT (125, 145), 14, 16 ' DEPEND ON TIRE PAINT (165, 150), 4, 16 PAINT (150, 100), 11, 16 PAINT (200, 110), 11, 16 PAINT (260, 90), 11, 16 RETURN TALK: LOCATE 2, 12 PRINT "HEY MAXIE BOY" SLEEP 2 LOCATE 2, 12 PRINT "GUESS WHAT? " SLEEP 2 LOCATE 2, 12 PRINT "WE ARE GOING ON A ROAD TRIP!" FOR HOLD = 1 TO 100000 NEXT HOLD GOSUB ROADTRIPQUEST RETURN SKY: LINE (0, 100)-(130, 100), 16 LINE (303, 100)-(360, 100), 16 PAINT (1, 150), 2, 16 PAINT (1, 50), 1, 16 RETURN ROADTRIPQUEST: CLS GOSUB MAX COLOR 15 PRINT "AH MAN!! MY DAD" PRINT "WANTS TO GO ON" PRINT "A STUPID FATHER-SON" PRINT "TRIP, AND THAT" PRINT "COULD TAKE FOREVER," PRINT "AND I AM SUPPOSED" PRINT "GO TO THE PARTY" PRINT "THIS WEEKEND WITH ROXANNE!!" PRINT PRINT "WHAT SHOULD I DO?" PRINT "1) GO ON THE TRIP" PRINT "2) TELL HIM NO" INPUT ROADTRIPANS IF ROADTRIPANS <= 0 THEN GOSUB ROADTRIPQUEST ELSE IF ROADTRIPANS > 2 THEN GOSUB ROADTRIPQUEST IF ROADTRIPANS = 1 THEN GOSUB ROXLIE ELSE IF ROADTRIPANS = 2 THEN GOSUB FORGETIT RETURN ROXLIE: CLS GOSUB TALKWROXANNE GOSUB MESSROXHOUSE GOSUB ATROXANNESHOUSE RETURN TALKWROXANNE: SCREEN 9 PRINT "MAX, NOW DEPRESSED BY HIS DAD'S NEWLY PLANNED TRIP," PRINT "SAYS GOODBYE TO HIS SUMMER VACTION" PRINT PRINT "MAX: 'GOOD-BYE HOPES, GOOD-BYE DREAMS, GOOD-BYE ROXANNE'" PRINT "MAX: UMM... ROXANNE!!" PRINT PRINT "MAX, REMEMBERING ABOUT ROXANNE, QUICKLY TELLS HIS DAD" PRINT "THAT HE HAS TO MAKE A STOP FIRST." PRINT "MAX THEN GRABS THE WHEEL OF THE CAR AWAY FROM HIS DAD," PRINT "FLOORS IT,....SPEEDING TO ROXANNE'S HOUSE." PRINT PRINT FOR HOLD = 1 TO 900000 NEXT HOLD RETURN MESSROXHOUSE: CLS PI = 4 * ATN(1) HEADX = 15 BODYX = 15 '1ST SET OF HANDS HANDS1 = 15 HANDS2 = 20 HANDS3 = 20 HANDS4 = 25 HANDS5 = 15 HANDS6 = 10 HANDS7 = 10 HANDS8 = 10 'FEET FEETX = 15 FEETX1 = 22 FEETX2 = 15 FEETX3 = 8 CLS SCREEN 7 LOCATE 10, 12 PRINT "AT ROXANNES HOUSE...." LOCATE 17, 17 PRINT "LOADING" FOR MAN = 1 TO 40 'HEAD CIRCLE (HEADX, 150), 5, C 'BODY LINE (BODYX, 155)-(BODYX, 167), C 'HAND LINE (HANDS1, 159)-(HANDS2, 159), C LINE (HANDS3, 159)-(HANDS4, 154), C LINE (HANDS5, 159)-(HANDS6, 159), C LINE (HANDS7, 159)-(HANDS8, 164), C 'FEET LINE (FEETX, 167)-(FEETX1, 170), C LINE (FEETX2, 167)-(FEETX3, 170), C HEADX = HEADX + 10 BODYX = BODYX + 10 HANDS1 = HANDS1 + 10 HANDS2 = HANDS2 + 10 HANDS3 = HANDS3 + 10 HANDS4 = HANDS4 + 10 HANDS5 = HANDS5 + 10 HANDS6 = HANDS6 + 10 HANDS7 = HANDS7 + 10 HANDS8 = HANDS8 + 10 FEETX = FEETX + 10 FEETX1 = FEETX1 + 10 FEETX2 = FEETX2 + 10 FEETX3 = FEETX3 + 10 C = C + 1 IF C > 14 THEN C = 0 FOR HOLD = 1 TO 10000 NEXT HOLD NEXT MAN RETURN ATROXANNESHOUSE: GOSUB SCREENSET GOSUB DEPRESSEDMAX GOSUB HOUSEBOUNDROAD GOSUB ROXHOUSE GOSUB PAINTROXSCENE GOSUB FATHERWARN GOSUB THELIE RETURN SCREENSET: CLS SCREEN 7 RETURN DEPRESSEDMAX: ' FACE (EYES) CIRCLE (240, 150), 5, 16, PI * 0, PI * 2, 2 CIRCLE (246, 150), 5, 16, PI * 0, PI * 2, 2 ' FACE (MOUTH AREA) CIRCLE (243, 158), 5, 16, PI * 0, PI * 1, .3 CIRCLE (233, 160), 7, 16, PI * 0, PI * .9, .4 'FACE (NOSE) CIRCLE (223, 159), 4, 16, PI * 0, PI * 2, 1.4 'FACE (MOUTH-TEETH) CIRCLE (240, 164), 16, 16, PI * 1, PI * 2, .4 'FACE (TOP-HAIR) CIRCLE (243, 150), 9, 16, PI * .5, PI * 1.5, 1.5 CIRCLE (250, 154), 14, 16, PI * 2, PI * .7, 1.1 CIRCLE (264, 157), 7, 16, PI * 1.5, PI * .5, .4 CIRCLE (255, 154), 14, 16, PI * 0, PI * .5, 1 'FACE (BOTTOM CORNER OF MOUTH) CIRCLE (257, 160), 15, 16, PI * 1.2, PI * 2, 2 ' FACE (HAIR ONLY) CIRCLE (237, 140), 6, 16, PI * 0, PI * 1 CIRCLE (235, 140), 6, 16, PI * 0, PI * 1, .5 CIRCLE (240, 140), 6, 16, PI * 0, PI * 1 ' EARS CIRCLE (270, 167), 8, 16, PI * 0, PI * 2, 3 'SHIRT CIRCLE (252, 190), 17, 16, PI * .5, PI * 1.4, 1.5 CIRCLE (262, 190), 17, 16, PI * 1.4, PI * .5, 1.5 LINE (243, 180)-(220, 200), 16 LINE (271, 180)-(293, 200), 16 ' HAT LINE (244, 135)-(269, 135), 16 LINE (269, 135)-(269, 150), 16 LINE (269, 151)-(290, 155), 16, B 'SHADES LINE (250, 150)-(264, 150), 16 RETURN HOUSEBOUNDROAD: LINE (0, 90)-(330, 90), 16 RETURN ROXHOUSE: LINE (90, 0)-(90, 50), 16 LINE (230, 0)-(230, 50), 16 LINE (112, 50)-(112, 90), 16 LINE (190, 50)-(190, 90), 16 ' DOOR LINE (140, 20)-(175, 50), 16, B CIRCLE (169, 37), 2, 16 'GARAGE LINE (0, 50)-(340, 50), 16 'ARCH OF FENCE FENCEX = 0 FOR FENCE = 1 TO 5 CIRCLE (FENCEX, 50), 10, 16, PI * 0, PI * 1 FENCEX = FENCEX + 20 NEXT FENCE FENCEX = 240 FOR FENCE2 = 1 TO 5 CIRCLE (FENCEX, 50), 10, 16, PI * 0, PI * 1 FENCEX = FENCEX + 20 NEXT FENCE2 ' LINES FOR FENCE FENCELINEX = 10 FOR FENCELINE = 1 TO 5 LINE (FENCELINEX, 50)-(FENCELINEX, 90), 16 FENCELINEX = FENCELINEX + 20 NEXT FENCELINE FENCELINEX = 210 FOR FENCELINE = 1 TO 6 LINE (FENCELINEX, 50)-(FENCELINEX, 90), 16 FENCELINEX = FENCELINEX + 20 NEXT FENCELINE RETURN PAINTROXSCENE: 'SKY PAINT (10, 10), 11, 16 PAINT (250, 10), 11, 16 'FENCE PAINT (150, 55), 4, 16 FENCEPAINTX = 0 FOR LINEFENCEPAINT = 1 TO 6 PAINT (FENCEPAINTX, 55), 6, 16 FENCEPAINTX = FENCEPAINTX + 20 NEXT LINEFENCEPAINT FENCEPAINTX = 200 FOR LINEFENCEPAINT = 1 TO 6 PAINT (FENCEPAINTX, 55), 6, 16 FENCEPAINTX = FENCEPAINTX + 20 NEXT LINEFENCEPAINT PAINT (313, 55), 6, 16 'FENCE ARCHS FENCEARCHPNT = 0 FOR FENCEARCHPAINT = 1 TO 5 PAINT (FENCEARCHPNT, 45), 6, 16 FENCEARCHPNT = FENCEARCHPNT + 19 NEXT FENCEARCHPAINT FENCEARCHPNT = 240 FOR FENCEARCHPAINT = 1 TO 5 PAINT (FENCEARCHPNT, 46), 6, 16 FENCEARCHPNT = FENCEARCHPNT + 19 NEXT FENCEARCHPAINT 'HOUSE PAINT (100, 30), 5, 16 'DOOR PAINT (169, 27), 1, 16 'PAINTING OF MAX 'NOSE PAINT (223, 159), 4, 16 'SHADES PAINT (240, 150), 1, 16 PAINT (246, 150), 1, 16 'HAT PAINT (250, 136), 1, 16 PAINT (270, 152), 1, 16 'SHIRT PAINT (252, 190), 4, 16 PAINT (235, 190), 4, 16 PAINT (277, 190), 4, 16 RETURN FATHERWARN: LOCATE 10, 3 PRINT "BEWARE OF" LOCATE 10, 27 PRINT "CRAZY FATHER" RETURN THELIE: LOCATE 15, 17 PRINT "NOW WHAT AM I GOING TO DO?" SLEEP 2 GOSUB SCREENSET GOSUB DEPRESSEDMAX GOSUB HOUSEBOUNDROAD GOSUB ROXHOUSE GOSUB PAINTROXSCENE GOSUB FATHERWARN LOCATE 15, 3 PRINT "I KNOW, I WILL TELL HER I" LOCATE 17, 3 PRINT "AM GOING TO THE POWERLINE" LOCATE 19, 3 PRINT "CONCERT IN LOS ANGELES." FOR HOLD = 1 TO 300000 NEXT HOLD GOSUB ROXLIETALK GOSUB ROADTRIPVENTURE RETURN ROXLIETALK: CLS SCREEN 9 COLOR 2, 0 PI = 4 * ATN(1) PRINT "ROXANNE:"; TAB(15); "SO YOU WANT ME TO BELIEVE THAT YOUR DAD IS" PRINT TAB(15); "GOING TO TAKE YOU SQUARE ACCROSS THE COUNTRY" PRINT TAB(15); "TO TAKE YOU TO A CONCERT" PRINT FOR HOLD = 1 TO 10000 NEXT HOLD PRINT "MAX:"; TAB(15); "WELL, HE...HE..HE AND POWERLINE ARE BEST OF FRIENDS" PRINT FOR HOLD = 1 TO 10000 NEXT HOLD PRINT "MAX'S: DAD:"; TAB(15); "HEY MAXIE BOY, LET'S GET A MOVE ON IT. WE NEED" PRINT TAB(15); "TO PUT SOME ROAD BEHIND US" PRINT FOR HOLD = 1 TO 10000 NEXT HOLD PRINT "MAX:"; TAB(15); "OK YOU PARTY ANIMAL YOU..." PRINT FOR HOLD = 1 TO 10000 NEXT HOLD PRINT "ROXANNE:"; TAB(15); "YOU ARE REALLY SERIOUS, AREN'T YOU?" PRINT FOR HOLD = 1 TO 10000 NEXT HOLD PRINT "MAX:"; TAB(15); "YEAH...WELL, I WOULN'T MISS OUR DATE FOR ANYTHING IN" PRINT TAB(15); "THE WORLD" PRINT FOR HOLD = 1 TO 10000 NEXT HOLD PRINT TAB(30); " " PRINT PRINT FOR HOLD = 1 TO 10000 NEXT HOLD PRINT "ROXANNE:"; TAB(15); "MAX HAVE A GREAT TIME, AND I WILL SEE YOU ON TV." PRINT PRINT "MAX:"; TAB(15); "UMM OKAY." FOR HOLD = 1 TO 500000 NEXT HOLD GOSUB AFTERROXLIE RETURN AFTERROXLIE: CLS SCREEN 7 GOSUB MAX PRINT "OH GREAT NOW." PRINT "NOW I AM IN TROUBLE" PRINT "HOW AM I GOING TO" PRINT "GET TO THAT CONCERT." PRINT "MY DAD ISN'T EXACTLY" PRINT "GOING TO TAKE ME THERE." GOSUB ROXANNE LOCATE 20, 20 PRINT "MY BOYFRIEND IS GOING TO BE ON TV!!" LOCATE 21, 25 PRINT "I BETTER TELL STACY!!!" FOR HOLD = 1 TO 800000 NEXT HOLD RETURN MIC: CIRCLE (210, 60), 5, 16 CIRCLE (210, 60), 4, 16, 2.3, .3 LINE (190, 80)-(204, 60), 16 LINE (190, 80)-(211, 65), 16 LINE (190, 80)-(185, 85), 16 CIRCLE (184, 86), 2, 16 RETURN CORD: CIRCLE (148, 89), 35, 16, 4 CIRCLE (113, 129), 25, 16, 1, 3 RETURN HAND: CIRCLE (200, 70), 4, 16, 0, PI * 2, .3 CIRCLE (203, 66), 4, 16, 0, PI * 2, .3 CIRCLE (206, 70), 2, 16 RETURN FORGETIT: CLS SCREEN 7 ' FENCE LINE (0, 150)-(325, 150), 16 LINE (120, 150)-(205, 190), 16, B LINE (0, 190)-(325, 190), 16 'FOUNDATION OF HOUSE LINE (0, 100)-(325, 100), 16 ' HOUSE LINE (75, 0)-(250, 100), 16, B 'DOOR LINE (140, 60)-(190, 100), 16, B 'WINDOWS LINE (90, 15)-(125, 35), 16, B LINE (195, 15)-(230, 35), 16, B ' DOORKNOB CIRCLE (180, 82), 4, 16 ' RIGHT SIDE TREE LINE (280, 70)-(300, 100), 16, B LINE (300, 70)-(317, 70), 16 LINE (317, 70)-(290, 30), 16 LINE (290, 30)-(265, 70), 16 LINE (280, 70)-(265, 70), 16 ' LEFT SIDE TREE LINE (25, 70)-(45, 100), 16, B LINE (45, 70)-(62, 70), 16 LINE (62, 70)-(35, 30), 16 LINE (35, 30)-(5, 70), 16 LINE (5, 70)-(25, 70), 16 ' PAINT WHOLE PICTURE PAINT (180, 82), 8, 16 PAINT (80, 80), 1, 16 PAINT (150, 70), 4, 16 PAINT (30, 80), 6, 16 PAINT (290, 80), 6, 16 PAINT (40, 40), 2, 16 PAINT (290, 40), 2, 16 PAINT (130, 160), 4, 16 PAINT (5, 180), 6, 16 PAINT (310, 180), 6, 16 PAINT (10, 130), 10, 16 PAINT (95, 20), 14, 16 PAINT (200, 20), 14, 16 PAINT (4, 10), 11, 16 PAINT (301, 10), 11, 16 ' PRINT REASON COLOR 15 LOCATE 14, 5 IF SINGORNO = 2 THEN PRINT "AHHH!! I CAN'T BELIEVE I CHICKENED OUT!!" IF ROADTRIPANS = 2 THEN PRINT "JUST GREAT!! NOW I'M GROUNDED!!" ' PRINT GAME OVER AT BOTTOM LOCATE 22, 5 PRINT "GAME" LOCATE 22, 33 PRINT "OVER" FOR HOLD = 1 TO 100000 NEXT HOLD GOSUB TOOBAD RETURN TOOBAD: CLS SCREEN 9 LOCATE 10, 30 COLOR 7 PRINT "TOO BAD!! YOU LOSE!!." PLAY "t255l8 o2 ggbg o3 d o2 g bg" PLAY "l8 ddg-dgdgg-" PLAY "l8 ccecgagg-" PLAY "l8 o2 eegeaeba" CLS LOCATE 10, 30 COLOR 4 PRINT "THE CREDITS" PLAY "l8 o2 ggbg o3 d o2 g bg" PLAY "l8 ddg-dgdgg-" PLAY "l8 ccecgagg-" CLS COLOR 2 LOCATE 10, 30 PRINT "PROGRAMMER: SEYMOUR FERGUSON" PLAY "l8 o2 eegeaeba" PLAY "l8 o2 ggbg o3 d o2 g bg" CLS LOCATE 10, 30 COLOR 5 PRINT "MUSIC BY: SEYMOUR FERGUSON" PLAY "l8 ddg-dgdgg-" CLS COLOR 12 LOCATE 10, 30 PRINT "TRY AGAIN!!!" PLAY "l8 ccecgagg-" END ROADTRIPVENTURE: CLS SCREEN 7 GOSUB PRESETUP GOSUB WHILEVACATION GOSUB FISHERMAN GOSUB BIGFOOT GOSUB PAINTBIGSCREEN GOSUB BIGFTQUEST RETURN WHILEVACATION: LOCATE 15, 15 PRINT "WHILE ON VACTION" FOR HOLD = 1 TO 100000 NEXT HOLD CLS RETURN FISHERMAN: ' NOSE CIRCLE (150, 50), 3, 16, PI * 0, PI * 2, 1 'MOUTH CIRCLE (150, 55), 5, 16, 2, 4 CIRCLE (144, 61), 4, 16, 1, 5 CIRCLE (156, 56), 5, 16, 6, 2.5, 1 CIRCLE (165, 60), 6, 16, 6, 2.5, 1 CIRCLE (174, 65), 3, 16, 6, 2.5, 1 LINE (144, 63)-(160, 70), 16 CIRCLE (169, 66), 11, 16, PI * 1.2, PI * 1.7 CIRCLE (179, 74), 5, 16, 3, 6, .1 CIRCLE (194, 60), 10, 16, PI * 1.5, PI * .5, 1.5 LINE (142, 64)-(145, 70), 16 CIRCLE (147, 77), 7, 16, PI * 0, PI * .6 CIRCLE (165, 75), 10, 16, PI * 1, PI * 1.7 CIRCLE (177, 45), 4, 16, PI * 0, PI * 1 CIRCLE (184, 45), 4, 16, PI * 0, PI * 1 CIRCLE (192, 46), 4, 16, PI * 1, PI * 1.6 CIRCLE (177, 60), 7, 16, PI * 1.5, PI * 2, 1.5 CIRCLE (183, 71), 11, 16, PI * 0, PI * .5 CIRCLE (190, 71), 5, 16, PI * 1, PI * 2 ' EYES CIRCLE (175, 56), 5, 16, PI * 0, PI * 2, 2 CIRCLE (181, 56), 5, 16, PI * 0, PI * 2, 2 'MAKE SURE TO PAINT THESE CORDINATES CIRCLE (181, 56), 2, 16, PI * 0, PI * 2, 2 CIRCLE (175, 56), 2, 16, PI * 0, PI * 2, 2 'HEAD LINE (173, 45)-(173, 51), 16 ' HAIR 'CIRCLE (170, 42), 6, 16, PI * 2, PI * .8 'CIRCLE (172, 42), 9, 16, PI * 2, PI * .5 ' HAT CIRCLE (181, 39), 9, 16, PI * 0, PI * .7 LINE (175, 33)-(174, 42), 16 LINE (190, 40)-(198, 51), 16 LINE (190, 38)-(210, 43), 16 LINE (210, 43)-(200, 54), 16 LINE (202, 53)-(218, 59), 16 LINE (202, 57)-(213, 62), 16 LINE (213, 62)-(218, 59), 16 LINE (213, 62)-(222, 70), 16 LINE (202, 61)-(210, 66), 16 LINE (210, 66)-(215, 75), 16 CIRCLE (215, 71), 8, 16, PI * 1.5, PI * 2, .5 'SHIRT CIRCLE (155, 119), 45, 16, PI * .5, PI * .95, 1.7 CIRCLE (140, 100), 45, 16, PI * 1.3, PI * 1.85, .3 CIRCLE (140, 110), 45, 16, PI * 1.3, PI * 1.8, .3 CIRCLE (175, 110), 10, 16, PI * 1.5, PI * 1, 1.5 LINE (174, 99)-(184, 86), 16 LINE (182, 114)-(195, 94), 16 CIRCLE (195, 85), 11, 16, PI * 1.5, PI * 1 CIRCLE (185, 119), 45, 16, PI * .5, PI * .95, 1.7 LINE (147, 112)-(160, 82), 16 LINE (147, 125)-(151, 141), 16 LINE (157, 124)-(160, 135), 16 CIRCLE (155, 133), 10, 16, PI * 1.3, PI * 1.9, 2 CIRCLE (170, 118), 10, 16, PI * 1.5, PI * 2 LINE (159, 127)-(169, 126), 16 CIRCLE (140, 121), 10, 16, PI * 1.1, PI * 1.5 LINE (140, 129)-(147, 129), 16 'BUTTON CIRCLE (155, 137), 3, 16, PI * 0, PI * 2, 1.6 ' FEET CIRCLE (165, 136), 15, 16, PI * 1.7, PI * .5, .6 LINE (159, 165)-(177, 140), 16 LINE (159, 165)-(162, 169), 16 CIRCLE (173, 174), 12, 16, PI * 0, PI * 1, .7 CIRCLE (173, 174), 12, 16, PI * 1.5, PI * 2, .3 LINE (147, 177)-(173, 179), 16 CIRCLE (140, 155), 12, 16, PI * 0, PI * 1, .6 LINE (148, 150)-(146, 176), 16 CIRCLE (137, 148), 30, 16, PI * .5, PI * 1.3 CIRCLE (119, 173), 15, 16, PI * .5, PI * 2, .4 CIRCLE (135, 160), 12, 16, PI * .5, PI * 1.5, 2.5 'HAND CIRCLE (116, 117), 6, 16, PI * .5, PI * 1.35 CIRCLE (113, 117), 7, 16, PI * .5, PI * 1.75 CIRCLE (101, 123), 7, 16, PI * .1, PI * 1, .5 CIRCLE (101, 113), 7, 16, PI * .1, PI * 1, .5 LINE (93, 112)-(93, 122), 16 CIRCLE (100, 116), 7, 16, PI * .5, PI * 1, .5 CIRCLE (100, 119), 7, 16, PI * .5, PI * 1, .5 CIRCLE (100, 105), 5, 16, PI * 0, PI * 2, .3 CIRCLE (100, 100), 5, 16, PI * 0, PI * 2, .3 CIRCLE (100, 95), 5, 16, PI * 0, PI * 2, .3 CIRCLE (108, 100), 5, 16, PI * 0, PI * 2, 2.4 LINE (104, 105)-(129, 110), 16 LINE (104, 93)-(130, 100), 16 LINE (94, 124)-(101, 124) 'HAIR CIRCLE (172, 42), 7, 16, PI * 0, PI * 1 CIRCLE (175, 42), 7, 16, PI * 0, PI * 1 'FISHING ROD LINE (107, 94)-(148, 40), 16 LINE (100, 94)-(141, 40), 16 CIRCLE (100, 87), 6, 16, PI * 0, PI * 2, 1.3 CIRCLE (100, 87), 3, 16, PI * 0, PI * 2, 1.3 CIRCLE (100, 87), 9, 16, PI * 0, PI * 2, 1.3 CIRCLE (143, 40), 12, 16, PI * 0, PI * 1, 2.5 CIRCLE (136, 41), 12, 16, PI * 0, PI * 1, 2.5 LINE (130, 41)-(138, 40), 16 LINE (104, 110)-(110, 130), 16 LINE (98, 110)-(104, 130), 16 LINE (110, 130)-(104, 130), 16 'STRING CIRCLE (57, 26), 80, 16, PI * 1.5, PI * 1.9, .6 'MEAT CIRCLE (50, 75), 15, 16, PI * 0, PI * 2, .1 CIRCLE (50, 75), 15, 16, PI * 0, PI * 2, .2 RETURN BIGFTQUEST: LOCATE 15, 28 COLOR 15 PRINT "AHH!!!!!" LOCATE 16, 26 PRINT "IT'S BIGFOOT" LOCATE 19, 23 PRINT "WHAT SHOULD WE DO?" PRINT LOCATE 20, 25 PRINT "1) FIGHT HIM!!" LOCATE 21, 25 PRINT "2) RUN AWAY!!!" LOCATE 22, 25 INPUT BIGFTCHOICE IF BIGFTCHOICE <= 0 THEN GOSUB ROADTRIPVENTURE ELSE IF BIGFTCHOICE > 2 THEN GOSUB ROADTRIPVENTURE IF BIGFTCHOICE = 1 THEN GOSUB BIGFTFIGHT ELSE IF BIGFTCHOICE = 2 THEN GOSUB BIGFTWISE RETURN BIGFOOT: 'EYES CIRCLE (40, 50), 5, 16, PI * 0, PI * 2, 2 CIRCLE (46, 50), 5, 16, PI * 0, PI * 2, 2 CIRCLE (46, 50), 2, 16, PI * 0, PI * 2, 2 CIRCLE (40, 50), 2, 16, PI * 0, PI * 2, 2 'NOSE LINE (49, 55)-(52, 56), 16 CIRCLE (54, 58), 5, 16, PI * 0, PI * 2, .3 CIRCLE (63, 61), 5, 16, PI * 0, PI * 1, .3 'HEAD CIRCLE (34, 48), 15, 16, PI * .3, PI * 1.3, 1.5 CIRCLE (27, 65), 10, 16, PI * .5, PI * 1.5, .6 CIRCLE (5, 55), 10, 16, PI * 0, PI * 1.5, 2.5 CIRCLE (23, 51), 20, 16, PI * .5, PI * 1, 1.5 CIRCLE (39, 30), 15, 16, PI * 0, PI * 1, .2 CIRCLE (47, 37), 6, 16, PI * 0, PI * 1 LINE (53, 30)-(54, 37), 16 LINE (44, 40)-(44, 45), 16 'TRY OUT CIRCLE (40, 40), 5, 16, PI * 0, PI * 1, .3 'MOUTH LINE (27, 71)-(27, 79), 16 CIRCLE (39, 80), 12, 16, PI * 1, PI * 2, .2 CIRCLE (54, 61), 15, 16, PI * 1.4, PI * 2, .3 CIRCLE (45, 62), 18, 16, PI * 1.15, PI * 1.6, .3 CIRCLE (31, 62), 4, 16, PI * .7, PI * 1.2, .3 'TEETH (UPPER) LINE (35, 67)-(40, 71), 16, B LINE (45, 67)-(50, 71), 16, B LINE (55, 67)-(60, 71), 16, B 'TEETH (LOWER) LINE (30, 77)-(35, 81), 16, B LINE (40, 77)-(45, 81), 16, B 'BEARD LINE (52, 80)-(57, 83), 16 LINE (57, 83)-(52, 130), 16 LINE (52, 130)-(0, 60), 16 'BODY LINE (30, 100)-(0, 130), 16 RETURN PAINTBIGSCREEN: PAINT (150, 50), 4, 16 PAINT (51, 58), 4, 16 PAINT (50, 75), 4, 16 PAINT (30, 30), 6, 16 PAINT (1, 100), 6, 16 PAINT (63, 61), 6, 16 PAINT (165, 150), 5, 16 PAINT (155, 137), 5, 16 PAINT (158, 137), 5, 16 PAINT (158, 100), 5, 16 PAINT (148, 100), 1, 16 PAINT (168, 100), 1, 16 PAINT (178, 100), 2, 16 PAINT (175, 105), 2, 16 PAINT (175, 124), 2, 16 PAINT (140, 127), 2, 16 PAINT (180, 35), 4, 16 PAINT (200, 50), 4, 16 PAINT (210, 58), 4, 16 PAINT (176, 40), 4, 16 PAINT (180, 40), 4, 16 PAINT (136, 50), 8, 16 PAINT (136, 33), 8, 16 PAINT (105, 125), 6, 16 RETURN BIGFTFIGHT: CLS GOSUB STARZ GOSUB EARTH GOSUB EXPLOSTION END STARZ: FOR STARS = 1 TO 2000 STARX = RND * 300 STARY = RND * 300 PSET (STARX, STARY), 14 NEXT STARS RETURN EARTH: CIRCLE (150, 100), 70, 2 PAINT (150, 100), 1, 2 CIRCLE (152, 47), 27, 2, PI * .9, PI * 2, .3 CIRCLE (100, 81), 27, 2, PI * 0, PI * .5 CIRCLE (127, 65), 20, 2, PI * 1.5, PI * 1.7 CIRCLE (140, 101), 27, 2, PI * 0, PI * .5 LINE (168, 100)-(113, 150), 2 PAINT (152, 47), 2, 2 PAINT (140, 101), 2, 2 CIRCLE (190, 147), 15, 2, PI * .3, PI * 1.3, .5 PAINT (190, 145), 2, 2 CIRCLE (100, 81), 27, 2, PI * 0, PI * .5 LOCATE 3, 9 PRINT "NOW LOOK WHAT YOU DID!!" FOR HOLD = 1 TO 90000 NEXT HOLD LOCATE 3, 5 PRINT "NOW BIG FOOT BLEW UP THE WORLD!!" RETURN EXPLOSTION: FOR EXPLODE = 1 TO 70 R = R + 1 CIRCLE (150, 100), R, 4 FOR HOLD = 1 TO 2000 NEXT HOLD NEXT EXPLODE CLS GOSUB STARZ CIRCLE (150, 100), 0, 14 LOCATE 10, 15 PRINT "GAME" LOCATE 10, 20 PRINT "OVER" FOR HOLD = 1 TO 100000 NEXT HOLD GOSUB TOOBAD RETURN BIGFTWISE: CLS GOSUB FOUNDATION GOSUB BUILDINGS GOSUB TRAVELCAR GOSUB ACTION RETURN FOUNDATION: LINE (0, 95)-(330, 95), 16 LINE (0, 150)-(330, 150), 16 PAINT (200, 190), 2, 16 RETURN SUN: CIRCLE (20, 15), 15, 14 PAINT (20, 15), 14, 14 RETURN BUILDINGS: LINE (40, 45)-(70, 95), 16, B LINE (70, 20)-(100, 95), 16, B LINE (100, 50)-(130, 95), 16, B LINE (130, 15)-(180, 95), 16, B LINE (180, 29)-(215, 95), 16, B LINE (215, 57)-(250, 95), 16, B LINE (250, 38)-(280, 95), 16, B PAINT (270, 50), 4, 16 PAINT (43, 50), 5, 16 PAINT (72, 25), 6, 16 PAINT (103, 52), 12, 16 PAINT (132, 53), 13, 16 PAINT (187, 53), 9, 16 PAINT (230, 83), 8, 16 RETURN TRAVELCAR: LINE (20, 105)-(40, 110), 16, B LINE (10, 110)-(50, 120), 16, B CIRCLE (20, 121), 5, 16 CIRCLE (40, 121), 5, 16 CIRCLE (7, 110), 8, 16, PI * 0, PI * .5, 2 CIRCLE (7, 100), 1.5, 16 RETURN ACTION: LINE1X1 = 20 LINE1Y1 = 105 LINE1X2 = 40 LINE1Y2 = 110 LINE2X1 = 10 LINE2Y1 = 110 LINE2X2 = 50 LINE2Y2 = 120 CIRCLE1X1 = 20 CIRCLE1Y1 = 121 CIRCLE2X1 = 40 CIRCLE2Y1 = 121 CIRCLE3X1 = 7 CIRCLE3Y1 = 110 'FOR CARMOVE = 1 TO 70 CLS GOSUB FOUNDATION GOSUB BUILDINGS GOSUB WINDOWS GOSUB SUN LINE (LINE1X1, LINE1Y1)-(LINE1X2, LINE1Y2), 16, B LINE (LINE2X1, LINE2Y1)-(LINE2X2, LINE2Y2), 16, B CIRCLE (CIRCLE1X1, CIRCLE1Y1), 5, 16 CIRCLE (CIRCLE2X1, CIRCLE2Y1), 5, 16 CIRCLE (CIRCLE3X1, CIRCLE3Y1), 8, 16, PI * 0, PI * .5, 2 CIRCLE (CIRCLE3X1, CIRCLE3Y1), 1.5, 16 PAINT (30, 108), 4, 16 PAINT (30, 115), 4, 16 ' LINE1X1 = LINE1X1 + 5 ' LINE1X2 = LINE1X2 + 5 ' LINE2X1 = LINE2X1 + 5 ' LINE2X2 = LINE2X2 + 5 ' CIRCLE1X1 = CIRCLE1X1 + 5 ' CIRCLE2X1 = CIRCLE2X1 + 5 ' CIRCLE3X1 = CIRCLE3X1 + 5 ' FOR HOLD = 1 TO 20000 ' NEXT HOLD ' NEXT CARMOVE GOSUB MESSAGE RETURN WINDOWS: ' 1ST BUILDING LINE (45, 60)-(50, 65), 16, B LINE (55, 60)-(60, 65), 16, B LINE (45, 50)-(50, 55), 16, B LINE (55, 50)-(60, 55), 16, B '2ND BUILDING LINE (75, 50)-(80, 55), 16, B LINE (85, 50)-(90, 55), 16, B LINE (75, 60)-(80, 65), 16, B LINE (85, 60)-(90, 65), 16, B LINE (75, 70)-(80, 75), 16, B LINE (85, 70)-(90, 75), 16, B LINE (73, 30)-(97, 45), 16, B '3RD BUILDING LINE (105, 70)-(110, 75), 16, B LINE (115, 70)-(120, 75), 16, B LINE (115, 55)-(120, 60), 16, B LINE (105, 55)-(110, 60), 16, B LINE (135, 70)-(140, 75), 16, B LINE (145, 70)-(150, 75), 16, B LINE (145, 60)-(150, 65), 16, B LINE (135, 60)-(140, 65), 16, B LINE (135, 50)-(140, 55), 16, B LINE (145, 50)-(150, 55), 16, B LINE (145, 40)-(150, 45), 16, B LINE (155, 40)-(160, 45), 16, B LINE (155, 50)-(160, 55), 16, B LINE (155, 60)-(160, 65), 16, B LINE (155, 70)-(160, 75), 16, B LINE (165, 50)-(170, 55), 16, B LINE (165, 60)-(170, 65), 16, B LINE (165, 70)-(170, 75), 16, B '4TH WINDOW LINE (185, 60)-(190, 65), 16, B LINE (195, 60)-(200, 65), 16, B LINE (205, 60)-(210, 65), 16, B LINE (205, 70)-(210, 75), 16, B LINE (185, 70)-(190, 75), 16, B LINE (195, 70)-(200, 75), 16, B '5TH LINE (220, 60)-(225, 65), 16, B LINE (230, 60)-(235, 65), 16, B LINE (240, 60)-(245, 65), 16, B LINE (220, 70)-(245, 95), 16, B '6TH LINE (250, 60)-(279, 95), 16, B LINE (260, 65)-(265, 70), 16, B LINE (270, 65)-(275, 70), 16, B LINE (270, 75)-(275, 80), 16, B LINE (260, 75)-(265, 80), 16, B LINE (250, 75)-(255, 80), 16, B LINE (250, 65)-(255, 70), 16, B PAINT (2, 4), 11, 16 RETURN MESSAGE: LOCATE 20, 2 PRINT "HERE" SLEEP 1 LOCATE 20, 7 PRINT "WE" FOR HOLD = 1 TO 100000 NEXT HOLD LOCATE 20, 10 PRINT "GO" FOR HOLD = 1 TO 100000 NEXT HOLD LOCATE 20, 13 PRINT "ON" FOR HOLD = 1 TO 100000 NEXT HOLD LOCATE 20, 16 PRINT "THE" FOR HOLD = 1 TO 100000 NEXT HOLD LOCATE 20, 20 PRINT "OPEN" FOR HOLD = 1 TO 100000 NEXT HOLD LOCATE 20, 25 PRINT "ROAD!!!" FOR HOLD = 1 TO 100000 NEXT HOLD GOSUB ESCAPE RETURN ESCAPE: SCREEN 9 CLS COLOR 5 PRINT "AFTER NARROWLY ESCAPING BIG FOOT, MAX AND HIS DAD," PRINT "HEAD CLOSER AND CLOSER TO THEIR RECONNECTION SPOT," PRINT "AND FURTHER AND FURTHER AWAY FROM ROXANNE." PRINT COLOR 15 PRINT "MAX: WHAT A WAY TO START A VACTION." FOR HOLD = 1 TO 100000 NEXT HOLD PRINT "MAX'S DAD: ISN'T IT GREAT!!" FOR HOLD = 1 TO 100000 NEXT HOLD PRINT "MAX: I WOULD HAVE BETTER FUN AT HOME!!" FOR HOLD = 1 TO 100000 NEXT HOLD PRINT "MAX'S DAD: COME ON MAXIE, AREN'T YOU HAVING ANY FUN?" FOR HOLD = 1 TO 100000 NEXT HOLD PRINT "MAX: NO, I NEVER WANTED TO GO ON THIS STUPID VACTION!!" FOR HOLD = 1 TO 100000 NEXT HOLD PRINT "MAX'S DAD: UMMM..LET'S FIND A MOTEL" LOCATE 20, 35 COLOR 14 PRINT "AT THE MOTEL...." FOR HOLD = 1 TO 200000 NEXT HOLD GOSUB MAP RETURN MAP: CLS SCREEN 7 CIRCLE (40, 90), 20, 16, PI * 0, PI * 2, 3 CIRCLE (40, 90), 15, 16, PI * 0, PI * 2, 3 CIRCLE (40, 90), 10, 16, PI * 0, PI * 2, 3 CIRCLE (270, 90), 20, 16, PI * 0, PI * 2, 3 CIRCLE (270, 90), 15, 16, PI * 0, PI * 2, 3 CIRCLE (270, 90), 10, 16, PI * 0, PI * 2, 3 CIRCLE (155, 110), 112, 16, PI * 0, PI * 1, .1 CIRCLE (155, 111), 112, 16, PI * 0, PI * 1, .1 CIRCLE (155, 70), 112, 16, PI * 1, PI * 2, .1 CIRCLE (155, 69), 112, 16, PI * 1, PI * 2, .1 CIRCLE (150, 90), 10, 16, PI * 0, PI * 2, 1.5 LINE (47, 90)-(265, 90), 16 ' LINES PAINT PAINT (150, 85), 4, 16 PAINT (150, 95), 4, 16 PAINT (150, 40), 1, 16 'BRIGHT LIGHTS LINE (150, 40)-(150, 70), 14 LINE (190, 70)-(240, 40), 14 LINE (120, 70)-(80, 40), 14 LINE (190, 110)-(240, 140), 14 LINE (120, 110)-(70, 140), 14 LINE (150, 110)-(150, 140), 14 PRINT " HEY, IT'S DAD'S MAP. IF ONLY THERE WAS " PRINT " A WAY TO GET TO THAT CONCERT!! " FOR HOLD = 1 TO 200000 NEXT HOLD GOSUB MAPQUEST RETURN MAPQUEST: CLS SCREEN 9 LOCATE 10, 25 PRINT "UMM..LET'S SEE I HAVE THE MAP." LOCATE 11, 25 PRINT "WHAT SHOULD I DO?" LOCATE 12, 25 PRINT "1) CHANGE THE MAP." LOCATE 13, 25 PRINT "2) LEAVE IT ALONE." LOCATE 14, 25 COLOR 7, 16 INPUT MAPCHOICE IF MAPCHOICE <= 0 THEN GOSUB MAPQUEST ELSE IF MAPCHOICE > 2 THEN GOSUB MAPQUEST ON MAPCHOICE GOSUB MAPCHANGE, MAPGAMEOVER 'IF MAPCHOICE = 1 THEN GOSUB MAPCHANGE ELSE IF CHOICE = 2 THEN GOSUB MAPGAMEOVER RETURN MAPCHANGE: CLS SCREEN 7 SCREEN 9 PI = 4 * ATN(1) GOSUB DEPRESSEDFACE GOSUB DADFINDSMAP RETURN DEPRESSEDFACE: CIRCLE (290, 120), 150, 4 PAINT (290, 120), 14, 4 CIRCLE (290, 190), 100, 4, PI * 0, PI * 1, .5 CIRCLE (200, 100), 50, 4, PI * 0, PI * 2, 2 CIRCLE (200, 100), 20, 4, PI * 0, PI * 2, 2 CIRCLE (370, 100), 50, 4, PI * 0, PI * 2, 2 CIRCLE (370, 100), 20, 4, PI * 0, PI * 2, 2 PAINT (370, 100), 4, 4 PAINT (200, 100), 4, 4 FOR HOLD = 1 TO 100000 NEXT HOLD RETURN DADFINDSMAP: LOCATE 20, 1 PRINT "MAX'S DAD FINDS OUT ABOUT MAX CHANGING THE MAP AND BECOMES VERY DEPRESSED" PRINT "ABOUT HIS SON'S BETRAYAL, BUT HE GOES ALONG WITH IT. ((HE WANTS TO SEE WHY" PRINT "HIS SON HAS DONE SUCH A THING))." FOR HOLD = 1 TO 200000 NEXT HOLD GOSUB LAORDESTINY RETURN LAORDESTINY: CLS SCREEN 7 PI = 4 * ATN(1) GOSUB SIGNS GOSUB FINALQUEST GOSUB MAXDADSIGN RETURN MAXDADSIGN: ' MAX'S DAD CIRCLE (40, 126), 6, 16, 0, PI * 2, .4 CIRCLE (40, 129), 10, 16, .7, 2.5 CIRCLE (36, 114), 7, 16, 0, PI * 2, 2 CIRCLE (45, 114), 7, 16, 0, PI * 2, 2 CIRCLE (29, 125), 5, 16, 1, 4.5 CIRCLE (30, 133), 7, 16, 2, 6 LINE (38, 135)-(40, 135), 16 CIRCLE (47, 134), 7, 16, 3.3, 1 CIRCLE (50, 125), 5, 16, 4.7, 2 CIRCLE (28, 122), 25, 16, PI * 2, 1 CIRCLE (51, 124), 25, 16, 2, 3 LINE (50, 110)-(60, 110), 16 LINE (19, 110)-(31, 110), 16 LINE (51, 115)-(60, 115), 16 LINE (29, 115)-(19, 115), 16 CIRCLE (63, 124), 15, 16, 0, PI * 2, 4 CIRCLE (16, 124), 15, 16, 0, PI * 2, 4 CIRCLE (50, 135), 1, 16 CIRCLE (30, 135), 1, 16 CIRCLE (46, 106), 5, 16, 0, 3 CIRCLE (34, 106), 5, 16, 0, 3 CIRCLE (36, 114), 3, 16, 0, PI * 2, 2 CIRCLE (45, 114), 3, 16, 0, PI * 2, 2 LINE (27, 140)-(32, 144), 16, B LINE (45, 140)-(50, 144), 16, B PAINT (40, 126), 4, 16 RETURN SIGNS: LINE (30, 40)-(130, 80), 16, B LINE (130, 65)-(180, 50), 16, B LINE (180, 40)-(280, 80), 16, B LINE (145, 65)-(165, 200), 16, B PAINT (35, 60), 2, 16 PAINT (190, 60), 2, 16 PAINT (150, 70), 8, 16 PAINT (170, 60), 8, 16 LOCATE 7, 5 PRINT "LOS ANGELES" LOCATE 9, 29 PRINT CHR$(16) LOCATE 7, 24 PRINT "LAKE DESTINY" LOCATE 9, 10 PRINT CHR$(17) RETURN FINALQUEST: LOCATE 15, 25 PRINT "OK MAXIE BOY," LOCATE 16, 22 PRINT "WHICH WAY DO WE GO?" LOCATE 18, 22 PRINT "1) LEFT?" LOCATE 19, 22 PRINT "2) RIGHT?" LOCATE 20, 22 INPUT SIGNQUEST IF SIGNQUEST <= 0 THEN GOSUB LAORDESTINY ELSE IF SIGNQUEST > 2 THEN GOSUB LAORDESTINY IF SIGNQUEST = 1 THEN GOSUB DADFURY ELSE IF SIGNQUEST = 2 THEN GOSUB MAPGAMEOVER RETURN MAPGAMEOVER: CLS SCREEN 7 PI = 4 * ATN(1) PAINT (0, 10), 11 GOSUB WATER GOSUB BOAT GOSUB FISHINGLINE GOSUB BOATSUN GOSUB DAYDREAM FOR HOLD = 1 TO 100000 NEXT HOLD GOSUB TOOBAD END WATER: FOR WATER = 1 TO 100 CIRCLE (WATERX, 100), 10, 1, PI * 1, PI * 2 WATERX = WATERX + 20 NEXT WATER PAINT (20, 120), 1, 1 RETURN BOAT: CIRCLE (150, 100), 100, 6, PI * 1, PI * 2, .5 LINE (50, 100)-(250, 100), 6 PAINT (150, 120), 6, 6 RETURN FISHINGLINE: LINE (230, 100)-(270, 50), 16 LINE (270, 50)-(290, 150), 16 CIRCLE (290, 155), 5, 16 CIRCLE (288, 160), 6, 16, PI * 1.4, PI * 2, 2 PAINT (290, 155), 4, 16 LINE (75, 100)-(40, 50), 16 LINE (40, 50)-(1, 150), 16 RETURN BOATSUN: CIRCLE (20, 20), 15, 14 PAINT (20, 20), 14, 14 RETURN DAYDREAM: CIRCLE (90, 80), 5, 4 CIRCLE (100, 60), 10, 4 CIRCLE (155, 20), 80, 4, PI * 0, PI * 2, .4 PAINT (155, 20), 15, 4 PAINT (90, 80), 15, 4 PAINT (100, 60), 15, 4 LOCATE 2, 11 COLOR 4, 15 PRINT "I HAVE LOST ROXANNE" LOCATE 3, 15 PRINT "FOREVER!!!" LOCATE 23, 16 PRINT "GAMEOVER" RETURN DADFURY: CLS PI = 4 * ATN(1) SCREEN 7 GOSUB MAXDAD GOSUB FURYREMARK GOSUB MAXCON GOSUB MAXREPLY FOR HOLD = 1 TO 200000 NEXT HOLD CLS SCREEN 7 GOSUB MAXDADCENTER GOSUB DADUNDERSTAND RETURN FURYREMARK: LOCATE 5, 15 PRINT "HOW COULD YOU BETRAYAL" LOCATE 6, 15 PRINT "MAXIE?? ALL I WANTED" LOCATE 7, 15 PRINT "WAS TO TAKE YOU ON A" LOCATE 8, 15 PRINT "ON TRIP!!!!" RETURN MAXCON: CIRCLE (200, 140), 8, 16, 0, PI * 2, .5 CIRCLE (210, 140), 10, 16, PI * .2, 2.5 CIRCLE (225, 135), 10, 16, PI * .2, 2.7 CIRCLE (210, 129), 20, 16, PI * 1.4, 0 CIRCLE (220, 127), 10, 16, PI * 0, 2 CIRCLE (210, 127), 10, 16, PI * .29, PI * 1.4 LINE (215, 120)-(215, 132), 16 LINE (220, 143)-(230, 150), 16 CIRCLE (230, 143), 7, 16, PI * 1.5, 1.7 CIRCLE (206, 115), 10, 16, PI * 0, 3 CIRCLE (226, 112), 10, 16, PI * 0, 3 LINE (235, 125)-(225, 140), 16 LINE (236, 110)-(235, 125), 16 LINE (204, 108)-(204, 120), 16 CIRCLE (206, 108), 10, 16, PI * 0, 3 CIRCLE (245, 125), 25, 16, .2, 2 CIRCLE (236, 115), 30, 16, PI * 1.5, PI * 2 LINE (216, 100)-(267, 100), 16 LINE (216, 100)-(216, 114), 16 LINE (267, 100)-(267, 114), 16 LINE (267, 110)-(295, 110), 16 LINE (295, 110)-(295, 117), 16 LINE (267, 117)-(295, 117), 16 LINE (227, 120)-(260, 120), 1 CIRCLE (230, 147), 2, 16 PAINT (200, 140), 4, 16 PAINT (220, 127), 1, 16 PAINT (210, 127), 1, 16 PAINT (230, 147), 13, 16 PAINT (268, 112), 1, 16 PAINT (217, 103), 1, 16 RETURN MAXREPLY: LOCATE 17, 1 PRINT "I AM SORRY DAD, BUT YOU" PRINT "DON'T UNDERSTAND...." PRINT "WELL, THERE IS THIS GIRL." LOCATE 23, 5 PRINT "" RETURN DADUNDERSTAND: LOCATE 10, 15 PRINT "OH I SEE MAX!! WELL, I AM SORRY!!" PRINT "I CAN'T BELIEVE IT, MY MAXIE, IN LOVE!" PRINT "WELL, I GUESS THERE IS ONLY ON THING" PRINT "LEFT TO DO, AND THAT IS TO GET YOU ON" PRINT "STAGE WITH THIS POWERLINE GUY." LOCATE 20, 12 PRINT "AT THE CONCERT..." FOR HOLD = 1 TO 200000 NEXT HOLD GOSUB FINALCONCERT RETURN FINALCONCERT: CLS PI = 4 * ATN(1) SCREEN 7 GOSUB ATCONCERT GOSUB MAXCONTV FOR HOLD = 1 TO 200000 NEXT HOLD GOSUB ENDING GOSUB ENDCREDITS END ENDING: CLS SCREEN 13 WIN$ = "WINNER" COL = 1 FOR TOP = 1 TO 920 COL = COL + 1 IF COL = 16 THEN COL = 1 COLOR COL PRINT CHR$(3); FOR HOLD = 1 TO 1000 NEXT HOLD NEXT TOP COLOR 5 LOCATE 7, 14 PRINT "MAX AND ROXANNE" LOCATE 8, 13 PRINT "ARE BACK TOGETHER" LOCATE 11, 20 PRINT "&" LOCATE 13, 14 PRINT "ALSO MAX'S DAD" LOCATE 14, 12 PRINT "RECONNECTS WITH MAX" LOCATE 20, 20 FOR WINTOP = 2 TO 40 STEP 8 LOCATE 1, WINTOP COLOR 14 PRINT WIN$; FOR HOLD = 1 TO 10000 NEXT HOLD NEXT WINTOP FOR WINBOTTOM = 2 TO 40 STEP 8 LOCATE 23, WINBOTTOM PRINT WIN$; FOR HOLD = 1 TO 10000 NEXT HOLD NEXT WINBOTTOM RETURN ATCONCERT: LINE (50, 70)-(270, 170), 16, B CIRCLE (160, 120), 110, 16, PI * 0, PI * 2, .45 LINE (160, 70)-(100, 10), 16 LINE (160, 70)-(210, 10), 16 LOCATE 5, 5 PRINT "MAX IS" LOCATE 5, 30 PRINT "ON TV" RETURN MAXCONTV: CIRCLE (150, 140), 8, 16, 0, PI * 2, .5 CIRCLE (160, 140), 10, 16, PI * .2, 2.5 CIRCLE (175, 135), 10, 16, PI * .2, 2.7 CIRCLE (160, 129), 20, 16, PI * 1.4, 0 CIRCLE (170, 127), 10, 16, PI * 0, 2 CIRCLE (160, 127), 10, 16, PI * .29, PI * 1.4 LINE (165, 120)-(165, 132), 16 LINE (170, 143)-(180, 150), 16 CIRCLE (180, 143), 7, 16, PI * 1.5, 1.7 CIRCLE (156, 115), 10, 16, PI * 0, 3 CIRCLE (176, 112), 10, 16, PI * 0, 3 LINE (185, 125)-(175, 140), 16 LINE (186, 110)-(185, 125), 16 LINE (154, 108)-(154, 120), 16 CIRCLE (156, 108), 10, 16, PI * 0, 3 CIRCLE (195, 125), 25, 16, .2, 2 CIRCLE (186, 115), 30, 16, PI * 1.5, PI * 2 LINE (166, 100)-(217, 100), 16 LINE (166, 100)-(166, 114), 16 LINE (217, 100)-(217, 114), 16 LINE (217, 110)-(245, 110), 16 LINE (245, 110)-(245, 117), 16 LINE (245, 117)-(217, 117), 16 LINE (177, 120)-(210, 120), 1 CIRCLE (180, 147), 2, 16 PAINT (150, 140), 4, 16 PAINT (170, 127), 1, 16 PAINT (160, 127), 1, 16 PAINT (180, 147), 13, 16 PAINT (218, 112), 1, 16 PAINT (167, 103), 1, 16 PAINT (120, 120), 2, 16 PAINT (55, 75), 6, 16 PAINT (255, 75), 6, 16 PAINT (255, 165), 6, 16 PAINT (55, 165), 6, 16 PAINT (10, 40), 1, 16 RETURN MAXDADCENTER: ' MAX'S DAD CIRCLE (140, 46), 6, 16, 0, PI * 2, .4 CIRCLE (140, 49), 10, 16, .7, 2.5 CIRCLE (136, 34), 7, 16, 0, PI * 2, 2 CIRCLE (145, 34), 7, 16, 0, PI * 2, 2 CIRCLE (129, 45), 5, 16, 1, 4.5 CIRCLE (130, 53), 7, 16, 2, 6 LINE (138, 55)-(140, 55), 16 CIRCLE (147, 54), 7, 16, 3.3, 1 CIRCLE (150, 45), 5, 16, 4.7, 2 CIRCLE (128, 42), 25, 16, PI * 2, 1 CIRCLE (151, 44), 25, 16, 2, 3 LINE (150, 30)-(160, 30), 16 LINE (119, 30)-(131, 30), 16 LINE (151, 35)-(160, 35), 16 LINE (129, 35)-(119, 35), 16 CIRCLE (163, 44), 15, 16, 0, PI * 2, 4 CIRCLE (116, 44), 15, 16, 0, PI * 2, 4 CIRCLE (150, 55), 1, 16 CIRCLE (130, 55), 1, 16 CIRCLE (146, 26), 5, 16, 0, 3 CIRCLE (134, 26), 5, 16, 0, 3 CIRCLE (136, 34), 3, 16, 0, PI * 2, 2 CIRCLE (145, 34), 3, 16, 0, PI * 2, 2 LINE (127, 60)-(132, 64), 16, B LINE (145, 60)-(150, 64), 16, B PAINT (140, 46), 4, 16 RETURN ENDCREDITS: CLS SCREEN 9 LOCATE 10, 30 COLOR 7 PRINT "THANKS FOR PLAYING" PLAY "t255l8 o2 ggbg o3 d o2 g bg" PLAY "l8 ddg-dgdgg-" PLAY "l8 ccecgagg-" CLS LOCATE 10, 30 COLOR 4 PRINT "THE CREDITS" PLAY "l8 o2 eegeaeba" PLAY "l8 o2 ggbg o3 d o2 g bg" CLS COLOR 2 LOCATE 10, 30 PRINT "PROGRAMMER: SEYMOUR FERGUSON" PLAY "l8 ddg-dgdgg-" PLAY "l8 ccecgagg-" CLS LOCATE 10, 30 COLOR 5 PRINT "MUSIC BY: SEYMOUR FERGUSON" PLAY "l8 o2 eegeaeba" PLAY "l8 o2 ggbg o3 d o2 g bg" PLAY "l8 ddg-dgdgg-" CLS COLOR 12 LOCATE 10, 30 PRINT "PLAY AGAIN SOON" PLAY "l8 ccecgagg-" END