1 FOR I=1 TO 24
2 PRINT
3 NEXT I
5 PRINT "        *** MONOPOLY ***"
6 PRINT
7 INPUT "DATUM (dd.mm.jj): ";D1$
8 IF LEN(D1$)<>8 THEN 7
9 DIM H(20),C(20)
10 RANDOMIZE
15 T=0
16 S=0
17 G8=0
18 G1=0
19 K1=0
20 Y=(RND(1)+1)*50
21 M=RND(1)
22 Z1=(M+.5)*4
23 Z2=(M+.25)*15
24 K2=0
30 H=INT(Y/5+1)
40 FOR I=1 TO H
45 H(I)=1
50 NEXT I
55 B=INT(Y/30+1)
65 FOR I=1 TO B
70 B(I)=1
75 NEXT I
80 A=INT(Y/50+1.2)
85 FOR I=1 TO A
90 A(I)=1
95 NEXT I
100 C=INT(Y/5+1)
110 FOR I=1 TO C
115 C(I)=1
120 NEXT I
125 D=INT(Y/20+1)
130 FOR I=1 TO D
135 D(I)=1
140 NEXT I
165 L=INT(Y/10+1)
170 FOR I=1 TO L
175 L(I)=1
180 NEXT I
185 G=Y*50000!
186 G3=G
190 PRINT
195 PRINT "*** NUN VERSUCHEN SIE IHR GLUECK ! ***"
196 GOTO 5000
200 PRINT
205 PRINT "IN DER STADT -xxxxx- GIBT ES:"
215 PRINT H;" HAEUSER"
220 PRINT C;" GRUNDSTUECKE"
225 PRINT L;" EINKAUFSZENTREN"
230 PRINT D;" HOTELS"
235 PRINT B;" BETRIEBE"
240 PRINT A;" BAHNHOEFE"
250 PRINT
253 GOSUB 10000
255 IF R$<>"E" THEN 270
265 RETURN
270 PRINT "IHRE BARSCHAFT BETRAEGT ";G;" SF."
275 PRINT
300 T=T+1
302 IF T>24 THEN 3000
304 IF G8=0 THEN 330
306 S=S+1
307 IF S=24 THEN 2900
308 IF S>47 THEN 3100
330 PRINT
331 PRINT "WAS IST IHR NAECHSTES VORHABEN";
332 INPUT R$
333 PRINT
334 IF R$="K" THEN 400
335 IF R$="V" THEN 355
336 IF R$="B" THEN 370
337 IF R$="E" THEN 380
338 IF R$="P" THEN 390
339 IF R$="N" THEN 9010
340 IF R$="L" THEN 9250
341 PRINT "SIE KOENNEN WAEHLEN:"
342 PRINT "     K - KAUF"
343 PRINT "     V - VERKAUF"
344 PRINT "     B - BANK"
345 PRINT "     L - LISTE"
346 PRINT "     E - VORHANDEN"
347 PRINT "     P - BESITZ"
348 PRINT "     N - SPIELENDE"
349 GOTO 331
355 GOSUB 1500
360 GOSUB 1150
365 GOTO 300
370 GOSUB 1600
375 GOTO 300
380 GOSUB 200
385 GOTO 300
390 GOSUB 1500
395 GOTO 300
400 Y=RND(1)*7
401 V1=0
402 K2=K2+1
403 V2=0
404 IF Y>6 THEN 2300
405 IF Y>=5 THEN 465
410 IF Y>=4 THEN 480
420 IF Y>=3 THEN 500
430 IF Y>=2 THEN 520
440 IF Y>=1 THEN 540
450 Y=INT(RND(1)*H+1)
455 IF H(Y)=3 THEN 400
460 GOTO 570
465 Y=INT(RND(1)*C+1)
470 IF C(Y)=3 THEN 400
475 GOTO 590
480 Y=INT(RND(1)*B+1)
485 IF B(Y)=3 THEN 400
490 GOTO 610
500 Y=INT(RND(1)*L+1)
505 IF L(Y)=3 THEN 400
510 GOTO 630
520 Y=INT(RND(1)*A+1)
525 IF A(Y)=3 THEN 400
530 GOTO 650
540 Y=INT(RND(1)*D+1)
545 IF D(Y)=3 THEN 400
550 H$="DAS HOTEL"
555 D(Y)=2
560 W=(RND(1)+.5)*1E+06
565 GOTO 670
570 H$="DAS HAUS"
575 H(Y)=2
580 W=(RND(1)*.5)*400000!
585 GOTO 670
590 H$="DAS GRUNDSTUECK"
595 C(Y)=2
600 W=(RND(1)+.1)*800000!
605 GOTO 670
610 H$="DIE AKTIEN DES BETRIEBES"
615 B(Y)=2
620 W=(RND(1)+.01)*1E+06
625 GOTO 670
630 L(Y)=2
635 H$="DAS EINKAUFSZENTRUM"
640 W=(RND(1)*.25)*1E+06
645 GOTO 670
650 H$="DEN BAHNHOF"
655 A(Y)=2
660 W=(RND(1)+.5)*2E+06
670 PRINT H$;Y;"KOENNEN SIE FUER";W;" SF KAUFEN."
675 PRINT "WOLLEN SIE";
680 INPUT K$
685 IF K$<>"J" THEN 1020
686 K1=0
690 GOSUB 4000
700 PRINT "ZAHLEN SIE BAR (B) ODER MIT SCHECK (S) ";
705 INPUT K$
710 IF K$="B" THEN 725
715 IF K$="S" THEN 2000
720 GOTO 700
725 IF G<W THEN 800
730 G=G-W
733 GOSUB 4000
735 GOTO 1100
800 PRINT
805 PRINT "*** ZAHLEN SIE IHR GELD! ES SIND NUR";G;" SF! ***"
810 PRINT
815 IF G1>W THEN 890
820 PRINT "IHR KONTO VERKRAFTET DEN KAUF NICHT!"
825 IF G>W THEN 835
830 GOTO 9000
890 PRINT "SIE HAETTEN MIT SCHECK ZAHLEN MUESSEN!"
895 PRINT
900 IF H(Y)=2 THEN 950
905 IF C(Y)=2 THEN 980
910 IF L(Y)=2 THEN 990
915 IF D(Y)=2 THEN 940
920 IF B(Y)=2 THEN 970
925 IF A(Y)=2 THEN 960
940 D(Y)=1
945 GOTO 300
950 H(Y)=1
955 GOTO 300
960 A(Y)=1
965 GOTO 300
970 B(Y)=1
975 GOTO 300
980 C(Y)=1
985 GOTO 300
990 L(Y)=1
995 GOTO 300
1000 PRINT
1005 PRINT "*** GLUECKWUNSCH ZUM KAUF ***"
1010 GOTO 300
1020 IF K2<1 THEN 900
1025 K1=K1+1
1030 IF K1<3 THEN 900
1032 IF K1>3 THEN 9010
1035 PRINT
1040 PRINT "WENN SIE DEN NAECHSTEN KAUF AUCH ABLEHNEN IST DAS SPIEL BEENDET!"
1045 GOTO 300
1100 IF H(Y)=2 THEN 1110
1101 IF C(Y)=2 THEN 1112
1102 IF L(Y)=2 THEN 1114
1103 IF D(Y)=2 THEN 1116
1104 IF B(Y)=2 THEN 1118
1105 IF A(Y)=2 THEN 1120
1106 G8=0
1107 S=0
1108 GOTO 300
1109 IF A(Y)=2 THEN 1120
1110 H(Y)=3
1111 GOTO 1000
1112 C(Y)=3
1113 GOTO 1000
1114 L(Y)=3
1115 GOTO 1000
1116 D(Y)=3
1117 GOTO 1000
1118 B(Y)=3
1119 GOTO 1000
1120 A(Y)=3
1121 GOTO 1000
1150 M=RND(1)
1155 IF M>.85 THEN 2500
1160 K1=0
1165 K2=0
1170 V2=V2+1
1180 PRINT "WAS WOLLEN SIE VERKAUFEN?"
1205 PRINT "     H - HAUS"
1210 PRINT "     C - GRUNDSTUECK"
1215 PRINT "     L - EINKAUFSZENTRUM"
1220 PRINT "     D - HOTEL"
1225 PRINT "     B - AKTIEN"
1230 PRINT "     A - BAHNHOF"
1235 PRINT "     N - NICHTS"
1241 INPUT "AUSWAHL: ",K$
1245 IF K$="N" THEN 300
1247 X=RND(1)
1250 PRINT "NUMMER",
1255 INPUT I
1260 IF K$="H" THEN 1300
1265 IF K$="C" THEN 1310
1270 IF K$="L" THEN 1320
1275 IF K$="D" THEN 1330
1280 IF K$="B" THEN 1340
1285 IF K$="A" THEN 1350
1290 GOTO 1180
1300 IF H(I)<2 THEN 1420
1302 Z$="DAS HAUS NR."
1304 W=(X+.5)*400000!
1306 GOTO 1360
1310 IF C(I)<2 THEN 1420
1312 Z$="DAS GRUNDSTUECK NR."
1314 W=(X+.1)*800000!
1316 GOTO 1360
1320 IF L(I)<2 THEN 1420
1322 Z$="DAS EINKAUFSZENTRUM NR."
1324 W=(X+.25)*1E+06
1326 GOTO 1360
1330 IF D(I)<2 THEN 1420
1332 Z$="DAS HOTEL NR."
1334 W=(X+.5)*1E+06
1336 GOTO 1360
1340 IF B(I)<2 THEN 1420
1342 Z$="DIE AKTIEN DES BETRIEBES NR."
1344 W=(X+.1)*1.5E+06
1346 GOTO 1360
1350 IF A(I)<2 THEN 1420
1352 Z$="DEN BAHNHOF NR."
1354 W=(X+.5)*1.5E+06
1360 PRINT Z$;I;" KOENNEN SIE"
1361 PRINT "FUER ";W;" SF VERKAUFEN."
1365 PRINT "WOLLEN SIE VERKAUFEN";
1370 INPUT E$
1375 IF E$<>"J" THEN 1550
1376 V1=0
1377 GOTO 2200
1380 G=G+W
1385 PRINT
1390 PRINT "IHRE BARSCHAFT BETRAEGT NUN ";G;" SF."
1395 PRINT
1400 GOTO 1800
1420 PRINT "DIES BESITZEN SIE DOCH GAR NICHT!"
1425 PRINT
1430 GOTO 1180
1500 PRINT "SIE BESITZEN:"
1501 PRINT "HAUS-NR.               : ";
1502 FOR I=1 TO H
1503 IF H(I)<3 THEN 1505
1504 PRINT I;" ";
1505 NEXT I
1508 PRINT
1509 PRINT "GRUNDSTUECK-NR.        : ";
1510 FOR I=1 TO C
1511 IF C(I)<3 THEN 1513
1512 PRINT I;" ";
1513 NEXT I
1514 PRINT
1515 PRINT "EINKAUFSZENTRUM-NR.    : ";
1516 FOR I=1 TO L
1517 IF L(I)<3 THEN 1520
1518 PRINT I;" ";
1520 NEXT I
1521 PRINT
1522 PRINT "HOTEL-NR.              : ";
1523 FOR I=1 TO D
1524 IF D(I)<3 THEN 1526
1525 PRINT I;" ";
1526 NEXT I
1527 PRINT
1528 PRINT "BETRIEB-NR.            : ";
1529 FOR I=1 TO B
1530 IF B(I)<3 THEN 1532
1531 PRINT I;" ";
1532 NEXT I
1533 PRINT
1534 PRINT "BAHNHOF-NR.            : ";
1535 FOR I=1 TO A
1536 IF A(I)<3 THEN 1538
1537 PRINT I;" ";
1538 NEXT I
1539 PRINT
1540 IF R$="V" THEN 1545
1542 GOSUB 4000
1545 RETURN
1550 IF V2<1 THEN 1542
1555 V1=V1+1
1560 IF V1<2 THEN 1542
1565 IF V1>2 THEN 1585
1570 PRINT
1575 PRINT "WENN SIE DEN NAECHSTEN VERKAUF AUCH ABLEHNEN, WIRD ENTEIGNET!"
1580 GOTO 1542
1585 PRINT
1590 PRINT "*** DIESES STUECK WIRD NUN ENTEIGNET! ***"
1592 PRINT
1595 GOTO 1800
1600 K1=0
1601 K2=0
1602 V1=0
1603 V2=0
1604 PRINT
1605 PRINT "MOECHTEN SIE GELD AUF DIE BANK SCHAFFEN";
1610 INPUT K$
1615 IF K$="N" THEN 1700
1620 IF K$="J" THEN 1630
1625 RETURN
1630 H$="DEPONIEREN"
1632 Q=1
1635 PRINT
1640 PRINT "WIEVIEL SF MOECHTEN SIE ";H$;
1645 INPUT G5
1650 IF Q>1 THEN 1680
1655 IF G<G5 THEN 1690
1660 G=G-G5
1665 G1=G1+G5
1670 GOSUB 4000
1675 RETURN
1680 IF G5>G1 THEN 1696
1682 G5=-G5
1685 GOTO 1660
1690 PRINT
1692 PRINT "*** ZAHLEN SIE IHR GELD! ES SIND NUR ";G;" SF! ***"
1695 RETURN
1696 PRINT
1697 PRINT "*** AUF IHREM KONTO SIND NUR ";G1;" SF! ***"
1698 RETURN
1700 H$="ABHEBEN"
1705 PRINT "ODER ";H$;
1710 Q=2
1715 INPUT K$
1720 IF K$="J" THEN 1635
1721 IF G8=0 THEN 1725
1722 RETURN
1725 PRINT
1730 PRINT "SIE WOLLEN DOCH NICHT ETWA EINEN KREDIT AUFNEHMEN";
1735 INPUT P$
1740 IF P$<>"J" THEN 1698
1745 PRINT "DER KREDITZINS BETRAEGT ";Z2;"% BEI EINER LAUFZEIT VON"
1746 PRINT "ZWEI JAHREN."
1750 PRINT "WIEVIEL SF MOECHTEN SIE HABEN";
1755 INPUT G8
1760 IF G8>2E+07 THEN 1790
1765 G1=G1+G8
1770 GOSUB 4010
1775 RETURN
1790 PRINT "AUF IHRE GERINGE SICHERHEIT KOENNEN WIR NICHT"
1791 PRINT "SOVIEL KREDIT GEBEN!"
1795 GOTO 1750
1800 IF K$="H" THEN 1840
1805 IF K$="C" THEN 1860
1810 IF K$="L" THEN 1880
1815 IF K$="D" THEN 1900
1820 IF K$="B" THEN 1920
1825 A(I)=1
1830 RETURN
1840 H(I)=1
1850 RETURN
1860 C(I)=1
1870 RETURN
1880 L(I)=1
1890 RETURN
1900 D(I)=1
1910 RETURN
1920 B(I)=1
1930 RETURN
2000 Q=3
2005 IF G1>W THEN 2050
2010 IF G<W THEN 830
2015 PRINT "IHR KONTO VERKRAFTET DEN KAUF NICHT, SIE MUESSEN BAR ZAHLEN."
2020 GOTO 700
2050 G5=-W
2052 GOSUB 1665
2055 GOTO 1100
2200 IF X<.5 THEN 1380
2205 Y=RND(1)+.5
2210 IF Y>1 THEN 1380
2215 PRINT "BEI DIESEM PREIS FINDET SICH KEIN KAEUFER."
2220 RETURN
2300 PRINT
2301 PRINT "*** SIE SIND IN EIN SPIELKASINO GERATEN! ***"
2302 PRINT
2305 PRINT "HOFFENDLICH HABEN SIE GENUG GELD DABEI."
2310 Y=RND(1)+.1
2315 IF Y>.5 THEN 2350
2320 PRINT
2325 Y=Y*500000!
2330 G=G+Y
2335 PRINT "SIE HABEN ";Y;" SF GEWONNEN!"
2336 PRINT "BESUCHEN SIE UNS BALD WIEDER!"
2337 IF R$="V" THEN 2220
2340 GOTO 300
2350 Y=Y*350000!
2355 IF G<Y THEN 2400
2360 G=G-Y
2365 PRINT "SIE HABEN ";Y;" SF VERLOREN - NICHT VERZAGEN!"
2370 PRINT "VIELLEICHT HABEN SIE BEIM NAECHSTEN MAL MEHR GLUECK!"
2375 GOTO 300
2400 PRINT
2405 PRINT "SIE HABEN ";Y;" SF VERLOREN UND NICHT GENUG GELD DABEI!"
2410 IF G1<Y THEN 9000
2415 PRINT
2420 PRINT "WIR MUESSEN IHRE SPIELSCHULDEN VOM KONTO ABBUCHEN!"
2425 PRINT
2430 G1=G1-Y
2435 GOTO 300
2500 IF M>.88 THEN 2300
2505 PRINT
2510 PRINT "*** IHR ONKEL IN AMERIKA IST VERSTORBEN. ***"
2515 O=(RND(1)-.2)*3E+06
2520 PRINT
2525 IF O>0 THEN 2600
2530 PRINT "ER HAT IHNEN ";-O;" SF SCHULDEN HINTERLASSEN!"
2535 PRINT
2540 Y=1
2545 W=-O
2550 GOTO 700
2600 PRINT "ER HAT IHNEN ";O;" SF VERERBT!"
2605 PRINT
2610 G=G+O
2615 GOSUB 4000
2620 RETURN
2900 PRINT
2905 G8=G8+(G8*Z2)/100
2910 PRINT "*** IHR KREDIT IST EIN JAHR GELAUFEN! ***"
2915 PRINT "DIE RUECKZAHLSUMME BETRAEGT NUN ";G8;" SF."
2916 PRINT "SIE KOENNEN IHN JETZT BEGLEICHEN."
2920 PRINT
2925 GOTO 3120
3000 PRINT
3005 PRINT "DIE DIESJAEHRIGEN ZINSEN VON ";(G1*Z1)/100;" SF"
3006 PRINT "WERDEN IHREM KONTO GUTGESCHRIEBEN."
3010 PRINT
3015 G1=G1+(G1*Z1)/100
3020 T=0
3025 GOSUB 4010
3030 GOTO 300
3050 G8=G8+(G8*(Z2*.85))/100
3055 GOTO 3102
3100 IF S<49 THEN 3050
3102 IF S>52 THEN 3200
3103 G8=G8+(G8*(Z2/52))/100
3105 PRINT
3110 PRINT "*** IHR KREDIT WIRD INNERHALB DER NAECHSTEN ZEIT FAELLIG! ***"
3115 PRINT "DIE RUECKZAHLSUMME BETRAEGT JETZT ";G8;" SF."
3117 PRINT
3120 PRINT "WOLLEN SIE RUECKZAHLEN";
3125 INPUT P$
3130 IF P$="J" THEN 3180
3135 GOTO 330
3180 W=G8
3190 Y=1
3195 GOTO 700
3200 IF S>53 THEN 3300
3205 PRINT
3210 PRINT "DAS WAR DIE LETZTE MAHNUNG ZUR KREDITRUECKZAHLUNG!"
3215 PRINT
3220 GOTO 3115
3300 PRINT
3305 PRINT "DER KREDIT WURDE NICHT ZURUECKGEZAHLT!"
3310 PRINT
3315 GOTO 9000
4000 PRINT
4005 PRINT "IHRE BARSCHAFT BETRAEGT ";G;" SF."
4010 PRINT "IHR BANKGUTHABEN IST    ";G1;" SF."
4015 IF G8>0 THEN 4050
4020 PRINT
4025 RETURN
4050 IF G8=W THEN 4020
4055 PRINT "SIE HABEN EINEN UNGETILGTEN KREDIT VON ";G8;" SF."
4060 GOTO 4020
5000 OPEN "I",#1,"MONO.DAT"
5005 INPUT #1,P(1),P(2),P(3),P(4),P(5),P(6),P(7),P(8),P(9),P(10)
5010 LINE INPUT #1,F$
5015 LINE INPUT #1,M$
5020 LINE INPUT #1,A$
5025 F$=F$+A$
5030 LINE INPUT #1,A$
5035 M$=M$+A$
5040 CLOSE
5045 PRINT
5050 PRINT "IHREN NAMEN BITTE: ";
5055 INPUT A$
5060 IF LEN(A$)=0 THEN 200
5065 F1$=MID$(A$+"              ",1,15)
5070 GOTO 200
8000 REM *** ENDE **********************************************
8005 P1=1
8010 A$=""
8015 GOSUB 9072
8020 FOR I=1 TO 10
8025 IF Z<P(I) THEN 8140
8030 IF P1=0 THEN 8120
8035 IF I>3 THEN 8050
8040 PRINT
8045 PRINT "*** GRATULATION! ***"
8050 PRINT "DAS IST PLATZ ";I
8052 G4=INT(G3/1000)/1000
8055 F2$=STR$(G4)
8060 F2$=F2$+" "
8065 IF LEN(F2$)<10 THEN 8060
8070 F2$=F2$+F1$+D1$
8075 F2$=F2$+" "
8080 IF LEN(F2$)<40 THEN 8075
8085 IF I>5 THEN 8110
8090 M$=MID$(F$,161,40)+MID$(M$,1,200)
8095 F$=MID$(F$,1,40*I-40)+F2$+MID$(F$,40*I-39,200-(40*I-39)+1)
8100 GOTO 8120
8110 M$=MID$(M$,1,(I-6)*40)+F2$+MID$(M$,(I-5)*40-39,200-((I-5)*40-39)+1)
8120 P1=P(I)
8125 P(I)=Z
8130 Z=P1
8135 P1=0
8140 A$=A$+STR$(P(I))+CHR$(13)+CHR$(10)
8145 NEXT I
8150 IF P1<>0 THEN 9500
8155 OPEN "O",#1,"MONO.DAT"
8160 PRINT #1,A$;MID$(F$,1,100)
8165 PRINT #1,MID$(M$,1,100)
8170 PRINT #1,MID$(F$,101,100)
8175 PRINT #1,MID$(M$,101,100)
8180 CLOSE
8185 GOTO 9500
9000 PRINT
9005 PRINT "*** SIE SIND ZAHLUNGSUNFAEHIG! ***"
9010 PRINT
9015 PRINT "*** DIESES SPIEL IST ZU ENDE! ***"
9020 PRINT
9022 GOTO 8000
9025 REM *** PLATZROUTINE **************************************
9030 FOR I=1 TO 10
9035 PRINT USING "###";I;
9040 PRINT ".";P(I),
9045 IF I>5 THEN 9060
9050 PRINT MID$(F$,I*40-39,40)
9055 GOTO 9065
9060 PRINT MID$(M$,(I-5)*40-39,40)
9065 NEXT I
9070 PRINT
9072 Z=0
9075 FOR I=1 TO H
9080 IF H(I)<3 THEN 9090
9085 Z=Z+400000!
9090 NEXT I
9095 FOR I=1 TO C
9100 IF C(I)<3 THEN 9110
9105 Z=Z+480000!
9110 NEXT I
9115 FOR I=1 TO L
9120 IF L(I)<3 THEN 9130
9125 Z=Z+750000!
9130 NEXT I
9135 FOR I=1 TO D
9140 IF D(I)<3 THEN 9150
9145 Z=Z+500000!
9150 NEXT I
9155 FOR I=1 TO B
9160 IF B(I)<3 THEN 9170
9165 Z=Z+500000!
9170 NEXT I
9175 FOR I=1 TO A
9180 IF A(I)<3 THEN 9190
9185 Z=Z+2E+06
9190 NEXT I
9200 Z=Z+G+G1-G8
9205 Z=(Z/G3)*1000
9210 PRINT "IHRE EFFIZIENZ IST: ";Z
9215 RETURN
9250 GOSUB 9025
9255 GOTO 300
9500 PRINT
9505 PRINT "WOLLEN SIE NOCH EIN SPIEL WAGEN";
9510 INPUT Y$
9515 IF Y$="J" THEN 15
9520 PRINT
9525 PRINT "*** UNTERNEHMEN -xxxxx- BEENDET ***"
9530 PRINT
9540 END
10000 PRINT "-------------------------------------------------------------"
10010 PRINT "I HAUS    I GRUNDST I EINK-Z. I HOTEL   I BETRIEB I BAHNHOF I"
10020 PRINT "-------------------------------------------------------------"
10030 FOR H1=1 TO H
10040 PRINT USING "I##       I##       I";H1;H1;
10042 IF H1>L GOTO 10085
10045 PRINT USING "##       I";H1;
10050 IF H1>D GOTO 10090
10052 PRINT USING "##       I";H1;
10054 IF H1>B GOTO 10093
10056 PRINT USING "##       I";H1;
10060 IF H1>A GOTO 10095
10063 PRINT USING "##       I";H1;
10065 PRINT
10068 GOTO 10098
10085 PRINT "         I";
10090 PRINT "         I";
10093 PRINT "         I";
10095 PRINT "         I"
10098 NEXT H1
10100 PRINT "-------------------------------------------------------------"
10110 PRINT
10120 RETURN