home *** CD-ROM | disk | FTP | other *** search
Wrap
'FROM THE DESK OF HUBERT FRICK (THE PRESIDENT OF CHANNEL VBG) -' ' ' ' Congratulations! I just heard you won the lottery. ' 'On behalf of all my contemporaries may I say how pleased I am ' 'that you've decided to spend your summer here at Paradise ' 'Isle. Just a few words of warning -- ' ' ' '1. Try to stay away from all foreign fauna and animals ' '2. Don't talk to any local natives ' '3. Write your will now. You won't be coming back. ' ' ' ' ' ' -- H.F. ' 'A FEW NOTES ON TRAPPED IN PARADISE -- ' 'These are just a few words on files and memory problems, ect. The game was' 'designed to run on a VERY slow computer (my computer. Sorry. But I just ' 'got it upgraded to a 486 so everything's okay.) This probably won't ' 'interfere with gameplay, except for the fact that some of the scenes might ' 'go too fast. You'll be able to figure out the storyline, anyway. If it ' 'still annoys you just e-mail me and I'll send you a faster version. Also, ' 'when you unzipped this program you should have run setup which would have ' 'sorted everything out to a differant directory. If you didn't you WILL ' 'have trouble with the saved file, trust me. The game saves, by the way, at' 'three points during the play. You don't have to type save or anything. ' 'If you want to retrieve a saved game, that's another matter. When the game' 'starts up and you're at the first screen, type restore to restore another ' 'game. You'll be informed if there are no saved games on the file. You ' 'shouldn't have any problems with stacks, and if you did I wouldn't know how' 'to fix them, so there. Any question, comments, critisisms, witisisms, or ' 'other types of chatter can be forward to JDewbre on AOL. I also give out ' 'hint files if anybody needs them. Good luck. Don't get killed. ' 'Other programs by ME ME ME on AOL -- ' 'FOR ZZT - ' 'The Most Meaningless Game in the World 1 - 6' 'Star Wars - The Empire has gas ' 'Cyborg Squad - The Arcade Game ' ' ' 'I've also uploaded a few WAV files. ' 'Oh, and one other thing on typing in commands. To type in commands use ' 'simple phrases like look or look at unicycle or walk door. I get confused ' 'if you use long sentances, so don't do it. To walk somewhere type either ' 'walk door or walk (direction i.e. north south east west). To talk to ' 'someone type talk to (name of victim here). Type use (object) to use ' 'something, and use look at and look to eye things closely. ' DECLARE SUB room1.bas (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) DECLARE SUB room2.bas (score) DECLARE SUB room3.bas (score, sap$, dollars) DECLARE SUB scene3 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) DECLARE SUB scene2 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) DECLARE SUB scene1 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) DECLARE SUB TELEVISION (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) DECLARE SUB scene4 (score) CALL room1.bas(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) PRINT PRINT PRINT CALL room2.bas(score) CLS FOR Z = 1 TO 5000 NEXT Z CALL room3.bas(score, sap$, dollars) SUB room1.bas (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) SCREEN 8 startb: IF opie$ <> "okay" THEN GOTO punt CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550 r1 d1" FOR Z = 1 TO 274 DRAW "c11 d118 r1 u118 r1" NEXT Z DRAW "d118" DRAW "c15 bu50" FOR Z = 1 TO 274 DRAW "c10 d50 l1 u50 l1" NEXT Z DRAW "c4 bd20" FOR Z = 1 TO 100 DRAW "u88 r1 d88 r1" NEXT Z DRAW "c0 bl30" FOR Z = 1 TO 22 DRAW "u40 l1 d40 l1" NEXT Z ladderb: c = 70 d = 150 COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" trycicleb: m = 500 n = 150 COLOR 15 CIRCLE (m, n), 20 CIRCLE (m, n), 19 CIRCLE (m, n), 18 CIRCLE (m, n), 17 CIRCLE (m, n), 16 CIRCLE (m, n), 15 DRAW "c4 bu9 u20 l1 d20 l1 u20 l1 d20 l1 u20 l1 d20 l1 u20 c15 h15 r1 f15 r1 h15 r1 f15 r1" DRAW "r50 u1 l50" guyrtb: A = 200 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookb IF joe$ = "look unicycle" THEN GOTO lookunib IF joe$ = "look ladder" THEN GOTO lookladderb IF joe$ = "use ladder" THEN GOTO useladderb IF joe$ = "use unicycle" THEN GOTO useunib IF joe$ = "look house" THEN GOTO lookhouseb IF joe$ = "fix ladder" THEN GOTO fixladderb IF joe$ = "walk door" THEN GOTO walkdoorb GOTO noneb walkdoorb: GOTO starta lookb: COLOR 1 PRINT "You are standing outside your house on an unrealistic tuft of grass." PRINT "From where you stand you can see a ladder propped up against your" PRINT "roof, and your unicycle Mary Lou (you're too poor to afford a car)." m$ = INPUT$(1) GOTO startb lookunib: COLOR 1 PRINT "That's your unicycle Mary Lou." m$ = INPUT$(1) GOTO startb lookladderb: COLOR 1 PRINT "A ladder is propped up against your roof. It looks like the rungs are" PRINT "pretty worn." m$ = INPUT$(1) GOTO startb lookhouseb: COLOR 1 PRINT "The red paint on your house is actually rust." m$ = INPUT$(1) GOTO startb useladderb: CALL scene1(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) GOTO startg useunib: GOTO choice fixladderb: COLOR 1 IF rung$ = "okay" THEN GOTO rungy PRINT "Hey, we're jumping the gun a bit, aren't we?" m$ = INPUT$(1) GOTO startb rungy: PRINT "You pull out the broken rung and replace it with a new one." LET rung$ = "cr" LET ladfix$ = "okay" LET score = score + 10 m$ = INPUT$(1) GOTO startb exitb: GOTO starta END noneb: COLOR 1 IF fort$ = "two" THEN GOTO none2b IF fort$ = "three" THEN GOTO none3b IF fort$ = "four" THEN GOTO none4b IF fort$ = "five" THEN GOTO none5b PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startb none2b: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startb none3b: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startb none4b: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startb none5b: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startb punt: SCREEN 1 COLOR 0 PRINT "" PRINT "" PRINT "" PRINT " TRAPPED" PRINT "" PRINT "" PRINT " IN" PRINT "" PRINT "" PRINT " PARADISE" FOR Z = 1 TO 500 NEXT Z CLS PRINT "" PRINT "" PRINT "" INPUT " PLEASE ENTER YOUR NAME > ", name$ LET opie$ = "okay" SCREEN 8 starta: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l250 bd80 l260 g40 e40 u80 d80 r510" DRAW "c6 bl1 bd1 l509" FOR Z = 1 TO 254 DRAW "g38 r1 e38 r1" NEXT Z DRAW "r1" FOR Z = 1 TO 50 DRAW "d38 l1 u38 l1" NEXT Z DRAW "c15 bl10 d10 r100 u30 l100 d30 r1 u1" FOR Z = 1 TO 49 DRAW "c10 u28 r1 d28 r1" NEXT Z DRAW "u28" DRAW "c15 bl90 bd5 d20 r60 u20 l60 d1 r1" FOR Z = 1 TO 29 DRAW "c0 d18 r1 u18 r1" NEXT Z DRAW "d18" DRAW "c15" CIRCLE (540, 130), 5 DRAW "bu20 bl300 u30 r100 d70 l100 u69 r1" FOR Z = 1 TO 49 DRAW "c14 d68 r1 u68 r1" NEXT Z DRAW "d68" DRAW "c7 bl10 bu40 l80 u10 r80 d10" DRAW "c15 bl150 d20 u60 l80 d60 r1" FOR Z = 1 TO 39 DRAW "c11 u59 r1 d59 r1" NEXT Z DRAW "u59" LET A = 200 LET b = 100 guyrta: COLOR 4 DRAW A$ CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO looka IF joe$ = "look television" THEN GOTO looktva IF joe$ = "look tv" THEN GOTO looktva IF joe$ = "use television" THEN GOTO usetva IF joe$ = "use tv" THEN GOTO usetva IF joe$ = "look cabinet" THEN GOTO lookcaba IF joe$ = "look drawers" THEN GOTO lookcaba IF joe$ = "look chest" THEN GOTO lookcaba IF joe$ = "look dresser" THEN GOTO lookcaba IF joe$ = "open dresser" THEN GOTO opendressa IF joe$ = "open chest" THEN GOTO opendressa IF joe$ = "open drawers" THEN GOTO opendressa IF joe$ = "open cabinet" THEN GOTO opendressa IF joe$ = "walk door" THEN GOTO exita IF joe$ = "restore" THEN GOTO restorea IF joe$ = "quit" THEN END GOTO nonea restorea: OPEN "c:\trapped\saved$" FOR INPUT AS #1 INPUT #1, jugs$ IF jugs$ = "one" THEN GOTO jurnie IF jugs$ = "two" THEN CALL room3.bas(score, sap$, dollars) COLOR 1 PRINT "You don't have a saved game, "; name$; "." CLOSE #1 m$ = INPUT$(1) GOTO starta looka: COLOR 1 PRINT "You are in your drab little rundown house wishing you could do" PRINT "something better with your life. You see your television, a" PRINT "dresser, and the doorway to the garage." m$ = INPUT$(1) GOTO starta END looktva: COLOR 1 PRINT "Being as you haven't payed your bills for the last fifteen days" PRINT "there's not much possibility that it could still be working." m$ = INPUT$(1) GOTO starta END lookcaba: COLOR 1 IF cabopen$ = "okay" THEN GOTO lookcbaa PRINT "The dresser is closed." m$ = INPUT$(1) GOTO starta lookcbaa: PRINT "You look in the dresser and find fifteen dollars, a carrot, a ladder" PRINT "and your (YUCK!) dirty laundry." LET laundry$ = "okay" LET dollars = dollars + 15 LET rung$ = "okay" LET carrot$ = "okay" LET score = score + 18 m$ = INPUT$(1) GOTO starta nonea: COLOR 1 IF fort$ = "two" THEN GOTO none2a IF fort$ = "three" THEN GOTO none3a IF fort$ = "four" THEN GOTO none4a IF fort$ = "five" THEN GOTO none5a PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO starta none2a: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO starta none3a: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO starta none4a: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO starta none5a: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO starta opendressa: COLOR 1 IF crowbar$ = "okay" THEN GOTO dressa PRINT "Alas, you cannot open the dresser as it has been glued shut." PRINT "That's the last time you use creosote as a lubricant." m$ = INPUT$(1) GOTO starta dressa: IF cabopen$ = "okay" THEN GOTO asser PRINT "using your crowbar you manage to break the dresser drawer open." LET cabopen$ = "okay" LET score = score + 5 m$ = INPUT$(1) GOTO starta asser: PRINT "The dresser is permenantly open." m$ = INPUT$(1) GOTO starta usetva: COLOR 1 IF antenna$ = "okay" THEN GOTO turvey PRINT "You flip the switch and all that comes on is fuzz. That stupid" PRINT "cat must be on the antenna again." m$ = INPUT$(1) GOTO starta turvey: IF lottery$ = "okay" THEN GOTO uyi PRINT "You turn the television on." m$ = INPUT$(1) CALL TELEVISION(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) GOTO starta uyi: PRINT "You don't feel like watching anymore television." m$ = INPUT$(1) GOTO starta exita: GOTO startb choice: SCREEN 8 CLS COLOR 4, 7 PRINT PRINT PRINT PRINT PRINT PRINT " WHERE DO YOU WANT TO GO?" PRINT PRINT PRINT PRINT " A. HARDWARE STORE" PRINT PRINT " B. YOUR JOB" PRINT PRINT " C. THE AIRPORT" PRINT PRINT " D. LAUNDROMAT" PRINT PRINT " E. YOUR HOUSE" PRINT INPUT " > ", joe$ IF joe$ = "A" GOTO joca IF joe$ = "B" GOTO jocb IF joe$ = "C" GOTO jocc IF joe$ = "D" GOTO jocd IF joe$ = "E" GOTO joce GOTO choice joca: GOTO starte jocb: IF dollars >= 2 THEN GOTO startb GOTO startd jocc: GOTO starth jocd: GOTO startf joce: GOTO startb starte: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550" PAINT (100, 100), 6, 37 DRAW "c15 bd20 r100 d30 l100 u30" PAINT (100, 100), 8, 37 DRAW "c15 bd40 l80 br180 r370" PAINT (100, 100), 3, 37 DRAW "c15 bd40 br280 u50 r50 d50" PAINT (100, 100), 2, 37 x = 70 y = 101 COLOR 4 CIRCLE (x, y), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (x, y), 19: CIRCLE (x, y), 18: CIRCLE (x, y), 17: CIRCLE (x, y), 16: CIRCLE (x, y), 15: CIRCLE (x, y), 14: CIRCLE (x, y), 13: CIRCLE (x, y), 12: CIRCLE (x, y), 11: CIRCLE (x, y), 10 DRAW "c1 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c4 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c1 br5 bd2 d20 r25 u20 c4 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c1 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" LET A = 300 LET b = 101 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" k = 500 l = 120 COLOR 15 CIRCLE (k, l), 1 DRAW "l50" FOR Z = 1 TO 50 DRAW "u50 r1 d50 r1" NEXT Z DRAW "u50" INPUT "> ", joe$ IF joe$ = "look" THEN GOTO looke IF joe$ = "talk to Vince" THEN GOTO vince IF joe$ = "look sign" THEN GOTO signe IF joe$ = "walk door" THEN GOTO exite IF joe$ = "quit" THEN GOTO quite GOTO nonee looke: COLOR 1 PRINT "You are in Vince's hardware shop. A sign is hanging on the right wall." m$ = INPUT$(1) GOTO starte exite: GOTO startb quite: END signe: SCREEN 1 CLS COLOR 7, 4 PRINT PRINT PRINT PRINT PRINT PRINT "GOING OUT OF BUSINESS SALE!!!" PRINT PRINT PRINT PRINT "ALL CROWBARS JUST $2.00!!!" LET sert$ = "okay" m$ = INPUT$(1) SCREEN 8 GOTO starte vince: COLOR 5 PRINT "`Whatd'ya want'a buy, pardner?'" IF sert$ = "okay" AND dollars = 2 THEN GOTO vincent COLOR 1 PRINT "`I...don't know.'" COLOR 5 PRINT "`Then come back when you do. Good day.'" m$ = INPUT$(1) GOTO starte vincent: COLOR 1 PRINT "`I want to buy a crowbar'" COLOR 5 PRINT "`That will be $2.00. Thank you.'" LET crowbar$ = "okay" m$ = INPUT$(1) GOTO starte nonee: COLOR 1 IF fort$ = "two" THEN GOTO none2e IF fort$ = "three" THEN GOTO none3e IF fort$ = "four" THEN GOTO none4e IF fort$ = "five" THEN GOTO none5e PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO starte none2e: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO starte none3e: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO starte none4e: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO starte none5e: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO starte SCREEN 8 startd: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550 r550 g45 d30 f43 bu45 bl43" A = 300 b = 100 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" counterd: c = 523 d = 125 COLOR 15 CIRCLE (c, d), 1 DRAW "l502 d1" COLOR 5 FOR Z = 1 TO 252 DRAW "c5 d43 r1 u43 r1" NEXT Z FOR Z = 1 TO 22 DRAW "f43 l1 h43 l1" NEXT Z hatd: l = 300 m = 95 COLOR 15 CIRCLE (l, m), 1 DRAW "u10 l20 d10" FOR Z = 1 TO 19 DRAW "r1 u10 r1 d10" NEXT Z IF dad$ <> "okay" THEN GOTO intercomd IF order$ <> "okay" THEN GOTO orderingd IF bag$ = "okay" THEN GOTO bagd GOTO inputd bagd: v = 150 W = 125 COLOR 15 CIRCLE (v, W), 1 DRAW "l20" FOR Z = 1 TO 11 DRAW "e10 r1 g10 r1" NEXT Z GOTO inputd intercomd: COLOR 1 PRINT "You put on your dinky hat as a voice blasts over then intercom -" COLOR 10 PRINT "`"; name$; ", you're late for work again! This is the third time in a" PRINT "row! How are we supposed to run a business here...(BLAH BLAH BLAH BLAH)" PRINT "...when I was your age (BLAH BLAH BLAH BLAH BLAH) ect., ect. Now, get to WORK!'" COLOR 1 PRINT "`Yes, father.'" m$ = INPUT$(1) LET dad$ = "okay" GOTO startd orderingd: COLOR 1 PRINT "In your earphones you hear the words -" COLOR 12 PRINT "`We'd like one BLT sandwich, one diet cola, one doughnut, and a ham and" PRINT "cheese on rye.'" m$ = INPUT$(1) LET order$ = "okay" GOTO startd inputd: COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookd IF joe$ = "use microphone" THEN GOTO microd IF joe$ = "get bag" THEN GOTO bgd IF joe$ = "take bag" THEN GOTO bgd GOTO noned lookd: COLOR 1 PRINT "You are in the McDonalds booth taking orders. In front of you there" PRINT "is a microphone." IF bag$ <> "okay" THEN GOTO lookyd COLOR 12 PRINT "YOU ALSO SEE - A BAG" GOTO lookyd lookyd: m$ = INPUT$(1) GOTO startd microd: IF bag$ = "okay" THEN GOTO macyd LET score = score + 2 COLOR 1 PRINT "You repeat the order into the microphone and a baggie is chunked at" PRINT "your head." LET bag$ = "okay" GOTO macyd macyd: m$ = INPUT$(1) GOTO startd bgd: IF bag$ <> "okay" THEN GOTO bgyd COLOR 1 LET score = score + 12 PRINT "You take the bag and hand it to the costomer." m$ = INPUT$(1) GOTO laterd bgyd: m$ = INPUT$(1) GOTO startd noned: COLOR 1 IF fort$ = "two" THEN GOTO none2d IF fort$ = "three" THEN GOTO none3d IF fort$ = "four" THEN GOTO none4d IF fort$ = "five" THEN GOTO none5d PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startd none2d: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startd none3d: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startd none4d: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startd none5d: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startd laterd: CLS SCREEN 1 PRINT PRINT PRINT PRINT " LATER ..." FOR Z = 1 TO 5000 NEXT Z PRINT PRINT PRINT PRINT PRINT " MUCH, MUCH LATER ..." FOR Z = 1 TO 5000 NEXT Z CLS SCREEN 8 COLOR 10 PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT "`Alright, you can go now, son. Here's your paycheck.'" FOR Z = 1 TO 5000 NEXT Z LET dollars = dollars + 2 GOTO startb SCREEN 8 starth: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l250" DRAW "c15 l300 d90 r400 u50 r50 d50 l50 r150" LOCATE 9, 50 PRINT "<-- TO PLANES" LOCATE 9, 10 PRINT "TO PARADISE ISLE - 12:44" COLOR 4 A = 300 b = 100 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 9 c = 100 d = 100 CIRCLE (c, d), 20 DRAW "c10 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 10 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c9 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c9 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c9 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" COLOR 15 LOCATE 3, 1 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookh IF joe$ = "look man" THEN GOTO lookmanh IF joe$ = "talk man" THEN GOTO talkmanh IF joe$ = "talk to man" THEN GOTO talkmanh IF joe$ = "walk door" THEN GOTO exith IF joe$ = "quit" THEN GOTO quith GOTO noneh crunth: m$ = INPUT$(1) GOTO starth lookh: COLOR 1 PRINT "You're in the airport terminal. You're in the airport terminal." GOTO crunth lookmanh: COLOR 1 PRINT "His face is green and he's holding his stomach, trying not to throw" PRINT "up." GOTO crunth quith: END exith: GOTO startb talkmanh: IF lottery$ = "okay" THEN GOTO kcufh IF rolls$ = "one" THEN GOTO h2 COLOR 1 PRINT "`You look sort of sick, my friend.'" COLOR 3 PRINT "`Yeh, I (URP!) tried some of the airplane food...'" LET rolls$ = "one" GOTO crunth h2: COLOR 1 PRINT "`I need to go to Paradise Isle.'" COLOR 3 PRINT "`Not without fifty million dollars, bub (URP!)'" COLOR 1 PRINT "`FIFTY MILLION DOLLARS?!?!?!?!'" COLOR 3 PRINT "`Well, it's a very exclusive (URP!) island.'" LET rolls$ = "crunny" GOTO crunth kcufh: COLOR 1 PRINT "`Here's fifty million dollars. Can I go to Paradise Isle NOW?!?'" COLOR 3 PRINT "`Sure, hop aboard...(BLUUUUUURRRRPPP!!!!!) (SPIT, SNIFFLE, SLURP...)'" m$ = INPUT$(1) CALL scene3(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) GOTO jurnie noneh: COLOR 1 IF fort$ = "two" THEN GOTO none2h IF fort$ = "three" THEN GOTO none3h IF fort$ = "four" THEN GOTO none4h IF fort$ = "five" THEN GOTO none5h PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO starth none2h: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO starth none3h: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO starth none4h: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO starth none5h: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO starth SCREEN 8 startf: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550 d100 r460 u50 r50 d50 l50 r90" IF lottery$ = "got" OR lottery$ = "okay" THEN GOTO foof b = 100 c = 100 COLOR 14 d = 1 CIRCLE (b, c), d d = 2 FOR Z = 1 TO 30 CIRCLE (b, c), d LET d = d + 1 NEXT Z COLOR 4 d = 50 LET c = c + 35 CIRCLE (b, c), d COLOR 11 d = 49 FOR Z = 1 TO 49 CIRCLE (b, c), d LET d = d - 1 NEXT Z COLOR 14 LET c = c - 35 LET b = b + 20 LET c = c + 10 d = 1 FOR Z = 1 TO 20 CIRCLE (b, c), d d = d + 1 NEXT Z DRAW "c4 bu10 bl20 r10 f2 bd30 d10 l20 u20 d20 r2 bd1" FOR Z = 1 TO 8 DRAW "c14 d5 r1 u5 r1" NEXT Z foof: r = 300 s = 150 COLOR 15 CIRCLE (r, s), 1 DRAW "c15 l100" FOR Z = 1 TO 50 DRAW "u50 r1 d50 r1" NEXT Z DRAW "c0 bh10 bl10 u30 l60 d30 r60" A = 400 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookf IF joe$ = "talk to woman" THEN GOTO deathf IF joe$ = "talk to lady" THEN GOTO deathf IF joe$ = "kill woman" THEN GOTO deathf IF joe$ = "kill lady" THEN GOTO deathf IF joe$ = "walk woman" THEN GOTO deathf IF joe$ = "walk lady" THEN GOTO deathf IF joe$ = "use washer" THEN GOTO washf IF joe$ = "walk door" THEN GOTO exitf IF joe$ = "quit" THEN GOTO quitf GOTO nonef lookf: COLOR 1 PRINT "You are in the laundrer's. A rather old and grotesque woman is standing" PRINT "beside a washer waiting for her clothes to finish drying." m$ = INPUT$(1) GOTO startf washf: COLOR 1 IF laundry$ = "okay" THEN GOTO wishyf PRINT "What are you going to wash? No... don't tell me. I don't even want to" PRINT "HEAR it." m$ = INPUT$(1) GOTO startf wishyf: PRINT "You open the washer and replace the woman's dirty laundry with your" PRINT "own. The washer suddenly stops and the woman runs off with your" PRINT "clothes. A lottery ticket falls out of her pocket onto the floor." PRINT "You take it." LET score = score + 12 LET laundry$ = "nothing" LET lottery$ = "got" m$ = INPUT$(1) GOTO startf deathf: CALL scene2(opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) nonef: COLOR 1 IF fort$ = "two" THEN GOTO none2f IF fort$ = "three" THEN GOTO none3f IF fort$ = "four" THEN GOTO none4f IF fort$ = "five" THEN GOTO none5f PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startf none2f: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startf none3f: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startf none4f: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startf none5f: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startf quitf: END exitf: GOTO startb SCREEN 8 startg: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l250" IF antenna$ = "okay" THEN GOTO damng u = 200 v = 80 COLOR 15 CIRCLE (u, v), 1 DRAW "u5 e10 f5 r25 f5 d10 g5 d10 g4 d10 r5 d5 l15 u10 l90 d5 r5 d5 l15 u20 h10 u10 e5 f3 d10 f5 r71 u12" damng: PAINT (100, 100), 11, 37 DRAW "c15 bu50 l80 d120 r1 bu1" FOR Z = 1 TO 200 DRAW "c4 u50 r1 d50 r1" NEXT Z o = 100 p = 119 COLOR 1 CIRCLE (o, p), 1 DRAW "c1 u20 e10 h8 f3 e3 g6" c = 350 d = 250 COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" COLOR 4 A = 300 b = 70 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookg IF joe$ = "look ladder" THEN GOTO lookladdg IF joe$ = "look cat" THEN GOTO lookcatg IF joe$ = "kill cat" THEN GOTO killcatg IF joe$ = "use rock on cat" THEN GOTO catg IF joe$ = "throw rock at cat" THEN GOTO catg IF joe$ = "throw rock" THEN GOTO catg IF joe$ = "use ladder" THEN GOTO exitg IF joe$ = "quit" THEN GOTO quitg IF joe$ = "pick up cat" THEN GOTO pickg IF joe$ = "take cat" THEN GOTO pickg IF joe$ = "get cat" THEN GOTO pickg GOTO noneg quitg: END exitg: GOTO startb lookg: COLOR 1 PRINT "You're on top of the roof looking at your stupid antenna." PRINT "There's also a stupid rock lying at your feet." IF antenna$ = "okay" THEN GOTO forori PRINT "An equally stupid cat is staring at you and blocking the stupid reception." GOTO forori forori: m$ = INPUT$(1) GOTO startg lookladdg: COLOR 1 PRINT "You've fixed the ladder rung." m$ = INPUT$(1) GOTO startg lookcatg: IF antenna$ = "okay" THEN GOTO forori COLOR 1 PRINT "The black cat is looking at you funny." GOTO forori killcatg: IF antenna$ = "okay" THEN GOTO forori COLOR 1 PRINT "The Society for Prevention of Cruelty to Animals would probably do the" PRINT "same to you." GOTO forori catg: IF antenna$ = "okay" THEN GOTO forori LET catish$ = "okay" COLOR 1 PRINT "You pick up the rock and throw it at the cat. The cat becomes" PRINT "confused." GOTO forori pickg: IF antenna$ = "okay" THEN GOTO forori IF catish$ <> "okay" THEN GOTO rawrg COLOR 1 PRINT "You pick up the cat and shove it in your pocket." LET antenna$ = "okay" LET score = score + 10 GOTO forori rawrg: COLOR 1 PRINT "The cat scratches your face and backs away." GOTO forori noneg: COLOR 1 IF fort$ = "two" THEN GOTO none2g IF fort$ = "three" THEN GOTO none3g IF fort$ = "four" THEN GOTO none4g IF fort$ = "five" THEN GOTO none5g PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startg none2g: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startg none3g: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startg none4g: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startg none5g: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startg jurnie: END SUB SUB room2.bas (score) SCREEN 8 starti: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550 r1 d1" PAINT (450, 150), 6, 37 DRAW "c15 u50 r50 d50 l50" PAINT (100, 100), 14, 37 DRAW "c15 bd40 br50 r300 br50 r70 bl420 g30 e20" PAINT (98, 100), 1, 37 DRAW "c15 bd50 r41 l118" PAINT (98, 100), 11, 37 COLOR 2 CIRCLE (450, 100), 30 s = 30 FOR Z = 1 TO 30 LET s = s - 1 CIRCLE (450, 100), s NEXT Z CIRCLE (490, 105), 30 LET s = 30 FOR Z = 1 TO 30 LET s = s - 1 CIRCLE (490, 105), s NEXT Z CIRCLE (415, 80), 30 LET s = 30 FOR Z = 1 TO 30 LET s = s - 1 CIRCLE (415, 80), s NEXT Z CIRCLE (455, 65), 30 LET s = 30 FOR Z = 1 TO 30 LET s = s - 1 CIRCLE (455, 65), s NEXT Z CIRCLE (490, 70), 30 LET s = 30 FOR Z = 1 TO 30 LET s = s - 1 CIRCLE (490, 70), s NEXT Z CIRCLE (525, 85), 30 LET s = 30 FOR Z = 1 TO 30 LET s = s - 1 CIRCLE (525, 85), s NEXT Z CIRCLE (470, 85), 30 LET s = 30 FOR Z = 1 TO 30 LET s = s - 1 CIRCLE (470, 85), s NEXT Z A = 200 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO looki IF joe$ = "look tree" THEN GOTO looktreei IF joe$ = "look plane" THEN GOTO lookplanei IF joe$ = "walk right" THEN GOTO walkri IF joe$ = "walk east" THEN GOTO walkri IF joe$ = "walk west" THEN GOTO walkwi IF joe$ = "walk right" THEN GOTO walkwi IF joe$ = "quit" THEN GOTO quiti GOTO nonei tyi: m$ = INPUT$(1) GOTO starti looki: COLOR 1 PRINT "You think you're on Paradise Isle, but..." PRINT "Wait, there's a tree to your right." GOTO tyi lookplanei: COLOR 1 PRINT "It's not here. For all you know it could have floated to Mexico by" PRINT "now." GOTO tyi looktreei: IF dollars > 1 THEN GOTO tyi COLOR 1 PRINT "You search the tree and find fifty dollars." LET dollars = 50 LET score = score + 2 GOTO tyi walkwi: COLOR 1 PRINT "You can't walk on WATER, you bink!" GOTO tyi walkri: GOTO startj quiti: END nonei: COLOR 1 IF fort$ = "two" THEN GOTO none2i IF fort$ = "three" THEN GOTO none3i IF fort$ = "four" THEN GOTO none4i IF fort$ = "five" THEN GOTO none5i PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO starti none2i: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO starti none3i: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO starti none4i: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO starti none5i: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO starti SCREEN 8 startj: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550" COLOR 15 PAINT (100, 100), 6, 37 c = 350 d = 70 CIRCLE (c, d), 1 IF statue$ <> "okay" THEN DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5" PAINT (100, 100), 14, 37 DRAW "c15 bd40 l80 r550" PAINT (100, 100), 11, 37 COLOR 2 CIRCLE (425, 140), 30 s = 30 FOR A = 1 TO 30 LET s = s - 1 CIRCLE (425, 140), s NEXT A CIRCLE (470, 145), 30 LET s = 30 FOR A = 1 TO 30 LET s = s - 1 CIRCLE (470, 145), s NEXT A CIRCLE (390, 120), 30 LET s = 30 FOR A = 1 TO 30 LET s = s - 1 CIRCLE (390, 120), s NEXT A CIRCLE (430, 105), 30 LET s = 30 FOR A = 1 TO 30 LET s = s - 1 CIRCLE (430, 105), s NEXT A CIRCLE (470, 110), 30 LET s = 30 FOR A = 1 TO 30 LET s = s - 1 CIRCLE (470, 110), s NEXT A CIRCLE (500, 125), 30 LET s = 30 FOR A = 1 TO 30 LET s = s - 1 CIRCLE (500, 125), s NEXT A CIRCLE (445, 125), 30 LET s = 30 FOR A = 1 TO 30 LET s = s - 1 CIRCLE (445, 125), s NEXT A A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookj IF joe$ = "look statue" THEN GOTO lookstatj IF joe$ = "look bush" THEN GOTO lookbushj IF joe$ = "get statue" THEN GOTO statuej IF joe$ = "take statue" THEN GOTO statuej IF joe$ = "walk west" THEN GOTO exitj IF joe$ = "walk east" THEN GOTO startm IF joe$ = "quit" THEN GOTO quitj GOTO nonej quitj: END exitj: GOTO starti raj: m$ = INPUT$(1) GOTO startj lookj: COLOR 1 PRINT "You're on the far east side of the island. A bush is lining the side" PRINT "of the road." IF statue$ = "okay" THEN GOTO raj PRINT "There's some sort of stupid Easter Island statue staring at you." GOTO raj lookstatj: IF statue$ = "okay" THEN GOTO raj COLOR 1 PRINT "This looks like some sort of...of...uh..." GOTO raj statuej: IF statue$ = "okay" THEN GOTO raj COLOR 1 PRINT "You grab the immense statue and shove it in your pocket." LET statue$ = "okay" LET score = score + 5 GOTO raj lookbushj: IF retroj$ = "okay" THEN GOTO startk COLOR 1 PRINT "You look behind the bush and find... A HIDDEN VILLAGE!!!" LET score = score + 1 LET retroj$ = "okay" GOTO startk nonej: COLOR 1 IF fort$ = "two" THEN GOTO none2j IF fort$ = "three" THEN GOTO none3j IF fort$ = "four" THEN GOTO none4j IF fort$ = "five" THEN GOTO none5j PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startj none2j: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startj none3j: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startj none4j: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startj none5j: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startj SCREEN 8 startk: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550" COLOR 15 PAINT (100, 100), 6, 37 CIRCLE (50, 120), 1 DRAW "c15 d50 r50 u40 r50 d40 r50 u70 l150 d20" COLOR 15 CIRCLE (300, 120), 1 DRAW "c15 d50 r50 u40 r50 d40 r50 u70 l150 d20" PAINT (40, 100), 14, 37 COLOR 15 CIRCLE (55, 50), 1 DRAW "c15 g50 e50 r140 f50 l240" COLOR 15 CIRCLE (305, 50), 1 DRAW "c15 g50 e50 r140 f50 l240" COLOR 15 DRAW "c15 bd40 l54 bl152 l28 br200 r78 br152 r118" PAINT (40, 110), 11, 37 PAINT (30, 60), 11, 37 PAINT (250, 60), 11, 37 PAINT (500, 60), 11, 37 A = 500 b = 115 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookk IF joe$ = "look huts" THEN GOTO lookhutk IF joe$ = "walk door" THEN GOTO frontk IF joe$ = "walk hut" THEN GOTO frontk IF joe$ = "walk west" THEN GOTO enterk IF joe$ = "walk hut one" THEN GOTO enterk IF joe$ = "walk hut two" THEN GOTO enterk IF joe$ = "walk east" THEN GOTO exitk IF joe$ = "quit" THEN GOTO quitk GOTO nonek exitk: GOTO startj quitk: END lookk: COLOR 1 PRINT "You're in a small village you discovered behind some bushes. The two" PRINT "huts here look exactly the same. There's a path to the west and a" PRINT "path to the east." GOTO clock clock: m$ = INPUT$(1) GOTO startk lookhutk: COLOR 1 PRINT "They're made of 50/50 wood shavings, straw." GOTO clock frontk: COLOR 1 PRINT "Please specify which one by typing either walk hut one or walk hut" PRINT "two -- J.D." GOTO clock enterk: GOTO startl nonek: COLOR 1 IF fort$ = "two" THEN GOTO none2k IF fort$ = "three" THEN GOTO none3k IF fort$ = "four" THEN GOTO none4k IF fort$ = "five" THEN GOTO none5k PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startk none2k: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startk none3k: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startk none4k: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startk none5k: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startk SCREEN 8 startl: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l250 bd80 l260 g40 e40 u80 d80 r510" DRAW "c6 bl1 bd1 l509" FOR Z = 1 TO 254 DRAW "g38 r1 e38 r1" NEXT Z DRAW "r1" FOR Z = 1 TO 50 DRAW "d38 l1 u38 l1" NEXT Z DRAW "c15 bl10 d10 r100 u30 l100 d30 r1 u1" FOR Z = 1 TO 49 DRAW "c10 u28 r1 d28 r1" NEXT Z DRAW "u28" DRAW "c15 bl90 bd5 d20 r60 u20 l60 d1 r1" FOR Z = 1 TO 29 DRAW "c0 d18 r1 u18 r1" NEXT Z DRAW "d18" DRAW "c15" CIRCLE (540, 130), 5 DRAW "bu20 bl300 u30 r100 d70 l100 u69 r1" FOR Z = 1 TO 49 DRAW "c14 d68 r1 u68 r1" NEXT Z DRAW "d68" DRAW "c7 bl10 bu40 l80 u10 r80 d10" DRAW "c15 bl150 d20 u60 l80 d60 r1" FOR Z = 1 TO 39 DRAW "c11 u59 r1 d59 r1" NEXT Z DRAW "u59" A = 200 b = 110 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" c = 400 d = 110 COLOR 4 CIRCLE (c, d), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" IF ipso$ = "two" THEN GOTO here2l IF ipso$ = "three" THEN GOTO here3l IF ipso$ = "four" THEN GOTO startk COLOR 1 PRINT "`Wait a second...THIS IS MY HOUSE!!! WHAT ARE YOU DOING IN MY HOUSE?!?'" COLOR 2 PRINT "`I...uh...maybe you'd better leave.'" LET ipso$ = "two" m$ = INPUT$(1) GOTO startk here2l: COLOR 1 PRINT "`Hey, I was JUST IN this hut!!!'" COLOR 2 PRINT "`Uh, no time to talk. Please leave.'" LET ipso$ = "three" m$ = INPUT$(1) GOTO startk here3l: COLOR 1 PRINT "`Okay, now I'm confused.'" COLOR 2 PRINT "`Look, I'll give you this sapphire if you keep your mouth closed!'" LET sap$ = "okay" LET score = score + 6 LET ipso$ = "four" m$ = INPUT$(1) GOTO startk SCREEN 8 startm: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l250" PAINT (100, 100), 14, 37 DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28" PAINT (100, 100), 11, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookm IF joe$ = "walk west" THEN GOTO exitm IF joe$ = "use statue on volcano" THEN GOTO volcm IF joe$ = "throw statue" THEN GOTO volcm GOTO nonem vpm: m$ = INPUT$(1) GOTO startm lookm: COLOR 1 PRINT "Whoa mama! The land seems to have shaped itself into a volcano here." PRINT "You pear into it and find mountains of lava bubbling up! That thing" PRINT "could erupt any minute and distroy the island! You'd better find" PRINT "some way to plug the hole..." GOTO vpm exitm: GOTO startj nonem: COLOR 1 IF fort$ = "two" THEN GOTO none2m IF fort$ = "three" THEN GOTO none3m IF fort$ = "four" THEN GOTO none4m IF fort$ = "five" THEN GOTO none5m PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startm none2m: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startm none3m: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startm none4m: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startm none5m: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startm volcm: IF statue$ <> "okay" THEN GOTO vpm COLOR 4 f = 1 FOR Z = 1 TO 200 CIRCLE (300, 100), f f = f + 2 NEXT Z LET jugs$ = "two" OPEN "c:\trapped\saved$" FOR OUTPUT AS #1 WRITE #1, jugs$ CLOSE #1 CALL room3.bas(score, sap$, dollars) END SUB SUB room3.bas (score, sap$, dollars) SCREEN 8 CLS PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l250" PAINT (100, 100), 14, 37 DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28" PAINT (100, 100), 11, 37 A = 300 b = 100 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" c = 100 d = 95 COLOR 4, 0 CIRCLE (c, d), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" e = 200 f = 140 COLOR 4 CIRCLE (e, f), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10 DRAW "c4 bl20 u5 h2 l60 d15 r60 e4 c3 bl1 g3 l1 e3 l1 g3 l1 e3 l1 g3 bl55" FOR Z = 1 TO 30 DRAW "u13 r1 d13 r1" NEXT Z DRAW "c4 bl40 bu5 l20 d5 l60 u11 r60 l3 d1" FOR Z = 1 TO 28 DRAW "c3 d9 l1 u9 l1" NEXT Z DRAW "d9 c4 l1 u5 r40 br90 u8 d8 br13 bu4 e3 bl3 f3" FOR Z = 1 TO 5000 NEXT Z COLOR 1 PRINT "LATER..." m$ = INPUT$(1) PRINT "MUCH LATER..." m$ = INPUT$(1) PRINT "MUCH, MUCH LATER..." m$ = INPUT$(1) PRINT "SO MUCH LATER YOU WOULDN'T BELIEVE IT..." m$ = INPUT$(1) CLS DRAW "c15 bu50 l300 d120 r550 u120 l250" PAINT (100, 100), 14, 37 DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28" PAINT (100, 100), 11, 37 A = 300 b = 100 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" c = 100 d = 95 COLOR 4, 0 CIRCLE (c, d), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" e = 200 f = 100 COLOR 4 CIRCLE (e, f), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 1 PRINT "Huh...uh...where am I..." COLOR 3 PRINT "You're on Uwabong island in the Paradise isles, cash register." COLOR 10 PRINT "We'd like to thank you for plugging up Mt. Hachipichipuchi with our statue." COLOR 3 PRINT "Zya! If you hadn't our island might have been buried in mountains of lava." COLOR 10 PRINT "Even though you distroyed an pricelice statue doing it, thanks anyway." m$ = INPUT$(1) CLS DRAW "c15 bu50 l300 d120 r550 u120 l250" PAINT (100, 100), 14, 37 DRAW "c15 bd40 bl79 r200 e50 r200 f40 e10 f20 r28" PAINT (100, 100), 11, 37 A = 300 b = 100 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" c = 100 d = 95 COLOR 4, 0 CIRCLE (c, d), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" e = 200 f = 100 COLOR 4 CIRCLE (e, f), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 1 PRINT "I don't get it. Who are you?" COLOR 3 PRINT "We are the Iffinickinackies, the natives of this island. I'm Joe and he's Jack." COLOR 10 PRINT "We're the ambassadors." COLOR 3 PRINT "Which is sort of unfortunate since we don't have any means of communication." COLOR 10 PRINT "Feel free to look around our village. Consider yourself our guest." m$ = INPUT$(1) x = 12 y = 39 navmap: SCREEN 1 CLS PRINT PRINT PRINT PRINT PRINT " By the way, on the next screen you" PRINT " will be navigating around the village" PRINT " on a map where you control a little" PRINT " face. In fact, that's all there is" PRINT " on the screen. And you'll just" PRINT " have to figure out the keys by" PRINT " yourself. I'm tired of writing this" PRINT " game, you write it! I'm sick of" PRINT " typing in BASIC with DRAW this and" PRINT " PRINT that and m$ = INPUT$(1)!!!!!" PRINT PRINT PRINT " MORE POWER TO PROGRAMMERS!" PRINT " HELL NO, WE WON'T CONVERT TO BIANARY!!" m$ = INPUT$(1) SCREEN 8 mapnav: x = 12 y = 39 lummox: CLS COLOR 1, 14 LOCATE x, y PRINT CHR$(2) m$ = INPUT$(1) IF m$ = "q" THEN LET x = x - 2 IF m$ = "b" THEN LET x = x + 2 IF m$ = "l" THEN LET y = y - 5 IF m$ = "g" THEN LET y = y + 5 IF x = 2 THEN GOTO startn IF x = 24 THEN GOTO starto IF y = 4 THEN GOTO startp IF y = 79 THEN GOTO mapnav GOTO lummox startn: CLS IF cryo$ = "okay" THEN GOTO mapnav COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550" PAINT (100, 100), 14, 37 DRAW "c15 bd40 l80 r550" PAINT (100, 100), 4, 37 c = 500 d = 70 CIRCLE (c, d), 1 DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5" PAINT (100, 100), 11, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 1 PRINT "As you step in front of the statue it starts to talk --" COLOR 5 PRINT "`I am eaten up by you every day, yet you cannot touch me, taste me," PRINT "or see me. Each day of your life I get shorter. What am I?'" COLOR 1 INPUT " ", joe$ IF joe$ = "time" OR joe$ = "TIME" THEN GOTO goodn goodn: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550" PAINT (100, 100), 14, 37 DRAW "c15 bd40 l80 r550" PAINT (100, 100), 4, 37 c = 500 d = 70 CIRCLE (c, d), 1 DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5" PAINT (100, 100), 3, 37 DRAW "bm255,125" DRAW "c15e5d5u5f5d10g5u5d5h5u10" DRAW "bm255,125c15d10f5u5e2f2h2u6e2g2h2g2h2f2d6g2e2f2" PAINT (100, 100), 11, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look at statue" THEN GOTO lookstatn IF joe$ = "look" THEN GOTO lookn IF joe$ = "take crystal" THEN GOTO cryn IF joe$ = "quit" THEN END IF joe$ = "walk west" THEN GOTO cryn GOTO goodn lookstatn: COLOR 1 PRINT "It's a purple statue that's staring at you." GOTO muckn lookn: COLOR 1 PRINT "You don't SEE anything really interesting besides a purple statue and" PRINT "a crystal on the ground." GOTO muckn cryn: COLOR 1 PRINT "You take the crystal and go back to the mainland." LET score = score + 10 m$ = INPUT$(1) LET cryo$ = "okay" GOTO mapnav muckn: m$ = INPUT$(1) GOTO goodn deadn: c = 500 d = 70 PAINT (100, 100), 5, 37 CIRCLE (c, d), 1 DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5" PAINT (100, 100), 0, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" FOR Z = 1 TO 100 NEXT Z CLS c = 200 d = 20 PAINT (100, 100), 5, 37 CIRCLE (c, d), 1 DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5" PAINT (100, 100), 0, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" FOR Z = 1 TO 100 NEXT Z CLS c = 150 d = 80 PAINT (100, 100), 5, 37 CIRCLE (c, d), 1 DRAW "c15 l100 g10 d50 f10 r100 e10 u50 h10 bg20 l5 r20 bl70 l20 bf20 bu5 g5 d2 f5 r50 e5 u2 h5" PAINT (400, 100), 0, 37 FOR Z = 1 TO 1000 NEXT Z COLOR 1 PRINT "Whoa, squished flatter than a pancake! Do you get frequent flyers miles" PRINT "for this?" PRINT PRINT "FINAL SCORE - "; score END starto: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550 d90 r550" PAINT (100, 150), 14, 37 COLOR 15 CIRCLE (300, 90), 1 DRAW "c15 d50 r50 u40 r50 d40 r50 u70 l150 d20" COLOR 0 CIRCLE (305, 20), 1 COLOR 15 DRAW "c15 bg30 g20 be50 br140 bf30 f20 l240" PAINT (310, 100), 10, 37 PAINT (310, 60), 2, 37 PAINT (100, 100), 11, 37 PAINT (500, 130), 11, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" c = 220 d = 110 COLOR 2 CIRCLE (c, d), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c6 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c2 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 c4 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" e = 380 IF cryo$ = "okay" THEN LET e = e + 30 f = 100 COLOR 2, 0 CIRCLE (e, f), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (e, f), 19: CIRCLE (e, f), 18: CIRCLE (e, f), 17: CIRCLE (e, f), 16: CIRCLE (e, f), 15: CIRCLE (e, f), 14: CIRCLE (e, f), 13: CIRCLE (e, f), 12: CIRCLE (e, f), 11: CIRCLE (e, f), 10 DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bl17 bd1 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l2 r20" COLOR 15 INPUT "> ", joe$ IF joe$ = "walk west" THEN GOTO mapnav IF joe$ = "look" THEN GOTO looko IF joe$ = "walk east" THEN GOTO lubbyo IF joe$ = "quit" THEN END IF joe$ = "walk hut" THEN GOTO startod IF joe$ = "talk to native" THEN GOTO nativeo IF joe$ = "talk to guard" THEN GOTO guardo GOTO noneo damno: m$ = INPUT$(1) GOTO starto looko: COLOR 1 PRINT "You seem to be in a village. There's a large hut to your east and a guard" PRINT "and a native." GOTO damno nativeo: COLOR 2 PRINT "`Welcome to the three screen villiage!'" GOTO damno guardo: COLOR 4 IF cryo$ = "okay" THEN PRINT "`Ah, the crystal of stupidity! The king wants to see you.'" ELSE PRINT "`You can't get into the king's hut unless you can give me the crystal of stupidity!'" GOTO damno lubbyo: IF gdoe$ = "okay" THEN GOTO startob COLOR 2 PRINT "Hey, dork, you can't go that way without the king's prior premission!" GOTO damno noneo: COLOR 1 IF fort$ = "two" THEN GOTO none2o IF fort$ = "three" THEN GOTO none3o IF fort$ = "four" THEN GOTO none4o IF fort$ = "five" THEN GOTO none5o PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO starto none2o: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO starto none3o: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO starto none4o: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO starto none5o: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO starto startob: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550 d90 r550" PAINT (100, 150), 14, 37 DRAW "c15 br250 bu10 u30 r50 d30" PAINT (360, 130), 4, 37 PAINT (100, 100), 11, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" c = 300 d = 95 COLOR 2 CIRCLE (c, d), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c2 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c2 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookob IF joe$ = "quit" THEN END IF joe$ = "walk west" THEN GOTO starto IF joe$ = "walk east" THEN GOTO startoc IF joe$ = "talk to native" THEN GOTO nativeob IF joe$ = "get banana" OR joe$ = "look box" THEN GOTO boxob GOTO noneob damnob: m$ = INPUT$(1) GOTO startob lookob: COLOR 1 PRINT "You're in front of a vending stand. There's a shabby box of bananas and" PRINT "a rather greasy looking native." GOTO damnob nativeob: IF clun$ = "okay" THEN GOTO sob COLOR 2 PRINT "Hey, hey, hey, whaddya say! Do ya wanna sing `Patient in Paradise' with me?" COLOR 1 INPUT "y, n ", joe$ IF joe$ = "n" OR joe$ = "no" THEN GOTO damnob CLS PRINT "Hold my hand -- I'm a patient in paradise" PLAY "o3l5ddl2ap4l5agfedefl2gp4" PRINT "My nostrils have just been sliced by a small paper parasol" PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4" PRINT "I thought I took it out of my margarita --" PLAY "o3l5ddl2ap4l5agfedefl2gp4" PRINT "And when we drank a toast, it went up my nose." PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4" PRINT "The doctor says it's been infected" PLAY "o3l5cccl2cl5cc#d#d#l2f" PRINT "Some desease of the south" PLAY "o3l5fffffl2f" PRINT "They have down here..." PLAY "l5o3fd#fl2g-" PRINT "He says it may just be connected" PLAY "l5o3g-g-g-l2g-l5fg-fg#l2d#" PRINT "To hoof and mouth --" PLAY "l5o3d#d#d#l2d" PRINT "At least, that's what they fear." PLAY "l5o3dfgfdl2cp4" PRINT "I'll be staying...in here for tests, at least until late next week" PLAY "o3l5ddl2ap4l5agfedefl2gp4" PRINT "But you go ahead, my dear, and play golf, and go to shows" PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4" PRINT "I'm fine, I just never thought this would happen in paradise" PLAY "o3l5ddl2ap4l5agfedefl2gp4" PRINT "That someone could get a parasol up their nose." PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4" LET clun$ = "okay" GOTO startob sob: COLOR 2 PRINT "Whaddya want? Wanna buy a banana? Only fifty dollars!" IF dollars = 50 AND sap$ = "okay" THEN GOTO sobb COLOR 1 PRINT "No." COLOR 2 PRINT "Then go away and stop wasting my time." GOTO damnob sobb: COLOR 1 PRINT "Alright, here's your money. Oh, and take this sapphire. I have no use" PRINT "for it." PRINT "You eat the banana and shove the peel in your pocket. Geeze, it's slippery." LET sap$ = "jkjdkdj" LET score = score + 20 LET ban$ = "okay" GOTO damnob boxob: COLOR 2 PRINT "Hey, get outta there! Those arn't free, ya dink." GOTO damnob noneob: COLOR 1 IF fort$ = "two" THEN GOTO none2ob IF fort$ = "three" THEN GOTO none3ob IF fort$ = "four" THEN GOTO none4ob IF fort$ = "five" THEN GOTO none5ob PRINT "What? I'm sorry, I wasn't paying attention." LET fort$ = "two" m$ = INPUT$(1) GOTO startob none2ob: PRINT "Unfortunately, I don't speak moronese." m$ = INPUT$(1) LET fort$ = "three" GOTO startob none3ob: PRINT "And do you think it's gonna let you?" m$ = INPUT$(1) LET fort$ = "four" GOTO startob none4ob: PRINT "That would be about as helpful as bashing your head in with a" PRINT "large piece of iron." m$ = INPUT$(1) LET fort$ = "five" GOTO startob none5ob: PRINT "You know, that's a felony in some states." m$ = INPUT$(1) LET fort$ = "nothing" GOTO startob startoc: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550" A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" c = 400 d = 100 COLOR 2 CIRCLE (c, d), 20 DRAW "c6 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 6, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c2 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c6 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c2 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c6 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c2 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 15 INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookoc IF joe$ = "talk to native" THEN GOTO nativeoc IF joe$ = "use banana" OR joe$ = "use banana peel" THEN GOTO suioc IF joe$ = "quit" THEN END IF joe$ = "walk west" THEN GOTO startob GOTO startoc lookoc: COLOR 1 PRINT "You're on a wierd board..." m$ = INPUT$(1) GOTO startoc nativeoc: COLOR 1 PRINT "What the hell is going ON?!?!" COLOR 2 PRINT "We...ran out of backgrounds. Yeah, that's it." COLOR 1 PRINT "So what am I supposed to do here?!?" COLOR 2 PRINT "You're supposed to slip me up so you can get the invisible parrot. It can" PRINT "open the cave door." m$ = INPUT$(1) GOTO startoc suioc: IF ban$ <> "okay" THEN GOTO startoc COLOR 1 LET score = score + 5 PRINT "The native slips on the banana peel (not shown) and you grab the parrot (also not shown)" LET parrot$ = "okay" m$ = INPUT$(1) LET ban$ = "jdkjd" GOTO startob startod: IF gdoe$ = "okay" THEN GOTO starto CLS LET score = score + 10 LET gdoe$ = "okay" COLOR 2 PRINT "`Oh, so you broke into my hut, huh?'" COLOR 1 PRINT "`Well, I thought I was supposed to...'" COLOR 2 PRINT "`Shut up and listen -- there's a great shadow over this land...'" COLOR 1 PRINT "`Oh, Clorox Bleach can take that right out.'" COLOR 2 PRINT "`...My evil brother, JoJo, is scaring away all my tourists. If you can get" PRINT "rid of him I might be able to start up my shrimp resturants again. Now, go.'" COLOR 15 m$ = INPUT$(1) GOTO starto startp: CLS COLOR 15 PRINT " TRAPPED IN PARADISE SCORE - "; score PRINT "" DRAW "c15 bu50 l300 d120 r550 u120 l550 d90 r550" PAINT (100, 150), 14, 37 DRAW "c15 br100 be10 e90 g90 e40 r10 d40" PAINT (250, 110), 7, 37 PAINT (300, 110), 4, 37 PAINT (100, 100), 11, 37 A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" INPUT "> ", joe$ IF joe$ = "look" THEN GOTO lookp IF joe$ = "use parrot" THEN GOTO p GOTO clunkp lookp: COLOR 1 PRINT "It's a large cave with a metal door in it. Just like in the James Bond movies." m$ = INPUT$(1) GOTO startp p: IF parrot$ <> "okay" THEN GOTO startp COLOR 1 PRINT "Hey, this isn't an invisible parrot! It's an invisible key! You pop it in" PRINT "the door." m$ = INPUT$(1) CALL scene4(score) clunkp: COLOR 1 PRINT "Since you have no idea what you're doing here, I'll send you back to the map." m$ = INPUT$(1) GOTO mapnav END SUB SUB scene1 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) SCREEN 8 CLS c = 300 d = 150 COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" A = 300 b = 100 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" FOR Z = 1 TO 500 NEXT Z CLS COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" A = 330 b = 100 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" FOR Z = 1 TO 500 NEXT Z CLS COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" A = 330 b = 80 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" FOR Z = 1 TO 500 NEXT Z CLS COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" A = 330 b = 60 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" FOR Z = 1 TO 500 NEXT Z CLS COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" A = 330 b = 40 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" FOR Z = 1 TO 500 NEXT Z IF ladfix$ = "okay" THEN GOTO ivy CLS A = 330 b = 40 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" FOR Z = 1 TO 500 NEXT Z CLS A = 330 b = 60 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" FOR Z = 1 TO 500 NEXT Z CLS A = 330 b = 80 COLOR 4, 0 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9" COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" FOR Z = 1 TO 500 NEXT Z CLS A = 400 b = 140 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bl20 u5 h2 l60 d15 r60 e4 c3 bl1 g3 l1 e3 l1 g3 l1 e3 l1 g3 bl55" FOR Z = 1 TO 30 DRAW "u13 r1 d13 r1" NEXT Z DRAW "c4 bl40 bu5 l20 d5 l60 u11 r60 l3 d1" FOR Z = 1 TO 28 DRAW "c3 d9 l1 u9 l1" NEXT Z DRAW "d9 c4 l1 u5 r40 br90 u8 d8 br13 bu4 e3 bl3 f3" COLOR 15 CIRCLE (c, d), 1 DRAW "u135 l1 d135 l1 u135 l1 d135 u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60" DRAW "u20 r60 u1 l60 u20 r60 u1 l60 u20 r60 u1 l60 r60 bd126 u135 r1 d135 r1 u135 r1 d135" FOR Z = 1 TO 5000 NEXT Z COLOR 1 PRINT "A rotting rung on the ladder snaps and you fall to the ground, breaking" PRINT "every bone in your body. Nice going, yutz. Be more careful next time." PRINT PRINT "FINAL SCORE - "; score END ivy: END SUB SUB scene2 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) SCREEN 8 CLS guylt: A = 400 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" woman: b = 200 c = 100 COLOR 14 d = 1 CIRCLE (b, c), d d = 2 FOR Z = 1 TO 30 CIRCLE (b, c), d LET d = d + 1 NEXT Z COLOR 4 d = 50 LET c = c + 35 CIRCLE (b, c), d COLOR 11 d = 49 FOR Z = 1 TO 49 CIRCLE (b, c), d LET d = d - 1 NEXT Z COLOR 14 LET c = c - 35 LET b = b + 20 LET c = c + 10 d = 1 FOR Z = 1 TO 20 CIRCLE (b, c), d d = d + 1 NEXT Z DRAW "c4 bu10 bl20 r10 f2 bd30 d10 l20 u20 d20 r2 bd1" FOR Z = 1 TO 8 DRAW "c14 d5 r1 u5 r1" NEXT Z FOR Z = 1 TO 100 NEXT Z CLS guylt2: A = 300 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" woman2: b = 200 c = 100 COLOR 14 d = 1 CIRCLE (b, c), d d = 2 FOR Z = 1 TO 30 CIRCLE (b, c), d LET d = d + 1 NEXT Z COLOR 4 d = 50 LET c = c + 35 CIRCLE (b, c), d COLOR 11 d = 49 FOR Z = 1 TO 49 CIRCLE (b, c), d LET d = d - 1 NEXT Z COLOR 14 LET c = c - 35 LET b = b + 20 LET c = c + 10 d = 1 FOR Z = 1 TO 20 CIRCLE (b, c), d d = d + 1 NEXT Z DRAW "c4 bu10 bl20 r10 f2 bd30 d10 l20 u20 d20 r2 bd1" FOR Z = 1 TO 8 DRAW "c14 d5 r1 u5 r1" NEXT Z FOR Z = 1 TO 100 NEXT Z CLS guylt3: A = 300 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" womanpunch3: b = 200 c = 100 COLOR 14 d = 1 CIRCLE (b, c), d d = 2 FOR Z = 1 TO 30 CIRCLE (b, c), d LET d = d + 1 NEXT Z COLOR 4 d = 50 LET c = c + 35 CIRCLE (b, c), d COLOR 11 d = 49 FOR Z = 1 TO 49 CIRCLE (b, c), d LET d = d - 1 NEXT Z COLOR 14 LET c = c - 35 LET b = b + 20 LET c = c + 10 d = 1 FOR Z = 1 TO 20 CIRCLE (b, c), d d = d + 1 NEXT Z DRAW "c4 bu10 bl20 r10 f2 bd30 r40 d8 l60 r60 br1 bu2" FOR Z = 1 TO 3 DRAW "c14 r15 u1 l15 u1" NEXT Z FOR Z = 1 TO 100 NEXT Z CLS deadguy4: A = 400 b = 140 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bl20 u5 h2 l60 d15 r60 e4 c3 bl1 g3 l1 e3 l1 g3 l1 e3 l1 g3 bl55" FOR Z = 1 TO 30 DRAW "u13 r1 d13 r1" NEXT Z DRAW "c4 bl40 bu5 l20 d5 l60 u11 r60 l3 d1" FOR Z = 1 TO 28 DRAW "c3 d9 l1 u9 l1" NEXT Z DRAW "d9 c4 l1 u5 r40 br90 u8 d8 br13 bu4 e3 bl3 f3" womanpunch4: b = 200 c = 100 COLOR 14 d = 1 CIRCLE (b, c), d d = 2 FOR Z = 1 TO 30 CIRCLE (b, c), d LET d = d + 1 NEXT Z COLOR 4 d = 50 LET c = c + 35 CIRCLE (b, c), d COLOR 11 d = 49 FOR Z = 1 TO 49 CIRCLE (b, c), d LET d = d - 1 NEXT Z COLOR 14 LET c = c - 35 LET b = b + 20 LET c = c + 10 d = 1 FOR Z = 1 TO 20 CIRCLE (b, c), d d = d + 1 NEXT Z DRAW "c4 bu10 bl20 r10 f2 bd30 r40 d8 l60 r60 br1 bu2" FOR Z = 1 TO 3 DRAW "c14 r15 u1 l15 u1" NEXT Z FOR Z = 1 TO 1000 NEXT Z COLOR 1 PRINT "When you approach the woman she procedes to reallign your spine with" PRINT "some technique she learned in a self defence class." PRINT PRINT "FINAL SCORE -"; score END END SUB SUB scene3 (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) A = 0 b = 30 FOR Z = 1 TO 30 CLS A = A + 10 COLOR 15 CIRCLE (A, b), 1 DRAW "c15 g20 r15 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1" DRAW "r2 u1 r70 u5 h10 l160 h10 l15 d15 f10 r84" A = A - 5 PAINT (A, b), 7, 37 A = A + 3 NEXT Z LOCATE 10, 10 COLOR 10 PRINT "`Hey Jack! What does it mean when the little arrow points to E?'" FOR Z = 1 TO 7000 NEXT Z FOR Z = 1 TO 30 CLS A = A + 10 COLOR 15 CIRCLE (A, b), 1 DRAW "c15 g20 r15 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1" DRAW "r2 u1 r70 u5 h10 l160 h10 l15 d15 f10 r84" A = A - 5 PAINT (A, b), 7, 37 A = A + 3 NEXT Z FOR Z = 1 TO 3000 NEXT Z FOR Z = 1 TO 25 CLS b = b + 15 COLOR 15 CIRCLE (A, b), 1 DRAW "c15 g20 r15 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1" DRAW "r2 u1 r70 u5 h10 l160 h10 l15 d15 f10 r84" A = A - 5 PAINT (A, b), 7, 37 A = A + 3 NEXT Z CLS SCREEN 1 COLOR 4 PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT " CRASH!!!" FOR Z = 1 TO 9000 NEXT Z LET score = score + 10 LET jugs$ = "one" OPEN "c:\trapped\saved$" FOR OUTPUT AS #1 WRITE #1, jugs$ CLOSE #1 END SUB SUB scene4 (score) LET score = score + 4 SCREEN 8 CLS A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" c = 400 d = 100 COLOR 4 CIRCLE (c, d), 20 DRAW "c7 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 7, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c7 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c7 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" COLOR 1 PRINT "You're JoJo?!? What's with you?!?" COLOR 2 PRINT "I had an accident involving Michael Jackson's plastic surgeon." COLOR 1 PRINT "I'm running short on time, so I'd better cut to the chase. I'm here to arrest" PRINT "you in the name of the king." COLOR 2 PRINT "Okay, I give up. I'll turn myself in." m$ = INPUT$(1) CLS A = 100 b = 100 COLOR 4 CIRCLE (A, b), 20 DRAW "c14 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 14, 0 CIRCLE (A, b), 19: CIRCLE (A, b), 18: CIRCLE (A, b), 17: CIRCLE (A, b), 16: CIRCLE (A, b), 15: CIRCLE (A, b), 14: CIRCLE (A, b), 13: CIRCLE (A, b), 12: CIRCLE (A, b), 11: CIRCLE (A, b), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c3 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c3 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 br5 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 r5 l10" c = 400 d = 100 COLOR 4 CIRCLE (c, d), 20 DRAW "c7 u7 l9 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19 d1 l19 d1 r19" COLOR 7, 0 CIRCLE (c, d), 19: CIRCLE (c, d), 18: CIRCLE (c, d), 17: CIRCLE (c, d), 16: CIRCLE (c, d), 15: CIRCLE (c, d), 14: CIRCLE (c, d), 13: CIRCLE (c, d), 12: CIRCLE (c, d), 11: CIRCLE (c, d), 10 DRAW "c4 bd9 bl8 l5 g5 d15 r35 u15 h5 l5 r4 bd1 c7 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l1 f5 l1 h5 l10 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1" DRAW "g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 r1 g5 r1 e5 d6 r7 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 d1 r33 d1 l33 c4 br5 bd2 d20 r25 u20 c2 bl1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1" DRAW "c7 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23 d1 l23 d1 r23" DRAW "c4 bd1 l12 u15 bu5 bl10 u10 d9 r18 u9 bu20 bl20 l2 u3 r3 d3 l2 u2 r2 d2 l1 u1 bd5 l5 r10" FOR Z = 1 TO 500 NEXT Z COLOR 2 PRINT "What more do you want? I turned myself in." COLOR 1 PRINT "I want to go home, but I never think I will...(SOB)..." COLOR 2 PRINT "Why, you've had the ability to go home all the time!" COLOR 1 PRINT "...What?" COLOR 2 PRINT "Just click your heels together three times and say `there's no place like home'." COLOR 1 PRINT "There's no place like home...there's no place like home...There's--" m$ = INPUT$(1) CLS SCREEN 1 PRINT "The rest of this game has been scraped" PRINT "due to copyright infringment. Sorry." PLAY "o3l5ddl2ap4l5agfedefl2gp4" PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4" CLS SCREEN 1 PRINT "YOU'VE BEEN PLAYING TRAPPED IN PARADISE" PRINT PRINT PRINT "GAME DESIGNED BY JONATHAN DEWBRE" PRINT PRINT "STORY AND SCREENPLAY BY JONATHAN DEWBRE" PLAY "o3l5ddl2ap4l5agfedefl2gp4" PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4" CLS PRINT PRINT "GRAPHICS BY JONATHAN DEWBRE" PRINT PRINT "PROGRAMMED BY JONATHAN DEWBRE" PRINT PRINT "INSULTS BY JONATHAN DEWBRE" PRINT PRINT "PARSER INTERFACE BY JONATHAN DEWBRE" PRINT PRINT "PROGRAMMED ON QBASIC MS-DOS" PLAY "o3l5cccl2cl5cc#d#d#l2f" PLAY "o3l5fffffl2f" PLAY "l5o3fd#fl2g-" PLAY "l5o3g-g-g-l2g-l5fg-fg#l2d#" PLAY "l5o3d#d#d#l2d" PLAY "l5o3dfgfdl2cp4" CLS PRINT PRINT "THE SONG `STRANGER IN PARADISE'" PRINT "FROM THE BROADWAY SHOW `KISMET'" PRINT PRINT "THE LYRICS `PATIENT IN PARADISE'" PRINT "FROM `THE AMERICAN RADIO COMPANY'" PRINT "ON PUBLIC RADIO" PRINT PRINT "WIZARD OF OZ COPYRIGHT 1939 MGM STUDIOS" PLAY "o3l5ddl2ap4l5agfedefl2gp4" PLAY "o3l5aedco2aao3l2dp4l5edcco2bo3co2bl2al5p4" CLS PRINT PRINT "FINAL SCORE - "; score PRINT PRINT "GOOD JOB!" PLAY "o3l5ddl2ap4l5agfedefl2gp4" PLAY "o3l5aedco2aao3l2dp4l5edco2bo3l2cl5p4" plum: FOR Z = 1 TO 50000 NEXT Z GOTO plum END SUB SUB TELEVISION (opie$, name$, score, cabopen$, dollars, lottery$, laundry$, rung$, carrot$, antenna$, ladfix$, crowbar$) SCREEN 8 CLS DRAW "c15 bu50 l100 g30 br70 e5 r30 f5 d10 g5 l30 h5 u10 bf10 br15" FOR Z = 1 TO 5 DRAW "u5 r1 d5 r1" NEXT Z DRAW "u5 bu34 br26 bu1 r100 f30 bl70 h5 l30 g5 d10 f5 r30 e5 u10 bg10 bl15" FOR Z = 1 TO 5 DRAW "u5 l1 d5 l1" NEXT Z DRAW "u5 br105 bu4 d50 g50 l162 h50 u50 bf60 r150" COLOR 2 PRINT "You're watching channel VBG, the very bad graphics channel. Now we" PRINT "announce our VBG lotto, which includes our grand prize of a fifty" PRINT "day trip to the very exclusive paradise isle. To register visit your" FOR x = 1 TO 15000 NEXT x CLS COLOR 15 DRAW "c15 bu50 l100 g30 br70 e5 r30 f5 d10 g5 l30 h5 u10 bf10 br15" FOR Z = 1 TO 5 DRAW "u5 r1 d5 r1" NEXT Z DRAW "u5 bu34 br26 bu1 r100 f30 bl70 h5 l30 g5 d10 f5 r30 e5 u10 bg10 bl15" FOR Z = 1 TO 5 DRAW "u5 l1 d5 l1" NEXT Z DRAW "u5 br105 bu4 d50 g50 l162 h50 u50 bf60 r150" COLOR 2 PRINT "local laundrers. Com'n, the tickets only cost a dollar! What can you" PRINT "lose?" IF lottery$ = "got" THEN LET lottery$ = "okay" IF lottery$ = "okay" THEN GOTO won FOR x = 1 TO 9000 NEXT x GOTO suit won: FOR x = 1 TO 5000 NEXT x CLS COLOR 15 DRAW "c15 bu50 l100 g30 br70 e5 r30 f5 d10 g5 l30 h5 u10 bf10 br15" FOR Z = 1 TO 5 DRAW "u5 r1 d5 r1" NEXT Z DRAW "u5 bu34 br26 bu1 r100 f30 bl70 h5 l30 g5 d10 f5 r30 e5 u10 bg10 bl15" FOR Z = 1 TO 5 DRAW "u5 l1 d5 l1" NEXT Z DRAW "u5 br105 bu4 d50 g50 l162 h50 u50 bf60 r150" COLOR 1 PRINT "You glance down at your lottery ticket and scream with sheer joy! YOU" PRINT "WON!!! YOU GOT ALL THE NUMBERS!!! You've got fifty million dollars" PRINT "now! What are you going to do with it?" FOR x = 1 TO 9000 NEXT x suit: END SUB