Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf » G/OMN

G/OMN

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf
Filename: G/OMN
Read OK:
File size: 3EFB bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 5 duplicate copies of this file in the archive:

File contents
   10REM OMNIPOLY
   20IFPAGE<>&E00 THEN COLOUR0:PROCloc
   30REM
   40REM (c) Copyright Richard Smith
   50REM Aug 31 1983
   60REM
   70ONERRORGOTO1360
   80DIMN%(8),A$(30),NAM$(9),LO%(40),N$(2),OPOS(2),NPOS(2),MO(2),IJ(2),GJ(2),PR(4),PR2(3),PR$(3),P$(5),H(3),CH%(52,1),CHP(1),JC(1):NJ=1:DO=0:FORI%=0TO4:P$(I%)=STR$I%:NEXT:P$(5)="H":A$=STRING$(100," "):B$=A$:N$=A$:*FX4,1
   90A=RND(-TIME):FORI%=1TOTIME MOD10:A=RND(1):NEXT:LE$="ABCDEFGHIJKLMNOPRSTUVWXYZ`346789":OK$=LE$+" Q1250"
  100FORK%=0TO1:FORI%=1TO26
  110  J%=RND(26)*2-1:IFCH%(J%,K%)=0CH%(J%,K%)=I%ELSEGOTO110
  120  NEXT:CH%(RND(26)*2,K%)=1:NEXT
  130MODE5:VDU19,1,2;0;19,2,6;0;29,640;512;23;8202;0;0;0;5:COLOUR129:COLOUR0:RESTORE3270:FORI%=0TO9:READNAM$(I%):NEXT:PROCBOARD:Y%=RND(2):A$=N$(Y%)+" STARTS":Y=320:PROCTEXT
  140ONERRORGOTO1280
  150PROCWAIT
  160X%=Y%:Z%=OPOS(X%):MO(X%)=INTMO(X%):PROCAT(Z%):PROCMONEY:PROCWARN:RESTORE3610:FORI%=1TO8:READA$:MOVE-336,-32*(I%+1):A$=STR$I%+" "+A$:PROCPRINT(A$):NEXT:MOVE-160,-320:PROCPRINT("ENTER CHOICE")
  170PROCWAIT:B=VALA$:IFB<1ORB>8THEN170
  180ONB GOTO190,440,450,480,510,580,770,850
  190IFSGNMO(X%)=-1THEN860
  200IFZ%=41THEN900ELSEIJ(X%)=0
  210D1=RND(6):D2=RND(6):IFD1<>D2 Y%=3-X%:DO=0:GOTO230
  220Y%=X%:DO=DO+1
  230PROCROLL
  240PROCWAIT
  250NPOS(X%)=Z%:PROCNPOS
  260IFA<>18ANDA<>11PROCMONEY
  270IFA=17Z%=41:GOTO240ELSEIFA<>18ANDA<>11PROCMONEY
  280IFA=10PROCCOMCHEST:GOTO880
  290IFA=12PROCCHANCE:GOTO880
  300ONERRORGOTO1280
  310IFA=9ORA=15ORA=16ORA=19THEN150
  320IFA=11MO(X%)=MO(X%)-200:PROCMONEY:GOTO150
  330IFA=18MO(X%)=MO(X%)-100:PROCMONEY:GOTO150
  340PROCGETDA(Z%):READD,A$,A
  350IFN%THEN380
  360MOVE-336,-96:PROCPRINT("DO YOU WANT TO BUY IT"):PROCGET:IFA$="N"THEN160
  370MO(X%)=MO(X%)-A:LO%(Z%)=LO%(Z%)OR16*X%:PROCTITLEDEED(Z%):GOTO150
  380IFLO%(Z%)AND16*X%ORLO%(Z%)AND64THEN150
  390MOVE-64,-96:PROCPRINT("RENT")
  400IFD=13PROCUTRENT:GOTO430ELSEIFD=14PROCSTNRENT:GOTO430
  410FORI%=0TOK%:READA:NEXT
  420IFK%=0PROCALL(D):IFB A=A*2
  430A$="`"+STR$A:Y=-160:PROCTEXT:MO(3-X%)=MO(3-X%)+A:MO(X%)=MO(X%)-A:GOTO150
  440PROCHIGH:GOTO160
  450PROCASK:FORA%=1TO40:PROCGETDA(A%):READA:IFW=0THEN460ELSEIFA<>W THEN470
  460  IFLO%(A%)AND(X%*16)PROCPROP(A%,1):IFA$="T"PROCTITLEDEED(A%):PROCWAIT
  470  NEXT:GOTO160
  480PROCASK:FORI%=1TO40:PROCGETDA(I%):READA:IFA>8ANDA<>13ANDA<>14THEN500
  490  IFW=0ORW=A PROCPROP(I%,0)
  500  NEXT:GOTO160
  510PROCCLS:PROCGETPROP:PROCCLS:PROCCHECK1:IFER THEN150
  520PROCCHECK3:IF ER THEN 150
  530PROCCHECK2:A$="WHAT IS THE AGREED/SELLING PRICE":Y=224:PROCTEXT:PROCINPUTN:LO%(A)=LO%(A)AND207OR16*(3-X%):MO(X%)=MO(X%)+B:MO(3-X%)=MO(3-X%)-B
  540IF(LO%(A)AND64)=0THEN570
  550PROCCLS:X%=3-X%:A$=N$(X%)+"/DO YOU WANT TO LIFT/THE MORTGAGE NOW":Y=320:PROCTEXT:PROCGET:IFA$="Y"PROCCLS:FL%=0:GOTO840
  560PROCGETDA(A):READB,A$,B:A$="YOU STILL HAVE TO PAY/INTEREST OF `"+STR$(B*.05):MO(X%)=MO(X%)-B*.05:Y=192:PROCTEXT:PROCWAIT
  570PROCTITLEDEED(A):PROCWAIT:GOTO160
  580FORI%=1TO3:H(I%)=0:NEXT:PROCCLS:A$="DO YOU WANT TO SELL/BUILDINGS":Y=320:PROCTEXT:PROCGET:B$=A$
  590PROCCLS:PROCGETCOL(8):PROCCLS:PROCALL(A):IFB<>X%A$="YOU DO NOT HAVE THE/ENTIRE GROUP/OR PART OF THE GROUP/IS MORTGAGED":Y=320:PROCTEXT:GOTO150ELSEA$="EXISTING BUILDINGS/AND PROPERTY NAME":Y=320:PROCTEXT
  600G%=0:PR(3)=-1:J%=0:FORI%=1TO40:PROCGETDA(I%):READW:IFW=A B=LO%(I%)AND7:J%=J%+1:PR(J%)=B:PR2(J%)=I%:READA$,R%,R%,R%,R%,R%,R%,R%,R%:PROCSPACES(1):PROCNORTH:PR$(J%)=N$:MOVEQ%,256-32*J%:PROCPRINT(P$(PR(J%))+" "+N$)
  610NEXT:ONERRORGOTO1350
  620IFB$="Y"THEN670ELSEA$="HOUSES COST `"+STR$R%+" EACH":Y=96:PROCTEXT
  630A$="HOW MANY HOUSES DO/YOU WANT TO BUILD ON":Y=32:PROCTEXT
  640FORI%=1TOJ%
  650  PROCGETHOUSES:H(I%)=B:IFPR(I%)+B>5MOVE-128,-192:PROCPRINT("TOO MANY"):PROCWAIT:GOTO650
  660GOTO710
  670R%=-R%/2:A$="HOUSES ARE WORTH `"+STR$-R%:Y=96:PROCTEXT
  680A$="HOW MANY HOUSES DO/YOU WANT REMOVED FROM":Y=32:PROCTEXT
  690FORI%=1TOJ%
  700PROCGETHOUSES:H(I%)=B:IFPR(I%)-B<0MOVE-128,-192:PROCPRINT("TOO MANY"):PROCWAIT:GOTO700
  710NEXT
  720L%=5:H%=0:FORI%=1TOJ%:A=PR(I%)+SGNR%*H(I%):IFA<L%L%=A
  730IFA>H%H%=A
  740NEXT:IFH%-L%>1A$="BUILDINGS ARE NOT/DISTRIBUTED EVENLY":Y=-192:PROCTEXT:PROCWAIT:GCOL0,1:PROCHBAR(-320,-64,-256):GCOL0,0:ONSGNR%+2GOTO690,0,640
  750FORI%=1TOJ%:LO%(PR2(I%))=LO%(PR2(I%))AND248OR(PR(I%)+SGNR%*H(I%)):MO(X%)=MO(X%)-R%*H(I%):NEXT:ONERRORGOTO1280
  760GOTO160
  770FL%=1:PROCCLS:A$="DO YOU WANT TO LIFT/A MORTGAGE":Y=320:PROCTEXT:PROCGET:B$=A$
  780PROCGETPROP:PROCCLS:PROCCHECK1:IFER PROCWAIT:GOTO780
  790IFB$="Y"THEN830
  800PROCCHECK2:IF ER PROCWAIT:GOTO780
  810PROCCHECK3:IF ER PROCWAIT:GOTO780
  820LO%(A)=LO%(A)OR64:PROCGETDA(A):READB,A$,B:MO(X%)=MO(X%)+B/2:PROCTITLEDEED(A):PROCWAIT:GOTO780
  830PROCCHECK4:IF ER PROCWAIT:GOTO780
  840LO%(A)=LO%(A)AND191:PROCGETDA(A):READB,A$,B:MO(X%)=MO(X%)-.55*B:PROCTITLEDEED(A):PROCWAIT:IFFL%THEN780ELSEGOTO160
  850PROCCLS:A$="ARE YOU SURE YOU/WANT TO END/ /YOU WILL LOSE/IF YOU DO":Y=320:PROCTEXT:PROCGET:IFA$="N"THEN160
  860PROCCLS:A$=N$(3-X%)+"/ /IS THE WINNER":Y=320:PROCTEXT:PROCWAIT:MODE7:*FX4,0
  870END
  880IFMV THEN240ELSEONERRORGOTO1280
  890PROCWAIT:PROCAT(Z%):PROCMONEY:GOTO150
  900DO=0:IJ(X%)=IJ(X%)+1:GCOL0,1:PROCHBAR(352,-64,-356):GCOL0,0:N$="YOU ARE IN JAIL":PROCCENTRE:MOVEX,-64:PROCPRINT(N$):RESTORE3620:A=3:B=2:IFGJ(X%)A=5:B=3
  910FORI%=1TOA:READA$:MOVE-320,-32*(I%+3):PROCPRINT(A$):NEXT:MOVE-160,-32*(I%+4):PROCPRINT("ENTER CHOICE")
  920PROCWAIT:A=VAL(A$):IFA<1ORA>B THEN920
  930ONA GOTO940,960,1010
  940MO(X%)=MO(X%)-50
  950Y%=3-X%:IJ(X%)=0:OPOS(X%)=11:Z%=11:GOTO210
  960D1=RND(6):D2=RND(6):PROCROLL:IFD1=D2 Y%=X%:DO=1:GOTO990
  970Y%=3-X%:IFIJ(X%)=3A$="YOU MUST PAY `50":Y=192:PROCTEXT:MO(X%)=MO(X%)-50:GOTO1000
  980GOTO150
  990Y%=X%
 1000OPOS(X%)=11:Z%=11+D1+D2:IJ(X%)=0:GOTO240
 1010GJ(X%)=GJ(X%)-1:IFJC(0)=X%J%=0ELSEJ%=1:JC(J%)=0:I%=CHP(J%):IFI%=0I%=52
 1020CH%(I%,J%)=1
 1030GOTO950
 1040DEFPROCGETPROP:PROCGETCOL(10):PROCCLS:W=A:IFA=9W=14ELSEIFA=10W=13
 1050J%=0:FORI%=1TO40:PROCGETDA(I%):READA:IFW=A READ A$:PROCSPACES(1):PROCNORTH:J%=J%+1:N$=STR$J%+" "+N$:MOVE-320,352-J%*32:PROCPRINT(N$):PR(J%)=I%
 1060NEXT:MOVE-320,288-32*J%:PROCPRINT("ENTER CHOICE")
 1070PROCWAIT:A=VALA$:IFA<1ORA>J%THEN1070
 1080A=PR(A):ENDPROC
 1090DEFPROCCHECK1:ER=0:IF(LO%(A)AND48)/16<>X%A$="YOU DO NOT OWN THIS/PROPERTY":Y=320:PROCTEXT:ER=1
 1100ENDPROC
 1110DEFPROCCHECK2:ER=0:IFLO%(A)AND64A$="THIS PROPERTY IS/MORTGAGED":Y=320:PROCTEXT:ER=1
 1120ENDPROC
 1130DEFPROCCHECK3:ER=0:IFLO%(A)AND7A$="THERE ARE BUILDINGS/ON THIS SITE":Y=320:PROCTEXT:ER=1
 1140ENDPROC
 1150DEFPROCCHECK4:ER=0:IF(LO%(A)AND64)=0A$="THIS PROPERTY IS/NOT MORTGAGED":Y=320:PROCTEXT:ER=1
 1160ENDPROC
 1170DEFPROCINPUTN:X=-96:Y=128:PROCTYPE("`"):X=-64
 1180MOVEX,Y:PROCINPUT:B=VALB$:IFB$<>STR$B OR B>9999 THENGCOL0,1:MOVEX,Y:PROCTYPE(B$):GCOL0,0:GOTO1180
 1190ENDPROC
 1200DEFPROCINPUTTEXT:MOVE-160,224:PROCINPUT:ENDPROC
 1210DEFPROCINPUT:B$=""
 1220PROCWAIT:IFASCA$<>13THEN1240
 1230IFB$=""THEN1220ELSEENDPROC
 1240IFASCA$=127ANDLENB$>0GCOL0,1:PLOT0,-32,0:PROCPRINT(RIGHT$(B$,1)):B$=LEFT$(B$,LENB$-1):GCOL0,0:PLOT0,-32,0:GOTO1220
 1250IFINSTR(OK$,A$)=0ORLENB$=10THEN1220
 1260B$=B$+A$:PROCPRINT(A$):GOTO1220
 1270DEFPROCGETHOUSES:GCOL0,1:PROCHBAR(320,-64,-256):GCOL0,0:N$=PR$(I%):PROCCENTRE:MOVEX,-64:PROCPRINT(N$):X=-32:Y=-128:GOTO1180
 1280IFERR=17THEN160
 1290MODE6:REPORT:PRINT" in line ";ERL:*FX 4,0
 1300END
 1310IFERR<>17THEN1290
 1320PROCUNHIGH:ONERRORGOTO1280
 1330GOTO160
 1340IFERR=17THEN250ELSEGOTO1290
 1350IFERR=17THEN720ELSEGOTO1290
 1360IFERR=17RUN ELSEGOTO1290
 1370DEFPROCBOARD:GCOL0,1:PROCSBAR(512,512):GCOL0,2:PROCSBAR(480,480):GCOL0,1:PROCSBAR(360,360):GCOL0,0:PROCBOX(480,480):PROCBOX(360,360)
 1380FORY=-360TO360STEP80:MOVE-480,Y:DRAW-360,Y:MOVEY,480:DRAWY,360:MOVE480,Y:DRAW360,Y:MOVEY,-480:DRAWY,-360:NEXT
 1390FORI%=1TO40:PROCGETDA(I%):READA:PROCLOC(I%):IFA<9PROCSMBOX(I%)ELSEPROCNAM(I%)
 1400NEXT:GA=0:FORX%=1TO2:MO(X%)=1500:PROCCLS:A$="WHAT IS THE NAME OF/PLAYER "+STR$X%:Y=320:PROCTEXT:PROCINPUTTEXT:N$(X%)=B$:OPOS(X%)=40:Z%=1:PROCNPOS:NEXT:GA=1:ENDPROC
 1410DEFPROCSBAR(X,Y)MOVEX,Y:MOVEX,-Y:PLOT85,-X,-Y:MOVE-X,Y:PLOT85,X,Y:ENDPROC
 1420DEFPROCBOX(X,Y)MOVEX,Y:DRAWX,-Y:DRAW-X,-Y:DRAW-X,Y:DRAWX,Y:ENDPROC
 1430DEFPROCLOC(I%)S=(I%-1)MOD10*80-360:ON(I%-1)DIV10+1GOTO1440,1450,1460,1470
 1440X=-S:Y=-360:ENDPROC
 1450X=-360:Y=S:ENDPROC
 1460X=S:Y=360:ENDPROC
 1470X=360:Y=-S:ENDPROC
 1480DEFPROCSMBOX(I%)ON(I%-1)DIV10+1GOTO1490,1500,1510,1520
 1490MOVEX+8,Y-4:MOVEX+72,Y-4:PLOT85,X+72,Y-40:MOVEX+8,Y-40:PLOT85,X+8,Y-4:ENDPROC
 1500MOVEX-8,Y-4:MOVEX-8,Y-76:PLOT85,X-40,Y-76:MOVEX-40,Y-4:PLOT85,X+8,Y-4:ENDPROC
 1510MOVEX-8,Y+4:MOVEX-72,Y+4:PLOT85,X-72,Y+40:MOVEX-8,Y+40:PLOT85,X-8,Y+4:ENDPROC
 1520MOVEX+8,Y+4:MOVEX+8,Y+76:PLOT85,X+40,Y+76:MOVEX+40,Y+4:PLOT85,X+8,Y+4:ENDPROC
 1530DEFPROCNAM(I%)B$=NAM$(A-9):PROCLBOX(0):ENDPROC
 1540DEFPROCLBOX(M%):IFI%=11THEN1590ELSEIFI%=31THEN1600ELSEON(I%-1)DIV10+1GOTO1550,1560,1570,1580
 1550MOVEX+8,Y-16-M%*32:PROCPRINT(B$):ENDPROC
 1560MOVEX-48-32*M%,Y-12:PROCPRINT(LEFT$(B$,1)):MOVEX-48-32*M%,Y-44:PROCPRINT(RIGHT$(B$,1)):ENDPROC
 1570MOVEX-72,Y+40+32*M%:PROCPRINT(B$):ENDPROC
 1580MOVEX+16+32*M%,Y+68:PROCPRINT(LEFT$(B$,1)):MOVEX+16+32*M%,Y+36:PROCPRINT(RIGHT$(B$,1)):ENDPROC
 1590MOVEX-72,Y-16-32*M%:PROCPRINT(B$):ENDPROC
 1600MOVEX+12,Y+40+32*M%:PROCPRINT(B$):ENDPROC
 1610DEFPROCGETCOL(N%)PROCCLS:RESTORE3280:FORI%=0TON%-1:READC$:MOVE-320,320-I%*32:PROCPRINT(STR$I%+" "+C$):NEXT:MOVE-320,256-I%*32:PROCPRINT("ENTER CHOICE")
 1620PROCWAIT:A=VALA$:IFA=0ANDA$<>"0"THENA=-1
 1630IFA<0ORA>N%-1THEN1620ELSEA=A+1:PROCGETLCOL:ENDPROC
 1640DEFPROCHIGH:PROCGETCOL(8):IFC=0ORC=6C=C+8
 1650ONERRORGOTO1310
 1660VDU19,3,C;0;:GCOL0,3:FORI%=1TO40:PROCGETDA(I%):READB:IFB=A PROCLOC(I%):PROCSMBOX(I%)
 1670NEXT:PROCWAIT:PROCUNHIGH:ENDPROC
 1680DEFPROCUNHIGH:GCOL0,0:FORI%=1TO40:PROCGETDA(I%):READB:IFA=B PROCLOC(I%):PROCSMBOX(I%)
 1690NEXT:ONERRORGOTO1280
 1700ENDPROC
 1710DEFPROCGETDA(I%)RESTORE(2850+10*I%):ENDPROC
 1720DEFPROCTITLEDEED(I%)PROCGETDA(I%):READA:IFA>8ANDA<>13ANDA<>14THEN1850
 1730IFLO%(I%)AND64THEN1830
 1740PROCTDFRAME:IFA=13ORA=14THENQ%=Q%-64:GOTO1800
 1750MOVE-160,272:PROCPRINT("TITLE DEED"):PROCSPACES(1):PROCNORTH
 1760PROCCENTRE:MOVEX,208:PROCPRINT(N$):GCOL0,0:FORI%=0TO7:READN%(I%):NEXT:N%(8)=N%(0)/2:RESTORE3300
 1770X=-288:Y=112:PROCTYPE("RENT"):FORI%=1TO8:Y=Y-32:IFI%>6Y=Y-32
 1780READA$:PROCTYPE(A$):MOVEQ%,Y:PROCPRINT("`"+STR$N%(I%)):IFI%=7Y=Y-32:PROCTYPE("COST HOTEL  `"+STR$N%(7)):Y=Y-32:PROCTYPE("PLUS 4 HOUSES")
 1790NEXT:GOTO1850
 1800PROCSPACES(1):PROCCENTRE:MOVEX,240+24*(A-13):PROCPRINT(N$):IFA=14MOVE-112,216:PROCPRINT("STATION"):RESTORE3310ELSERESTORE3320
 1810X=-228:Y=96:FORI%=1TO12:READA$:IFA$=""A$=" "
 1820PROCTYPE(A$):Y=Y-32:NEXT:GOTO1850
 1830C=A:PROCCLS:GCOL0,3:READA$,A:PROCSPACES(1):VDU19,3,1;0;:PROCSBAR(320,320):GCOL0,0:PROCBOX(320,320):FORY=-1TO1STEP2:MOVE-288,288*Y:DRAW288,288*Y:DRAW288,96*Y:DRAW-288,96*Y:DRAW-288,228*Y:NEXT:MOVE-144,208:IFC=14N$=N$+" STN"
 1840PROCPRINT("MORTGAGED"):PROCNORTH:A$=N$+"/ /"+"MORTGAGED FOR `"+STR$(A/2):Y=48:PROCTEXT:Y=-132:X=-256:RESTORE3330:FORI%=1TO4:READN$:PROCPR:NEXT
 1850Q%=96:ENDPROC
 1860DEFPROCGETLCOL:LOCALI%:RESTORE3290:FORI%=1TOA:READC:NEXT:ENDPROC
 1870DEFPROCTDFRAME:PROCCLS:IFA<9PROCGETLCOL ELSEC=7
 1880VDU19,3,C;0;:GCOL0,2-(A>12):PROCSBAR(320,320):GCOL0,0:PROCBOX(320,320):IFA<13ANDA<>2GCOL0,3:PROCHBAR(304,304,144)
 1890GCOL0,0:PROCHBOX(304,304,144)
 1900PROCGETDA(I%):READA,A$:COLOUR131:IFA=1ORA=8COLOUR2:GCOL0,2ELSECOLOUR0:GCOL0,0
 1910ENDPROC
 1920DEFPROCSPACES(I%):B=INSTR(A$,"/",I%):IFB=0N$=A$ELSEN$=LEFT$(A$,B-1)+" "+MID$(A$,B+1)
 1930A$=N$:ENDPROC
 1940DEFPROCCENTRE:X=-288+32*((18-LENN$)/2):ENDPROC
 1950DEFPROCNORTH:IFN$="NORTHUMBER LAND AVENUE"N$="NORTHUMBERLAND AVENUE"
 1960ENDPROC
 1970DEFPROCCHANCE:N$="CHANCE":CH=1:GOTO1990
 1980DEFPROCCOMCHEST:N$="COMMUNITY CHEST":CH=0
 1990MV=0:PROCWAIT:PROCCLS:VDU19,3,5,5-2*CH;0;:GCOL0,3:PROCSBAR(320,192):GCOL0,0:PROCBOX(320,192):Y=128:A$=N$:PROCTEXT:Y=32
 2000IFCH%(CHP(CH)+2,CH)A=27:CH%(CHP(CH)+2,CH)=0:JC(CH)=X%ELSEA=CH%(CHP(CH)+1,CH):CHP(CH)=CHP(CH)+2:IFCHP(CH)=52CHP(CH)=0
 2010RESTORE(3330+10*A):READA$,A1%,A2%
 2020PROCTEXT:IFA1%MO(X%)=MO(X%)+A1%:ENDPROC
 2030IFA2%=0THEN2050ELSEMV=1:IFA2%=-3Z%=OPOS(X%)+3:ENDPROC
 2040Z%=A2%:ENDPROC
 2050IFA=27THEN2090
 2060B%=0:FORI%=1TO40:IF(LO%(I%)AND48)/16<>X%THEN2080
 2070J%=LO%(I%)AND7:IFJ%<5B%=B%+J%*40ELSEB%=B%+115
 2080NEXT:A$="TOTAL COST `"+STR$B%:Y=-224:PROCTEXT:MO(X%)=MO(X%)-B%:ENDPROC
 2090GJ(X%)=GJ(X%)+1:IFJC(CH)=X%
 2100ENDPROC
 2110DEFPROCPR:PROCCENTRE:MOVEX,Y:Y=Y-32:PROCPRINT(N$):ENDPROC
 2120DEFPROCHBAR(X,Y,Y1)MOVEX,Y:MOVEX,Y1:PLOT85,-X,Y1:MOVE-X,Y:PLOT85,X,Y:ENDPROC
 2130DEFPROCHBOX(X,Y,Y1)MOVEX,Y:DRAWX,Y1:DRAW-X,Y1:DRAW-X,Y:DRAWX,Y:ENDPROC
 2140DEFPROCTEXT:I%=0
 2150PROCSPACES(I%+1):IFB=0N$=MID$(A$,I%+1):PROCPR:ENDPROC ELSEN$=MID$(A$,I%+1,B-I%-1):I%=B:PROCPR:GOTO2150
 2160DEFPROCAT(L%)PROCCLS:K%=0:GCOL0,2:PROCHBAR(320,320,64):GCOL0,0:PROCHBOX(320,320,64):Y=256:PROCGETDA(L%):READA:IFA<9ORA=13ORA=14THEN2270
 2170ONA-8GOTO2180,2190,2200,2210,0,0,2220,2230,2240,2250,2260
 2180A$="GO":GOTO2300
 2190A$="COMMUNITY/CHEST":GOTO2300
 2200A$="INCOME/TAX/PAY `200":GOTO2300
 2210A$="CHANCE":GOTO2300
 2220A$="JAIL/JUST/VISITING":GOTO2300
 2230A$="FREE/PARKING":GOTO2300
 2240A$="GO TO/JAIL":GOTO2300
 2250A$="SUPER/TAX/PAY `100":GOTO2300
 2260A$="IN/JAIL":GOTO2300
 2270IFA<9PROCGETLCOL:VDU19,3,C;0;:GCOL0,3:PROCHBAR(312,316,224):GCOL0,0:MOVE-320,224:DRAW320,224:Y=192:PROCHOUSES
 2280PROCGETDA(L%):READJ%,A$,J%:IFA=14A$=A$+"/STATION"
 2290PROCTEXT:A$="`"+STR$J%
 2300PROCTEXT:IFA<9ORA=13ORA=14N%=(LO%(L%)AND63)/16:PROCSALE ELSEN%=4
 2310ENDPROC
 2320DEFPROCHOUSES:K%=LO%(L%)AND7:IFK%=0ENDPROC ELSEIFK%=5A$="HOTEL"ELSEA$=STR$K%+" HOUSE"
 2330IFK%<5ANDK%>1A$=A$+"S"
 2340IFA=1ORA=8GCOL0,2ELSEGCOL0,0
 2350PROCSPACES(1):PROCCENTRE:MOVEX,288:PROCPRINT(N$):GCOL0,0:ENDPROC
 2360DEFPROCSALE2:IFN%=0N$="FOR SALE"ELSEN$="OWNED BY "+N$(N%)
 2370ENDPROC
 2380DEFPROCSALE:PROCSALE2:PROCCENTRE:MOVEX,52:PROCPRINT(N$):ENDPROC
 2390DEFPROCNPOS:PROCCLS:B$=LEFT$(N$(X%),2):N%=OPOS(X%):G%=Z%:IFG%=41G%=11:NJ=0:DO=0:IFD1=D2 Y%=3-X%
 2400IFZ%=41ANDN%<32ANDN%>11ST=-1ELSEST=1
 2410IFN%=G%THEN2460
 2420REPEAT:PG=0:K%=N%:N%=N%+ST:IFN%=41N%=1:PG=1
 2430GCOL0,2:I%=K%:PROCLOC(I%):PROCLBOX(X%):GCOL0,0:I%=N%:SOUND1,-7,50,1:PROCLOC(I%):PROCLBOX(X%):IFPG ANDGA ANDNJ PROCPG
 2440*FX15,1
 2450A=INKEY25:UNTILN%=G%
 2460OPOS(X%)=Z%
 2470IFGA PROCAT(Z%)
 2480NJ=1:ENDPROC
 2490DEFPROCPG:VDU19,3,7;0;:GCOL0,3:PROCHBAR(320,320,192):GCOL0,0:PROCHBOX(320,320,192):A$="COLLECT `200 SALARY/AS YOU PASS GO":Y=288:PROCTEXT:MO(X%)=MO(X%)+200:PROCWAIT:ENDPROC
 2500DEFPROCMONEY:N$=N$(X%):PROCCENTRE:Y=0:PROCTYPE(N$):N$="`"+STR$(ABS(MO(X%))):IFSGNMO(X%)=-1N$="MINUS "+N$
 2510N$=N$+"  "+STR$GJ(X%):PROCCENTRE:Y=-32:PROCTYPE(N$):ENDPROC
 2520DEFPROCGET
 2530PROCWAIT:IFA$<>"Y"ANDA$<>"N"THEN2530
 2540ENDPROC
 2550DEFPROCTYPE(Z$)MOVEX,Y:GOTO2570
 2560DEFPROCPRINT(Z$)
 2570FORE%=1TOLENZ$:PLOT0,-32,0:F%=ASC(MID$(Z$,E%,1)):IFF%=49F%=73ELSEIFF%=50F%=90ELSEIFF%=53F%=83ELSEIFF%=48F%=79ELSEIFF%=81F%=86:VDU23,244,7,5,5,5,7,2,3,0ELSEIFF%=86VDU23,244,5,5,5,5,5,2,2,0
 2580IFF%=32PRINT" ";ELSEPRINTCHR$(223+INSTR(LE$,CHR$(F%)));
 2590NEXT:ENDPROC
 2600DEFPROCWAIT:*FX15,1
 2610SOUND1,-7,125,1:A$=GET$:ENDPROC
 2620DEFPROCCLS:GCOL0,1:PROCSBAR(352,356):GCOL0,0:ENDPROC
 2630DEFPROCWARN:IFSGN(MO(X%))=-1A$="YOU ARE IN DEBT/ /YOU MUST PAY THIS/BEFORE ROLLING DICE":Y=-96:PROCTEXT:PROCWAIT:GCOL0,1:PROCHBAR(320,-96,-224):GCOL0,0
 2640ENDPROC
 2650DEFPROCPROP(I%,J%)PROCCLS:READA$:IFA=14THENA$=A$+"/STATION"
 2660K%=LO%(I%)AND7:IFA>8THEN2690
 2670IFK%=0A$=A$+"/ /NO BUILDINGS"ELSEIFK%=5A$=A$+"/ /HOTEL"ELSEA$=A$+"/ /"+STR$K%+" HOUSE"
 2680IFK%<5ANDK%>1A$=A$+"S"
 2690IFLO%(I%)AND64A$=A$+"/ /MORTGAGED"
 2700IFJ%A$=A$+"/ /PRESS T FOR/TITLE DEED/ELSE ANY OTHER KEY"ELSEN%=(LO%(I%)AND48)/16:PROCSALE2:A$=A$+"/ /"+N$
 2710Y=320:PROCTEXT:PROCWAIT:ENDPROC
 2720DEFPROCASK:PROCCLS:A$="DO YOU WANT JUST/ONE GROUP LISTED":Y=320:PROCTEXT:PROCGET:IFA$="N"W=0:ENDPROC
 2730PROCGETCOL(10):W=A:IFW=9W=14ELSEIFW=10W=13
 2740ENDPROC
 2750DEFPROCALL(J%)B=-1:FORI%=1TO40:PROCGETDA(I%):READC:IFC<>J%THEN2780ELSEB%=(LO%(I%)AND112)/16
 2760IFB=-1B=B%ELSEIFB<>B%B=0
 2770IFB<>B%B=0
 2780NEXT:ENDPROC
 2790DEFPROCSTNRENT:J%=-1:FORI%=6TO36STEP10:IF(LO%(I%)AND112)/16=3-X%J%=J%+1
 2800NEXT:A=2^J%*25:ENDPROC
 2810DEFPROCUTRENT:J%=-1:FORI%=13TO29STEP16:IF(LO%(I%)AND112)/16=3-X%J%=J%+1
 2820NEXT:A=(4+6*J%)*(D1+D2):ENDPROC
 2830DEFPROCROLL:PROCCLS:A$="YOU HAVE ROLLED/ /"+STR$D1+" AND "+STR$D2:IFDO=3A$=A$+"/ /YOU HAVE THROWN/THREE DOUBLES/ /GO TO JAIL":Z%=41:NJ=0:Y%=3-X%:DO=0ELSEIFIJ(X%)=0Z%=Z%+D1+D2:IFZ%>40Z%=Z%-40
 2840Y=320:PROCTEXT:ONERRORGOTO1340
 2850ENDPROC
 2860DATA9
 2870DATA1,OLD KENT/ROAD,60,2,10,30,90,160,250,50
 2880DATA10
 2890DATA1,WHITECHAPEL/ROAD,60,4,20,60,180,320,450,50
 2900DATA11
 2910DATA14,KINGS CROSS,200
 2920DATA2,ANGEL/ISLINGTON,100,6,30,90,270,400,550,50
 2930DATA12
 2940DATA2,EUSTON/ROAD,100,6,30,90,270,400,550,50
 2950DATA2,PENTONVILLE/ROAD,120,8,40,100,300,450,600,50
 2960DATA15
 2970DATA3,PALL MALL,140,10,50,150,450,625,750,100
 2980DATA13,ELECTRIC/COMPANY,150
 2990DATA3,WHITEHALL,140,10,50,150,450,625,750,100
 3000DATA3,NORTHUMBER/LAND AVENUE,160,12,60,180,500,700,900,100
 3010DATA14,MARYLEBONE,200
 3020DATA4,BOW STREET,180,14,70,200,550,750,950,100
 3030DATA10
 3040DATA4,MARLBOROUGH/STREET,180,14,70,200,550,750,950,100
 3050DATA4,VINE STREET,200,16,80,220,600,800,1000,100
 3060DATA16
 3070DATA5,STRAND,220,18,90,250,700,875,1050,150
 3080DATA12
 3090DATA5,FLEET STREET,220,18,90,250,700,875,1050,150
 3100DATA5,TRAFALGAR/SQUARE,240,20,100,300,750,925,1100,150
 3110DATA14,FENCHURCH ST,200
 3120DATA6,LEICESTER/SQUARE,260,22,110,330,800,975,1150,150
 3130DATA6,COVENTRY/STREET,260,22,110,330,800,975,1150,150
 3140DATA13,WATER/WORKS,150
 3150DATA6,PICCADILLY,280,22,120,360,850,1025,1200,150
 3160DATA17
 3170DATA7,REGENT/STREET,300,26,130,390,900,1100,1275,200
 3180DATA7,OXFORD/STREET,300,26,130,390,900,1100,1275,200
 3190DATA10
 3200DATA7,BOND STREET,320,28,150,450,1000,1200,1400,200
 3210DATA14,LIVERPOOL ST,200
 3220DATA12
 3230DATA8,PARK LANE,350,35,175,500,1100,1300,1500,200
 3240DATA18
 3250DATA8,MAYFAIR,400,50,200,600,1400,1700,2000,200
 3260DATA19
 3270DATAGO,CC,IT,CH,UT,SN,JA,FP,GJ,ST
 3280DATABLACK,CYAN,MAGENTA,WHITE,RED,YELLOW,GREEN,BLUE,STATIONS,UTILITIES
 3290DATA0,6,5,7,1,3,2,4,0,0
 3300DATASITE ONLY,1 HOUSE,2 HOUSES,3 HOUSES,4 HOUSES,HOTEL,COST HOUSE,MORTGAGE
 3310DATA" BRITISH RAIL",,RENT        `25,,  2 STATIONS  `50,,  3 STATIONS `100,,  4 STATIONS `200,,,MORTGAGE   `100
 3320DATAIF ONE UTILITY,OWNED RENT IS 4,TIMES THAT SHOWN,ON DICE,,IF ALL UTILITIES,OWNED RENT IS 10,TIMES THAT ON,DICE,,,MORTGAGE     `75
 3330DATACARD MUST BE,TURNED THIS SIDE,UP IF PROPERTY,IS MORTGAGED
 3340DATASPEEDING FINE `15,-15,0
 3350DATADOCTORS FEE/PAY `50,-50,0
 3360DATAPAY HOSPTIAL `100,-100,0
 3370DATAYOU ARE ASSESSED/FOR STREET REPAIRS/`40 PER HOUSE/`115 PER HOTEL,0,0
 3380DATABANK PAYS YOU/DIVIDEND OF `50,50,0
 3390DATAFROM SALE OF STOCK/YOU GET `50,50,0
 3400DATAYOU INHERIT `100,100,0
 3410DATAINCOME TAX REFUND/COLLECT `20,20,0
 3420DATAANNUITY MATURES/COLLECT `100,100,0
 3430DATAYOUR BUILDING LOAN/MATURES/RECEIVE `150,150,0
 3440DATAADVANCE TO/TRAFALGAR SQUARE/IF YOU PASS GO/COLLECT `200,0,25
 3450DATAADVANCE TO/PALL MALL/IF YOU PASS GO/COLLECT `200,0,12
 3460DATAADVANCE TO MAYFAIR,0,40
 3470DATAADVANCE 3 SPACES,0,-3
 3480DATAPAY INTEREST ON/A LOAN/`50,-50,0
 3490DATATAKE A TRIP TO/MARYLEBONE STATION/AND IF YOU PASS GO/COLLECT `200,0,16
 3500DATAADVANCE TO GO,0,1
 3510DATADRUNK IN CHARGE/FINE `20,-20,0
 3520DATAPAY YOUR INSURANCE/PREMIUM `50,-50,0
 3530DATAPAY SCHOOL FEES/OF `150,-150,0
 3540DATAYOUR BUILDING LOAN/MATURES/RECEIVE `150,150,0
 3550DATAYOU HAVE WON A/CROSSWORD/COMPETITION/COLLECT `100,100,0
 3560DATABANK ERROR IN YOUR/FAVOUR/COLLECT `200,200,0
 3570DATAYOU HAVE WON/SECOND PRIZE IN A/BEAUTY CONTEST/COLLECT `10,10,0
 3580DATARECEIVE INTEREST/ON 7PC PREFERENCE/SHARES/`25,25,0
 3590DATAGO TO JAIL/MOVE DIRECTLY TO/JAIL/DO NOT PASS GO/DO NOT COLLECT `200,0,41
 3600DATAGET OUT OF JAIL/FREE/ /THIS CARD MAY BE/KEPT UNTIL NEEDED,0,0
 3610DATAROLL DICE,SHOW COLOUR GROUP,LIST OWNED PROPERTY,LIST ALL PROPERTY,SELL PROPERTY,BUY OR SELL HOUSES,MORTAGE PROPERTY,END GAME
 3620DATA1 PAY `50,2 ROLL DICE AND HOPE,"  FOR DOUBLES",3 USE A GET OUT OF," JAIL FREE CARD"
 3630:
 3640DEFPROCloc
 3650*KEY 0 *TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
 3660*FX138,0,128
 3670END

� OMNIPOLY
�<>&E00 � �0:�loc
�
(!� (c) Copyright Richard Smith
2� Aug 31 1983
<�
F��DPE
P��N%(8),A$(30),NAM$(9),LO%(40),N$(2),OPOS(2),NPOS(2),MO(2),IJ(2),GJ(2),PR(4),PR2(3),PR$(3),P$(5),H(3),CH%(52,1),CHP(1),JC(1):NJ=1:DO=0:�I%=0�4:P$(I%)=�I%:�:P$(5)="H":A$=�100," "):B$=A$:N$=A$:*FX4,1
ZXA=�(-�):�I%=1�� �10:A=�(1):�:LE$="ABCDEFGHIJKLMNOPRSTUVWXYZ`346789":OK$=LE$+" Q1250"
d�K%=0�1:�I%=1�26
n3  J%=�(26)*2-1:�CH%(J%,K%)=0CH%(J%,K%)=I%��Dn@
x  �:CH%(�(26)*2,K%)=1:�
���5:�19,1,2;0;19,2,6;0;29,640;512;23;8202;0;0;0;5:�129:�0:��dFL:�I%=0�9:�NAM$(I%):�:�BOARD:Y%=�(2):A$=N$(Y%)+" STARTS":Y=320:�TEXT
���T@E
�	�WAIT
��X%=Y%:Z%=OPOS(X%):MO(X%)=�MO(X%):�AT(Z%):�MONEY:�WARN:��TZN:�I%=1�8:�A$:�-336,-32*(I%+1):A$=�I%+" "+A$:�PRINT(A$):�:�-160,-320:�PRINT("ENTER CHOICE")
��WAIT:B=�A$:�B<1�B>8��tj@
�/�B �t~@,�txA,�dBA,�d`A,�d~A,�DDB,�TBC,�DRC
��MO(X%)=-1��D\C
��Z%=41��tDC�IJ(X%)=0
�.D1=�(6):D2=�(6):�D1<>D2 Y%=3-X%:DO=0:�df@
�Y%=X%:DO=DO+1
�	�ROLL
�	�WAIT
�NPOS(X%)=Z%:�NPOS
�A<>18�A<>11�MONEY
'�A=17Z%=41:�dp@��A<>18�A<>11�MONEY
�A=10�COMCHEST:�DpC
"�A=12�CHANCE:�DpC
,��T@E
6�A=9�A=15�A=16�A=19��tV@
@'�A=11MO(X%)=MO(X%)-200:�MONEY:�tV@
J'�A=18MO(X%)=MO(X%)-100:�MONEY:�tV@
T�GETDA(Z%):�D,A$,A
^�N%��D|A
h?�-336,-96:�PRINT("DO YOU WANT TO BUY IT"):�GET:�A$="N"��t`@
r>MO(X%)=MO(X%)-A:LO%(Z%)=LO%(Z%)�16*X%:�TITLEDEED(Z%):�tV@
|"�LO%(Z%)�16*X%�LO%(Z%)�64��tV@
��-64,-96:�PRINT("RENT")
�*�D=13�UTRENT:�tnA��D=14�STNRENT:�tnA
��I%=0�K%:�A:�
��K%=0�ALL(D):�B A=A*2
�DA$="`"+�A:Y=-160:�TEXT:MO(3-X%)=MO(3-X%)+A:MO(X%)=MO(X%)-A:�tV@
��HIGH:�t`@
�5�ASK:�A%=1�40:�GETDA(A%):�A:�W=0��dLA��A<>W ��dVA
�=  �LO%(A%)�(X%*16)�PROP(A%,1):�A$="T"�TITLEDEED(A%):�WAIT
�
  �:�t`@
�5�ASK:�I%=1�40:�GETDA(I%):�A:�A>8�A<>13�A<>14��dtA
�  �W=0�W=A �PROP(I%,0)
�
  �:�t`@
�(�CLS:�GETPROP:�CLS:�CHECK1:�ER ��tV@
�CHECK3:� ER � �tV@
��CHECK2:A$="WHAT IS THE AGREED/SELLING PRICE":Y=224:�TEXT:�INPUTN:LO%(A)=LO%(A)�207�16*(3-X%):MO(X%)=MO(X%)+B:MO(3-X%)=MO(3-X%)-B
�(LO%(A)�64)=0��TzB
&k�CLS:X%=3-X%:A$=N$(X%)+"/DO YOU WANT TO LIFT/THE MORTGAGE NOW":Y=320:�TEXT:�GET:�A$="Y"�CLS:FL%=0:�DHC
0m�GETDA(A):�B,A$,B:A$="YOU STILL HAVE TO PAY/INTEREST OF `"+�(B*.05):MO(X%)=MO(X%)-B*.05:Y=192:�TEXT:�WAIT
:�TITLEDEED(A):�WAIT:�t`@
DT�I%=1�3:H(I%)=0:�:�CLS:A$="DO YOU WANT TO SELL/BUILDINGS":Y=320:�TEXT:�GET:B$=A$
N��CLS:�GETCOL(8):�CLS:�ALL(A):�B<>X%A$="YOU DO NOT HAVE THE/ENTIRE GROUP/OR PART OF THE GROUP/IS MORTGAGED":Y=320:�TEXT:�tV@�A$="EXISTING BUILDINGS/AND PROPERTY NAME":Y=320:�TEXT
X�G%=0:PR(3)=-1:J%=0:�I%=1�40:�GETDA(I%):�W:�W=A B=LO%(I%)�7:J%=J%+1:PR(J%)=B:PR2(J%)=I%:�A$,R%,R%,R%,R%,R%,R%,R%,R%:�SPACES(1):�NORTH:PR$(J%)=N$:�Q%,256-32*J%:�PRINT(P$(PR(J%))+" "+N$)
b
�:��DFE
l:�B$="Y"��t^B�A$="HOUSES COST `"+�R%+" EACH":Y=96:�TEXT
v;A$="HOW MANY HOUSES DO/YOU WANT TO BUILD ON":Y=32:�TEXT
��I%=1�J%
�M  �GETHOUSES:H(I%)=B:�PR(I%)+B>5�-128,-192:�PRINT("TOO MANY"):�WAIT:�tJB
�	�dFB
�4R%=-R%/2:A$="HOUSES ARE WORTH `"+�-R%:Y=96:�TEXT
�<A$="HOW MANY HOUSES DO/YOU WANT REMOVED FROM":Y=32:�TEXT
��I%=1�J%
�K�GETHOUSES:H(I%)=B:�PR(I%)-B<0�-128,-192:�PRINT("TOO MANY"):�WAIT:�t|B
��
�3L%=5:H%=0:�I%=1�J%:A=PR(I%)+�R%*H(I%):�A<L%L%=A
�
�A>H%H%=A
��:�H%-L%>1A$="BUILDINGS ARE NOT/DISTRIBUTED EVENLY":Y=-192:�TEXT:�WAIT:�0,1:�HBAR(-320,-64,-256):�0,0:�R%+2�trB,�T@@,�t@B
�^�I%=1�J%:LO%(PR2(I%))=LO%(PR2(I%))�248�(PR(I%)+�R%*H(I%)):MO(X%)=MO(X%)-R%*H(I%):�:��T@E
�	�t`@
IFL%=1:�CLS:A$="DO YOU WANT TO LIFT/A MORTGAGE":Y=320:�TEXT:�GET:B$=A$
)�GETPROP:�CLS:�CHECK1:�ER �WAIT:�TLC
�B$="Y"��T~C
 �CHECK2:� ER �WAIT:�TLC
*�CHECK3:� ER �WAIT:�TLC
4RLO%(A)=LO%(A)�64:�GETDA(A):�B,A$,B:MO(X%)=MO(X%)+B/2:�TITLEDEED(A):�WAIT:�TLC
>�CHECK4:� ER �WAIT:�TLC
H_LO%(A)=LO%(A)�191:�GETDA(A):�B,A$,B:MO(X%)=MO(X%)-.55*B:�TITLEDEED(A):�WAIT:�FL%��TLC��t`@
Rb�CLS:A$="ARE YOU SURE YOU/WANT TO END/ /YOU WILL LOSE/IF YOU DO":Y=320:�TEXT:�GET:�A$="N"��t`@
\C�CLS:A$=N$(3-X%)+"/ /IS THE WINNER":Y=320:�TEXT:�WAIT:�7:*FX4,0
f�
p�MV ��dp@���T@E
z�WAIT:�AT(Z%):�MONEY:�tV@
��DO=0:IJ(X%)=IJ(X%)+1:�0,1:�HBAR(352,-64,-356):�0,0:N$="YOU ARE IN JAIL":�CENTRE:�X,-64:�PRINT(N$):��TdN:A=3:B=2:�GJ(X%)A=5:B=3
�U�I%=1�A:�A$:�-320,-32*(I%+3):�PRINT(A$):�:�-160,-32*(I%+4):�PRINT("ENTER CHOICE")
� �WAIT:A=�(A$):�A<1�A>B ��tXC
��A �tlC,�d@C,�drC
�MO(X%)=MO(X%)-50
�,Y%=3-X%:IJ(X%)=0:OPOS(X%)=11:Z%=11:�dR@
�1D1=�(6):D2=�(6):�ROLL:�D1=D2 Y%=X%:DO=1:�d^C
�MY%=3-X%:�IJ(X%)=3A$="YOU MUST PAY `50":Y=192:�TEXT:MO(X%)=MO(X%)-50:�dhC
�	�tV@
�	Y%=X%
�*OPOS(X%)=11:Z%=11+D1+D2:IJ(X%)=0:�dp@
�EGJ(X%)=GJ(X%)-1:�JC(0)=X%J%=0�J%=1:JC(J%)=0:I%=CHP(J%):�I%=0I%=52
�CH%(I%,J%)=1
	�tvC
5��GETPROP:�GETCOL(10):�CLS:W=A:�A=9W=14��A=10W=13
vJ%=0:�I%=1�40:�GETDA(I%):�A:�W=A � A$:�SPACES(1):�NORTH:J%=J%+1:N$=�J%+" "+N$:�-320,352-J%*32:�PRINT(N$):PR(J%)=I%
$,�:�-320,288-32*J%:�PRINT("ENTER CHOICE")
.�WAIT:A=�A$:�A<1�A>J%��TnD
8
A=PR(A):�
BW��CHECK1:ER=0:�(LO%(A)�48)/16<>X%A$="YOU DO NOT OWN THIS/PROPERTY":Y=320:�TEXT:ER=1
L�
VL��CHECK2:ER=0:�LO%(A)�64A$="THIS PROPERTY IS/MORTGAGED":Y=320:�TEXT:ER=1
`�
jQ��CHECK3:ER=0:�LO%(A)�7A$="THERE ARE BUILDINGS/ON THIS SITE":Y=320:�TEXT:ER=1
t�
~T��CHECK4:ER=0:�(LO%(A)�64)=0A$="THIS PROPERTY IS/NOT MORTGAGED":Y=320:�TEXT:ER=1
��
�)��INPUTN:X=-96:Y=128:�TYPE("`"):X=-64
�F�X,Y:�INPUT:B=�B$:�B$<>�B � B>9999 ��0,1:�X,Y:�TYPE(B$):�0,0:�t\D
��
�"��INPUTTEXT:�-160,224:�INPUT:�
���INPUT:B$=""
��WAIT:�A$<>13��dXD
��B$=""��dDD��
�P�A$=127��B$>0�0,1:�0,-32,0:�PRINT(�B$,1)):B$=�B$,�B$-1):�0,0:�0,-32,0:�dDD
��OK$,A$)=0��B$=10��dDD
�B$=B$+A$:�PRINT(A$):�dDD
�e��GETHOUSES:�0,1:�HBAR(320,-64,-256):�0,0:N$=PR$(I%):�CENTRE:�X,-64:�PRINT(N$):X=-32:Y=-128:�t\D
�=17��t`@

�6:�:�" in line ";�:*FX 4,0
�
�<>17��TJE
(�UNHIGH:��T@E
2	�t`@
<�=17��dz@��TJE
F�=17��dPB��TJE
P�=17� ��TJE
Zh��BOARD:�0,1:�SBAR(512,512):�0,2:�SBAR(480,480):�0,1:�SBAR(360,360):�0,0:�BOX(480,480):�BOX(360,360)
dP�Y=-360�360�80:�-480,Y:�-360,Y:�Y,480:�Y,360:�480,Y:�360,Y:�Y,-480:�Y,-360:�
n;�I%=1�40:�GETDA(I%):�A:�LOC(I%):�A<9�SMBOX(I%)��NAM(I%)
x��:GA=0:�X%=1�2:MO(X%)=1500:�CLS:A$="WHAT IS THE NAME OF/PLAYER "+�X%:Y=320:�TEXT:�INPUTTEXT:N$(X%)=B$:OPOS(X%)=40:Z%=1:�NPOS:�:GA=1:�
�3��SBAR(X,Y)�X,Y:�X,-Y:�85,-X,-Y:�-X,Y:�85,X,Y:�
�,��BOX(X,Y)�X,Y:�X,-Y:�-X,-Y:�-X,Y:�X,Y:�
�@��LOC(I%)S=(I%-1)�10*80-360:�(I%-1)�10+1�t`E,�tjE,�ttE,�t~E
�X=-S:Y=-360:�
�X=-360:Y=S:�
�X=S:Y=360:�
�X=360:Y=-S:�
�/��SMBOX(I%)�(I%-1)�10+1�dRE,�d\E,�dfE,�dpE
�<�X+8,Y-4:�X+72,Y-4:�85,X+72,Y-40:�X+8,Y-40:�85,X+8,Y-4:�
�<�X-8,Y-4:�X-8,Y-76:�85,X-40,Y-76:�X-40,Y-4:�85,X+8,Y-4:�
�<�X-8,Y+4:�X-72,Y+4:�85,X-72,Y+40:�X-8,Y+40:�85,X-8,Y+4:�
�<�X+8,Y+4:�X+8,Y+76:�85,X+40,Y+76:�X+40,Y+4:�85,X+8,Y+4:�
�$��NAM(I%)B$=NAM$(A-9):�LBOX(0):�
G��LBOX(M%):�I%=11��TvF��I%=31��D@F��(I%-1)�10+1�TNF,�TXF,�TbF,�TlF
 �X+8,Y-16-M%*32:�PRINT(B$):�
E�X-48-32*M%,Y-12:�PRINT(�B$,1)):�X-48-32*M%,Y-44:�PRINT(�B$,1)):�
"!�X-72,Y+40+32*M%:�PRINT(B$):�
,E�X+16+32*M%,Y+68:�PRINT(�B$,1)):�X+16+32*M%,Y+36:�PRINT(�B$,1)):�
6!�X-72,Y-16-32*M%:�PRINT(B$):�
@!�X+12,Y+40+32*M%:�PRINT(B$):�
Ju��GETCOL(N%)�CLS:��dPL:�I%=0�N%-1:�C$:�-320,320-I%*32:�PRINT(�I%+" "+C$):�:�-320,256-I%*32:�PRINT("ENTER CHOICE")
T!�WAIT:A=�A$:�A=0�A$<>"0"�A=-1
^%�A<0�A>N%-1��DTF�A=A+1:�GETLCOL:�
h#��HIGH:�GETCOL(8):�C=0�C=6C=C+8
r��T^E
|C�19,3,C;0;:�0,3:�I%=1�40:�GETDA(I%):�B:�B=A �LOC(I%):�SMBOX(I%)
��:�WAIT:�UNHIGH:�
�A��UNHIGH:�0,0:�I%=1�40:�GETDA(I%):�B:�A=B �LOC(I%):�SMBOX(I%)
�
�:��T@E
��
���GETDA(I%)�(2850+10*I%):�
�6��TITLEDEED(I%)�GETDA(I%):�A:�A>8�A<>13�A<>14��TzG
��LO%(I%)�64��TfG
�&�TDFRAME:�A=13�A=14�Q%=Q%-64:�THG
�4�-160,272:�PRINT("TITLE DEED"):�SPACES(1):�NORTH
�H�CENTRE:�X,208:�PRINT(N$):�0,0:�I%=0�7:�N%(I%):�:N%(8)=N%(0)/2:��ddL
�9X=-288:Y=112:�TYPE("RENT"):�I%=1�8:Y=Y-32:�I%>6Y=Y-32
�s�A$:�TYPE(A$):�Q%,Y:�PRINT("`"+�N%(I%)):�I%=7Y=Y-32:�TYPE("COST HOTEL  `"+�N%(7)):Y=Y-32:�TYPE("PLUS 4 HOUSES")
��:�TzG
_�SPACES(1):�CENTRE:�X,240+24*(A-13):�PRINT(N$):�A=14�-112,216:�PRINT("STATION"):��dnL���dxL
)X=-228:Y=96:�I%=1�12:�A$:�A$=""A$=" "
�TYPE(A$):Y=Y-32:�:�TzG
&�C=A:�CLS:�0,3:�A$,A:�SPACES(1):�19,3,1;0;:�SBAR(320,320):�0,0:�BOX(320,320):�Y=-1�1�2:�-288,288*Y:�288,288*Y:�288,96*Y:�-288,96*Y:�-288,228*Y:�:�-144,208:�C=14N$=N$+" STN"
0t�PRINT("MORTGAGED"):�NORTH:A$=N$+"/ /"+"MORTGAGED FOR `"+�(A/2):Y=48:�TEXT:Y=-132:X=-256:��TBM:�I%=1�4:�N$:�PR:�
:Q%=96:�
D&��GETLCOL:�I%:��dZL:�I%=1�A:�C:�:�
N$��TDFRAME:�CLS:�A<9�GETLCOL �C=7
X^�19,3,C;0;:�0,2-(A>12):�SBAR(320,320):�0,0:�BOX(320,320):�A<13�A<>2�0,3:�HBAR(304,304,144)
b�0,0:�HBOX(304,304,144)
l1�GETDA(I%):�A,A$:�131:�A=1�A=8�2:�0,2��0:�0,0
v�
�A��SPACES(I%):B=�A$,"/",I%):�B=0N$=A$�N$=�A$,B-1)+" "+�A$,B+1)
�A$=N$:�
�%��CENTRE:X=-288+32*((18-�N$)/2):�
�B��NORTH:�N$="NORTHUMBER LAND AVENUE"N$="NORTHUMBERLAND AVENUE"
��
�#��CHANCE:N$="CHANCE":CH=1:�dFG
�(��COMCHEST:N$="COMMUNITY CHEST":CH=0
�cMV=0:�WAIT:�CLS:�19,3,5,5-2*CH;0;:�0,3:�SBAR(320,192):�0,0:�BOX(320,192):Y=128:A$=N$:�TEXT:Y=32
�s�CH%(CHP(CH)+2,CH)A=27:CH%(CHP(CH)+2,CH)=0:JC(CH)=X%�A=CH%(CHP(CH)+1,CH):CHP(CH)=CHP(CH)+2:�CHP(CH)=52CHP(CH)=0
��(3330+10*A):�A$,A1%,A2%
�!�TEXT:�A1%MO(X%)=MO(X%)+A1%:�
�+�A2%=0��TBH�MV=1:�A2%=-3Z%=OPOS(X%)+3:�
�Z%=A2%:�
�A=27��TjH
+B%=0:�I%=1�40:�(LO%(I%)�48)/16<>X%��T`H
+J%=LO%(I%)�7:�J%<5B%=B%+J%*40�B%=B%+115
 ;�:A$="TOTAL COST `"+�B%:Y=-224:�TEXT:MO(X%)=MO(X%)-B%:�
*GJ(X%)=GJ(X%)+1:�JC(CH)=X%
4�
>)��PR:�CENTRE:�X,Y:Y=Y-32:�PRINT(N$):�
H6��HBAR(X,Y,Y1)�X,Y:�X,Y1:�85,-X,Y1:�-X,Y:�85,X,Y:�
R0��HBOX(X,Y,Y1)�X,Y:�X,Y1:�-X,Y1:�-X,Y:�X,Y:�
\��TEXT:I%=0
fL�SPACES(I%+1):�B=0N$=�A$,I%+1):�PR:� �N$=�A$,I%+1,B-I%-1):I%=B:�PR:�DfH
pk��AT(L%)�CLS:K%=0:�0,2:�HBAR(320,320,64):�0,0:�HBOX(320,320,64):Y=256:�GETDA(L%):�A:�A<9�A=13�A=14��d^H
z?�A-8�tDH,�tNH,�tXH,�tbH,�T@@,�T@@,�tlH,�tvH,�d@H,�dJH,�dTH
�A$="GO":�d|H
�A$="COMMUNITY/CHEST":�d|H
�"A$="INCOME/TAX/PAY `200":�d|H
�A$="CHANCE":�d|H
�!A$="JAIL/JUST/VISITING":�d|H
�A$="FREE/PARKING":�d|H
�A$="GO TO/JAIL":�d|H
�!A$="SUPER/TAX/PAY `100":�d|H
�A$="IN/JAIL":�d|H
�Y�A<9�GETLCOL:�19,3,C;0;:�0,3:�HBAR(312,316,224):�0,0:�-320,224:�320,224:Y=192:�HOUSES
�.�GETDA(L%):�J%,A$,J%:�A=14A$=A$+"/STATION"
��TEXT:A$="`"+�J%
�6�TEXT:�A<9�A=13�A=14N%=(LO%(L%)�63)/16:�SALE �N%=4
	�
	A��HOUSES:K%=LO%(L%)�7:�K%=0� ��K%=5A$="HOTEL"�A$=�K%+" HOUSE"
	�K%<5�K%>1A$=A$+"S"
	$�A=1�A=8�0,2��0,0
	./�SPACES(1):�CENTRE:�X,288:�PRINT(N$):�0,0:�
	84��SALE2:�N%=0N$="FOR SALE"�N$="OWNED BY "+N$(N%)
	B�
	L,��SALE:�SALE2:�CENTRE:�X,52:�PRINT(N$):�
	VT��NPOS:�CLS:B$=�N$(X%),2):N%=OPOS(X%):G%=Z%:�G%=41G%=11:NJ=0:DO=0:�D1=D2 Y%=3-X%
	` �Z%=41�N%<32�N%>11ST=-1�ST=1
	j�N%=G%��t\I
	t)�:PG=0:K%=N%:N%=N%+ST:�N%=41N%=1:PG=1
	~Z�0,2:I%=K%:�LOC(I%):�LBOX(X%):�0,0:I%=N%:�1,-7,50,1:�LOC(I%):�LBOX(X%):�PG �GA �NJ �PG
	�*FX15,1
	�A=�25:�N%=G%
	�OPOS(X%)=Z%
	��GA �AT(Z%)
	�
NJ=1:�
	����PG:�19,3,7;0;:�0,3:�HBAR(320,320,192):�0,0:�HBOX(320,320,192):A$="COLLECT `200 SALARY/AS YOU PASS GO":Y=288:�TEXT:MO(X%)=MO(X%)+200:�WAIT:�
	�Y��MONEY:N$=N$(X%):�CENTRE:Y=0:�TYPE(N$):N$="`"+�(�(MO(X%))):�MO(X%)=-1N$="MINUS "+N$
	�0N$=N$+"  "+�GJ(X%):�CENTRE:Y=-32:�TYPE(N$):�
	�	��GET
	��WAIT:�A$<>"Y"�A$<>"N"��dbI
	��
	���TYPE(Z$)�X,Y:�TJJ
��PRINT(Z$)

��E%=1��Z$:�0,-32,0:F%=�(�Z$,E%,1)):�F%=49F%=73��F%=50F%=90��F%=53F%=83��F%=48F%=79��F%=81F%=86:�23,244,7,5,5,5,7,2,3,0��F%=86�23,244,5,5,5,5,5,2,2,0
$�F%=32�" ";��(223+�LE$,�(F%)));
�:�
(��WAIT:*FX15,1
2�1,-7,125,1:A$=�:�
<$��CLS:�0,1:�SBAR(352,356):�0,0:�
F���WARN:�(MO(X%))=-1A$="YOU ARE IN DEBT/ /YOU MUST PAY THIS/BEFORE ROLLING DICE":Y=-96:�TEXT:�WAIT:�0,1:�HBAR(320,-96,-224):�0,0
P�
Z0��PROP(I%,J%)�CLS:�A$:�A=14�A$=A$+"/STATION"
dK%=LO%(I%)�7:�A>8��tBJ
nO�K%=0A$=A$+"/ /NO BUILDINGS"��K%=5A$=A$+"/ /HOTEL"�A$=A$+"/ /"+�K%+" HOUSE"
x�K%<5�K%>1A$=A$+"S"
�#�LO%(I%)�64A$=A$+"/ /MORTGAGED"
�d�J%A$=A$+"/ /PRESS T FOR/TITLE DEED/ELSE ANY OTHER KEY"�N%=(LO%(I%)�48)/16:�SALE2:A$=A$+"/ /"+N$
�Y=320:�TEXT:�WAIT:�
�S��ASK:�CLS:A$="DO YOU WANT JUST/ONE GROUP LISTED":Y=320:�TEXT:�GET:�A$="N"W=0:�
�&�GETCOL(10):W=A:�W=9W=14��W=10W=13
��
�H��ALL(J%)B=-1:�I%=1�40:�GETDA(I%):�C:�C<>J%��d\J�B%=(LO%(I%)�112)/16
��B=-1B=B%��B<>B%B=0
�
�B<>B%B=0
��:�
�=��STNRENT:J%=-1:�I%=6�36�10:�(LO%(I%)�112)/16=3-X%J%=J%+1
��:A=2^J%*25:�
�=��UTRENT:J%=-1:�I%=13�29�16:�(LO%(I%)�112)/16=3-X%J%=J%+1
�:A=(4+6*J%)*(D1+D2):�
���ROLL:�CLS:A$="YOU HAVE ROLLED/ /"+�D1+" AND "+�D2:�DO=3A$=A$+"/ /YOU HAVE THROWN/THREE DOUBLES/ /GO TO JAIL":Z%=41:NJ=0:Y%=3-X%:DO=0��IJ(X%)=0Z%=Z%+D1+D2:�Z%>40Z%=Z%-40
Y=320:�TEXT:��T|E
"�
,�9
6-�1,OLD KENT/ROAD,60,2,10,30,90,160,250,50
@�10
J1�1,WHITECHAPEL/ROAD,60,4,20,60,180,320,450,50
T�11
^�14,KINGS CROSS,200
h1�2,ANGEL/ISLINGTON,100,6,30,90,270,400,550,50
r�12
|-�2,EUSTON/ROAD,100,6,30,90,270,400,550,50
�3�2,PENTONVILLE/ROAD,120,8,40,100,300,450,600,50
��15
�.�3,PALL MALL,140,10,50,150,450,625,750,100
��13,ELECTRIC/COMPANY,150
�.�3,WHITEHALL,140,10,50,150,450,625,750,100
�;�3,NORTHUMBER/LAND AVENUE,160,12,60,180,500,700,900,100
��14,MARYLEBONE,200
�/�4,BOW STREET,180,14,70,200,550,750,950,100
��10
�7�4,MARLBOROUGH/STREET,180,14,70,200,550,750,950,100
�1�4,VINE STREET,200,16,80,220,600,800,1000,100
��16
�,�5,STRAND,220,18,90,250,700,875,1050,150
�12
2�5,FLEET STREET,220,18,90,250,700,875,1050,150
7�5,TRAFALGAR/SQUARE,240,20,100,300,750,925,1100,150
&�14,FENCHURCH ST,200
07�6,LEICESTER/SQUARE,260,22,110,330,800,975,1150,150
:6�6,COVENTRY/STREET,260,22,110,330,800,975,1150,150
D�13,WATER/WORKS,150
N2�6,PICCADILLY,280,22,120,360,850,1025,1200,150
X�17
b5�7,REGENT/STREET,300,26,130,390,900,1100,1275,200
l5�7,OXFORD/STREET,300,26,130,390,900,1100,1275,200
v�10
�4�7,BOND STREET,320,28,150,450,1000,1200,1400,200
��14,LIVERPOOL ST,200
��12
�2�8,PARK LANE,350,35,175,500,1100,1300,1500,200
��18
�0�8,MAYFAIR,400,50,200,600,1400,1700,2000,200
��19
�"�GO,CC,IT,CH,UT,SN,JA,FP,GJ,ST
�F�BLACK,CYAN,MAGENTA,WHITE,RED,YELLOW,GREEN,BLUE,STATIONS,UTILITIES
��0,6,5,7,1,3,2,4,0,0
�K�SITE ONLY,1 HOUSE,2 HOUSES,3 HOUSES,4 HOUSES,HOTEL,COST HOUSE,MORTGAGE
�p�" BRITISH RAIL",,RENT        `25,,  2 STATIONS  `50,,  3 STATIONS `100,,  4 STATIONS `200,,,MORTGAGE   `100
���IF ONE UTILITY,OWNED RENT IS 4,TIMES THAT SHOWN,ON DICE,,IF ALL UTILITIES,OWNED RENT IS 10,TIMES THAT ON,DICE,,,MORTGAGE     `75

>�CARD MUST BE,TURNED THIS SIDE,UP IF PROPERTY,IS MORTGAGED

�SPEEDING FINE `15,-15,0

�DOCTORS FEE/PAY `50,-50,0

 �PAY HOSPTIAL `100,-100,0

*I�YOU ARE ASSESSED/FOR STREET REPAIRS/`40 PER HOUSE/`115 PER HOTEL,0,0

4'�BANK PAYS YOU/DIVIDEND OF `50,50,0

>(�FROM SALE OF STOCK/YOU GET `50,50,0

H�YOU INHERIT `100,100,0

R'�INCOME TAX REFUND/COLLECT `20,20,0

\'�ANNUITY MATURES/COLLECT `100,100,0

f2�YOUR BUILDING LOAN/MATURES/RECEIVE `150,150,0

pA�ADVANCE TO/TRAFALGAR SQUARE/IF YOU PASS GO/COLLECT `200,0,25

z:�ADVANCE TO/PALL MALL/IF YOU PASS GO/COLLECT `200,0,12

��ADVANCE TO MAYFAIR,0,40

��ADVANCE 3 SPACES,0,-3

�%�PAY INTEREST ON/A LOAN/`50,-50,0

�K�TAKE A TRIP TO/MARYLEBONE STATION/AND IF YOU PASS GO/COLLECT `200,0,16

��ADVANCE TO GO,0,1

�#�DRUNK IN CHARGE/FINE `20,-20,0

�)�PAY YOUR INSURANCE/PREMIUM `50,-50,0

�#�PAY SCHOOL FEES/OF `150,-150,0

�2�YOUR BUILDING LOAN/MATURES/RECEIVE `150,150,0

�<�YOU HAVE WON A/CROSSWORD/COMPETITION/COLLECT `100,100,0

�1�BANK ERROR IN YOUR/FAVOUR/COLLECT `200,200,0

�C�YOU HAVE WON/SECOND PRIZE IN A/BEAUTY CONTEST/COLLECT `10,10,0

�7�RECEIVE INTEREST/ON 7PC PREFERENCE/SHARES/`25,25,0
M�GO TO JAIL/MOVE DIRECTLY TO/JAIL/DO NOT PASS GO/DO NOT COLLECT `200,0,41
B�GET OUT OF JAIL/FREE/ /THIS CARD MAY BE/KEPT UNTIL NEEDED,0,0
��ROLL DICE,SHOW COLOUR GROUP,LIST OWNED PROPERTY,LIST ALL PROPERTY,SELL PROPERTY,BUY OR SELL HOUSES,MORTAGE PROPERTY,END GAME
$X�1 PAY `50,2 ROLL DICE AND HOPE,"  FOR DOUBLES",3 USE A GET OUT OF," JAIL FREE CARD"
.:
8	��loc
BR*KEY 0 *TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
L*FX138,0,128
V�
�
00000000  0d 00 0a 0e f4 20 4f 4d  4e 49 50 4f 4c 59 0d 00  |..... OMNIPOLY..|
00000010  14 16 e7 90 3c 3e 26 45  30 30 20 8c 20 fb 30 3a  |....<>&E00 . .0:|
00000020  f2 6c 6f 63 0d 00 1e 05  f4 0d 00 28 21 f4 20 28  |.loc.......(!. (|
00000030  63 29 20 43 6f 70 79 72  69 67 68 74 20 52 69 63  |c) Copyright Ric|
00000040  68 61 72 64 20 53 6d 69  74 68 0d 00 32 11 f4 20  |hard Smith..2.. |
00000050  41 75 67 20 33 31 20 31  39 38 33 0d 00 3c 05 f4  |Aug 31 1983..<..|
00000060  0d 00 46 0b ee 85 e5 8d  44 50 45 0d 00 50 c8 de  |..F.....DPE..P..|
00000070  4e 25 28 38 29 2c 41 24  28 33 30 29 2c 4e 41 4d  |N%(8),A$(30),NAM|
00000080  24 28 39 29 2c 4c 4f 25  28 34 30 29 2c 4e 24 28  |$(9),LO%(40),N$(|
00000090  32 29 2c 4f 50 4f 53 28  32 29 2c 4e 50 4f 53 28  |2),OPOS(2),NPOS(|
000000a0  32 29 2c 4d 4f 28 32 29  2c 49 4a 28 32 29 2c 47  |2),MO(2),IJ(2),G|
000000b0  4a 28 32 29 2c 50 52 28  34 29 2c 50 52 32 28 33  |J(2),PR(4),PR2(3|
000000c0  29 2c 50 52 24 28 33 29  2c 50 24 28 35 29 2c 48  |),PR$(3),P$(5),H|
000000d0  28 33 29 2c 43 48 25 28  35 32 2c 31 29 2c 43 48  |(3),CH%(52,1),CH|
000000e0  50 28 31 29 2c 4a 43 28  31 29 3a 4e 4a 3d 31 3a  |P(1),JC(1):NJ=1:|
000000f0  44 4f 3d 30 3a e3 49 25  3d 30 b8 34 3a 50 24 28  |DO=0:.I%=0.4:P$(|
00000100  49 25 29 3d c3 49 25 3a  ed 3a 50 24 28 35 29 3d  |I%)=.I%:.:P$(5)=|
00000110  22 48 22 3a 41 24 3d c4  31 30 30 2c 22 20 22 29  |"H":A$=.100," ")|
00000120  3a 42 24 3d 41 24 3a 4e  24 3d 41 24 3a 2a 46 58  |:B$=A$:N$=A$:*FX|
00000130  34 2c 31 0d 00 5a 58 41  3d b3 28 2d 91 29 3a e3  |4,1..ZXA=.(-.):.|
00000140  49 25 3d 31 b8 91 20 83  31 30 3a 41 3d b3 28 31  |I%=1.. .10:A=.(1|
00000150  29 3a ed 3a 4c 45 24 3d  22 41 42 43 44 45 46 47  |):.:LE$="ABCDEFG|
00000160  48 49 4a 4b 4c 4d 4e 4f  50 52 53 54 55 56 57 58  |HIJKLMNOPRSTUVWX|
00000170  59 5a 60 33 34 36 37 38  39 22 3a 4f 4b 24 3d 4c  |YZ`346789":OK$=L|
00000180  45 24 2b 22 20 51 31 32  35 30 22 0d 00 64 14 e3  |E$+" Q1250"..d..|
00000190  4b 25 3d 30 b8 31 3a e3  49 25 3d 31 b8 32 36 0d  |K%=0.1:.I%=1.26.|
000001a0  00 6e 33 20 20 4a 25 3d  b3 28 32 36 29 2a 32 2d  |.n3  J%=.(26)*2-|
000001b0  31 3a e7 43 48 25 28 4a  25 2c 4b 25 29 3d 30 43  |1:.CH%(J%,K%)=0C|
000001c0  48 25 28 4a 25 2c 4b 25  29 3d 49 25 8b e5 8d 44  |H%(J%,K%)=I%...D|
000001d0  6e 40 0d 00 78 1b 20 20  ed 3a 43 48 25 28 b3 28  |n@..x.  .:CH%(.(|
000001e0  32 36 29 2a 32 2c 4b 25  29 3d 31 3a ed 0d 00 82  |26)*2,K%)=1:....|
000001f0  85 eb 35 3a ef 31 39 2c  31 2c 32 3b 30 3b 31 39  |..5:.19,1,2;0;19|
00000200  2c 32 2c 36 3b 30 3b 32  39 2c 36 34 30 3b 35 31  |,2,6;0;29,640;51|
00000210  32 3b 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |2;23;8202;0;0;0;|
00000220  35 3a fb 31 32 39 3a fb  30 3a f7 8d 64 46 4c 3a  |5:.129:.0:..dFL:|
00000230  e3 49 25 3d 30 b8 39 3a  f3 4e 41 4d 24 28 49 25  |.I%=0.9:.NAM$(I%|
00000240  29 3a ed 3a f2 42 4f 41  52 44 3a 59 25 3d b3 28  |):.:.BOARD:Y%=.(|
00000250  32 29 3a 41 24 3d 4e 24  28 59 25 29 2b 22 20 53  |2):A$=N$(Y%)+" S|
00000260  54 41 52 54 53 22 3a 59  3d 33 32 30 3a f2 54 45  |TARTS":Y=320:.TE|
00000270  58 54 0d 00 8c 0b ee 85  e5 8d 54 40 45 0d 00 96  |XT........T@E...|
00000280  09 f2 57 41 49 54 0d 00  a0 99 58 25 3d 59 25 3a  |..WAIT....X%=Y%:|
00000290  5a 25 3d 4f 50 4f 53 28  58 25 29 3a 4d 4f 28 58  |Z%=OPOS(X%):MO(X|
000002a0  25 29 3d a8 4d 4f 28 58  25 29 3a f2 41 54 28 5a  |%)=.MO(X%):.AT(Z|
000002b0  25 29 3a f2 4d 4f 4e 45  59 3a f2 57 41 52 4e 3a  |%):.MONEY:.WARN:|
000002c0  f7 8d 54 5a 4e 3a e3 49  25 3d 31 b8 38 3a f3 41  |..TZN:.I%=1.8:.A|
000002d0  24 3a ec 2d 33 33 36 2c  2d 33 32 2a 28 49 25 2b  |$:.-336,-32*(I%+|
000002e0  31 29 3a 41 24 3d c3 49  25 2b 22 20 22 2b 41 24  |1):A$=.I%+" "+A$|
000002f0  3a f2 50 52 49 4e 54 28  41 24 29 3a ed 3a ec 2d  |:.PRINT(A$):.:.-|
00000300  31 36 30 2c 2d 33 32 30  3a f2 50 52 49 4e 54 28  |160,-320:.PRINT(|
00000310  22 45 4e 54 45 52 20 43  48 4f 49 43 45 22 29 0d  |"ENTER CHOICE").|
00000320  00 aa 1d f2 57 41 49 54  3a 42 3d bb 41 24 3a e7  |....WAIT:B=.A$:.|
00000330  42 3c 31 84 42 3e 38 8c  8d 74 6a 40 0d 00 b4 2f  |B<1.B>8..tj@.../|
00000340  ee 42 20 e5 8d 74 7e 40  2c 8d 74 78 41 2c 8d 64  |.B ..t~@,.txA,.d|
00000350  42 41 2c 8d 64 60 41 2c  8d 64 7e 41 2c 8d 44 44  |BA,.d`A,.d~A,.DD|
00000360  42 2c 8d 54 42 43 2c 8d  44 52 43 0d 00 be 14 e7  |B,.TBC,.DRC.....|
00000370  b4 4d 4f 28 58 25 29 3d  2d 31 8c 8d 44 5c 43 0d  |.MO(X%)=-1..D\C.|
00000380  00 c8 18 e7 5a 25 3d 34  31 8c 8d 74 44 43 8b 49  |....Z%=41..tDC.I|
00000390  4a 28 58 25 29 3d 30 0d  00 d2 2e 44 31 3d b3 28  |J(X%)=0....D1=.(|
000003a0  36 29 3a 44 32 3d b3 28  36 29 3a e7 44 31 3c 3e  |6):D2=.(6):.D1<>|
000003b0  44 32 20 59 25 3d 33 2d  58 25 3a 44 4f 3d 30 3a  |D2 Y%=3-X%:DO=0:|
000003c0  e5 8d 64 66 40 0d 00 dc  11 59 25 3d 58 25 3a 44  |..df@....Y%=X%:D|
000003d0  4f 3d 44 4f 2b 31 0d 00  e6 09 f2 52 4f 4c 4c 0d  |O=DO+1.....ROLL.|
000003e0  00 f0 09 f2 57 41 49 54  0d 00 fa 15 4e 50 4f 53  |....WAIT....NPOS|
000003f0  28 58 25 29 3d 5a 25 3a  f2 4e 50 4f 53 0d 01 04  |(X%)=Z%:.NPOS...|
00000400  16 e7 41 3c 3e 31 38 80  41 3c 3e 31 31 f2 4d 4f  |..A<>18.A<>11.MO|
00000410  4e 45 59 0d 01 0e 27 e7  41 3d 31 37 5a 25 3d 34  |NEY...'.A=17Z%=4|
00000420  31 3a e5 8d 64 70 40 8b  e7 41 3c 3e 31 38 80 41  |1:..dp@..A<>18.A|
00000430  3c 3e 31 31 f2 4d 4f 4e  45 59 0d 01 18 18 e7 41  |<>11.MONEY.....A|
00000440  3d 31 30 f2 43 4f 4d 43  48 45 53 54 3a e5 8d 44  |=10.COMCHEST:..D|
00000450  70 43 0d 01 22 16 e7 41  3d 31 32 f2 43 48 41 4e  |pC.."..A=12.CHAN|
00000460  43 45 3a e5 8d 44 70 43  0d 01 2c 0b ee 85 e5 8d  |CE:..DpC..,.....|
00000470  54 40 45 0d 01 36 1c e7  41 3d 39 84 41 3d 31 35  |T@E..6..A=9.A=15|
00000480  84 41 3d 31 36 84 41 3d  31 39 8c 8d 74 56 40 0d  |.A=16.A=19..tV@.|
00000490  01 40 27 e7 41 3d 31 31  4d 4f 28 58 25 29 3d 4d  |.@'.A=11MO(X%)=M|
000004a0  4f 28 58 25 29 2d 32 30  30 3a f2 4d 4f 4e 45 59  |O(X%)-200:.MONEY|
000004b0  3a e5 8d 74 56 40 0d 01  4a 27 e7 41 3d 31 38 4d  |:..tV@..J'.A=18M|
000004c0  4f 28 58 25 29 3d 4d 4f  28 58 25 29 2d 31 30 30  |O(X%)=MO(X%)-100|
000004d0  3a f2 4d 4f 4e 45 59 3a  e5 8d 74 56 40 0d 01 54  |:.MONEY:..tV@..T|
000004e0  16 f2 47 45 54 44 41 28  5a 25 29 3a f3 44 2c 41  |..GETDA(Z%):.D,A|
000004f0  24 2c 41 0d 01 5e 0c e7  4e 25 8c 8d 44 7c 41 0d  |$,A..^..N%..D|A.|
00000500  01 68 3f ec 2d 33 33 36  2c 2d 39 36 3a f2 50 52  |.h?.-336,-96:.PR|
00000510  49 4e 54 28 22 44 4f 20  59 4f 55 20 57 41 4e 54  |INT("DO YOU WANT|
00000520  20 54 4f 20 42 55 59 20  49 54 22 29 3a f2 47 45  | TO BUY IT"):.GE|
00000530  54 3a e7 41 24 3d 22 4e  22 8c 8d 74 60 40 0d 01  |T:.A$="N"..t`@..|
00000540  72 3e 4d 4f 28 58 25 29  3d 4d 4f 28 58 25 29 2d  |r>MO(X%)=MO(X%)-|
00000550  41 3a 4c 4f 25 28 5a 25  29 3d 4c 4f 25 28 5a 25  |A:LO%(Z%)=LO%(Z%|
00000560  29 84 31 36 2a 58 25 3a  f2 54 49 54 4c 45 44 45  |).16*X%:.TITLEDE|
00000570  45 44 28 5a 25 29 3a e5  8d 74 56 40 0d 01 7c 22  |ED(Z%):..tV@..|"|
00000580  e7 4c 4f 25 28 5a 25 29  80 31 36 2a 58 25 84 4c  |.LO%(Z%).16*X%.L|
00000590  4f 25 28 5a 25 29 80 36  34 8c 8d 74 56 40 0d 01  |O%(Z%).64..tV@..|
000005a0  86 1b ec 2d 36 34 2c 2d  39 36 3a f2 50 52 49 4e  |...-64,-96:.PRIN|
000005b0  54 28 22 52 45 4e 54 22  29 0d 01 90 2a e7 44 3d  |T("RENT")...*.D=|
000005c0  31 33 f2 55 54 52 45 4e  54 3a e5 8d 74 6e 41 8b  |13.UTRENT:..tnA.|
000005d0  e7 44 3d 31 34 f2 53 54  4e 52 45 4e 54 3a e5 8d  |.D=14.STNRENT:..|
000005e0  74 6e 41 0d 01 9a 11 e3  49 25 3d 30 b8 4b 25 3a  |tnA.....I%=0.K%:|
000005f0  f3 41 3a ed 0d 01 a4 19  e7 4b 25 3d 30 f2 41 4c  |.A:......K%=0.AL|
00000600  4c 28 44 29 3a e7 42 20  41 3d 41 2a 32 0d 01 ae  |L(D):.B A=A*2...|
00000610  44 41 24 3d 22 60 22 2b  c3 41 3a 59 3d 2d 31 36  |DA$="`"+.A:Y=-16|
00000620  30 3a f2 54 45 58 54 3a  4d 4f 28 33 2d 58 25 29  |0:.TEXT:MO(3-X%)|
00000630  3d 4d 4f 28 33 2d 58 25  29 2b 41 3a 4d 4f 28 58  |=MO(3-X%)+A:MO(X|
00000640  25 29 3d 4d 4f 28 58 25  29 2d 41 3a e5 8d 74 56  |%)=MO(X%)-A:..tV|
00000650  40 0d 01 b8 0f f2 48 49  47 48 3a e5 8d 74 60 40  |@.....HIGH:..t`@|
00000660  0d 01 c2 35 f2 41 53 4b  3a e3 41 25 3d 31 b8 34  |...5.ASK:.A%=1.4|
00000670  30 3a f2 47 45 54 44 41  28 41 25 29 3a f3 41 3a  |0:.GETDA(A%):.A:|
00000680  e7 57 3d 30 8c 8d 64 4c  41 8b e7 41 3c 3e 57 20  |.W=0..dLA..A<>W |
00000690  8c 8d 64 56 41 0d 01 cc  3d 20 20 e7 4c 4f 25 28  |..dVA...=  .LO%(|
000006a0  41 25 29 80 28 58 25 2a  31 36 29 f2 50 52 4f 50  |A%).(X%*16).PROP|
000006b0  28 41 25 2c 31 29 3a e7  41 24 3d 22 54 22 f2 54  |(A%,1):.A$="T".T|
000006c0  49 54 4c 45 44 45 45 44  28 41 25 29 3a f2 57 41  |ITLEDEED(A%):.WA|
000006d0  49 54 0d 01 d6 0d 20 20  ed 3a e5 8d 74 60 40 0d  |IT....  .:..t`@.|
000006e0  01 e0 35 f2 41 53 4b 3a  e3 49 25 3d 31 b8 34 30  |..5.ASK:.I%=1.40|
000006f0  3a f2 47 45 54 44 41 28  49 25 29 3a f3 41 3a e7  |:.GETDA(I%):.A:.|
00000700  41 3e 38 80 41 3c 3e 31  33 80 41 3c 3e 31 34 8c  |A>8.A<>13.A<>14.|
00000710  8d 64 74 41 0d 01 ea 1a  20 20 e7 57 3d 30 84 57  |.dtA....  .W=0.W|
00000720  3d 41 20 f2 50 52 4f 50  28 49 25 2c 30 29 0d 01  |=A .PROP(I%,0)..|
00000730  f4 0d 20 20 ed 3a e5 8d  74 60 40 0d 01 fe 28 f2  |..  .:..t`@...(.|
00000740  43 4c 53 3a f2 47 45 54  50 52 4f 50 3a f2 43 4c  |CLS:.GETPROP:.CL|
00000750  53 3a f2 43 48 45 43 4b  31 3a e7 45 52 20 8c 8d  |S:.CHECK1:.ER ..|
00000760  74 56 40 0d 02 08 17 f2  43 48 45 43 4b 33 3a e7  |tV@.....CHECK3:.|
00000770  20 45 52 20 8c 20 8d 74  56 40 0d 02 12 85 f2 43  | ER . .tV@.....C|
00000780  48 45 43 4b 32 3a 41 24  3d 22 57 48 41 54 20 49  |HECK2:A$="WHAT I|
00000790  53 20 54 48 45 20 41 47  52 45 45 44 2f 53 45 4c  |S THE AGREED/SEL|
000007a0  4c 49 4e 47 20 50 52 49  43 45 22 3a 59 3d 32 32  |LING PRICE":Y=22|
000007b0  34 3a f2 54 45 58 54 3a  f2 49 4e 50 55 54 4e 3a  |4:.TEXT:.INPUTN:|
000007c0  4c 4f 25 28 41 29 3d 4c  4f 25 28 41 29 80 32 30  |LO%(A)=LO%(A).20|
000007d0  37 84 31 36 2a 28 33 2d  58 25 29 3a 4d 4f 28 58  |7.16*(3-X%):MO(X|
000007e0  25 29 3d 4d 4f 28 58 25  29 2b 42 3a 4d 4f 28 33  |%)=MO(X%)+B:MO(3|
000007f0  2d 58 25 29 3d 4d 4f 28  33 2d 58 25 29 2d 42 0d  |-X%)=MO(3-X%)-B.|
00000800  02 1c 17 e7 28 4c 4f 25  28 41 29 80 36 34 29 3d  |....(LO%(A).64)=|
00000810  30 8c 8d 54 7a 42 0d 02  26 6b f2 43 4c 53 3a 58  |0..TzB..&k.CLS:X|
00000820  25 3d 33 2d 58 25 3a 41  24 3d 4e 24 28 58 25 29  |%=3-X%:A$=N$(X%)|
00000830  2b 22 2f 44 4f 20 59 4f  55 20 57 41 4e 54 20 54  |+"/DO YOU WANT T|
00000840  4f 20 4c 49 46 54 2f 54  48 45 20 4d 4f 52 54 47  |O LIFT/THE MORTG|
00000850  41 47 45 20 4e 4f 57 22  3a 59 3d 33 32 30 3a f2  |AGE NOW":Y=320:.|
00000860  54 45 58 54 3a f2 47 45  54 3a e7 41 24 3d 22 59  |TEXT:.GET:.A$="Y|
00000870  22 f2 43 4c 53 3a 46 4c  25 3d 30 3a e5 8d 44 48  |".CLS:FL%=0:..DH|
00000880  43 0d 02 30 6d f2 47 45  54 44 41 28 41 29 3a f3  |C..0m.GETDA(A):.|
00000890  42 2c 41 24 2c 42 3a 41  24 3d 22 59 4f 55 20 53  |B,A$,B:A$="YOU S|
000008a0  54 49 4c 4c 20 48 41 56  45 20 54 4f 20 50 41 59  |TILL HAVE TO PAY|
000008b0  2f 49 4e 54 45 52 45 53  54 20 4f 46 20 60 22 2b  |/INTEREST OF `"+|
000008c0  c3 28 42 2a 2e 30 35 29  3a 4d 4f 28 58 25 29 3d  |.(B*.05):MO(X%)=|
000008d0  4d 4f 28 58 25 29 2d 42  2a 2e 30 35 3a 59 3d 31  |MO(X%)-B*.05:Y=1|
000008e0  39 32 3a f2 54 45 58 54  3a f2 57 41 49 54 0d 02  |92:.TEXT:.WAIT..|
000008f0  3a 1d f2 54 49 54 4c 45  44 45 45 44 28 41 29 3a  |:..TITLEDEED(A):|
00000900  f2 57 41 49 54 3a e5 8d  74 60 40 0d 02 44 54 e3  |.WAIT:..t`@..DT.|
00000910  49 25 3d 31 b8 33 3a 48  28 49 25 29 3d 30 3a ed  |I%=1.3:H(I%)=0:.|
00000920  3a f2 43 4c 53 3a 41 24  3d 22 44 4f 20 59 4f 55  |:.CLS:A$="DO YOU|
00000930  20 57 41 4e 54 20 54 4f  20 53 45 4c 4c 2f 42 55  | WANT TO SELL/BU|
00000940  49 4c 44 49 4e 47 53 22  3a 59 3d 33 32 30 3a f2  |ILDINGS":Y=320:.|
00000950  54 45 58 54 3a f2 47 45  54 3a 42 24 3d 41 24 0d  |TEXT:.GET:B$=A$.|
00000960  02 4e b6 f2 43 4c 53 3a  f2 47 45 54 43 4f 4c 28  |.N..CLS:.GETCOL(|
00000970  38 29 3a f2 43 4c 53 3a  f2 41 4c 4c 28 41 29 3a  |8):.CLS:.ALL(A):|
00000980  e7 42 3c 3e 58 25 41 24  3d 22 59 4f 55 20 44 4f  |.B<>X%A$="YOU DO|
00000990  20 4e 4f 54 20 48 41 56  45 20 54 48 45 2f 45 4e  | NOT HAVE THE/EN|
000009a0  54 49 52 45 20 47 52 4f  55 50 2f 4f 52 20 50 41  |TIRE GROUP/OR PA|
000009b0  52 54 20 4f 46 20 54 48  45 20 47 52 4f 55 50 2f  |RT OF THE GROUP/|
000009c0  49 53 20 4d 4f 52 54 47  41 47 45 44 22 3a 59 3d  |IS MORTGAGED":Y=|
000009d0  33 32 30 3a f2 54 45 58  54 3a e5 8d 74 56 40 8b  |320:.TEXT:..tV@.|
000009e0  41 24 3d 22 45 58 49 53  54 49 4e 47 20 42 55 49  |A$="EXISTING BUI|
000009f0  4c 44 49 4e 47 53 2f 41  4e 44 20 50 52 4f 50 45  |LDINGS/AND PROPE|
00000a00  52 54 59 20 4e 41 4d 45  22 3a 59 3d 33 32 30 3a  |RTY NAME":Y=320:|
00000a10  f2 54 45 58 54 0d 02 58  bb 47 25 3d 30 3a 50 52  |.TEXT..X.G%=0:PR|
00000a20  28 33 29 3d 2d 31 3a 4a  25 3d 30 3a e3 49 25 3d  |(3)=-1:J%=0:.I%=|
00000a30  31 b8 34 30 3a f2 47 45  54 44 41 28 49 25 29 3a  |1.40:.GETDA(I%):|
00000a40  f3 57 3a e7 57 3d 41 20  42 3d 4c 4f 25 28 49 25  |.W:.W=A B=LO%(I%|
00000a50  29 80 37 3a 4a 25 3d 4a  25 2b 31 3a 50 52 28 4a  |).7:J%=J%+1:PR(J|
00000a60  25 29 3d 42 3a 50 52 32  28 4a 25 29 3d 49 25 3a  |%)=B:PR2(J%)=I%:|
00000a70  f3 41 24 2c 52 25 2c 52  25 2c 52 25 2c 52 25 2c  |.A$,R%,R%,R%,R%,|
00000a80  52 25 2c 52 25 2c 52 25  2c 52 25 3a f2 53 50 41  |R%,R%,R%,R%:.SPA|
00000a90  43 45 53 28 31 29 3a f2  4e 4f 52 54 48 3a 50 52  |CES(1):.NORTH:PR|
00000aa0  24 28 4a 25 29 3d 4e 24  3a ec 51 25 2c 32 35 36  |$(J%)=N$:.Q%,256|
00000ab0  2d 33 32 2a 4a 25 3a f2  50 52 49 4e 54 28 50 24  |-32*J%:.PRINT(P$|
00000ac0  28 50 52 28 4a 25 29 29  2b 22 20 22 2b 4e 24 29  |(PR(J%))+" "+N$)|
00000ad0  0d 02 62 0d ed 3a ee 85  e5 8d 44 46 45 0d 02 6c  |..b..:....DFE..l|
00000ae0  3a e7 42 24 3d 22 59 22  8c 8d 74 5e 42 8b 41 24  |:.B$="Y"..t^B.A$|
00000af0  3d 22 48 4f 55 53 45 53  20 43 4f 53 54 20 60 22  |="HOUSES COST `"|
00000b00  2b c3 52 25 2b 22 20 45  41 43 48 22 3a 59 3d 39  |+.R%+" EACH":Y=9|
00000b10  36 3a f2 54 45 58 54 0d  02 76 3b 41 24 3d 22 48  |6:.TEXT..v;A$="H|
00000b20  4f 57 20 4d 41 4e 59 20  48 4f 55 53 45 53 20 44  |OW MANY HOUSES D|
00000b30  4f 2f 59 4f 55 20 57 41  4e 54 20 54 4f 20 42 55  |O/YOU WANT TO BU|
00000b40  49 4c 44 20 4f 4e 22 3a  59 3d 33 32 3a f2 54 45  |ILD ON":Y=32:.TE|
00000b50  58 54 0d 02 80 0c e3 49  25 3d 31 b8 4a 25 0d 02  |XT.....I%=1.J%..|
00000b60  8a 4d 20 20 f2 47 45 54  48 4f 55 53 45 53 3a 48  |.M  .GETHOUSES:H|
00000b70  28 49 25 29 3d 42 3a e7  50 52 28 49 25 29 2b 42  |(I%)=B:.PR(I%)+B|
00000b80  3e 35 ec 2d 31 32 38 2c  2d 31 39 32 3a f2 50 52  |>5.-128,-192:.PR|
00000b90  49 4e 54 28 22 54 4f 4f  20 4d 41 4e 59 22 29 3a  |INT("TOO MANY"):|
00000ba0  f2 57 41 49 54 3a e5 8d  74 4a 42 0d 02 94 09 e5  |.WAIT:..tJB.....|
00000bb0  8d 64 46 42 0d 02 9e 34  52 25 3d 2d 52 25 2f 32  |.dFB...4R%=-R%/2|
00000bc0  3a 41 24 3d 22 48 4f 55  53 45 53 20 41 52 45 20  |:A$="HOUSES ARE |
00000bd0  57 4f 52 54 48 20 60 22  2b c3 2d 52 25 3a 59 3d  |WORTH `"+.-R%:Y=|
00000be0  39 36 3a f2 54 45 58 54  0d 02 a8 3c 41 24 3d 22  |96:.TEXT...<A$="|
00000bf0  48 4f 57 20 4d 41 4e 59  20 48 4f 55 53 45 53 20  |HOW MANY HOUSES |
00000c00  44 4f 2f 59 4f 55 20 57  41 4e 54 20 52 45 4d 4f  |DO/YOU WANT REMO|
00000c10  56 45 44 20 46 52 4f 4d  22 3a 59 3d 33 32 3a f2  |VED FROM":Y=32:.|
00000c20  54 45 58 54 0d 02 b2 0c  e3 49 25 3d 31 b8 4a 25  |TEXT.....I%=1.J%|
00000c30  0d 02 bc 4b f2 47 45 54  48 4f 55 53 45 53 3a 48  |...K.GETHOUSES:H|
00000c40  28 49 25 29 3d 42 3a e7  50 52 28 49 25 29 2d 42  |(I%)=B:.PR(I%)-B|
00000c50  3c 30 ec 2d 31 32 38 2c  2d 31 39 32 3a f2 50 52  |<0.-128,-192:.PR|
00000c60  49 4e 54 28 22 54 4f 4f  20 4d 41 4e 59 22 29 3a  |INT("TOO MANY"):|
00000c70  f2 57 41 49 54 3a e5 8d  74 7c 42 0d 02 c6 05 ed  |.WAIT:..t|B.....|
00000c80  0d 02 d0 33 4c 25 3d 35  3a 48 25 3d 30 3a e3 49  |...3L%=5:H%=0:.I|
00000c90  25 3d 31 b8 4a 25 3a 41  3d 50 52 28 49 25 29 2b  |%=1.J%:A=PR(I%)+|
00000ca0  b4 52 25 2a 48 28 49 25  29 3a e7 41 3c 4c 25 4c  |.R%*H(I%):.A<L%L|
00000cb0  25 3d 41 0d 02 da 0d e7  41 3e 48 25 48 25 3d 41  |%=A.....A>H%H%=A|
00000cc0  0d 02 e4 7f ed 3a e7 48  25 2d 4c 25 3e 31 41 24  |.....:.H%-L%>1A$|
00000cd0  3d 22 42 55 49 4c 44 49  4e 47 53 20 41 52 45 20  |="BUILDINGS ARE |
00000ce0  4e 4f 54 2f 44 49 53 54  52 49 42 55 54 45 44 20  |NOT/DISTRIBUTED |
00000cf0  45 56 45 4e 4c 59 22 3a  59 3d 2d 31 39 32 3a f2  |EVENLY":Y=-192:.|
00000d00  54 45 58 54 3a f2 57 41  49 54 3a e6 30 2c 31 3a  |TEXT:.WAIT:.0,1:|
00000d10  f2 48 42 41 52 28 2d 33  32 30 2c 2d 36 34 2c 2d  |.HBAR(-320,-64,-|
00000d20  32 35 36 29 3a e6 30 2c  30 3a ee b4 52 25 2b 32  |256):.0,0:..R%+2|
00000d30  e5 8d 74 72 42 2c 8d 54  40 40 2c 8d 74 40 42 0d  |..trB,.T@@,.t@B.|
00000d40  02 ee 5e e3 49 25 3d 31  b8 4a 25 3a 4c 4f 25 28  |..^.I%=1.J%:LO%(|
00000d50  50 52 32 28 49 25 29 29  3d 4c 4f 25 28 50 52 32  |PR2(I%))=LO%(PR2|
00000d60  28 49 25 29 29 80 32 34  38 84 28 50 52 28 49 25  |(I%)).248.(PR(I%|
00000d70  29 2b b4 52 25 2a 48 28  49 25 29 29 3a 4d 4f 28  |)+.R%*H(I%)):MO(|
00000d80  58 25 29 3d 4d 4f 28 58  25 29 2d 52 25 2a 48 28  |X%)=MO(X%)-R%*H(|
00000d90  49 25 29 3a ed 3a ee 85  e5 8d 54 40 45 0d 02 f8  |I%):.:....T@E...|
00000da0  09 e5 8d 74 60 40 0d 03  02 49 46 4c 25 3d 31 3a  |...t`@...IFL%=1:|
00000db0  f2 43 4c 53 3a 41 24 3d  22 44 4f 20 59 4f 55 20  |.CLS:A$="DO YOU |
00000dc0  57 41 4e 54 20 54 4f 20  4c 49 46 54 2f 41 20 4d  |WANT TO LIFT/A M|
00000dd0  4f 52 54 47 41 47 45 22  3a 59 3d 33 32 30 3a f2  |ORTGAGE":Y=320:.|
00000de0  54 45 58 54 3a f2 47 45  54 3a 42 24 3d 41 24 0d  |TEXT:.GET:B$=A$.|
00000df0  03 0c 29 f2 47 45 54 50  52 4f 50 3a f2 43 4c 53  |..).GETPROP:.CLS|
00000e00  3a f2 43 48 45 43 4b 31  3a e7 45 52 20 f2 57 41  |:.CHECK1:.ER .WA|
00000e10  49 54 3a e5 8d 54 4c 43  0d 03 16 10 e7 42 24 3d  |IT:..TLC.....B$=|
00000e20  22 59 22 8c 8d 54 7e 43  0d 03 20 1c f2 43 48 45  |"Y"..T~C.. ..CHE|
00000e30  43 4b 32 3a e7 20 45 52  20 f2 57 41 49 54 3a e5  |CK2:. ER .WAIT:.|
00000e40  8d 54 4c 43 0d 03 2a 1c  f2 43 48 45 43 4b 33 3a  |.TLC..*..CHECK3:|
00000e50  e7 20 45 52 20 f2 57 41  49 54 3a e5 8d 54 4c 43  |. ER .WAIT:..TLC|
00000e60  0d 03 34 52 4c 4f 25 28  41 29 3d 4c 4f 25 28 41  |..4RLO%(A)=LO%(A|
00000e70  29 84 36 34 3a f2 47 45  54 44 41 28 41 29 3a f3  |).64:.GETDA(A):.|
00000e80  42 2c 41 24 2c 42 3a 4d  4f 28 58 25 29 3d 4d 4f  |B,A$,B:MO(X%)=MO|
00000e90  28 58 25 29 2b 42 2f 32  3a f2 54 49 54 4c 45 44  |(X%)+B/2:.TITLED|
00000ea0  45 45 44 28 41 29 3a f2  57 41 49 54 3a e5 8d 54  |EED(A):.WAIT:..T|
00000eb0  4c 43 0d 03 3e 1c f2 43  48 45 43 4b 34 3a e7 20  |LC..>..CHECK4:. |
00000ec0  45 52 20 f2 57 41 49 54  3a e5 8d 54 4c 43 0d 03  |ER .WAIT:..TLC..|
00000ed0  48 5f 4c 4f 25 28 41 29  3d 4c 4f 25 28 41 29 80  |H_LO%(A)=LO%(A).|
00000ee0  31 39 31 3a f2 47 45 54  44 41 28 41 29 3a f3 42  |191:.GETDA(A):.B|
00000ef0  2c 41 24 2c 42 3a 4d 4f  28 58 25 29 3d 4d 4f 28  |,A$,B:MO(X%)=MO(|
00000f00  58 25 29 2d 2e 35 35 2a  42 3a f2 54 49 54 4c 45  |X%)-.55*B:.TITLE|
00000f10  44 45 45 44 28 41 29 3a  f2 57 41 49 54 3a e7 46  |DEED(A):.WAIT:.F|
00000f20  4c 25 8c 8d 54 4c 43 8b  e5 8d 74 60 40 0d 03 52  |L%..TLC...t`@..R|
00000f30  62 f2 43 4c 53 3a 41 24  3d 22 41 52 45 20 59 4f  |b.CLS:A$="ARE YO|
00000f40  55 20 53 55 52 45 20 59  4f 55 2f 57 41 4e 54 20  |U SURE YOU/WANT |
00000f50  54 4f 20 45 4e 44 2f 20  2f 59 4f 55 20 57 49 4c  |TO END/ /YOU WIL|
00000f60  4c 20 4c 4f 53 45 2f 49  46 20 59 4f 55 20 44 4f  |L LOSE/IF YOU DO|
00000f70  22 3a 59 3d 33 32 30 3a  f2 54 45 58 54 3a f2 47  |":Y=320:.TEXT:.G|
00000f80  45 54 3a e7 41 24 3d 22  4e 22 8c 8d 74 60 40 0d  |ET:.A$="N"..t`@.|
00000f90  03 5c 43 f2 43 4c 53 3a  41 24 3d 4e 24 28 33 2d  |.\C.CLS:A$=N$(3-|
00000fa0  58 25 29 2b 22 2f 20 2f  49 53 20 54 48 45 20 57  |X%)+"/ /IS THE W|
00000fb0  49 4e 4e 45 52 22 3a 59  3d 33 32 30 3a f2 54 45  |INNER":Y=320:.TE|
00000fc0  58 54 3a f2 57 41 49 54  3a eb 37 3a 2a 46 58 34  |XT:.WAIT:.7:*FX4|
00000fd0  2c 30 0d 03 66 05 e0 0d  03 70 15 e7 4d 56 20 8c  |,0..f....p..MV .|
00000fe0  8d 64 70 40 8b ee 85 e5  8d 54 40 45 0d 03 7a 1e  |.dp@.....T@E..z.|
00000ff0  f2 57 41 49 54 3a f2 41  54 28 5a 25 29 3a f2 4d  |.WAIT:.AT(Z%):.M|
00001000  4f 4e 45 59 3a e5 8d 74  56 40 0d 03 84 82 44 4f  |ONEY:..tV@....DO|
00001010  3d 30 3a 49 4a 28 58 25  29 3d 49 4a 28 58 25 29  |=0:IJ(X%)=IJ(X%)|
00001020  2b 31 3a e6 30 2c 31 3a  f2 48 42 41 52 28 33 35  |+1:.0,1:.HBAR(35|
00001030  32 2c 2d 36 34 2c 2d 33  35 36 29 3a e6 30 2c 30  |2,-64,-356):.0,0|
00001040  3a 4e 24 3d 22 59 4f 55  20 41 52 45 20 49 4e 20  |:N$="YOU ARE IN |
00001050  4a 41 49 4c 22 3a f2 43  45 4e 54 52 45 3a ec 58  |JAIL":.CENTRE:.X|
00001060  2c 2d 36 34 3a f2 50 52  49 4e 54 28 4e 24 29 3a  |,-64:.PRINT(N$):|
00001070  f7 8d 54 64 4e 3a 41 3d  33 3a 42 3d 32 3a e7 47  |..TdN:A=3:B=2:.G|
00001080  4a 28 58 25 29 41 3d 35  3a 42 3d 33 0d 03 8e 55  |J(X%)A=5:B=3...U|
00001090  e3 49 25 3d 31 b8 41 3a  f3 41 24 3a ec 2d 33 32  |.I%=1.A:.A$:.-32|
000010a0  30 2c 2d 33 32 2a 28 49  25 2b 33 29 3a f2 50 52  |0,-32*(I%+3):.PR|
000010b0  49 4e 54 28 41 24 29 3a  ed 3a ec 2d 31 36 30 2c  |INT(A$):.:.-160,|
000010c0  2d 33 32 2a 28 49 25 2b  34 29 3a f2 50 52 49 4e  |-32*(I%+4):.PRIN|
000010d0  54 28 22 45 4e 54 45 52  20 43 48 4f 49 43 45 22  |T("ENTER CHOICE"|
000010e0  29 0d 03 98 20 f2 57 41  49 54 3a 41 3d bb 28 41  |)... .WAIT:A=.(A|
000010f0  24 29 3a e7 41 3c 31 84  41 3e 42 20 8c 8d 74 58  |$):.A<1.A>B ..tX|
00001100  43 0d 03 a2 16 ee 41 20  e5 8d 74 6c 43 2c 8d 64  |C.....A ..tlC,.d|
00001110  40 43 2c 8d 64 72 43 0d  03 ac 14 4d 4f 28 58 25  |@C,.drC....MO(X%|
00001120  29 3d 4d 4f 28 58 25 29  2d 35 30 0d 03 b6 2c 59  |)=MO(X%)-50...,Y|
00001130  25 3d 33 2d 58 25 3a 49  4a 28 58 25 29 3d 30 3a  |%=3-X%:IJ(X%)=0:|
00001140  4f 50 4f 53 28 58 25 29  3d 31 31 3a 5a 25 3d 31  |OPOS(X%)=11:Z%=1|
00001150  31 3a e5 8d 64 52 40 0d  03 c0 31 44 31 3d b3 28  |1:..dR@...1D1=.(|
00001160  36 29 3a 44 32 3d b3 28  36 29 3a f2 52 4f 4c 4c  |6):D2=.(6):.ROLL|
00001170  3a e7 44 31 3d 44 32 20  59 25 3d 58 25 3a 44 4f  |:.D1=D2 Y%=X%:DO|
00001180  3d 31 3a e5 8d 64 5e 43  0d 03 ca 4d 59 25 3d 33  |=1:..d^C...MY%=3|
00001190  2d 58 25 3a e7 49 4a 28  58 25 29 3d 33 41 24 3d  |-X%:.IJ(X%)=3A$=|
000011a0  22 59 4f 55 20 4d 55 53  54 20 50 41 59 20 60 35  |"YOU MUST PAY `5|
000011b0  30 22 3a 59 3d 31 39 32  3a f2 54 45 58 54 3a 4d  |0":Y=192:.TEXT:M|
000011c0  4f 28 58 25 29 3d 4d 4f  28 58 25 29 2d 35 30 3a  |O(X%)=MO(X%)-50:|
000011d0  e5 8d 64 68 43 0d 03 d4  09 e5 8d 74 56 40 0d 03  |..dhC......tV@..|
000011e0  de 09 59 25 3d 58 25 0d  03 e8 2a 4f 50 4f 53 28  |..Y%=X%...*OPOS(|
000011f0  58 25 29 3d 31 31 3a 5a  25 3d 31 31 2b 44 31 2b  |X%)=11:Z%=11+D1+|
00001200  44 32 3a 49 4a 28 58 25  29 3d 30 3a e5 8d 64 70  |D2:IJ(X%)=0:..dp|
00001210  40 0d 03 f2 45 47 4a 28  58 25 29 3d 47 4a 28 58  |@...EGJ(X%)=GJ(X|
00001220  25 29 2d 31 3a e7 4a 43  28 30 29 3d 58 25 4a 25  |%)-1:.JC(0)=X%J%|
00001230  3d 30 8b 4a 25 3d 31 3a  4a 43 28 4a 25 29 3d 30  |=0.J%=1:JC(J%)=0|
00001240  3a 49 25 3d 43 48 50 28  4a 25 29 3a e7 49 25 3d  |:I%=CHP(J%):.I%=|
00001250  30 49 25 3d 35 32 0d 03  fc 10 43 48 25 28 49 25  |0I%=52....CH%(I%|
00001260  2c 4a 25 29 3d 31 0d 04  06 09 e5 8d 74 76 43 0d  |,J%)=1......tvC.|
00001270  04 10 35 dd f2 47 45 54  50 52 4f 50 3a f2 47 45  |..5..GETPROP:.GE|
00001280  54 43 4f 4c 28 31 30 29  3a f2 43 4c 53 3a 57 3d  |TCOL(10):.CLS:W=|
00001290  41 3a e7 41 3d 39 57 3d  31 34 8b e7 41 3d 31 30  |A:.A=9W=14..A=10|
000012a0  57 3d 31 33 0d 04 1a 76  4a 25 3d 30 3a e3 49 25  |W=13...vJ%=0:.I%|
000012b0  3d 31 b8 34 30 3a f2 47  45 54 44 41 28 49 25 29  |=1.40:.GETDA(I%)|
000012c0  3a f3 41 3a e7 57 3d 41  20 f3 20 41 24 3a f2 53  |:.A:.W=A . A$:.S|
000012d0  50 41 43 45 53 28 31 29  3a f2 4e 4f 52 54 48 3a  |PACES(1):.NORTH:|
000012e0  4a 25 3d 4a 25 2b 31 3a  4e 24 3d c3 4a 25 2b 22  |J%=J%+1:N$=.J%+"|
000012f0  20 22 2b 4e 24 3a ec 2d  33 32 30 2c 33 35 32 2d  | "+N$:.-320,352-|
00001300  4a 25 2a 33 32 3a f2 50  52 49 4e 54 28 4e 24 29  |J%*32:.PRINT(N$)|
00001310  3a 50 52 28 4a 25 29 3d  49 25 0d 04 24 2c ed 3a  |:PR(J%)=I%..$,.:|
00001320  ec 2d 33 32 30 2c 32 38  38 2d 33 32 2a 4a 25 3a  |.-320,288-32*J%:|
00001330  f2 50 52 49 4e 54 28 22  45 4e 54 45 52 20 43 48  |.PRINT("ENTER CH|
00001340  4f 49 43 45 22 29 0d 04  2e 1e f2 57 41 49 54 3a  |OICE").....WAIT:|
00001350  41 3d bb 41 24 3a e7 41  3c 31 84 41 3e 4a 25 8c  |A=.A$:.A<1.A>J%.|
00001360  8d 54 6e 44 0d 04 38 0d  41 3d 50 52 28 41 29 3a  |.TnD..8.A=PR(A):|
00001370  e1 0d 04 42 57 dd f2 43  48 45 43 4b 31 3a 45 52  |...BW..CHECK1:ER|
00001380  3d 30 3a e7 28 4c 4f 25  28 41 29 80 34 38 29 2f  |=0:.(LO%(A).48)/|
00001390  31 36 3c 3e 58 25 41 24  3d 22 59 4f 55 20 44 4f  |16<>X%A$="YOU DO|
000013a0  20 4e 4f 54 20 4f 57 4e  20 54 48 49 53 2f 50 52  | NOT OWN THIS/PR|
000013b0  4f 50 45 52 54 59 22 3a  59 3d 33 32 30 3a f2 54  |OPERTY":Y=320:.T|
000013c0  45 58 54 3a 45 52 3d 31  0d 04 4c 05 e1 0d 04 56  |EXT:ER=1..L....V|
000013d0  4c dd f2 43 48 45 43 4b  32 3a 45 52 3d 30 3a e7  |L..CHECK2:ER=0:.|
000013e0  4c 4f 25 28 41 29 80 36  34 41 24 3d 22 54 48 49  |LO%(A).64A$="THI|
000013f0  53 20 50 52 4f 50 45 52  54 59 20 49 53 2f 4d 4f  |S PROPERTY IS/MO|
00001400  52 54 47 41 47 45 44 22  3a 59 3d 33 32 30 3a f2  |RTGAGED":Y=320:.|
00001410  54 45 58 54 3a 45 52 3d  31 0d 04 60 05 e1 0d 04  |TEXT:ER=1..`....|
00001420  6a 51 dd f2 43 48 45 43  4b 33 3a 45 52 3d 30 3a  |jQ..CHECK3:ER=0:|
00001430  e7 4c 4f 25 28 41 29 80  37 41 24 3d 22 54 48 45  |.LO%(A).7A$="THE|
00001440  52 45 20 41 52 45 20 42  55 49 4c 44 49 4e 47 53  |RE ARE BUILDINGS|
00001450  2f 4f 4e 20 54 48 49 53  20 53 49 54 45 22 3a 59  |/ON THIS SITE":Y|
00001460  3d 33 32 30 3a f2 54 45  58 54 3a 45 52 3d 31 0d  |=320:.TEXT:ER=1.|
00001470  04 74 05 e1 0d 04 7e 54  dd f2 43 48 45 43 4b 34  |.t....~T..CHECK4|
00001480  3a 45 52 3d 30 3a e7 28  4c 4f 25 28 41 29 80 36  |:ER=0:.(LO%(A).6|
00001490  34 29 3d 30 41 24 3d 22  54 48 49 53 20 50 52 4f  |4)=0A$="THIS PRO|
000014a0  50 45 52 54 59 20 49 53  2f 4e 4f 54 20 4d 4f 52  |PERTY IS/NOT MOR|
000014b0  54 47 41 47 45 44 22 3a  59 3d 33 32 30 3a f2 54  |TGAGED":Y=320:.T|
000014c0  45 58 54 3a 45 52 3d 31  0d 04 88 05 e1 0d 04 92  |EXT:ER=1........|
000014d0  29 dd f2 49 4e 50 55 54  4e 3a 58 3d 2d 39 36 3a  |)..INPUTN:X=-96:|
000014e0  59 3d 31 32 38 3a f2 54  59 50 45 28 22 60 22 29  |Y=128:.TYPE("`")|
000014f0  3a 58 3d 2d 36 34 0d 04  9c 46 ec 58 2c 59 3a f2  |:X=-64...F.X,Y:.|
00001500  49 4e 50 55 54 3a 42 3d  bb 42 24 3a e7 42 24 3c  |INPUT:B=.B$:.B$<|
00001510  3e c3 42 20 84 20 42 3e  39 39 39 39 20 8c e6 30  |>.B . B>9999 ..0|
00001520  2c 31 3a ec 58 2c 59 3a  f2 54 59 50 45 28 42 24  |,1:.X,Y:.TYPE(B$|
00001530  29 3a e6 30 2c 30 3a e5  8d 74 5c 44 0d 04 a6 05  |):.0,0:..t\D....|
00001540  e1 0d 04 b0 22 dd f2 49  4e 50 55 54 54 45 58 54  |...."..INPUTTEXT|
00001550  3a ec 2d 31 36 30 2c 32  32 34 3a f2 49 4e 50 55  |:.-160,224:.INPU|
00001560  54 3a e1 0d 04 ba 11 dd  f2 49 4e 50 55 54 3a 42  |T:.......INPUT:B|
00001570  24 3d 22 22 0d 04 c4 17  f2 57 41 49 54 3a e7 97  |$="".....WAIT:..|
00001580  41 24 3c 3e 31 33 8c 8d  64 58 44 0d 04 ce 11 e7  |A$<>13..dXD.....|
00001590  42 24 3d 22 22 8c 8d 64  44 44 8b e1 0d 04 d8 50  |B$=""..dDD.....P|
000015a0  e7 97 41 24 3d 31 32 37  80 a9 42 24 3e 30 e6 30  |..A$=127..B$>0.0|
000015b0  2c 31 3a f0 30 2c 2d 33  32 2c 30 3a f2 50 52 49  |,1:.0,-32,0:.PRI|
000015c0  4e 54 28 c2 42 24 2c 31  29 29 3a 42 24 3d c0 42  |NT(.B$,1)):B$=.B|
000015d0  24 2c a9 42 24 2d 31 29  3a e6 30 2c 30 3a f0 30  |$,.B$-1):.0,0:.0|
000015e0  2c 2d 33 32 2c 30 3a e5  8d 64 44 44 0d 04 e2 1b  |,-32,0:..dDD....|
000015f0  e7 a7 4f 4b 24 2c 41 24  29 3d 30 84 a9 42 24 3d  |..OK$,A$)=0..B$=|
00001600  31 30 8c 8d 64 44 44 0d  04 ec 1d 42 24 3d 42 24  |10..dDD....B$=B$|
00001610  2b 41 24 3a f2 50 52 49  4e 54 28 41 24 29 3a e5  |+A$:.PRINT(A$):.|
00001620  8d 64 44 44 0d 04 f6 65  dd f2 47 45 54 48 4f 55  |.dDD...e..GETHOU|
00001630  53 45 53 3a e6 30 2c 31  3a f2 48 42 41 52 28 33  |SES:.0,1:.HBAR(3|
00001640  32 30 2c 2d 36 34 2c 2d  32 35 36 29 3a e6 30 2c  |20,-64,-256):.0,|
00001650  30 3a 4e 24 3d 50 52 24  28 49 25 29 3a f2 43 45  |0:N$=PR$(I%):.CE|
00001660  4e 54 52 45 3a ec 58 2c  2d 36 34 3a f2 50 52 49  |NTRE:.X,-64:.PRI|
00001670  4e 54 28 4e 24 29 3a 58  3d 2d 33 32 3a 59 3d 2d  |NT(N$):X=-32:Y=-|
00001680  31 32 38 3a e5 8d 74 5c  44 0d 05 00 0e e7 9f 3d  |128:..t\D......=|
00001690  31 37 8c 8d 74 60 40 0d  05 0a 1f eb 36 3a f6 3a  |17..t`@.....6:.:|
000016a0  f1 22 20 69 6e 20 6c 69  6e 65 20 22 3b 9e 3a 2a  |." in line ";.:*|
000016b0  46 58 20 34 2c 30 0d 05  14 05 e0 0d 05 1e 0f e7  |FX 4,0..........|
000016c0  9f 3c 3e 31 37 8c 8d 54  4a 45 0d 05 28 13 f2 55  |.<>17..TJE..(..U|
000016d0  4e 48 49 47 48 3a ee 85  e5 8d 54 40 45 0d 05 32  |NHIGH:....T@E..2|
000016e0  09 e5 8d 74 60 40 0d 05  3c 14 e7 9f 3d 31 37 8c  |...t`@..<...=17.|
000016f0  8d 64 7a 40 8b e5 8d 54  4a 45 0d 05 46 14 e7 9f  |.dz@...TJE..F...|
00001700  3d 31 37 8c 8d 64 50 42  8b e5 8d 54 4a 45 0d 05  |=17..dPB...TJE..|
00001710  50 11 e7 9f 3d 31 37 f9  20 8b e5 8d 54 4a 45 0d  |P...=17. ...TJE.|
00001720  05 5a 68 dd f2 42 4f 41  52 44 3a e6 30 2c 31 3a  |.Zh..BOARD:.0,1:|
00001730  f2 53 42 41 52 28 35 31  32 2c 35 31 32 29 3a e6  |.SBAR(512,512):.|
00001740  30 2c 32 3a f2 53 42 41  52 28 34 38 30 2c 34 38  |0,2:.SBAR(480,48|
00001750  30 29 3a e6 30 2c 31 3a  f2 53 42 41 52 28 33 36  |0):.0,1:.SBAR(36|
00001760  30 2c 33 36 30 29 3a e6  30 2c 30 3a f2 42 4f 58  |0,360):.0,0:.BOX|
00001770  28 34 38 30 2c 34 38 30  29 3a f2 42 4f 58 28 33  |(480,480):.BOX(3|
00001780  36 30 2c 33 36 30 29 0d  05 64 50 e3 59 3d 2d 33  |60,360)..dP.Y=-3|
00001790  36 30 b8 33 36 30 88 38  30 3a ec 2d 34 38 30 2c  |60.360.80:.-480,|
000017a0  59 3a df 2d 33 36 30 2c  59 3a ec 59 2c 34 38 30  |Y:.-360,Y:.Y,480|
000017b0  3a df 59 2c 33 36 30 3a  ec 34 38 30 2c 59 3a df  |:.Y,360:.480,Y:.|
000017c0  33 36 30 2c 59 3a ec 59  2c 2d 34 38 30 3a df 59  |360,Y:.Y,-480:.Y|
000017d0  2c 2d 33 36 30 3a ed 0d  05 6e 3b e3 49 25 3d 31  |,-360:...n;.I%=1|
000017e0  b8 34 30 3a f2 47 45 54  44 41 28 49 25 29 3a f3  |.40:.GETDA(I%):.|
000017f0  41 3a f2 4c 4f 43 28 49  25 29 3a e7 41 3c 39 f2  |A:.LOC(I%):.A<9.|
00001800  53 4d 42 4f 58 28 49 25  29 8b f2 4e 41 4d 28 49  |SMBOX(I%)..NAM(I|
00001810  25 29 0d 05 78 89 ed 3a  47 41 3d 30 3a e3 58 25  |%)..x..:GA=0:.X%|
00001820  3d 31 b8 32 3a 4d 4f 28  58 25 29 3d 31 35 30 30  |=1.2:MO(X%)=1500|
00001830  3a f2 43 4c 53 3a 41 24  3d 22 57 48 41 54 20 49  |:.CLS:A$="WHAT I|
00001840  53 20 54 48 45 20 4e 41  4d 45 20 4f 46 2f 50 4c  |S THE NAME OF/PL|
00001850  41 59 45 52 20 22 2b c3  58 25 3a 59 3d 33 32 30  |AYER "+.X%:Y=320|
00001860  3a f2 54 45 58 54 3a f2  49 4e 50 55 54 54 45 58  |:.TEXT:.INPUTTEX|
00001870  54 3a 4e 24 28 58 25 29  3d 42 24 3a 4f 50 4f 53  |T:N$(X%)=B$:OPOS|
00001880  28 58 25 29 3d 34 30 3a  5a 25 3d 31 3a f2 4e 50  |(X%)=40:Z%=1:.NP|
00001890  4f 53 3a ed 3a 47 41 3d  31 3a e1 0d 05 82 33 dd  |OS:.:GA=1:....3.|
000018a0  f2 53 42 41 52 28 58 2c  59 29 ec 58 2c 59 3a ec  |.SBAR(X,Y).X,Y:.|
000018b0  58 2c 2d 59 3a f0 38 35  2c 2d 58 2c 2d 59 3a ec  |X,-Y:.85,-X,-Y:.|
000018c0  2d 58 2c 59 3a f0 38 35  2c 58 2c 59 3a e1 0d 05  |-X,Y:.85,X,Y:...|
000018d0  8c 2c dd f2 42 4f 58 28  58 2c 59 29 ec 58 2c 59  |.,..BOX(X,Y).X,Y|
000018e0  3a df 58 2c 2d 59 3a df  2d 58 2c 2d 59 3a df 2d  |:.X,-Y:.-X,-Y:.-|
000018f0  58 2c 59 3a df 58 2c 59  3a e1 0d 05 96 40 dd f2  |X,Y:.X,Y:....@..|
00001900  4c 4f 43 28 49 25 29 53  3d 28 49 25 2d 31 29 83  |LOC(I%)S=(I%-1).|
00001910  31 30 2a 38 30 2d 33 36  30 3a ee 28 49 25 2d 31  |10*80-360:.(I%-1|
00001920  29 81 31 30 2b 31 e5 8d  74 60 45 2c 8d 74 6a 45  |).10+1..t`E,.tjE|
00001930  2c 8d 74 74 45 2c 8d 74  7e 45 0d 05 a0 11 58 3d  |,.ttE,.t~E....X=|
00001940  2d 53 3a 59 3d 2d 33 36  30 3a e1 0d 05 aa 10 58  |-S:Y=-360:.....X|
00001950  3d 2d 33 36 30 3a 59 3d  53 3a e1 0d 05 b4 0f 58  |=-360:Y=S:.....X|
00001960  3d 53 3a 59 3d 33 36 30  3a e1 0d 05 be 10 58 3d  |=S:Y=360:.....X=|
00001970  33 36 30 3a 59 3d 2d 53  3a e1 0d 05 c8 2f dd f2  |360:Y=-S:..../..|
00001980  53 4d 42 4f 58 28 49 25  29 ee 28 49 25 2d 31 29  |SMBOX(I%).(I%-1)|
00001990  81 31 30 2b 31 e5 8d 64  52 45 2c 8d 64 5c 45 2c  |.10+1..dRE,.d\E,|
000019a0  8d 64 66 45 2c 8d 64 70  45 0d 05 d2 3c ec 58 2b  |.dfE,.dpE...<.X+|
000019b0  38 2c 59 2d 34 3a ec 58  2b 37 32 2c 59 2d 34 3a  |8,Y-4:.X+72,Y-4:|
000019c0  f0 38 35 2c 58 2b 37 32  2c 59 2d 34 30 3a ec 58  |.85,X+72,Y-40:.X|
000019d0  2b 38 2c 59 2d 34 30 3a  f0 38 35 2c 58 2b 38 2c  |+8,Y-40:.85,X+8,|
000019e0  59 2d 34 3a e1 0d 05 dc  3c ec 58 2d 38 2c 59 2d  |Y-4:....<.X-8,Y-|
000019f0  34 3a ec 58 2d 38 2c 59  2d 37 36 3a f0 38 35 2c  |4:.X-8,Y-76:.85,|
00001a00  58 2d 34 30 2c 59 2d 37  36 3a ec 58 2d 34 30 2c  |X-40,Y-76:.X-40,|
00001a10  59 2d 34 3a f0 38 35 2c  58 2b 38 2c 59 2d 34 3a  |Y-4:.85,X+8,Y-4:|
00001a20  e1 0d 05 e6 3c ec 58 2d  38 2c 59 2b 34 3a ec 58  |....<.X-8,Y+4:.X|
00001a30  2d 37 32 2c 59 2b 34 3a  f0 38 35 2c 58 2d 37 32  |-72,Y+4:.85,X-72|
00001a40  2c 59 2b 34 30 3a ec 58  2d 38 2c 59 2b 34 30 3a  |,Y+40:.X-8,Y+40:|
00001a50  f0 38 35 2c 58 2d 38 2c  59 2b 34 3a e1 0d 05 f0  |.85,X-8,Y+4:....|
00001a60  3c ec 58 2b 38 2c 59 2b  34 3a ec 58 2b 38 2c 59  |<.X+8,Y+4:.X+8,Y|
00001a70  2b 37 36 3a f0 38 35 2c  58 2b 34 30 2c 59 2b 37  |+76:.85,X+40,Y+7|
00001a80  36 3a ec 58 2b 34 30 2c  59 2b 34 3a f0 38 35 2c  |6:.X+40,Y+4:.85,|
00001a90  58 2b 38 2c 59 2b 34 3a  e1 0d 05 fa 24 dd f2 4e  |X+8,Y+4:....$..N|
00001aa0  41 4d 28 49 25 29 42 24  3d 4e 41 4d 24 28 41 2d  |AM(I%)B$=NAM$(A-|
00001ab0  39 29 3a f2 4c 42 4f 58  28 30 29 3a e1 0d 06 04  |9):.LBOX(0):....|
00001ac0  47 dd f2 4c 42 4f 58 28  4d 25 29 3a e7 49 25 3d  |G..LBOX(M%):.I%=|
00001ad0  31 31 8c 8d 54 76 46 8b  e7 49 25 3d 33 31 8c 8d  |11..TvF..I%=31..|
00001ae0  44 40 46 8b ee 28 49 25  2d 31 29 81 31 30 2b 31  |D@F..(I%-1).10+1|
00001af0  e5 8d 54 4e 46 2c 8d 54  58 46 2c 8d 54 62 46 2c  |..TNF,.TXF,.TbF,|
00001b00  8d 54 6c 46 0d 06 0e 20  ec 58 2b 38 2c 59 2d 31  |.TlF... .X+8,Y-1|
00001b10  36 2d 4d 25 2a 33 32 3a  f2 50 52 49 4e 54 28 42  |6-M%*32:.PRINT(B|
00001b20  24 29 3a e1 0d 06 18 45  ec 58 2d 34 38 2d 33 32  |$):....E.X-48-32|
00001b30  2a 4d 25 2c 59 2d 31 32  3a f2 50 52 49 4e 54 28  |*M%,Y-12:.PRINT(|
00001b40  c0 42 24 2c 31 29 29 3a  ec 58 2d 34 38 2d 33 32  |.B$,1)):.X-48-32|
00001b50  2a 4d 25 2c 59 2d 34 34  3a f2 50 52 49 4e 54 28  |*M%,Y-44:.PRINT(|
00001b60  c2 42 24 2c 31 29 29 3a  e1 0d 06 22 21 ec 58 2d  |.B$,1)):..."!.X-|
00001b70  37 32 2c 59 2b 34 30 2b  33 32 2a 4d 25 3a f2 50  |72,Y+40+32*M%:.P|
00001b80  52 49 4e 54 28 42 24 29  3a e1 0d 06 2c 45 ec 58  |RINT(B$):...,E.X|
00001b90  2b 31 36 2b 33 32 2a 4d  25 2c 59 2b 36 38 3a f2  |+16+32*M%,Y+68:.|
00001ba0  50 52 49 4e 54 28 c0 42  24 2c 31 29 29 3a ec 58  |PRINT(.B$,1)):.X|
00001bb0  2b 31 36 2b 33 32 2a 4d  25 2c 59 2b 33 36 3a f2  |+16+32*M%,Y+36:.|
00001bc0  50 52 49 4e 54 28 c2 42  24 2c 31 29 29 3a e1 0d  |PRINT(.B$,1)):..|
00001bd0  06 36 21 ec 58 2d 37 32  2c 59 2d 31 36 2d 33 32  |.6!.X-72,Y-16-32|
00001be0  2a 4d 25 3a f2 50 52 49  4e 54 28 42 24 29 3a e1  |*M%:.PRINT(B$):.|
00001bf0  0d 06 40 21 ec 58 2b 31  32 2c 59 2b 34 30 2b 33  |..@!.X+12,Y+40+3|
00001c00  32 2a 4d 25 3a f2 50 52  49 4e 54 28 42 24 29 3a  |2*M%:.PRINT(B$):|
00001c10  e1 0d 06 4a 75 dd f2 47  45 54 43 4f 4c 28 4e 25  |...Ju..GETCOL(N%|
00001c20  29 f2 43 4c 53 3a f7 8d  64 50 4c 3a e3 49 25 3d  |).CLS:..dPL:.I%=|
00001c30  30 b8 4e 25 2d 31 3a f3  43 24 3a ec 2d 33 32 30  |0.N%-1:.C$:.-320|
00001c40  2c 33 32 30 2d 49 25 2a  33 32 3a f2 50 52 49 4e  |,320-I%*32:.PRIN|
00001c50  54 28 c3 49 25 2b 22 20  22 2b 43 24 29 3a ed 3a  |T(.I%+" "+C$):.:|
00001c60  ec 2d 33 32 30 2c 32 35  36 2d 49 25 2a 33 32 3a  |.-320,256-I%*32:|
00001c70  f2 50 52 49 4e 54 28 22  45 4e 54 45 52 20 43 48  |.PRINT("ENTER CH|
00001c80  4f 49 43 45 22 29 0d 06  54 21 f2 57 41 49 54 3a  |OICE")..T!.WAIT:|
00001c90  41 3d bb 41 24 3a e7 41  3d 30 80 41 24 3c 3e 22  |A=.A$:.A=0.A$<>"|
00001ca0  30 22 8c 41 3d 2d 31 0d  06 5e 25 e7 41 3c 30 84  |0".A=-1..^%.A<0.|
00001cb0  41 3e 4e 25 2d 31 8c 8d  44 54 46 8b 41 3d 41 2b  |A>N%-1..DTF.A=A+|
00001cc0  31 3a f2 47 45 54 4c 43  4f 4c 3a e1 0d 06 68 23  |1:.GETLCOL:...h#|
00001cd0  dd f2 48 49 47 48 3a f2  47 45 54 43 4f 4c 28 38  |..HIGH:.GETCOL(8|
00001ce0  29 3a e7 43 3d 30 84 43  3d 36 43 3d 43 2b 38 0d  |):.C=0.C=6C=C+8.|
00001cf0  06 72 0b ee 85 e5 8d 54  5e 45 0d 06 7c 43 ef 31  |.r.....T^E..|C.1|
00001d00  39 2c 33 2c 43 3b 30 3b  3a e6 30 2c 33 3a e3 49  |9,3,C;0;:.0,3:.I|
00001d10  25 3d 31 b8 34 30 3a f2  47 45 54 44 41 28 49 25  |%=1.40:.GETDA(I%|
00001d20  29 3a f3 42 3a e7 42 3d  41 20 f2 4c 4f 43 28 49  |):.B:.B=A .LOC(I|
00001d30  25 29 3a f2 53 4d 42 4f  58 28 49 25 29 0d 06 86  |%):.SMBOX(I%)...|
00001d40  15 ed 3a f2 57 41 49 54  3a f2 55 4e 48 49 47 48  |..:.WAIT:.UNHIGH|
00001d50  3a e1 0d 06 90 41 dd f2  55 4e 48 49 47 48 3a e6  |:....A..UNHIGH:.|
00001d60  30 2c 30 3a e3 49 25 3d  31 b8 34 30 3a f2 47 45  |0,0:.I%=1.40:.GE|
00001d70  54 44 41 28 49 25 29 3a  f3 42 3a e7 41 3d 42 20  |TDA(I%):.B:.A=B |
00001d80  f2 4c 4f 43 28 49 25 29  3a f2 53 4d 42 4f 58 28  |.LOC(I%):.SMBOX(|
00001d90  49 25 29 0d 06 9a 0d ed  3a ee 85 e5 8d 54 40 45  |I%).....:....T@E|
00001da0  0d 06 a4 05 e1 0d 06 ae  1e dd f2 47 45 54 44 41  |...........GETDA|
00001db0  28 49 25 29 f7 28 32 38  35 30 2b 31 30 2a 49 25  |(I%).(2850+10*I%|
00001dc0  29 3a e1 0d 06 b8 36 dd  f2 54 49 54 4c 45 44 45  |):....6..TITLEDE|
00001dd0  45 44 28 49 25 29 f2 47  45 54 44 41 28 49 25 29  |ED(I%).GETDA(I%)|
00001de0  3a f3 41 3a e7 41 3e 38  80 41 3c 3e 31 33 80 41  |:.A:.A>8.A<>13.A|
00001df0  3c 3e 31 34 8c 8d 54 7a  47 0d 06 c2 14 e7 4c 4f  |<>14..TzG.....LO|
00001e00  25 28 49 25 29 80 36 34  8c 8d 54 66 47 0d 06 cc  |%(I%).64..TfG...|
00001e10  26 f2 54 44 46 52 41 4d  45 3a e7 41 3d 31 33 84  |&.TDFRAME:.A=13.|
00001e20  41 3d 31 34 8c 51 25 3d  51 25 2d 36 34 3a e5 8d  |A=14.Q%=Q%-64:..|
00001e30  54 48 47 0d 06 d6 34 ec  2d 31 36 30 2c 32 37 32  |THG...4.-160,272|
00001e40  3a f2 50 52 49 4e 54 28  22 54 49 54 4c 45 20 44  |:.PRINT("TITLE D|
00001e50  45 45 44 22 29 3a f2 53  50 41 43 45 53 28 31 29  |EED"):.SPACES(1)|
00001e60  3a f2 4e 4f 52 54 48 0d  06 e0 48 f2 43 45 4e 54  |:.NORTH...H.CENT|
00001e70  52 45 3a ec 58 2c 32 30  38 3a f2 50 52 49 4e 54  |RE:.X,208:.PRINT|
00001e80  28 4e 24 29 3a e6 30 2c  30 3a e3 49 25 3d 30 b8  |(N$):.0,0:.I%=0.|
00001e90  37 3a f3 4e 25 28 49 25  29 3a ed 3a 4e 25 28 38  |7:.N%(I%):.:N%(8|
00001ea0  29 3d 4e 25 28 30 29 2f  32 3a f7 8d 64 64 4c 0d  |)=N%(0)/2:..ddL.|
00001eb0  06 ea 39 58 3d 2d 32 38  38 3a 59 3d 31 31 32 3a  |..9X=-288:Y=112:|
00001ec0  f2 54 59 50 45 28 22 52  45 4e 54 22 29 3a e3 49  |.TYPE("RENT"):.I|
00001ed0  25 3d 31 b8 38 3a 59 3d  59 2d 33 32 3a e7 49 25  |%=1.8:Y=Y-32:.I%|
00001ee0  3e 36 59 3d 59 2d 33 32  0d 06 f4 73 f3 41 24 3a  |>6Y=Y-32...s.A$:|
00001ef0  f2 54 59 50 45 28 41 24  29 3a ec 51 25 2c 59 3a  |.TYPE(A$):.Q%,Y:|
00001f00  f2 50 52 49 4e 54 28 22  60 22 2b c3 4e 25 28 49  |.PRINT("`"+.N%(I|
00001f10  25 29 29 3a e7 49 25 3d  37 59 3d 59 2d 33 32 3a  |%)):.I%=7Y=Y-32:|
00001f20  f2 54 59 50 45 28 22 43  4f 53 54 20 48 4f 54 45  |.TYPE("COST HOTE|
00001f30  4c 20 20 60 22 2b c3 4e  25 28 37 29 29 3a 59 3d  |L  `"+.N%(7)):Y=|
00001f40  59 2d 33 32 3a f2 54 59  50 45 28 22 50 4c 55 53  |Y-32:.TYPE("PLUS|
00001f50  20 34 20 48 4f 55 53 45  53 22 29 0d 06 fe 0b ed  | 4 HOUSES").....|
00001f60  3a e5 8d 54 7a 47 0d 07  08 5f f2 53 50 41 43 45  |:..TzG..._.SPACE|
00001f70  53 28 31 29 3a f2 43 45  4e 54 52 45 3a ec 58 2c  |S(1):.CENTRE:.X,|
00001f80  32 34 30 2b 32 34 2a 28  41 2d 31 33 29 3a f2 50  |240+24*(A-13):.P|
00001f90  52 49 4e 54 28 4e 24 29  3a e7 41 3d 31 34 ec 2d  |RINT(N$):.A=14.-|
00001fa0  31 31 32 2c 32 31 36 3a  f2 50 52 49 4e 54 28 22  |112,216:.PRINT("|
00001fb0  53 54 41 54 49 4f 4e 22  29 3a f7 8d 64 6e 4c 8b  |STATION"):..dnL.|
00001fc0  f7 8d 64 78 4c 0d 07 12  29 58 3d 2d 32 32 38 3a  |..dxL...)X=-228:|
00001fd0  59 3d 39 36 3a e3 49 25  3d 31 b8 31 32 3a f3 41  |Y=96:.I%=1.12:.A|
00001fe0  24 3a e7 41 24 3d 22 22  41 24 3d 22 20 22 0d 07  |$:.A$=""A$=" "..|
00001ff0  1c 1c f2 54 59 50 45 28  41 24 29 3a 59 3d 59 2d  |...TYPE(A$):Y=Y-|
00002000  33 32 3a ed 3a e5 8d 54  7a 47 0d 07 26 af 43 3d  |32:.:..TzG..&.C=|
00002010  41 3a f2 43 4c 53 3a e6  30 2c 33 3a f3 41 24 2c  |A:.CLS:.0,3:.A$,|
00002020  41 3a f2 53 50 41 43 45  53 28 31 29 3a ef 31 39  |A:.SPACES(1):.19|
00002030  2c 33 2c 31 3b 30 3b 3a  f2 53 42 41 52 28 33 32  |,3,1;0;:.SBAR(32|
00002040  30 2c 33 32 30 29 3a e6  30 2c 30 3a f2 42 4f 58  |0,320):.0,0:.BOX|
00002050  28 33 32 30 2c 33 32 30  29 3a e3 59 3d 2d 31 b8  |(320,320):.Y=-1.|
00002060  31 88 32 3a ec 2d 32 38  38 2c 32 38 38 2a 59 3a  |1.2:.-288,288*Y:|
00002070  df 32 38 38 2c 32 38 38  2a 59 3a df 32 38 38 2c  |.288,288*Y:.288,|
00002080  39 36 2a 59 3a df 2d 32  38 38 2c 39 36 2a 59 3a  |96*Y:.-288,96*Y:|
00002090  df 2d 32 38 38 2c 32 32  38 2a 59 3a ed 3a ec 2d  |.-288,228*Y:.:.-|
000020a0  31 34 34 2c 32 30 38 3a  e7 43 3d 31 34 4e 24 3d  |144,208:.C=14N$=|
000020b0  4e 24 2b 22 20 53 54 4e  22 0d 07 30 74 f2 50 52  |N$+" STN"..0t.PR|
000020c0  49 4e 54 28 22 4d 4f 52  54 47 41 47 45 44 22 29  |INT("MORTGAGED")|
000020d0  3a f2 4e 4f 52 54 48 3a  41 24 3d 4e 24 2b 22 2f  |:.NORTH:A$=N$+"/|
000020e0  20 2f 22 2b 22 4d 4f 52  54 47 41 47 45 44 20 46  | /"+"MORTGAGED F|
000020f0  4f 52 20 60 22 2b c3 28  41 2f 32 29 3a 59 3d 34  |OR `"+.(A/2):Y=4|
00002100  38 3a f2 54 45 58 54 3a  59 3d 2d 31 33 32 3a 58  |8:.TEXT:Y=-132:X|
00002110  3d 2d 32 35 36 3a f7 8d  54 42 4d 3a e3 49 25 3d  |=-256:..TBM:.I%=|
00002120  31 b8 34 3a f3 4e 24 3a  f2 50 52 3a ed 0d 07 3a  |1.4:.N$:.PR:...:|
00002130  0b 51 25 3d 39 36 3a e1  0d 07 44 26 dd f2 47 45  |.Q%=96:...D&..GE|
00002140  54 4c 43 4f 4c 3a ea 49  25 3a f7 8d 64 5a 4c 3a  |TLCOL:.I%:..dZL:|
00002150  e3 49 25 3d 31 b8 41 3a  f3 43 3a ed 3a e1 0d 07  |.I%=1.A:.C:.:...|
00002160  4e 24 dd f2 54 44 46 52  41 4d 45 3a f2 43 4c 53  |N$..TDFRAME:.CLS|
00002170  3a e7 41 3c 39 f2 47 45  54 4c 43 4f 4c 20 8b 43  |:.A<9.GETLCOL .C|
00002180  3d 37 0d 07 58 5e ef 31  39 2c 33 2c 43 3b 30 3b  |=7..X^.19,3,C;0;|
00002190  3a e6 30 2c 32 2d 28 41  3e 31 32 29 3a f2 53 42  |:.0,2-(A>12):.SB|
000021a0  41 52 28 33 32 30 2c 33  32 30 29 3a e6 30 2c 30  |AR(320,320):.0,0|
000021b0  3a f2 42 4f 58 28 33 32  30 2c 33 32 30 29 3a e7  |:.BOX(320,320):.|
000021c0  41 3c 31 33 80 41 3c 3e  32 e6 30 2c 33 3a f2 48  |A<13.A<>2.0,3:.H|
000021d0  42 41 52 28 33 30 34 2c  33 30 34 2c 31 34 34 29  |BAR(304,304,144)|
000021e0  0d 07 62 1b e6 30 2c 30  3a f2 48 42 4f 58 28 33  |..b..0,0:.HBOX(3|
000021f0  30 34 2c 33 30 34 2c 31  34 34 29 0d 07 6c 31 f2  |04,304,144)..l1.|
00002200  47 45 54 44 41 28 49 25  29 3a f3 41 2c 41 24 3a  |GETDA(I%):.A,A$:|
00002210  fb 31 33 31 3a e7 41 3d  31 84 41 3d 38 fb 32 3a  |.131:.A=1.A=8.2:|
00002220  e6 30 2c 32 8b fb 30 3a  e6 30 2c 30 0d 07 76 05  |.0,2..0:.0,0..v.|
00002230  e1 0d 07 80 41 dd f2 53  50 41 43 45 53 28 49 25  |....A..SPACES(I%|
00002240  29 3a 42 3d a7 41 24 2c  22 2f 22 2c 49 25 29 3a  |):B=.A$,"/",I%):|
00002250  e7 42 3d 30 4e 24 3d 41  24 8b 4e 24 3d c0 41 24  |.B=0N$=A$.N$=.A$|
00002260  2c 42 2d 31 29 2b 22 20  22 2b c1 41 24 2c 42 2b  |,B-1)+" "+.A$,B+|
00002270  31 29 0d 07 8a 0b 41 24  3d 4e 24 3a e1 0d 07 94  |1)....A$=N$:....|
00002280  25 dd f2 43 45 4e 54 52  45 3a 58 3d 2d 32 38 38  |%..CENTRE:X=-288|
00002290  2b 33 32 2a 28 28 31 38  2d a9 4e 24 29 2f 32 29  |+32*((18-.N$)/2)|
000022a0  3a e1 0d 07 9e 42 dd f2  4e 4f 52 54 48 3a e7 4e  |:....B..NORTH:.N|
000022b0  24 3d 22 4e 4f 52 54 48  55 4d 42 45 52 20 4c 41  |$="NORTHUMBER LA|
000022c0  4e 44 20 41 56 45 4e 55  45 22 4e 24 3d 22 4e 4f  |ND AVENUE"N$="NO|
000022d0  52 54 48 55 4d 42 45 52  4c 41 4e 44 20 41 56 45  |RTHUMBERLAND AVE|
000022e0  4e 55 45 22 0d 07 a8 05  e1 0d 07 b2 23 dd f2 43  |NUE"........#..C|
000022f0  48 41 4e 43 45 3a 4e 24  3d 22 43 48 41 4e 43 45  |HANCE:N$="CHANCE|
00002300  22 3a 43 48 3d 31 3a e5  8d 64 46 47 0d 07 bc 28  |":CH=1:..dFG...(|
00002310  dd f2 43 4f 4d 43 48 45  53 54 3a 4e 24 3d 22 43  |..COMCHEST:N$="C|
00002320  4f 4d 4d 55 4e 49 54 59  20 43 48 45 53 54 22 3a  |OMMUNITY CHEST":|
00002330  43 48 3d 30 0d 07 c6 63  4d 56 3d 30 3a f2 57 41  |CH=0...cMV=0:.WA|
00002340  49 54 3a f2 43 4c 53 3a  ef 31 39 2c 33 2c 35 2c  |IT:.CLS:.19,3,5,|
00002350  35 2d 32 2a 43 48 3b 30  3b 3a e6 30 2c 33 3a f2  |5-2*CH;0;:.0,3:.|
00002360  53 42 41 52 28 33 32 30  2c 31 39 32 29 3a e6 30  |SBAR(320,192):.0|
00002370  2c 30 3a f2 42 4f 58 28  33 32 30 2c 31 39 32 29  |,0:.BOX(320,192)|
00002380  3a 59 3d 31 32 38 3a 41  24 3d 4e 24 3a f2 54 45  |:Y=128:A$=N$:.TE|
00002390  58 54 3a 59 3d 33 32 0d  07 d0 73 e7 43 48 25 28  |XT:Y=32...s.CH%(|
000023a0  43 48 50 28 43 48 29 2b  32 2c 43 48 29 41 3d 32  |CHP(CH)+2,CH)A=2|
000023b0  37 3a 43 48 25 28 43 48  50 28 43 48 29 2b 32 2c  |7:CH%(CHP(CH)+2,|
000023c0  43 48 29 3d 30 3a 4a 43  28 43 48 29 3d 58 25 8b  |CH)=0:JC(CH)=X%.|
000023d0  41 3d 43 48 25 28 43 48  50 28 43 48 29 2b 31 2c  |A=CH%(CHP(CH)+1,|
000023e0  43 48 29 3a 43 48 50 28  43 48 29 3d 43 48 50 28  |CH):CHP(CH)=CHP(|
000023f0  43 48 29 2b 32 3a e7 43  48 50 28 43 48 29 3d 35  |CH)+2:.CHP(CH)=5|
00002400  32 43 48 50 28 43 48 29  3d 30 0d 07 da 1c f7 28  |2CHP(CH)=0.....(|
00002410  33 33 33 30 2b 31 30 2a  41 29 3a f3 41 24 2c 41  |3330+10*A):.A$,A|
00002420  31 25 2c 41 32 25 0d 07  e4 21 f2 54 45 58 54 3a  |1%,A2%...!.TEXT:|
00002430  e7 41 31 25 4d 4f 28 58  25 29 3d 4d 4f 28 58 25  |.A1%MO(X%)=MO(X%|
00002440  29 2b 41 31 25 3a e1 0d  07 ee 2b e7 41 32 25 3d  |)+A1%:....+.A2%=|
00002450  30 8c 8d 54 42 48 8b 4d  56 3d 31 3a e7 41 32 25  |0..TBH.MV=1:.A2%|
00002460  3d 2d 33 5a 25 3d 4f 50  4f 53 28 58 25 29 2b 33  |=-3Z%=OPOS(X%)+3|
00002470  3a e1 0d 07 f8 0c 5a 25  3d 41 32 25 3a e1 0d 08  |:.....Z%=A2%:...|
00002480  02 0e e7 41 3d 32 37 8c  8d 54 6a 48 0d 08 0c 2b  |...A=27..TjH...+|
00002490  42 25 3d 30 3a e3 49 25  3d 31 b8 34 30 3a e7 28  |B%=0:.I%=1.40:.(|
000024a0  4c 4f 25 28 49 25 29 80  34 38 29 2f 31 36 3c 3e  |LO%(I%).48)/16<>|
000024b0  58 25 8c 8d 54 60 48 0d  08 16 2b 4a 25 3d 4c 4f  |X%..T`H...+J%=LO|
000024c0  25 28 49 25 29 80 37 3a  e7 4a 25 3c 35 42 25 3d  |%(I%).7:.J%<5B%=|
000024d0  42 25 2b 4a 25 2a 34 30  8b 42 25 3d 42 25 2b 31  |B%+J%*40.B%=B%+1|
000024e0  31 35 0d 08 20 3b ed 3a  41 24 3d 22 54 4f 54 41  |15.. ;.:A$="TOTA|
000024f0  4c 20 43 4f 53 54 20 60  22 2b c3 42 25 3a 59 3d  |L COST `"+.B%:Y=|
00002500  2d 32 32 34 3a f2 54 45  58 54 3a 4d 4f 28 58 25  |-224:.TEXT:MO(X%|
00002510  29 3d 4d 4f 28 58 25 29  2d 42 25 3a e1 0d 08 2a  |)=MO(X%)-B%:...*|
00002520  1e 47 4a 28 58 25 29 3d  47 4a 28 58 25 29 2b 31  |.GJ(X%)=GJ(X%)+1|
00002530  3a e7 4a 43 28 43 48 29  3d 58 25 0d 08 34 05 e1  |:.JC(CH)=X%..4..|
00002540  0d 08 3e 29 dd f2 50 52  3a f2 43 45 4e 54 52 45  |..>)..PR:.CENTRE|
00002550  3a ec 58 2c 59 3a 59 3d  59 2d 33 32 3a f2 50 52  |:.X,Y:Y=Y-32:.PR|
00002560  49 4e 54 28 4e 24 29 3a  e1 0d 08 48 36 dd f2 48  |INT(N$):...H6..H|
00002570  42 41 52 28 58 2c 59 2c  59 31 29 ec 58 2c 59 3a  |BAR(X,Y,Y1).X,Y:|
00002580  ec 58 2c 59 31 3a f0 38  35 2c 2d 58 2c 59 31 3a  |.X,Y1:.85,-X,Y1:|
00002590  ec 2d 58 2c 59 3a f0 38  35 2c 58 2c 59 3a e1 0d  |.-X,Y:.85,X,Y:..|
000025a0  08 52 30 dd f2 48 42 4f  58 28 58 2c 59 2c 59 31  |.R0..HBOX(X,Y,Y1|
000025b0  29 ec 58 2c 59 3a df 58  2c 59 31 3a df 2d 58 2c  |).X,Y:.X,Y1:.-X,|
000025c0  59 31 3a df 2d 58 2c 59  3a df 58 2c 59 3a e1 0d  |Y1:.-X,Y:.X,Y:..|
000025d0  08 5c 0f dd f2 54 45 58  54 3a 49 25 3d 30 0d 08  |.\...TEXT:I%=0..|
000025e0  66 4c f2 53 50 41 43 45  53 28 49 25 2b 31 29 3a  |fL.SPACES(I%+1):|
000025f0  e7 42 3d 30 4e 24 3d c1  41 24 2c 49 25 2b 31 29  |.B=0N$=.A$,I%+1)|
00002600  3a f2 50 52 3a e1 20 8b  4e 24 3d c1 41 24 2c 49  |:.PR:. .N$=.A$,I|
00002610  25 2b 31 2c 42 2d 49 25  2d 31 29 3a 49 25 3d 42  |%+1,B-I%-1):I%=B|
00002620  3a f2 50 52 3a e5 8d 44  66 48 0d 08 70 6b dd f2  |:.PR:..DfH..pk..|
00002630  41 54 28 4c 25 29 f2 43  4c 53 3a 4b 25 3d 30 3a  |AT(L%).CLS:K%=0:|
00002640  e6 30 2c 32 3a f2 48 42  41 52 28 33 32 30 2c 33  |.0,2:.HBAR(320,3|
00002650  32 30 2c 36 34 29 3a e6  30 2c 30 3a f2 48 42 4f  |20,64):.0,0:.HBO|
00002660  58 28 33 32 30 2c 33 32  30 2c 36 34 29 3a 59 3d  |X(320,320,64):Y=|
00002670  32 35 36 3a f2 47 45 54  44 41 28 4c 25 29 3a f3  |256:.GETDA(L%):.|
00002680  41 3a e7 41 3c 39 84 41  3d 31 33 84 41 3d 31 34  |A:.A<9.A=13.A=14|
00002690  8c 8d 64 5e 48 0d 08 7a  3f ee 41 2d 38 e5 8d 74  |..d^H..z?.A-8..t|
000026a0  44 48 2c 8d 74 4e 48 2c  8d 74 58 48 2c 8d 74 62  |DH,.tNH,.tXH,.tb|
000026b0  48 2c 8d 54 40 40 2c 8d  54 40 40 2c 8d 74 6c 48  |H,.T@@,.T@@,.tlH|
000026c0  2c 8d 74 76 48 2c 8d 64  40 48 2c 8d 64 4a 48 2c  |,.tvH,.d@H,.dJH,|
000026d0  8d 64 54 48 0d 08 84 11  41 24 3d 22 47 4f 22 3a  |.dTH....A$="GO":|
000026e0  e5 8d 64 7c 48 0d 08 8e  1e 41 24 3d 22 43 4f 4d  |..d|H....A$="COM|
000026f0  4d 55 4e 49 54 59 2f 43  48 45 53 54 22 3a e5 8d  |MUNITY/CHEST":..|
00002700  64 7c 48 0d 08 98 22 41  24 3d 22 49 4e 43 4f 4d  |d|H..."A$="INCOM|
00002710  45 2f 54 41 58 2f 50 41  59 20 60 32 30 30 22 3a  |E/TAX/PAY `200":|
00002720  e5 8d 64 7c 48 0d 08 a2  15 41 24 3d 22 43 48 41  |..d|H....A$="CHA|
00002730  4e 43 45 22 3a e5 8d 64  7c 48 0d 08 ac 21 41 24  |NCE":..d|H...!A$|
00002740  3d 22 4a 41 49 4c 2f 4a  55 53 54 2f 56 49 53 49  |="JAIL/JUST/VISI|
00002750  54 49 4e 47 22 3a e5 8d  64 7c 48 0d 08 b6 1b 41  |TING":..d|H....A|
00002760  24 3d 22 46 52 45 45 2f  50 41 52 4b 49 4e 47 22  |$="FREE/PARKING"|
00002770  3a e5 8d 64 7c 48 0d 08  c0 19 41 24 3d 22 47 4f  |:..d|H....A$="GO|
00002780  20 54 4f 2f 4a 41 49 4c  22 3a e5 8d 64 7c 48 0d  | TO/JAIL":..d|H.|
00002790  08 ca 21 41 24 3d 22 53  55 50 45 52 2f 54 41 58  |..!A$="SUPER/TAX|
000027a0  2f 50 41 59 20 60 31 30  30 22 3a e5 8d 64 7c 48  |/PAY `100":..d|H|
000027b0  0d 08 d4 16 41 24 3d 22  49 4e 2f 4a 41 49 4c 22  |....A$="IN/JAIL"|
000027c0  3a e5 8d 64 7c 48 0d 08  de 59 e7 41 3c 39 f2 47  |:..d|H...Y.A<9.G|
000027d0  45 54 4c 43 4f 4c 3a ef  31 39 2c 33 2c 43 3b 30  |ETLCOL:.19,3,C;0|
000027e0  3b 3a e6 30 2c 33 3a f2  48 42 41 52 28 33 31 32  |;:.0,3:.HBAR(312|
000027f0  2c 33 31 36 2c 32 32 34  29 3a e6 30 2c 30 3a ec  |,316,224):.0,0:.|
00002800  2d 33 32 30 2c 32 32 34  3a df 33 32 30 2c 32 32  |-320,224:.320,22|
00002810  34 3a 59 3d 31 39 32 3a  f2 48 4f 55 53 45 53 0d  |4:Y=192:.HOUSES.|
00002820  08 e8 2e f2 47 45 54 44  41 28 4c 25 29 3a f3 4a  |....GETDA(L%):.J|
00002830  25 2c 41 24 2c 4a 25 3a  e7 41 3d 31 34 41 24 3d  |%,A$,J%:.A=14A$=|
00002840  41 24 2b 22 2f 53 54 41  54 49 4f 4e 22 0d 08 f2  |A$+"/STATION"...|
00002850  14 f2 54 45 58 54 3a 41  24 3d 22 60 22 2b c3 4a  |..TEXT:A$="`"+.J|
00002860  25 0d 08 fc 36 f2 54 45  58 54 3a e7 41 3c 39 84  |%...6.TEXT:.A<9.|
00002870  41 3d 31 33 84 41 3d 31  34 4e 25 3d 28 4c 4f 25  |A=13.A=14N%=(LO%|
00002880  28 4c 25 29 80 36 33 29  2f 31 36 3a f2 53 41 4c  |(L%).63)/16:.SAL|
00002890  45 20 8b 4e 25 3d 34 0d  09 06 05 e1 0d 09 10 41  |E .N%=4........A|
000028a0  dd f2 48 4f 55 53 45 53  3a 4b 25 3d 4c 4f 25 28  |..HOUSES:K%=LO%(|
000028b0  4c 25 29 80 37 3a e7 4b  25 3d 30 e1 20 8b e7 4b  |L%).7:.K%=0. ..K|
000028c0  25 3d 35 41 24 3d 22 48  4f 54 45 4c 22 8b 41 24  |%=5A$="HOTEL".A$|
000028d0  3d c3 4b 25 2b 22 20 48  4f 55 53 45 22 0d 09 1a  |=.K%+" HOUSE"...|
000028e0  17 e7 4b 25 3c 35 80 4b  25 3e 31 41 24 3d 41 24  |..K%<5.K%>1A$=A$|
000028f0  2b 22 53 22 0d 09 24 15  e7 41 3d 31 84 41 3d 38  |+"S"..$..A=1.A=8|
00002900  e6 30 2c 32 8b e6 30 2c  30 0d 09 2e 2f f2 53 50  |.0,2..0,0.../.SP|
00002910  41 43 45 53 28 31 29 3a  f2 43 45 4e 54 52 45 3a  |ACES(1):.CENTRE:|
00002920  ec 58 2c 32 38 38 3a f2  50 52 49 4e 54 28 4e 24  |.X,288:.PRINT(N$|
00002930  29 3a e6 30 2c 30 3a e1  0d 09 38 34 dd f2 53 41  |):.0,0:...84..SA|
00002940  4c 45 32 3a e7 4e 25 3d  30 4e 24 3d 22 46 4f 52  |LE2:.N%=0N$="FOR|
00002950  20 53 41 4c 45 22 8b 4e  24 3d 22 4f 57 4e 45 44  | SALE".N$="OWNED|
00002960  20 42 59 20 22 2b 4e 24  28 4e 25 29 0d 09 42 05  | BY "+N$(N%)..B.|
00002970  e1 0d 09 4c 2c dd f2 53  41 4c 45 3a f2 53 41 4c  |...L,..SALE:.SAL|
00002980  45 32 3a f2 43 45 4e 54  52 45 3a ec 58 2c 35 32  |E2:.CENTRE:.X,52|
00002990  3a f2 50 52 49 4e 54 28  4e 24 29 3a e1 0d 09 56  |:.PRINT(N$):...V|
000029a0  54 dd f2 4e 50 4f 53 3a  f2 43 4c 53 3a 42 24 3d  |T..NPOS:.CLS:B$=|
000029b0  c0 4e 24 28 58 25 29 2c  32 29 3a 4e 25 3d 4f 50  |.N$(X%),2):N%=OP|
000029c0  4f 53 28 58 25 29 3a 47  25 3d 5a 25 3a e7 47 25  |OS(X%):G%=Z%:.G%|
000029d0  3d 34 31 47 25 3d 31 31  3a 4e 4a 3d 30 3a 44 4f  |=41G%=11:NJ=0:DO|
000029e0  3d 30 3a e7 44 31 3d 44  32 20 59 25 3d 33 2d 58  |=0:.D1=D2 Y%=3-X|
000029f0  25 0d 09 60 20 e7 5a 25  3d 34 31 80 4e 25 3c 33  |%..` .Z%=41.N%<3|
00002a00  32 80 4e 25 3e 31 31 53  54 3d 2d 31 8b 53 54 3d  |2.N%>11ST=-1.ST=|
00002a10  31 0d 09 6a 0f e7 4e 25  3d 47 25 8c 8d 74 5c 49  |1..j..N%=G%..t\I|
00002a20  0d 09 74 29 f5 3a 50 47  3d 30 3a 4b 25 3d 4e 25  |..t).:PG=0:K%=N%|
00002a30  3a 4e 25 3d 4e 25 2b 53  54 3a e7 4e 25 3d 34 31  |:N%=N%+ST:.N%=41|
00002a40  4e 25 3d 31 3a 50 47 3d  31 0d 09 7e 5a e6 30 2c  |N%=1:PG=1..~Z.0,|
00002a50  32 3a 49 25 3d 4b 25 3a  f2 4c 4f 43 28 49 25 29  |2:I%=K%:.LOC(I%)|
00002a60  3a f2 4c 42 4f 58 28 58  25 29 3a e6 30 2c 30 3a  |:.LBOX(X%):.0,0:|
00002a70  49 25 3d 4e 25 3a d4 31  2c 2d 37 2c 35 30 2c 31  |I%=N%:.1,-7,50,1|
00002a80  3a f2 4c 4f 43 28 49 25  29 3a f2 4c 42 4f 58 28  |:.LOC(I%):.LBOX(|
00002a90  58 25 29 3a e7 50 47 20  80 47 41 20 80 4e 4a 20  |X%):.PG .GA .NJ |
00002aa0  f2 50 47 0d 09 88 0b 2a  46 58 31 35 2c 31 0d 09  |.PG....*FX15,1..|
00002ab0  92 10 41 3d a6 32 35 3a  fd 4e 25 3d 47 25 0d 09  |..A=.25:.N%=G%..|
00002ac0  9c 0f 4f 50 4f 53 28 58  25 29 3d 5a 25 0d 09 a6  |..OPOS(X%)=Z%...|
00002ad0  0f e7 47 41 20 f2 41 54  28 5a 25 29 0d 09 b0 0a  |..GA .AT(Z%)....|
00002ae0  4e 4a 3d 31 3a e1 0d 09  ba 91 dd f2 50 47 3a ef  |NJ=1:.......PG:.|
00002af0  31 39 2c 33 2c 37 3b 30  3b 3a e6 30 2c 33 3a f2  |19,3,7;0;:.0,3:.|
00002b00  48 42 41 52 28 33 32 30  2c 33 32 30 2c 31 39 32  |HBAR(320,320,192|
00002b10  29 3a e6 30 2c 30 3a f2  48 42 4f 58 28 33 32 30  |):.0,0:.HBOX(320|
00002b20  2c 33 32 30 2c 31 39 32  29 3a 41 24 3d 22 43 4f  |,320,192):A$="CO|
00002b30  4c 4c 45 43 54 20 60 32  30 30 20 53 41 4c 41 52  |LLECT `200 SALAR|
00002b40  59 2f 41 53 20 59 4f 55  20 50 41 53 53 20 47 4f  |Y/AS YOU PASS GO|
00002b50  22 3a 59 3d 32 38 38 3a  f2 54 45 58 54 3a 4d 4f  |":Y=288:.TEXT:MO|
00002b60  28 58 25 29 3d 4d 4f 28  58 25 29 2b 32 30 30 3a  |(X%)=MO(X%)+200:|
00002b70  f2 57 41 49 54 3a e1 0d  09 c4 59 dd f2 4d 4f 4e  |.WAIT:....Y..MON|
00002b80  45 59 3a 4e 24 3d 4e 24  28 58 25 29 3a f2 43 45  |EY:N$=N$(X%):.CE|
00002b90  4e 54 52 45 3a 59 3d 30  3a f2 54 59 50 45 28 4e  |NTRE:Y=0:.TYPE(N|
00002ba0  24 29 3a 4e 24 3d 22 60  22 2b c3 28 94 28 4d 4f  |$):N$="`"+.(.(MO|
00002bb0  28 58 25 29 29 29 3a e7  b4 4d 4f 28 58 25 29 3d  |(X%))):..MO(X%)=|
00002bc0  2d 31 4e 24 3d 22 4d 49  4e 55 53 20 22 2b 4e 24  |-1N$="MINUS "+N$|
00002bd0  0d 09 ce 30 4e 24 3d 4e  24 2b 22 20 20 22 2b c3  |...0N$=N$+"  "+.|
00002be0  47 4a 28 58 25 29 3a f2  43 45 4e 54 52 45 3a 59  |GJ(X%):.CENTRE:Y|
00002bf0  3d 2d 33 32 3a f2 54 59  50 45 28 4e 24 29 3a e1  |=-32:.TYPE(N$):.|
00002c00  0d 09 d8 09 dd f2 47 45  54 0d 09 e2 1f f2 57 41  |......GET.....WA|
00002c10  49 54 3a e7 41 24 3c 3e  22 59 22 80 41 24 3c 3e  |IT:.A$<>"Y".A$<>|
00002c20  22 4e 22 8c 8d 64 62 49  0d 09 ec 05 e1 0d 09 f6  |"N"..dbI........|
00002c30  18 dd f2 54 59 50 45 28  5a 24 29 ec 58 2c 59 3a  |...TYPE(Z$).X,Y:|
00002c40  e5 8d 54 4a 4a 0d 0a 00  0f dd f2 50 52 49 4e 54  |..TJJ......PRINT|
00002c50  28 5a 24 29 0d 0a 0a 98  e3 45 25 3d 31 b8 a9 5a  |(Z$).....E%=1..Z|
00002c60  24 3a f0 30 2c 2d 33 32  2c 30 3a 46 25 3d 97 28  |$:.0,-32,0:F%=.(|
00002c70  c1 5a 24 2c 45 25 2c 31  29 29 3a e7 46 25 3d 34  |.Z$,E%,1)):.F%=4|
00002c80  39 46 25 3d 37 33 8b e7  46 25 3d 35 30 46 25 3d  |9F%=73..F%=50F%=|
00002c90  39 30 8b e7 46 25 3d 35  33 46 25 3d 38 33 8b e7  |90..F%=53F%=83..|
00002ca0  46 25 3d 34 38 46 25 3d  37 39 8b e7 46 25 3d 38  |F%=48F%=79..F%=8|
00002cb0  31 46 25 3d 38 36 3a ef  32 33 2c 32 34 34 2c 37  |1F%=86:.23,244,7|
00002cc0  2c 35 2c 35 2c 35 2c 37  2c 32 2c 33 2c 30 8b e7  |,5,5,5,7,2,3,0..|
00002cd0  46 25 3d 38 36 ef 32 33  2c 32 34 34 2c 35 2c 35  |F%=86.23,244,5,5|
00002ce0  2c 35 2c 35 2c 35 2c 32  2c 32 2c 30 0d 0a 14 24  |,5,5,5,2,2,0...$|
00002cf0  e7 46 25 3d 33 32 f1 22  20 22 3b 8b f1 bd 28 32  |.F%=32." ";...(2|
00002d00  32 33 2b a7 4c 45 24 2c  bd 28 46 25 29 29 29 3b  |23+.LE$,.(F%)));|
00002d10  0d 0a 1e 07 ed 3a e1 0d  0a 28 12 dd f2 57 41 49  |.....:...(...WAI|
00002d20  54 3a 2a 46 58 31 35 2c  31 0d 0a 32 16 d4 31 2c  |T:*FX15,1..2..1,|
00002d30  2d 37 2c 31 32 35 2c 31  3a 41 24 3d be 3a e1 0d  |-7,125,1:A$=.:..|
00002d40  0a 3c 24 dd f2 43 4c 53  3a e6 30 2c 31 3a f2 53  |.<$..CLS:.0,1:.S|
00002d50  42 41 52 28 33 35 32 2c  33 35 36 29 3a e6 30 2c  |BAR(352,356):.0,|
00002d60  30 3a e1 0d 0a 46 84 dd  f2 57 41 52 4e 3a e7 b4  |0:...F...WARN:..|
00002d70  28 4d 4f 28 58 25 29 29  3d 2d 31 41 24 3d 22 59  |(MO(X%))=-1A$="Y|
00002d80  4f 55 20 41 52 45 20 49  4e 20 44 45 42 54 2f 20  |OU ARE IN DEBT/ |
00002d90  2f 59 4f 55 20 4d 55 53  54 20 50 41 59 20 54 48  |/YOU MUST PAY TH|
00002da0  49 53 2f 42 45 46 4f 52  45 20 52 4f 4c 4c 49 4e  |IS/BEFORE ROLLIN|
00002db0  47 20 44 49 43 45 22 3a  59 3d 2d 39 36 3a f2 54  |G DICE":Y=-96:.T|
00002dc0  45 58 54 3a f2 57 41 49  54 3a e6 30 2c 31 3a f2  |EXT:.WAIT:.0,1:.|
00002dd0  48 42 41 52 28 33 32 30  2c 2d 39 36 2c 2d 32 32  |HBAR(320,-96,-22|
00002de0  34 29 3a e6 30 2c 30 0d  0a 50 05 e1 0d 0a 5a 30  |4):.0,0..P....Z0|
00002df0  dd f2 50 52 4f 50 28 49  25 2c 4a 25 29 f2 43 4c  |..PROP(I%,J%).CL|
00002e00  53 3a f3 41 24 3a e7 41  3d 31 34 8c 41 24 3d 41  |S:.A$:.A=14.A$=A|
00002e10  24 2b 22 2f 53 54 41 54  49 4f 4e 22 0d 0a 64 1a  |$+"/STATION"..d.|
00002e20  4b 25 3d 4c 4f 25 28 49  25 29 80 37 3a e7 41 3e  |K%=LO%(I%).7:.A>|
00002e30  38 8c 8d 74 42 4a 0d 0a  6e 4f e7 4b 25 3d 30 41  |8..tBJ..nO.K%=0A|
00002e40  24 3d 41 24 2b 22 2f 20  2f 4e 4f 20 42 55 49 4c  |$=A$+"/ /NO BUIL|
00002e50  44 49 4e 47 53 22 8b e7  4b 25 3d 35 41 24 3d 41  |DINGS"..K%=5A$=A|
00002e60  24 2b 22 2f 20 2f 48 4f  54 45 4c 22 8b 41 24 3d  |$+"/ /HOTEL".A$=|
00002e70  41 24 2b 22 2f 20 2f 22  2b c3 4b 25 2b 22 20 48  |A$+"/ /"+.K%+" H|
00002e80  4f 55 53 45 22 0d 0a 78  17 e7 4b 25 3c 35 80 4b  |OUSE"..x..K%<5.K|
00002e90  25 3e 31 41 24 3d 41 24  2b 22 53 22 0d 0a 82 23  |%>1A$=A$+"S"...#|
00002ea0  e7 4c 4f 25 28 49 25 29  80 36 34 41 24 3d 41 24  |.LO%(I%).64A$=A$|
00002eb0  2b 22 2f 20 2f 4d 4f 52  54 47 41 47 45 44 22 0d  |+"/ /MORTGAGED".|
00002ec0  0a 8c 64 e7 4a 25 41 24  3d 41 24 2b 22 2f 20 2f  |..d.J%A$=A$+"/ /|
00002ed0  50 52 45 53 53 20 54 20  46 4f 52 2f 54 49 54 4c  |PRESS T FOR/TITL|
00002ee0  45 20 44 45 45 44 2f 45  4c 53 45 20 41 4e 59 20  |E DEED/ELSE ANY |
00002ef0  4f 54 48 45 52 20 4b 45  59 22 8b 4e 25 3d 28 4c  |OTHER KEY".N%=(L|
00002f00  4f 25 28 49 25 29 80 34  38 29 2f 31 36 3a f2 53  |O%(I%).48)/16:.S|
00002f10  41 4c 45 32 3a 41 24 3d  41 24 2b 22 2f 20 2f 22  |ALE2:A$=A$+"/ /"|
00002f20  2b 4e 24 0d 0a 96 17 59  3d 33 32 30 3a f2 54 45  |+N$....Y=320:.TE|
00002f30  58 54 3a f2 57 41 49 54  3a e1 0d 0a a0 53 dd f2  |XT:.WAIT:....S..|
00002f40  41 53 4b 3a f2 43 4c 53  3a 41 24 3d 22 44 4f 20  |ASK:.CLS:A$="DO |
00002f50  59 4f 55 20 57 41 4e 54  20 4a 55 53 54 2f 4f 4e  |YOU WANT JUST/ON|
00002f60  45 20 47 52 4f 55 50 20  4c 49 53 54 45 44 22 3a  |E GROUP LISTED":|
00002f70  59 3d 33 32 30 3a f2 54  45 58 54 3a f2 47 45 54  |Y=320:.TEXT:.GET|
00002f80  3a e7 41 24 3d 22 4e 22  57 3d 30 3a e1 0d 0a aa  |:.A$="N"W=0:....|
00002f90  26 f2 47 45 54 43 4f 4c  28 31 30 29 3a 57 3d 41  |&.GETCOL(10):W=A|
00002fa0  3a e7 57 3d 39 57 3d 31  34 8b e7 57 3d 31 30 57  |:.W=9W=14..W=10W|
00002fb0  3d 31 33 0d 0a b4 05 e1  0d 0a be 48 dd f2 41 4c  |=13........H..AL|
00002fc0  4c 28 4a 25 29 42 3d 2d  31 3a e3 49 25 3d 31 b8  |L(J%)B=-1:.I%=1.|
00002fd0  34 30 3a f2 47 45 54 44  41 28 49 25 29 3a f3 43  |40:.GETDA(I%):.C|
00002fe0  3a e7 43 3c 3e 4a 25 8c  8d 64 5c 4a 8b 42 25 3d  |:.C<>J%..d\J.B%=|
00002ff0  28 4c 4f 25 28 49 25 29  80 31 31 32 29 2f 31 36  |(LO%(I%).112)/16|
00003000  0d 0a c8 17 e7 42 3d 2d  31 42 3d 42 25 8b e7 42  |.....B=-1B=B%..B|
00003010  3c 3e 42 25 42 3d 30 0d  0a d2 0d e7 42 3c 3e 42  |<>B%B=0.....B<>B|
00003020  25 42 3d 30 0d 0a dc 07  ed 3a e1 0d 0a e6 3d dd  |%B=0.....:....=.|
00003030  f2 53 54 4e 52 45 4e 54  3a 4a 25 3d 2d 31 3a e3  |.STNRENT:J%=-1:.|
00003040  49 25 3d 36 b8 33 36 88  31 30 3a e7 28 4c 4f 25  |I%=6.36.10:.(LO%|
00003050  28 49 25 29 80 31 31 32  29 2f 31 36 3d 33 2d 58  |(I%).112)/16=3-X|
00003060  25 4a 25 3d 4a 25 2b 31  0d 0a f0 11 ed 3a 41 3d  |%J%=J%+1.....:A=|
00003070  32 5e 4a 25 2a 32 35 3a  e1 0d 0a fa 3d dd f2 55  |2^J%*25:....=..U|
00003080  54 52 45 4e 54 3a 4a 25  3d 2d 31 3a e3 49 25 3d  |TRENT:J%=-1:.I%=|
00003090  31 33 b8 32 39 88 31 36  3a e7 28 4c 4f 25 28 49  |13.29.16:.(LO%(I|
000030a0  25 29 80 31 31 32 29 2f  31 36 3d 33 2d 58 25 4a  |%).112)/16=3-X%J|
000030b0  25 3d 4a 25 2b 31 0d 0b  04 1a ed 3a 41 3d 28 34  |%=J%+1.....:A=(4|
000030c0  2b 36 2a 4a 25 29 2a 28  44 31 2b 44 32 29 3a e1  |+6*J%)*(D1+D2):.|
000030d0  0d 0b 0e ae dd f2 52 4f  4c 4c 3a f2 43 4c 53 3a  |......ROLL:.CLS:|
000030e0  41 24 3d 22 59 4f 55 20  48 41 56 45 20 52 4f 4c  |A$="YOU HAVE ROL|
000030f0  4c 45 44 2f 20 2f 22 2b  c3 44 31 2b 22 20 41 4e  |LED/ /"+.D1+" AN|
00003100  44 20 22 2b c3 44 32 3a  e7 44 4f 3d 33 41 24 3d  |D "+.D2:.DO=3A$=|
00003110  41 24 2b 22 2f 20 2f 59  4f 55 20 48 41 56 45 20  |A$+"/ /YOU HAVE |
00003120  54 48 52 4f 57 4e 2f 54  48 52 45 45 20 44 4f 55  |THROWN/THREE DOU|
00003130  42 4c 45 53 2f 20 2f 47  4f 20 54 4f 20 4a 41 49  |BLES/ /GO TO JAI|
00003140  4c 22 3a 5a 25 3d 34 31  3a 4e 4a 3d 30 3a 59 25  |L":Z%=41:NJ=0:Y%|
00003150  3d 33 2d 58 25 3a 44 4f  3d 30 8b e7 49 4a 28 58  |=3-X%:DO=0..IJ(X|
00003160  25 29 3d 30 5a 25 3d 5a  25 2b 44 31 2b 44 32 3a  |%)=0Z%=Z%+D1+D2:|
00003170  e7 5a 25 3e 34 30 5a 25  3d 5a 25 2d 34 30 0d 0b  |.Z%>40Z%=Z%-40..|
00003180  18 17 59 3d 33 32 30 3a  f2 54 45 58 54 3a ee 85  |..Y=320:.TEXT:..|
00003190  e5 8d 54 7c 45 0d 0b 22  05 e1 0d 0b 2c 06 dc 39  |..T|E.."....,..9|
000031a0  0d 0b 36 2d dc 31 2c 4f  4c 44 20 4b 45 4e 54 2f  |..6-.1,OLD KENT/|
000031b0  52 4f 41 44 2c 36 30 2c  32 2c 31 30 2c 33 30 2c  |ROAD,60,2,10,30,|
000031c0  39 30 2c 31 36 30 2c 32  35 30 2c 35 30 0d 0b 40  |90,160,250,50..@|
000031d0  07 dc 31 30 0d 0b 4a 31  dc 31 2c 57 48 49 54 45  |..10..J1.1,WHITE|
000031e0  43 48 41 50 45 4c 2f 52  4f 41 44 2c 36 30 2c 34  |CHAPEL/ROAD,60,4|
000031f0  2c 32 30 2c 36 30 2c 31  38 30 2c 33 32 30 2c 34  |,20,60,180,320,4|
00003200  35 30 2c 35 30 0d 0b 54  07 dc 31 31 0d 0b 5e 17  |50,50..T..11..^.|
00003210  dc 31 34 2c 4b 49 4e 47  53 20 43 52 4f 53 53 2c  |.14,KINGS CROSS,|
00003220  32 30 30 0d 0b 68 31 dc  32 2c 41 4e 47 45 4c 2f  |200..h1.2,ANGEL/|
00003230  49 53 4c 49 4e 47 54 4f  4e 2c 31 30 30 2c 36 2c  |ISLINGTON,100,6,|
00003240  33 30 2c 39 30 2c 32 37  30 2c 34 30 30 2c 35 35  |30,90,270,400,55|
00003250  30 2c 35 30 0d 0b 72 07  dc 31 32 0d 0b 7c 2d dc  |0,50..r..12..|-.|
00003260  32 2c 45 55 53 54 4f 4e  2f 52 4f 41 44 2c 31 30  |2,EUSTON/ROAD,10|
00003270  30 2c 36 2c 33 30 2c 39  30 2c 32 37 30 2c 34 30  |0,6,30,90,270,40|
00003280  30 2c 35 35 30 2c 35 30  0d 0b 86 33 dc 32 2c 50  |0,550,50...3.2,P|
00003290  45 4e 54 4f 4e 56 49 4c  4c 45 2f 52 4f 41 44 2c  |ENTONVILLE/ROAD,|
000032a0  31 32 30 2c 38 2c 34 30  2c 31 30 30 2c 33 30 30  |120,8,40,100,300|
000032b0  2c 34 35 30 2c 36 30 30  2c 35 30 0d 0b 90 07 dc  |,450,600,50.....|
000032c0  31 35 0d 0b 9a 2e dc 33  2c 50 41 4c 4c 20 4d 41  |15.....3,PALL MA|
000032d0  4c 4c 2c 31 34 30 2c 31  30 2c 35 30 2c 31 35 30  |LL,140,10,50,150|
000032e0  2c 34 35 30 2c 36 32 35  2c 37 35 30 2c 31 30 30  |,450,625,750,100|
000032f0  0d 0b a4 1c dc 31 33 2c  45 4c 45 43 54 52 49 43  |.....13,ELECTRIC|
00003300  2f 43 4f 4d 50 41 4e 59  2c 31 35 30 0d 0b ae 2e  |/COMPANY,150....|
00003310  dc 33 2c 57 48 49 54 45  48 41 4c 4c 2c 31 34 30  |.3,WHITEHALL,140|
00003320  2c 31 30 2c 35 30 2c 31  35 30 2c 34 35 30 2c 36  |,10,50,150,450,6|
00003330  32 35 2c 37 35 30 2c 31  30 30 0d 0b b8 3b dc 33  |25,750,100...;.3|
00003340  2c 4e 4f 52 54 48 55 4d  42 45 52 2f 4c 41 4e 44  |,NORTHUMBER/LAND|
00003350  20 41 56 45 4e 55 45 2c  31 36 30 2c 31 32 2c 36  | AVENUE,160,12,6|
00003360  30 2c 31 38 30 2c 35 30  30 2c 37 30 30 2c 39 30  |0,180,500,700,90|
00003370  30 2c 31 30 30 0d 0b c2  16 dc 31 34 2c 4d 41 52  |0,100.....14,MAR|
00003380  59 4c 45 42 4f 4e 45 2c  32 30 30 0d 0b cc 2f dc  |YLEBONE,200.../.|
00003390  34 2c 42 4f 57 20 53 54  52 45 45 54 2c 31 38 30  |4,BOW STREET,180|
000033a0  2c 31 34 2c 37 30 2c 32  30 30 2c 35 35 30 2c 37  |,14,70,200,550,7|
000033b0  35 30 2c 39 35 30 2c 31  30 30 0d 0b d6 07 dc 31  |50,950,100.....1|
000033c0  30 0d 0b e0 37 dc 34 2c  4d 41 52 4c 42 4f 52 4f  |0...7.4,MARLBORO|
000033d0  55 47 48 2f 53 54 52 45  45 54 2c 31 38 30 2c 31  |UGH/STREET,180,1|
000033e0  34 2c 37 30 2c 32 30 30  2c 35 35 30 2c 37 35 30  |4,70,200,550,750|
000033f0  2c 39 35 30 2c 31 30 30  0d 0b ea 31 dc 34 2c 56  |,950,100...1.4,V|
00003400  49 4e 45 20 53 54 52 45  45 54 2c 32 30 30 2c 31  |INE STREET,200,1|
00003410  36 2c 38 30 2c 32 32 30  2c 36 30 30 2c 38 30 30  |6,80,220,600,800|
00003420  2c 31 30 30 30 2c 31 30  30 0d 0b f4 07 dc 31 36  |,1000,100.....16|
00003430  0d 0b fe 2c dc 35 2c 53  54 52 41 4e 44 2c 32 32  |...,.5,STRAND,22|
00003440  30 2c 31 38 2c 39 30 2c  32 35 30 2c 37 30 30 2c  |0,18,90,250,700,|
00003450  38 37 35 2c 31 30 35 30  2c 31 35 30 0d 0c 08 07  |875,1050,150....|
00003460  dc 31 32 0d 0c 12 32 dc  35 2c 46 4c 45 45 54 20  |.12...2.5,FLEET |
00003470  53 54 52 45 45 54 2c 32  32 30 2c 31 38 2c 39 30  |STREET,220,18,90|
00003480  2c 32 35 30 2c 37 30 30  2c 38 37 35 2c 31 30 35  |,250,700,875,105|
00003490  30 2c 31 35 30 0d 0c 1c  37 dc 35 2c 54 52 41 46  |0,150...7.5,TRAF|
000034a0  41 4c 47 41 52 2f 53 51  55 41 52 45 2c 32 34 30  |ALGAR/SQUARE,240|
000034b0  2c 32 30 2c 31 30 30 2c  33 30 30 2c 37 35 30 2c  |,20,100,300,750,|
000034c0  39 32 35 2c 31 31 30 30  2c 31 35 30 0d 0c 26 18  |925,1100,150..&.|
000034d0  dc 31 34 2c 46 45 4e 43  48 55 52 43 48 20 53 54  |.14,FENCHURCH ST|
000034e0  2c 32 30 30 0d 0c 30 37  dc 36 2c 4c 45 49 43 45  |,200..07.6,LEICE|
000034f0  53 54 45 52 2f 53 51 55  41 52 45 2c 32 36 30 2c  |STER/SQUARE,260,|
00003500  32 32 2c 31 31 30 2c 33  33 30 2c 38 30 30 2c 39  |22,110,330,800,9|
00003510  37 35 2c 31 31 35 30 2c  31 35 30 0d 0c 3a 36 dc  |75,1150,150..:6.|
00003520  36 2c 43 4f 56 45 4e 54  52 59 2f 53 54 52 45 45  |6,COVENTRY/STREE|
00003530  54 2c 32 36 30 2c 32 32  2c 31 31 30 2c 33 33 30  |T,260,22,110,330|
00003540  2c 38 30 30 2c 39 37 35  2c 31 31 35 30 2c 31 35  |,800,975,1150,15|
00003550  30 0d 0c 44 17 dc 31 33  2c 57 41 54 45 52 2f 57  |0..D..13,WATER/W|
00003560  4f 52 4b 53 2c 31 35 30  0d 0c 4e 32 dc 36 2c 50  |ORKS,150..N2.6,P|
00003570  49 43 43 41 44 49 4c 4c  59 2c 32 38 30 2c 32 32  |ICCADILLY,280,22|
00003580  2c 31 32 30 2c 33 36 30  2c 38 35 30 2c 31 30 32  |,120,360,850,102|
00003590  35 2c 31 32 30 30 2c 31  35 30 0d 0c 58 07 dc 31  |5,1200,150..X..1|
000035a0  37 0d 0c 62 35 dc 37 2c  52 45 47 45 4e 54 2f 53  |7..b5.7,REGENT/S|
000035b0  54 52 45 45 54 2c 33 30  30 2c 32 36 2c 31 33 30  |TREET,300,26,130|
000035c0  2c 33 39 30 2c 39 30 30  2c 31 31 30 30 2c 31 32  |,390,900,1100,12|
000035d0  37 35 2c 32 30 30 0d 0c  6c 35 dc 37 2c 4f 58 46  |75,200..l5.7,OXF|
000035e0  4f 52 44 2f 53 54 52 45  45 54 2c 33 30 30 2c 32  |ORD/STREET,300,2|
000035f0  36 2c 31 33 30 2c 33 39  30 2c 39 30 30 2c 31 31  |6,130,390,900,11|
00003600  30 30 2c 31 32 37 35 2c  32 30 30 0d 0c 76 07 dc  |00,1275,200..v..|
00003610  31 30 0d 0c 80 34 dc 37  2c 42 4f 4e 44 20 53 54  |10...4.7,BOND ST|
00003620  52 45 45 54 2c 33 32 30  2c 32 38 2c 31 35 30 2c  |REET,320,28,150,|
00003630  34 35 30 2c 31 30 30 30  2c 31 32 30 30 2c 31 34  |450,1000,1200,14|
00003640  30 30 2c 32 30 30 0d 0c  8a 18 dc 31 34 2c 4c 49  |00,200.....14,LI|
00003650  56 45 52 50 4f 4f 4c 20  53 54 2c 32 30 30 0d 0c  |VERPOOL ST,200..|
00003660  94 07 dc 31 32 0d 0c 9e  32 dc 38 2c 50 41 52 4b  |...12...2.8,PARK|
00003670  20 4c 41 4e 45 2c 33 35  30 2c 33 35 2c 31 37 35  | LANE,350,35,175|
00003680  2c 35 30 30 2c 31 31 30  30 2c 31 33 30 30 2c 31  |,500,1100,1300,1|
00003690  35 30 30 2c 32 30 30 0d  0c a8 07 dc 31 38 0d 0c  |500,200.....18..|
000036a0  b2 30 dc 38 2c 4d 41 59  46 41 49 52 2c 34 30 30  |.0.8,MAYFAIR,400|
000036b0  2c 35 30 2c 32 30 30 2c  36 30 30 2c 31 34 30 30  |,50,200,600,1400|
000036c0  2c 31 37 30 30 2c 32 30  30 30 2c 32 30 30 0d 0c  |,1700,2000,200..|
000036d0  bc 07 dc 31 39 0d 0c c6  22 dc 47 4f 2c 43 43 2c  |...19...".GO,CC,|
000036e0  49 54 2c 43 48 2c 55 54  2c 53 4e 2c 4a 41 2c 46  |IT,CH,UT,SN,JA,F|
000036f0  50 2c 47 4a 2c 53 54 0d  0c d0 46 dc 42 4c 41 43  |P,GJ,ST...F.BLAC|
00003700  4b 2c 43 59 41 4e 2c 4d  41 47 45 4e 54 41 2c 57  |K,CYAN,MAGENTA,W|
00003710  48 49 54 45 2c 52 45 44  2c 59 45 4c 4c 4f 57 2c  |HITE,RED,YELLOW,|
00003720  47 52 45 45 4e 2c 42 4c  55 45 2c 53 54 41 54 49  |GREEN,BLUE,STATI|
00003730  4f 4e 53 2c 55 54 49 4c  49 54 49 45 53 0d 0c da  |ONS,UTILITIES...|
00003740  18 dc 30 2c 36 2c 35 2c  37 2c 31 2c 33 2c 32 2c  |..0,6,5,7,1,3,2,|
00003750  34 2c 30 2c 30 0d 0c e4  4b dc 53 49 54 45 20 4f  |4,0,0...K.SITE O|
00003760  4e 4c 59 2c 31 20 48 4f  55 53 45 2c 32 20 48 4f  |NLY,1 HOUSE,2 HO|
00003770  55 53 45 53 2c 33 20 48  4f 55 53 45 53 2c 34 20  |USES,3 HOUSES,4 |
00003780  48 4f 55 53 45 53 2c 48  4f 54 45 4c 2c 43 4f 53  |HOUSES,HOTEL,COS|
00003790  54 20 48 4f 55 53 45 2c  4d 4f 52 54 47 41 47 45  |T HOUSE,MORTGAGE|
000037a0  0d 0c ee 70 dc 22 20 42  52 49 54 49 53 48 20 52  |...p." BRITISH R|
000037b0  41 49 4c 22 2c 2c 52 45  4e 54 20 20 20 20 20 20  |AIL",,RENT      |
000037c0  20 20 60 32 35 2c 2c 20  20 32 20 53 54 41 54 49  |  `25,,  2 STATI|
000037d0  4f 4e 53 20 20 60 35 30  2c 2c 20 20 33 20 53 54  |ONS  `50,,  3 ST|
000037e0  41 54 49 4f 4e 53 20 60  31 30 30 2c 2c 20 20 34  |ATIONS `100,,  4|
000037f0  20 53 54 41 54 49 4f 4e  53 20 60 32 30 30 2c 2c  | STATIONS `200,,|
00003800  2c 4d 4f 52 54 47 41 47  45 20 20 20 60 31 30 30  |,MORTGAGE   `100|
00003810  0d 0c f8 85 dc 49 46 20  4f 4e 45 20 55 54 49 4c  |.....IF ONE UTIL|
00003820  49 54 59 2c 4f 57 4e 45  44 20 52 45 4e 54 20 49  |ITY,OWNED RENT I|
00003830  53 20 34 2c 54 49 4d 45  53 20 54 48 41 54 20 53  |S 4,TIMES THAT S|
00003840  48 4f 57 4e 2c 4f 4e 20  44 49 43 45 2c 2c 49 46  |HOWN,ON DICE,,IF|
00003850  20 41 4c 4c 20 55 54 49  4c 49 54 49 45 53 2c 4f  | ALL UTILITIES,O|
00003860  57 4e 45 44 20 52 45 4e  54 20 49 53 20 31 30 2c  |WNED RENT IS 10,|
00003870  54 49 4d 45 53 20 54 48  41 54 20 4f 4e 2c 44 49  |TIMES THAT ON,DI|
00003880  43 45 2c 2c 2c 4d 4f 52  54 47 41 47 45 20 20 20  |CE,,,MORTGAGE   |
00003890  20 20 60 37 35 0d 0d 02  3e dc 43 41 52 44 20 4d  |  `75...>.CARD M|
000038a0  55 53 54 20 42 45 2c 54  55 52 4e 45 44 20 54 48  |UST BE,TURNED TH|
000038b0  49 53 20 53 49 44 45 2c  55 50 20 49 46 20 50 52  |IS SIDE,UP IF PR|
000038c0  4f 50 45 52 54 59 2c 49  53 20 4d 4f 52 54 47 41  |OPERTY,IS MORTGA|
000038d0  47 45 44 0d 0d 0c 1c dc  53 50 45 45 44 49 4e 47  |GED.....SPEEDING|
000038e0  20 46 49 4e 45 20 60 31  35 2c 2d 31 35 2c 30 0d  | FINE `15,-15,0.|
000038f0  0d 16 1e dc 44 4f 43 54  4f 52 53 20 46 45 45 2f  |....DOCTORS FEE/|
00003900  50 41 59 20 60 35 30 2c  2d 35 30 2c 30 0d 0d 20  |PAY `50,-50,0.. |
00003910  1d dc 50 41 59 20 48 4f  53 50 54 49 41 4c 20 60  |..PAY HOSPTIAL `|
00003920  31 30 30 2c 2d 31 30 30  2c 30 0d 0d 2a 49 dc 59  |100,-100,0..*I.Y|
00003930  4f 55 20 41 52 45 20 41  53 53 45 53 53 45 44 2f  |OU ARE ASSESSED/|
00003940  46 4f 52 20 53 54 52 45  45 54 20 52 45 50 41 49  |FOR STREET REPAI|
00003950  52 53 2f 60 34 30 20 50  45 52 20 48 4f 55 53 45  |RS/`40 PER HOUSE|
00003960  2f 60 31 31 35 20 50 45  52 20 48 4f 54 45 4c 2c  |/`115 PER HOTEL,|
00003970  30 2c 30 0d 0d 34 27 dc  42 41 4e 4b 20 50 41 59  |0,0..4'.BANK PAY|
00003980  53 20 59 4f 55 2f 44 49  56 49 44 45 4e 44 20 4f  |S YOU/DIVIDEND O|
00003990  46 20 60 35 30 2c 35 30  2c 30 0d 0d 3e 28 dc 46  |F `50,50,0..>(.F|
000039a0  52 4f 4d 20 53 41 4c 45  20 4f 46 20 53 54 4f 43  |ROM SALE OF STOC|
000039b0  4b 2f 59 4f 55 20 47 45  54 20 60 35 30 2c 35 30  |K/YOU GET `50,50|
000039c0  2c 30 0d 0d 48 1b dc 59  4f 55 20 49 4e 48 45 52  |,0..H..YOU INHER|
000039d0  49 54 20 60 31 30 30 2c  31 30 30 2c 30 0d 0d 52  |IT `100,100,0..R|
000039e0  27 dc 49 4e 43 4f 4d 45  20 54 41 58 20 52 45 46  |'.INCOME TAX REF|
000039f0  55 4e 44 2f 43 4f 4c 4c  45 43 54 20 60 32 30 2c  |UND/COLLECT `20,|
00003a00  32 30 2c 30 0d 0d 5c 27  dc 41 4e 4e 55 49 54 59  |20,0..\'.ANNUITY|
00003a10  20 4d 41 54 55 52 45 53  2f 43 4f 4c 4c 45 43 54  | MATURES/COLLECT|
00003a20  20 60 31 30 30 2c 31 30  30 2c 30 0d 0d 66 32 dc  | `100,100,0..f2.|
00003a30  59 4f 55 52 20 42 55 49  4c 44 49 4e 47 20 4c 4f  |YOUR BUILDING LO|
00003a40  41 4e 2f 4d 41 54 55 52  45 53 2f 52 45 43 45 49  |AN/MATURES/RECEI|
00003a50  56 45 20 60 31 35 30 2c  31 35 30 2c 30 0d 0d 70  |VE `150,150,0..p|
00003a60  41 dc 41 44 56 41 4e 43  45 20 54 4f 2f 54 52 41  |A.ADVANCE TO/TRA|
00003a70  46 41 4c 47 41 52 20 53  51 55 41 52 45 2f 49 46  |FALGAR SQUARE/IF|
00003a80  20 59 4f 55 20 50 41 53  53 20 47 4f 2f 43 4f 4c  | YOU PASS GO/COL|
00003a90  4c 45 43 54 20 60 32 30  30 2c 30 2c 32 35 0d 0d  |LECT `200,0,25..|
00003aa0  7a 3a dc 41 44 56 41 4e  43 45 20 54 4f 2f 50 41  |z:.ADVANCE TO/PA|
00003ab0  4c 4c 20 4d 41 4c 4c 2f  49 46 20 59 4f 55 20 50  |LL MALL/IF YOU P|
00003ac0  41 53 53 20 47 4f 2f 43  4f 4c 4c 45 43 54 20 60  |ASS GO/COLLECT `|
00003ad0  32 30 30 2c 30 2c 31 32  0d 0d 84 1c dc 41 44 56  |200,0,12.....ADV|
00003ae0  41 4e 43 45 20 54 4f 20  4d 41 59 46 41 49 52 2c  |ANCE TO MAYFAIR,|
00003af0  30 2c 34 30 0d 0d 8e 1a  dc 41 44 56 41 4e 43 45  |0,40.....ADVANCE|
00003b00  20 33 20 53 50 41 43 45  53 2c 30 2c 2d 33 0d 0d  | 3 SPACES,0,-3..|
00003b10  98 25 dc 50 41 59 20 49  4e 54 45 52 45 53 54 20  |.%.PAY INTEREST |
00003b20  4f 4e 2f 41 20 4c 4f 41  4e 2f 60 35 30 2c 2d 35  |ON/A LOAN/`50,-5|
00003b30  30 2c 30 0d 0d a2 4b dc  54 41 4b 45 20 41 20 54  |0,0...K.TAKE A T|
00003b40  52 49 50 20 54 4f 2f 4d  41 52 59 4c 45 42 4f 4e  |RIP TO/MARYLEBON|
00003b50  45 20 53 54 41 54 49 4f  4e 2f 41 4e 44 20 49 46  |E STATION/AND IF|
00003b60  20 59 4f 55 20 50 41 53  53 20 47 4f 2f 43 4f 4c  | YOU PASS GO/COL|
00003b70  4c 45 43 54 20 60 32 30  30 2c 30 2c 31 36 0d 0d  |LECT `200,0,16..|
00003b80  ac 16 dc 41 44 56 41 4e  43 45 20 54 4f 20 47 4f  |...ADVANCE TO GO|
00003b90  2c 30 2c 31 0d 0d b6 23  dc 44 52 55 4e 4b 20 49  |,0,1...#.DRUNK I|
00003ba0  4e 20 43 48 41 52 47 45  2f 46 49 4e 45 20 60 32  |N CHARGE/FINE `2|
00003bb0  30 2c 2d 32 30 2c 30 0d  0d c0 29 dc 50 41 59 20  |0,-20,0...).PAY |
00003bc0  59 4f 55 52 20 49 4e 53  55 52 41 4e 43 45 2f 50  |YOUR INSURANCE/P|
00003bd0  52 45 4d 49 55 4d 20 60  35 30 2c 2d 35 30 2c 30  |REMIUM `50,-50,0|
00003be0  0d 0d ca 23 dc 50 41 59  20 53 43 48 4f 4f 4c 20  |...#.PAY SCHOOL |
00003bf0  46 45 45 53 2f 4f 46 20  60 31 35 30 2c 2d 31 35  |FEES/OF `150,-15|
00003c00  30 2c 30 0d 0d d4 32 dc  59 4f 55 52 20 42 55 49  |0,0...2.YOUR BUI|
00003c10  4c 44 49 4e 47 20 4c 4f  41 4e 2f 4d 41 54 55 52  |LDING LOAN/MATUR|
00003c20  45 53 2f 52 45 43 45 49  56 45 20 60 31 35 30 2c  |ES/RECEIVE `150,|
00003c30  31 35 30 2c 30 0d 0d de  3c dc 59 4f 55 20 48 41  |150,0...<.YOU HA|
00003c40  56 45 20 57 4f 4e 20 41  2f 43 52 4f 53 53 57 4f  |VE WON A/CROSSWO|
00003c50  52 44 2f 43 4f 4d 50 45  54 49 54 49 4f 4e 2f 43  |RD/COMPETITION/C|
00003c60  4f 4c 4c 45 43 54 20 60  31 30 30 2c 31 30 30 2c  |OLLECT `100,100,|
00003c70  30 0d 0d e8 31 dc 42 41  4e 4b 20 45 52 52 4f 52  |0...1.BANK ERROR|
00003c80  20 49 4e 20 59 4f 55 52  2f 46 41 56 4f 55 52 2f  | IN YOUR/FAVOUR/|
00003c90  43 4f 4c 4c 45 43 54 20  60 32 30 30 2c 32 30 30  |COLLECT `200,200|
00003ca0  2c 30 0d 0d f2 43 dc 59  4f 55 20 48 41 56 45 20  |,0...C.YOU HAVE |
00003cb0  57 4f 4e 2f 53 45 43 4f  4e 44 20 50 52 49 5a 45  |WON/SECOND PRIZE|
00003cc0  20 49 4e 20 41 2f 42 45  41 55 54 59 20 43 4f 4e  | IN A/BEAUTY CON|
00003cd0  54 45 53 54 2f 43 4f 4c  4c 45 43 54 20 60 31 30  |TEST/COLLECT `10|
00003ce0  2c 31 30 2c 30 0d 0d fc  37 dc 52 45 43 45 49 56  |,10,0...7.RECEIV|
00003cf0  45 20 49 4e 54 45 52 45  53 54 2f 4f 4e 20 37 50  |E INTEREST/ON 7P|
00003d00  43 20 50 52 45 46 45 52  45 4e 43 45 2f 53 48 41  |C PREFERENCE/SHA|
00003d10  52 45 53 2f 60 32 35 2c  32 35 2c 30 0d 0e 06 4d  |RES/`25,25,0...M|
00003d20  dc 47 4f 20 54 4f 20 4a  41 49 4c 2f 4d 4f 56 45  |.GO TO JAIL/MOVE|
00003d30  20 44 49 52 45 43 54 4c  59 20 54 4f 2f 4a 41 49  | DIRECTLY TO/JAI|
00003d40  4c 2f 44 4f 20 4e 4f 54  20 50 41 53 53 20 47 4f  |L/DO NOT PASS GO|
00003d50  2f 44 4f 20 4e 4f 54 20  43 4f 4c 4c 45 43 54 20  |/DO NOT COLLECT |
00003d60  60 32 30 30 2c 30 2c 34  31 0d 0e 10 42 dc 47 45  |`200,0,41...B.GE|
00003d70  54 20 4f 55 54 20 4f 46  20 4a 41 49 4c 2f 46 52  |T OUT OF JAIL/FR|
00003d80  45 45 2f 20 2f 54 48 49  53 20 43 41 52 44 20 4d  |EE/ /THIS CARD M|
00003d90  41 59 20 42 45 2f 4b 45  50 54 20 55 4e 54 49 4c  |AY BE/KEPT UNTIL|
00003da0  20 4e 45 45 44 45 44 2c  30 2c 30 0d 0e 1a 81 dc  | NEEDED,0,0.....|
00003db0  52 4f 4c 4c 20 44 49 43  45 2c 53 48 4f 57 20 43  |ROLL DICE,SHOW C|
00003dc0  4f 4c 4f 55 52 20 47 52  4f 55 50 2c 4c 49 53 54  |OLOUR GROUP,LIST|
00003dd0  20 4f 57 4e 45 44 20 50  52 4f 50 45 52 54 59 2c  | OWNED PROPERTY,|
00003de0  4c 49 53 54 20 41 4c 4c  20 50 52 4f 50 45 52 54  |LIST ALL PROPERT|
00003df0  59 2c 53 45 4c 4c 20 50  52 4f 50 45 52 54 59 2c  |Y,SELL PROPERTY,|
00003e00  42 55 59 20 4f 52 20 53  45 4c 4c 20 48 4f 55 53  |BUY OR SELL HOUS|
00003e10  45 53 2c 4d 4f 52 54 41  47 45 20 50 52 4f 50 45  |ES,MORTAGE PROPE|
00003e20  52 54 59 2c 45 4e 44 20  47 41 4d 45 0d 0e 24 58  |RTY,END GAME..$X|
00003e30  dc 31 20 50 41 59 20 60  35 30 2c 32 20 52 4f 4c  |.1 PAY `50,2 ROL|
00003e40  4c 20 44 49 43 45 20 41  4e 44 20 48 4f 50 45 2c  |L DICE AND HOPE,|
00003e50  22 20 20 46 4f 52 20 44  4f 55 42 4c 45 53 22 2c  |"  FOR DOUBLES",|
00003e60  33 20 55 53 45 20 41 20  47 45 54 20 4f 55 54 20  |3 USE A GET OUT |
00003e70  4f 46 2c 22 20 4a 41 49  4c 20 46 52 45 45 20 43  |OF," JAIL FREE C|
00003e80  41 52 44 22 0d 0e 2e 05  3a 0d 0e 38 09 dd f2 6c  |ARD"....:..8...l|
00003e90  6f 63 0d 0e 42 52 2a 4b  45 59 20 30 20 2a 54 41  |oc..BR*KEY 0 *TA|
00003ea0  50 45 7c 4d 46 4f 52 49  25 3d 30 20 54 4f 20 54  |PE|MFORI%=0 TO T|
00003eb0  4f 50 20 53 54 45 50 34  3a 49 25 21 26 45 30 30  |OP STEP4:I%!&E00|
00003ec0  3d 49 25 21 26 31 44 30  30 3a 4e 45 58 54 3a 50  |=I%!&1D00:NEXT:P|
00003ed0  41 47 45 3d 26 45 30 30  7c 4d 4f 4c 44 7c 4d 52  |AGE=&E00|MOLD|MR|
00003ee0  55 4e 7c 4d 0d 0e 4c 10  2a 46 58 31 33 38 2c 30  |UN|M..L.*FX138,0|
00003ef0  2c 31 32 38 0d 0e 56 05  e0 0d ff                 |,128..V....|
00003efb
G/OMN.m0
G/OMN.m1
G/OMN.m2
G/OMN.m4
G/OMN.m5