From f8dd4bfece66d273b0ff8e3f5f261065da95e8c5 Mon Sep 17 00:00:00 2001 From: gondur Date: Mon, 2 Jul 2018 18:59:11 +0200 Subject: [PATCH] Add files via upload source code from https://www.ifarchive.org/if-archive/games/appleII/softporn.zip --- CHAIN.bin | 244 +++++++++++ INTRO.bas | 4 + SOFTPORN ADVENTURE.bas | 1 + __.bas | 900 +++++++++++++++++++++++++++++++++++++++++ ___.bas | 34 ++ ____.bas | Bin 0 -> 16174 bytes _____.bas | 123 ++++++ softporn.dsk | Bin 0 -> 143360 bytes 8 files changed, 1306 insertions(+) create mode 100644 CHAIN.bin create mode 100644 INTRO.bas create mode 100644 SOFTPORN ADVENTURE.bas create mode 100644 __.bas create mode 100644 ___.bas create mode 100644 ____.bas create mode 100644 _____.bas create mode 100644 softporn.dsk diff --git a/CHAIN.bin b/CHAIN.bin new file mode 100644 index 0000000..83f7929 --- /dev/null +++ b/CHAIN.bin @@ -0,0 +1,244 @@ +0808- 20 85 03 JSR $0385 +080B- 20 A6 03 JSR $03A6 +080E- A9 07 LDA #$07 +0810- 85 8F STA $8F +0812- A5 69 LDA $69 +0814- A6 6A LDX $6A +0816- 85 9D STA $9D +0818- 86 9E STX $9E +081A- E4 6C CPX $6C +081C- D0 04 BNE $0822 +081E- C5 6B CMP $6B +0820- F0 05 BEQ $0827 +0822- 20 7E 02 JSR $027E +0825- F0 F3 BEQ $081A +0827- 85 9F STA $9F +0829- 86 A0 STX $A0 +082B- A9 03 LDA #$03 +082D- 85 8F STA $8F +082F- A5 9F LDA $9F +0831- A6 A0 LDX $A0 +0833- E4 6E CPX $6E +0835- D0 07 BNE $083E +0837- C5 6D CMP $6D +0839- D0 03 BNE $083E +083B- 4C E0 02 JMP $02E0 +083E- 85 9D STA $9D +0840- 86 9E STX $9E +0842- A0 00 LDY #$00 +0844- B1 9D LDA ($9D),Y +0846- AA TAX +0847- C8 INY +0848- B1 9D LDA ($9D),Y +084A- 08 PHP +084B- C8 INY +084C- B1 9D LDA ($9D),Y +084E- 65 9F ADC $9F +0850- 85 9F STA $9F +0852- C8 INY +0853- B1 9D LDA ($9D),Y +0855- 65 A0 ADC $A0 +0857- 85 A0 STA $A0 +0859- 28 PLP +085A- 10 D3 BPL $082F +085C- 8A TXA +085D- 30 D0 BMI $082F +085F- C8 INY +0860- B1 9D LDA ($9D),Y +0862- A0 00 LDY #$00 +0864- 0A ASL +0865- 69 05 ADC #$05 +0867- 65 9D ADC $9D +0869- 85 9D STA $9D +086B- 90 02 BCC $086F +086D- E6 9E INC $9E +086F- A6 9E LDX $9E +0871- E4 A0 CPX $A0 +0873- D0 04 BNE $0879 +0875- C5 9F CMP $9F +0877- F0 BA BEQ $0833 +0879- 20 88 02 JSR $0288 +087C- F0 F3 BEQ $0871 +087E- B1 9D LDA ($9D),Y +0880- 30 46 BMI $08C8 +0882- C8 INY +0883- B1 9D LDA ($9D),Y +0885- 10 41 BPL $08C8 +0887- C8 INY +0888- B1 9D LDA ($9D),Y +088A- F0 3C BEQ $08C8 +088C- C8 INY +088D- B1 9D LDA ($9D),Y +088F- AA TAX +0890- C8 INY +0891- B1 9D LDA ($9D),Y +0893- 85 9C STA $9C +0895- 86 9B STX $9B +0897- C5 B0 CMP $B0 +0899- F0 02 BEQ $089D +089B- B0 2B BCS $08C8 +089D- 88 DEY +089E- 88 DEY +089F- B1 9D LDA ($9D),Y +08A1- 48 PHA +08A2- 38 SEC +08A3- A5 6F LDA $6F +08A5- 85 94 STA $94 +08A7- F1 9D SBC ($9D),Y +08A9- C8 INY +08AA- 91 9D STA ($9D),Y +08AC- 85 6F STA $6F +08AE- C8 INY +08AF- A5 70 LDA $70 +08B1- 85 95 STA $95 +08B3- E9 00 SBC #$00 +08B5- 91 9D STA ($9D),Y +08B7- 85 70 STA $70 +08B9- 68 PLA +08BA- 18 CLC +08BB- 65 9B ADC $9B +08BD- 85 96 STA $96 +08BF- A5 9C LDA $9C +08C1- 69 00 ADC #$00 +08C3- 85 97 STA $97 +08C5- 20 A9 03 JSR $03A9 +08C8- A5 8F LDA $8F +08CA- 18 CLC +08CB- 65 9D ADC $9D +08CD- 85 9D STA $9D +08CF- 90 02 BCC $08D3 +08D1- E6 9E INC $9E +08D3- A5 9D LDA $9D +08D5- A6 9E LDX $9E +08D7- A0 00 LDY #$00 +08D9- 60 RTS +08DA- C4 C1 CPY $C1 +08DC- CF ??? +08DD- CC 84 8D CPY $8D84 +08E0- A9 00 LDA #$00 +08E2- 85 94 STA $94 +08E4- 85 9C STA $9C +08E6- 85 97 STA $97 +08E8- A9 69 LDA #$69 +08EA- 85 9B STA $9B +08EC- A9 71 LDA #$71 +08EE- 85 96 STA $96 +08F0- A9 01 LDA #$01 +08F2- 85 95 STA $95 +08F4- 20 A9 03 JSR $03A9 +08F7- A2 01 LDX #$01 +08F9- B5 69 LDA $69,X +08FB- 95 9B STA $9B,X +08FD- B5 6D LDA $6D,X +08FF- 95 96 STA $96,X +0901- B5 6F LDA $6F,X +0903- 95 94 STA $94,X +0905- CA DEX +0906- F0 F1 BEQ $08F9 +0908- 20 A9 03 JSR $03A9 +090B- A5 94 LDA $94 +090D- 85 A1 STA $A1 +090F- A6 95 LDX $95 +0911- E8 INX +0912- 86 A2 STX $A2 +0914- A0 06 LDY #$06 +0916- B9 D9 02 LDA $02D9,Y +0919- 20 A0 03 JSR $03A0 +091C- 88 DEY +091D- D0 F7 BNE $0916 +091F- C8 INY +0920- B1 B8 LDA ($B8),Y +0922- F0 0A BEQ $092E +0924- C9 22 CMP #$22 +0926- F0 06 BEQ $092E +0928- 20 A0 03 JSR $03A0 +092B- C8 INY +092C- D0 F2 BNE $0920 +092E- A9 3C LDA #$3C +0930- 85 36 STA $36 +0932- A9 03 LDA #$03 +0934- 85 37 STA $37 +0936- 20 EA 03 JSR $03EA +0939- 4C A3 03 JMP $03A3 +093C- 20 93 FE JSR $FE93 F8ROM:SETVID +093F- 20 EA 03 JSR $03EA +0942- 20 9D 03 JSR $039D +0945- 38 SEC +0946- A5 69 LDA $69 +0948- E5 F8 SBC $F8 +094A- 85 9D STA $9D +094C- A5 6A LDA $6A +094E- E5 F9 SBC $F9 +0950- 85 9E STA $9E +0952- A2 FA LDX #$FA +0954- 20 76 03 JSR $0376 +0957- E8 INX +0958- 20 76 03 JSR $0376 +095B- A2 01 LDX #$01 +095D- B5 FE LDA $FE,X +095F- 95 6F STA $6F,X +0961- 95 3E STA $3E,X +0963- B5 A1 LDA $A1,X +0965- 95 3C STA $3C,X +0967- B5 69 LDA $69,X +0969- 95 42 STA $42,X +096B- CA DEX +096C- F0 EF BEQ $095D +096E- A0 00 LDY #$00 +0970- 20 2C FE JSR $FE2C F8ROM:MOVE +0973- 6C AE 03 JMP ($03AE) +0976- 18 CLC +0977- B5 00 LDA $00,X +0979- 65 9D ADC $9D +097B- 95 71 STA $71,X +097D- E8 INX +097E- B5 00 LDA $00,X +0980- 65 9E ADC $9E +0982- 95 71 STA $71,X +0984- 60 RTS +0985- AD 00 E0 LDA $E000 +0988- A0 0B LDY #$0B +098A- C9 4C CMP #$4C +098C- F0 02 BEQ $0990 +098E- A0 17 LDY #$17 +0990- A2 0B LDX #$0B +0992- B9 B8 03 LDA $03B8,Y +0995- 9D AC 03 STA $03AC,X +0998- 88 DEY +0999- CA DEX +099A- 10 F6 BPL $0992 +099C- 60 RTS +099D- 6C AC 03 JMP ($03AC) +09A0- 6C B2 03 JMP ($03B2) +09A3- 6C B0 03 JMP ($03B0) +09A6- 6C B4 03 JMP ($03B4) +09A9- 6C B6 03 JMP ($03B6) +09AC- 00 BRK +09AD- 00 BRK +09AE- 00 BRK +09AF- 00 BRK +09B0- 00 BRK +09B1- 00 BRK +09B2- 00 BRK +09B3- 00 BRK +09B4- 00 BRK +09B5- 00 BRK +09B6- 00 BRK +09B7- 00 BRK +09B8- 65 D6 ADC $D6 +09BA- D2 D7 CMP ($D7) +09BC- FB ??? +09BD- DA PHX +09BE- 5C ??? +09BF- DB ??? +09C0- 84 E4 STY $E4 +09C2- 9A TXS +09C3- D3 ??? +09C4- 65 0E ADC $0E +09C6- D4 ??? +09C7- 0F ??? +09C8- FC ??? +09C9- 12 5F ORA ($5F) +09CB- 13 ??? +09CC- 7B ??? +09CD- 1C 9A 0B TRB $0B9A diff --git a/INTRO.bas b/INTRO.bas new file mode 100644 index 0000000..6752171 --- /dev/null +++ b/INTRO.bas @@ -0,0 +1,4 @@ + 10 PRINT "NOMON C,I,O" + 20 NORMAL : TEXT : SPEED= 255 + 30 PRINT "RUN SOFTPORN ADVENTURE" + 40 END diff --git a/SOFTPORN ADVENTURE.bas b/SOFTPORN ADVENTURE.bas new file mode 100644 index 0000000..42e0f6f --- /dev/null +++ b/SOFTPORN ADVENTURE.bas @@ -0,0 +1 @@ + 1 CALL 4096 diff --git a/__.bas b/__.bas new file mode 100644 index 0000000..5463bff --- /dev/null +++ b/__.bas @@ -0,0 +1,900 @@ + 5 HOME + 580 CJ = 3 + 590 REM + 600 GOSUB 990 + 601 IF C < > 3 THEN D%(3) = 3 + 610 GOSUB 1750: VTAB 24: HTAB 1 + 622 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868 + 623 IF T%(C) = 0 THEN T%(C) = 1:T = 40: GOSUB 3750 + 625 IF C = 15 AND WR = 1 THEN PRINT "A PASSERBY KILLS ME FOR WEARING MY KINKYRUBBER IN PUBLIC!": GOTO 5000 + 630 GOTO 2000 + 990 POKE 34,0: VTAB 1: HTAB 1: CALL - 868 + 1000 ON C GOTO 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260,1270,1280,1290,1300 + 1010 PRINT "I'M IN A HALLWAY.": RETURN + 1020 PRINT "I'M IN A BATHROOM.": RETURN + 1030 PRINT "I'M IN A SLEAZY BAR.": RETURN + 1040 PRINT "I'M ON A STREET OUTSIDE THE BAR.": RETURN + 1050 PRINT "I'M IN THE BACKROOM.": RETURN + 1060 PRINT "I'M IN A FILTHY DUMPSTER!": RETURN + 1070 PRINT "I'M INSIDE THE ROOM I BROKE INTO!": RETURN + 1080 PRINT "I'M ON A WINDOW LEDGE.": RETURN + 1090 PRINT "I'M IN A HOOKER'S BEDROOM.": RETURN + 1100 PRINT "I'M ON A HOOKER'S BALCONY.": RETURN + 1110 PRINT "I'M ON A DOWNTOWN STREET.": RETURN + 1120 PRINT "I'M IN A QUICKIE MARRIAGE CENTER.": RETURN + 1130 PRINT "I'M IN THE MAIN CASINO ROOM.": RETURN + 1140 PRINT "I'M IN THE '21 ROOM'.": RETURN + 1150 PRINT "I'M IN THE LOBBY OF THE HOTEL.": RETURN + 1160 PRINT "I'M IN THE HONEYMOON SUITE.": RETURN + 1170 PRINT "I'M IN THE HOTEL HALLWAY.": RETURN + 1180 PRINT "I'M ON THE HONEYMOONER'S BALCONY.": RETURN + 1190 PRINT "I'M AT THE HOTEL DESK.": RETURN + 1200 PRINT "I'M IN A TELEPHONE BOOTH.": RETURN + 1210 PRINT "I'M IN THE DISCO.": RETURN + 1220 PRINT "I'M ON A RESIDENTIAL STREET.": RETURN + 1230 PRINT "I'M IN THE DISCO'S ENTRANCE.": RETURN + 1240 PRINT "I'M IN THE PHARMACY.": RETURN + 1250 PRINT "I'M IN THE PENTHOUSE FOYER.": RETURN + 1260 PRINT "I'M IN THE JACUZZI!": RETURN + 1270 PRINT "I'M IN THE KITCHEN.": RETURN + 1280 PRINT "I'M IN THE GARDEN.": RETURN + 1290 PRINT "I'M IN THE LIVING ROOM.": RETURN + 1300 PRINT "I'M ON THE PENTHOUSE PORCH.": RETURN + 1500 IF ST < > 2 THEN ST = 0 + 1510 PRINT : PRINT : PRINT "OTHER AREAS ARE: "; + 1520 ON D%(C) GOSUB 1600,1603,1606,1609,1612,1615,1618,1621,1624,1627,1630,1633,1636,1639,1642,1645,1648,1651,1654 + 1534 PRINT ":::::::::::::::::::::::::::::::::::::::" + 1535 CB = PEEK (37) + 1 + 1536 IF CJ < PEEK (37) THEN 1542 + 1538 FOR X = CB TO CJ: VTAB X: CALL - 868: NEXT + 1542 POKE 34,CB: POKE 35,24:CJ = CB + 1548 RETURN + 1600 PRINT "NORTH AND EAST": RETURN + 1603 PRINT "SOUTH": RETURN + 1606 PRINT "NORTH AND WEST": RETURN + 1609 PRINT "NORTH, EAST AND WEST": RETURN + 1612 PRINT "WEST AND UP": RETURN + 1615 PRINT "WEST": RETURN + 1618 PRINT "NORTH": RETURN + 1621 PRINT "SOUTH AND EAST": RETURN + 1624 PRINT "NORTH AND DOWN": RETURN + 1627 PRINT "SOUTH AND DOWN": RETURN + 1630 PRINT "SOUTH, EAST AND WEST": RETURN + 1633 PRINT "EAST AND UP": RETURN + 1636 PRINT "SOUTH, WEST AND DOWN": RETURN + 1639 PRINT "WEST AND DOWN": RETURN + 1642 PRINT "SOUTH AND WEST": RETURN + 1645 PRINT "BY MAGIC!": RETURN + 1648 PRINT "NORTH, EAST AND UP": RETURN + 1651 PRINT "UP": RETURN + 1654 PRINT "EAST": RETURN + 1750 REM VIS ITEMS RTN + 1754 POKE 34,2: POKE 35,CJ: HOME : POKE 35,24 + 1758 PRINT "ITEMS IN SIGHT ARE: "; + 1762 IF V1%(C,1) = 0 THEN PRINT : PRINT "NOTHING AT ALL!!!!!": GOTO 1500 + 1766 FOR X = 2 TO V1%(C,1) + 1 + 1774 IF X < > 2 THEN PRINT ", "; + 1778 ON V1%(C,X) GOSUB 0,0,0,0,0,0,0,1800,1801,1802,1803,1804,1805,1806,1807,1808,1809,1810,1811,1812,1813,1814,1881,1815,1816,1817,1818 + 1779 VV = V1%(C,X) - 27: IF VV < 1 THEN 1790 + 1780 ON VV GOSUB 1819,1878,1820,0,1821,1822,1823,1824,1825,0,0,0,0,1827,1828,1826,1829,1830,1831,1862,1834,1835,1850,1851,1852,1853 + 1782 VC = V1%(C,X) - 52: IF VC < 1 THEN 1790 + 1786 ON VC GOSUB 1853,1854,1855,1856,1857,1858,1859,1860,1861,0,0,1864,1865,1866,1867,1868,1870,0,0,1871,1872,1873,1874,1875,1876,0,0,0,1877,0,1879,1880 + 1790 IF LEN (VC$) < (38 - PEEK (36)) THEN PRINT VC$;: NEXT + 1792 IF V1%(C,1) + 1 < X THEN 1796 + 1794 PRINT : CALL - 868: PRINT VC$;: NEXT + 1796 IF C = 31 THEN RETURN + 1797 GOTO 1500 + 1800 VC$ = "A DESK": RETURN + 1801 VC$ = "A WASHBASIN": RETURN + 1802 VC$ = "GRAFITTI": RETURN + 1803 VC$ = "A MIRROR": RETURN + 1804 VC$ = "A TOILET": RETURN + 1805 VC$ = "A BUSINESSMAN": RETURN + 1806 VC$ = "A BUTTON": RETURN + 1807 VC$ = "THE BARTENDER": RETURN + 1808 VC$ = "A BIG DUDE!": RETURN + 1809 VC$ = "A FUNKY HOOKER": RETURN + 1810 VC$ = "A BILLBOARD": RETURN + 1811 VC$ = "A PREACHER": RETURN + 1812 VC$ = "A TV": RETURN + 1813 VC$ = "SLOT MACHINES": RETURN + 1814 VC$ = "CARDS": RETURN + 1815 VC$ = "AN ASHTRAY": RETURN + 1816 VC$ = "A VOLUPTOUS BLONDE": RETURN + 1817 VC$ = "A BED": RETURN + 1818 VC$ = "A BUM": RETURN + 1819 VC$ = "A PEEP HOLE": RETURN + 1820 VC$ = "A DOOR TO THE WEST": RETURN + 1821 VC$ = "A WAITRESS": RETURN + 1822 VC$ = "A TABLE": RETURN + 1823 VC$ = "A TELEPHONE": RETURN + 1824 VC$ = "A CLOSET": RETURN + 1825 VC$ = "A SINK": RETURN + 1826 VC$ = "AN ELEVATOR": RETURN + 1827 VC$ = "A DEALER": RETURN + 1828 VC$ = "A CABINET": RETURN + 1829 VC$ = "BUSHES": RETURN + 1830 VC$ = "A TREE": RETURN + 1831 VC$ = "A WINDOW": RETURN + 1834 VC$ = "A SIGN": RETURN + 1835 VC$ = "A GIRL": RETURN + 1850 VC$ = "A NEWSPAPER": RETURN + 1851 VC$ = "A WEDDING RING": RETURN + 1852 VC$ = "A SHOT OF WHISKEY": RETURN + 1853 VC$ = "A BEER": RETURN + 1855 VC$ = "A HAMMER": RETURN + 1856 VC$ = "GARBAGE": RETURN + 1857 VC$ = "FLOWERS": RETURN + 1858 VC$ = "THE CORE OF AN APPLE": RETURN + 1859 VC$ = "SEEDS": RETURN + 1860 VC$ = "CANDY": RETURN + 1861 VC$ = "PILLS": RETURN + 1862 VC$ = "A PLANT": RETURN + 1864 VC$ = "A PASSCARD": RETURN + 1865 VC$ = "A RADIO": RETURN + 1866 VC$ = "A POCKET KNIFE": RETURN + 1868 VC$ = "ADVENTUREBOY MAGAZINE": RETURN + 1870 VC$ = "A RUBBER": RETURN + 1871 VC$ = "A BOTTLE OF WINE": RETURN + 1872 VC$ = "A WALLET": RETURN + 1873 VC$ = "AN INFLATABLE DOLL": RETURN + 1874 VC$ = "AN APPLE": RETURN + 1875 VC$ = "A PITCHER": RETURN + 1876 VC$ = "A STOOL": RETURN + 1877 VC$ = "A ROPE": RETURN + 1878 VC$ = "A DISPLAY RACK": RETURN + 1879 VC$ = "A MUSHROOM": RETURN + 1880 VC$ = "A REMOTE CONTROL UNIT": RETURN + 1881 VC$ = "A CURTAIN": RETURN + 2000 VTAB 24: HTAB 1:V = 0:N = 0:VB$ = "":NN$ = "" + 2001 ONERR GOTO 2002: NEXT : NEXT : NEXT : NEXT : NEXT + 2002 ONERR GOTO 2003: POP : POP : POP : POP : POP + 2003 ONERR GOTO 8000:LZ = 0: POKE - 16368,0 + 2004 IF C = 30 AND TE = 1 THEN PRINT "THE TELEPHONE RINGS...." + 2005 PRINT : INPUT "WHAT SHALL I DO? ";IN$ + 2010 IF LEN (IN$) = 0 THEN 2400 + 2011 IF IN$ = "SAVE GAME" THEN PRINT D$;"BLOAD CHAIN,A520": CALL 520" LOG LOG LOG " + 2012 IF IN$ = "QUIT" THEN IN$ = "Q" + 2014 IF IN$ = "SCORE" THEN PRINT "YOUR SCORE IS ";SC;" OUT OF '3'": GOTO 2000 + 2015 IF RR = 1 AND LEN (IN$) = 1 THEN 6240 + 2020 IF IN$ = "N" THEN 2500 + 2030 IF IN$ = "S" THEN 2600 + 2040 IF IN$ = "E" THEN 2700 + 2050 IF IN$ = "W" THEN 2800 + 2060 IF IN$ = "U" THEN 2900 + 2070 IF IN$ = "D" THEN 3000 + 2080 IF IN$ < > "Q" THEN 2090 + 2081 PRINT "SAVE GAME?? (Y/N)": INPUT IN$: POKE 34,0: IF LEFT$ (IN$,1) = "Y" THEN IN$ = "SAVE GAME": GOTO 2011 + 2082 HOME : NEW : END + 2090 IF IN$ = "I" THEN 3500 + 2100 IF RIGHT$ (IN$,1) = " " THEN IN$ = LEFT$ (IN$, LEN (IN$) - 1): GOTO 2100 + 2105 IF IN$ = "LOOK" THEN T = 0: GOTO 3750 + 2110 FOR X = 1 TO 20 + 2120 IF MID$ (IN$,X,1) = " " THEN 2130 + 2122 IF LEN (IN$) = X THEN VB$ = IN$: GOTO 2195 + 2125 NEXT + 2130 VB$ = LEFT$ (IN$,X - 1) + 2140 NN$ = RIGHT$ (IN$, LEN (IN$) - X) + 2155 IF LEFT$ (NN$,1) = " " THEN NN$ = RIGHT$ (NN$, LEN (NN$) - 1): GOTO 2155 + 2195 QVB$ = VB$:QNN$ = NN$ + 2196 IF LEN (NN$) > 3 THEN NN$ = LEFT$ (NN$,4) + 2197 IF LEN (VB$) > 3 THEN VB$ = LEFT$ (VB$,4) + 2198 IF LEN (NN$) > 3 THEN NN$ = LEFT$ (NN$,4) + 2200 IF VB$ = "GO" THEN V = 1 + 2201 IF VB$ = "HAIL" THEN V = 2 + 2202 IF VB$ = "TAKE" OR VB$ = "GET" OR VB$ = "GRAB" THEN V = 3 + 2204 IF VB$ = "DROP" OR VB$ = "LEAV" OR VB$ = "PLAN" OR VB$ = "GIVE" THEN V = 4 + 2206 IF VB$ = "LOOK" OR VB$ = "SEAR" OR VB$ = "EXAM" OR VB$ = "READ" THEN V = 5 + 2207 IF VB$ = "FLUS" THEN V = 6 + 2208 IF VB$ = "OPEN" OR VB$ = "PULL" THEN V = 7 + 2210 IF VB$ = "INFL" THEN V = 8 + 2211 IF VB$ = "PLAY" THEN V = 9 + 2212 IF VB$ = "PRES" OR VB$ = "PUSH" THEN V = 10 + 2213 IF VB$ = "ENTE" THEN V = 11 + 2214 IF VB$ = "EAT" THEN V = 12 + 2215 IF VB$ = "DRIN" THEN V = 13 + 2216 IF VB$ = "BUY" OR VB$ = "ORDE" THEN V = 14 + 2217 IF VB$ = "CLIM" THEN V = 15 + 2218 IF VB$ = "WATE" THEN V = 16 + 2219 IF VB$ = "FILL" THEN V = 17 + 2220 IF VB$ = "POUR" THEN V = 18 + 2221 IF VB$ = "LIST" THEN V = 19 + 2222 IF VB$ = "CLOS" THEN V = 20 + 2223 IF VB$ = "JUMP" THEN V = 21 + 2224 IF VB$ = "MARR" THEN V = 23 + 2225 IF VB$ = "FUCK" OR VB$ = "SEDU" OR VB$ = "RAPE" OR VB$ = "SCRE" THEN V = 24 + 2226 IF VB$ = "WEAR" OR VB$ = "USE" THEN V = 25 + 2227 IF VB$ = "TV" THEN V = 22 + 2228 IF VB$ = "ANSW" THEN V = 27 + 2229 IF VB$ = "CALL" OR VB$ = "DIAL" THEN V = 26 + 2230 IF VB$ = "BREA" OR VB$ = "SMAS" THEN V = 28 + 2231 IF VB$ = "CUT" THEN V = 29 + 2232 IF VB$ = "DANC" THEN V = 30 + 2233 IF VB$ = "KILL" THEN V = 31 + 2234 IF VB$ = "PAY" THEN V = 32 + 2235 IF VB$ = "SMOK" THEN V = 33 + 2236 IF VB$ = "SHOW" THEN V = 34 + 2237 IF VB$ = "SMEL" THEN V = 35 + 2291 IF VB$ = "HELP" THEN PRINT "SORRY, THAT DOES NOT COMPUTE": GOTO 2000 + 2293 IF NN$ = "LADY" AND V < > 0 THEN PRINT "THAT'S NO LADY!!! THAT'S MY SISTER!!!!": GOTO 2000 + 2295 IF VB$ = "KISS" THEN PRINT "";: PRINT "DON'T DO THAT!!!! IT GETS ME EXCITED!!": GOTO 2000 + 2297 IF VB$ = "STAB" THEN PRINT "OK- WARMONGER!": FOR X = 1 TO 1000: NEXT : PRINT "PARRY!!": FOR X = 1 TO 500: NEXT : PRINT "THRUST!!!": FOR X = 1 TO 1000: NEXT : FLASH : PRINT "I JUST GOT MYSELF!!": NORMAL : GOTO 5000 + 2298 IF VB$ = "SAY" THEN PRINT "OK": PRINT QNN$: GOTO 2000 + 2299 IF VB$ = "TKAE" OR VB$ = "TAEK" THEN PRINT "LEARN TO SPELL IDIOT!": GOTO 2000 + 2300 IF NN$ = "NORT" THEN N = 1 + 2301 IF NN$ = "SOUT" THEN N = 2 + 2302 IF NN$ = "EAST" THEN N = 3 + 2303 IF NN$ = "WEST" THEN N = 4 + 2304 IF NN$ = "UP" THEN N = 5 + 2305 IF NN$ = "DOWN" THEN N = 6 + 2306 IF NN$ = "TAXI" OR NN$ = "CAB" THEN N = 7 + 2307 IF NN$ = "DESK" OR NN$ = "DRAW" THEN N = 8 + 2308 IF NN$ = "WASH" OR NN$ = "BASI" THEN N = 9 + 2309 IF NN$ = "GRAF" THEN N = 10 + 2310 IF NN$ = "MIRR" THEN N = 11 + 2311 IF NN$ = "TOIL" THEN N = 12 + 2312 IF NN$ = "BUSI" THEN N = 13 + 2313 IF NN$ = "BUTT" THEN N = 14 + 2314 IF NN$ = "BART" THEN N = 15 + 2315 IF NN$ = "DUDE" OR NN$ = "PIMP" THEN N = 16 + 2316 IF NN$ = "HOOK" THEN N = 17 + 2317 IF NN$ = "BILL" THEN N = 18 + 2318 IF NN$ = "PREA" THEN N = 19 + 2319 IF NN$ = "TV" THEN N = 20 + 2320 IF NN$ = "SLOT" OR NN$ = "MACH" THEN N = 21 + 2321 IF NN$ = "CARD" THEN N = 22 + 2322 IF NN$ = "CURT" THEN N = 23 + 2323 IF NN$ = "ASHT" THEN N = 24 + 2324 IF NN$ = "BLON" THEN N = 25 + 2325 IF NN$ = "BED" THEN N = 26 + 2326 IF NN$ = "BUM" THEN N = 27 + 2327 IF NN$ = "HOLE" THEN N = 28 + 2328 IF NN$ = "DISP" OR NN$ = "RACK" THEN N = 29 + 2329 IF NN$ = "DOOR" THEN N = 30 + 2330 IF NN$ = "MUSH" THEN N = 83 + 2331 IF NN$ = "WAIT" THEN N = 32 + 2332 IF NN$ = "TABL" THEN N = 33 + 2333 IF NN$ = "TELE" OR NN$ = "PHON" THEN N = 34 + 2334 IF NN$ = "CLOS" THEN N = 35 + 2335 IF NN$ = "SINK" THEN N = 36 + 2336 IF NN$ = "21" THEN N = 37 + 2337 IF NN$ = "ON" THEN N = 38 + 2338 IF NN$ = "OFF" THEN N = 39 + 2339 IF NN$ = "INVE" THEN N = 40 + 2340 IF NN$ = "DEAL" THEN N = 41 + 2341 IF NN$ = "CABI" THEN N = 42 + 2342 IF NN$ = "ELEV" THEN N = 43 + 2343 IF NN$ = "PLAN" THEN N = 47 + 2344 IF NN$ = "BUSH" THEN N = 44 + 2345 IF NN$ = "TREE" THEN N = 45 + 2346 IF NN$ = "WIND" THEN N = 46 + 2347 IF NN$ = "SIGN" THEN N = 48 + 2348 IF NN$ = "GIRL" OR NN$ = "EVE" THEN N = 49 + 2349 IF NN$ = "NEWS" OR NN$ = "PAPE" THEN N = 50 + 2350 IF NN$ = "RING" THEN N = 51 + 2351 IF NN$ = "WHIS" OR NN$ = "SHOT" THEN N = 52 + 2352 IF NN$ = "BEER" THEN N = 53 + 2353 IF NN$ = "BAG" THEN N = 54 + 2354 IF NN$ = "HAMM" THEN N = 55 + 2355 IF NN$ = "GARB" OR NN$ = "TRAS" THEN N = 56 + 2356 IF NN$ = "FLOW" THEN N = 57 + 2357 IF NN$ = "CORE" THEN N = 58 + 2358 IF NN$ = "SEED" THEN N = 59 + 2359 IF NN$ = "CAND" THEN N = 60 + 2360 IF NN$ = "PILL" THEN N = 61 + 2361 IF NN$ = "DISC" THEN N = 62 + 2363 IF NN$ = "PASS" THEN N = 64 + 2364 IF NN$ = "RADI" THEN N = 65 + 2365 IF NN$ = "KNIF" THEN N = 66 + 2367 IF NN$ = "MAGA" THEN N = 68 + 2368 IF NN$ = "RUBB" THEN N = 69 + 2371 IF NN$ = "WINE" THEN N = 72 + 2372 IF NN$ = "WALL" THEN N = 73 + 2373 IF NN$ = "DOLL" THEN N = 74 + 2374 IF NN$ = "APPL" THEN N = 75 + 2375 IF NN$ = "PITC" THEN N = 76 + 2376 IF NN$ = "STOO" THEN N = 77 + 2377 IF NN$ = "SHIT" THEN N = 87 + 2378 IF NN$ = "WATE" THEN N = 82 + 2379 IF NN$ = "YOU" THEN N = 86 + 2380 IF NN$ = "ROPE" THEN N = 81 + 2381 IF NN$ = "INVE" THEN N = 85 + 2382 IF NN$ = "RACK" THEN N = 29 + 2383 IF NN$ = "CONT" OR NN$ = "UNIT" THEN N = 84 + 2384 IF V = 21 THEN 5500 + 2385 IF V = 0 THEN PRINT "I DON'T KNOW HOW TO ";QVB$;" SOMETHING!": GOTO 2000 + 2386 IF V = 26 THEN 5950 + 2387 IF V = 30 THEN 6250 + 2388 IF LEN (QNN$) = 0 THEN PRINT "GIMME A NOUN!!!!": GOTO 2000 + 2389 IF N = 0 THEN PRINT "I DON'T KNOW WHAT A ";QNN$;" IS!!": GOTO 2000 + 2390 ON V GOTO 3100,3120,3200,3250,3600,4500,4600,4650,4700,4800,4850,4900,4950,5150,5200,5250,5300,5350,5400,5450,5500,5550,5700,5800,5900,5950,6000,6150,6200,6250,6300,6350,6400,6450,6500,6600,6700 + 2400 PRINT "HUH?": GOTO 2000 + 2500 IF D%(C) = 1 THEN 2550 + 2505 IF D%(C) = 3 THEN 2550 + 2507 IF D%(C) = 4 THEN 2550 + 2509 IF D%(C) = 7 THEN 2550 + 2511 IF D%(C) = 9 THEN 2550 + 2513 IF D%(C) = 17 THEN 2550 + 2520 PRINT NG$: GOTO 2000 + 2550 IF C = 9 AND SC = 0 THEN PRINT "THE HOOKER SAYS 'DON'T GO THERE....DO ME FIRST!!!!'": GOTO 2000 + 2560 C = C + 1: GOTO 600 + 2600 IF D%(C) = 2 THEN 2650 + 2605 IF D%(C) = 8 THEN 2650 + 2610 IF D%(C) = 10 THEN 2650 + 2615 IF D%(C) = 11 THEN 2650 + 2620 IF D%(C) = 13 THEN 2650 + 2625 IF D%(C) = 15 THEN 2650 + 2630 PRINT NG$: GOTO 2000 + 2650 IF C = 17 AND GC < 5 THEN PRINT "THE DOOR IS LOCKED SHUT!": GOTO 2000 + 2660 C = C - 1: GOTO 600 + 2700 IF D%(C) = 1 THEN 2750 + 2705 IF D%(C) = 4 THEN 2750 + 2710 IF D%(C) = 8 THEN 2750 + 2715 IF D%(C) = 11 THEN 2750 + 2720 IF D%(C) = 17 THEN 2750 + 2725 IF D%(C) = 12 THEN 2750 + 2727 IF D%(C) = 19 THEN 2750 + 2730 PRINT NG$: GOTO 2000 + 2750 SS = 0:C = C + 2: GOTO 600 + 2800 IF D%(C) = 3 THEN 2850 + 2805 IF D%(C) = 4 THEN 2850 + 2810 IF D%(C) = 5 THEN 2850 + 2815 IF D%(C) = 6 THEN 2850 + 2820 IF D%(C) = 11 THEN 2850 + 2830 IF D%(C) = 13 THEN 2850 + 2835 IF D%(C) = 14 THEN 2850 + 2840 IF D%(C) = 15 THEN 2850 + 2845 PRINT NG$: GOTO 2000 + 2850 IF C < > 10 THEN 2852 + 2851 IF UR < > 1 THEN 5510 + 2852 IF C = 23 AND SS = 0 THEN PRINT "THE DOOR IS CLOSED!": GOTO 2000 + 2853 D%(23) = 2:C = C - 2: GOTO 600 + 2900 IF D%(C) = 5 THEN 2950 + 2905 IF D%(C) = 12 THEN 2950 + 2910 IF D%(C) = 17 THEN 2950 + 2915 IF D%(C) = 18 THEN 2950 + 2920 PRINT NG$: GOTO 2000 + 2950 IF C < > 5 OR SC < > 0 THEN 2953 + 2951 IF M < 10 THEN PRINT "THE PIMP SAYS I CAN'T UNTIL I GET $1000": GOTO 2000 + 2952 M = M - 10: PRINT "THE PIMP TAKES $1000 AND SAYS OK": GOTO 2960 + 2953 IF C = 5 AND BD = 0 THEN PRINT "THE PIMP SAYS 'NO WAY!!!! LEAVE MY GIRL ALONE!": GOTO 2000 + 2960 C = C + 4: GOTO 600 + 3000 IF D%(C) = 9 THEN 3050 + 3005 IF D%(C) = 10 THEN 3050 + 3010 IF D%(C) = 13 THEN 3050 + 3012 IF D%(C) = 14 THEN 3050 + 3020 PRINT NG$: GOTO 2000 + 3050 IF UR = 1 THEN UR = 0 + 3055 C = C - 4: GOTO 600 + 3100 IF RR = 1 THEN 6240 + 3101 IF N = 87 THEN PRINT "ON YOUR FACE, ASSHOLE!!!": GOTO 2000 + 3102 IF N = 1 GOTO 2500 + 3105 IF N = 2 GOTO 2600 + 3110 IF N = 3 GOTO 2700 + 3115 IF N = 4 GOTO 2800 + 3117 IF N = 5 GOTO 2900 + 3118 IF N = 6 GOTO 3000 + 3119 PRINT NG$: GOTO 2000 + 3120 IF N < > 7 THEN PRINT "WHO ARE YOU KIDDING? YOU'RE PULLING AT STRAWS, FOOL!": GOTO 2000 + 3129 IF C = 22 OR C = 11 OR C = 4 THEN T = 6: GOSUB 5100: GOTO 3134 + 3132 PRINT "I'M NOT ON A STREET, FOOL!!!": GOTO 2000 + 3134 OC = C: INPUT IN$ + 3140 IF LEFT$ (IN$,4) = "DISC" THEN C = 22 + 3150 IF LEFT$ (IN$,4) = "CASI" THEN C = 11 + 3160 IF IN$ = "BAR" THEN C = 4 + 3165 IF OC = C THEN PRINT "HUH? HAIL ANOTHER!": GOTO 2000 + 3170 FOR X = 1 TO V1%(31,1) + 1: IF V1%(31,X) = 72 THEN 3190 + 3175 NEXT + 3180 PRINT "WE ARRIVE AND I GET OUT!": GOTO 600 + 3190 SPEED= 20:T = 28: GOSUB 5100: SPEED= 255: PRINT : PRINT "WHAT SHALL I DO? ": FOR X = 1 TO 1000: NEXT + 3195 POKE 34,0: PRINT "THE IDIOT CAB DRIVER BACKS OVER ME AND KILLS ME!!!!!!! PERMANENTLY!!!": NEW : END + 3200 IF N = 40 THEN 3500 + 3201 IF N = 85 THEN 3500 + 3202 IF N < 50 THEN PRINT "I CAN'T DO THAT": GOTO 2000 + 3203 IF N = 82 THEN 5300 + 3204 IF C = 24 AND N = 69 OR N = 68 THEN PRINT "THE MAN SAYS SHOPLIFTER!! AND SHOOTS ME": GOTO 5000 + 3205 GOSUB 6100: GOSUB 3206: PRINT "OK": GOTO 3230 + 3206 IF V1%(31,1) > 7 THEN PRINT "I'M CARRYING TOO MUCH!!!": GOTO 2000 + 3207 T = 31:F = C + 3210 FOR X = 2 TO V1%(F,1) + 1 + 3215 IF N = V1%(F,X) THEN RETURN + 3220 NEXT + 3225 PRINT "I DON'T SEE IT HERE!!": POP : GOTO 2000 + 3230 IF F = 31 THEN GOSUB 5650 + 3234 V1%(T,V1%(T,1) + 2) = N:V1%(T,1) = V1%(T,1) + 1 + 3235 IF X = V1%(F,1) + 1 THEN V1%(F,1) = V1%(F,1) - 1: GOTO 3240 + 3236 V1%(F,X) = V1%(F,V1%(F,1) + 1):V1%(F,1) = V1%(F,1) - 1: IF V1%(F,1) < 0 THEN V1%(F,1) = 0 + 3240 GOTO 610 + 3250 F = 31:T = C + 3255 GOSUB 3260: GOTO 3230 + 3260 IF V1%(F,1) = 0 THEN 3285 + 3265 FOR X = 2 TO V1%(F,1) + 1 + 3270 IF N = V1%(F,X) THEN RETURN + 3280 NEXT + 3285 PRINT "I DON'T HAVE IT!!": POP : GOTO 2000 + 3500 PRINT "I'M CARRYING THE FOLLOWING:" + 3510 IF V1%(31,1) = 0 THEN PRINT "NOTHING!!": GOTO 2000 + 3515 OC = C:C = 31: GOSUB 1762:C = OC: PRINT : GOTO 2000 + 3600 REM LOOK RTN + 3602 IF N < 7 THEN PRINT "I'M TOO NEARSIGHTED, SORRY.......": GOTO 2000 + 3605 FOR X = 2 TO V1%(C,1) + 1 + 3606 IF V1%(C,X) = N THEN 3620 + 3607 NEXT + 3610 FOR X = 2 TO V1%(31,1) + 1 + 3611 IF V1%(31,X) = N THEN 3620 + 3612 NEXT + 3615 PRINT "IT'S NOT HERE!!!!!": GOTO 2000 + 3620 IF N = 8 AND DE = 0 THEN PRINT "IT'S DRAWER IS SHUT": GOTO 2000 + 3622 IF N = 8 AND DE = 1 THEN PRINT SS$:F = 32:T = C:N = 50:DE = 2: GOTO 3230 + 3630 IF N = 9 AND TI = 0 THEN PRINT SS$:T = 2:F = 32:TI = 1:N = 51: GOTO 3230 + 3632 IF N = 9 AND TI = 1 THEN PRINT "DEAD COCKROACHES....": GOTO 2000 + 3635 IF N = 10 THEN GOTO 3800 + 3640 IF N = 11 THEN PRINT "THERE'S A PERVERT LOOKING BACK AT ME!!!": GOTO 2000 + 3645 IF N = 12 THEN PRINT "HASN'T BEEN FLUSHED IN AGES! STINKS!!!!": GOTO 2000 + 3650 IF N = 13 THEN PRINT "HE LOOKS LIKE A WHISKEY DRINKER TO ME!!": GOTO 2000 + 3655 IF N = 14 THEN PRINT "SAYS PUSH": GOTO 2000 + 3660 IF N = 15 THEN PRINT "HE'S WAITING FOR ME TO BUY SOMETHING!": GOTO 2000 + 3665 IF N = 16 THEN PRINT "HE'S WEARING A BUTTON PROCLAIMING- SUPPORT YOUR LOCAL PIMP, GIMME $2000!!!": GOTO 2000 + 3670 IF N = 17 THEN T = 1: GOTO 5100 + 3675 IF N = 18 THEN 4150 + 3680 IF N = 20 AND TV = 0 THEN PRINT "ONLY IF YOU TURN IT ON! SAY 'TV ON'": GOTO 2000 + 3682 IF N = 20 AND TV = 1 THEN 5560 + 3685 IF N = 21 THEN PRINT "PLAYING THEM MIGHT BE MORE FUN....": GOTO 2000 + 3690 IF N = 23 THEN PRINT "IT'S ON THE EAST WALL": GOTO 2000 + 3693 IF N = 24 AND AS = 0 THEN PRINT SS$:AS = 1:F = 32:T = C:N = 64: GOTO 3230 + 3696 IF N = 25 THEN T = 10: GOSUB 5100: GOTO 2000 + 3699 IF N = 27 THEN PRINT "HE GRUMBLES- I'LL TELL YOU A STORY FOR A BOTTLE OF WINE.....": GOTO 2000 + 3702 IF N = 28 THEN T = 25: GOSUB 5100: GOTO 2000 + 3706 IF N = 29 AND MA = 0 THEN PRINT SS$:T = 24:F = 32:N = 68:MA = 1: GOTO 3230 + 3707 IF N < > 30 THEN 3712 + 3708 IF C < > 23 THEN PRINT NY$: GOTO 2000 + 3709 IF DL = 0 THEN PRINT "A SIGN SAYS 'ENTRY BY SHOWING PASSCARD- CLUB MEMBERS AND THEIR GUESTS ONLY!": GOTO 2000 + 3710 IF DL = 1 THEN PRINT "IT'S UNLOCKED": GOTO 2000 + 3712 IF N = 32 THEN PRINT "SHE IGNORES YOU!": GOTO 2000 + 3715 IF N = 34 AND C = 20 THEN PRINT "A NUMBER IS THERE- 'CALL 555-6969 FOR A GOOD TIME!'": GOTO 2000 + 3718 IF N = 35 AND DD = 0 THEN PRINT "IT'S CLOSED": GOTO 2000 + 3719 IF N = 35 AND DD = 1 THEN PRINT SS$:F = 32:T = 29:N = 74:DD = 2: GOTO 3230 + 3720 IF N = 41 THEN PRINT "HE'S WAITING FOR ME TO PLAY": GOTO 2000 + 3721 IF N = 36 THEN PRINT "A SIGN SAYS 'WATER ON OR OFF TO OPERATE'": GOTO 2000 + 3722 IF N = 42 AND ST = 0 THEN PRINT "IT'S TOO HIGH!": GOTO 2000 + 3723 IF N = 42 AND ST = 1 THEN PRINT SS$:ST = 2:F = 32:T = C:N = 76: GOTO 3230 + 3724 IF N = 48 THEN PRINT "IT SAYS 'HAIL TAXI HERE'": GOTO 2000 + 3725 IF N = 43 THEN PRINT "IT'S DOORS ARE CLOSED": GOTO 2000 + 3726 IF N = 45 THEN PRINT SS$:N = 75:T = C:F = 32: GOTO 3230 + 3727 IF N = 50 THEN T = 2: GOTO 5100 + 3728 IF N = 58 AND AP = 0 THEN PRINT SS$:T = C:F = 32:N = 59:AP = 1: GOTO 3230 + 3729 IF N = 56 AND GG = 0 THEN PRINT SS$:N = 58:T = C:F = 32:GG = 1: GOTO 3230 + 3730 IF N = 61 THEN PRINT "THE LABEL ON THE BOTTLE SAYS 'WANT TO DRIVE SOMEONE CRAZY WITH LUST?? TRY THIS!!!!": GOTO 2000 + 3731 IF N = 44 THEN PRINT "ENTERING THEM WOULD BE KINKY!!": GOTO 2000 + 3732 IF N = 47 AND BU = 0 THEN BU = 1: PRINT "THERE'S A GROUP OF BUSHES BEHIND IT!!":T = C:F = 32:N = 44: GOTO 3230 + 3734 IF N = 65 THEN PRINT "MAYBE I SHOULD LISTEN....": GOTO 2000 + 3736 IF N = 68 THEN F = 31: GOSUB 3260:T = 3: GOTO 5100 + 3737 IF N = 69 THEN GOSUB 5817: PRINT "IT'S ";P1$;", ";P2$;"-FLAVORED, ": PRINT P3$;", AND ";P4$: GOTO 2000 + 3738 IF N = 49 AND C = 26 THEN T = 5: GOTO 5100 + 3739 IF N = 49 AND GC > 3 THEN PRINT "SHE SLAPS ME AND YELLS 'PERVERT!!!!!'": GOTO 2000 + 3740 IF N = 49 AND C < > 26 THEN T = 4: GOTO 5100 + 3742 IF N = 73 THEN PRINT "IT CONTAINS $";M;"00": GOTO 2000 + 3744 IF N = 74 AND ID = 1 THEN PRINT "IT'S INFLATED": GOTO 2000 + 3745 IF N = 74 AND ID = 0 THEN PRINT "IT'S ROLLED UP IN A LITTLE BALL!": GOTO 2000 + 3746 IF N = 76 AND PI = 0 THEN PRINT "IT'S EMPTY": GOTO 2000 + 3747 IF N = 76 AND PI = 1 THEN PRINT "IT'S FULL": GOTO 2000 + 3748 PRINT "I SEE NOTHING SPECIAL" + 3749 GOTO 2000 + 3750 PRINT D$;OD$ + 3760 PRINT D$;RD$;C + 3770 INPUT NA$: INPUT NB$: INPUT NC$: INPUT ND$ + 3780 PRINT D$;CD$ + 3790 PRINT NA$: PRINT NB$: PRINT NC$: PRINT ND$ + 3792 IF T > 5 THEN RETURN + 3795 GOTO 2000 + 3800 POKE 34,0: INVERSE : HOME + 3802 FOR X = 1 TO 24 + 3804 PRINT " " + 3806 NEXT : RESTORE + 3808 SPEED= 20 + 3810 DATA C,O,M,P,U,T,E,R, ,F,R,E,A,K,S, ,P,E,E,K, ,B,E,F,O,R,E, ,T,H,E,Y, ,P,O,K,E, ,I,',D, ,L,I,K,E, ,T,O, ,N,I,B,B,L,E, ,H,E,R, ,F,L,O,P,P,I,E,S,! + 3811 DATA A,S,C,I,I,A,N,D,,Y,E, ,S,H,A,L,L, ,R,E,C,E,I,V,E + 3815 VTAB 3 + 3820 FOR X = 1 TO 21 + 3830 READ X$: PRINT X$;: CALL - 922 + 3840 NEXT + 3850 VTAB 5: PRINT + 3860 FOR X = 1 TO 16 + 3870 READ X$: PRINT X$;: CALL - 922 + 3880 NEXT : VTAB 1: HTAB 3 + 3890 PRINT "AT MY APPLE IS WHERE I SIT,"; + 3895 VTAB 2: HTAB 3 + 3900 PRINT "WHEN I FEEL LIKE FONDLING IT'S BITS!" + 3920 FOR X = 4 TO 22: VTAB X + 3925 HTAB 35 + 3930 READ X$: PRINT X$;: NEXT + 3950 FOR X = 4 TO 17: VTAB X: HTAB 37 + 3960 READ X$: PRINT X$: NEXT + 3970 VTAB 6: HTAB 18: PRINT "THE PASSWORD IS:" + 3972 VTAB 8: HTAB 20: PRINT "BELLYBUTTON": HTAB 10 + 3980 FOR X = 5 TO 13 STEP 2 + 3990 VTAB X: READ X$: PRINT X$; + 4000 NEXT : HTAB 13: FOR X = 5 TO 18 STEP 2 + 4010 VTAB X: READ X$: PRINT X$; + 4020 NEXT + 4030 FOR X = 10 TO 20 STEP 2: VTAB X + 4040 READ X$: PRINT X$; + 4050 NEXT + 4060 FOR X = 10 TO 22 STEP 2: VTAB X + 4070 READ X$: PRINT X$; + 4080 NEXT : NORMAL : SPEED= 255 + 4085 VTAB 24: HTAB 1 + 4090 PRINT "HIT ANY KEY TO RETURN TO GAME"; + 4100 IF PEEK ( - 16384) > 127 THEN POKE - 16368,0: HOME : GOTO 590 + 4110 GOTO 4100 + 4150 POKE 34,0: HOME : INVERSE + 4160 FOR X = 1 TO 24: PRINT " " + 4170 NEXT : VTAB 1 + 4175 VTAB 4 + 4180 VTAB 5: HTAB 5: PRINT "FOR THOSE WHO DESIRE THE BEST:" + 4190 PRINT : HTAB 15: PRINT "ANNOUNCING" + 4195 PRINT : HTAB 10: PRINT "THE MOST EXCLUSIVE," + 4200 PRINT : HTAB 13: PRINT "THE EXCITING," + 4210 PRINT : HTAB 8: PRINT "THE HOTTEST SPOT IN TOWN," + 4220 VTAB 15: HTAB 9: PRINT "SWINGING SINGLE'S DISCO" + 4230 FLASH : VTAB 13: HTAB 7: PRINT "**************************" + 4235 VTAB 17: HTAB 7: PRINT "**************************" + 4240 FOR X = 13 TO 17: HTAB 7: VTAB X: PRINT "*" + 4242 NEXT + 4245 FOR X = 13 TO 17: HTAB 33: VTAB X: PRINT "*" + 4247 NEXT + 4250 NORMAL : GOTO 4085 + 4500 IF N < > 12 THEN PRINT "YOU'RE NUTS!!": GOTO 2000 + 4505 IF C < > 2 THEN PRINT "FIND ME ONE!": GOTO 2000 + 4510 SPEED= 20: PRINT "OK, HERE GOES.........................." + 4520 PRINT "OH, NO!!!!!! IT'S OVERFLOWING!!!!!!!!!! IT'S FILLING THE ROOM WITH GROSS SEWAGE!" + 4529 FOR X = 1 TO 300 + 4540 NEXT X + 4550 NORMAL : SPEED= 255 + 4560 PRINT : PRINT "I'M DEAD FROM THE GERMS!!": GOTO 5000 + 4600 IF N < > 8 THEN 4615 + 4605 IF C < > 1 THEN PRINT NY$: GOTO 2000 + 4610 PRINT "OK":DE = 1: GOTO 2000 + 4615 IF N = 46 THEN PRINT "WON'T BUDGE": GOTO 2000 + 4630 IF N < > 30 THEN 4639 + 4631 IF C < > 23 THEN PRINT NY$: GOTO 2000 + 4632 PRINT "A VOICE ASKS 'PASSCARD??' I SEARCH IN MY POCKETS AND":F = 31:N = 64: GOSUB 3260: PRINT "I HAVE IT! THE DOOR OPENS!":D%(23) = 15:SS = 1: GOTO 600 + 4633 IF N < > 23 THEN 4639 + 4634 IF C < > 29 THEN PRINT NY$: GOTO 2000 + 4635 PRINT "IT'S SEEMS TO BE REMOTELY CONTROLLED!": GOTO 2000 + 4639 IF N < > 35 THEN 4646 + 4640 IF C < > 29 THEN PRINT NY$: GOTO 2000 + 4645 PRINT "OK":DD = 1: GOTO 2000 + 4646 IF N < > 42 THEN PRINT "UMMM..........................HUH??": GOTO 2000 + 4647 IF ST = 0 THEN PRINT "I CAN'T REACH IT!!" + 4648 IF ST = 1 THEN PRINT "IT'S ALREADY OPEN!" + 4649 GOTO 2000 + 4650 IF N < > 74 THEN PRINT "BUT THE PRIME RATE IS ALREADY 257%!!": GOTO 2000 + 4660 FOR X = 2 TO V1%(31,1) + 1: IF V1%(31,X) = 74 THEN 4670 + 4665 NEXT + 4666 PRINT "I CAN'T UNLESS I'M HOLDING IT CLOSE!!": GOTO 2000 + 4670 PRINT "OK":ID = 1: GOTO 2000 + 4700 IF N = 21 THEN 4720 + 4705 IF N = 37 THEN 4751 + 4715 PRINT "PLAYFUL BUGGER, EH??": GOTO 2000 + 4720 IF C < > 13 THEN PRINT "OK, SHOW ME YOUR SLOT.....": GOTO 2000 + 4725 PRINT "THIS WILL COST $100 EACH TIME" + 4726 PRINT "YOU HAVE $";M;"00": PRINT "WOULD YOU LIKE TO PLAY? (Y/N)": POKE - 16368,0: GET X$: IF X$ < > "Y" THEN 2000 + 4736 VTAB 24: INVERSE + 4737 FOR Y = 1 TO 30 + 4740 X = INT ( RND (1) * 10) + 33:X1 = INT ( RND (1) * 10) + 33:X2 = INT ( RND (1) * 10) + 33: + 4741 HTAB 1: PRINT CHR$ (X);: HTAB 13: PRINT CHR$ (X1);: HTAB 26: PRINT CHR$ (X2); + 4742 NEXT : NORMAL : PRINT + 4743 IF X = X1 AND X1 = X2 THEN PRINT "TRIPLES!!!!!! YOU WIN $1500":M = M + 15: GOTO 4726 + 4744 IF X = X1 OR X1 = X2 OR X = X2 THEN PRINT "A PAIR! YOU WIN $300":M = M + 3: GOTO 4726 + 4747 M = M - 1: IF M < 1 THEN PRINT "I'M BROKE!!!- THAT MEANS DEATH!!!!!!!!": FOR X = 1 TO 10000: NEXT : GOTO 5000 + 4750 PRINT "YOU LOSE!": GOTO 4726 + 4751 IF C < > 14 THEN PRINT NY$: GOTO 2000 + 4752 MI = 0:MD = 0:YD = 0:YM = 0:AD = 0:AM = 0: ONERR GOTO 4799 + 4753 PRINT "YOU HAVE $";M;"00": PRINT "HOW MANY DOLLARS WOULD YOU LIKE TO BET?": INPUT X: IF X / 100 > M THEN PRINT "YOU DON'T HAVE THAT MUCH!!!": GOTO 4753 + 4754 PRINT "OK":A = 1: IF INT ((X / 100 - INT (X / 100)) * 100 + .05) * SGN (X / 100) < > 0 THEN PRINT "$100 INCREMENTS ONLY!!": GOTO 4753 + 4755 Z = INT ( RND (1) * 13) + 1:Y = 0:AC = 0: IF Z = 11 THEN IN$ = " JACK":Y = 1 + 4756 IF Z = 12 THEN IN$ = " QUEEN" + 4757 IF Z = 13 THEN IN$ = " KING" + 4758 IF Z < 10 THEN IN$ = S$ + CHR$ (Z + 48) + 4759 IF Z = 10 THEN IN$ = " 10" + 4760 IF Z > 10 THEN Z = 10 + 4761 IF Z = 1 THEN Z = 11:Y = 1:IN$ = "N ACE":AC = 1 + 4762 IF A = 1 OR A = 3 THEN INVERSE :MI = MI + Z: PRINT "YOU'RE DEALT A";IN$:YM = YM + Y:AM = AM + AC: NORMAL + 4763 IF A = 2 THEN MD = MD + Z: PRINT "THE DEALER GETS A CARD DOWN":YD = YD + Y:AD = AD + AC + 4764 IF A = 4 THEN MD = MD + Z: PRINT "THE DEALER GETS A";IN$:A = 5:AD = AD + AC:YD = YD + Y: GOTO 4770 + 4765 IF A = 5 THEN MI = MI + Z: INVERSE : PRINT "YOU GET A";IN$:AM = AM + AC: NORMAL : GOTO 4770 + 4766 IF A = 6 THEN MD = MD + Z: PRINT "THE DEALER GETS A";IN$:AD = AD + AC: GOTO 4784 + 4769 A = A + 1: GOTO 4755 + 4770 IF MI > 21 AND AM > 0 THEN AM = AM - 1:MI = MI - 10 + 4776 INVERSE : PRINT "YOUR TOTAL IS ";MI: NORMAL : IF MI > 21 THEN FLASH : PRINT "BUSTED!": NORMAL ::M = M - (X / 100): GOTO 4794 + 4780 IF YM = 2 AND MI = 21 THEN PRINT "YOU'VE GOT ***BLACKJACK***":M = M + ((X / 100) * 5): GOTO 4794 + 4781 IF YD = 2 AND MD = 21 THEN PRINT "THE DEALER HAS ***BLACKJACK***":M = M - (X / 100): GOTO 4794 + 4782 PRINT "WOULD YOU LIKE A HIT (Y/N)??": GET A$: IF A$ = "Y" THEN GOTO 4755 + 4784 IF MD > 21 AND AD > 0 THEN AD = AD - 1:MD = MD - 10 + 4785 PRINT "THE DEALER HAS ";MD: IF MD < 17 THEN A = 6: GOTO 4755 + 4786 IF MD > 21 THEN 4790 + 4788 IF MI < MD THEN M = M - (X / 100): PRINT "YOU LOSE!": GOTO 4794 + 4789 IF MI = MD THEN PRINT "TIE!":M = M + 1: GOTO 4794 + 4790 PRINT "YOU WIN!!":M = M + (X / 100) + 4794 IF M = 0 THEN PRINT "YOU'RE OUT OF MONEY!!": PRINT "SO LONG!!!!!!!!!!": GOTO 5000 + 4795 PRINT "PLAY AGAIN?? (Y/N)??": GET A$: IF A$ = "N" THEN 2000 + 4797 GOTO 4752 + 4799 PRINT "$100 INCREMENTS (NUMERIC) ONLY!!": GOTO 4752 + 4800 IF N < > 14 OR C < > 3 THEN 4810 + 4802 PRINT "A VOICE ASKS 'WHATS THE PASSWORD?' (ONE WORD)": INPUT IN$: IF LEFT$ (IN$,4) < > "BELL" THEN PRINT "WRONG!": GOTO 2000 + 4805 D%(C) = 4: PRINT "THE CURTAIN PULLS BACK!!": GOTO 600 + 4810 IF N < > 14 OR C < > 19 THEN 4815 + 4811 IF BG = 0 THEN PRINT "THE BLONDE SAYS 'YOU CAN'T GO THERE!'": GOTO 2000 + 4813 T = 7: GOSUB 5100 + 4814 C = 25: GOTO 600 + 4815 IF N < > 14 OR C < > 25 THEN 4820 + 4816 T = 7: GOSUB 5100 + 4817 C = 19: GOTO 600 + 4820 IF N < > 49 THEN PRINT "PUSHY CHUMP, EH???": GOTO 2000 + 4830 PRINT "SHE KICKS ME IN THE STOMACH AND LAUGHS!!": GOTO 2000 + 4850 IF N = 44 AND C = 15 AND BU = 1 THEN C = 28: GOTO 600 + 4857 IF N < > 46 THEN 4860 + 4858 IF C < > 8 THEN PRINT NY$: GOTO 2000 + 4859 GOTO 2600 + 4860 IF N < > 44 OR N < > 46 THEN 4875 + 4870 PRINT NY$: GOTO 2000 + 4875 IF N = 30 THEN 2800 + 4876 IF N = 46 THEN 2650 + 4877 IF N < > 62 THEN 4890 + 4878 IF C < > 23 THEN PRINT NY$: GOTO 2000 + 4879 GOTO 2800 + 4890 GOTO 2400 + 4900 IF N = 25 OR N = 32 OR N = 17 OR N = 49 OR N = 70 THEN 4940 + 4902 IF N = 87 THEN PRINT "TAKE A HIKE, BUDDY!!": GOTO 2000 + 4905 GOSUB 5817 + 4910 IF N = 83 THEN PRINT "HOLY COW!!! PSYCHEDELIC!!!!! PRETTY COLORS APPEAR AND I'M ELSWHERE!":C = INT ( RND (1) * 3) + 1: GOTO 600 + 4920 IF N = 58 OR N = 56 THEN PRINT "TOO MOLDY!": GOTO 2000 + 4925 IF N = 75 THEN PRINT "SORRY...NOT HUNGRY.": GOTO 2000 + 4927 IF N = 61 THEN SPEED= 20:T = 26: GOSUB 5100: SPEED= 255: GOTO 5000 + 4935 PRINT "YECCHHH!!!! TASTE'S AWFUL!": GOTO 2000 + 4940 GOSUB 3206:T = 8: GOSUB 5100 + 4947 FOR X = 1 TO 10000: NEXT : GOTO 5000 + 4950 GOSUB 5817 + 4955 IF N = 52 THEN PRINT "THIS STUFF IS ROT-GUT! GIVE IT TO SOMEONE....I DON'T WANT IT.": GOTO 2000 + 4960 IF N = 53 THEN SPEED= 20: PRINT "HEH...HEH....HEY!!!! THIS STUFF'S OK!": SPEED= 255: GOTO 2000 + 4970 IF N = 72 THEN PRINT "SOUR GRAPES.....": GOTO 2000 + 4980 IF N = 82 THEN PRINT "THANKS!": GOTO 2000 + 4990 PRINT "GET YOUR HEAD EXAMINED!!!": GOTO 2000 + 5000 PRINT "WELCOME TO PURGATORY!! HERE AT THIS CROSSROADS YOU HAVE THREE OPTIONS:" + 5010 PRINT : PRINT "BEFORE YOU ARE THREE DOORS. EACH WILL BRING YOU TO A DIFFERENT PLACE- " + 5020 PRINT "A- TO HELL (WHERE THE GAME ENDS)" + 5030 PRINT "B- BACK TO LIFE, UNHARMED" + 5040 PRINT "C- YOU STAY HERE AND MUST CHOOSE AGAIN" + 5041 PRINT + 5045 PRINT "THE DOORS ARE RANDOMLY DIFFERENT EACH TIME!!": PRINT + 5047 ONERR GOTO 5090 + 5050 PRINT "CHOOSE YOUR DOOR: 1, 2, OR 3?? ": GET A + 5055 IF A = 1 OR A = 2 OR A = 3 THEN 5060 + 5057 GOTO 5050 + 5060 X = INT ( RND (1) * 4) + 5070 IF A = X THEN GOTO 2000 + 5080 A = A - 1: IF A < 1 THEN A = 3 + 5085 IF A = X THEN POKE 34,0: HOME : NEW : END + 5090 PRINT "YOU'RE STILL HERE!": GOTO 5050 + 5100 PRINT D$;OT$: PRINT D$;RT$;T + 5110 INPUT NA$: INPUT NB$: INPUT NC$: INPUT ND$ + 5120 PRINT D$;CT$ + 5130 GOTO 3790 + 5150 IF M < 1 THEN PRINT "NO MONEY!!!": GOTO 2000 + 5155 IF N = 52 OR N = 53 AND C = 3 THEN 5157 + 5156 GOTO 5169 + 5157 IF C < > 3 THEN PRINT NY$ + 5158 IF (N = 52 AND BW = 1) OR (N = 53 AND BB = 1) THEN PRINT "SORRY...TEMPORARILY SOLD OUT": GOTO 2000 + 5160 PRINT "I GIVE THE BARTENDER $100 AND HE PLACES IT ON THE BAR.":M = M - 1:T = C:F = 32: IF N = 52 THEN BW = 1 + 5161 IF N = 53 THEN BB = 1 + 5162 GOTO 3230 + 5169 IF N < > 72 THEN 5177 + 5170 IF C < > 21 THEN PRINT NY$: GOTO 2000 + 5171 IF BI = 1 THEN PRINT "SORRY....ALL OUT!": GOTO 2000 + 5172 PRINT "THE WAITRESS TAKES $100 AND SAYS SHE'LL RETURN": FOR X = 1 TO 10000: NEXT : PRINT "POOR SERVICE!" + 5174 FOR X = 1 TO 5000: NEXT + 5175 M = M - 1:T = C:F = 32:X = 0:BI = 1: GOTO 3230 + 5177 IF N < > 69 THEN 5191 + 5178 IF C < > 24 THEN PRINT NY$: GOTO 2000 + 5179 IF LEN (P1$) > 2 THEN PRINT "ALL OUT!!": GOTO 2000 + 5180 PRINT "THE MAN LEANS OVER THE COUNTER AND WHISPERS:": PRINT "WHAT COLOR?": INPUT P1$ + 5182 PRINT "AND FOR A FLAVOR??": INPUT P2$ + 5184 PRINT "LUBRICATED OR NOT (Y/N)??": GET A$: IF A$ = "N" THEN P3$ = "NON-LUBRICATED" + 5186 PRINT "RIBBED (Y/N)": GET A$: IF A$ = "N" THEN P4$ = "SMOOTH" + 5188 PRINT "HE YELLS- THIS PERVERT JUST BOUGHT A ": PRINT P1$;", ";P2$;"-FLAVORED": PRINT P3$;", ";P4$;" RUBBER!!!!": PRINT : PRINT "A LADY WALKS BY AND LOOKS AT ME IN DISGUST!!!!" + 5190 M = M - 1:T = 31:F = C: GOTO 3255 + 5191 IF N < > 68 THEN 5199 + 5192 F = C: GOSUB 3210:M = M - 1: PRINT "HE TAKES $100 AND GIVES ME THE MAGAZINE":F = C:T = 31: GOTO 3230 + 5199 GOTO 2400 + 5200 IF V1%(C,1) = 0 THEN 3225 + 5203 FOR X = 2 TO V1%(C,1) + 1: IF V1%(C,X) = N THEN 5210 + 5205 NEXT : PRINT "IT'S NOT ON THE FLOOR HERE!": GOTO 2000 + 5210 IF N = 77 THEN PRINT "OK":ST = 1: GOTO 2000 + 5220 N = 0: GOTO 3202 + 5250 IF C = 27 AND N = 38 THEN PRINT "OK":WA = 1: GOTO 2000 + 5260 IF C = 27 AND N = 39 THEN PRINT "OK":WA = 0: GOTO 2000 + 5262 IF N = 38 OR N = 39 THEN 5315 + 5265 IF PI = 0 THEN PRINT "PITCHER'S EMPTY!": GOTO 2000 + 5270 IF V1%(C,1) = 0 THEN 5280 + 5271 FOR X = 2 TO V1%(C,1) + 1: IF V1%(C,X) = 59 THEN 5290 + 5275 NEXT + 5280 PRINT "IT POURS INTO THE GROUND":PI = 0: GOTO 2000 + 5290 IF C < > 28 THEN PRINT "THE SEEDS NEED BETTER SOIL TO GROW": GOTO 5280 + 5292 PI = 0: PRINT "A TREE SPROUTS!!":V1%(C,X) = 45: GOTO 610 + 5300 FOR X = 2 TO V1%(31,1) + 1: IF V1%(31,X) = 76 THEN 5310 + 5301 NEXT + 5303 PRINT "GET ME THE PITCHER SO I DON'T SPILL IT!": GOTO 2000 + 5310 IF C = 27 AND WA = 1 THEN PRINT "OK":PI = 1: GOTO 2000 + 5315 IF C < > 27 THEN PRINT "FIND A WORKING SINK": GOTO 2000 + 5320 IF WA = 0 THEN PRINT "NO WATER!!!": GOTO 2000 + 5350 IF N = 82 THEN 5265 + 5400 IF N < > 65 THEN PRINT "QUIET AS A MOUSE IN HEAT!": GOTO 2000 + 5415 FOR X = 2 TO V1%(31,1) + 1: IF V1%(31,X) = N THEN 5420 + 5417 NEXT : PRINT "TAKE IT AND PUT IT NEXT TO MY EAR!": GOTO 2000 + 5420 IF R = 0 THEN PRINT "AN ADVERTISEMENT SAYS 'CALL 555-0987 FORALL YOUR LIQUOR NEEDS!!!!": GOTO 2000 + 5430 IF R = 1 THEN FLASH : PRINT "PUNK ROCK!!!!!": NORMAL + 5440 GOTO 2000 + 5450 IF N = 8 THEN DE = 0: GOTO 2000 + 5460 IF N = 35 THEN DD = 0: GOTO 2000 + 5465 IF N = 30 THEN SS = 0: GOTO 2000 + 5470 N = 0: GOTO 3202 + 5500 IF C < > 8 THEN PRINT "WHOOOPEEEEE!!!": GOTO 2000 + 5510 FOR X = 1 TO 50: PRINT "AAAAAEEEEEIIIIIIII!!!!!!!!": NEXT : PRINT "SPLAAATTTTT!!!!!" + 5520 IF C = 10 AND UR = 0 THEN PRINT "I SHOULD HAVE USED SAFETY ROPE!!!!!!!!": GOTO 5000 + 5550 FOR X = 2 TO V1%(31,1) + 1: IF V1%(31,X) = 84 THEN 5553 + 5551 NEXT : PRINT "I NEED THE REMOTE CONTROL UNIT!": GOTO 2000 + 5553 IF C < > 5 THEN PRINT "NO TV!": GOTO 2000 + 5554 IF N = 39 THEN TV = 0: PRINT "OK": GOTO 2000 + 5555 IF N < > 38 THEN GOTO 2400 + 5556 IF SC = 0 THEN PRINT "THE DUDE WON'T LET ME!!": GOTO 2000 + 5560 TV = 1: PRINT "CHOOSE A CHANNEL (1-9)" + 5570 INPUT A: IF A < 1 OR A > 9 THEN PRINT "HUH?": GOTO 5570 + 5590 BD = 0: IF A = 6 THEN BD = 1 + 5600 T = A + 10: GOSUB 5100 + 5610 PRINT : PRINT "CHANGE THE CHANNEL?(Y/N)" + 5620 GET IN$: IF IN$ = "N" THEN 2000 + 5630 GOTO 5560 + 5650 IF C < > 21 THEN 5670 + 5651 IF C = 21 AND N = 60 AND QC = 0 AND GC < 3 THEN GC = GC + 1:QC = 1: PRINT "SHE SMILES AND EATS A COUPLE!!" + 5655 IF C = 21 AND N = 57 THEN GC = GC + 1: PRINT "SHE BLUSHES PROFUSELY AND PUTS THEM IN HER HAIR!":V1%(F,X) = V1%(F,V1%(F,1) + 1):V1%(F,1) = V1%(F,1) - 1: IF GC < > 3 THEN 2000 + 5657 IF C = 21 AND N = 51 THEN GC = GC + 1: PRINT "SHE BLUSHES AND PUTS IT IN HER PURSE.":V1%(F,X) = V1%(F,V1%(F,1) + 1):V1%(F,1) = V1%(F,1) - 1: IF GC < > 3 THEN 2000 + 5659 IF GC < > 3 THEN RETURN + 5660 PRINT "SHE SAYS 'SEE YOU AT THE MARRIAGE CENTER!!":GC = 4:F = C:T = 12:N = 49: GOTO 3255 + 5670 IF C < > 22 OR N < > 72 THEN 5686 + 5671 IF WI = 1 THEN PRINT "THE BUM MUTTERS 'THAT STUFF MADE ME PUKE!!! GET OUT OF HERE!!!!": GOTO 2000 + 5672 PRINT "HE LOOKS AT ME AND STARTS TO SPEAK..." + 5675 WI = 1:T = 9: SPEED= 30: GOSUB 5100 + 5680 PRINT "AFTER ALL YOU MAY GET IN A PROGRAM BUG": SPEED= 255: POKE 34,0 + 5685 FOR X = 1 TO 255: PRINT "LIKE I DID!!!": HTAB X: NEXT :V1%(C,V1%(C,1) + 2) = 66:V1%(C,1) = V1%(C,1) + 1: HOME : VTAB 24: PRINT "HE THROWS UP AND GIVES ME BACK THE WINE": GOTO 590 + 5686 IF C < > 26 OR N < > 75 THEN 5690 + 5687 T = 20: GOSUB 5100:AA = 1: RETURN + 5690 IF N = 69 THEN WR = 0 + 5691 IF N = 81 THEN UR = 0 + 5692 IF N < > 61 OR C < > 19 OR BG = 1 THEN 5696 + 5693 T = 27: GOSUB 5100:BG = 1: FOR X = 2 TO V1%(C,1) + 1: IF V1%(C,X) = 25 THEN V1%(C,X) = V1%(C,V1%(C,1) + 1):V1%(C,1) = V1%(C,1) - 1:T = 6: RETURN + 5695 NEXT + 5696 IF N < > 52 OR C < > 1 THEN RETURN + 5697 V1%(31,X) = V1%(31,V1%(31,1) + 1):V1%(31,1) = V1%(31,1) - 1: PRINT "THE GUY GIVES ME A TV CONTROLLER!!":V1%(C,V1%(C,1) + 2) = 84:V1%(C,1) = V1%(C,1) + 1: GOTO 600 + 5700 IF N < > 49 THEN PRINT "NO WAY, WIERDO!!": GOTO 2000 + 5705 IF C < > 12 THEN PRINT NY$: GOTO 2000 + 5710 IF GC < > 4 THEN PRINT "NO GIRL!!": GOTO 2000 + 5712 IF M < 20 THEN PRINT "THE GIRL SAYS 'BUT YOU'LL NEED $2000 FORTHE HONEYMOON SUITE!": GOTO 2000 + 5713 IF M < 30 THEN PRINT "THE PREACHER SAYS 'I'LL NEED $1000 ALSO!'": GOTO 2000 + 5715 PRINT "OK": FOR X = 1 TO 500: NEXT : PRINT "WHY AM I DOING THIS!?!?!": FOR X = 1 TO 500: NEXT :GC = 5:M = M - 30 + 5720 PRINT "THE PREACHER TAKES $1000 AND WINKS!": PRINT "THE GIRL GRABS $2000 AND SAYS 'MEET ME AT THE HONEYMOON SUITE! I'VE GOT CONNECTIONS TO GET A ROOM THERE!!" + 5725 F = C:T = 16:N = 49: GOTO 3255 + 5800 IF N = 86 THEN PRINT "NOT TONIGHT- I HAVE A HEADACHE!": GOTO 2000 + 5805 IF N < > 17 AND C < > 9 THEN 5815 + 5810 IF FH = 1 THEN PRINT "SHE CAN'T TAKE IT ANY MORE!!!!!": GOTO 2000 + 5813 IF WR = 0 THEN PRINT "OH NO!!!! I'VE GOT THE DREADED ATOMIC CLAP!!! I'M DEAD!!": FOR X = 1 TO 1000: NEXT : GOTO 5000 + 5814 T = 21: GOSUB 5100:SC = 1:FH = 1: GOTO 2000 + 5815 IF N < > 74 THEN 5830 + 5816 GOSUB 5817: GOTO 5822 + 5817 FOR X = 2 TO V1%(31,1) + 1: IF V1%(31,X) = N THEN Y = 31: RETURN + 5818 NEXT + 5819 FOR X = 2 TO V1%(C,1) + 1: IF V1%(C,X) = N THEN Y = C: RETURN + 5820 NEXT : PRINT "I CAN'T FIND IT!": GOTO 2000 + 5822 IF ID = 1 THEN T = 22: GOSUB 5100:V1%(Y,X) = V1%(Y,V1%(Y,1) + 1):V1%(Y,1) = V1%(Y,1) - 1:ID = 2: GOTO 590 + 5825 IF ID = 0 THEN PRINT "INFLATE IT FIRST- STUPID!!!": GOTO 2000 + 5830 IF N < > 49 THEN 5880 + 5831 F = C: GOSUB 3210 + 5835 IF C < > 26 THEN 5840 + 5836 IF AA < > 1 THEN PRINT NY$: GOTO 2000 + 5837 T = 23: GOSUB 5100: NEW : END + 5840 IF GC < 5 OR C < > 16 THEN PRINT NY$: GOTO 2000 + 5842 IF GC < > 6 THEN PRINT "SHE SAYS 'GET ME WINE!!! I'M NERVOUS!!'": GOTO 2000 + 5845 T = 24: GOSUB 5100:R = 1:SC = SC + 1:RR = 1:V1%(C,X) = 81: GOTO 590 + 5880 F = C: GOSUB 3210: IF N = 32 THEN PRINT "SHE KICKS ME IN THE GROIN AND SAYS 'WISE UP- BUSTER!!'": GOTO 2000 + 5885 IF N = 25 THEN PRINT "SHE SAYS 'I'M WORKING! LEAVE ME ALONE!'": GOTO 2000 + 5887 IF N = 16 THEN PRINT "HE SAYS 'YOU'LL NEVER HAVE ENOUGH MONEY FOR ME- FOOL!!!' I GUESS HE'S GAY!": GOTO 2000 + 5890 IF N = 27 THEN PRINT "TO DO THAT I NEED VASELINE!!": GOTO 2000 + 5893 IF N = 15 THEN PRINT "HE JUMPS OVER THE BAR AND KILLS ME!!": GOTO 5000 + 5895 IF N = 13 THEN PRINT "NO WAY!!! YOU'RE WIERD!!": GOTO 2000 + 5899 PRINT "PERVERT!": GOTO 2000 + 5900 IF N < > 69 THEN 5912 + 5910 F = 31: GOSUB 3260:WR = 1: PRINT "IT TICKLES!!!!": GOTO 2000 + 5912 IF N < > 12 THEN 5916 + 5913 F = C: GOSUB 3210 + 5915 SPEED= 10: PRINT "...........I GOT THOSE CONSTIPATION BLUES............................": SPEED= 255: PRINT "AHHH...RELIEF! THANKS!": GOTO 2000 + 5916 IF N < > 26 THEN 5921 + 5917 F = C: GOSUB 3210: SPEED= 20: PRINT "AHHHHH........SLEEP!!!" + 5918 FOR X = 1 TO 5: PRINT D$;OT$: PRINT D$;CT$: NEXT + 5920 PRINT "YOUR DISK IS SNORING!!! I CAN'T SLEEP!": SPEED= 255: GOTO 2000 + 5921 IF N < > 81 THEN 5928 + 5924 IF C = 7 OR C = 10 THEN 5926 + 5925 PRINT NY$: GOTO 2000 + 5926 F = 31: GOSUB 5817:UR = 1: PRINT "OK": GOTO 2000 + 5928 IF N < > 64 THEN 5930 + 5929 GOTO 4631 + 5930 IF N < > 66 THEN 5935 + 5931 GOTO 6205 + 5935 IF N < > 54 THEN 2400 + 5936 PRINT "TRY GIVING IT TO HER": GOTO 2000 + 5950 IF C = 30 THEN PRINT "THIS ONLY TAKES INCOMING CALLS!!": GOTO 2000 + 5951 IF C < > 20 THEN PRINT "THERE'S NO PHONE!": GOTO 2000 + 5952 IF QNN$ = "555-6969" AND LEN (T1$) = 0 THEN 5970 + 5953 IF QNN$ < > "555-0439" THEN 5969 + 5954 PRINT "HI THERE!!! THIS IS CHUCK (THE AUTHOR OF THIS ABSURD GAME). IF YOU'RE A VOLUPTOUS BLONDE WHO'S LOOKING FOR A GOOD TIME THEN CALL ME IMMEDIATELY!!!!": GOTO 2000 + 5969 GOTO 5981 + 5970 PRINT "A VOICE SAYS 'HELLO, PLEASE ANSWER THE QUESTIONS WITH ONE WORD ANSWERS!" + 5971 INPUT "WHAT'S YOUR FAVORITE GIRLS NAME?";T1$ + 5972 INPUT "NAME A NICE PART OF HER ANATOMY.";T2$ + 5973 INPUT "WHAT DO YOU LIKE TO DO WITH HER?";T3$ + 5974 INPUT "AND THE BEST PART OF YOUR BODY?!?";T4$ + 5975 INPUT "FINALLY, YOUR FAVORITE OBJECT?";T5$ + 5980 TE = 1: PRINT "HE HANGS UP!!!!!": GOTO 2000 + 5981 IF QNN$ < > "555-0987" THEN 5999 + 5984 IF GC < > 5 THEN PRINT "SOMEBODY ANSWERS AND HANGS UP!!!!": GOTO 2000 + 5985 PRINT "A VOICE ANSWERS AND SAYS 'WINE FOR THE NERVOUS NEWLYWEDS!! COMING RIGHT UP!!!!" + 5986 GC = 6 + 5990 V1%(16,V1%(16,1) + 2) = 72:V1%(16,1) = V1%(16,1) + 1: GOTO 2000 + 5999 PRINT "NOBODY ANSWERS": GOTO 2000 + 6000 IF N < > 34 THEN PRINT "I DON'T KNOW HOW TO!!": GOTO 2000 + 6010 IF TE < > 1 THEN PRINT "IT'S NOT RINGING!": GOTO 2000 + 6020 TE = 0: PRINT "A GIRL SAYS 'HI HONEY! THIS IS ";T1$;".": PRINT "DEAR, WHY DON'T YOU FORGET THIS GAME AND ";T3$;" WITH ME???": PRINT "AFTER ALL, YOUR ";T4$;" HAS ALWAYS TURNED ME ON!!!!" + 6030 PRINT "SO BRING A ";T5$;" AND COME": PRINT "PLAY WITH MY ";T2$;" !!!!": PRINT "SHE HANGS UP!!": GOTO 2000 + 6100 FOR X = 2 TO V1%(31,1) + 1: IF V1%(31,X) = N THEN PRINT "I'M ALREADY CARRYING IT!": POP : GOTO 2000 + 6110 NEXT : RETURN + 6150 IF N < > 46 THEN 2400 + 6160 IF C < > 8 THEN PRINT "IT'S NOT HERE!": GOTO 2000 + 6165 PRINT "LET ME SEE IF I HAVE A HAMMER" + 6170 N = 55:F = 31: GOSUB 3260: PRINT "THE WINDOW SMASHES TO PIECES!":D%(8) = 8: GOTO 600 + 6200 IF N < > 81 THEN 2400 + 6205 GOSUB 5817 + 6207 F = 31: PRINT "LET ME SEE IF I STILL HAVE THE KNIFE!":N = 66: GOSUB 3260 + 6208 IF RR = 2 THEN PRINT "SAMURAI SEX FIEND!!!!!!!!!!!!!!!!!!!!!!": FOR X = 1 TO 1000: NEXT : PRINT "I STAB MYSELF IN ECSTACY!": GOTO 5000 + 6210 IF RR < > 1 THEN PRINT "I DON'T WANT TO! " + 6220 RR = 2: PRINT "I DO AND IT WORKED! THANKS!": GOTO 2000 + 6240 PRINT "BUT I'M TIED TO THE BED!!!!!": GOTO 2000 + 6250 Y = 0 + 6255 FOR X = 1 TO 550: NEXT X: PRINT "BOOGIE WOOGIE!!!!" + 6260 FOR X = 1 TO 1150: NEXT X: PRINT "YEH YEH YEH!!!" + 6270 IF Y = 10 THEN PRINT "I GOT THE STEPS, MAN!!": GOTO 2000 + 6280 Y = Y + 1: GOTO 6255 + 6300 PRINT "TRY USING A KNIFE!!!": GOTO 2000 + 6350 IF N < > 16 THEN 2400 + 6355 IF C < > 5 THEN PRINT NY$: GOTO 2000 + 6357 IF FH = 1 THEN PRINT "HE SAYS 'I DON'T WANT YOUR MONEY- STUD!": GOTO 2000 + 6360 PRINT "TRY GOING UP- HE'LL TAKE THE MONEY THEN": GOTO 2000 + 6385 GOTO 2400 + 6400 IF N = 47 THEN PRINT "A COP BEATS ME OVER THE HEAD!!!!": GOTO 5000 + 6430 GOTO 2400 + 6450 IF N < > 64 THEN 2400 + 6460 GOTO 4631 + 6500 GOSUB 5817 + 6505 IF N = 25 THEN PRINT "HMMM.....NICE!!!!": GOTO 2000 + 6510 IF N = 17 THEN PRINT "OK, WHO'S EATING TUNA FISH?!?!?": GOTO 2000 + 6520 IF N = 12 THEN SPEED= 2: PRINT "ARGHHH....I'M GOING TO PUKE!!!!!": SPEED= 255: GOTO 2000 + 6530 IF N = 47 THEN PRINT "AHH..CHOOO!!!!!!! I GUESS I'M ALLERGIC!": GOTO 2000 + 6540 IF N = 56 THEN PRINT "YECHHHHH!!!!!": GOTO 2000 + 6550 IF N = 57 THEN PRINT "SMELLS JUST LIKE PERFUME!!!": GOTO 2000 + 6560 PRINT "SMELLS OK": GOTO 2000 + 8000 ONERR GOTO 8020 + 8002 IF PEEK (222) = 255 THEN PRINT "THAT'S A NO-NO...TRY 'Q'!": GOTO 2000 + 8003 POKE 768,104: POKE 769,168: POKE 770,104: POKE 771,166: POKE 772,223: POKE 773,154: POKE 774,72: POKE 775,152: POKE 776,72: POKE 777,96 + 8007 ONERR GOTO 8020 + 8009 CALL 768: IF LZ = 1 THEN 8020:LZ = 1: RESUME + 8020 ONERR GOTO 8030: POP : POP : POP : POP : POP : POP + 8030 ONERR GOTO 8040: NEXT : NEXT : NEXT : NEXT : NEXT + 8040 POKE 216,0: PRINT FRE (0): VTAB PEEK (37): CALL - 868: GOTO 2000 diff --git a/___.bas b/___.bas new file mode 100644 index 0000000..cb2c111 --- /dev/null +++ b/___.bas @@ -0,0 +1,34 @@ + 0 D$ = CHR$ (4):OS$ = "OPEN SG":CS$ = "CLOSE SG" + 1 WS$ = "WRITE SG" + 2 HOME : PRINT "PLEASE REMOVE THE 'SOFTPORN ADVENTURE' DISK AND PLACE ANOTHER DISK IN DRIVE 1. HIT THE SPACE BAR TO CONTINUE" + 3 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 5 + 4 GOTO 3 + 5 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868 + 6 PRINT D$;OS$: PRINT D$;WS$ + 10 PRINT C: PRINT M: PRINT N: PRINT V + 11 PRINT GG: PRINT R: PRINT QC + 15 PRINT DL: PRINT FH: PRINT ID: PRINT RR + 16 PRINT TE: PRINT SS: PRINT UR: PRINT MA + 20 PRINT DE: PRINT TI: PRINT DD: PRINT PI: PRINT WA + 21 PRINT ST: PRINT AP: PRINT AS: PRINT ID: PRINT BU + 22 PRINT R: PRINT T: PRINT A: PRINT BD: PRINT TV + 23 PRINT GC: PRINT AA: PRINT WR: PRINT FH: PRINT SC + 24 PRINT WI: PRINT RR: PRINT BG: PRINT BB: PRINT BW + 25 PRINT BI + 100 FOR X = 1 TO 30: PRINT D%(X): NEXT + 202 PRINT T1$: PRINT T2$: PRINT T3$: PRINT T4$: PRINT T5$ + 250 PRINT P1$: PRINT P2$ + 260 PRINT P3$: PRINT P4$ + 350 FOR X = 1 TO 30: PRINT T%(X): NEXT + 390 FOR X = 1 TO 15 + 391 FOR Y = 1 TO 32: PRINT V1%(Y,X) + 392 NEXT Y + 393 NEXT X + 394 PRINT D$;CS$: ONERR GOTO 8000 + 395 HOME : PRINT "GAME IS NOW SAVED": PRINT : PRINT "PLEASE INSTALL 'SOFTPORN ADVENTURE' IN DRIVE 1": PRINT "HIT THE SPACE BAR TO CONTINUE" + 396 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 400 + 397 GOTO 396 + 400 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868 + 500 PRINT D$;"BLOAD CHAIN, A520" + 510 CALL 520" SIN SIN " + 8000 HOME : PRINT "DISK ERROR- HIT RESET TO RESTART OR:": POKE 34, PEEK (37) + 1: GOTO 395 diff --git a/____.bas b/____.bas new file mode 100644 index 0000000000000000000000000000000000000000..451f428874efcbc8b3f6da87b3cccd4790712a13 GIT binary patch literal 16174 zcmeI3+j8T^5r%WED!l_#l@yZ;s_fkyDp#r@FeGLLU=SR{<-Y%erWuJ)sXLWRjC?7YN}(Ns-;cy!yW&-z0t4LA%=OW z_+^Tr>n_!L>Mj~{d-Ea2Ph9u9Qq|@$GEb9--BO+6!bGvEyD(PADfc!l&*aBA*?{l< zxV<^YuH)00VRMZATrHW!t1t}t5*sE6Y@@2GHatbG@nP*pKF>qd#;Ll*MN^)#hNXq) z=4EZPQFeM=?Di%Mr+M2^tj@erb+|Bq_gm+M`NnST4{12v^DJ|vj#rs=KMnp$c^Y^J zf1yKQaMkfzbJZ|)obo!e;Om9(^*x!E9kM}6r_dj|IPuphe2U8wb=2ILA|HjJ3e%G6 zE=oL{bern7T9EOK8k{AiP%r5zEODDGGRoBk>2dlEa$eTSR%kOr(Nkm*E?S-^%XR2N z{rG|Zs+vX7n6V2|7$n2^I3dg1o1H$a-hI21;83tGFI6AvHVv#gFKo3sr=_j@Io+Oj zyv-c>v18aaH`cIVFW-A<;$=!~B+dIObZ70<*0re*-5PCN9i~PH)NIcjP_f^?`*o{L z+v_qzlx`$RCe91OK@R8-f-nh$YDhJ}VWKa(wQGdc)r2sunRBb#B&d~XuMlxywmY+%-|Xh%dlWcEUk zhB0hcTW}$tat5GsfjvgfOw;Ele!JWKy3ycE;#a)_4m$3H50FUj0DYX13=QML8+7Rr zo9Zt}s*eK_&h4JtNXCS(e{oxklUHd20xOn_9j{9|t{sNmCH&ryK>ILALABx-kvUhF zmIVkqFw2Z~a8oAUvwWJ(;b;I#V@d(IRXBj50e#vu&cZ`HB4hiatoTJ!dE25Xda#|| z^DgEnkIkk?aN%{dto$p`ASKV)3;>?(|UvYsZW^V&6-6=%brQ#G#R z2*iZyDNYxTVH_{q9c=4A@B`oZmFe$Ut|5rF6agPYjb}0yz%O+%3^MKNAdgXeI^JXb z^eJ7>v5FVmLfz##0tHRsBk|)h#XiD;rr3p#vEgW36~Qv0!C^fdI!!JhGDQ%;=!C^3 zcHe%pyKZ9^w<$Y(Ap-Pa)dI$~T#!eR6n5HWgf6twY^L9){?Zibk05MCUxaCc6o(z{ z;#1sde$Iq9H`@tt89OBNSJ(yD0vdMJz#9t2G=q#K_J=8_2B0>Yl@=M;YajfQ!0@xr zE!+Rd5w4;q=0*^DJ;hkJD1x{O2huIr7Y8kJTNKBX$TS4k(&V!sh-c??8l0%?&SJCE zlYH9ysxgljmXrrXc5WjiX?~2&9-BuxJUYfY9WVRhv0O9iFsC8wcj);cOhxUQDPhkQ zUU4XFVuppjymqXC)8qvpI}Z=|B1nfGdwJt4Gx48Y{6B3%*-z{u6c)KOIZty%3^Yhk zo07=zoh1Zxa*79FI(S$YQc+pft(|tE37fXubPz z6b1!o(iwfL^U%yMwl^<%oHxa}Zq=QuDKu1y+du6f-bTIp1T4B$T(AS6k7=5TCb%$6 z-C1ziv;6wfPWhlH6w}QDe@Erpn;to}8expa^Z<^N{YhBR^l0jEe~b|%!^?=8>iH6z z0ZXhi_k^{822b$UAuap?faT-SLYwDJ4!Oz`+BnCL4tZi!_!ggWMl&HDe!cPBS1ZAf ze9#CWN-^g_!WE)JWb^^RbMc5purF%p{vU1_h6_27049Y~-h0%-kW&um1)+~e-LnRu z2BL{#x4;Y`m2uB&_zl;U3j}OdB6y{UkpJyX*@l?NabvEw% z8_Vt8Rqy}0fA{D8`@bLs*x?pXk>rZgl%zdKiGX=FE)zOQRnpQjbDO5+fx8k4Ecir7 zrhB#q2|V5K$W4Pxk&SLcs@IwjY!SiEgiMw<6c^<>uro$!>|xS-RF+QBK%X7bB~Y`( zP!m3V62A3OyqMh&j|Oz2%lh=Urw*@D=YUa(jS4)-hKg0zQ=Xl_7#kM7RoYcL1xrTQ z9g>Cikb^}bS}2eQ>`3flslHvC_HBmVu1g-$+M7M%Di}HuSupf?boU03z_;;FkC&p9 zw>LwU@J=4)^MKMUq=e9GQneHLSY{4og94cAz*oKR+e82T2^eeL$?Qimp9Tv@vrh+J zB)yaE3%cbwl#MusC#Wo$oi=}#Lb-3lIxNadtX-iOnnJ4LH>7tKo1tt5GfOzdy>!q5 znyRve&TR(wY#EWO3P{1bz=s8VV2eT^jaF4*9csX3ggg-uE0q{f=SJG6C#nkNKYJJ$ zs74U+#hN+lOW{qd<5x3<)5$&2bz?;n?VsPA^Z5a_s>8Shj`KsD9!u>6lAxngkmRth zll79pAp!yJS%#dz7l5YDJ+NTm3^EczDDb*YfmZO4@;+O1jNghQS(QSCQ7nTXt0nBn z4KK^(&K*?1w~1dg;?xfhY{PFec;O*^KD!wL1YsE>B)Y@K6Nk0vpAd^FA)sf(d~r$ce5GghXDO#$r<3@-?!eYtFvXs?djH*nZoas_fKYzn zm{SKz+ST$T?xD*J7OPObPzo*!P{fKSSgMbE!Hb!pm-|YD3r3mQ=0QQ&lBgh+hY~TXGV-hm!QblfoOf0((jhA^$ z*$iHaEQLHMl-WH=-YEjZ8==+QrQ{I8#V(Da{Fs`pBL}8pg&{HV0oX``_%*&npnY-< zA?+J8xI|?gy|jXexG^rXI<5m*C3U;#@j9LG7qoqp-Pu2HO7=RX>v77;Sil3M5BBE= ztR9~N+Q>Cp=7xGr#HXLEHNnr>J%s#MN3T&7L)GQphMKQQvgGg@hz4vZTi(P&Bc+Jd z)P>xp`#(ZDGJ+TCK%@t7r*MoiJNXlLh4Eue$VQFb)Pf{is)0TtAm#QbLcl;v67Wy# zIU9wRf<2nH;xrS_Y3;qgtL@p|AJ_Fqp{jD1Q-HFNcVH9G2gEsX+cqc%e$N8jr1Z^c z$vZNhoU80#1td$L5QbQjKuN}07zLtv7EyL-y%?IolP9Ik!OB=>ui3l{ zN~#$NVoIl}-U9jsaB1&!^10T!$I^?H297tm{~Rh*fWVvDoEcaMy;T#o=F5q8m#zHg z^-BfX8HiVk#ARFTp3Y1Tp6sSNTvnnr(7Y%yrbz-!~>neD?ome zn0d8(Z>f@dN}FW$P7v_5^M;B7TGvKmTYBpU-rM3^ORxjkQF$eBB`D2|a*Aq!gFnX+ z{^sVOmz;>$M6d?~Fz*u%`8^FSbkbVlV$xmp!+BQg*>)R3-MyCqC919G>@DF5I{-Ei?+SwINH%%OXF3D9`19wGB$SlKOJd3Dtx{W>x!AS8? zpEOOQS565HvK0hae$Bbm(Y&ck!={{j>qkCXR?szdyJ5Q`6a#Nnf_+n}@3jY^I!%wB zd&kUmddqrH11DIpsB6-$DbfFQdM*dfa64%Vm(12ngL6r(DK6h4l(d5=7)cOEK>a*X z=RFWEaH?1$o9+}(G*mfxqTr~BR8tZF5jfE#s>tqhbV1)NAyiT=i8fR4&!RK-U79W} zUI)(9HDSd_GG&HE3c~cF*7>E*W}%}|8*+*iO$h`ovhp(^OC{e((%UY3Gg(;SSw`pd zA}WfXJs&OAzpEaV_$I1c$6tjON@qN4uYP`Y+@V54q+?Fs)8L3DLyk;`2@6p>o!VDc zvcdH78~$7e3Id+zli!l-@fIx?qsq&CV}QmAwSww&tx~-WlxS=MwPP8|xw}!Eqde-h zAgSa_+V#aJQXKe@FH-6Lq8I8O0AuyM9dW@I5 zouQ7g@8UN#)`4nM++thiXHiPM@9y1aepYXE^|hO;mBz`V>ka50VNXf5yx_AwWHWN3dfnMN!Z~Ek#<fycaa`vBzKQSy*J;^X& zR$fb(No675eE1M+YNBj#!&BA+NrXb29Nz-7V{1Y`-1(C2Dl2$CkFOYUOi`@$QtDz& zbf*9MA^`WWUBB8Go)VdQZh|}BsC2jnq%=efh4$#SeR-jvHZ)l6Pd3+`Dd&&)fp)e$ z&QYUpCl#&K`AICsU&M0IY9x$0H+RO>-LHWs`r=I!!@sO|dxJ}*PEM{w%8#R@^r2df zV-Q2E>F^h3*WXJj{*ND;jbk08Z)GtE#jDyQxi7bL^IR3}5|98ZWzq+wrv7Jbd)WyJ zOfmLZF+_KUq#$0HbtTCBf|cUo$*`RzK8wbnz0cZO^i)%oZ<+`s@D5fAEDfC=#JPJd z-bK0~+`pEw@NlX$TtxTj^q|)c$D_HP>8`tFvkx5!yQ39jdxxjVeVhGgCS=73BWvf$LkDn?1raAtv jb-z#R>116(FYkT+mtMo>chv0@)ict^mStqg+nav^ZoNI1 literal 0 HcmV?d00001 diff --git a/_____.bas b/_____.bas new file mode 100644 index 0000000..4a7d660 --- /dev/null +++ b/_____.bas @@ -0,0 +1,123 @@ + 0 POKE 34,0: POKE 35,24: POKE 1011,0: POKE 1012,0: CLEAR + 1 ONERR GOTO 0 + 2 HOME : VTAB 7: HTAB 11: PRINT "SOFTPORN ADVENTURE": PRINT : HTAB 9: PRINT "WRITTEN BY CHUCK BENTON": PRINT : HTAB 13: PRINT "COPYRIGHT 1981": PRINT : HTAB 11: PRINT "BLUE SKY SOFTWARE" + 3 VTAB 22: HTAB 2: PRINT "SHOULD A SAVED GAME BE LOADED? (Y/N)": GET A$ + 4 IF A$ = "Y" THEN QQ = 1 + 5 HOME : VTAB 10: HTAB 15: PRINT "PLEASE WAIT": VTAB 13: HTAB 11: PRINT "INITIALIZATION PHASE" + 10 ONERR GOTO 0 + 15 C = 3:M = 10:N = 0:V = 0 + 20 DE = 0:TI = 0:DD = 0:PI = 0:WA = 0 + 21 ST = 0:AP = 0:AS = 0:ID = 0:BU = 0 + 22 R = 0:T = 0:A = 0:BD = 0:TV = 0 + 23 GC = 0:AA = 0:WR = 0:FH = 0:SC = 0 + 24 WI = 0:RR = 0:BG = 0:BB = 0:BW = 0 + 25 BI = 0 + 100 DIM D%(30) + 110 D%(1) = 1:D%(2) = 2:D%(3) = 3:D%(4) = 2 + 115 D%(5) = 5:D%(6) = 6:D%(7) = 7:D%(8) = 19 + 120 D%(9) = 9:D%(10) = 13:D%(11) = 1:D%(12) = 2 + 125 D%(13) = 4:D%(14) = 2:D%(15) = 5:D%(16) = 1 + 130 D%(17) = 8:D%(18) = 6:D%(19) = 14:D%(20) = 7 + 135 D%(21) = 8:D%(22) = 1:D%(23) = 2:D%(24) = 6 + 140 D%(25) = 12:D%(26) = 18:D%(27) = 6:D%(28) = 16 + 145 D%(29) = 9:D%(30) = 10 + 200 DIM NG$(20) + 201 S$ = " " + 202 DIM T1$(20),T2$(20),T3$(20),T4$(20),T5$(20) + 203 DIM VC$(30) + 205 DIM SS$(20):SS$ = "I SEE SOMETHING!!" + 207 IC$ = "IT'S CLOSED":IO$ = "IT'S OPEN" + 210 NG$ = "I CAN'T GO IN THAT DIRECTION!!" + 220 DIM VB$(20),NN$(20),IN$(80) + 230 DIM NA$(200),NB$(200),NC$(200),ND$(200) + 240 DIM NY$(20):NY$ = "NOT YET,BUT MAYBE LATER................" + 250 DIM P1$(20),P2$(20),P3$(20),P4$(20) + 260 P3$ = "LUBRICATED":P4$ = "RIBBED" + 345 DIM T%(30) + 347 IF PEEK (768) < > 255 THEN 0 + 350 FOR X = 1 TO 30:T%(X) = 0: NEXT + 385 DIM V1%(32,15) + 390 FOR X = 1 TO 15 + 391 FOR Y = 1 TO 32:V1%(Y,X) = 0 + 392 NEXT Y + 393 NEXT X + 402 V1%(1,1) = 3:V1%(1,2) = 8:V1%(1,3) = 57:V1%(1,4) = 13 + 404 V1%(2,1) = 4:V1%(2,2) = 9:V1%(2,3) = 10:V1%(2,4) = 11:V1%(2,5) = 12 + 406 V1%(3,1) = 3:V1%(3,2) = 15:V1%(3,3) = 14:V1%(3,4) = 23 + 408 V1%(4,1) = 1:V1%(4,2) = 48 + 410 V1%(5,1) = 2:V1%(5,2) = 16:V1%(5,3) = 20 + 412 V1%(6,1) = 1:V1%(6,2) = 56 + 414 V1%(7,1) = 1:V1%(7,2) = 61 + 416 V1%(8,1) = 1:V1%(8,2) = 46 + 418 V1%(9,1) = 2:V1%(9,2) = 17:V1%(9,3) = 60 + 420 V1%(10,1) = 1:V1%(10,2) = 18 + 422 V1%(11,1) = 1:V1%(11,2) = 48 + 424 V1%(12,1) = 1:V1%(12,2) = 19 + 426 V1%(13,1) = 1:V1%(13,2) = 21 + 428 V1%(14,1) = 2:V1%(14,2) = 41:V1%(14,3) = 22 + 430 V1%(15,1) = 1:V1%(15,2) = 47 + 432 V1%(16,1) = 1:V1%(16,2) = 26 + 434 V1%(17,1) = 1:V1%(17,2) = 24 + 436 V1%(18,1) = 2:V1%(18,2) = 28:V1%(18,3) = 65 + 438 V1%(19,1) = 3:V1%(19,2) = 14:V1%(19,3) = 25:V1%(19,4) = 43 + 440 V1%(20,1) = 1:V1%(20,2) = 34 + 442 V1%(21,1) = 3:V1%(21,2) = 33:V1%(21,3) = 32:V1%(21,4) = 49 + 444 V1%(22,1) = 2:V1%(22,2) = 27:V1%(22,3) = 48 + 446 V1%(23,1) = 1:V1%(23,2) = 30 + 448 V1%(24,1) = 2:V1%(24,2) = 69:V1%(24,3) = 29 + 450 V1%(25,1) = 2:V1%(25,2) = 14:V1%(25,3) = 43 + 452 V1%(26,1) = 1:V1%(26,2) = 49 + 454 V1%(27,1) = 2:V1%(27,2) = 42:V1%(27,3) = 36 + 456 V1%(28,1) = 3:V1%(28,2) = 77:V1%(28,3) = 55:V1%(28,4) = 83 + 458 V1%(29,1) = 1:V1%(29,2) = 35 + 460 V1%(30,1) = 1:V1%(30,2) = 34 + 462 V1%(31,1) = 1:V1%(31,2) = 73 + 500 DIM D$(1):D$ = CHR$ (4) + 520 DIM OT$(20):OT$ = "OPEN SIN SIN SIN SIN ,L560" + 530 DIM CT$(20):CT$ = "CLOSE SIN SIN SIN SIN " + 540 DIM RT$(20):RT$ = "READ SIN SIN SIN SIN ,R" + 550 DIM OD$(20):OD$ = "OPEN LOG LOG LOG LOG ,L560" + 560 DIM CD$(20):CD$ = "CLOSE LOG LOG LOG LOG " + 580 DIM RD$(20):RD$ = "READ LOG LOG LOG LOG ,R" + 585 ONERR GOTO 8000 + 590 IF QQ = 1 THEN 890 + 600 HOME : VTAB 10: HTAB 15: PRINT "PLEASE WAIT": VTAB 13: HTAB 12: PRINT "GAME BEING LOADED" + 602 VTAB 20: HTAB 7: PRINT "DUPLICATION FOR OTHER THAN ": HTAB 5: PRINT "BACKUP PURPOSES IS A VIOLATION": HTAB 11: PRINT "OF APPLICABLE LAWS" + 605 PRINT D$;"BLOAD CHAIN,A520" + 610 CALL 520" SIN SIN " + 890 HOME + 900 PRINT : PRINT "INSTALL DISK WITH SAVED GAME IN DRIVE 1 HIT THE SPACE BAR TO CONTINUE" + 905 ONERR GOTO 2000 + 910 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 990 + 920 GOTO 910 + 990 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868 + 1000 D$ = CHR$ (4):OS$ = "OPEN SG":CS$ = "CLOSE SG" + 1020 PRINT D$;OS$: PRINT D$;"READ SG" + 1030 INPUT C: INPUT M: INPUT N: INPUT V + 1031 INPUT GG: INPUT R: INPUT QC + 1035 INPUT DL: INPUT FH: INPUT ID: INPUT RR + 1036 INPUT TE: INPUT SS: INPUT UR: INPUT MA + 1040 INPUT DE: INPUT TI: INPUT DD: INPUT PI: INPUT WA + 1050 INPUT ST: INPUT AP: INPUT AS: INPUT ID: INPUT BU + 1060 INPUT R: INPUT T: INPUT A: INPUT BD: INPUT TV + 1070 INPUT GC: INPUT AA: INPUT WR: INPUT FH: INPUT SC + 1080 INPUT WI: INPUT RR: INPUT BG: INPUT BB: INPUT BW + 1090 INPUT BI + 1100 FOR X = 1 TO 30: INPUT D%(X): NEXT + 1110 INPUT T1$: INPUT T2$: INPUT T3$: INPUT T4$: INPUT T5$ + 1120 INPUT P1$: INPUT P2$ + 1130 INPUT P3$: INPUT P4$ + 1140 FOR X = 1 TO 30: INPUT T%(X): NEXT + 1150 FOR X = 1 TO 15 + 1160 FOR Y = 1 TO 32: INPUT V1%(Y,X) + 1170 NEXT Y + 1180 NEXT X + 1185 PRINT D$;CS$ + 1190 ONERR GOTO 8000 + 1191 PRINT : PRINT "INSTALL 'SOFTPORN ADVENTURE' IN DRIVE 1 HIT THE SPACE BAR TO CONTINUE" + 1192 POKE - 16368,0: GET A$: IF A$ = CHR$ (32) THEN 1195 + 1193 GOTO 1192 + 1195 PRINT D$;"NOMON C,I,O": VTAB PEEK (37): CALL - 868 + 1200 GOTO 600 + 2000 PRINT "DISK ERROR- HIT RESET TO RESTART OR:": GOTO 900 + 8000 PRINT "DISK ERROR- HIT RESET TO RESTART OR:": GOTO 1191 diff --git a/softporn.dsk b/softporn.dsk new file mode 100644 index 0000000000000000000000000000000000000000..4b1a54fa90cfc0918049f26ccb82563d1f8701d1 GIT binary patch literal 143360 zcmeFa3t&_A-8cTDEv1wK<)T&;ID|r5D3B(-!=P!CHi5J$Nm?i>W*2AYqnq1wug{)6 z(>dzU5mx4=;w*$pDG5y}mQcAANSisGjLu3Mhs{UqV8D+$g|5?Ze$sITcP zPpJD`|CIzl>(cr^N!YdU&gJaVCkgm3Jp769=qJLGj{*Bb0-HEt{J62PV%!KJ<@oeI2gYxHqhs?29quvC4?CO}JG|#RoG*8{W1MewxZ|8}ceK3Tv2oM8bo;j* zj}V4DZr1Q&T*G~F!lNCHSDxJbW{0`w7?5Dz(BOT&BmeDpsXwlq?{@T~UvwZ`{k8*r z=+-9(Qob@C4cv)noBzfb=amDP3OD6NdSC5md8I?}b+o+Qu`zj^Yx2d5{cm+_dYeY< zf4M{ar6b`!fpxaUrl&a4^BvwJJ{pWUBOTt~`Ak=wZ+19<@-4+Z;>QklLrmfg7dqI1 zF^-r|*qDzySO;SiV}E*%RW0#;Q(s zBx6MbJ8~-deMkO7X`Anh?{psT+%j_!^WV=cO1ZikCCR-aOTjIQh1kp=X#WqD6vzWAoYC2Wj* z9*vVfHVuovy~wXZ9`QG>YU$D|zV2olH_SgmO={Soo%6S{BjTm20a(x_-ryWNBu?{NKo!~7mG?zQ=m_oVy7Vnn%**DY`8vn4MZa)7#Z~oRyW=PwZ z{Q7ROLu&R5u{GLvXNu#Yg>?)1?u(1q(09J~zPP%y{8tx5v~A-|S1#QbS3mYEpY-1s z7o1-o(=Yx((AQSG3K>0u%Z}oj8Uhj3bSV3NUysy=c{JR*N;8^?d`7f?cKqV_x7O2^$BfNPW(kYg z*qHQ`81>v3K@&G6W_nD*_^HCAC3DsIpLE@V6=`$Td2`iMXC$bX;J@^#P?f!GK~6%> zk_8LsZ64k-k`uC)WK5yA$@G>yWy+MvQ>TuZj2;+iMhtJ67wuDst9WUa6uB9unNe6+ z7_*?TaOwJtlb!+o&pX8OM)Fn4`~7CAbXnuRIcnzt-`9YkW~kVrt^GZ6!=N%%&%} z9Erz&l=%HqQ}hX|6NULJAIO*0#ConFULp-4bRWTg$Sgix+$ct%CWendP2lY@yfx{B zz>y|By{(`(ok4F{VO%+Oxuh6s$9sgKBhUv*pEq%pBI^RV83wKeGmrONyvUUUK07ux zUD)FK$;QW|_bpp`ej+|5zdzmMYO340!B}T<#ccX8-W9j$!#LNNeMXOK@)={~hDVIJ ztTk>iViH$E=O$XWcp3Vw)+0^JfyP>6?dA{1(!JP?;-!SnhmX7B_Zhe5vYz9K;$>It zzGZb~u9$sBS26~T-(pO6v4lJ7$96t)ye+o#hsVF1lb#?>aE*g-ZWKRi{cx-+Zl6(D zcQjp`va>9CA_*r+=LfHqiSN0R_8BAVLUEC`cOQ9j(QW`AFx^#l27^H&Ux7(5SZm!#MHP$f;U)QM%c9 zG*V#RdlV}+8k?55CT%g+MiPQcB5`g(eAzX2pKD->W<*sUI zME%w)hk-X(Exfxcu_t$WodImL?x-;Fm^+~@)vb2kH#Q&0iChmfwY}f8NPHK|Z+q)C zeUm;kw|+3Cek?6LpVp2MSGXP!V|E&Z>LYFcfvvQC`Lz{ID?-WjZ@DIKSiuL|y8GD1 zz68yREH1YkyL>_US{Lf7b3EZ?0?qbie2`=>K0Z zF!wsmg1*Yl{y;b9GjeHXV)*{<5Yc>C(@j_r4EuV|XO^RcJJo$u`YLgU?y_cXrI zIHM`pG`Z=;rpCs{8y{%At4Y(itTDZDQDbG}e>OEVsh__2Y3I}5Y5e`p-|xKbd3Ju; z&~JuvFTA?**S}`xW6zI<#y7<`-JZOmVOi2|lDuzpkZfMlm^&Y3y zlYWPDwMQL$=lX^_Z*E9TzFzA7zvS+XGdmykG~DYsmHdHspU1fd7N*(T?um>y3Jtqz zU2IDc#KwE8M-&>DbgtgkAjVQl+cxKWv8E>HZ)3gIZO-4sy5q&M-Y<9}@y=U4<_C5- z%*PrK44D7mG5b2alN(wlH8{Loo)*8yVP3ua;ze`KN9NnEnAcvR_uH=Ac11X|&AZwY zxyIG@xi_ed zq&3EDwtD)W@rc)-!o{i0w|H7_@iefQ3%Ck7#e2Ei78^iA<)A2e)Hm*cI-gS8I*uNo=;|CJ*M! zcifrF+)i_FyX(rPTRlCSzTmlZtEZ7Abn=14F|-$9=Z=i~Yc}leNsPqQCe%mLBf`NA zyT#|^$z!oM@0b{@Jsw0i|8%=Kuxrw-o|aoZ*jjy(JEmZ~J2KWi83F9^crj*!)-4d^ z^TJPE2^cyuE3tkoNXJ}vm}^|ZqdOuKx8CdNIlip^J$w*9P8TO*D0edTNpj6f5Kns_ z^@LoJY2JJBOI$@akJHVVdXEP-&EdS)<4&SGX~MxBZL@ca*PWlzHjUaR z5H$XLLR)|Rgh#{#cMR5sRRgiNd7SrnoL}}h@ANqD@(3>;^YZq9^h#*a=`re6ca{r6TO|l=xxfK<7%gx@;mwx(!V6B@a#B=>3u>F>!a3 zK^)(tKUd|h-_&F{x7J-hLHs^GuW{GMi0^y9=n;SN#7Z>Udb_7dzxB%=^97gD{eU!5 zZN~i*v9fzS;v12tga>w*zrP*W7Fu^e$~>L3!Nju~j1Dj$C?!LSH9uHWRV8DMnc5Z}`t%Xi84>h~T3Z6z} zLR{>LEkzFZIPi4>Am)pW?j-TDH=)7V>GO_na3UQt9;6U@=$7zwqp)e0__6ux2i(j& z{4`P!U-WqI^oWVxyF3uEF(58JQrEjY=!)D42or1W*;S`&($^IUCCx%bvoNC>6mcH* znRoBvtQMI^DVajy_k51M%@~Q+%a?}sNK^2(!jExBc(OT?EbMKLToyddk$0)jwNE?T z;}_lL35|y)VJ>%^F#NRlo1T_$c!cv$V<9bf@(T_zUwK;C-RQo5QI`)sYphw^#hVM? z-boCYF-DBv{0+~hZ+ZY|{f4LIn;!GmcM7*W4e7q~8y@KOh|u(0a;&*`mpcZtqt*1M|@tC|5J z-uwm6N?>(c6U^AXo`y%sjG4dP7R=8~vzZ#k>%x~h#n?w_rV_-n(@=MM2@nA`Fb`!XS$QK`(2GjCYPeZ2< z6C;&%m@;?{cM-TFGS>TL;?Yl_gS-ogJQrdpt1q?&CD?nVoI{CLMZr40IbBc6eY~``G!&B36*Id-U6ZrFktL z=YEg3(&O}b!0KRXaZ+^IZz{`fhBOEcksRS(^6ka5hNtV#OU2?G+a7_Bp&hPo2)Y z-&0rQ5aRdLUyBTCXe@}n{($+%2PiazwL~-b1Thh+B;Gv&3-a#DbMV1a6JB~QEsmN*ZH0hj`9*1k@!FxShiZ;TP6Lp-m9m6xHdQbae*tE!WI_Md$AIh`-*Ld>NYC;bjf2V;aOn z*Svj2k@235`-&dY)fGL0;r10d;B7=E0VBa8F#*^K>LO!KIm#gti5d4t;z>fpU5Q`>l@^=HZnE@SDh>U*%1T2; zz-p+_l?O|7cAeRBvfR>NVZmFa^=VVZ)8)Fgr6#jsuv9cv3>DKv#WZ6vrmHqsO{M49 zoV#6j@4$~B|8p=^yl{^yUKKa@KGogoyNm8FdZ6fm1eSoj7_Qlz{}jHCe|J9@80;PB z@^^>AMM82yT+Eo`u6o9hYi2R{8Hb-M_p_0oD-*{#&AN)RDqWdDsIb@tUA4|+))kwB zRzMAc!D_V((EbcUrPX3Ll-LacLxoK_^iyZ*LU>;{Zc#QdVz8ypOu7`o7Lxc%^ccKo~T zbM}mFS<~{hmIdC&y_Z_vZz*V*;&rxO=lyQ`ciSIs`Dx2TEkACd>&})?%b}JNxIWJ! zF$e%|^-wxMxTDp3*cY1EHUR;}DUY!;0WAJNV>rtN<#hbC` z8T@MJ1>fd3d_rhn{rb&MwZkZNj(4{{)xNTAB0`$baWU3>YrFZI?Wmbt*zX?G@cMqV z67Qu+LhA;7oxDjW z@6_3|A4bu6+1L5{e&;1$=Y{>wcYK@A`P^5W=Y7tXecoTSJ74gnnAh)hGf%@A--Yvw z#1CO}P#O81&wJeG{Ltt1`x5c;Z2rLKp5punrgi3CA$zaT{fs+i(XcNvNB97pQ-mpP z`TfuP;4`1|c`x~}e(yUzYy~SMjHK`JUiPUM0v&b5-lM*{60BCZ@fqnZsxnCb5Gr2- zDqkg3-rjEhuXgJ4p>*>SZvF;0-^ERVwF|pj$S1+Txc2SCN2AcV&&6uD6q_Gw5e~Gq zP1sj#6mHrl{A6FP!~8XB=k4|hFSN*gsPVpHd`55cDfB+jhQ98iiNikUun!&0KiTJg zz`3oRJAK<|16VQ839o!xyM%dZC~0>zeB>a0BZ3hnu5~uF3rkw@zi~q6-geaV;Bq`<@Luky z(+kA}$A6+$+buANd|eTndZo*Sy(P!EJWrqp-==F^VqzQev>zR8rcvB3y7Bt{Iz5;O zCaSoVLoQsn;F^iO;pPR{BpP1*Onr0PHmuU^1hl`QT}%*?{@}g_3v;+)+{}moXlHx< z)ZguFhgmbc0fSfj6=pP-wbqVrLywKgKX(WTdtniSK9n@iz(Ot(VeL5V;29r^bp+tM zjuY0lNrgOrJGk@BcF5gZ?Tz`6qQmVM#E%-2&TooLcf}rbwKu%iPAfdG7vE|$iWh*$ zM)pX<;r(bO7~0%ZS|aTmH=>s5JhFdN=l&j)5aGtIZENY=zfnC_eCvtGYeH9tu(AUi zYh;o5#uzcCF|P9@__?zO{Orga_T4?kA-u8|-K=fyV~`DSlEXXfQv*|!&o;o?YwhgbriNa@5yVklAij4NhKv2i1G z0)9dKp#)rGy}uyzcz=oaT2Jk6Hx}t0vw6_B3H)PiLuR_z`Jyl7t`~gHU-&Sj^CjP1 zKleF*=>vAL@G)j1_!uo$akh+Qr1yBl|_H4Jh0Ec>AU&KnzTZp$%=VkGHqra}4@;gC5%X2@fW4Z05CE zlzT%lV*EsoF{Li+{lMpZqr>~5k4nwI@;QIg;r+GG`5x7mFLWS9ghUa_zTj&(Uf}*W zJKDxLyzh6o#)X7Pf-5eR9EouyJb|pO_Z45?c^_P$SABgi`yyY4{-Vp5eDya1h?_6^ z>ZcOqm%jRB3GxeHeLMuS{w&<1SA1{3=u7-c(ryq2#rDY~B*@-p7WO%xhJ}BlsE^XS;deOJJ)7Sc@Z}U-K z>s!8-w|$$B`8FN*T@c6g^uFN}r@VE+Cnli)%`RP};{a&*mT%MBKF6ikur*RVu~0mY zmTq5bz_+3Jp^{781PTD;M}t;)edGGOeEkTGNMU`j7upb-H~`KCLK|RqoX`7GEg`j0c_j z!QK?_o9%bK)gBq&_fC8LboUiR^iaupSn{@Z2zts_NaoRgH*zhFaVZBcw>Mz?c*y_O z%k3LaiI?g-A?V&nyEEbwAC{&U$2g1_x+UVPP2qYJ{msw@zyI!KQU*P}k#_Mn7%wsz z^8K#w`pfOoSnoMty_~OsAAPW3PSE;ITIZ`iSF*?Znr~%W>?8G)Qb7H?F8Ba_nbWpXTen*W>Ex0U--;D60cmc1|;c;yOB@PGb8-T#(;f80k| z+h@Q3&oMBeVGR2uCZ65vLEk6X>;GYou&fzL4T83sPX zz-Jiv3<{dBvPUZ;aWagdMKJrL>(x}4M# zW1pp)J6v7EL(+O_;=y3BZ_w3)O#e9-9~(_VL(PLOzw4yG4;vrAwdf!42e6?XcsYaE z%}@`}g^>sS=LWrhQetR68Rn=84SA)je>BZU(X-Ewm3I3FL;Yb+&sMyjbq$N*ek_|V zf%(B+V7SlUjZJ~hCqliw9C<{3iDF&B-rhllMpw7)?)CS9EBu2*V(wT>D&oSVahn1V20%3;^%V&gZ~2 zAZyqK21Ogxcfz1jS8r%=@We3I+#5Op3N<^WIbA{j;1ID-Gfn9aJcnMx1Du>a;h|t} zbE`!9-q7iw>&$Qn96}ATlEJ}q#O2)>>|aD$WqSH)o!zHHK@e+TAml%Z<#JrK0uS^$ zfyIM}CtdwPLLH%5;?U-^J?C6!{h^^_PU?D&Z}ntopqGexE<8No3Je7O5QL#{z<-Xo z96%Qc^IRw(;e{G|U1vdB8R&QQ22c8XqbniZ5bp0i=i0fit*wpd;3q7e84kL7`mjpA z5?AvusRhhObp4C;l*swNqb5XGBBm_Je~Fs^BE*C;AbNs8epeuT7F>K5WEvU>28UWD zbs2P>7zp=)o_=ukS%2?oE_=k@T)4PsfXMzXNLZ`08>*=n>h7U7r-p~1a%j6W zMb~hsH-Kfp=#bEcz$ZhYe(az4^rRmp@RKkw|7dmke?8w2Oj*zwA|54;H9+`)r1X-~ z=>qY(!v28(te*7pLj{vb9qjgtFkAjWfV3UZ408#K6$DMfC%BdE^7nR!`_Ga1M}=J$ zF_J`RewQowJSYrPg`a_wL6}soOMAoN(?o8rZNY(JxHkaP0`3~}|I_@ds60mrLVk_x zQNeKl#c0(%z!f(@Tyi;R(BBu_!D&g>mZ%KV3G;?MaV~L*V1F*LeA~fLFHsH6x`}dV zM!pD)<-kCAU~mU8EV0h>Kn)s=7SyYlB<1xJ4)%|P6_V;a4VTC7_QKevnSY#@PfSmFy2D4z`#&JpOKN{;tIl@CP3f0!C)_G zJ4JDF;Q(ON%(T2=c<3ivon8|2;lW{lujF}ij|yf2u9+XI6^ex1Yj{>L4Fgy!8Ei7r zidB*HMVEi5XCT}K4Nb#wMcd;a^vmAji7-^=5C*_|7#pIQF!sqF-kJm%yelGx>LE+5 zXnx|v9_;R{AD$#B9Uj@?em@NXT%b2B)LE{l`$&N!f(nNNFhHTdH+#wQNt=_@CbT6~ zE7md;mc$AUC&iCJ*KXO`obbb!AZJ#NG_f1%>L!iW8}2?0WDNF@J4J)SZyiL40W=Uj zxt)YQS8z$f+}cW?IH6pDU^jeU@_!K)f`JqtW(2L=vmydh91VNW9Y$D<7sinFN%w&N zg>$aJsc3jj!}kZt8asPJLkNip01JyPoq)~d4gp1KiV47ICx_3GFBX8KglH`g4)r(l zUR`9;u^%uk_Xx=0l*a2u0LXPZoc~@p3^1>7w@x~_9zyggg~?svz&W6z$NwB*;>57j znHKJsas$Lh@c)Pn;i6Fd)+I$4(t2I4zc>B=)yEsfpUo5)gGve;674whIpMhm=^yUv zLe|4Mh-^g{G7fO>`Z?i7^D81&63BizzrytbK7lThD@|$v0a*zBU7%(F{Lt+4;aL5_ z0|%QqSMZN*``ZsTw>qVf$bmXbN{VM#NM!pkB$XEb(WFOBCfR4d_iQGt{0&65%et3t2 zgUD4NpGg5Scfr6YQr=_`OXYbJVveYzBHtuxlA1r)7shS|DKFXTl-~auP4z#cjUt|k z!`aHiOE_vsP$RDkE+y0Gg}H)f1HS}ii$IuLF*sMq@^&@5dWI>xAqf-jeY!u~h1?Y- zL1Anq`Qgr^oQZ@>jaUtii}Z>n#89_^UjyF;`7?y#GMRYRky@S{hIfT=k?}(A6-op# z1-U|3X>l&eUC8jgz`eJ##D60mclYqX5Q2VgU?n9?nQQXeTbI^7b+gG5j0CL&uoGxpnyjciqEoeJD zfXp)mC-g$_2I54GDma8<8tO^5ffD9nWKg6?NiJ>jm>S6&Wq4v7B(c#3UbVD1DF!Dt zJIhm!NPhQmCm2aGg!a<#z2UAdxJ1M%{E}!L>=TE0^$jf2hf)=M3^)Q;)gVcr<@yCL zL}F?fZ;l}_l^<4%yzdiaOTdUIjSdG6qVj~Em>L6F7*afE*c`U<9#ZfZJlEf-urBl|VARXKtN#gpT_G#(>B3AGNsdK0b z#3*ovA%~|hBWMvVq?|-1BsjnWb|MQE!7vUQk~4)aQjHf`8XALE0|xSA?K{9M&xNT> zeRZ+drPOxOjvN4~s*hq90s!(JK_yyUGZ=JWSmaWU012ZIGf@Qt&ImO^b*7&-f?NPf zB+&kFwvnQtl_5z;LnswUx{f*tFmHn>RYMCx_i?p^K2m~@>O=sB`k^mTaqH`&P4~cK zfn^Nw#5wnnP7s-P92@!P{Oel%!*s=`O%(M9dWQ#lWGvD)2{%+Ef|&8w=!6Krhq{uV z&`m+vAP7ui21#9TsdQ{12!|j9B9q2KL()!oj1Xrh{Cp~MK`C#`U#CMu-H4=rIWSj0M1E96r-TGj-AX1WpC0xIQ9KbE z?~<_6s3QYB^Cbu2l?=$^z(`EIc!sQYoh5zS*V~|3FD)^@j)>(06ofm zKzQyD3FH^yn@bgNIk|>_=X3}m^59TdI*!scd=4tSpG2F>Csk3TNE|f~kQ=BT+}j<3 z|AYz!bb4^8o5D4z?oEV8l5z+xn9F~XB54W{aqKX3Lh}5hhJtLt$b$bTQS2`ZX;ePN z9_UqnH=((oTUY522Kmrbt?vW+UZ5Py0E(cLLgRLi$_e}!9b^pu@uGSG6s43`bOq0mQ-w1ol*Zx2ran}493{h4_mbp|-yqMJ z)~6gFp_(OpYNe4JcObc~r0%G}Uq;El_1#hO84V3&?Z>N&DDZ^3>9nJqGUIAdu81PI z@sfBTB161PccjCw6q8YT@@x-IZctKFme}6mF4QWOyGoJ_p%b^rT$-o}Mb-3W85CgA zc_joJUR1yl?_wJ0>mhyyke59`OAOw_Yf3z$M}uIkL$a1p&cgjqrr_1=NA%>eE+Gq& zNrD#$QbY$KkgOU%Y{#u85>z-BO>)6WIhwXgW6lJyO+*)%C#v^%4Py!}jZ#%d;Tta; z7r4tf9vDO(0|pni7qM|aq!vtobD^jeNRo*1GRZ!<$!J4qZ8Et7L{}WpRg&AvsoSU; zKt9CJ({E7v(Ygmt!33m26c=fz1KI}9#?TyeXw}sW4uv~N$4Q}9u146u*{A;M;#5(k zH|fl(K((mJW$M`n61*H(jISF~N%!&nIyQbkpXq0J$oEUC>>O6WYGywx!}Pj}5&~+~ z?5nd6%D`17Gap@>#U7k}NCsBwYIs8pdwlj`8D=ZDtl~f|YngpS0U9l9I53;}XLl;V za)UHv4*OvCdos{yFjuMqhg3F;)moD&*o``TUysFL<6jtrZ|te8vKv%|do*gbnk^IF zPw-Y$q~dFT_&`~CZ1$`cd7w&5m6fK<%4gZLyfV;ivhn?96)@ARRvAcN%S0_TYPNpX zUKzNusvPS8FpGV2R+|hg*ID_P8ZC3r+9v}`t4dZWC^qP;+ccyTOg*uytIDZ}i#RSH?l40d_>_=c%s z>a1l)Z+uE_sJB`w<=bY1u3Et&zBWtgWUA(S&Svl3xJ~Y4wm^1dX&vDY!&+Ur423l7 zX{H=DZsvBm6Oq!y_k{P%U#H_eBb1c^8Oef-dcjHe!g_6?pvI4o9Y&DxT_ZDW3763;_u= zd4Skw#K>rZjA`-#`SOe;8BzsE0U-CyxK@UM23k@;Kb#?O$eFNeH5#c4)NF9ZoCIhu zU9~|d)0G=mtPs*`mQ-Y@3O5kq4r;SA)rG(T;fino{fSF)qyyJ&kf)bss1hD8JXZJs zduPT1d0G>ur48M1Lw15!LN3Rny3o81WIY(l%GKuPXR2A@^+V&lB~ajfc7vD&ZE80f z1UtTsuF`0!FbELFGTUOjRIKLu;clQ-p0ydFO#~D4?FvD)6zgJlUjM>4h5YIO z(5q&R*Z*9>rm{)sYklfc6@43>UZ8KjtH{*lXw<60P4xcai!Z9!q3d6id#$cAK|k#&t9RSA|VJAHjznl?>Q{z)@_InHafidlWX zhC$fJW~A80RhIyjI-$~JFEJXd1YMkBSD-e02b`H;x|Avf1|j90Z%(OJK=|G{QiXz5 z2eppY-%MGf+$yiK8LbveIe~wgvQ`0G4dwWfJA9p7h23f~3sn`^AX@B6sZm;#R9Wr7 z3PF2Q#Bq(9?83*g3adf03j7e4t5k)=<0=(~hM01k@JpQ2w#x z>jwb@ukvkI!U)=EhB?=jD)V9^6?`rE*BPTQoy}IFv+Aj-`8tyVw(9gI3&C!`ZlwaN zq%YmG3#%$jr5sBSUuTwY>8qjotE`4%ON~&jE7PqrRqz(uuB%WwTdRtTB^n&Q&Y}Q| zEp|J;{122|Bli%mt5j~T0rx?tVh!(Hw^{~P2xP19ZHUF_rnkV9;dWe#HF_K0nrPV zSvbp4&ygRgME#GRI7E_Yh)Tuqo~05HuNqxd{y_+X#Qf>ewV%;`D6cwyS_$YcJ@3~- z$8VIP5Rzd3pvOH&#e;wT`ArnKl!Ei0lsgEA(ML9;DEyS7-BmR^j(T3Q!->(+B|3>V zN*S+DI{zR2ilD!*^B$iVKmPAK;@^KXJRd1Ns|7sE$%<&wSz_S6P#^%Nl_Oy33=?vw zXK~z*b1v^iRKnpQJlmx-JUKjYk|)7A@i@y$2cD2>r=!AGA9zCc%>Qp5N&Wq4LnD&> zAYmaD1rUDYAm8&;tD^_zz~3j3rj)YHbd-)x8X(UBj>kC=JlHD5u2NBvG8^zd`UncvM**Qo4bkS(lC# zP`yBwzHWNZoSzruCp!31E1VCLkLOS`<=Gh!imH(WqWq-ad9}#V!5>Q6@Z*?tnp=7X z9+u88ou8y~hKn4gQeBB5Q-EzZTFizybLJ>+QpS>5N!|)EYY%sY^Onq^Pntd44K^&9 zPoK1VxC?AsvXDMy@8Rz6=a(#^PdR(I>-)7Oi|JGD9`5#jcgd2ZLltEd2ap$ha)}x@ z&xG^fysa@>1RXp#IB~)%lU@%`a|L}!1B@b3d=}to3O2h{x5kz!l)@*AuJz)Qf+V=D z8clx*LQ1@4BV5TXY|B9)gP;$iVUV2G}SbzusL6mcGrvk}ROCZq`e(^grZ%Cf^oy9jMabH&oac)>Llc!G- zu~^AtrgVluAKgOsqInarWQ{gM)D+T~8fh=3i|oppauDBOFExv56iAjv0^PZ2eH4@@ zf$m@Q#V9CW0&QMYJ9;lqFM0^5KNHUBx8WUOLqU#~{bJD%CV0!w07=qnM`&RZN^})z zcKFS96Gb10tA$ih9Pxw1U(*(EoKP;7hqBa#qxw=LZj%~<99ad3fgA_}yKzw} zF}FtBN1F?%KdlhtM?r4x-}Lkk!out!GV&ljXCo5UW8LT@ivq(Fc!g0O`e z1w#A*5F#|o8i9xKIt0v=EkVd^vW-}Qmouuz@2`dmRjV_#SsJ`SbK@-sZ%}NR*+?s7 zX7ekImzj-}NM<%7OT5uXWIynRtDG!)qrN%RHwWebZ*+y!0N&_|hRVTvW)6*#L!;!- z068=OrobDGl1roH(kQt!N-m9(OQYn{C|CvFXhFG@o_R0BG5(OsSY=$HD21^L0#PcZ zo5xccSXA+FJ^;;_#nRKuWuU2o5^VtHu+ODeC@m?v2T)VMZb`SuK#Jg1{d^=I#8ani zc4vC!crPV_A$wTLuJqOPk@Og4N{G-L{m5|RTjmM4lL9nSc8F{nyO_38 z21-d^05$BBv{ffNEPCKF1vevwtTmeV1B*~q@)c8X0dbg3uGWNP#jyi8g^;^Ql%waJKi#z#ilKjft0iX zP*tKUrr%<=h6(fL%QunkLlFT$Ez6mgrVK*~XaeT3mGjbNU@`Jq9GJ~+otGg4?N$R9 zo9rBR&%6aP5X`|hk)6vPp0`j2+Dv8AnE7n?yi6HL&XkNzgCu|11*~V@BKdZOVGSw^ zT+}M5Qi3Hx240%CSiVmwN)F6of0(yK2CgxhlumGSIiJ8dPMr_OhuR`tJu7vF+?H~6 z1kBemZR!om06K}gv>Ikiy-@~IZi#o-vf9*{3J};+)`y%azn{(iJ9UN>!*t4l~WRN^wKI=_YDWFm=v)Tgoa_U?erYJ5XwJ)cp z%0Rt=s(c_|7Mn0{o&=PXUnQ0La0j)mxpODW&8dzAEvIHBbCYF|%?#8@s4v%*a3rC~ zwRY|l`94n$QYQ_&YwlD9hzuqlNy{FbJ52`aY(@!~%^sgST?Qfx%+aNR0+@S^0+a*- zrO9J+uT@}GTn16j8k&2Z45Q$MPm|AnJ2yoJQbtx@Fi*vR6V6O} zgcUSEKGUk=sye*f&(;WT4$b z1t9=6><6j@83^IwLuP5&Q>yV%pq*nTE1T_8B`QFjgu|>Hc1ATp2I{L&`jQ0!;Rzo; zm%XM+lJApW!GU?~W7R}uBw1~swwXM4()hwXFidKeHs>R`Bm^&nGU*fz9U_AwJJO$@ z^Re8(zDlQ*vFthnCOD)*7-X#=3udb{P!#~_;1NIX-Z{VLl~z$zVUah%9-i|D8D>Lv zp4O;g4Rbz`VFn#lS|K28-yHnac}|=)1__qUy5}%?D^+~UIqdA5F$zX3Yd8btviIl2 z$T0lX7n6)7=sFrVk4;y_%6C!Q(&=kdebp3gP>7(jr%}NefAK|6F&?iX1A-XOh61p` zI@+9W6h4rVvdTm%_K<3v^inNFxFH#McyBZ)brVc*>d9E33H2Mb%-!4>BxxuKO-75!?`_l1&7OJ;dyWoA{TJ=2hB%@i_A z@ovb}WvEZ;T>PEno~^aF*+lS9D;@u6yI z`BK$LELpkS#oJ}~ne@CeW+GORY7Ed(vY@{YNEl_tqUqmG91N_&kmcK`CHN19M=j;{cJ=m@0^3EOWj-wB+W1h^5D zHwssx(;fN3FQXjYLZ^%b!w)Jrm~RB0-Xa*h#CQTJ^FY^9?8kPy9tHgIPd= zgsPu%y?JBSUth*Z|_|p>k+ayI4{P!f8-5%*M9)mgj%&F&Yp%w%Jk(ZFZ!1coS+1X~>nE znU`+j^X7AQlY>+`-XM@-6(~rJMx^&Hb@H~7Bw<+;|6_4T;7OS!g`J*Qx|ufw@6qI# zE@xzo((+oC{)n37sKEiqzHl}>x3r$a^80j^BqG#z)Yfte3ISJ08oz7{Z=Bm#R;Dy2 zXM3av;8}XXZYnp7u!*+tA?l^g>C;QeKhDTkum1CeKNx8v<4;DNrhqn+U5L(DG{Lwewoo!W{heYVd)Q}&CY}oL~8Tkmdq~r&Lm2`X+XV- z8bunvTkzkLym~Vq?W*N~Yr)sWFpG#@X*-p2ad;7ET~&;om7|6W;)4mnr6#LTRs|c5 zJZpuyCc2dE1>fbv6LL7F`Cq$RHKIga)2-+id3I}7mcaO?$c44jI$c9 zvPR2Dt|Cge=HJa5=YUs{X_S-BNK&X-TmCosEy}lI`DIot%xthN5=?1W56)GXdA^%c z(H7v7cml$Fb*-Beaa0qZ&i@u4FrVZi=c>7Wm;Y^ktDvu3r>q%`vK7(K%`e0aMLxzC z{1;l=?Z5#3(p`yJXDSC77fD*nR#jOEZ;jSw6_CBtnQ=0ryfPDsZptjA(%wd?vzokW zni)ASAV3z@+Ps@MEI*KqoDJKV=irOOxe_S@LVO^YO8NG29st#P9MhL zI%R`JT}AmAib7WzYRGg{P|6Q7Ow%fA(VbhyyOLGl)~1poQCTtkD%Z?!lD+;jdIYE9 zJ|%Z#$Xm@jl17m_!d)kHfzPVQTOdi_*Eu z>b{vXKic$al}OekM_q^^6pgq&XEC)c=(BT2N7CYo^)Z2g&_UtS(>dyBTOu`LSez5W z;S#F_0jNPbiX>y`=Q&zxi_GR8Egi$UHaDMtrhX%aQuYowVN4YY-$3%rNYVf;g({Yx zePE)uI%{6KHj7SLkxG%BsS(`NWFMYrLHZTt0dk14@^Yy}Vks#+B(J76J9*MGd=|lK zuV7DQPsL)+kRG5C6e;Bj&;bhGh&Uh3IGW?wsr zudO6=ZH8D8&>|ViPG?^?=|Ofrd&Wp}zI3#|oPC4T9)OV!zt6rA9d68-%?Az8_@%T} z<$|*ES~?Q<746O>35d?ph0>-62L+Yu(H;5fXtXoxk%86h8`|ATdvXye->-cpiF=VS z-Rwu&jwH#Ol&s}W?UAJD0KmK!MGW?=)}Iu`1C5M*ozkA5LYA^N#2lhlOnQ*Ls~x5) zpPXJbQhiSHfp*ArnV#J;QKA8|6=Z>dZ5{*9*VHAoVS!NKNO9-FyW%B5Zp3Re4@t}7 zXyxTfq9TnTaS+H^UR7coB|Kl&{2&P)GFglg_HE50f3ky3njihq4t}ip33kw-**aY=o3d22WPR_+NYDe zYbDhE$=SWpVJ5pb>%Wqu;7zKY@yH&#E|#2MD_5Q{>2SA!NN(%lw~`aiwJGTm0rG}F zl?rzOW}n1|&LwWhdVsc`4f;}E{L!rM@uFmo^zlH}gZOv`t{)Lns_@BSv?3Y7tnc$4 zngG=iSfXYFul{EDAx0_a=Yfi}VoWXhPjFKz&8AWw!AnJ7q(|&FWGd})DS1S;RqEwQ zT(;@pC0nM}C&|YyvvKTFO0iO@nN_PRM&Bvn86v7bv#+SvCP^nri*Z&vfO0hZk@}V- zFO7;_Q8hx~PPC2`3lHxlx^}3)K#Y>bMP8QSLPZxr1oJcjZ5GaocB*d&tNcoRCs<_- zFmL6-2sv9)6%=U|QsbzCu$fukN~DV9O*!@y%8*h8dbkO?7{l3t3~ zUa}m<$o$+T3Kgab<=E^B)O(I1N#WI@x`V6`cgH@obWWw6YS{eBW9XL37iX+!nd+@6 z7d3s@0JhE-nnuTPVHFoFSWs++kFXLyxRzHgFa1;w4omYfHdS~r2HgI>a=ghVN1&7| zWCJe5r;Zavs5C}bMJv`MMSvW^lGlK`hIA76sx2W+M?1-3zpiMLY1XIHBa5Zei#k0N zIMz{)-)c6=vJb<8%|x15gZ7U~dV^Iko=l0xjEM&DCI+seb?=JJNAUfd55 zX-z%r3b)C`r&7C)pY$!%m5aJ^>e?W8a+YtSPPqZT1a!J;cAf%Ly3$&yD`rEztf73z zRGp}kxCUE0THZ)Z1$OMymDAQ}CfXV;hPD=0v3sh#BJ!s2m#?LRzvU(@M(P=$!$f{%|U>4>pPODCj~?K(Q6&d+4M^h&6c}fv0Uq((L37@YkqhETw5BccXsg zW+07YKdMJD#jceeV_3dAaBLZx^v0&Uinn>=Drj)2w1 zMpyL3@%p&1V}u)rD97> z-$EnewLj*H(M%?k&6Br-^p&!mwPo|M{xjihl8~zM@^U`=r@oO_6WzvrWoc8rN*YRb z;!tJ8lDIq0o+wM__qh~N1gbOB6G}Cd)T)@HVvS`PQzeA_yleqqK^}$0#c&MBl2uxf zw!?!Kcz6OkSNdvl^5%`Wak0kisnM|E(|oDyK=xJ1u1%#WK!8rDwwOxbQ`r!>rzvTz z6)VyxL5`4(worjI2}(lJQw}`IrJ^hgg|5g7NdXNplM;XMHS^O@v^^U*NIq8wp2RsU zAe%h3r%JEqJ4FgEI~VobXG&*qR?rlTCey2>H(-@KYDaKTjuaOuZb5pK1UVJ?VG`6E zqKx`}>1;l*HU|Tv06(EjkO!us6p&9IJRMR1pUXN6zoc9Age0*)VV#~}k#gKfH$yyZ zhBZiofLb=gzA4;oC2xG4;mDK+*RtCTC#EzMlB>x!8^kH(Zjw0h2)@*cfoMdqf4Own zh{s?Jh7YF@w;^eSlRoSj!yl$_WjK2OCk-(Qo8k#2S!!N0jKdDaY)W#h;U{Z~tMp|Q z+i^*~Y`9iJfLg+AQt5RP0^re+Q^(Z$A0{`Va`6}yFC^fny{ni}U!P1n)%vB@jccic zidE=;octiWUH{WjccJ-|+jr?7$L;^rKbcHUk{Utn&-6dxTje<>h$gwc6;*Z#8GO-) z^;`MwN%Bf5nGcR1eZusTe%lms>?Jip5h5H`DJAl$@`-1*N)5ZGpt&&<2_H^qHojzK z@`HtqSuDB4lH8chmX+9(8*>UDLwum3Y^2=?>x9IW1%$JiFa=Sq7@1t;N$e%-lMg{x zQ(IjH9X2ZAmi69}FLJnY=(3!25-OfZo}pxtsbcjdwY&k8Joig^H56TO>p;mj=vKab z2WK_xm`t!$!WDKPsAyn{HhcCxs8P`*dHGT0v$Y5szu}*h9Melon{vqBYSP`D{nfONyYA_fLLRFpUw0(yv@D4NbW(Vvye&K1p4u(?!j{c2G< z_T8986dkYAfTHA_)(CXUjvGx7nCE*H9hq@!?loRIMos}!WmUy0sQZ#tTuUHsV%l4a zu91{!*{v(Dfv(LDP+C}4us7doCm0M2)y-t!*Ke)iKy`r58q2`@Z(V;4J-Uc|pIXCq z-1?nsNW)Wk5lY4a^GGkusx0f}TOYcHq|%QhGWI|(-ozxo_yT!*Iu=0>VCr;sdPys1 zf}^Q7)-EM*Kg9#72;^kLM?A1T;~H8#ol7S- zlhQc&vI4rSFs$X}W)KdpM|9xCTQiAPyx4`H6VFsy?Is(KqU3U6wBDsI$j_s?64k%B z3u!j3u7YB(z)3^f94K=-a)<%|-YNd0BBKq5l}JCq$gcq&a`03KtG=aWIvq?P8VGd2 z4=NcYXUSes&XMP%v*BV>j`zE_?4SOZHlBxrtT<83Hr(Qy{vbPeOULv>D#|Fp!g23T zdI}c{fd-P!(b(v`BQO$0!MR(GP6u5zd3_)rd65)?xUVbDR*u@QGc;m zDfS~nfyTtm6L0>~^bu}cbn}Dqm|$gMNg9)emwC7R=1n8_;gl)&72f{*&6|l?wE0Lu zY71zKIjrvHEz`a7kq-IkVpu4Ct|PjaCvSdix}4PK^#+dd<2OG(fAQCN;C$kE&*c~;6 z5{q4x!}wv%(&;#*jw3-CVV-V*JX4xFDg}cz%YZ3~aVqH9D&$dkX@Ni`U}Vxwv@I&5 z0)y}juzLRNLW#v}u~O;^qqE=CEXO$1kQ`VYines>h$y=O$B_Magda_oZ9Ch z!ql2<8D(^;1P3D!4PGsfypD{TH61sQ{LQPfQ31t)q_RxrnqN(ma^LXtQQ1ZpMUHal ziM8T2Z%w14f)+bmVmdNtPhDzf>(*SJ_Gw23zr2P`r&cBQRCf28L~Nca3Y*u=nl2~L zU~T0Df0PAwt(nVlrhx*@(c(OZ7AV50`L;Ew({TnUw}2g6Gmj%n3fx)D+WFJH>4fw? zLV89&U2FRY;~Aq6XNSIp3ACCJAKQ@6AtZ9`K;oQL-G*(KEaEvMn;qv5cq~P9$5C)( zec+eCxby0Qise=Bn|6qOt=fk^#4RIdoUG_!DaQTlt2Sb7YYb+5Z4!h6Nx>>>nU0RAAT1zahw?DcWb`VbWB>~Ca3i8QCY(ftk6@{^ zn=BRN!XK*o@ibCX#Rdqa^pGc=3zM3094?ly#j{ufvZ`dLX*kTT8--FXhl>Oi`&HFb zSfdUa73Z7iAWb^=Xt@YeJS9MeZ5b*STfGbIiWf;IJdw3goSiz=jay4XZKUWGdGZ(pO?eb*7#|o)ba}J z1X>wR&GBcQE38TM5smo+cI&MZ@eyv52Av_}_gE)Q<4)*RdB*QrCr^_emELHbfh#<^ z#`aiKX&_AwxsIg%vhwhjO~vdyB&`Z?7GuylpPKMzcX_Cw!@0gyU}dDb=&-tiyqByQ zG8da|i+K-9B_oYZR9!>luC&$Q@QmJobI3>;k;EVpj2^d|v%2s9Ywt?{+p3PWuXjma zlXy$IaB)LPiUCVrW5OcIN^Fpq$a0)?H7$Vz!jiJLue7C>OY?9av>13Tp>qB>j!Es8 zP-uz&7Ajk^twffDmN*95(zJyT`d$qWD3m<-znOEdtOO{$zokIAO04DFv(C(!GiPSb znT5`9t*{kKXRZk@gqTf&J-TUI6Ji({tAZq3L!VfO4NUu*a8ij2*F1_6#ucK(Eo))| zsw6LyLlb(@h#S&`);pmuet6BVq17W7zYChIkYF%>N!^3r@QkCwCPJVwLsUvqkv*~I zc~lOkRxA}p9N30eER5~2b8~0^xaJknG@%j2*7`y6RoB@Q3{cD9I0$E4>vAme zJI#M|pm>3WZ=elLoeRBsiiEwTtvpzF8v!%TQ`W@ob z%g<080Z9i6F_>R#TkRcfPHd}XrQ=W!U~ZF0ODlsA?T`~roWhBhns33Nuo4jQz)um^ z8p6YpnW_rcSFT)B0yP>=c{W|;K(AMr>ZIZ;mX=^ASxZ+3&}dM#lCKO{gUU6E< zZn$h!OW(QTOny?0^To^nuBbqN$f*{BD2-4oEtr~W-+yz(In+(3`#+B!y3}&h*gn14aLh$0-yg+T(_XrIytOk(y+RU_GGyE-f`0Kv89$BO+ z%MzAg@Lwc3z)ozd_{2=|inHbNkMcO-a}UrOrEQmg46sypl42R88n_Owx!rEFwSi4R zXt@02C1NYW@}??xLZZaJHNpWe;c=)AHGOw9Uin{&8lHP}e4Fq$O)=3<5J_`pS{pgSTA@JPkh zsZz)6=29*TdjiVVNKbEGJP&8-!plEWGQ_taB%u_09*nb+MF|Y_M8*sC4_GjX!OSz5 zDo*W$nhEDvAWe}=1&%`{mJQcs|5J?WuqFsTE*K3-4T{<&abE@|IbW5LDEhn0UZSlYTVGFLT1tC zRKg1@f*`CZu4Kp$o!99k*tIn!%f4loPM|Xo0Dy!#Xuc{goh(ietaRR`2a0(@ft>5G zD6hRVP&{ll)BOrb3}e%!)5VZlDiwb#+FW&C8ZI8DyAf#Nq>-viP=)l%OC$U!MB}F= zP=HQRh{3u+`cSq-w_ukJmY4+f=Pr#?OE5a}RVPFtxLTl{t_5(=kA!Nj4k{0_ADn;L z%k#sjmkKuhj7JOWYIPl0m%QnrV!`EhSJy%5+_Y(5@n6&AwRqQ)-E*(hx@oldX6f2Z z|93w78yIqsF>z}Z^Z+Rmd^$&-m8T-S5zNFUnJ~zzN);Kl$k(49B@fR_k>Dwe)_Jtq`g?IX@cW&6{KE)DybPjXaF-HD=-c+or`}; zQ($~(X*F)kVND1K=($VQp&sfpohqiw6q8gE70gaR(Yz%Q+4$}px(5|U?r1fg=QyV} z!#k4}bMnup8tDqk_0X%qrxRB}+Gywsj08l;_T6H$@}86SWi*4#!fK7;1objWzwvWS z|Ih)})VDB+!c(@cN|`B&tE@u0EJik7+@LZ9m9du#ehwR|%49x&aTD_eGUv|E?0>nq zMa*pSUBH?^W1TM(xVWttx)613=BLWsCqD;TIhX+g?*cLqdfp5SY9I8MtfBf80U-$i zDl1OZMic@j+}^rjB@e9zS0;fgtq4M1#HxrhGSb&KoK1A2Yy;})0Z~`7GkTIb8eBiY zX~Y-tK0iMRqC9o!3+5+X&$L%^Z8#TPuI+?}5|hrhH8JO=e8E4W!uaYA>?9x+f5n=gQ@QzpIgrPGS33+VES`k_h% zK9cF83e+LiTgbXtcA=Jcw62034;y8w3??|<%7ObqBql}%mu<4a5qejtbh(PjQk+V7 zivtl@^>JX8cM31V} zEY^7O%_ucr_+*ij+;vr$UU}isB2x0N0(Z;#rDr2eV!WW7jCZA*B9k2Rj z-*(|^MZ5W2m;1tnf{us{q1huBE=mBbreb;xoImM?smcWCkfOq`y}1cOG2;$aSTf7P zY5;3D2uHf|izSJAs%sOaWuTkn+f_E`yyy-fUYNz&jI|9O@LeN+)r4CIxv3gHu-A9} z2itI2s^lY&ibs~pdiZkR#ByDJt_O;SlWvlt8zCTV({VLihl>d{KV`Bne5eQ&5~x&tHr=-zj3V4sXokZO zj*QGq;htH9Z^dnc6ey|R{ga;#-~YhyPaecqipYU$1}W@R6qn;hB7UE^crc2{M;zhG zgLqU3>L8+X;4aEY>=6!Ts6>=S>_|N0Cj1DbfGCH4+=6((hcXC*Gb_TcAYN8{JcdY! z2;>k6d8Wnng}CF8uILrFAaYRz!A0OS_gEl~uu6#AA}U98ifMnq7o%Z#J&!#`Q9q^; zqs>o!$7P8WBa51()DOpPmKZT&Xv`oiBi#jwdv7V21%VDhP2Br^9y|gTDK+ZBwZp&! zt_hArnI0$-DC6AYJ%~^m2-?EIB4eSDdm3>{mDra3y>tU58lgzI6ETI7#u1Ym0c8>G z)Q@0kboDR=o#kkUF+W03GkGPhy`<|Y5t1c%U{;|oj)nwki-l$oHIfO3>Iib&Lc~j+ z0UaR{2&GLUoM+I7_>#C#8IkKnkMSK*Lnu-V562gn;08gT(g*uR*Y46}iH3p%X$AC@ zfPg0mo}|9~xQZGurRRVU;s(!x1c0N-&@fL?l$Z=5I2a+GrVJk8-fH|BLpWJnAxklY zCuq`hqKJBeU`ip5pyfLx!c`GFKq~^Y(fGuKFQS0?A9TC)2OF2vdqx1qlmWIT{E=vk zAvoAe4`Lo>RTLH{g802OgE9F6BEAt&+lwfZF~sA=4B>iWxK|t~35kpd2OK#drXvL; z1bT7fI6{UC6w%znjlo6;ru%AZP30yiEAXYV+*n;jU#iM$P4rof1pZQ^B-EB;b6~!4 z^+|MpJaqq`y|L+}TWfK)d>D}gj9yBkm;%Q7ozm4eIyo0)uEf>z_5IQQJ{(Q@;!7hAdn~ZXwV>o^b{(jKVGU zWKtjsbrLDCus^UlRySD_i*)A=w=PCeHgdrN#p+9z9Mr8?&kc8S2CBOq!D?_Ml6^gR zw*a-@D%cr>l)+-*wj11w6B*|h{9QMkr-J$M8!RWmHPmFnW)&L`R7>JB8M~k_IK8D6 zqAuxaEvrq83;= z*r=W&Xd#D_Bq%&`{S}l6ClX2O!5*76{^$v79y(g!%F)!`NZN;URXD$T{S92i1VbT2 z8?$4zqDUsRtrjW^vR?C+f;yjMO0Bu!=Eb%~_~r1iU8(B2n@Wdqh=tWeC@WMBP;$26 zA|V`{nU|#+uDhjleRw?`Q^Wm>)zZb+-BSvD0Q_)phLXfA;vOW8?7HiMr351A{aD%m zuh&IONs9{C5lVPX7?OJ;&RFQ-pddlKCHa4UbhR*?dbew^D^x7_rgw!8|K^!E7EG>N5 z;B3V`Rl7fS?WMp%h4l2bSC$Hu6+A?5CU<;GYwPMJ5`^i4%9Kfl>#h-*j5rS@aslu1 z`fCap59AA%a3tg1rrL__nj-W^NYmshNtUX4jUXGX9DTJ=Il~2bAElzxutA- zdSfpX7agx=hwt zO{HivOI{>YGkiCcJCfkfiVSoql*|aiLsERxzL9hw^KT&u1y872}b=xbwc6BC$ne6psbi>xShWGFI5J%>*>d_vXf3s#uJW>4xFZlA6 z7-mbWr4_z*6jlqG43$)_{qj|8fvF^ApE?neE_j_E)DOS>m6BnnO_?(4{TpPu!hhnh zyeKqY-CcqpJi_IcwWNY2z|zW!P{mUOb}xXE+yzK^La2>sSOIHaQK8V?YK$;QxWgd3ijd`rkSNNwb7Xr|UvsePsoLc~a)M0D` zBHji|4%bmEa`q1M5@23N`DMHN#2ff5aY4X43rAkwo%eJ#dAbl z?w}_u@{A!m0`F1OU5|(w`e+<-urD%(NU`n-j~Ck+`ie@pa#C+hj|m~T9}0vJHjU5_ z1QEy`(R&Y#WB(%pf+CzY0#A-3@Fapzq9qZn8}VEDHPq`3@%~e27I>S9%`UQ$*gfo? z#wJ>H3;V0s)FY3$ckvjoUy2|CB|>=6hLv-1h7lIwNzk8(y5r%IputUOj3hj8@6Y(In%oP5F0Gx>KoCMwvYp@!g zLLw|L6l}`YA5$yhAD{9AWATU}?8#8@u~|mB&>fI2iL^DI07Aopd_7*$F-&823Jnn< zgH?+Pj7d!hG}5#JR>u)s8*^Zg*#K3o#9{S#X8A>h{BEz`8yt+eCxKC@H-e=9Ku{=m z5PM{Q5CN|cV+frDLODJ#P4{qUoFaI+V+R#}z>Ee2rbZ#AZjoNfPwKKm!x0MmE+}z2 zbP$Ou8(}iUTqWk^j|J3B$U5lt`ND``h0wwN0HVcGjbZI8FpO?2X2wejmUu7#;M|Ap|cT4u`_b?GbXG=L__2F+bKZOcr#Irvoc} zXhk43H^_xG;Y7In%j4#_K8e~0!JI-JNBDCuXMd!h|BZ}*_z`VFK>Ip)E{z;r^`c1$a*k{GX0{)4y?B^|E`3@S83d1pDS zHU%Z(3Iv<~`;*&rWCV5t?|vV#|NZf4NDA?=U@;um%8$t6^oj<3P_AKx6$?lRy{FLe z=pMq&0c|u*Bfjxa#EUt{u;06H-%p2y+8M|gi-ZpN+&r5R1$xf_fS@YdXxt~fI3L1p zK^0Cc1b9HhXdlGk_C`F@FrSQbw8M4iFxKz8PYA44}7q6Z4Om zYXtTM0p=NiIpXmXCk;`|IlMfR9)FMk9CF|P;Lis7L$TN_g4tp2@I0U;%1ioFOfL}0 zI6Vd(gahF9?m=3_#y#N}s-XEps|>LM<_Uh#2G4$QZ{UWtti42rL{refBjVa1EAP?A zAaQPyuYZtmL*zi*9SU67&BFK*iAQOv!TL3WIZJuy74`*v;P^3`b+oQP2;{Xa8upA6 zFHv59|7rC$SbFD=74X6I1jvZ^asWLIp2EfpYaiihW(ooY1tFIoH#@`F*$Ux@<#{(yj@6&pGOYL^M5E*-D;k3p5LlbH zUSY3`qDsH;K^xbgKO82LBMCQ3C|p917XSq>4$TmRs0vK7G0Z;!f+?Tppg+Kn@dM0Z z64Gg+igit~LUO}m#{p{>#xaSi+!S;%A(Tz>HW92F;@m_;5eI-ru6-DJF&1HG9wTJ% zuz=Mdc|`Q`)BWJhs1IxlR%X-&nSs05KR?QM_N~`5g^U0>3ylB>cAmazgdN5nCPD;= z5n_Mr?I+m|OU*%K!P~a@ z7bF(b(gM(PC{C~keBvBMWw1Pp0g0)SE zhf(a)f&S3ge&0C68_X|Nqk-li!_xGC8pMx0>hd*)@01bS5A39|$3=AO_Z4=hrt#w0 z1wa9#_zw<)6`uHUEQF<6yfAG%BxKP%=uHA0!IjDoV+BU0;5x(u7Q6%u30PpJ1gMg^ zoZd;7L_4Gedj(@AmIBsH~y%-l8f(GGI)- zqVGJzSr!>o*cC!5#}Si!wttYj#VZhPAJy>7jCu?y5q_D3R8T6$MD#Ft{~#-|kln+8 z2xIN?lZs>TCoE|)=tz#G0l@#`y+$s>oBbaGzzilBmQl>M*R14^llOB++C7Tm$|IUqAZb0d_z-l!<2-0e6Bod}89M4|qa? zr+7dH*r&Z8q5t=v%^_^ULc$povJt79h)92enHVAw0URwN1S7zY_N+pZC6IZc`WY5Z zeS}yaOdyY7x+Ww(Ri8nqfXO8sLZ%51iM7BL&1K~WCS{2DB@||Yr4ptThr@}0Cx-n3 zbQxlMNW~bD)Ho0>C;|&a2sk5!6|_-c9+E6+;dvxJHl}*Bu~136 z1mY>gI|buc$W<(r#Gf!^v`H2R^Z`N|u?dWsfFYPP@gp$m!M#aLI>De592$H9JC;do z^WzvE6u+$TB?!!Os*w?~H2I;Hq^2Qvi$#TpHbI+ao&jQ&BcbHOL9TB*0TdG;Z=`^q zU=$0usu1fXCc{gJaJ<8M17RF=M7vdG5r+A%m(t-fNty_f9>o5Tm>8)YSb`SX0YyGw ziWlOE5cVF8Q-x9AA)Z%)x*)j=K?KX0uvgB{r2U@p_+yXx--q1(ZNdGnXJGk?-6Uz6 zfi;st8`RHgKlWn5Xb{jKpg}-`fCd2#0{>(X zPBEJ%vjde2iGP0pPIKp0?n^3=3-(l(f9< zB})|>=0ZHRR;wQya`lnX?n6F){fB(~h7bApvp?kH&-sv#KUW?9lKh*0Loc>_ zzu8-Xn)9FOb3vXunnn3H<1&ay=*@=CX{l0S{>{@K3@x<||$NkEXO7g#fEPo|Wqf|=hI5Xb{jKpg}-`fCd2#0{`R?AnVtMTmzQC@WO;DAd#ef(IB8fK!bn= z0Sy8g1T+X}5YQl?K|q6m1_2EM{}d2tl!|l)X|yc8r4<1}Wovm;d25+erYn@T)qjVB zrAlVq$0>uOqeX6SUFB?Rb+pLlhPAd91c9`bNvn0sq;CKgXMNz|u}Ithf8cSb4d8zV z0okrA{1z2)7Y?P#uN;*t^zOdx7s;J^yId%Ls-Vl=H*}HwicXH^*=q{H1HM2n%6+;> zm0x{Ker|!irEu%%zvNn)sFsVKws#e}+C;sdk^e(Cuq~Ws-%@D*%L04alakb2$RBwA z9=~4fIF=FaIMxw%dOLp7;rh!{DRVD{UwDr@_3kwz~_JE>i?m2)xd_ur>_3td8=IaANvBD{Mgy_?-4w3^}pDWl>M{YT>byI z-MjdO)w6BhW4jNn@xIvk$2HztJG`#X{L1A%@~ggM)rZ!tUfi*|&*`!@zue|sx%O_S z_YXh49AAGcHBLY1i7tYde0mcy#r*00;>bzf(T#S$DzE>mXiyIOU6v zg7A0BUw=ma#2@i^w|MNN$9>!HO3K`~{d@GQZ|E+1mOdoOjXM15mmhu_A7S|>`n6Lw z=}>J&QWpB9WO*_Vb@qx{c5@3uz49Q6qgS8M$u)*W&)n7by*~S@1^m6g@18#UlLe?R z6Pe{h&)E+w=q2Ag_ky7bk)l4+8|+UnxaI5O*#n9R zSdY-ion}Xa?69q}IczNm&0Q}wL$+zJm!(ggBb|Xj@U0Dw)=ueJdvK$>WaubWy=UkY zm8WgK1iWwsCvLAod-7#B+COv2ttnx2m31$EDlH+s9|M^vPAgK~6cK%Sx@x?Z}&Xz}yxuv}; zd;gp}h4+_pb7*D8}{EmNAE|T>%Pu) zt-S8g(&r0~41GfW?BhGH9k@MmzjO!ykOS-5>xw^X>x9-|# zfBvxe+9-eg*^Rq4%J_Zqv-ZhcjP3hfLz2rnmp+u@vH~Um2_Srx;XV{>Qpu1ZQ zbA`Th_7vcWYi0M@1J=3JjT-^juEx6?k8GuCw@Vv$g;S1fMcqSpyCq^g0L) z|GsX(iq#h+_(>gVT6(A;4J&~CkPaQ*D-ArfW1s7??#*4@=eo|>>6lBC7iRCgtmmPf zn|t;RNxN=8r)%fedM?{>Q}^a@#`aIy7sj?r{a-^@dmKl;dv#71aC1%0$d;U*ua0~< zr{`bxe%1B0DZJf;hPr-ybxt^Iha;SApLt@(W!+!fvAO%Eu4@Vq|M;U_r{TzGE z^Wyhb`eA#1XZi2v_ULxZb(eRa-ZR%V&^Pz0{oj8p=jrU7`lIq>j(x!k^xjGDyLR>s z++nYO5w$(}%RPs-?!041-<3!C@jN8wd3jgW8A?fyWo-7Ne zOznLroc@#}tjFV*{pI1@snWZ5?A!3rZ7Easj2!d=ljgc#F}9w0e&a^@HtLc5vSIT# zrK3chh8#3_+b6=g)ZyhjANu{b=JtnAM*AQ0+valor_bs9r_H7N&j>$&eDe8!+;Q&C zbL2nd;s-aIg(iO>%fHrdwEt31@O3;r(B`_sH8-%v)kiaJt6RbxCN%xebHI;%+4J~r z|DWgT>{|~dkvdW1&Cj|lU>jJ_cCOrUwrtVSkNcnXS>`hF4TL_F0n(?>)Y1(rT`O-( zed_ETXWMgi155p-w`D+v49{&USU%@kdfO3M_uHrXC;I1pBX>R?{xg0}^bhpc{bA{C zL07;14g(T^sHMp8u>8WS_McJ0&i?&RqMGg1pw6xK&%EmTR(Cfs0eL3R{)~Zs0dkl) z_hAZ6fpojS*>kg89v}LX%hF?^2}%6#cFWuX`GI3YuOIbU!gJgA^!ysNb?vZVa{XA! z$GcqhpWq>AZUC_q@`t3}lzhy3%TT_{+6C%(XnTIoK06@2N^d{^kKJGH*|Hs77_i8P z|8V#1Te`Z>cCAE?bKO$+Io;d#u6*>IaORX>g3PriZ78K{==Cmnqu#zWKc9yM311 zo=0D$d>5W8r5ok;XHm_L{<*AcbFy_Q(ydh$D{8QG-q&+ZH+s1D95BLjc5Nlv2KT|t zqjbTkj~;b#o`E({^S~Og2b!3tJxko_WR*Lv%(Z|08A>6V+ObC7s-yo`>41aM4Q;Nr zyEm+Ht=TouM*I(X@DQx7^pkC$T+;=z0Wi09xt|$YL~Y-u^S?g#d>4JDgpcy4GO*D)~e zK!bn=0Sy8lXb9Y~f9^SXC~e>lSO3nwBR$*Qnfqo_Wp~;w;Xgw^GiUIZL51N?n+iWa zw9-{Gl;*0HkEYrGPn!Jw*YHK&mR2{g=?^cvwhdhRhgV$pZvTsXUD^@+ZBKddwZ1F+ z&UvuEZ{>rV`YikB{sg67`D>d;(n=qcHf-zLas(gu_HF4JmY#HH`|We7?vm}<`yNW$ z_T#i$_7}X=wfV`Ie&rVVAe{%v5>&P!d}dhY%G=5V_2vbhZTrqsFrcKxWwje-B$ zz>jvie}6?d%Xc}HiBG0dKBx+|K~=C#hrbO!a{Y)t+%EUBg6P(YFn+it!={W4+g#hA z@VR&Ay}x&(+8@o0%D14}z1u2QAxnW7Z*wd0Misg4>G`2=&s^%B({8zC@3zLefh%2i zJhyG?_HC{!rv|Qa^*tlu>s3%9{Lpphz&)EJ*Ik6Xe=Akn7}&NGo$B&>LV@mH=!x!d z-Q&7zXp`%QLt9*TLR-^^?7+>Yz8^k#dEcE6UfGvSyhV9MiOUd@)3xs!1T+X}5YQl? zK|q6m1_2EM8U!>5{BuAc{PeO)({gWBMTN8|yEkQbCG4Oz*|(*PHY`1>EZHZze*58N zm9@+3Z}r#J)Jcx)7ep3|z17?xTN}+yE#H(^9F-ke)KyR!P6AmP)mT&!>EIUD)WUtU%^dmaSV}f3svY z^oT@bwY1*w?UZk>rwpe0(Y3}?maQ*ew_NHn+>&zhdg&6wcT#R%Cw;}Rl>ugLUs^w~ zyRHK8K5F>a6avj^bF)ouYL{DDJLPusT3bU|{V0;#>^5^d9<%^HcDsD)8-34D#Y4Hl z(X`ek8&Rf=;OcC&$?a`st4+3;9Ry!%Ym2j~r2~%YhU{BY_W6x9l{Izc74;9Bm(~xP zmr8`_R&>eLrVqfT4>XnTA8Xb18&o24uDg~*3AXA`PMzBYVznx${+i=@$ZXZ@(T4S&c_ zbyzy2d-TN;H9=31fJEn7=>dHS+D2#0NbAH?YP8)d1@xuTXeTOkAkBilSuFVLlw$hD z(x|0LdPaYdl)zYng0W1)e)N)1>@?9Eq1RdUqqI*!ZP2h3^Pp;ZJpd6dYi+Z^(|>hY zJ#ZB+v)WsM1^krGhNA!=6fWy@G&x1m1G-d+P^jR_VQX#$G6)B6iY}RFfw`qYZnG1L z%q^|R>k!HFxIBYr$X~%^M3*ML0h7v1u9jwX>C)~>>6k8qk^5I>ae@B0%YTdWigSx| zia%5rVou}Iz^FeKqxhD%w9w;@`aJH?gnK+RG2x?7i~b-*yhJ!hx7#;4Nr4grf#`_) zpeN!F#iQ=9-#3n^izpF`c%oCi(Rd^hiX;29PYsy(CZBG%A2Ak#gE4o&e*mE_r~J`j zB;hl70H4#IS@kZ%*iY+BSmLtru^em2!V-Mp~xJMg{D0*|F|a*n8hPs&_@9>={4i?Pfo?$en2iBbBBU% ze{96&s0M8kfPv>I3d92l%jq9n4DVycei=R~EuhXqt%^pc?Z;MhFy)Zz4(en12!=_xcEal#ZaHu_>bL zUJeX9Jw(+}Or04Db?V1=&n(9d1yPToCd?qf-s_HeK=>Ya z?|2{-1-=5I&;g2_I_00H`68g6{4Ro!x&uBBP#kv0LX5SjZ#)EQnLzQ#2q9b{*4ROn zbjER4DeCtGqM?yqkeeVVkvh`r4=~cl5!ZH*2ajnv8BO$N+DFrJDg=^8-LuM^Ri^3S zv^p!MX1x(l5ES>Wpy=;fsUN*oU@+zxKLEfmyTTj<>Okzk`Z!X?r$FgSJ|8ZH^#sR( zQBQ1~ClF06g40NE2$&r6d1Avr34jE(GH2D6E{$G}!VjI+b;i3rG*S_j{WOaOU4?;BV{(02$kI>cn^ zpN}7mD7LCr|_769XccMEzdhj3;ow9g4^3J16p_ z_PDX0#lr!PzKpenX?zBFpgGNK6L_b2I}wir{aE5KJwqYz>Og=91Eu2;!~g~p@B}eC z&|WA= zKDZ4Uh%&Fy7r|@PK~n~|+6Sy9@3=XNYK-Oz}FLrA$YS7OdGlVlL9+T;I!C+krMk9L8!-kzR2*7y?gc$9-;@p$>_%*7$zv6 zmT!6?GPiFg=%%H57Hc-Ga)PXa2Ot1Uc;e%}7!Zs6W0BASUl6P@h~#l_4K<%aAc<+p z*cqF}G7xn~5Xl>a6%NFw$Iwf{R4n8VVELu-s2o6H%&3vp9}mhhGX`S;>G{B!qW$g< z(kxBjbIe1cTxeQhj6faaC5%yd#e-vzKYRy0V;ma2pMrc(kX%Z6h{kEkATL3hpbFkQ z9s>UkdBCax9Tq0B?1DXp+z>(!A|yG%l#8GWp5?<-9Nf-Ji|AO$>-SMub>hbpV9y62 zx&bSg++gZnU-W=LOgPRA!7~X4fLQF*0eXpGe;8kp&>&OaUD;9%aP~ z14<;`h81xV+lYCbF{lX$EUz#ar##GfF+qdwaZLH3Sa+vGLF79D$$*jDgVi}IqP%k@ z!(59S>)bRiZV;uZ0mws;pE2=(GIS4>Dz5;E-&lLcu*_rqNB>Ej9dCw%)b0o3=j*9nV!I@v1$Kw8gmu5Kkgzz85_UZsg9jI28 z>-Qmsm6enjYXCwe@JYB+WFS>8!C)c5Lb^q^2!WDmfOa%vkVeKrkRy2sdgES+Kt~%M z?4eYmC%`5eQ+T-G*YPMsoFL;5EkdA)_^`{tUt|(|V-^!-u$Ls}1h=QELU@a)wNrw4 zDJ>-Wt)P-bC*O!$%FIrXdP!bMZb?o_c8Q@xU!p6?D#(aB*Gt)ED)6>(^ zQ`1w@rHuTHyo}t8oQ&)YLxw&>mywl`nURr^o{^T3nvs$rW#(t*W#(q)B)ant`BJ}E zDk?rLYpoS}9kaZ;$zd-;(&@$ZYEp}>6Z*6^n}gCDi_cQiJ8caOO)aZs2j1w>#l?6n84O z#Fho^E7kY0qK}D(X1UYcITSxszjYPo=#`c6@qlGGxj{93cKm0^2t(I?cb4K}k~z~h0UrD~$pY-wt-ajla@ zr-)QbM|-1C)JGTJ$L9&MW?DsolPwbt)0|*YVoJk#P+7uEoF_Ztrv)BjZTM|5wg3mRIPJutG%Pm+1k-AL&M(Ezytb4;bQf%g|x(brBLCL zL`p|9r955u5jCaFW^0ohTLsoKi$1ERH?+30W|&B)lhygq^IDgl1+DhtMd?|?)^MfK zyI1_b zuKm9j6(q7Zt(F@)8f+(1tNOwPYWk{I!-@(wm9iDy7PWFJ-Q^hDn!i zg)ZM;ZK@w$Ykkz{HP)`Ekj5AOCG&x`);*M!@>kItS5!maYU!jo`jE}CPQPfDei&C>j>oE{zkb6WA)ORCn z6sW#}x>G^jsi5vuP9V_^+%;9y9hD_ekvT~~PUlu(7CWBI;aAv+8 zPw7|ESkKOHRT61@_I!t00sXuvzXLz#;i-b*U-H+f*|;k3VxGTuMsFaR znktY=O%*7&rV7+lLtLV!x=PxR_gcniS^YbEl}Xp+y`EvUgcZ}K^zA$;bJ%+Rqx{=z ztgbRiKgvrbd|53XP{j6i!psVe{Ik4FrWUJ3p^|#*`N$>xA}=R%uN2Qa594C0WWcHb z|9zfSg$Ci}Sl+7RvZ;_-2RLJH(Ql>y2J?F-8pW{0^wF-L0h<}x0Dz0bOQkFkc>R}C?( z8e&y7#Gq=3E!7wan?}MW*vR_kR>&`oQ?bsP?XZ=u=Vq&Ob}FOB)S|vYqO;lM2CRN! z;5mEdp<c+T-3q2ewB0R_*`v`W(R~1F^<&S!zVmVz<5>bdYj{nvZMy9v%BUq zo8>hfP1XyVY~XiT3|I1dA0$|ZsG5nS6YmU!#s>#St zPvuIsXWw-EV|%LwJQsp&0^*!+GW(X}^O3~Kc$3>Zz%4n`(d_S?n29jf2)@{97QiUV zxkt&O5FFJ5-cQiyCLuv^T}H!_mgw@x3vR2JZZje zI3tlIQ9D&2H^~+U1WwE}XDes@k)dwBQxLvcP?hbrhSg$R;|5EjD$t4$SBY9}xRgbi zNlzQ>$#u-&_S)n;#2B6UlPhS=uE4TttRVJRQAKYg5LJ-iQUS5VSW!oBEAVEd zIfZw;Q3)fJFj5JKiFl(DMk)bu0B=;nL?ujA!bBxZRKi3hOjN=|B}`PpL?ujAq7nk< zf9Ri2OYjv8Ithsf^v9APSiyD5x^=00RzTJ>>eigcdo;6Q-M*VbXNv#hckB724OTitc3 zy8-Cd`fr;)sY{uthN2x3Gcz+X(=*dDQ!`UCrL6p{ysX@;oUH6DLzX^Emz9;3nU#^1o|TrB znw63z>GE}Xx?Ek3E?Z~N>2*3?mM&A5p-b1L=~8tmI!T|e&(r7XbM)DIgI=%K>9h2i z`V4)#K24vhPti+;d_$fg*N|h#HW&H<{wN%OYdOvU>GWK=t7}RANNnd01Q3sc!<$EGBWOg<$-^I)X2^$=5hp< zkBB=4OQtYwFlH59sPd77XCf4M;h+^VZFoR@?6*LaLVtM0;L|d1Vk8wSboS82!o&e1 zYXquwSUkw`_)hcv1F`q^O_2f52YoU*Ho+1=76?)*1D-&jg3SG%@%Uqp`Gxlf>zHR@ zHsW~;s~qTojX8>z8cOSkFW@=kgCd+D2&Vyn4BGFp_}CabTM!iqA1TyDxP&EeaPOYM zL?@yl@+pYN{1fqjf@|^NaZkpndRR1O$)XKA)dap%KLeQd+(A?}2~+dDV-(1S1N&mat)gCnzW>j8C#!?1jK++_L$dc)ya_+SN(Yx^yJ^nSqB2&QfrFI4yf z5R(9Cj0u1#o9zAcN@Ri8M!-J-HyS@N1BMD=9iAEN90e0n491`_)Dn%6rw?*PV0?yO zM>Ljznwz-+c@(%A_n0 z)OSKA*Xj#~;*(SEXo!7~FcR`in|1FGfmSf7$#DtT@9(AZf^??I1L^H&$oo6TcsvFW zkt3vJ~7N(dljFpVfP?h zwcyXkvxWgk(+Ev~N7D;)f1G&54BMWk;3DGo0nFr(04uVWY=%71JY*e3bD3NJ`O1SX2d2$fO;Rywcy>NG& zz*LUILj%H)ALe8>*z&vrCJFdqnE81XSLp?k7N#QHEVv?IrFW2|FZca>6@NH*?8MMC zIevlZ3o(m{LFA*y(ZT-SsIR|w5QV@jf?yrQJz`+!Z~7wI1dE^r25zqkd2p*-@mL@( zY?tJfr>xYE z8iVOE;^1cEhfpn~65@JnP9{j=)tiXLPW4ZPP!hha!u67+8Wjy=aFIQL<@|t(rtrul z94SMTnH+%PUWfwdSb}Y1B4eJuyZ$^MsJS1SatA{UBoZq;en=pYK8c?`(vN>YDL5;L zAL1mwD56SyGC(%_{@(pQ-(z?&c$M``bp%)akjDd_unKV0Fa;~WkdhKOQNLi@0|&g3 z5lC)|2nIxA>Uppd(4;1D7M*nST1eh~&zf>4z&i}M!eF3wq;z1Xl= zzgV|8YjNh{jK%4T(-x;LPFXDFWaOmhq~)aMq>!0DHy?j_xw*MHx!JjfTz#%CH!C+Y zHv_5ZxoNqnxhc6)UVdI)UT$7a9^4G_40-xIU0zmRW?n{KdR|&yYF-LbrTqN-y!_k~ zd-9L@&4*x=qZ3eBRZB~XhthZBn@Kvmcz62S=yg^V?@8YcO|x`;aX9Op9&*~f0tJSO z&pYWI7eIGNQM2k@013`Cb*m?2mKCi{@1_$n-E=~xn@-4dJFDmoC!}hMy3)Jpgj6@3 zkZLHp6u&3~ose2zbWOT?-lkhUA+@3CCXt8}QeQ2)C0#us)lC*DJ|T5;(f87ELh3t3 z_oU;5R9{g)gBz!ABzMuybmf%PpNa<4N#Fkt&q2N2(V2qcUFpe3XWsI(kEsxf#-y`R zWw10f@Hrq$VP<-_wZ6N#zPqKqd#$vlFe|+qC#1R^_1!ojwV^OOy&ET_x^Y;k8>gGP zaYE|G!W=->R^N>iQr$Qq)r}KUw-**5AJT9_sv9Syx^Y6P8z-cO3YVmJah^irWEy&ET_vWx5jIb~1@8p)gj_YwGxG{MWlZjBXc8K~vi@uXKAT*fci@uwd zjI-o9OFG)XqPx>}uP|0fe_Hfw#u+SP^TAw>Ke$+0cqA?Pw3k%2@RO-Mtqn_;nJRGp z3y%avJb_oay}AbH8P8i-k=kQba^O=v6GmBZ+Hqk+YL7#CiqEhh6fW;5lP+D@l&Vnj z4GUXRhu5ruezy*tzJKAm)VrXPtpEb5fq*t~+>g9(%8*=%WD}AZY8D&meCebm+&-j_ zEc$fnb`#3g;(0>{BhA?an+7R}g;~tm2wxzemMSLWMMoR-!;UtbWP>Fd_A;2HTkU2l zB-JjMN}(A^#&W2)>y_`O<>A^|^#}Cc)z#{cs^wwaAMRYRUlfB`ZF$%z9OLGci#)Wkz0J*=&i`WL*A(gR=`m)9#;lExS4fFP%WAg79; z-{7Sn=(h_N0zpa+e5wedEM=0k@S{MG@)Vy6g1Ee+3|&&jY%C}BzDbP4SdL*ZAfa{`UILi)FYUy6sYH7BZp3&8Sl z%?eRX6;)$eA?+&|6FFg|OysPloW?4Vvzi;MlnxenMNU{Z6Aji-PV`$^Fd-houAQi+ zmLDpEsO90-Po~NSpHS7Z15r zrCM$k-VNW+e?UBBLKD4!6_!fY@yPH49jK|6_UHdp_FZw@sR0JfiTmfafNgw?>_M`i3H(;gOVnrv@rk2;$adAl5dV!i^COCK`x(HF3IKd z%1yc76WOVU3JRzu1yuz9YB4CDD#l9b+qrje3GSIft5iZEa4G?2$8&}dhE+#=uf}(i zG@5%Sm*%dE_PFQZjg+mDi;G$-sko_9is#Hl9)d)3Mwi@S~(jB<4^J*Tz%G zR3Vk*-2)TZ^70l7aToexRlhJpuUIa9I%iJmX<0A04?e@>bR(~~Im;~_CLaQa& z#ZP#ZNng+Ti_`;&iB^_!2u)G>XySLqPp5!Asx(_Kb_8^SGWRhBTwagGo^VZod_j_yhwA9ny&QI#`87^y*;h2heYRxuwVS?k5v?n_x zHIW}~lM@DR_8|odCVbWbkSFClg&~@kE+gW`$cdt)3d7X|4iIEDrPY8L(Pu4ICi<)ca8^j` z3^!0F6=X&N8CPNCsf#7T8N zh_nBzt@vd|CG{|iSJba+#9KSkqzEnm=%f}Llx|r~Zx(v%#KXsN3xEX=rKj~5Nj(4= z&75q*6%1w-W(vqE@5@`NlO$muCx1Mc^!FJnz;7$~(}d4oNaeZ|9{hG49rxc}tH{i6 zype%!Zn$#=fJj#az#CPD{odNxVZ8wU8t}Jh;pZTi(K2gm+j<8(_!(E!(d`XNofdls zrUe{Rsd5D70qAFO+JC#rRDUPQgYYfyus1-0OA@My1+i>+uDophnJvr9=yC_?D6Rp( z1rOn}^<`d?I;B(faCA6P;!NIBF3DSxyCi2x_7cMq{Sw`htR0Sy8g1T+X}5YQl?K|q6m1_2EM8U!>5Xb{jKpg}-`fCd2#0vZG~2xt({AfQ1& zgMbDB4FVbjGze%A&>)~eK!bn=0Sy8g1T+X}5YQl?K|q6m1_2EM8U!>5Xb{jKpg}-` zfCd2#0vZG~2xt({AfQ1&gMbDB4FVbjGze%A&>)~eK!bn=0Sy8g1T+X}5YQl?K|q6m z1_2EM8U!>5Xb{jKpg}-`fCd2#0vZG~2xt({AfQ1&gMbDB4FVbjGze%A&>)~eK!bn= z0Sy8g1T+X}5YQl?K|q6m1_2EM8U!>5Xb{jKpg}-`fCd2#0vZG~2xt({AfQ1&gMbDB T4FVbjGze%A&>-+n1%dwu+ngj9 literal 0 HcmV?d00001