drugwar2ebeta/drugwar2e.bas

10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h32
11 REM - LABELED ALPHA 2
20 GOTO 4480
30 REM ->TITLEBAR 
40 PRINT "        DRUGWAR//E        "
50 RETURN 
60 REM ->WAIT
70 PRINT CHR$ (10)
80 INPUT "PRESS ENTER TO CONTINUE.";X$
90 RETURN 
100 REM ->HOWMUCHBUY 
110 PRINT "YOU CAN AFFORD ";J%
120 PRINT "YOU CAN CARRY ";FS%
130 PRINT CHR$ (10)
140 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
150 GOSUB 260
160 RETURN 
170 REM ->HOWMUCHSELL 
180 PRINT "YOU CAN SELL: ";J%
190 PRINT CHR$ (10)
200 REM ->HOWMANYSELL
210 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
220 IF K% > J% THEN PRINT "YOU DON'T HAVE THAT MANY!": GOTO 210
230 GOSUB 260
240 RETURN 
250 REM ->NOBUYSELL 
260 IF K% = 0 GOTO 1820
270 RETURN 
280 REM ->STATUSBAR
290 INVERSE : PRINT "DAY: ";D%,P$: NORMAL 
300 PRINT CHR$ (10)
310 RETURN 
320 REM ->FREESPACE 
330 FS% = IN% - ((CI% + HI% + AI% + WI% + SI% + LI%) + (GN% * 5))
340 RETURN 
350 REM ->DAILY 
360 C% = INT ( RND (1) * 12000 + 16000)
370 H% = INT ( RND (1) * 7000 + 5000)
380 A% = INT (( RND (1) * 34 + 10) * 100)
390 W% = INT (( RND (1) * 42 + 33) * 10)
400 S% = INT (( RND (1) * 15 + 7) * 10)
410 L% = INT (( RND (1) * 4 + 1) * 10)
420 B% = INT ( RND (1) * 20)
430 D% = D% + 1
440 LS% = INT (LS% * 1.1)
450 SA% = INT (SA% * 1.06)
460 REM ->CHECKDAY 
470 IF D% > = 31 GOTO 5050
480 RETURN 
490 REM ->SUBWAYEVENTS
500 IF B% = 1 THEN GOTO 690
510 IF B% = 2 THEN GOTO 740
520 IF B% = 3 THEN GOTO 790
530 IF B% = 4 THEN GOTO 850
540 IF B% = 5 THEN GOGO850
550 IF B% = 6 THEN GOTO 910
560 IF B% = 7 THEN GOTO 910
570 IF B% = 8 THEN GOTO 970
580 IF B% = 9 THEN GOTO 1070
590 IF B% = 10 THEN GOGO1070
600 IF B% = 11 THEN GOTO 1070
610 IF B% = 12 THEN GOTO 1160
620 IF B% = 13 THEN GOTO 1160
630 IF B% = 14 THEN GOTO 1310
640 IF B% = 15 THEN GOTO 1380
650 IF B% = 16 THEN GOTO 1460
660 IF B% = 17 THEN GOTO 1620
670 RETURN 
680 REM ->CHEAPLUDES
690 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
700 L% = 2
710 GOSUB 70
720 GOTO 1820
730 REM ->CHEEPWEED
740 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
750 W% = 122
760 GOSUB 70
770 GOTO 1820
780 REM ->PIGHEROIN
790 PRINT "PIGS ARE SELLING CHEAP HEROIN"
800 PRINT "FROM LAST WEEK'S RAID!"
810 H% = INT (( RND (1) * 1150) + 850)
820 GOSUB 70
830 GOTO 1820
840 REM ->HEROINBUST
850 PRINT "ADDICTS ARE BUYING HEROIN"
860 PRINT "AT OUTRAGEOUS PRICES!"
870 H% = INT (( RND (1) * 25000) + 18000)
880 GOSUB 70
890 GOTO 1820
900 REM ->COKEBUST
910 PRINT "PIGS MADE A BIG COKE BUST!"
920 PRINT "PRICES ARE OUTRAGEOUS!!!!"
930 C% = INT (( RND (1) * 60000) + 80000)
940 GOSUB 70
950 GOTO 1820
960 REM ->MUGGED
970 PRINT "YOU GOT MUGGED!"
980 PRINT CHR$ (10)
990 MS% = WA% / 3
1000 MS% = MS% * 2
1010 ML% = WA% - MS%
1020 PRINT "YOU LOST $";ML%
1030 WA% = MS%
1040 GOSUB 70
1050 GOSUB 1820
1060 REM ->COPS
1070 WE% = C% + H% + W% + A% + S% + L%
1080 IF WE% < 50 THEN RETURN 
1090 PRINT "IT'S THE COPS!"
1100 PRINT CHR$ (10)
1110 PRINT "JUST KIDDING!"
1120 PRINT "COPS HAVEN'T BEEN CODED YET."
1130 GOSUB 70
1140 GOTO 1820
1150 REM ->GUNBUY
1160 IF WA% < 500 THEN RETURN 
1170 GOSUB 330
1180 IF FS% < 5 THEN RETURN 
1190 GX% = INT ( RND (1) * 2)
1200 IF GX% = 0 THEN AX$ = "BARETTA"
1210 IF GX% = 1 THEN AX$ = "SATURDAY NIGHT SPECIAL"
1220 IF GX% = 2 THEN AX$ = ".44 MAGNUM"
1230 PRINT "WILL YOU BUY A ";AX$
1240 INPUT "FOR $400? (Y/N)";RE$
1250 IF RE$ < > "Y" THEN GOTO 1820
1260 GN% = GN% + 1
1270 WA% = WA% - 400
1280 FS% = FS% - 5
1290 GOTO 1820
1300 REM ->DEDWEED
1310 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
1320 PRINT "LIKE GOOD STUFF!!"
1330 PRINT CHR$ (10)
1340 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
1350 IF X$ = "Y" THEN GOTO 4950
1360 RETURN 
1370 REM ->NEWCOAT
1380 IF WA% < 300 THEN RETURN 
1390 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
1400 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
1410 IF X$ < > "Y" THEN GOTO 1820
1420 IN% = IN% + 10
1430 WA% = WA% - 200
1440 GOTO 1820
1450 REM ->DEDGUY
1460 IF FS% < 8 THEN RETURN 
1470 DG% = ( INT (( RND (1) * 7) + 1)
1480 XG% = INT (( RND (1) * 5)
1490 IF XG% = 0 THEN LI% = LI% + DG%:SS$ = "LUDES"
1500 IF XG% = 1 THEN SI% = SI% + DG%:SS$ = "SPEED"
1510 IF XG% = 2 THEN WI% = WI% + DG%:SS$ = "WEED"
1520 IF XG% = 3 THEN AI% = AI% + DG%:SS$ = "ACID"
1530 IF XG% = 4 THEN HI% = HI% + DG%:SS$ = "HEROIN"
1540 IF XG% = 5 THEN CI% = CI% + DG%:SS$ = "COCAINE"
1550 PRINT "YOU FOUND ";DG%;" UNITS OF"
1560 PRINT "     ";SS%
1570 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
1580 PRINT CHR$ (10)
1590 GOSUB 70
1600 GOTO 1820
1610 REM ->HOMEACID
1620 PRINT "THE MARKET HAS BEEN FLOODED"
1630 PRINT "WITH CHEAP HOME-MADE ACID!"
1640 A% = INT (( RND (1) * 550) + 250)
1650 GOSUB 70
1660 GOTO 1820
1670 REM ->LOAN
1680 HOME 
1690 GOSUB 40
1700 PRINT CHR$ (10)
1710 PRINT "LOAN SHARK NOT IMPLEMENTED.
1720 GOSUB 70
1730 GOTO 1820
1740 REM ->BANK
1750 HOME 
1760 GOSUB 40
1770 PRINT CHR$ (10)
1780 PRINT "BANK NOT IMPLEMENTED."
1790 GOSUB 70
1800 GOTO 1820
1810 REM ->MENU
1820 HOME 
1830 GOSUB 40
1840 GOSUB 330
1850 PRINT (C)HECKPRICES
1860 PRINT (I)NVEN TO RY
1870 PRINT (B)UY
1880 PRINT (S)ELL
1890 PRINT (J)ET
1900 PRINT SEE(L)OANSHARK
1910 PRINT (V)ISITBANK
1920 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
1930 IF T$ = "C" GOTO 2030
1940 IF T$ = "I" GOTO 2180
1950 IF T$ = "B" GOTO 2320
1960 IF T$ = "S" GOTO 3190
1970 IF T$ = "J" GOTO 4240
1980 IF T$ = "L" GOTO 1680
1990 IF T% = "V" GOTO 1750
2000 PRINT "INVALID SELECTION""
2010 GOTO 1820
2020 REM ->PRICES
2030 HOME 
2040 GOSUB 40
2050 INVERSE : PRINT "         PRICES         ": NORMAL 
2060 PRINT CHR$ (10)
2070 PRINT "COCAINE:","$"C%
2080 PRINT "HEROIN:","$"H%
2090 PRINT "ACID:","$"A%
2100 PRINT "WEED:","$"W%
2110 PRINT "SPEED:","$"S%
2120 PRINT "LUDES:","$"L%
2130 PRINT "WALLET:,"$"WA%
2140 PRINT CHR$ (10)
2150 PRINT "PRESS ENTER TO CONTINUE.";X$
2160 GOTO 1820
2170 REM ->INVENTORY
2180 HOME 
2190 GOSUB 40
2200 INVERSE : PRINT "      INVENTORY          ": NORMAL 
2210 PRINT CHR$ (10)
2220 PRINT "COCAINE:",CI%
2230 PRINT "HEROIN:",HI%
2240 PRINT "ACID:",AI%
2250 PRINT "WEED:",WI%
2260 PRINT "LUDES:",LI%
2270 PRINT "FREE SPACE:",FS%
2280 PRINT CHR$ (10)
2290 PRINT "PRESS ENTER TO CONTINUE.";X$
2300 GOTO 1820
2310 REM ->BUY
2320 HOME 
2330 GOSUB 40
2340 INVERSE : PRINT "         BUY          ": NORMAL 
2350 PRINT CHR$ (10)
2360 PRINT "WHAT DO YOU WANT TO BUY?"
2370 PRINT CHR$ (10)
2380 PRINT "(C)OCAINE"
2390 PRINT "(H)EROIN"
2400 PRINT "(A)CID"
2410 PRINT "(W)EED"
2420 PRINT "(S)PEED"
2430 PRINT "(L)UDES"
2440 INPUT "ENTER SELECTION: ";DB$
2450 IF DB$ = "C" GOTO 2530
2460 IF DB$ = "H" GOTO 2640
2470 IF DB$ = "A" GOTO 2750
2480 IF DB$ = "W" GOTO 2860
2490 IF DB$ = "S" GOTO 2970
2500 IF DB$ = "L" GOTO 3080
2510 GOTO 1820
2520 REM ->COKEBUY
2530 HOME 
2540 GOSUB 40
2550 INVERSE : PRINT "       BUY COCAINE        ": NORMAL 
2560 PRINT CHR$ (10)
2570 J% = INT (WA% / C%)
2580 GOSUB 110
2590 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2530
2600 IF K% < = J% THEN CI% = CI% + J%:WA% = WA% - (C% * J%)
2610 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2530
2620 GOTO 1820
2630 REM ->HERBUY
2640 HOME 
2650 GOSUB 40
2660 INVERSE : PRINT "       BUY HEROIN        ": NORMAL 
2670 PRINT CHR$ (10)
2680 J% = INT (WA% / H%)
2690 GOSUB 110
2700 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2640
2710 IF K% < = J% THEN HI% = HI% + J%:WA% = WA% - (H% * J%)
2720 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2640
2730 GOTO 1820
2740 REM ->ACIDBUY
2750 HOME 
2760 GOSUB 40
2770 INVERSE : PRINT "        BUY ACID         ": NORMAL 
2780 PRINT CHR$ (10)
2790 J% = INT (WA% / A%)
2800 GOSUB 110
2810 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2750
2820 IF K% < = J% THEN AI% = AI% + J%:WA% = WA% - (A% * J%)
2830 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2750
2840 GOTO 1820
2850 REM ->WEEDBUY
2860 HOME 
2870 GOSUB 40
2880 INVERSE : PRINT "        BUY WEED        ": NORMAL 
2890 PRINT CHR$ (10)
2900 J% = INT (WA% / W%)
2910 GOSUB 110
2920 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2860
2930 IF K% < = J% THEN WI% = WI% + J%:WA% = WA% - (W% * J%)
2940 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2860
2950 GOTO 1820
2960 REM ->SPDBUY
2970 HOME 
2980 GOSUB 40
2990 INVERSE : PRINT "        BUY SPEED        ": NORMAL 
3000 PRINT CHR$ (10)
3010 J% = INT (WA% / S%)
3020 GOSUB 110
3030 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2970
3040 IF K% < = J% THEN SI% = SI% + J%:WA% = WA% - (S% * J%)
3050 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2970
3060 GOTO 1820
3070 REM ->LUDBUY
3080 HOME 
3090 GOSUB 40
3100 INVERSE : PRINT "        BUY LUDES        ": NORMAL 
3110 PRINT CHR$ (10)
3120 J% = INT (WA% / L%)
3130 GOSUB 110
3140 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 3080
3150 IF K% < = J% THEN LI% = LI% + J%:WA% = WA% - (L% * J%)
3160 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 3080
3170 GOTO 1820
3180 REM ->SELL
3190 HOME 
3200 GOSUB 40
3210 INVERSE : PRINT "          SELL        ": NORMAL 
3220 PRINT CHR$ (10)
3230 PRINT "WHAT WOULD YOU LIKE TO SELL?"
3240 PRINT CHR$ (10)
3250 PRINT "(C)OCAINE"
3260 PRINT "(H)EROIN"
3270 PRINT "(A)CID"
3280 PRINT "(W)EED"
3290 PRINT "(S)PEED"
3300 PRINT "(L)UDES"
3310 REM ->SELLSEL
3320 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$
3330 IF DB$ = "C" GOTO 3430
3340 IF DB$ = "H" GOTO 3530
3350 IF DB$ = "A" GOTO 3630
3360 IF DB$ = "W" GOTO 3730
3370 IF DB$ = "S" GOTO 3830
3380 IF DB$ = "L" GOTO 3930
3390 IF DB$ = "0"GOGO1820
3400 PRINT "INVALID SELECTION!"
3410 GOTO 3320
3420 REM ->COKESELL
3430 HOME 
3440 GOSUB 40
3450 INVERSE : PRINT "       SELL COCAINE        ": NORMAL 
3460 PRINT CHR$ (10)
3470 J% = CI%
3480 GOSUB 180
3490 CI% = CI% - J%
3500 WA% = WA% + (C% * J%)
3510 GOTO 1820
3520 REM ->HERSELL
3530 HOME 
3540 GOSUB 40
3550 INVERSE : PRINT "       SELL HEROIN        ": NORMAL 
3560 PRINT CHR$ (10)
3570 J% = HI%
3580 GOSUB 180
3590 HI% = HI% - J%
3600 WA% = WA% + (H% * J%)
3610 GOTO 1820
3620 REM ->ACIDSELL
3630 HOME 
3640 GOSUB 40
3650 INVERSE : PRINT "       SELL ACID        ": NORMAL 
3660 PRINT CHR$ (10)
3670 J% = AI%
3680 GOSUB 180
3690 AI% = AI% - J%
3700 WA% = WA% + (A% * J%)
3710 GOTO 1820
3720 REM ->WEEDSELL
3730 HOME 
3740 GOSUB 40
3750 INVERSE : PRINT "       SELL WEED        ": NORMAL 
3760 PRINT CHR$ (10)
3770 J% = WI%
3780 GOSUB 180
3790 WI% = WI% - J%
3800 WA% = WA% + (W% * J%)
3810 GOTO 1820
3820 REM ->SPDSELL
3830 HOME 
3840 GOSUB 40
3850 INVERSE : PRINT "       SELL SPEED        ": NORMAL 
3860 PRINT CHR$ (10)
3870 J% = SI%
3880 GOSUB 180
3890 SI% = SI% - J%
3900 WA% = WA% + (S% * J%)
3910 GOTO 1820
3920 REM ->LUDSELL
3930 HOME 
3940 GOSUB 40
3950 INVERSE : PRINT "       SELL COCAINE        ": NORMAL 
3960 PRINT CHR$ (10)
3970 J% = LI%
3980 GOSUB 180
3990 LI% = LI% - J%
4000 WA% = WA% + (L% * J%)
4010 GOTO 1820
4020 REM ->JET
4030 HOME 
4040 GOSUB 40
4050 INVERSE : PRINT "          JET         ": NORMAL 
4060 PRINT CHR$ (10)
4070 PRINT "(B)RONX"
4080 PRINT "(G)HETTO"
4090 PRINT "(C)ENTRAL PARK
4100 PRINT "(M)ANHATTEN"
4110 PRINT "CONEY (I)SLAND"
4120 PRINT "BROO(K)LYN"
4130 PRINT "(O)OPS...STAY!"
4140 INPUT "WHERE TO DUDE";JT$
4150 IF JT$ = "B" THEN PQ$ = "THE BRONX": GOTO 42402
4160 IF JT$ = "G" THEN PQ$ = "THE GHETTO": GOTO 42402
4170 IF JT$ = "C" THEN PQ$ = "CENTRAL PARK": GOTO 42402
4180 IF JT$ = "M" THEN PQ$ = "MANHATTEN": GOTO 42402
4190 IF JT$ = "I" THEN PQ$ = "CONEY ISLAND": GOTO 42402
4200 IF JT$ = "K" THEN PQ$ = "BROOKLYN": GOTO 42402
4210 IF JT$ = "O" THEN GOTO 1820
4220 GOTO 4240
4230 REM ->JET2
4240 IF PQ$ = P$ THEN GOTO 4280
4250 P$ = PQ$
4260 GOTO 4370
4270 REM ->ALREADYTHERE
4280 HOME 
4290 GOSUB 40
4300 INVERSE : PRINT "          JET         ": NORMAL 
4310 PRINT CHR$ (10)
4320 PRINT "YOU'RE ALREADY IN:"
4330 PRINT "      ";P$
4340 GOSUB 70
4350 GOTO 4240
4360 REM ->SUBWAY
4370 GOSUB 360
4380 GOSUB 40
4390 INVERSE : PRINT "         SUBWAY         "
4400 PRINT CHR$ (10)
4410 GOSUB 500
4420 PRINT CHR$ (10)
4430 PRINT "WELCOME TO ";P$
4440 PRINT CHR$ (10)
4450 INPUT "PRESS ENTER TO CONTINUE. ";X$
4460 GOTO 1820
4470 REM ->INSTRUCTIONS
4480 HOME 
4490 GOSUB 40
4500 PRINT CHR$ (10)
4510 PRINT "WELCOME TO DRUGWAR//E"
4520 PRINT CHR$ (10)
4530 PRINT CHR$ (10)
4540 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
4550 REM ->INSERRORHANDLER 
4560 IF Q$ = "Y" THEN GOTO 4780
4570 IF Q$ = "N" THEN GOGO4610
4580 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$
4590 GOTO 4560
4600 REM ->GAMESTART 
4610 WA% = 2000
4620 SA% = 0
4630 LS% = 5000
4640 D% = 0
4650 P$ = "THE BRONX"
4660 GN% = 0
4670 DP% = 0
4680 IN% = 100
4690 CI% = 0
4700 HI% = 0
4710 AI% = 0
4720 WI% = 0
4730 SI% = 0
4740 LI% = 0
4750 GOSUB 360
4760 GOTO 1820
4770 REM ->INST
4780 HOME 
4790 GOSUB 40
4800 PRINT CHR$ (10)
4810 PRINT "THIS IS A GAME OF BUYING AND SELLING."
4820 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
4830 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
4840 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
4850 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
4860 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
4870 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
4880 PRINT CHR$ (10)
4890 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
4900 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
4910 PRINT "N = NO."
4920 INPUT "PRESS ENTER TO CONTINUE.";X$
4930 GOTO 4610
4940 REM ->WEEDEND
4950 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
4960 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
4970 PRINT "AND GET CREAMED BY A TRAIN!"
4980 PRINT CHR$ (10)
4990 PRINT CHR$ (10)
5000 PRINT "JUST SAY NO TO DRUGS!"
5010 WD% = 1
5020 GOTO 70
5030 GOTO 5050
5040 REM ->ENDGAME
5050 HOME 
5060 GOSUB 40
5070 INVERSE : PRINT "    GAME OVER     ": NORMAL 
5080 PRINT CHR$ (10)
5090 IF WD% = 1 THEN GOTO 5190
5100 PRINT "THANKS FOR PLAYING."
5110 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE"
5120 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
5130 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
5140 PRINT CHR$ (10)
5150 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
5160 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
5170 END 
5180 REM ->IRONICEND
5190 HOME 
5200 GOSUB 40
5210 INVERSE : PRINT "    GAME OVER     ": NORMAL 
5220 PRINT CHR$ (10)
5230 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
5240 PRINT "IN A GAME ABOUT DRUG DEALING."
5250 PRINT CHR$ (10)
5260 PRINT "WELL, THANKS FOR PLAYING."
5270 END