Directory of image this file is from
This file as a plain text file
1" 51 END 1 REM MONOPOLY GAME BY DAVID BARKER, SOUTHEASTERN STATE COLLEGE, DURANT, OK 2 REM SLIGHT PROGRAM MODIFICATIONS BY DAVID AHL, DIGITAL 3 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 4 M(1)=1500\M(2)=1500\I(1)=0\I(2)=0\DIM A$(26,21),B$(26,21),H(40) 5DIMO$(19),G$(40,21),L(40),P(40),R(40),C$(10,39),Z$(10,38),M$(20,60) 6 P$="HOW MANY HOUSES AT $"\O$=" EACH DO YOU WANT ON" 7 DEF FNR(H,I,Z,R)=(H(I(Z))*R(I(Z))*10) 8 FOR I=1 TO 40\L(I)=0\H(I)=0\NEXT I 9 FOR I=1 TO 8\U(I)=0\NEXT I 10 FILE #1:"RKB0:MONPLY.B1" 11 FOR I=1 TO 40\INPUT #1:G$(I)\NEXT I 12 FOR I=1 TO 20\INPUT #1:M$(I)\NEXT I 13 FOR I=1 TO 10\INPUT #1:C$(I)\NEXT I 14 FOR I=1 TO 10\INPUT #1:Z$(I)\NEXT I 15 PRINT M$(1)\PRINT\PRINT\PRINT"**RULES**"\PRINT M$(2) 16 PRINT M$(3)\PRINT M$(4)\PRINT M$(5)\CLOSE #1 17 FOR I=1 TO 40\READ P(I),R(I)\NEXT I 18 DATA 60,2,0,0,60,4,0,0,200,25,100,6,0,0,100,6,120,8,0,0 19 DATA 140,10,150,35,140,10,160,12,200,25,180,14,0,0 20 DATA 180,14,200,16,0,0,220,18,0,0,220,18,240,20,200,25 21 DATA 260,22,260,22,150,35,280,24,0,0,300,26,300,26,0,0 22 DATA 320,28,200,25,0,0,350,35,0,0,400,50,0,0 23 RESTORE 24 DIM V$(21) 25 DIM P$(20) 26 DIM N$(2,8) 30 PRINT"WHO IS PLAYER #1";\INPUT N$(1) 40 PRINT"WHO IS PLAYER #2";\INPUT N$(2) 100 PRINT\PRINT "**";N$(1);"'S TURN**********"\F=0 102 Z=1\GOSUB 1000 103 GOSUB 2000 115 IF D<>D1 GOTO 117\F=F+1\IF F=>3 GOTO 117\PRINTM$(9)\GOTO 102 117 IF F<>3 GOTO 200\PRINT M$(10)\I(Z)=10\M(Z)=M(Z)-50 200 PRINT\PRINT"**";N$(2);"'S TURN**********"\F=0 202 Z=2\GOSUB 1000 203 GOSUB 2000 215 IF D<>D1 GOTO 217\F=F+1\IF F>=3 GOTO 217\PRINTM$(9)\GOTO202 217 IF F<>3GOTO225\PRINT M$(10)\I(Z)=10\M(Z)=M(Z)-50 225 PRINT M$(11);\INPUT F$\IF F$="QUIT" THEN 30000\GOTO 100 999 REM DICE ROLL 1000 PRINT M$(6);\INPUT F$\RANDOMIZE\X=RND(0)\Y=RND(0) 1004 D=INT(X*6+1)\D1=INT(Y*6+1) 1015 PRINT "YOU ROLLED A";D;"AND A";D1\I(Z)=I(Z)+(D+D1) 1016 IF I(Z)=<40GOTO1017\I(Z)=I(Z)-40\M(Z)=M(Z)+200 1017 RETURN 1999 REM PLACEMENT 2000 PRINT"YOU ARE ON ";G$(I(Z)) 2001 REM COM CHEST 2002 IF I(Z)=2 THEN 4100\IFI(Z)=17THEN4100\IFI(Z)=33THEN4100 2003 REM INC TAX 2004 IFI(Z)<>4THEN2006\M(Z)=M(Z)-200\RETURN 2005 REM CHANCE 2006 IFI(Z)=7THEN4400\IFI(Z)=22THEN4400\IFI(Z)=36THEN4400 2007 REM VISIT IN JAIL OR FREE PARKING 2008 IFI(Z)=10THEN2014\IFI(Z)=20THEN2014 2009 REM JAIL 2010 IFI(Z)<>30THEN2011\M(Z)=M(Z)-50\I(Z)=10\RETURN 2011 IFI(Z)<>38THEN2012\M(Z)=M(Z)-75\RETURN\REM LUX TAX 2012 IFI(Z)<>40THEN2018\M(Z)=M(Z)+200\I(Z)=0\RETURN\REM GO 2014 RETURN 2018 IFL(I(Z))<>Z THEN 2019\PRINT M$(12)\GOTO 3100 2019 IFH(I(Z))<>0GOTO2020\IFL(I(Z))=<0GOTO2020\IFL(I(Z))<>ZTHEN2125 2020 IFH(I(Z))=<0GOTO2022\IFL(I(Z))=<0GOTO2022\IFL(I(Z))<>ZTHEN2100 2022 PRINT M$(7);P(I(Z));"DOLLARS" 2024 PRINT M$(8);\INPUT F$\ IF F$<>"BUY" THEN 3100 2026 M(Z)=M(Z)-P(I(Z))\PRINT "YOU NOW HAVE";M(Z);"DOLLARS" 2027 L(I(Z))=Z\GOTO 3100 2100 IF Z<>1 THEN 2101\M(Z)=M(Z)-FNR(H,I,Z,R)\M(2)=M(2)+FNR(H,I,Z,R) 2101 PRINT "YOU OWE";FNR(H,I,Z,R);"DOLLARS RENT"\RETURN 2102 IF Z<>2 THEN 2103\M(Z)=M(Z)-FNR(H,I,Z,R)\M(1)=M(1)+FNR(H,I,Z,R) 2103 PRINT "YOU OWE";FNR(H,I,Z,R);"DOLLARS RENT"\RETURN 2125 IFZ<>1 THEN 2126\M(Z)=M(Z)-R(I(Z))\M(2)=M(2)+R(I(Z)) 2126 PRINT "YOU OWE";R(I(Z));"DOLLARS RENT"\RETURN 2127 IF Z<>2 THEN 2128\M(Z)=M(Z)-R(I(Z))\M(1)=M(1)+R(I(Z)) 2128 PRINT "YOU OWE";R(I(Z));"DOLLARS RENT"\RETURN 3100 PRINT M$(13)\PRINTM$(14);\INPUTF$\IFF$="SELL"THEN3102 3101 GOTO 3105 3102 GOSUB 3150 310