<commit_before>1 ! MONOPOLY GAME BY <NAME>, SOUTHEASTERN STATE COLLEGE, DURANT, OK
2 ! SLIGHT PROGRAM MODIFICATIONS BY <NAME>, DIGITAL
3 M(1),M(2)=1500%: I(1),I(2)=0: DIM A$(25),B$(25),H%(40)
7 OPEN "PRPRTY" AS FILE 1: DIM #1 ,Q$(40%)=25,L%(40),P(40%),R(40%)
8 FOR I=1 TO 39:L%(I),H%(I)=0:NEXT I:FOR I=1 TO 8:U(I)=0:NEXT I
9 DEF FNR=(H%(I(Z))*R(I(Z))*10%)
10 OPEN "MESAJ" AS FILE 3: DIM #3,C$(10)=50%,Z$(10)=80%,M$(20)=50%
15 & M$(1):& :& :& "**RULES**":& M$(2):& M$(3):& M$(4):& M$(5)
30 INPUT"WHO IS PLAYER #1";N$(1): INPUT"WHO IS PLAYER #2";N$(2)
100 PRINT: PRINT "**"N$(1)"'S TURN**********":           F=0
102 Z=1%: GOSUB 1000: GOSUB 2000
115 IF D=D1 THEN F=F+1: IF F<3 THEN PRINT M$(9): GOTO 102
117 IF F=3 THEN PRINT M$(10): I(Z)=10: M(Z)=M(Z)-50%
200 PRINT: PRINT "**"N$(2)"'S TURN**********":           F=0
202 Z=2%: GOSUB 1000: GOSUB 2000
215 IF D=D1 THEN F=F+1: IF F<3 THEN PRINT M$(9): GOTO 202
217 IF F=3 THEN PRINT M$(10): I(Z)=10: M(Z)=M(Z)-50%
225 PRINT M$(11);:INPUT F$: IF F$="QUIT" THEN 30000 ELSE 100
1000 PRINT M$(6);:INPUT F$: RANDOMIZE: X=RND(0): Y=RND(0) !DICE ROLL
1002 IF X>=0 AND X<=.16 THEN D=1
1003 IF X>.16 AND X<=.32 THEN D=2
1004 IF X>.32 AND X<=.48 THEN D=3
1005 IF X>.48 AND X<=.64 THEN D=4
1006 IF X>.64 AND X<=.81 THEN D=5
1007 IF X>.81 AND X<=1 THEN D=6
1009 IF Y>=0 AND Y<=.16 THEN D1=1
1010 IF Y>.16 AND Y<=.32 THEN D1=2
1011 IF Y>.32 AND Y<=.48 THEN D1=3
1012 IF Y>.48 AND Y<=.64 THEN D1=4
1013 IF Y>.64 AND Y<=.81 THEN D1=5
1014 IF Y>.81 AND Y<=1 THEN D1=6
1015 PRINT "YOU ROLLED A"D"AND A"D1:I(Z)=I(Z)+(D+D1)
1016 IF I(Z)>40% THEN I(Z)=I(Z)-40%:M(Z)=M(Z)+200%
1017 RETURN
2000 PRINT"YOU ARE ON ";G$(I(Z)) !PLACEMENT
2002 IF I(Z)=2 OR I(Z)=17 OR I(Z)=33 THEN 4100       !COM CHEST
2004 IF I(Z)=4 THEN M(Z)=M(Z)-200%;RETURN            !INC TAX
2006 IF I(Z)=7 OR I(Z)=22 OR I(Z)=36 THEN 4400       !CHANCE
2008 IF I(Z)=10 OR I(Z)=20 THEN RETURN               !VISIT IN JAIL & FREE PARKING
2010 IF I(Z)=30 THEN M(Z)=M(Z)-50%: I(Z)=10: RETURN  !JAIL
2011 IF I(Z)=38 THEN M(Z)=M(Z)-75%| RETURN           !LUX TAX
2012 IF I(Z)=40 THEN M(Z)=M(Z)+200%: I(Z)=01 RETURN  !GO
2018 IF L%(I(Z))=Z THEN PRINT M$(12): GOTO 3100
2019 IF (H%(I(Z))=0 AND L%(I(Z))>0 AND L%(I(Z))<>Z) THEN 2128
2020 IF (H%(I(Z))>0 AND L%(I(Z))>0 AND L%(I(Z))<>Z) THEN 2100
2022 PRINT M$(7);P(I(Z));"DOLLARS"
2024 PRINT M$(8):INPUT F$: IF F$<>"BUY" THEN 3100
2026M(Z)=M(Z)-P(I(Z)):PRINT "YOU NOW HAVE"M(Z) "DOLLARS
2027 L%(I(Z))=Z;GOTO 3100
2100 IF Z=1 THEN M(Z)=M(Z)-FNR: M(2)=M(2)+FNR
2101 PRINT "YOU OWE"FNR"DOLLARS RENT":RETURN
2102 IF Z=2 THEN M(Z)=M(Z)-FNR: M(1)=M(1)+FNR<commit_msg>Correct typos in MNOPLY.<commit_after>1 ! MONOPOLY GAME BY <NAME>, SOUTHEASTERN STATE COLLEGE, DURANT, OK
2 ! SLIGHT PROGRAM MODIFICATIONS BY <NAME>, DIGITAL
3 M(1),M(2)=1500%: I(1),I(2)=0: DIM A$(25),B$(25),H%(40)
7 OPEN "PRPRTY" AS FILE 1: DIM #1 ,Q$(40%)=25,L%(40),P(40%),R(40%)
8 FOR I=1 TO 39:L%(I),H%(I)=0:NEXT I:FOR I=1 TO 8:U(I)=0:NEXT I
9 DEF FNR=(H%(I(Z))*R(I(Z))*10%)
10 OPEN "MESAJ" AS FILE 3: DIM #3,C$(10)=50%,Z$(10)=50%,M$(20)=50%
15 & M$(1):& :& :& "**RULES**":& M$(2):& M$(3):& M$(4):& M$(5)
30 INPUT"WHO IS PLAYER #1";N$(1): INPUT"WHO IS PLAYER #2";N$(2)
100 PRINT: PRINT "**"N$(1)"'S TURN**********":           F=0
102 Z=1%: GOSUB 1000: GOSUB 2000
115 IF D=D1 THEN F=F+1: IF F<3 THEN PRINT M$(9): GOTO 102
117 IF F=3 THEN PRINT M$(10): I(Z)=10: M(Z)=M(Z)-50%
200 PRINT: PRINT "**"N$(2)"'S TURN**********":           F=0
202 Z=2%: GOSUB 1000: GOSUB 2000
215 IF D=D1 THEN F=F+1: IF F<3 THEN PRINT M$(9): GOTO 202
217 IF F=3 THEN PRINT M$(10): I(Z)=10: M(Z)=M(Z)-50%
225 PRINT M$(11);:INPUT F$: IF F$="QUIT" THEN 30000 ELSE 100
1000 PRINT M$(6);:INPUT F$: RANDOMIZE: X=RND(0): Y=RND(0) !DICE ROLL
1002 IF X>=0 AND X<=.16 THEN D=1
1003 IF X>.16 AND X<=.32 THEN D=2
1004 IF X>.32 AND X<=.48 THEN D=3
1005 IF X>.48 AND X<=.64 THEN D=4
1006 IF X>.64 AND X<=.81 THEN D=5
1007 IF X>.81 AND X<=1 THEN D=6
1009 IF Y>=0 AND Y<=.16 THEN D1=1
1010 IF Y>.16 AND Y<=.32 THEN D1=2
1011 IF Y>.32 AND Y<=.48 THEN D1=3
1012 IF Y>.48 AND Y<=.64 THEN D1=4
1013 IF Y>.64 AND Y<=.81 THEN D1=5
1014 IF Y>.81 AND Y<=1 THEN D1=6
1015 PRINT "YOU ROLLED A"D"AND A"D1:I(Z)=I(Z)+(D+D1)
1016 IF I(Z)>40% THEN I(Z)=I(Z)-40%:M(Z)=M(Z)+200%
1017 RETURN
2000 PRINT"YOU ARE ON ";G$(I(Z)) !PLACEMENT
2002 IF I(Z)=2 OR I(Z)=17 OR I(Z)=33 THEN 4100       !COM CHEST
2004 IF I(Z)=4 THEN M(Z)=M(Z)-200%:RETURN            !INC TAX
2006 IF I(Z)=7 OR I(Z)=22 OR I(Z)=36 THEN 4400       !CHANCE
2008 IF I(Z)=10 OR I(Z)=20 THEN RETURN               !VISIT IN JAIL & FREE PARKING
2010 IF I(Z)=30 THEN M(Z)=M(Z)-50%: I(Z)=10: RETURN  !JAIL
2011 IF I(Z)=38 THEN M(Z)=M(Z)-75%: RETURN           !LUX TAX
2012 IF I(Z)=40 THEN M(Z)=M(Z)+200%: I(Z)=01: RETURN !GO
2018 IF L%(I(Z))=Z THEN PRINT M$(12): GOTO 3100
2019 IF (H%(I(Z))=0 AND L%(I(Z))>0 AND L%(I(Z))<>Z) THEN 2128
2020 IF (H%(I(Z))>0 AND L%(I(Z))>0 AND L%(I(Z))<>Z) THEN 2100
2022 PRINT M$(7);P(I(Z));"DOLLARS"
2024 PRINT M$(8):INPUT F$: IF F$<>"BUY" THEN 3100
2026M(Z)=M(Z)-P(I(Z)):PRINT "YOU NOW HAVE"M(Z) "DOLLARS
2027 L%(I(Z))=Z:GOTO 3100
2100 IF Z=1 THEN M(Z)=M(Z)-FNR: M(2)=M(2)+FNR
2101 PRINT "YOU OWE"FNR"DOLLARS RENT":RETURN
2102 IF Z=2 THEN M(Z)=M(Z)-FNR: M(1)=M(1)+FNR
{'fraction_non_alphanumeric': 0.2401385414662305, 'fraction_numerical': 0.1712526457571676, 'mean_word_length': 4.358762886597938, 'pattern_counts': {'":': 8, '<': 41, '<?xml version=': 0, '>': 45, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1863507', 'n_tokens_mistral': 3191, 'n_tokens_neox': 2557, 'n_words': 762}