Retro/softporn-adventure
Watch
1
0
Fork
You've already forked softporn-adventure
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add files via upload

Browse source 
source code from https://www.ifarchive.org/if-archive/games/appleII/softporn.zip
This commit is contained in:
gondur 2018-07-02 18:59:11 +02:00 • committed by GitHub
commit f8dd4bfece
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
8 changed files with 1306 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

244
CHAIN.bin Normal file
View file

@ -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

4
INTRO.bas Normal file
View file

@ -0,0 +1,4 @@
10 PRINT "NOMON C,I,O"
20 NORMAL : TEXT : SPEED= 255
30 PRINT "RUN SOFTPORN ADVENTURE"
40 END

1
SOFTPORN ADVENTURE.bas Normal file
View file

@ -0,0 +1 @@
1 CALL 4096

900
__.bas Normal file
View file

@ -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

34
___.bas Normal file
View file

@ -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

BIN
____.bas Normal file
View file

Binary file not shown.

123
_____.bas Normal file
View file

@ -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

BIN
softporn.dsk Normal file
View file

Binary file not shown.