@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}4  |||DDOS DOSDOS SYS }}}}44U}CDOS SYSB*+DUP SYSCUHT B\CIP1 BENDGAME BmEVTHGOS2 BpAUTORUN SYSBCOP1 } 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8 ?} 3E:}DISK OPERATING SYSTEM IV VERSION 4.0SCOPYRIGHT 1982 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 +,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG} v,(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u4000 IF HT=P THEN GOTO 8004002 R=3:GOSUB 420:? #6;" **************":? #6;" * *":? #6;" * HOTEL RITZ *":? #6V};" * *"4003 GOTO 40044004 ? #6;" **************":IF HT>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB W}220:GOSUB 450:? :? " **************":? " * *"4010 ? " * HOTEL RITZ *":? " X} * *":? " **************":GOSUB 2304011 GOTO 40124012 IF HT>0 THEN GOTO 40204014 F=200:GOSUB 810Y}:IF J=0 THEN GOTO 48004016 HT=P:GOTO 48004020 ? :? "RATES ARE $50/DAY IN THIS FINE HOTEL.":GOSUB 416:GOSUB 860:GOSUB 230:GOZ}SUB 4004021 GOTO 40224022 F=J*50:? "YOU HAVE STAYED ";J;" DAYS ";NA$;".":? "YOUR BILL IS $";F;".":GOSUB 230:GOSUB 700:GOSUB[} 230:OW=HT4023 GOTO 40244024 GOSUB 870:GOTO 48004100 GOSUB 220:IF RS=P THEN GOTO 8004102 R=2:GOSUB 420:? #6;" ********}5000 TRAP 40000:G=0:GOSUB 450:? :? "YOU'LL HAVE TO CASH IN SOME OF YOUR"5002 ? "PROPERTY. BUT YOU'LL HAVE TO PERFORM":? "A P ]}ENALTY FIRST TO GET FULL CREDIT":? "FOR IT, ";NA$;"."5004 GOSUB 240:GOSUB 6050:IF HT<>P AND RS<>P AND DR<>P AND NC<>P AND MT ^}<>P AND WH<>P AND GS<>P AND MP<>P THEN ENTER "D:ENDGAME"5006 GOSUB 230:? :? "TYPE IN THE CODE LETTERS (   )":GOSUB 250:? " _}FOR THE PROPERTY YOU MUST CASH IN.";5008 INPUT A$:AM=0:GOTO 50145010 ? :? "IS THAT ENOUGH?":GOSUB 250:GOSUB 220:? "TYPE IN `}THE NEXT PROPERTY. TYPE 'N' IFTHAT'S ALL.";5012 INPUT A$5014 IF A$="HT" THEN AM=AM+200:HT=0:GOTO 50345016 IF A$="RS" THEN a}AM=AM+100:RS=0:GOTO 50345018 IF A$="DR" THEN AM=AM+300:DR=0:GOTO 50345020 IF A$="NC" THEN AM=AM+200:NC=0:GOTO 50345022 IF b}A$="MT" THEN AM=AM+300:MT=0:GOTO 50345024 IF A$="WH" THEN AM=AM+500:WH=0:GOTO 50345026 IF A$="GS" THEN AM=AM+250:GS=0:GOTO c}50345028 IF A$="MP" THEN AM=AM+300:MP=0:GOTO 50345030 IF A$="N" THEN GOTO 50365032 GOSUB 4405034 GOTO 50105036 ? :? "THE d} TOTAL VALUE IS $";AM;", ";NA$;".":? "TO GET FULL CREDIT YOU'LL HAVE TO":IF AM<250 THEN GOTO 50445038 IF AM<399 THEN GOTO 50 e}425040 ? "LET A PLAYER OF YOUR CHOICE FONDLE":? "YOU BELOW THE WAIST HOWEVER THEY":? "CHOOSE.":GOTO 50465042 ? "LET A PLAYE f}R OF YOUR CHOICE FONDLE":? "YOU ABOVE THE WAIST.":GOTO 50465044 ? "LIE BACK AND SPREAD YOUR THIGHS FOR":? "SOMEONE."5046 GO g}SUB 230:? :? "IF YOU DON'T, THEN YOU'LL ONLY GET":GOSUB 250:? "HALF VALUE FOR YOUR PROPERTIES."5048 ? :? "WILL YOU DO IT (Y/ h}N)?";5050 GET #4,A:A$=CHR$(A):IF A$="Y" THEN GOSUB 466:GOSUB 600:GOSUB 5056:GOTO 50625052 IF A$="N" THEN GOSUB 460:? :? "TO i}O BAD. MODESTY MAY BE YOUR DOWNFALL.":GOSUB 230:AM=AM*0.5:GOTO 50605054 GOSUB 440:GOTO 50485056 GOSUB 416:IF J<6 THEN RETUR j}N 5058 GOSUB 460:? :? "THAT WASN'T GOOD ENOUGH! DO IT AGAIN!":GOSUB 230:GOSUB 600:RETURN 5060 ? "YOU GET ONLY $";AM;" INSTE k}AD OF $";AM*2;".":GOSUB 2305062 GOSUB 650:GOTO 773IT AGAIN!":GOSUB 230:GOSUB 600:RETURN 5060 ? "YOU GET ONLY $";AM;" INSTE l4 TRAP 5000:INPUT R5062 GOSUB 650:GOTO 773IT AGAIN!":GOSUB 230:GOSUB 600:RETURN 5060 ? "YOU GET ONLY $";AM;" INSTE ml#lAP1P2T1T2NAMPDOAAXPYPXTYTXPYPXTYTNNPTPTOADHRNDMWGAPBPCPDn}PEPFPGPAPBPCPDPEPFPGPAPBPCPDPEPFPGPAPBPCPDPEPFPGPBPNPNT'6Eo}T@ @P A @ @AE@%@v@@p}A(Au@@ @%@@@rAE@% @!@r"AU#@%q}$@%@&@P'Au(AP)A%*AP+,A@Y-./012@3r}45@6@7@8@9@:@;@<@=@>?@@@A@BC@s}D@E@F@G@H@I@J@K@L@M@N@O@P QRt}ST@s6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@u}{6-@6-@6-@6-@6-@6-@6-@'6-@36-@?6-@v}K6-@W6-@c6-@o6-@{6-@6-@6-@6-@6-@ h;@,w};@,;@,;@,;@,;@,;@,;@,;@,t6-6-6-6x}-6-6-6-6- 06- AP(& Af0 A ( AP@y}(}( @ )(!HOW MANY FEMALE PLAYERS (1 OR 2)?I@@K:V)@_6.>:,h6-A:,z}~ @)!@ @ A( AP1(TYPE IN THE FIRST PUSSYCAT 5A6-A"@ @0L{}( AP2(TYPE IN THE SECOND PUSSYCAT 6B6-AL B AP @0)-@@M(HOW MAN|}Y MALE PLAYERS (1 OR 2)?Z)@c6.>:,l6-A:, @)!@ @0"?( AP/(TYPE IN THE FIRST}} TOMCAT 3?6-A$"@ @@&J( AP0(TYPE IN THE SECOND TOMCAT 4@6-AJ B~}(y AP A ((1( THANK YOU: <( F A I(l(ARE YOUR INPUTS CORRECT (Y/N)?y)@) }6.>:,*B 4Y Af(.(THEN LET'S BEGIN!8 A B @P,a 4N A`(B(%THEN LET'S TRY AGAIN U}NTIL WE GET ITM(RIGHT!W A0a @ . A@ @@2x6-@ A 6(@ EVERYTHINGP(}@ GOESZ A6d A n Ax Adu +@'0@@A0@@@}[0@@@u0@fG #A@+-@@(1"7,="C/G }hll0,0,159,0,0,20,159,20,0,60,159,60,0,79,159,79,0,0,0,79,20,0,20,79,140,0,140,79,159,0,159,79,0,40,30,40jll130,40,159},40,40,0,40,30,40,50,40,79,60,0,60,30,60,50,60,79,80,0,80,30,80,50,80,79,100,0,100,30,100,50lgg100,79,120,0,120,30,120,50,}120,79,30,30,130,30,130,30,130,50,130,50,30,50,30,50,30,30,20,20,30,30n--20,60,30,50,140,20,130,30,140,60,130,50p,@}6500 GOSUB 470:R=5:GOSUB 420:? #6;" TOO BAD":GOSUB 430:GOSUB 420:? #6;"YOUR PROPERTY'S GONE":GOSUB 430:GOSUB 4206502 ?} #6;" YOU'RE NAKED ";NA$:GOSUB 430:GOSUB 420:? #6;" EVERYTHING'S GONE":GOSUB 430:GOSUB 420:? #6;" YOU LOSE ";NA$6504 GOSUB} 430:GOSUB 4306506 GOTO 6506 430:GOSUB 420:? #6;" EVERYTHING'S GONE":GOSUB 430:GOSUB 420:? #6;" YOU LOSE ";NA$6504 GOSUB TRAP 6500:INPUT R6 430:GOSUB 420:? #6;" EVERYTHING'S GONE":GOSUB 430:GOSUB 420:? #6;" YOU LOSE ";NA$6504 GOSUB  SC)T)A@AAA@@@ A0";@,"AY@l}4 A+@%@'AR@A0@-@@&(@ * G(@l} FRED-LINNV(@ t(@ PRODUCTIONS-@A0 A+@%@'AR@l}A0@^-@@&(@ * F(@ PRESENTSZ-@A0^  l}A#S +@AR@90@S0@(p-@@&(@l} * G(@ EVERYTHINGV(@ p(@ GOES2-@@10@@l}S2A!@@g-@APk 0@@2AD@@7Yl}-@AP  A2U-@APY <%2A!@@9-l}@@= _2(DO YOU WANT INSTRUCTIONS (Y/N)?FW#@@K:l}0)@<"@x?(B(E(H(W% D:EVTHGOS2K("@(((((%D:EGINSTP(%( IMPROPER Il}NPUTG2A!@@[-@@_ 2-@AP (l} @`dI+@%@/0@@@I0@@@i @n*** BEDDING ***pG"m}@'/@@9/@@K,@@]/@@o,@@/@@r6}-@h6-@#!,7/%@&@M/%@&@c/%@%@y/%@%@,%@}%@t6-@6-@S!,7/%@&@M/%@&@c/%@%@y/%@}4000 TRAP 40000:IF HT=P THEN GOTO 8004002 R=3:GOSUB 420:? #6;" **************":? #6;" * *":? #6;" * HOTEL R,}ITZ *"4003 ? #6;" * *"4004 ? #6;" **************":IF HT>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB,} 220:GOSUB 450:? :? " **************":? " * *"4009 GOTO 40104010 ? " * HOTEL RI,}TZ *":? " * *":? " **************":GOSUB 2304011 GOTO 40124012 IF HT>0 THEN GOTO 40204014,} F=200:GOSUB 810:IF J=0 THEN GOTO 48004016 HT=P:GOTO 48004020 ? :? "RATES ARE $50/DAY IN THIS FINE HOTEL.":GOSUB 416:GOSUB ,}860:GOSUB 230:GOSUB 4004021 GOTO 40224022 F=J*50:? "YOU HAVE STAYED ";J;" DAYS ";NA$;".":? "YOUR BILL IS $";F;".":GOSUB 230,}:GOSUB 700:GOSUB 230:OW=HT4023 GOTO 40244024 GOSUB 870:GOTO 4800ED ";J;" DAYS ";NA$;".":? "YOUR BILL IS $";F;".":GOSUB 230,C4000 TRAP 40000:GOSUB 220:IF RS=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" **************":? #6;" * *":? #6;" 0} * RESTAURANT *"4003 ? #6;" * *":? #6;" * CHARLES *":? #6;" * *"4004 ? #6;" **************0}":IF RS>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? :? " **************":? " *0} *"4009 GOTO 40104010 ? " * RESTAURANT *":? " * *":? " * CHARLES 0}*"4011 ? " * *":? " **************":GOSUB 2204012 IF RS>0 THEN GOTO 40204014 F=100:GOSUB 0}810:IF J=0 THEN GOTO 48004016 RS=P:GOTO 48004020 ? :? "MEALS IN THIS FINE RESTAURANT RANGE":? "FROM $25 TO $125. ":GOSUB 0}416:GOSUB 860:GOSUB 230:GOSUB 4004021 GOTO 40224022 F=J*25:? "THE ONE YOU HAD ";NA$;" IS $";F;".":GOSUB 230:GOSUB 700:GOSUB0} 230:OW=RS4023 GOTO 40244024 GOSUB 870:GOTO 480022 F=J*25:? "THE ONE YOU HAD ";NA$;" IS $";F;".":GOSUB 230:GOSUB 700:GOSUB034000 TRAP 40000:IF DR=P THEN GOTO 8004002 R=3:GOSUB 420:? #6;" **************":? #6;" * *":? #6;" * THE DOC4}TOR *"4003 GOTO 40044004 ? #6;" * *":? #6;" **************":IF DR>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364}4008 GOSUB 220:GOSUB 450:? :? " **************":? " * *"4009 GOTO 40104010 ? " 4}* THE DOCTOR *":? " * *":? " **************":GOSUB 2304011 GOTO 40124012 IF DR>0 THEN GOTO4} 40204014 F=300:GOSUB 810:IF J=0 THEN GOTO 48004016 DR=P:GOTO 48004020 ? :? "THE DOCTOR'S RATES VARY DEPENDING ON":? "THE 4}SERVICE RENDERED AND HOW BADLY HE":? "NEEDS THE MONEY."4021 GOSUB 416:GOSUB 860:GOSUB 240:GOSUB 4004022 F=(J*J*10)+10:IF J>4}500 THEN J=J-4754023 ? :? "YOUR BILL IS $";F;", ";NA$;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=DR4024 GOSUB 870:GOTO 4800IF J>4x4000 TRAP 40000:IF NC=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" ************":? #6;" * *":? #6;" * CHERRY'S8} *":? #6;" * *"4003 ? #6;" * NIGHTERY *":? #6;" * *"4004 ? #6;" ************":IF NC>0 THEN GO8}SUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? :? " ************":? " * *"40098} GOTO 40104010 ? " * CHERRY'S *":? " * *":? " * NIGHTERY *"4011 ? " 8} * *":? " ************":GOSUB 2204012 IF NC>0 THEN GOTO 40204014 F=200:GOSUB 810:IF J=0 THEN GOTO 4808}04016 NC=P:GOTO 48004020 ? :? "FEATURING FIRST CLASS ENTERTAINMENT":? "AT REASONABLE PRICES.":GOSUB 416:GOSUB 860:GOSUB 2308}:GOSUB 4004021 GOTO 40224022 F=J*25:? :? "YOUR BILL FOR TONIGHT ";NA$;", IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=NC408} TRAP 4000:INPUT RYOUR BILL IS $";F;", ";NA$;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=DR4024 GOSUB 870:GOTO 4800IF J>44000 TRAP 40000:IF MT=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" ******************":? #6;" * *":? #6;" * PURPL<}E PASSION *"4003 ? #6;" * *":? #6;" * MOTEL *":? #6;" * *"4004 ? #6;" **************<}****":IF MT>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? :? " ******************":? " <} * *"4009 GOTO 40104010 ? " * PURPLE PASSION *":? " * *":? " * <} MOTEL *"4011 ? " * *":? " ******************":GOSUB 2204012 IF MT>0 THEN GOTO 4020<}4014 F=300:GOSUB 810:IF J=0 THEN GOTO 48004016 MT=P:GOTO 48004020 ? :? "RATES ARE $25/HOUR FOR YOU AND ......":? "WELL, LE<}T US JUST SAY YOUR FRIEND."4021 GOTO 40224022 F=J*25:? "YOU HAVE STAYED ";J;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".":GOSU<}B 230:GOSUB 700:GOSUB 230:OW=MT4023 GOTO 40244024 GOSUB 870:GOTO 4800D ";J;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".":GOSU0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? " *******************":? " *@} *"4009 ? " * PLEASURE PALACE *":? " * *"4010 ? " * WHOREHOUSE @} *":? " * *":? " *******************":GOSUB 2304011 GOTO 40124012 IF WH>0 THEN GOTO 402040@}14 F=500:GOSUB 810:IF J=0 THEN GOTO 48004016 WH=P:GOTO 48004020 ? :? "WE SATISFY ANYONE'S FANCY, MALE OR":? "FEMALE. OUR RA@}TES ARE JUST $100/HOUR."4021 GOSUB 416:GOSUB 860:GOSUB 230:GOSUB 4004022 F=J*100:? "YOU HAVE STAYED ";J;" HOURS ";NA$;".":?@} "YOUR BILL IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=WH4023 GOTO 40244024 GOSUB 870:GOTO 4800D ";J;" HOURS ";NA$;".":?@d4000 TRAP 40000:IF GS=P THEN GOTO 8004002 R=3:GOSUB 420:? #6;" ****************":? #6;" * *":? #6;" * JOE'S D}GARAGE *"4003 GOTO 40044004 ? #6;" * *":? #6;" ****************":IF GS>0 THEN GOSUB 430:GOTO 40084006 GOSUBD} 4364008 GOSUB 220:GOSUB 450:? :? " ****************":? " * *"4009 GOTO 40104010 ? " D} * JOE'S GARAGE *":? " * *":? " ****************":GOSUB 2304011 GOTO 40124012 IF GS>0D} THEN GOTO 40204014 F=250:GOSUB 810:IF J=0 THEN GOTO 48004016 GS=P:GOTO 48004020 ? :? "AUTO SERVICE RATES VARY DEPENDING OD}N":? "THE EXTENT OF THE REPAIRS AND WHETHER"4021 ? "OUR PAYROLL IS DUE.":GOSUB 416:GOSUB 860:GOSUB 230:GOSUB 4004022 F=(J*JD}*10)+10:IF J>500 THEN J=J/34023 ? :? "YOUR BILL IS $";F;", ";NA$:GOSUB 230:GOSUB 700:GOSUB 230:OW=GS4024 GOSUB 870:GOTO 480D}00)+10:IF J>500 THEN J=J/34023 ? :? "YOUR BILL IS $";F;", ";NA$:GOSUB 230:GOSUB 700:GOSUB 230:OW=GS4024 GOSUB 870:GOTO 480D4000 TRAP 40000:IF MP=P THEN GOTO 8004002 R=2:GOSUB 420:? #6;" ******************":? #6;" * *":? #6;" * MAGICH} FINGERS *"4003 ? #6;" * *":? #6;" * MASSAGE PARLOR *"4004 ? #6;" * *":? #6;" **************H}****":IF MP>0 THEN GOSUB 430:GOTO 40084006 GOSUB 4364008 GOSUB 220:GOSUB 450:? " ******************":? " H}* *"4009 ? " * MAGIC FINGERS *":? " * *"4010 ? " * MASSAGE PARLORH} *":? " * *":? " ******************":GOSUB 2304011 GOTO 40124012 IF MP>0 THEN GOTO 402040H}14 F=300:GOSUB 810:IF J=0 THEN GOTO 48004016 MP=P:GOTO 48004020 ? :? "SENSUAL MASSAGES FOR ANYONE, MALE OR":? "FEMALE. ONLYH} $25/HOUR."4021 GOSUB 416:GOSUB 230:GOSUB 400:F=J*254022 ? "YOU HAVE STAYED ";J/2;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".H}":GOSUB 230:GOSUB 700:GOSUB 230:OW=MP4023 GOTO 40244024 GOSUB 870:GOTO 4800";J/2;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".IN TRAP 4000:INPUT R24 GOSUB 870:GOTO 480022 F=J*25:? "THE ONE YOU HAD ";NA$;" IS $";F;".":GOSUB 230:GOSUB 700:GOSUB023 GOTO 40244024 GOSUB 870:GOTO 4800? :? "YOUR BILL FOR TONIGHT ";NA$;", IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=NC408& TRAP 4000:INPUT RGOTO 4800? :? "YOUR BILL FOR TONIGHT ";NA$;", IS $";F;".":GOSUB 230:GOSUB 700:GOSUB 230:OW=NC408 TRAP 4000:INPUT R=MT4023 GOTO 40244024 GOSUB 870:GOTO 4800D ";J;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".":GOSU< TRAP 4000:INPUT RB 230:GOSUB 700:GOSUB 230:OW=WH4023 GOTO 40244024 GOSUB 870:GOTO 4800D ";J;" HOURS ";NA$;".":?@ TRAP 4000:INPUT R4023 ? :? "YOUR BILL IS $";F;", ";NA$:GOSUB 230:GOSUB 700:GOSUB 230:OW=GS4024 GOSUB 870:GOTO 480D%@,%@%@v= @!-@@'"-,3"9/= xkk53,32,53,38,53,32,57,32,53,3} TRAP 4000:INPUT J023 GOTO 40244024 GOSUB 870:GOTO 4800ED ";J;" DAYS ";NA$;".":? "YOUR BILL IS $";F;".":GOSUB 230,5,56,35,53,38,57,38,59,32,59,36,63,32,63,36,60,37,60,37,61,38,61,38,62,37zkk62,37,65,32,65,38,65,32,69,32,65,35,68,35,65,3}8,69,38,71,32,71,38,71,32,74,32,71,35,74,35,75,33,75,34|kk74,36,75,38,77,32,77,34,78,35,78,35,79,36,79,38,80,35,80,35,81,3}2,81,34,83,32,87,32,85,32,85,38,89,32~kk89,38,93,32,93,38,89,35,93,35,95,32,95,38,97,32,97,38,101,32,101,38,97,32,101,38,1}03,33,103,37,104,32hh106,32,104,38,106,38,107,33,107,33,107,36,107,37,106,36,106,36,69,43,69,47,70,42,72,42,70,48,72,48}kk73,43,73,43,73,46,73,47,72,46,72,46,76,42,78,42,75,43,75,47,76,48,78,48,79,43,79,47,81,42,85,42,81,42kk81,48,81,48,85},48,81,45,84,45,88,42,90,42,88,45,90,45,88,48,90,48,87,43,87,44,91,46,91,47,91,43,91,43kk87,47,87,47,64,42,65,44,66,42,67},44,94,42,93,44,96,42,95,44,121,25,125,25,122,24,122,26,123,23,123,27mm126,23,126,23,127,22,129,22,130,23,130,24,128,25,1}29,25,130,26,130,27,127,28,129,28,126,27,126,27,30,53kk30,53,31,52,33,52,34,53,34,54,32,55,33,55,34,56,34,57,31,58,33,58,}30,57,30,58,36,55,39,55,37,53,37,5738,54,38,56= @!-@@"'"-,3"9/= cc134,31},136,31,137,32,137,32,133,32,133,36,134,37,136,37,137,36,137,36,27,43,27,48,26,49,24,49__23,48,23,48,32,22,32,28,36,22,36},28,32,25,36,25,108,22,108,28,112,22,112,28,108,22,112,28mm123,52,123,58,123,52,126,58,126,58,129,52,129,52,129,58,48,52,}48,58,48,52,51,52,48,55,51,55,52,53,52,54= @!-@@''"-,3"9/= kk48,22,48,28,48,22},51,22,52,23,52,24,48,25,51,25,51,25,52,28,88,22,88,28,88,22,91,22,88,28,91,28,92,23mm92,27,133,42,133,48,133,42,136,42,1}33,45,136,45,133,48,136,48,137,43,137,44,137,46,137,47,106,52,108,58kk108,58,110,52,110,52,112,58,112,58,114,52,68,53,68,}57,69,52,71,52,72,53,72,53,69,58,71,58,72,56,72,57))71,56,71,56,23,31,27,31,25,31,25,37AR@$E-!}* A@*!* @ ;6-%@ E AE-!A@* AY*!* @`;6-%@ E A}E-!@ * AY*!@`* @y;6-&@ E AE-!* @ *!@ * @y;6-&}@ E A$-@A $-@@P $-@AP $-@}A $-@A $b%2A!@@9-@@= _2}b$, ,/%@-,&@%@C/%@%@Y,&@%@o/%@%}@,%@%@,&@%@.6-A! A $1 ,/%@-,&@%@C}/%@%@Y,&@%@o/%@%@,%@%@,&@%@$6 ,/}%@-,&@%@C/%@%@Y,&@%@o/%@%@,%@%@/&}@%@86-@G A $; ,/%@-,&@%@C/%@%@Y,&@}%@o/%@%@,%@%@/&@%@$@V2@@--@@1 }S2V$^y #AT((3( **** ROLLING ****G-@@M"c2}@g"u-@y `?%2)"7-@; ? b\\81,14,2,2,91,13,2,4,96},12,2,4,108,11,2,8,121,10,2,16,128,9,2,32,144,8,2,64,162,7,2,128d56-P:@$H:,,)"56-@f3( }(&( ROLL IS 0 A 3$hH( (#(IT'S YOUR TURN .H( YOU HAVE $ IN YOUR ACCOUNT.jX-@} AP/-@@3 7 A A0K APU A0X$r;-@1"@)"@}; At!"@)@! Av- A"@#@- Ax#"@@# A}z#"@@# A|#"@@# A~ A $2A!@@3}-@@P7 Y2AD@@m-@@Pq 2$56-P:}@$H:,,)"56-@$56-P:@$H:,,)"56-@$e +@'0}@A0@O-@^(@ b e$-@@10@}@S2A!@@] Aw0@@2AD@@ A 2}$-@@10@@S2AD@@] A}w0@@2A!@@ A 2$C A`(6(}! *** IMPROPER INPUT DUMMY! ***@ A C$? +'0@*(<AR@?$%2}A!@@/ AQ2AD@@[ A}2$-@}@92AD@@C Ae2A!@@o As 2}$ #A" ""*""$ Av Ar12@@1@  }"6-F:@ , " Ax(%2($66108,10,108,20,108,10,96,20,81,20,64, }40,64,40,0,0% A06-%6-= AP(:(%YOUR CLOTHING IS WORTH THE FOLLOWING:=(#"@ })"@# AW-(%SHOES, etc.(AA) .................$25W(%STOCKINGS, etc.(BB) ..............$50W-(%GARTERBELT } (CC) .................$100W(%BLOUSE (DD) .....................$150W-(%SKIRT (EE) ......................$200W(%BRA (F }F) ........................$300A-(%PANTY (GG) ......................$5007 A0A AW-(%SHOES, etc.(AA) .....}.............$25W(%SOCKS, etc.(BB) ..................$50W-(%BELT (CC) .......................$100W(%SHIRT (DD) ......}................$150W-(%PANTS (EE) ......................$200W(%UNDERSHIRT (FF) .................$3007-(%UNDERSHORT}S (GG) ................$5007 A - Aa#"@*!- AP"@$ Y( AP9($TYPE} IN THE CODE LETTERS OF THE ITEMU(YOU WISH TO CASH IN Y $ 4AA6-%@%$ A8 $ 4BB6-%@P}$ A8$ 4CC6-%A$ A8$ 4DD6-%AP$ A8$ 4EE6-%A$ A8$ }4FF6-%A$ A8$ 4GG6-%A$ A8 4T A A@ A# A }"# APs( AP;(YOU'RE CASHING IN $ SO FAR .](IS THERE ANOTHER ITEM (Y/N)?j)@}s6.>:,u 4Y AP(B(%TYPE IN THE CODE LETTERS FOR THE NEXTg(ITEM OR 'T' FOR THE PRICE TABLEku A"}  4N( AP" A@ A &_ AP(7(O.K. STRIP OFF THE ITEMS  AND_("PRESS WHE}N YOU'VE FINISHED!(*)@ Ap(' AP*$X4 A0(*(MAKE YOUR CHOICE NOW!4 A@ZJ(/($B}EGIN ON THE FIRST BEEP. STOP ON THE@( SECOND BEEP.J A@\-@@! AP% ((F( **** BEG}IN ****P A@Z A@n-@@x AP| (^8!( **** STOP ****+ Ap5 A 8$b}"@6-6-d"@6-6-f"@6-6-h"@6-6-j$l# A}"# A&n9 6-6-@# A/"@9 A&p# 6-6-@# Ar"} A2t9 6-6-@# A/"@9 A2v# 6-6-@# Ax$"@}6-"@6-"@6-"@6-$#"@6.6-%#6-#"@}6.6-%#6-#"@6.6-%#6-#"@6.6-%#6-b(*( YOU GET $ THIS TIME }.U( YOUR READY CASH ACCOUNT IS NOW $._ A@b$"@6-6-"@6-6-" }@6-6-"@6-6-$ -@P@ 6@<2@@@ T-@ !}@up2@@t 2$) 6-& 6-%) APe"}(.( THANK YOU . YOUR DEBT IS PAID.N(YOUR ACCOUNT IS NOW $.X Afb A0e$W+(YOUR ACCOUNT IS $#} . YOU NEED TOM(PAY $ PLUS $100 PENALTY.W A0f(O(4SO YOU NEED TO CASH IN GARMENTS TOTAL-ING AT LEAST $%$}A&.Y A0c Af$g-@@! A`% ((S(&YOUR ACCOUNT IS IN THE RED, DAMMIT!!!!] A0%}g A16-&&A '6-%1 AV Ao-@@! A`% ((N(!YOUR &}ACCOUNT IS STILL IN THE RED,e(DAMMIT, !!!!!o A04( AP4(IS THAT ALL YOU HAVE ON (Y/N)?+)@'}6.>:,!4N+ Ap 4Y A A@ AXh(/($THEN LET'S TRY AGAIN!!! YOU NEED AN-V((}OTHER $&. SO THIS TIME DON'Th( BE SO MODEST. A@ A16-&&A '6-%1 AV)} A o( (3(%*** OH! HOW TERRIBLY EMBARRASSING ***6(Z( *** YOU'RE NAKED  ***d ApoD:CIP1*} Z Af Af(( (F( *** IT'S YOUR PROPERTY  ***P A0Z A *S(&( *** FOR SALE +}***?( $I A0S AP,-(-(!DO YOU WISH TO PURCHASE IT (Y/N)?.N)@6.>:,# AP,}&(.4N:6-D AN A 0 4Y AP A 2 A@ A4 A $R 6--}&S} 6-%($ A`J(NOT ENOUGH IN YOUR ACCOUNT .d(YOU HAVE ONLY $.n A z6-.}}$Tz6-@ A # Af&(Q($ HAS BEEN DEDUCTED FROM YOUR AC-z($COUNT. IT IS NOW YOURS. YOUR ACCOUNT/}V#(IS NOW $. A@#$\"6-@^!@6-&@`$f"@6-%h0}"@6-%j"@6-%l"@6-%n$$"@*4AA$6-&@$"@*41}BB$6-&@""@*4CC"6-""@*4DD"6-""@*4EE"6-"2}"@*4FF"6-""@*4GG"6-$"@*4AA$6-&@$"@*4BB$6-3}&@""@*4CC"6-""@*4DD"6-""@*4EE"6-""@4}*4FF"6-""@*4GG"6-$"@*4AA$6-&@$"@*4BB$6-&@5}""@*4CC"6-""@*4DD"6-""@*4EE"6-""@*4FF6}"6-""@*4GG"6-$"@*4AA$6-&@$"@*4BB$6-&@""7}@*4CC"6-""@*4DD"6-""@*4EE"6-""@*4FF"6-8}""@*4GG"6-$]-@@! AP5-@@9 = G AS"9}] A e @6-@%6-@/ A2(5(O( PUSSYCAT  IS UP.Y A _6-e6-"@:} A e @6-@%6-@/ A2(5(O( PUSSYCAT  IS UP.Y A _6-e6-";} Ac @6-@%6-@/ A2(5(M(TOMCAT  IS UP.W A ]6-c6-"@<} Ac @6-@%6-@/ A2(5(M(TOMCAT  IS UP.W A ]6-c6-L# A0=}"# AN; 6-6-6-@!6.'6-1 A`; ApP 6-6-R A V# A0>}"# A X; 6-6-6-@!6.'6-1 A`; ApZ 6-6-\ A `# A0 @?}# A0b; 6-6-6-@!6.'6-1 A`; Apd 6-6-f A j# A0 @@}# A@l; 6-6-6-@!6.'6-1 A`; Apn 6-6-p A t A` AA}# @ * @ # A!#!A@* @ # A!#!A@*!@`# A!# @ *!@`B}# A!-#!A * A@* @ - A! -#!@ * @@*!@`- A!&-#!@`* @C}* @ - A)-#!@* A*!@`- A)/#!A@*!@@* @`/D:BANK1.# @ D}*!@ * @@.D:TAX17# @ *!@@* @`- A"7 A .#!A@*!@ * @@E}.D:COP1-#!@ * @@* @ -D:HT1-#!@@* @`* @ -D:RS1-#!@* AF}* @ -D:DR1-#!A* A * @ -D:NC1-#!@`*!A * A@-D:MT1-#!@`G}*!A* A -D:WH1-#!@`*!@`* @-D:GS1-#!@`*!@@* @`-D:MP13H}$4p-@@! AP5-@@9 = @(C(f( *** FREE MONEY SPACE ***p A6;6-$I}@  A '"@-6.56-%;6-8#"@6.6-%#6-:#"@6.6-%#6-<#J}"@6.6-%#6->f'( YOU GET $ THIS TIME .R( YOUR READY CASH ACCOUNT IS NOW $.\ A0f AK} @f-@@! AP5-@@9 = @(C(f( *** FREE SPACE  ***B A0 AL} H7 A-"@)"@7 AJ#"@)"@# AL6-&@` A!2NM}7 A-"@)"@7 AP#"@)"@# AR6-%@` A!2T/"@N}@# A)6-/6-V/"@@# A)6-/6-X/"@@# A)6-O}/6-Z/"@@# A)6-/6-\ A M A  AP(C($ ** YOU'RE JUST VISITING THE P}JAIL **M AfE A0 A%6-$@;"@)"@E A" A" C(/(BRIBING THE GUAQ}RDS WILL COST $.9 A0C A A@ A $ @6-%A A"!@PR}6-&@P A" "@ A%  "@ A%@ "@ A%` "@ A%S} 0"@)"@"6.AA-6.SHOE0$ 4"@)"@"6.BB16.STOCKING4$ ,"@6.CCT})6. GARTERBELT,$ ("@6.DD%6.BLOUSE($ '"@6.EE$6.SKIRT'$ %"@6.FF"U}6.BRA%$ '"@6.GG$6.PANTY'$  6.HH6.NAKED$ 0"@)"@"6.AA-6.SHOE0$V} 0"@)"@"6.BB-6.SOCK0$ &"@6.CC#6.BELT&$ '"@6.DD$6.SHIRT'$W} '"@6.EE$6.PANTS'$ ,"@6.FF)6. UNDERSHIRT,$ -"@6.GG*6. UNDERSHORTSX}-$  6.HH6.NAKED$ 0"@)"@"6.AA-6.SHOE0$ 4"@)"@"6.BB16.STOCKIY}NG4$ ,"@6.CC)6. GARTERBELT,$ ("@6.DD%6.BLOUSE($ '"@6.EE$6.SKIRTZ}'$ %"@6.FF"6.BRA%$ '"@6.GG$6.PANTY'$  6.HH6.NAKED$ 0"@)"[}@"6.AA-6.SHOE0$ 0"@)"@"6.BB-6.SOCK0$ &"@6.CC#6.BELT&$ '"@\}6.DD$6.SHIRT'$ '"@6.EE$6.PANTS'$ ,"@6.FF)6. UNDERSHIRT,$ -"@]}6.GG*6. UNDERSHORTS-$  6.HH6.NAKED$ *** CHANCE *** 6-@ A 6(@ ??^}????????S(@ ? ?p(@ ? CHANCE ?(@ ? ? @ (@ ????????_}??* A06"@@ AP  D:CHANCE1 B6-@# A ?(@ #######[(@`} # #w(@ # THE #(@ # #(@ # COP #;(@ a}# #W(@ #######k-@@0@@ ApB0@@' Ab}p+ 5 A? APB(o( #######9( # #T( # THE #o( c} # #T( # COP #9( # #T( #######Q(+(YOU'VE BEEN d}ARRESTED, , FOR5 AC6-&@Q6-%A@Pm  A@(8(THE UNCONTESTED FINE IS $.B A0e}E(m(#HOW DO YOU PLEA, GUILTY OR INNOCENT((G/I)?5)@6.>:,# AP+4G5 A@" 4I f}A@( A@ A@(.(#THE JUDGE IS CONSIDERING YOUR CASE.8 AL-@@Pn2@Gg}@@-@@ %2) 3 A@`?!@B(a( ***q};b'DOS SYSb*+DUP SYSCUHT b\CIP1 bENDGAME bmEVTHGOS2 bpAUTORUN SYSbCOP1 bLOADER bBANK1 b CHPCH1 bHT1 b RS1 bDR1 b NC1 b MT1 b WH1 b GS1 b MP1 bCHANCE1 bTAX1 b CHTCH1 b CHPCF1 b CHPCG1 b CHTCF1 b CHTCG1 bTALLY bSEGTITLE GAR b$#EGINST GEGS TIT INNOCENT ***k Afu A0 A  A 6-$@ A@"c($( *** GUILTY ***. Apr}8 A B A L A@0V A0` APc(o( ########9( # #T( s} # JAIL #o( # #u( ########( A+(T(YOU'RE IN JAIL NOW,  . THE JUDGEt}u(HAS SET YOUR FINE AT $.f A0(6(!IT IS NOW BEING DEDUCTED FROM THER($ IN YOUR ACCOUNT.\ A0u}f A! A@ A ! A A A` A -"@)"@7A A-"@)"v}@#- AE A "@%6-@16-@R;@E A;"@6-@'w}6-@E1@; A;"@6-@'6-@R1@; A;"@6-@'6-@Ex}1@; A A$ A@F A@H A@P;,($THROWING FOOD IN RESTAURANT CHARLES.86y}-@P;$ A@P0!(STREAKING THE TAX OFFICE.-6-A0$ A@RD,($EXPOSING YOURSELF AT CHERRY'S Nz}IGHT-5(ERY.A6-APD$ A@TY(( MAKING IMPROPER PROPOSALS AT THEJ(MAGIC FINGERS MASSAGE PARLOR.V6-A{}Y$ A@VS-(%ENGAGING IN UNNATURAL SEX AT THE PUR-D(PLE PASSION MOTEL.P6-APS$ A@X#"@|})"@# A@f!@6-@$!@6-@$! A@ A ! A }}w B6-@# AP?( ??????????[( ? ?w( ? CHANCE ?K(~} ? ?;( ??????????E AH(K(s"6("A PLAYER OF YOUR CHOICE MAY FONDLE_(}ANY EXPOSED PART OF YOUR BODY .i As AHm"@8($YOU MAY FONDLE ANY EXPOSED PART OF AY(PLAYER} OF YOUR CHOICE .c Am AH A%4HH AP$ 4GG APd * NOP 4FF AP}h-#"@*"@)"@- AP "@ AP(C4AA)4BB9(SEDUCTIVELY REMOVE A  e}5000 TRAP 40000:G=1:GOSUB 450:? " ??????????":? " ? ?":? " ? CHANCE ?"5002 ? " M} ? ?":? " ??????????":GOSUB 416:? :? 5004 IF J=0 THEN ? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "M}ANY EXPOSED PART OF YOUR BODY ";NA$;".":GOSUB 600:GOTO 48005006 IF J=1 THEN ? "YOU MAY FONDLE ANY EXPOSED PART OF A":? "PLAYM}ER OF YOUR CHOICE ";NA$;".":GOSUB 600:GOTO 48005008 GOSUB 2500:IF A$="HH" THEN GOTO 50245010 IF A$="GG" THEN GOTO 50645012M} REM * NOP5014 IF A$="FF" THEN GOTO 50685016 IF J=2 AND P=1 OR P=3 THEN GOTO 50205018 IF J=2 THEN GOTO 50285020 IF A$="AAM}" OR A$="BB" THEN ? "SEDUCTIVELY REMOVE A ";B$;" ";NA$;".":GOTO 50345022 IF A$="CC" OR A$="DD" OR A$="EE" THEN ? "SLOWLY ANDM} SEDUCTIVELY STRIP AWAY YOUR";B$;" ";NA$;".":GOTO 50345024 ? :? " *** YOU'RE NAKED ";NA$;" ***":GOSUB 670:GOSUB 5038:? :IM}F P=1 OR P=3 THEN ENTER "D:CHPCH1"5026 ENTER "D:CHTCH1"5028 ? "A PLAYER OF YOUR CHOICE MUST SEDUCT-":? "IVELY FORFIT ANY ITM}EM YOU CHOOSE EX-"5030 ? "CEPT THEIR UNDERWEAR."5032 GOSUB 5072:GOTO 48005034 GOSUB 230:GOSUB 900:GOSUB 5050:? :GOSUB 250:M}? "PRESS ONCE YOU'VE COMPLIED.";:GET #4,A:GOSUB 6705036 ? :? :? "FANTASTIC ";NA$;"!!! YOUR READY CASH ":? "ACCOUNT NOM}W IS $";AC;".":GOSUB 230:GOTO 48005038 GOSUB 416:IF J=0 OR J=1 THEN J=15040 IF J=2 OR J=3 THEN J=25042 IF J=4 OR J=5 THEN M}J=35044 IF J=6 OR J=7 THEN J=45046 IF J=8 OR J=9 THEN J=55048 RETURN 5050 IF A$="AA" THEN AM=25:AC=AC+AM:RETURN 5052 IF M}4000 TRAP 40000:R=2:GOSUB 420:? #6;" $$$$$$$":? #6;" $ $":? #6;" $ TAX $":? #6;" $ $"4002 ? Q}#6;" $$$$$$$"4003 GOSUB 470:GOSUB 210:GOSUB 450:? :? " $$$$$$$":? " $ $":? " Q} $ TAX $"4004 ? " $ $":? " $$$$$$$":GOSUB 210:? :? " *** IT'S TAX TIME ";NA$;" ***"Q}4006 GOSUB 220:? :? "HOW NICE OF YOU TO DROP BY!":GOSUB 230:? :? "YOUR READY CASH ACCOUNT IS BEING "4008 ? "ASSESSED FOQ}R 50% OF IT'S VALUE.":GOSUB 230:AM=INT(AC*0.5):? :? "IT WAS $";AC;". THE NEW VALUE IS $";AM;"."4009 AC=AM:GOSUB 240:GOSUB 64Q}0:GOSUB 620:GOTO 2099GOSUB 230:AM=INT(AC*0.5):? :? "IT WAS $";AC;". THE NEW VALUE IS $";AM;"."4009 AC=AM:GOSUB 240:GOSUB 64Q TRAP 4000:INPUT R230:AM=INT(AC*0.5):? :? "IT WAS $";AC;". THE NEW VALUE IS $";AM;"."4009 AC=AM:GOSUB 240:GOSUB 64P4000 TRAP 40000:R=3:GOSUB 420:? #6;" $$$$$$$$":? #6;" $ $":? #6;" $ BANK $":? #6;" $ $"4002 ? %}#6;" $$$$$$$$"4003 GOSUB 436:GOSUB 210:GOSUB 450:? :? " $$$$$$$$":? " $ $":? " %} $ BANK $"4004 ? " $ $":? " $$$$$$$$":GOSUB 210:? :? " *** THE BANK IS NOW OPEN ***"40%}-@"!,%"3-@9"?/C G q20r550,187,6,3,186,5,186,10,187,16,186,20,187,26,191tm}**23,188,4,40,183,58,177,64,176,68,176v1145,187,5,54,184,70,177,78,174,81,173,84,174xll66,184,13,73,180,84,174,90,172,m}100,173,102,173,114,171,128,169,134,169,140,170,148,174,155,178,157,181z 158,184|UU82,188,9,94,184,102,180,108,179,120m},178,132,179,137,180,138,182,138,184,134,191~77140,169,5,160,165,180,164,200,166,220,170,240,17677158,178,5,174,176,17m}6,176,190,178,200,182,220,191??184,164,6,189,160,200,153,212,150,224,149,232,149,286,154205,152,2,208,147,211,143m}''205,164,3,220,158,240,157,260,160224,162,2,232,161,260,16677228,190,5,232,183,240,181,244,181,254,184,268,191m}GG243,180,7,248,172,253,169,260,166,266,166,280,169,300,180,308,186??262,165,6,268,157,274,153,280,152,290,154,300,160,m}312,17277277,154,5,282,145,288,143,296,144,304,149,311,162//296,144,4,302,142,310,144,317,139,319,141310,144,2,m}312,152,316,160II232,131,4,240,129,246,128,248,128,260,130,278,137,2,286,140,293,142//230,140,4,240,137,242,137,260,1m}06 GOSUB 230:? :? "YOUR READY CASH ACCOUNT IS AT $";AC;"."4008 GOSUB 220:GOSUB 250:? "DO YOU WISH TO DO BUSINESS NOW ";NA$:?%} "(Y/N)?";4009 GET #4,A:A$=CHR$(A):GOSUB 250:IF A$="N" THEN GOSUB 460:? :? "SORRY, MAYBE NEXT TIME.":GOSUB 220:GOSUB 620:GOT%}O 20994010 IF A$="Y" THEN R=0:GOSUB 220:GOSUB 500:GOSUB 620:GOTO 20994011 GOSUB 440:GOTO 4008IME.":GOSUB 220:GOSUB 620:GOT%` TRAP 4000:INPUT R=0:GOSUB 220:GOSUB 500:GOSUB 620:GOTO 20994011 GOSUB 440:GOTO 4008IME.":GOSUB 220:GOSUB 620:GOT$4000 TRAP 40000:R=2:GOSUB 420:? #6;" #######":? #6;" # #":? #6;" # THE #":? #6;" # #"4002 ? }#6;" # COP #":? #6;" # #":? #6;" #######":FOR Q=1 TO 3:SETCOLOR 0,1,12:GOSUB 6704003 SETCOLOR 0,4,4:GO}SUB 670:NEXT Q:GOSUB 210:GOSUB 450:? 4004 ? " #######":? " # #":? " # THE #":?} " # #"4006 ? " # COP #":? " # #":? " #######"4008 ? :? "YO}U'VE BEEN ARRESTED, ";NA$;", FOR":GOSUB 416:ADD=J-1:ADD=ADD+40504009 GOSUB ADD:GOSUB 240:? :? "THE UNCONTESTED FINE IS $";F;}".":GOSUB 230:? :? "HOW DO YOU PLEA, GUILTY OR INNOCENT"4010 ? "(G/I)?";4011 GET #4,A:A$=CHR$(A):GOSUB 250:IF A$="G" THEN G}OTO 40224012 IF A$="I" THEN GOTO 40164014 ? :GOSUB 440:GOTO 40104016 ? :? "THE JUDGE IS CONSIDERING YOUR CASE.":GOSUB 416:}FOR Q=1 TO 50:SOUND 0,47,10,10:FOR W=1 TO 5:NEXT W4020 SOUND 0,0,0,0:NEXT Q:GOSUB 4060:IF J>5 THEN ? :? " *** INNOC}ENT ***":GOSUB 466:GOSUB 230:GOSUB 620:GOTO 20994021 F=F*2:GOTO 40224022 ? :? " *** GUILTY ***":GOSUB 470:GOSUB 2}20:GOSUB 620:GOSUB 4030:GOSUB 230:GOSUB 450:? 4023 ? " ########":? " # #":? " # }JAIL #":? " # #"4024 ? " ########":GOSUB 210:? :? "YOU'RE IN JAIL NOW, ";NA$;". THE JUDGE":? }"HAS SET YOUR FINE AT $";F;"."4026 GOSUB 230:? :? "IT IS NOW BEING DEDUCTED FROM THE":? "$";AC;" IN YOUR ACCOUNT.":GOSUB 230}:GOSUB 7004028 GOSUB 640:GOSUB 620:GOTO 20994030 GOSUB 660:GOSUB 220:IF P=1 OR P=3 THEN COLOR 0:GOSUB 3104032 IF P=2 OR P=}4 THEN COLOR 0:GOSUB 3004034 GOSUB 220:IF P=1 THEN X=5:Y=52:COLOR 1:GOSUB 3104036 IF P=2 THEN X=5:Y=45:COLOR 2:GOSUB 30040}38 IF P=3 THEN X=15:Y=52:COLOR 2:GOSUB 3104040 IF P=4 THEN X=15:Y=45:COLOR 1:GOSUB 3004042 GOSUB 610:RETURN 4044 GOTO 4046}4046 GOTO 40484048 GOTO 40504050 ? "THROWING FOOD IN RESTAURANT CHARLES.":F=50:RETURN 4051 GOTO 40504052 ? "STREAKING TH}E TAX OFFICE.":F=100:RETURN 4053 GOTO 40524054 ? "EXPOSING YOURSELF AT CHERRY'S NIGHT-":? "ERY.":F=150:RETURN 4055 GOTO 40}544056 ? "MAKING IMPROPER PROPOSALS AT THE":? "MAGIC FINGERS MASSAGE PARLOR.":F=200:RETURN 4057 GOTO 40564058 ? "ENGAGING }IN UNNATURAL SEX AT THE PUR-":? "PLE PASSION MOTEL.":F=250:RETURN 4059 GOTO 40584060 IF P=1 OR P=3 THEN GOTO 40664062 IF Jh}A$="BB" THEN AM=50:AC=AC+AM:RETURN 5054 IF A$="CC" THEN AM=100:AC=AC+AM:RETURN 5056 IF A$="DD" THEN AM=150:AC=AC+AM:RETURN M}40,270,143*** FACE ***G"-@"!,%"3-@9"?/C G 9jj298,71,13,295m},75,291,78,291,80,289,82,284,86,278,89,272,92,268,93,266,93,264,92,260,88,256,80,254,74##260,88,3,258,86,254,84,252,84m}FF281,57,8,285,60,287,62,288,64,288,66,286,64,285,62,284,60,281,57##291,71,3,294,74,294,77,293,7488278,58,6,281,60,2m}83,62,284,64,284,66,283,68,280,70FF289,71,8,286,72,284,76,283,79,281,80,279,80,277,78,275,76,276,7388275,59,6,280,61,m}282,64,282,66,279,65,276,62,275,5988286,72,6,289,73,291,75,291,79,289,78,287,76,286,72UU268,78,10,272,80,274,81,276,8m}3,276,87,272,84,268,78,268,83,270,85,272,87,276,87,*** HAIR ***.G"-@"!,%"3-@9"m}?/C G /790jj302,58,13,297,55,291,54,286,55,280,56,275,59,270,63,260,66,256,66,248,64,241,60,236,58,232,58,229m},592MM294,43,9,288,41,284,41,278,42,264,48,257,50,255,50,240,51,232,52,226,544UU304,56,10,305,52,305,50,302,44,296,38,2m}86,35,280,34,276,34,268,37,260,42,253,496OO277,37,3,271,38,264,42,258,47,298,44,5,293,40,286,38,282,38,273,40,262,478FFm}303,54,8,304,52,302,49,300,47,293,45,288,44,286,44,264,51,260,51:??300,52,7,296,49,290,48,280,50,268,53,263,54,247,53,230,m}55<11294,52,5,289,51,280,53,266,57,261,57,243,55>AA270,60,4,263,61,259,61,248,58,243,58,265,62,2,258,63,249,61@FF242m},62,8,237,63,228,61,220,56,210,51,208,51,205,52,202,56,200,60BFF240,62,8,237,63,228,61,220,56,210,51,208,51,205,52,202,56,m}200,60D??243,65,7,236,66,232,66,223,63,217,58,213,55,211,55,209,56FXX207,55,2,203,58,200,63,213,59,3,210,58,206,60,201,m}5058 IF A$="EE" THEN AM=200:AC=AC+AM:RETURN 5060 IF A$="FF" THEN AM=300:AC=AC+AM:RETURN 5062 IF A$="GG" THEN AM=500:AC=AC+M}AM:RETURN 5064 IF P=1 OR P=3 THEN ENTER "D:CHPCG1"5066 IF P=2 OR P=4 THEN ENTER "D:CHTCG1"5068 IF P=1 OR P=3 THEN ENTER "DM}:CHPCF1"5070 IF P=2 OR P=4 THEN ENTER "D:CHTCF1"5072 ? :GOSUB 250:? "TYPE IN THE PLAYER OF YOUR CHOICE";5074 INPUT NA$:IF M}NA$=P1$ THEN P=1:GOTO 50845076 IF NA$=T1$ THEN P=2:GOTO 50845078 IF NA$=P2$ THEN P=3:GOTO 50845080 IF NA$=T2$ THEN P=4:GOTM}O 50845082 GOSUB 460:? :? "WRONG NAME DUMMY!":? "I HAVE THE FOLLOWING: ";P1$,T1$:? ," ";P2$,T2$:GOTO 50725084 ? :? "TYPE INNi} TRAP 4000:INPUT R230:OW=MP4023 GOTO 40244024 GOSUB 870:GOTO 4800";J/2;" HOURS ";NA$;".":? "YOUR BILL IS $";F;".H66,232,69,3,229,69,220,66,213,61HQQ213,64,3,211,63,206,65,204,68,214,68,2,210,68,206,72,219,72,2,215,70,213,71JQQ238,70n}4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO Y}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR BLOUSE BACK ";NA$;".":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 24Y}0:GOSUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY BACK YOUR BLOUSE":? "FOR $150 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GY}OSUB 460:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=150:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "LOWER YOUR BRA AY}ND LIFT YOUR BOOBIES":? "FOR A PLAYER OF YOUR CHOICE.":GOSUB 600:GOSUB 220:GOTO 48004014 ? "SEDUCTIVELY STRIP OFF YOUR BRA "Y};NA$;".":A$="FF":GOTO 40264016 ? "SEDUCTIVELY STRIP OFF YOUR BRA ";NA$;".":A$="FF":GOTO 40264020 IF P=1 THEN DP1=1:RETURN Y}4021 IF P=3 THEN DP3=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOSUB 4020:? "YOU MAY HAVE IT BACK ";NA$;". YOUR":? "Y}ACCOUNT NOW IS $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU DON'T HAVE ENOUGH IN YOUR ACCOUNT!":GOSUB 230:RETY}URN 4026 GOSUB 230:GOSUB 900:AC=AC+300:? :GOSUB 250:? "PRESS ONCE YOU'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASY}TIC ";NA$;"!!! YOUR READY CASH ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO 4800U'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASYL TRAP 4000:INPUT RSH ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO 4800U'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASX4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO a}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR SHIRT BACK ";NA$;".":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 240a}:GOSUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY BACK YOUR SHIRT":? "FOR $150 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GOSa}UB 460:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=150:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "LIFT YOUR UNDERSHIa}RT AND PUFF YOUR":? "CHEST FOR A PLAYER OF YOUR CHOICE.":GOSUB 600:GOSUB 220:GOTO 48004014 ? "STRIP OFF YOUR UNDERSHIRT ";NAa}$;".":A$="FF":GOTO 40264016 ? "STRIP OFF YOUR UNDERSHIRT ";NA$;".":A$="FF":GOTO 40264020 IF P=2 THEN DP2=1:RETURN 4021 IF a}P=4 THEN DP4=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOSUB 4020:? "YOU MAY HAVE IT BACK ";NA$;". YOUR":? "ACCOUNT a}NOW IS $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU DON'T HAVE ENOUGH IN YOUR ACCOUNT!":GOSUB 230:RETURN 402a}6 GOSUB 230:GOSUB 900:AC=AC+300:? :GOSUB 250:? "PRESS ONCE YOU'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NAa}$;"!!! YOUR READY CASH":? "ACCOUNT IS NOW $";AC;",":GOSUB 230:GOTO 4800 COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NAaH TRAP 4000:INPUT RCCOUNT IS NOW $";AC;",":GOSUB 230:GOTO 4800 COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NA`4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO ]}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR BRA BACK ";NA$;".":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 240:G]}OSUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY BACK YOUR BRA FOR":? "$300 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GOSUB 4]}60:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=300:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "YOU MUST LET A PLAYER ]}OF YOUR CHOICE":? "FONDLE YOUR BOOBIES ";NA$;".":GOSUB 600:GOSUB 220:GOTO 48004014 ? "DROP YOUR PANTY ";NA$;" AND LET A":? "]}PLAYER SQUEEZE YOUR DERRIER!":GOSUB 600:GOSUB 220:GOTO 48004016 ? "SLOWLY AND SEDUCTIVELY STRIP OFF YOUR":? "PANTY ";NA$;"."]}:A$="GG":GOTO 40264020 IF P=1 THEN FP1=1:RETURN 4021 IF P=3 THEN FP3=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOS]}UB 4020:? "YOU MAY HAVE IT BACK ";NA$;". YOUR":? "ACCOUNT NOW IS $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU]} DON'T HAVE ENOUGH IN YOUR ACCOUNT!":GOSUB 230:RETURN 4026 GOSUB 230:GOSUB 900:AC=AC+500:? :GOSUB 250:? "PRESS ONCE Y]}OU'VE COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO ]}4800 COMPLIED";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO ^4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40124004 IF J=4 THEN GOTO e}40144006 IF J=5 THEN GOTO 40164008 ? "YOU MAY HAVE YOUR UNDERSHIRT BACK.":? "IT'S AS IF YOU'VE NEVER LOST IT.":GOSUB 240:GOe}SUB 4020:GOTO 48004009 ? "DO YOU WISH TO BUY YOUR UNDERSHIRT":? "FOR $300 (Y/N)?";:GET #4,A:A$=CHR$(A):IF A$="N" THEN GOSUB e}460:GOSUB 220:GOTO 48004010 IF A$="Y" THEN F=300:GOSUB 4022:GOTO 48004011 GOSUB 440:GOTO 40094012 ? "YOU MUST LET A PLAYERe} OF YOUR CHOICE":? "FONDLE YOUR CHEST ";NA$;".":GOSUB 600:GOSUB 220:GOTO 48004014 ? "DROP THE UNDERSHORTS AND GIVE A PLAY-":e}? "ER A FLASH OF YOUR REAR ";NA$;".":GOSUB 600:GOSUB 220:GOTO 48004016 ? "STRIP OFF YOUR UNDERSHORTS ";NA$;".":A$="GG":GOTO e}40264020 IF P=2 THEN FP2=1:RETURN 4021 IF P=4 THEN FP4=1:RETURN 4022 AC=AC-F:IF AC<0 THEN GOTO 40244023 GOSUB 4020:? "YOUe} MAY HAVE IT BACK ";NA$;". YOUR":? "ACCOUNT IS NOW $";AC;".":GOSUB 230:RETURN 4024 AC=AC+F:GOSUB 460:? :? "YOU DON'T HAVE ENe}OUGH IN YOUR ACCOUNT!":GOSUB 230:RETURN 4026 GOSUB 230:GOSUB 900:AC=AC+500:? :GOSUB 250:? "PRESS ONCE YOU'VE COMPLIEDe}";:GET #4,A:GOSUB 6704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO 4800 COMPLIEDet TRAP 4000:INPUT R "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO 4800 COMPLIEDd4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40104004 IF J=4 THEN GOTO )}40124006 IF J=5 THEN GOTO 40164008 ? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "YOUR BOOBIES ";NA$;".":GOSUB 600:GOTO 4800400)}9 ? "CARRESS YOUR NIPPLES UNTIL THEY BE-":? "COME LONG AND HARD ";NA$;".":GOSUB 230:GOTO 40264010 ? "SPREAD YOUR THIGHS WIDE)} APART AND":? "MASSAGE YOUR CLIT UNTIL IT BECOMES"4011 ? "RED AND SWOLLEN ";NA$;".":GOSUB 230:GOTO 40244012 ? "SPREAD YOUR)} THIGHS WIDE APART AND":? "LET A PLAYER OF YOUR CHOICE MASSAGE"4014 ? "YOUR CLIT UNTIL IT BECOMES RED AND":? "SWOLLEN ";NA$;)}".":GOSUB 230:GOTO 40244016 ? "WILL YOU SPREAD YOUR THIGHS WIDE":? "APART AND LET A PLAYER OF YOUR CHOICE"4020 ? "MASSAGE Y)}OUR CLIT UNTIL IT BECOMES":? "RED AND SWOLLEN FOR $300 CREDIT (Y/N)?";:GET #4,A:A$=CHR$(A)4021 IF A$="Y" THEN GOTO 40244022*} IF A$="N" THEN GOSUB 460:? :? "MODESTY MAY BE COSTLY ";NA$;"!":GOSUB 230:GOTO 48004023 GOSUB 440:GOTO 40164024 ? :GOSUB 25*}0:? "CHOOSE THE PLAYER NOW ";NA$;".":GOSUB 2404026 ? :GOSUB 250:? "PRESS WHEN YOU'RE READY TO BE-":? "GIN";:GET #4,A:*}? :? " *** BEGIN ***"4028 FOR Q=1 TO 5:GOSUB 250:NEXT Q:? :? "PRESS ONCE EVERYONE'S SATIS-":? "FIED YOU'VE *}COMPLIED COMPLETELY";4030 GET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032 GOSUB 220:GOTO 4800ERYONE'S SATIS-":? "FIED YOU'VE *] TRAP 4000:INPUT RET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032 GOSUB 220:GOTO 4800ERYONE'S SATIS-":? "FIED YOU'VE (4000 TRAP 40000:GOSUB 5038:IF J=1 THEN GOTO 40084002 IF J=2 THEN GOTO 40094003 IF J=3 THEN GOTO 40104004 IF J=4 THEN GOTO V}40124006 IF J=5 THEN GOTO 40164008 ? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "YOUR CHEST ";NA$;".":GOSUB 600:GOTO 48004009 V}? "A PLAYER OF YOUR CHOICE MAY FONDLE":? "YOUR CHEST ";NA$;".":GOSUB 600:GOTO 48004010 ? "A PLAYER OF YOUR CHOICE MAY FONDLEV}":? "YOUR CHEST ";NA$;".":GOSUB 600:GOTO 48004011 REM ** NOP ***4012 ? "SPREAD YOUR THIGHS WIDE APART AND":? "LET A PLAYER V }OF YOUR CHOICE MASSAGE"4014 ? "YOUR COCK UNTIL IT BECOMES HARD.":GOSUB 230:GOTO 40244016 ? "WILL YOU SPREAD YOUR THIGHS WIDV }E":? "APART AND LET A PLAYER OF YOUR CHOICE"4020 ? "MASSAGE YOUR COCK UNTIL IT BECOMES":? "HARD FOR $300 CREDIT (Y/N)?";:GETV } #4,A:A$=CHR$(A)4021 IF A$="Y" THEN GOTO 40244022 IF A$="N" THEN GOSUB 460:? :? "MODESTY MAY BE COSTLY ";NA$;"!":GOSUB 230:V }GOTO 48004023 GOSUB 440:GOTO 40164024 ? :GOSUB 250:? "CHOOSE THE PLAYER NOW ";NA$;".":GOSUB 2404026 ? :GOSUB 250:? "PRESS V } WHEN YOU'RE READY TO BE-":? "GIN";:INPUT A$:? :? " *** BEGIN ***"4028 FOR Q=1 TO 5:GOSUB 250:NEXT Q:? :? "PV}RESS ONCE EVERYONE'S SATISIF-":? "IED YOU'VE COMPLIED COMPLETELY.";4030 GET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032V} GOSUB 220:GOTO 4800YONE'S SATISIF-":? "IED YOU'VE COMPLIED COMPLETELY.";4030 GET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032V TRAP 4000:INPUT RSATISIF-":? "IED YOU'VE COMPLIED COMPLETELY.";4030 GET #4,A:GOSUB 670:IF J=5 THEN AC=AC+3004032T,3,230,72,228,72,220,70,235,73,2,230,76,222,78,215,73,2,207,75,201,82LQQ222,74,3,214,75,210,77,208,78,216,78,2,213,78,204,n}82,212,80,2,210,88,206,94NQQ215,81,3,213,88,210,94,206,96,219,85,2,216,92,212,96,238,74,2,228,79,221,84Pee220,88,3,215,n}100,214,106,215,110,239,77,4,230,82,222,90,219,100,218,109,238,79,2,228,88,222,102RNN239,91,2,232,98,229,106,226,99,2,224,n}104,223,106,227,101,2,226,97,226,99TKK245,65,8,241,74,240,80,239,90,237,100,232,106,220,115,216,120,213,125VSS248,66,5,n}244,74,243,90,240,100,231,110,223,117,251,69,3,249,76,247,90,242,104XPP240,107,5,234,113,221,120,212,125,207,129,205,133,2n}50,90,2,247,100,242,108ZTT255,68,9,251,82,252,94,251,100,246,108,240,114,232,119,220,124,210,129,206,133\99212,128,2,21n}2,133,215,126,227,121,2,224,128,232,119^ii254,90,2,255,94,253,101,259,90,2,257,96,256,104,252,105,2,249,112,242,119,248,11n}5,2,245,118,242,121```254,108,3,252,114,246,120,240,123,261,93,6,259,100,258,105,260,111,265,114,270,115,272,115bPP264,n}94,3,262,100,262,103,264,110,265,100,4,265,104,267,109,269,111,272,112dWW269,94,3,268,99,268,101,270,106,271,96,2,271,100,n}273,110,281,90,2,278,100,276,107fYY292,82,3,284,96,280,100,277,106,260,114,2,252,120,248,126,257,119,2,254,121,250,125h[n}[262,116,2,258,122,256,126,262,121,2,260,123,257,125,264,117,3,262,121,261,127,263,133jQQ266,120,3,265,126,266,132,269,13n}8,269,117,4,268,123,268,125,270,132,274,138lgg289,95,5,284,102,278,110,273,118,271,121,271,125,290,98,5,284,106,276,118,27n}4,124,274,126,278,138nii286,107,4,280,116,277,124,277,126,278,130,292,103,6,289,107,283,116,281,122,280,106,280,110,282,11n}6pll299,69,3,299,72,293,87,291,95,292,98,8,292,102,294,110,298,116,310,130,312,134,313,138,311,140,308,141rll300,65,6,3n}01,69,301,71,297,84,297,88,310,112,315,121,294,97,2,295,102,298,107,295,93,2,300,103,307,112tII297,109,2,302,114,308,124,3n }01,109,4,316,134,317,137,316,139,313,141vHH303,60,3,304,64,304,66,301,73,304,59,4,307,63,307,65,304,72,300,78x\\302,58,n!}4,305,57,306,57,307,59,307,60,298,116,5,297,120,294,126,295,131,297,126,301,120z``303,123,4,302,129,297,126,303,122,306,12n"}6,305,132,2,305,137,308,130,238,84,2,232,91,229,97!!*** UPPER TORSO OUTLINE ***G"-@"!,%"3-nG}  B$4AAA@;@, A ? +'0@v$}9AR@<(?$-@A0 $-@A  $(-@Av%} $2b%2A!@@9-@@= _2b$d\ @4(" v&} EVERYTHING GOES IS A GAME FOR\(#FUN LOVING, UNINHIBITED, CONSENTINGfU,($ADULTS, VAUGELY SIMILAR TO A POPULARU($BOAv'}RD GAME. AS IN THAT POPULAR GAME,hW-(%PLAYERS MOVE AROUND THE BOARD, BUYINGW(%PROPERTY, WHILE TRYING DESPERATELY TOjU-v(}(%AVOID OTHER PLAYER'S PROPERTY, A MEANU(#COP, TAXATION OR PERFORMING VARIOUSlT*("PENALTIES ASSOCIATED WITH TAKING A6(v)}CHANCE.@ @ J @ T @0n\(+( BUT UNLIKE THAT GAME, WHERE\(+PLAYERS START OUT WITH A SUBSTANTUAL v*}SUM, p44(+IN EVERYTHING GOES YOU WILL GET ONLY WHAT rSS(#IS NEEDED. YOUR CLOTHES MUSTBE CASH$ED IN TO SUPPLEMENT Yv+}OUR READY CASH t$(ACCOUNT! @ $ @ vY(0(% UP TO FOUR CAN PLAY, TWO FEMALESY($(PUSSYCATS) AND TWO v,}MALES (TOMCATS).xA-(%YOUR CLOTHING IS WORTH THE FOLLOWING:7 @ A @z( PUSSYCATS:(|S+(# SHOES, etc...v-}.................$25S(# STOCKINGS, etc................$50~S+(# GARTERBELT ..................$100S(# BLOUSE ........v.}..............$150S+(# SKIRT .......................$200S(# BRA .........................$3008+(# PANTY ........v/}...............$5005 @ 8(T,($ THERE ARE ONLY NINE ITEMS LISTED.T(#THAT'S ALL YOU'RE ALLOWED, BUT BOTHW+(#Pv0}USSYCATS AND TOMCATS HAVE THE SAMEW(&NUMBER, AND THE SAME VALUE FOR SIMILAR])(!GARMENTS. AT THIS TIME YOU SHOULD](&Dv1}RESS ACCORDINGLY OR COME TO AN AGREE-MENT X#(WITH THE OTHERS ON HOW WHATX(/YOU'RE WEARING CAN BE ACCOUNTED FOR, Rv2}ELATIVE FF(>TO THIS LISTING. PLEASE WRITEIT DOWN! WHEN YOU'RE DOWN TO YOUR``(WPANTY, IT'S NO TIME PUSSYCATS, TO SAY v3}YOU MADE A MISTAKE WAY BACK WHEN THE GARTERBELT I(WAS CALLED FOR!(.-@@8 @ < F @PI(v4}+(" PRESS ONCE EVERYONE AGREES=AR@]@@K:j)@t @(TOMCATv5}S:(S+(# SHOES, etc....................$25S(# SOCKS, etc....................$50S+(# BELT ......................v6}..$100S(# SHIRT .......................$150S+(# PANTS .......................$200S(# UNDERSHIRT ..................v7}$3008+(# UNDERSHORTS .................$5005 @ 8(W+(# THE SAME GOES FOR THE TOMCATS.W(&IF YOU'RE NOT DREv8}SSED ACCORDING TO THE\-(%LIST, THEN DO SO OR COME TO AGREEMENT\()WITH THE OTHER PLAYERS. AGAIN, WRITE IT c (DOWv9}N!( @ $ @ . @PV(" PRESS ONCE EVERYONE AGREESc)@; @.(A FEW HINTS BEFORE v:}WE START.1(; @@V,($ TRY TO KEEP AT LEAST $500 IN YOURV(%READY CASH ACCOUNT. NO SINGLE PENALTYOO(FIS GREATEv;}R THAN THAT. IF YOU'RE FORCEDTO PAY AN AMOUNT FOR ONE REASON V0((OR ANOTHER, AND YOU HAVE INSUFFICIENTV( FUNDS IN Yv<}OUR ACCOUNT, THEN YOU SS(JWILL HAVE AN ADDITIONAL $100 PENALTY ADDED TO THE AMOUNT. THIS MEANS YOU MM(DWILL HAVv=}E TO CASH IN MORE OF YOUR CLOTHING NEEDLESSLY. DON'T LET TT(KIT GET TOO HIGH.A VISIT TO THE TAX OFFICE WILL COST YOU 5v>}0% OF THE VALUE =(IN YOUR ACCOUNT.,-@@6 @ : =(U,($ BUY ALL THE PROPERTY YOU CAN GET.U(v?}$PLAYERS STOPPING ON YOUR SPACES WILLW+(#HAVE TO PAY YOU, THEREBY INCREASINGW(&YOUR ACCOUNT AT THE EXPENSE OF THEIRS,v@}b=(5OR EVEN BETTER YET, AT THE EXPENSE OF THEIR CLOTHING!Q-@@[ @ _ b(U,($ IF YOU ARE FACEDvA} WITH AN OPTIONALU($PENALTY THAT INCREASES YOUR ACCOUNT,R*("TAKE IT! BY THE TIME YOU ENCOUNTERR(#ONE, YOU MAY DAMN WEvB}LL NEED ALL THEP)(!HELP YOU CAN GET. DON'T LET FALSEP("MODESTY GET IN THE WAY. AFTER ALL,r+(#JUST STARTING THIS GAMvC}E HAS ALREADYM(SHOT YOUR REPUTATION TO HELL!a-@@k @ o r(I-(% AND ONE LAST BIT OF ADVICE FORvD} YOU<( PUSSYCATS.F @@I(Z)(! IF FOR SOME ODD REASON, AS THEN( GAME GETS ON AND YOU FEEL YOU'REZ(DOING vE}Y"(REALLY WELL, DON'T GET TOOE(COCKY. REMEMBER, THIS GAME WASY(DESIGNED BY A A(TOMCAT! THE BEST MAY2(BE YETvF} TO COME!!!A% D:EVTHGOS2D:EGINST@;@, A ? +'0@t+@9"?/C G 15mm229,60,16,225,54,218,46,214,44,210,44,200,46,180,55,160,67,134,87,133,89,133,91,14nH}0,111,151,129,160,14544168,154,172,156,176,155,200,70,2,179,80,158,95ff156,88,11,158,95,160,108,162,117,167,129,172,1nI}38,174,140,176,141,180,142,186,143,196,147,203,152[[183,145,2,193,149,200,153,180,147,2,190,151,196,155,175,150,3,180,152nJ},187,155,191,158[[180,152,3,184,158,182,159,176,155,180,142,2,197,141,197,141,159,144,2,146,145,146,145gg134,87,3,125nK},82,118,80,104,80,281,122,3,284,122,287,123,290,125,294,134,3,290,125,290,120,289,108cc171,86,11,170,90,170,92,172,96,174nL},100,180,107,187,110,192,111,199,109,204,106,207,102,210,97hh194,126,11,193,130,193,132,194,136,197,141,202,143,211,143,2nM}20,139,228,134,234,128,238,120,242,114141,116,2,141,117,142,118 A!!*** LOWER TORSO OUTLINE *** #AnN}G"-@"!,%"3-@9"?/C G 9kk105,83,20,96,60,88,40,85,34,82,30,78,2nO}6,74,24,68,22,65,22,60,24,56,28,49,40,40,60,35,80,31,100,28,120''25,136,24,140,22,146,20,149,0,171ff70,60,13,71,65,71nP},68,69,80,61,100,50,120,42,138,41,140,40,154,39,160,38,161,29,168,25,172,19,186GG100,130,7,106,129,110,129,116,130,125,13nQ}3,140,142,160,154,174,163__140,165,11,120,163,100,165,62,168,58,167,54,164,47,162,42,162,38,164,32,169,28,172,25,173UUnR}63,97,10,65,112,67,119,70,126,74,130,74,140,75,143,77,147,82,152,94,162,100,165ii72,116,4,77,118,81,118,86,117,91,114,10nS}2,100,2,104,96,105,92,32,157,2,34,154,35,150,46,168,2,49,167 54,168 AX*** ERASE BIKINI ***Z-@nT}A \  A] @#A^G"-@"!,%"3-@9"?/C nU}G _4`XX184,92,3,185,90,190,88,192,88,195,90,2,196,92,194,96,191,97,3,188,97,186,96,185,94bGG212,142,7,211,140,2nV}11,138,215,136,218,135,220,135,222,136,222,138dS6-A6-@),%@7,&@E,%@S,&@nW}fS6-A6-A9),%@7,&@E,%@S,&@-@A  nX} A @#AW A%-@AP % @5*** BIKINI BRA *** #AnY}G"-@"!,%"3-@9"?/C G 3YY176,82,4,182,82,190,80,202,76,210,72,188,110nZ},5,190,108,192,104,196,92,200,83,210,72hh185,109,11,190,118,194,126,197,129,203,131,210,132,214,132,220,131,228,127,232,1n[}24,237,117,234,108'-@@"#,' 22188,90,187,89,188,92,216,138,217,137,218,138$*** BIn\}KINI PANTY *** #AG"-@"!,%"3-@9"?/C G 5kk106,80,2,107,8n]}8,107,94,107,94,4,114,109,120,120,128,132,134,137,107,95,6,100,108,88,120,80,125,76,126``74,126,71,125,128,132,6,118,129,n^}106,128,94,129,85,131,79,133,74,137,76,130,2,82,128,82,128$*** PUSSY *** #AG"-@"!n_},%"3-@9"?/C G 4hh76,130,2,80,129,84,128,81,127,3,85,124,90,122,95,122,81,129,3,85,130,9n`}2,128,94,126,89,125,2,86,127 90,127%"-@"!,% 60gg86,121,88,121,90,119,91,121,91,130na},92,119,93,117,93,130,94,120,95,117,95,129,96,119,96,125,96,127 ii97,116,97,121,97,123,97,130,98,114,98,118,98,125,98,127,nb}99,115,99,120,99,124,99,129,100,113,100,116"mm100,118,100,127,101,110,101,121,101,123,101,129,102,112,102,114,102,116,102,nc}125,102,127,102,130,103,123$mm103,129,104,115,104,118,104,122,104,127,105,125,105,128,105,130,106,118,106,120,106,123,107,nd}126,107,128&55107,130,108,122,108,124,109,128,109,130,110,129($ D:EGTITLE";@,"AY@lX.C AP4[4CC)4DD)4EEQ(&SLOWLY AND SEDUCTIVELY STRIP AWAY YOUR .[ AP4c()( ***f} YOU'RE NAKED  ***3 Ap= AP8@(V"@)"@cD:CHPCH1D:CHTCH1U,($A PLAYER OF YOUR CHOg}ICE MUST SEDUCT-U($IVELY FORFIT ANY ITEM YOU CHOOSE EX-(CEPT THEIR UNDERWEAR. APr AHm A0 o}>2 THEN J=84064 RETURN 4066 IF J>6 THEN J=24068 RETURN RETURN 4059 GOTO 40584060 IF P=1 OR P=3 THEN GOTO 40664062 IF J; THE CODE LETTERS FOR THE GAR-":? "MENT YOU CHOOSE:":? :? "SHOE ........... (AA) .......... SHOE"5086 ? "STOCKING ....... (BNj}B) .......... SOCK":? "GARTERBELT ..... (CC) .......... BELT"5088 ? "BLOUSE ......... (DD) ......... SHIRT":? "SKIRT .......Nk}... (EE) ......... PANTS"5090 ? :? "IF ";NA$;" DOES NOT HAVE ANY OF THESE":? "ITEMS LEFT, THEN NOTHING NEED BE FOR- FITTED. Nl}JUST HIT ."5092 ? :? "TYPE IN THE PROPER CODE LETTERS";:INPUT A$:GOSUB 250:GOSUB 9005094 ? :? "O.K. ";NA$;", STRIP ITNm} OFF! PRESS":? " ONCE YOU'VE COMPLIED.";:GET #4,A:GOSUB 670:RETURN SUB 250:GOSUB 9005094 ? :? "O.K. ";NA$;", STRIP ITNnJ TRAP 5000:INPUT RYOU'VE COMPLIED.";:GET #4,A:GOSUB 670:RETURN SUB 250:GOSUB 9005094 ? :? "O.K. ";NA$;", STRIP ITLA ! APP$(. APV("PRESS ONCE YOU'VE COMPLIED.c)@m Ap`( (1( FANTASTIC !!!q}I!" Li3!3ITEMS LEFT, THEN NOTHING NEED BE FOR- FITTED. JUST HIT .C(+(TYPE IN THE PROPER CODE LETT|}ERS/9 APC A f(*(O.K. , STRIP IT OFF! PRESSL( ONCE YOU'VE COMPLIED.Y)@c Ap}}f$p A`t" A` v/6-@6.6-% Aa/ A@z"@ A` |/6-@~}6.6-% Aa/ A@" A`@/6-@6.6-% Aa/ A@"@} A`@/6-@6.6-% Aa/ A@ A $J(( PROPERTY OWNED:""J(# HOTEL RITZ} (HT)............$2001 "1(# RESTAURANT CHARLES (RS)....$1001 "1(# THE DOCTOR (DR)............$3001 }"1(# CHERRY'S NIGHTERY (NC).....$2001 "1(# PURPLE PASSION MOTEL (MT)..$3001 "1(# PALACE WHOREHOU}SE (WH).....$5001 "1(# JOE'S GARAGE (GS)..........$2501 "1(# MASSAGE PARLOR (MP)........$300$] } AP(.( *** TALLY ***1(4(S(READY CASH ACCOUNT = $] A`P((( CLOTHING LEFT:% Ab}($8"@ Ab :"@ Ab@<"@ Ab`>"@ Ab@$L"@}( 2 SHOESN"@( SHOEP#"@#( 2 STOCKINGSR "@ ( STOCKINGT""@}"( GARTERBELTV"@( BLOUSEX"@( SKIRTZ"@( BRA\"@( } PANTY^aK******W6-@a Ae_$`"@}( 2 SHOESb"@( SHOEd"@( 2 SOCKSf"@( SOCKh"@(} BELTj"@( SHIRTl"@( PANTSn""@"( UNDERSHIRTp#"@#( U}NDERSHORTSraK******W6-@a Aes$t"@}( 2 SHOESv"@( SHOEx#"@#( 2 STOCKINGSz "@ ( STOCKING|""@}"( GARTERBELT~"@( BLOUSE"@( SKIRT"@( BRA"@}( PANTYaK******W6-@a Ae$"}@( 2 SHOES"@( SHOE"@( 2 SOCKS"@( SOCK"@}( BELT"@( SHIRT"@( PANTS""@"( UNDERSHIRT#"@#( } UNDERSHORTSaK******W6-@a Ae$d7*(} NOTHING!! YOU'RE NAKED !4 A`7$ D:EVTHGOS2TYTXPYPXTYTNNPTPTOADHRNDMWGAPBPCPDBWgMNQ8AY'@e5% D:EGTITLE8D:LOADER u TRAP 4000:INPUT R6 IF J>6 THEN J=24068 RETURN RETURN 4059 GOTO 40584060 IF P=1 OR P=3 THEN GOTO 40664062 IF J TRAP 4000:INPUT RSUB 6704028 ? "FANTASTIC ";NA$;"!!! YOUR READY CASH":? "ACCOUNT NOW IS $";AC;",":GOSUB 230:GOTO \