COMPNOP BY DENNIS IRVINE["": SQ$(40),BT$(100),AS(50),NB$(40),PB$(40),CR$(16)q53280,0:53281,0 A$(20):5530:4360(I039:SQ$(I)"N0":I: SETUP EACH BOX'S STATUS2: : BOXES INCLUDED IN FULL SYSTEM3 <SM$(1)"0103":SM$(2)"060809":SM$(3)"111314":SM$(4)"161819"u FSM$(5)"212324":SM$(6)"262729":SM$(7)"313234":SM$(8)"3739" PSM$(9)"051215252835" Z: : MARKET TREND CARDS dMT$(1)" PRICE WAR. YOU LOSE $100 " nMT$(2)" GOOD SALES. PROFIT $200 "3 xMT$(3)"RECEIVABLES PAY.YOU GET $200 "^ MT$(4)" BAD DEBTS UP. LOSE $100 " MT$(5)" NEW FCC RULES COST $100 " MT$(6)" A LARGE ORDER. PROFIT $200 " MT$(7)"STOCK MKT FAVORABLE.GAIN $200" MT$(8)"TECHNOLOGY BEHIND.BACK 3 SPAC"& : : LUCK CARDSQ LL$(1)" BAD LUCK..YOU LOSE $100 "| LL$(2)" NO LUCK ..YOU GAIN 0 " LL$(3)" GOOD LUCK..YOU GAIN $100 " LL$(4)" BAD LUCK..YOU LOSE $100 " LL$(5)" NO LUCK ..YOU GAIN 0 "( LL$(6)" GOOD LUCK..YOU GAIN $100 ". :O  ESTABLISH COMMON VARIABLESU :` P14 "FC(P)SPPTP: BOX 10 POSITIONS FOR GOING DIRECTLY TO FCC ,MP(P)500: GIVE EACH PLAYER $500 6BO$(P)"": BO$ STORES BOXES OWNED BY EACH PLAYERN @BK(P)0: BANKRUPTCY FLAG 1=BANKRUPTU JP TI039:NB$(I),PB$(I):I: NAME & PRICE OF BOX ^R$"" hI180:C$C$"":I r: |"DO YOU WISH INSTRUCTIONS - Y/N 1210 A$"Y"47702"ARE YOU READY TO PLAY? (Y/N)"<1210LA$"N"380a4510:"":1310g: SETS CURSOR POSITIONCCAD:C0C0(R$,R)(C$,C);:: SOUND ROUTINESSD0540: IS IT A 64 59467,16: 59466,15:JS1S1501(59464,J:J:59467,0:4J110q&SD24,15:SD1,20:SD5,4160:SD6,15160:SD4,1160SD4,16:J::SD0590: IS IT A 64D59467,16:59466,15:59464,140:J120::59467,0:N XSD24,15:SD1,200:SD5,4160:SD6,15160:SD4,116;bSD4,16:J1100:J:Al:Xv NAME OF BOX DATA GO,0,MONO MONITOR ,60,MARKET TRENDS ,0,RGB MONITOR ,60 INC TAX,0,GAMES SOFTWARE ,200,DOT MTX PRINTER,100,LUCK,0 DAISYWHL PRINTER,100,INK JET PRINTER,120,FCC PROBLEMS,0\ XDOS ,140,EDUCATOL SFTWRE,200,CPM ,140 UNIX ,160,COMM'NS SFTWRE ,200,BASIC ,180,MRKT TRENDS,0 LOGO ,180,PASCAL ,200,BUSINESS OFFICE,0 32K RAM ,200,LUCK,0,64K RAM ,220L 128K RAM ,240,WRDPRING SFTWRE,200z FULLSTROKE KYBD,260,RUBBER KEYBOARD,260 DATBASE SFTWARE,200,MEMBRANE KYBRD ,280 FCC REPORT,0,TAPE STORAGE ,300,FLOPPY DISK ,300,MARKET TRENDS,0; HARD DISK ,320,SPREDSHT SFTWRE,200,LUCK,0,Z80 CPU ,350c RECALL COST,0,6502 CPU ,400i:  DRAW PLAYING FIELD53265,11:"":CR$(9); TB)" *I1174TB)"  >ILHTB)" [RCR$(16):a\:uf DRAW INTERIORp53265,11:"":CR$(16);zTB1)" "TB1)"GO FCC")TB1)"-> "[TB1)" "TB1)""TB1)"  "TB1)"  MKT TREND ")TB1)"  "[TB1)" "TB1)"  "TB1)"  LUCK "TB1)"  ")TB1)" "[TB1)""TB1)"FCC BUS"TB1)"RPT OFF"TB1)" ": 53265,277$C20:R21:460:" "w.C20:R21:460:"1 $"MP(1)" 2 $"MP(2)" 3 $"MP(3)" 4 $"MP(4)}8B:L CLR LINEVC2:R23:460`" "j"":t:~ GET A CHARACTER)A$:A$""1160RBF$:BF$""1170: CLEARS BUFFERRX^: GET A 'Y' OR 'N' CHARACTERA$:A$"Y"A$"N"1210BF$:BF$""1220: PUT PLAYERS ON FIELDP0I411:SP(IWD),53I:PP1:PP(P)SP(IWD):I;BX0:I14:IP(I)PP(I):I:A :T MAIN ROUTINE780:870:1260: DRAW BOARD + PLACE PLAYERS AT START(P14:LTPLT0:1510: LOSE TURN CHECK2BK(P)11510: BANKRUPT CHECK<1110: CLEARS LINEF1590: PRINT PLAYER #-P2090: ROLL DICE:ZBXBX(P)NdI1DT:BXBX1on1610: MOVE PLAYER FORWARDxI:BX(P)BX: STORE BOX NUMBERC40:R23:460:CR$(6)"PUSH"CR$(2)" C "CR$(6)"TO CONTINUE"CR$(16);:1150: GET A CHARACTERA$"C"1420""=2320: JUMP TO INDIV SQUARE RTNEY780:870: DRAW BOARDdI14CC48I:BK(I)1CCCC128: IF PLAYER BK THEN PRINT IN REVERSEPP(I),CC : POKE PLAYERS INTO POSITIONIP1C21:R23:460:"DO YOU WANT TO CONTINUE? (Y/N) ";1150LA$"Y"1320^A$"N"1530j3720:p":, PRINT PLAYER # AND ASSIGN POKE CHARACTER6C21:R23:460:NM$(P)" #"P:2000:@:J MOVE FORWARDTCR32^BX11BX21CR69hBX20BX32P1CR693rBX30BX41CR69A|PP(P),CRqBX10PP(P)(PP(P)1)((WD1)(P1)):1740BX20PP(P)(PP(P)1)((WDP)P):1750BX30PP(P)PP(P)((WD(P1))P1):1750BX10BX21PP(P)PP(P)WD:1750BX20BX31PP(P)PP(P)3:1750<BX30BX40PP(P)PP(P)WD:1750dBX39BX0:PP(P)IP(P):1770:1750vPP(P)PP(P)3PP(P),CC:570:: $200 FOR PASSING GOC20:R23:460:"PAST GO!COLLECT $200"MP(P)MP(P)200:1060: : & MOVE BACKWARD. 0CR32:BX0BX39D :BX9BX19CR69_ DBX20BX32P1CR69v NBX28BX39CR69 XPP(P),CR:BX39PP(P)PP(P)((WDP)P1):1980 bBX9P1PP(P)PP(P)((WD(P1))P1):1970!lBX19PP(P)PP(P)((WDP)P):19805!vBX29P1PP(P)PP(P)((WD(P1))P1):1980X!BX29P1PP(P)PP(P)2:1980}!BX9BX20PP(P)PP(P)WD:1980!BX19BX30PP(P)PP(P)3:1980!BX29BX40PP(P)PP(P)WD:1980!BX0PP(P)IP(P):1980!PP(P)PP(P)3 "PP(P),CC:570:":," ASSIGN POKE CHARATER;"P1CC49J"P2CC50Y"P3CC51h"P4CC52u"BXBX(P){" ":"  DRAW DICE AND ROLL"*E$"""4 I1 39:E$E$" ":I:DT0">L$""#HA$(0)""%#RA$(1)"   "H#\A$(2)"   ѝ"k#fA$(3)"   ѝ"#pA$(4)" ѝ  ѝ"#zA$(5)" ѝ  ѝ"#A$(6)"ѝ ѝ"#B$"ݝݝݝ"$B$B$"ݝݝݝ":ST$""B$X$"": I1 6:X$X$" ":R$X$(X$,52)w$D$"ϣН̝"$ L$;$ F1 2:TB7) B$;"";:$ K1 2:H(K)(6(1)1):DTDTH(K):$TB7) L$;"";: K1 2% KL TB8) A$(0);@%CR$(5)TB8)A$(H(K));"";::S155:510F%L% :v% START OF INDIVIDUAL SQUARE ROUTINES% "":780:53265,27:C22:R4:460% "BOX ";BX:C30:460%$ ""NB$(BX)""%. C20:R23:460:"PLAYER"P"HAS $"MP(P)#&8 BX0R7:C25:460:"KEEP ON TRUCKIN":2490`&B BX2BX17BX332750:2490: JMP TO MKT TREND RTNE&L BX43410:2490: JMP TO INC TAX RTNE&V BX103060:2490: LOSE TURN RTNE'` BX203280:2490: JMP TO OFFICE RTNEE'j BX7BX22BX363100:2490: JMP TO LUCK RTNE~'t BX303320:2490: JMP TO FILE REPT ROUTINE'~ BX383450:2490: JMP TO RECALL RTNE' (SQ$(BX),1)"O"2550:2490: JMP TO BX OWNED RTNE( C22:R15:460:"PRICE $",PB$(BX)B( C22:R16:460:"DO YOU WISH TO BUY? (Y/N)"|( 1150:A$"Y"3630:2490:IF="Y"THEN JMP TO BUY RTNE( A$"N"2470( BW1BW0:2330( 1110:C21:460( "YOU HAVE $";MP(P)CR$(6)" PUSH"CR$(2)" C "CR$(6)"TO CONTINUE" ) CR$(16);:1150:A$"C"2520+) "":1) :I) BOX OWNED ROUTINE) C22:R7:460:O((SQ$(BX),1)) : O IS OWNER OF BOX) OP"YOU ALREADY OWN THIS":) "THIS IS OWNED BY "O:F1:(BO$(O))42690* BX5BX12BX15BX25BX28BX35WS9:2620K*( WS(BX5) : F IS RENT FACTOR..WS SPECIFIES THE SYSTEMi*2 (BX5(BX5))0WSWS1*< SS(SM$(WS))2: HOW MANY BOXES IN THE SYSTEM*F I1SS:SA$(I)(SM$(WS),(I2)1,2):I*P I1SS:(SA$(I))BX2680+Z J2(BO$(O))2"+d SA$(I)(BO$(O),J1,2)FF1)+n J0+x It+ RT(((PB$(BX))2))F: RENT IS 1/2 OF PRICE TIMES A FACTOR+ C25:R9:460:"YOU MUST PAY RENT OF $";RT+ MP(P)MP(P)RT:MP(P)03990+ MP(O)MP(O)RT+ + :+ MRKT TREND SUBRTNE, CR$(8):I13:R7:C24:460^, Z15:" ":RR1:C24:460:Zn, S1200:510, R7:C24:460, Z15:" ":RR1:C24:460:Z, 510, I, R7:C24:460- " ":RR1:C24:460P-" " ":RR1:C24:460k-, X(0)9:X1X82860-6 ""MT$(X)"":RR1:C24:460:570-@ " ":RR1:C24:460 .J " ":RR1:C24:460:S1100:510;.T X2930,2970,2970,2930,2930,2970,2970,3010J.^ CR$(16):P.h :].r LOSSES.| MP(P)MP(P)100:MP(P)03990. . :. PROFITS. MP(P)MP(P)200:. :. MOVEBACK 3 SPACES. "":790:880:PP(P),CC/ X13:BXBX1:1840:X:2500:BX(P)BX:BW1:%/ :+/ :C/ BOX 10 LOSES TURN/ C22:R10:460:CR$(3)"YOU LOSE YOUR NEXT TURN...SORRY!!!!"/ ""CR$(16):LTP:/ :/ LUCK ROUTINE/ CR$(8):I13:R7:C24:4600& Z15:" ":RR1:C24:460:Z&00 S1200:51080: R7:C24:460x0D Z15:" ":RR1:C24:460:Z0N 5100X I0b R7:C24:460:0l " ":RR1:C24:460 1v " ":RR1:C24:460'1 X((0)9):X1X63200N1 ""LL$(X)"":RR1:C24:460:5701 " ":RR1:C24:4601 " ":RR1:C24:460:S1100:5101 X1X4MP(P)MP(P)1001 MP(P)039902 X3X6MP(P)MP(P)100*2 S155:CR$(16):02 :E2 OFFICE ROUTINEx2 C25:R11:460:"PLAN YOUR STRATEGY FROM HERE"~2 2 :2 FILE FCC REPORT ROUTINE2 C22:R7:460:"CUSTOMERS COMPLAIN AND YOU MUST"3 C22:R8:460:"FILE SPECIAL FCC REPORT."63 C22:R10:460:"GO DIRECTLY TO FCC OFFICE."z3* C22:R11:460:CR$(8)"DO NOT PASS GO. DO NOT COLLECT $200"34 PP(P)FC(P):BX(P)10:CR$(16):3> :3H INC TAX RTNE3R C25:R7:460:CR$(8)"UNCLE SAM GETS INTO YOUR POCKET"4\ C25:R8:460:"FOR A BIG 15%"CR$(16)94f MP(P)MP(P)(MP(P).15)?4p E4z :Z4 RECALL ROUTINE4 C22:R7:460:"YOUR PRODUCTS HAVE BEEN FOUND"4 C22:R8:460:"DEFECTIVE.IF YOU OWN ANY PRODUCTS"4 C22:R9:460:"YOU MUST PAY EACH PLAYER $10 FOR"*5 C22:R10:460:"EACH PRODUCT YOU OWN, AS "]5 C22:R11:460:"REIMBURSMENT FOR REPAIR WORK"5 (BO$(P))0R13:C22:460:"YOU DON'T OWN ANYTHING..LUCKY"5 (BO$(P))036105 BO((BO$(P))2):R13:C22:460:"YOU OWN "BO" PRODUCTS".6 C22:R14:460:"FOR A COST OF $";BO10"TO EACH PLAYER";6 BOBO10P6 I14:IP3600b6 BK(I)136006MP(I)MP(I)BO:MP(P)MP(P)BO:MP(P)039906I66$:6. PURCHASE BOX ROUTINE68C22:R7:460 7BMP(P)(PB$(BX))"YOU DON'T HAVE ENOUGH MONEY!":&7LMP(P)MP(P)(PB$(BX));7VSQ$(BX)"O"(P)i7`BX10BO$(P)BO$(P)"0"((BX),1):37007jBO$(P)BO$(P)((BX),2)7tCR$(8)"OK...YOU NOW OWN THIS"CR$(16)7~7:7 SHOW FINAL STATUS AND WINNER8"":P14:NU0:AS0:TV(P)08(BO$(P))23770W83920: DETERMINE VALUE OF PROPERTY8TV(P)ASMP(P): TV MEANS 'TOTAL VALUE'8NM$(P)" #"P" HAS CASH $"MP(P)" AND "NU" UNITS."8"WORTH $"AS8"FOR A TOTAL VALUE OF $"TV(P)9P1WP:3830%9TV(P)TV(W)WP+929PT9 TE$" AND ": I14:WI3870}9TV(W)TV(I) TE$TE$NM$(I)" AND "9I::TE$" AND ""TIE BETWEEN "NM$(W);TE$:9(" " NM$(W)" IS THE WINNER  ":2"THANKS FOR PLAYING....BYE NOW."::<:>:F DETERMINE VALUE OF PROPERTYQ:PNU(BO$(P))2]:ZI1NU|:dBT$(I)(BO$(P),(I2)1,2):nAS(I)(PB$((BT$(I)))):xI: I1NU:ASASAS(I):I:::: BANKRUPTCY ROUTINE:AS0:NU0:TV(P)0';(BO$(P))24050: DOES HE OWN PROPERTYd; 3920:TV(P)AS: DETERMINE VAL OF PROPERTY;TV(P)(1MP(P))4080: : IS THERE VALUE TO COVER DEBT;X1NU:SQ$((BT$(X)))"N0":X:BO$(P)"": NO-RESTORE ALL BOXES<1110:C21:R23:460:"YOU ARE BANKRUPT"0<BK(P)1:T11000:T:6<:W< ASK WHICH PROPERTY TO SELLg<T1500:T<""CR$(8):"YOU MUST SELL TO PAY YOUR BILLS!"CR$(16)<:"YOU CURRENTLY OWN"NU"ITEMS AS FOLLOWS:"<" # BOX# NAME $ VALUE": ="I1NU4=,I3)BT$(I)3)NB$((BT$(I)))5)AS(I);=6Ix=@"-----------------------------------":"TOTAL VALUE "AS=J:"YOU OWE $"MP(P):"WHICH ITEM # DO YOU WANT TO SELL"=T"(ENTER 1 TO"I1")"=^A$:A$""4190=hX(A$)>rX1XI14190>|"OK....#"X2>(BO$(P))4BO$(P)"":4270B>J1NU22b>BT$(X)(BO$(P),J,2)4340i>J>SQ$((BT$(X)))"N0": UPDATE STATUS OF BOX>MP(P)MP(P)AS(X)>MP(P)0"YOU NOW OWE $"MP(P)" .MUST SELL MORE UNITS":4110>'?: : REMOVE CHOSEN UNIT FROM BOXES OWNEDN?J1BO$(P)(BO$(P),(BO$(P)2):?J(BO$(P))1BO$(P)(BO$(P),(BO$(P))2):?BO$(P)(BO$(P),1,J1)(BO$(P),J2,(BO$(P))(J1))??:? DRAW HEADING?"":CR$(6);@&TB2)"     "J@0TB2)"         "{@:TB2)"        "@DTB2)"       "@N@XTB5)"   "@bTB5)"       "AlTB5)"      "?AvTB5)"     \A{" COMPUTER MONOPLYkACR$(16):qA:A ENTER PLAYERS NAMESA"HOW MANY PLAYERS ARE THERE? (1-4)"A1160:X(A$)AX1X44520B"YOU SAY "X" PLAYER/S....CORRECT? (Y/N)"B1210:A$"N"4510-BX1 4590LB"WHAT'S YOUR NAME?":4730gBI14:NM$(I)NM$:I:uBX24630B"ONE OF YOU WILL TAKE THE ODD # PLAYERS. ONE WILL BE THE EVEN #'S"B"ENTER ODD PLAYER'S NAME":4730:NM$(1)NM$:NM$(3)NM$9C "ENTER EVEN PLAYER'S NAME":4730:NM$(2)NM$:NM$(4)NM$:GCX34690C "ENTER NAMES FOR PLAYERS 1-3. # 4 WILL BE BANKRUPT AT THE START"C*I13C4"ENTER NAME OF PLAYER"IC>4730:NM$(I)NM$:I:BK(4)1:CH:CRI14D\"ENTER NAME OF PLAYER"I Df4730:NM$(I)NM$:I&Dp>Dz"NAME->";NM$bDNM$,"IS YOUR NAME....CORRECT?"yD1210:A$"N"4730DD:D INSTRUCTIONSD"":I19:A$(I):A$(I):DA$(I)"***"A$(10)A$(I):I9DIE" PUSH 'C' TO CONTINUE WITH INSTRUCTIONS.";IE" PUSH 'G' TO RETURN TO GAME ";]EA$:A$""4840xEA$"C" A$"G"4840EA$"G" EA$(10)"***" E4790E THIS IS A GAME VERY SIMILAR TO MONOPOLYE$ DICE ARE ROLLED AND YOU MOVE AROUND(F. A BOARD THE NUMBER OF SPACES ROLLEDPF8 YOU THEN HAVE A CHANCE TO BUY THE}FB SPACE YOU LAND ON IF IT ISN'T OWNED BYFL SOMEONE ALREADY. THE DIFFERENCEFV IS YOU ARE NOT BUYING PROPERTY AS INF` MONOPOLY BUT YOU ARE INSTEAD BUYING#Gj COMPUTER COMPONENTS I.E. KEYBOARDSKGt MONITORS CPU'S ETC. THERE ARE 4wG~ PLAYERS PLACED ON THE BOARD. IF THEREG ARE ONLY TWO PEOPLE YOU DIVIDE THEG PLAYERS UP. TWO TO EACH OF YOU. IFG THERE IS ONLY ONE PERSON YOU CANH PLAY ALL FOUR PLAYERS.;H IN COMPNOP ALL THE PLAYERS START WITHcH $500. AS YOU BUY ITEMS YOU GAIN AH CHANCE TO GET RENT FROM THE OTHERSH IF THE OTHERS LAND ON A SPACE YOU OWNH THEY PAY YOU RENT. IF YOU LAND ON A I SPACE OWNED BY SOMEONE ELSE YOU PAY4I THEM RENT. THE SPACES ARE DIVIDEDZI INTO GROUPS 1) MONITORS 2)CPU'SI 3) SOFTWARE 4)DOS VERSIONS 5) KEY-I  BOARDS 6) STORAGE DEVICES 7) LANGUAGESI IF YOU BUY ALL OF ONE GROUP YOUI RECEIVE MORE RENT THAN NORMAL.!J( YOU'LL HAVE TO FIGURE OUT FROMEJ2 EXPERIENCE WHERE ON THE BOARDmJ< THE VARIOUS COMPONENTS LIE. THATSJF ALSO PART OF THE GAME. REMEMBERINGJP WHERE DIFFERENT COMPONENTS ARE ONJZ THE BOARD. LIKE CONCENTRATION. Kd IF YOU RUN OUT OF MONEY YOU CAN,Kn SELL COMPONENTS TO GET MONEYSKx TO PAY YOUR BILLS. IF YOU DO NOTyK HAVE ENOUGH MONEY OR COMPONENTSK TO COVER YOUR DEBTS...YOU AREK BANKRUPT. THE WINNER IS THE ONE WHOK CAN BANKRUPT THE OTHER PLAYERS ORL WHO HAS THE MOST VALUE IN BOTH@L MONEY AND COMPONENTS WHEN YOU CHOOSEiL TO STOP THE GAME. EACH PLAYER GETSL A TURN. WHEN ALL FOUR HAVE MOVEDL YOU ARE ASKED IF YOU WANT TOL CONTINUE. THIS GIVES YOU THE CHANCEM TO STOP THE GAME AT ANY POINT. IF.M YOU DO STOP EARLY (BEFORE ALL BUTYM ONE PLAYER IS BANKRUPT) THE COMPUTERM WILL CALCULATE THE TOTAL VALUE OF THEM ASSETS OF EACH PLAYER AND DECLAREM THE WINNER. THE COMPUTER IS THEM" BANKER'. IT KEEPS TRACK OF ALL N, COMPONENTS PURCHASED AND SOLD ANDFN6 HOW MUCH MONEY EACH PLAYER HAS.lN@ THE AMOUNT OF MONEY EACH PLAYERNJ HAS IS DISPLAYED CONSTANTLY.NT BUT THE COMPONENTS OWNED IS ONLYN^ DISPLAYED AT THE END OF THE GAMEOh OR IF A PLAYER NEEDS TO SELL'Or UNITS TO COVER DEBTS. HAVE FUN.1O| ***7O:lO DETERMINE WHICH COMPUTER AND SET PROPER VALUESOX(50003):50003,0:Y(50003)OY0 59468,12OSP32812:WD40:TB0:AD20:PT188:SD0:I116:CR$(I)"":OY05600:P"":32768,96:(327681024)96WD80MPWD80TB20:SP32872:AD0:PT348:(142)SP{P53272,21:SP1068:SD54272:50003,XPCR$(1)(144): BLACKPCR$(2)(5): WHITEPCR$(3)(28): REDPCR$(4)(159): CYNPCR$(5)(156): PUR QCR$(6)(30): GRN"Q&CR$(7)(31): BLU:Q0CR$(8)(158): YELRQ:CR$(9)(129): ORGkQDCR$(10)(149): BRNQNCR$(11)(150): LT REDQXCR$(12)(151): GREY 1QbCR$(13)(152): GREY 2QlCR$(14)(153): LT GRNQvCR$(15)(154): LT BLURCR$(16)(155): GREY 3+RI124:SDI,0::