MSX Bowling
Jogo de boliche.
Teste o programa no WebMSX – The Online MSX Emulator
Para jogar, pressione ESPAÇO no momento em que a bola estiver no lugar desejado.
Autor: Drack Soft Catalunya
Ano: 1989
Contribuição: Paulo Maluf
Código fonte
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 |
100 ' XWWWWWWWWWWWWWWWWWWWWWWWWWWWWWY 110 ' V B O W L I N G V 120 ' TWWWWWWWWWWWWWWWWWWWWWWWWWWWWWS 130 ' V BY DRACK SOFT CATALUNYA V 140 ' TWWWWWWWWWWWWWWWWWWWWWWWWWWWWWS 150 ' V 1 9 8 9 V 160 ' ZWWWWWWWWWWWWWWWWWWWWWWWWWWWWW[ 170 ' 180 KEYOFF:COLOR 10,12,1:SCREEN1,0,0:WIDTH32:CLEAR 5500:DEFINTA-Z 190 DIM KT(12),BT(21),ST$(10) 200 DEFUSR0=&H156:QQ=RND(-TIME):LOCATE 7,9:PRINT"UN MOMENTO GRACIAS. 210 GOSUB 2720:GOSUB 1020 220 ' XWWWWWWWWWWWY 230 ' Vnombre jug V 240 ' ZWWWWWWWWWWW[ 250 LOCATE 6,22:PRINT SPC(20):LOCATE 13,9:PRINT SPC(12):LOCATE 6,22:PRINT "NOMBRE":N$="":LN=0 260 LOCATE 12+LEN(N$),22:L$=INPUT$(1) 270 IF L$=CHR$(8) OR L$=CHR$(29) THEN N$=LEFT$(N$,LEN(N$)-1):LOCATE 12,22:PRINT N$;" ":GOTO 260 280 IF L$=CHR$(13) THEN 320 290 A=ASC(L$):IF A>96 AND A<123 THEN A=A-32 300 PRINT CHR$(A):N$=N$+CHR$(A):LN=LN+1 310 IF LN>12 THEN 320 ELSE 260 320 LOCATE 6,22:PRINT SPC(20):LOCATE 13,9:PRINT N$; 330 ' XWWWWWWWWWWWWWWWY 340 ' Vretour nog eensV 350 ' ZWWWWWWWWWWWWWWW[ 360 LOCATE 6,22:PRINT SPC(20) 370 FOR X=2 TO 29 STEP 3:LOCATE X,5:PRINT"¾¾":NEXT:LOCATE 28,8:PRINT"¾":LOCATE 30,8:PRINT"¾":XS=2:YS=5:TS=0:NR=1:WP=1:BI=1:XB=0:SC=0:FOR I=1 TO 10:ST$(I)="N":NEXT:FOR I=1 TO 21:BT(I)=0:NEXT 380 HW=0:SW=0:GOSUB 1440 390 ' XWWWWWWWWWWWWWWWWY 400 ' Vwachten op vurenV 410 ' ZWWWWWWWWWWWWWWWW[ 420 FOR VA=6584 TO 6776 STEP 32:VPOKE VA,&HD1:NEXT:WT=INT(RND(1)*111+333):FOR W=0 TO WT:NEXT:FOR VA=6584 TO 6776 STEP 32:VPOKE VA,&H9D:NEXT 430 ON STRIG GOSUB 510:STRIG(0)ON 440 FOR BY=BY TO 159 STEP 8:PUT SPRITE 0,(BX,BY),1,BN:IF BN=0 THEN BN=1 ELSE IF BN=1 THEN BN=2 ELSE BN=0 450 NEXT 460 FOR BY=159 TO 95 STEP-8:PUT SPRITE 0,(BX,BY),1,BN:IF BN=0 THEN BN=1 ELSE IF BN=1 THEN BN=2 ELSE BN=0 470 NEXT:GOTO 440 480 ' XWWWWWWWWWWY 490 ' Vrollen balV 500 ' ZWWWWWWWWWW[ 510 IF BY<95 THEN BY=95 ELSE IF BY>159 THEN BY=159 520 STRIG(0)OFF:ON SPRITE GOSUB 690:SPRITE ON 530 SOUND 2,233:SOUND3,15:SOUND7,61:SOUND9,16:SOUND11,141:SOUND12,1:SOUND13,10 540 FOR BX=BX TO 244:PUT SPRITE 0,(BX,BY),1,BN 550 IF BN=0 THEN BN=1 ELSE IF BN=1 THEN BN=2 ELSE BN=0 560 NEXT 570 ' XWWWWWWY 580 ' VmisserV 590 ' ZWWWWWW[ 600 SOUND9,0:SOUND4,1:SOUND5,0:SOUND10,16:SOUND11,11 610 LOCATE XS,YS:PRINT "Í":BT(BI)=0:BI=BI+1:FOR W=0 TO 650:NEXT:SOUND10,0 620 IF XB=1 THEN 1980 ELSE IF XB=2 THEN XB=1:BX=7:XS=30:GOTO 420 630 IF WP=1 THEN WP=2:XS=XS+1:BX=7:GOTO 420 640 IF NR=10 THEN 1980 ELSE NR=NR+1:WP=1:HW=0:GOSUB 1440 650 BX=7:XS=XS+2:GOTO 420 660 ' XWWWWY 670 ' VraakV 680 ' ZWWWW[ 690 SPRITE OFF:SOUND9,0:SOUND0,111:SOUND1,0:SOUND6,30:SOUND7,54:SOUND8,16:SOUND11,155:SOUND12,1:SOUND13,3 700 IF BY=127 AND WP=1 THEN 820 ELSE IF BY=127 THEN 920 710 IF BY=119 THEN GOSUB 1520 ELSE IF BY=135 THEN GOSUB 1590 ELSE IF BY=111 THEN GOSUB 1660 ELSE IF BY=143 THEN GOSUB 1700 ELSE IF BY=103 THEN GOSUB 1740 ELSE IF BY=151 THEN GOSUB 1750 720 SOUND8,0:GOSUB 1910 730 LOCATE XS,YS:PRINT USING "#";SW:BT(BI)=SW:BI=BI+1 740 IF XB=1 THEN 1980 ELSE IF XB=2 THEN XS=29:XB=1 750 IF WP=1 THEN HW=SW:WP=2:XS=XS+1:SW=0:GOTO 420 760 IF NR=10 THEN 1980 770 NR=NR+1:WP=1:HW=0:GOSUB 1440 780 SW=0:XS=XS+2:GOTO 420 790 ' XWWWWWWWWWWWY 800 ' VS T R I K EV 810 ' ZWWWWWWWWWWW[ 820 FOR Y=6924 TO 6960 STEP 4:VPOKE Y,191:NEXT:SW=10:SOUND8,0:GOSUB 1910 830 LOCATE XS,YS:PRINT "Ë":BT(BI)=SW:BI=BI+1 840 IF XB>0 THEN 1980 ELSE ST$(NR)="X" 850 IF NR<10 THEN NR=NR+1:WP=1:XS=XS+3:GOTO 880 860 IF NR=10 THEN XS=28:YS=8:XB=2:WP=1:GOTO 880 870 XB=1:XS=30 880 HW=0:SW=0:GOSUB 1440:GOTO 420 890 ' XWWWWWWWWWY 900 ' VS P A R EV 910 ' ZWWWWWWWWW[ 920 FOR Y=6924 TO 6960 STEP 4:VPOKE Y,191:NEXT:SW=10:SOUND8,0:GOSUB 1910 930 LOCATE XS,YS:PRINT "Ì":BT(BI)=SW-HW:BI=BI+1 940 IF XB>0 THEN 1980 ELSE ST$(NR)="/" 950 IF NR<10 THEN NR=NR+1:WP=1:XS=XS+2:GOTO 970 960 XB=1:WP=1:XS=28:YS=8 970 HW=0:SW=0:GOSUB 1440:GOTO 420 980 ' XWWWWWWWWWWWWY 990 ' VschermopbouwV 1000 ' ZWWWWWWWWWWWW[ 1010 ' letters BOWLING + TOTAALSCORE:+ PUNTEN: vanaf kar. 128 1020 FOR I=BASE(4)+128 TO BASE(4)+768:VPOKE I,VPEEK(I) OR VPEEK(I)/2:NEXT 1030 GOSUB 2720 1040 VA=1024:FOR AK=0 TO 183:READ D$:VPOKE VA+AK,VAL("&H"+D$):NEXT 1050 'kleuren 1060 VPOKE 8208,&HAC:VPOKE 8209,&HAC:VPOKE 8210,&HAC:VPOKE 8211,&HAC:VPOKE 8212,&HAC:VPOKE 8213,&HD1:VPOKE 8214,&HD1:VPOKE 8215,&HD1 1070 'kleuren 1080 VPOKE 8194,&HD1:VPOKE 8195,&HD1:VPOKE 8198,&H31:VPOKE 8199,&H31:VPOKE 8216,&HEA:VPOKE 8217,&H31:VPOKE 8218,&H6A 1090 ' letters SPELER: vanaf kar. 152 1100 VA=1216:FOR AK=0 TO 79:READ D$:VPOKE VA+AK,VAL("&H"+D$):NEXT 1110 ' cijfers voor scorebord vanaf kar. 168 1120 VA=1344:FOR AK=0 TO 183:READ D$:VPOKE VA+AK,VAL("&H"+D$):NEXT 1130 ' grijze goot 1140 VA=1536:FOR AK=0 TO 15:READ D$:VPOKE VA+AK,VAL("&H"+D$):NEXT 1150 ' 1160 VA=128:FOR AK=0 TO 7:READ D$:VPOKE VA+AK,VAL("&H"+D$):NEXT 1170 ' 1180 VA=1624:FOR AK=0 TO 23:READ D$:VPOKE VA+AK,VAL("&H"+D$):NEXT 1190 ' XWWWWWWWY 1200 ' VspritesV 1210 ' ZWWWWWWW[ 1220 VA=14336:FOR AK=1 TO 32:READ D$:VPOKE VA,VAL("&H"+D$):VA=VA+1:NEXT 1230 VPOKE 6915,1:VPOKE 6919,15 1240 ' XWWWWWWWWWWWWWWY 1250 ' Vscherm tekenenV 1260 ' ZWWWWWWWWWWWWWW[ 1270 GL$=STRING$(32,"–"):GK$=STRING$(27,"–"):GG$=STRING$(30,""):GG$=GG$+"¾¾" 1280 GO$="À"+STRING$(25,"Á"):TS$="‡ˆ‰Š‹ŒŽ":PT$="‘’“”" 1290 LOCATE 0,1:PRINT"–––––•–––€––‚–ƒ–„–…–†–––•––––––";:LOCATE 0,3:PRINT" PARA JUGAR DEVES ESPERAR EL ":PRINT 1300 PRINT" MOMENTO EN QUE LA BOLA ESTE EN":PRINT:PRINT" EL LUGAR DESEADO Y PULSAR LA ":PRINT:PRINT" BARRA ESPACIO PARA LANZAR LA":PRINT 1310 PRINT" BOLA. EEN STRIKE (ALLE KEGELS":PRINT:PRINT" OM MET EEN WORP) DAN KRIJGT U":PRINT:PRINT" 2 EXTRA BALLEN, BIJ EEN SPARE":PRINT 1320 PRINT" (ALLES OMVER IN TWEE WORPEN)":PRINT:PRINT" KRIJGT U 1 EXTRA BAL.":PRINT:PRINT: PRINT" ...[ESPACIO]..." 1330 ' 1340 U=USR0(0):IN$=INPUT$(1):CLS:PLAY"V12T255L32CEDF" 1350 ' 1360 LOCATE 0,1:PRINT"–––––•–––€––‚–ƒ–„–…–†–––•––––––";: LOCATE 1,3:PRINT"XWWRWWRWWRWWRWWRWWRWWRWWRWWRWWY";:LOCATE 1,4:PRINT"V¨©Vª«V¬V®¯V°±V²³V´µV¶·V¸¹Vº»V"; 1370 LOCATE 1,5:PRINT"V V V V V V V V V V V";:LOCATE 1,6:PRINT"ZPWQPWQPWQPWQPWQPWQPWQPWQPWQPW[";:LOCATE 27,7:PRINT"X¼R½Y":LOCATE 27,8:PRINT"V V V":LOCATE 27,9:PRINT"ZWQW[" 1380 LOCATE 7,7:PRINT TS$:LOCATE 20,7:PRINT PT$ 1390 ' 1400 LOCATE 7,9:PRINT"˜™š›œ":LOCATE 0,10:PRINT"žŸ":LOCATE 0,11:PRINT"žŸ": FOR Y=12 TO 20:LOCATE 0,Y:PRINT GG$;:NEXT:LOCATE 4,12:PRINT GO$:LOCATE 4,20:PRINT GO$:LOCATE 0,21:PRINT" ¡":LOCATE 0,22:PRINT" ¡";:RETURN 1410 ' XWWWWWWWWWWWWWWWWY 1420 ' Vopstellen kegelsV 1430 ' ZWWWWWWWWWWWWWWWW[ 1440 FOR VA=6584 TO 6776 STEP 32:VPOKE VA,&HD1:NEXT 1450 SOUND9,13:FOR W=0 TO 250:NEXT:BY=INT(RND(1)*7+1):BY=(BY*8)+87:BN=0:BX=7 1460 PUT SPRITE 3,(207,127),15,3:PUT SPRITE 4,(215,119),15,3:PUT SPRITE 5,(215,135),15,3:PUT SPRITE 6,(223,111),15,3:PUT SPRITE 7,(223,127),15,3:PUT SPRITE 8,(223,143),15,3 1470 PUT SPRITE 9,(231,103),15,3:PUT SPRITE 10,(231,119),15,3:PUT SPRITE 11,(231,135),15,3:PUT SPRITE 12,(231,151),15,3:FOR EL=1 TO 12:KT(EL)=1:NEXT:SOUND9,0:FOR W=0 TO 250:NEXT 1480 RETURN 1490 ' XWWWWWWWWWWWWWWWY 1500 ' Vscore bijwerkenV 1510 ' ZWWWWWWWWWWWWWWW[ 1520 GOSUB 1790:IF KT(6)=1 THEN GOSUB 1810 1530 IF KT(7)=1 THEN GOSUB 1820 1540 IF KT(9)=1 THEN GOSUB 1840 1550 IF KT(10)=1 THEN GOSUB 1850 1560 IF KT(11)=1 THEN GOSUB 1860 1570 RETURN 1580 ' 1590 GOSUB 1800:IF KT(7)=1 THEN GOSUB 1820 1600 IF KT(8)=1 THEN GOSUB 1830 1610 IF KT(10)=1 THEN GOSUB 1850 1620 IF KT(11)=1 THEN GOSUB 1860 1630 IF KT(12)=1 THEN GOSUB 1870 1640 RETURN 1650 ' 1660 GOSUB 1810:IF KT(9)=1 THEN GOSUB 1840 1670 IF KT(10)=1 THEN GOSUB 1850 1680 RETURN 1690 ' 1700 GOSUB 1830:IF KT(11)=1 THEN GOSUB 1860 1710 IF KT(12)=1 THEN GOSUB 1870 1720 RETURN 1730 ' 1740 GOSUB 1840:RETURN 1750 GOSUB 1870:RETURN 1760 ' XWWWWWWWWWWWWWWWWY 1770 ' Vkegels wegwerkenV 1780 ' ZWWWWWWWWWWWWWWWW[ 1790 KT(4)=0:VPOKE 6928,191:SW=SW+1:RETURN 1800 KT(5)=0:VPOKE 6932,191:SW=SW+1:RETURN 1810 KT(6)=0:VPOKE 6936,191:SW=SW+1:RETURN 1820 KT(7)=0:VPOKE 6940,191:SW=SW+1:RETURN 1830 KT(8)=0:VPOKE 6944,191:SW=SW+1:RETURN 1840 KT(9)=0:VPOKE 6948,191:SW=SW+1:RETURN 1850 KT(10)=0:VPOKE 6952,191:SW=SW+1:RETURN 1860 KT(11)=0:VPOKE 6956,191:SW=SW+1:RETURN 1870 KT(12)=0:VPOKE 6960,191:SW=SW+1:RETURN 1880 ' XWWWWWWWWWY 1890 ' VuitrollenV 1900 ' ZWWWWWWWWW[ 1910 SOUND 2,233:SOUND3,15:SOUND7,61:SOUND9,16:SOUND11,141:SOUND12,1:SOUND13,10 1920 FOR BX=BX TO 247 STEP 1:PUT SPRITE 0,(BX,BY),1,BN 1930 IF BN=0 THEN BN=1 ELSE IF BN=1 THEN BN=2 ELSE BN=0 1940 FORW=0 TO 10:NEXT:NEXT:BX=7:SOUND9,0:RETURN 1950 ' XWWWWWWWWWWWWWWWWWWWWWY 1960 ' Vtotaalscore berekenenV 1970 ' ZWWWWWWWWWWWWWWWWWWWWW[ 1980 BI=1:FOR I=1 TO 10 1990 IF ST$(I)="X" THEN SC=SC+BT(BI)+BT(BI+1)+BT(BI+2):BI=BI+1:GOTO 2020 2000 IF ST$(I)="/" THEN SC=SC+BT(BI)+BT(BI+1)+BT(BI+2):BI=BI+2:GOTO 2020 2010 SC=SC+BT(BI)+BT(BI+1):BI=BI+2 2020 NEXT:KEYOFF 2030 SOUND7,63:FOR GE=255 TO 0 STEP-5:SOUND0,GE:SOUND1,2:SOUND8,14:SOUND 7,&B111110:NEXT:SOUND8,0 2040 LOCATE 16,7:PRINT USING "###";SC 2050 LOCATE 6,22:PRINT "OTRA PARTIDA S / N";:U=USR0(0) 2060 IN$=INKEY$:IF IN$="" THEN 2060 2070 IF IN$="S" OR IN$="s" THEN 2110 ELSE 2190 2080 ' XWWWWWWWWY 2090 ' Vnog eensV 2100 ' ZWWWWWWWW[ 2110 LOCATE 6,22:PRINT SPC(20):LOCATE 16,7:PRINT SPC(3) 2120 SOUND7,63:FOR GE=255 TO 0 STEP-5:SOUND0,GE:SOUND1,2:SOUND8,14:SOUND 7,&B111110:NEXT:SOUND8,0 2130 LOCATE 6,22:PRINT "DEZELFDE SPELER J/N";:U=USR0(0) 2140 IN$=INKEY$:IF IN$="" THEN 2140 2150 IF IN$="J" OR IN$="j" THEN 360 ELSE 250 2160 ' XWWWWWWWY 2170 ' VstoppenV 2180 ' ZWWWWWWW[ 2190 COLOR 15,4,4:SCREEN0:CLS:END 2200 '----------------------------------- 2210 DATA FE,FF,C7,FE,FE,C7,FF,FE,7E,FF,C3,C3,C3,C3,FF,7E 2220 DATA C3,C3,C3,DB,DB,FF,FF,66,C0,C0,C0,C0,C0,C0,FF,FF 2230 DATA FF,FF,18,18,18,18,FF,FF,C3,E3,F3,FB,DF,CF,C7,C3 2240 DATA 7E,FF,C3,C0,DF,C3,FF,7E 2250 ' 2260 DATA 00,00,F9,22,22,22,21,00,00,00,CF,22,22,22,C2,00 2270 DATA 00,00,9C,22,3E,22,22,00,00,00,72,8A,FA,8A,8B,00 2280 DATA 00,00,07,08,07,00,EF,00,00,00,9C,22,20,A2,1C,00 2290 DATA 00,00,73,8A,8B,8A,72,00,00,00,CF,28,CF,48,2F,00 2300 DATA 00,00,80,10,80,10,80,00 2310 ' 2320 DATA 00,00,F2,8A,F2,82,81,00,00,00,28,2C,2A,29,C8,00 2330 DATA 00,00,BE,88,88,88,88,00,00,00,FA,83,FA,82,FA,00 2340 DATA 00,00,20,20,A0,60,20,00 2350 '------ 2360 DATA 00,78,48,7F,48,4F,01,0F,00,00,00,00,00,00,00,00 2370 DATA 00,00,7B,82,73,0A,F2,00,00,00,CF,28,CF,08,0F,00 2380 DATA 00,00,A0,20,A0,20,BE,00,00,00,FB,82,FB,82,FA,00 2390 DATA 00,00,C0,24,C0,44,20,00,FF,FF,FF,FF,FF,FF,FF,FF 2400 DATA C0,F0,FC,FF,FF,FF,FF,FF,00,00,00,00,C0,F0,FC,FF 2410 '------ 2420 DATA FF,FF,FF,FF,FF,FC,F0,C0,FF,FC,F0,C0,00,00,00,00 2430 ' cijfers scorebord 2440 DATA 00,01,00,00,00,00,00,00,80,80,80,80,80,00,00,00 2450 DATA 01,02,00,01,03,00,00,00,C0,20,C0,00,E0,00,00,00 2460 DATA 03,00,03,00,03,00,00,00,C0,20,C0,20,C0,00,00,00 2470 DATA 02,02,03,00,00,00,00,00,20,20,E0,20,20,00,00,00 2480 DATA 03,02,03,00,03,00,00,00,E0,00,C0,20,C0,00,00,00 2490 DATA 01,02,03,02,01,00,00,00,C0,00,C0,20,C0,00,00,00 2500 DATA 03,00,00,01,02,00,00,00,E0,40,80,00,00,00,00,00 2510 DATA 01,02,01,02,01,00,00,00,C0,20,C0,20,C0,00,00,00 2520 DATA 01,02,01,00,01,00,00,00,C0,20,E0,20,C0,00,00,00 2530 DATA 02,06,02,02,02,00,00,00,70,88,88,88,70,00,00,00 2540 DATA 08,18,08,08,08,00,00,00,38,44,18,20,7C,00,00,00 2550 DATA 00,00,00,00,00,00,00,00 2560 ' balk 2570 DATA 01,03,07,07,07,07,03,01,FF,FF,FF,FF,FF,FF,ff,ff 2580 ' 2590 DATA 01,01,01,FF,00,00,00,00 2600 ' 2610 DATA 00,FC,FC,FC,FC,FC,FC,00 2620 DATA 00,01,03,07,0F,1F,3F,00 2630 DATA 00,00,00,7E,7E,00,00,00 2640 ' WW bola WW 2650 DATA 00,38,5C,7C,7C,38,00,00 2660 DATA 00,1C,3A,3E,3E,1C,00,00 2670 DATA 00,38,7C,7C,7C,38,00,00 2680 ' WW kegel WW 2690 DATA 30,30,30,78,78,78,78,30 2700 ' 2710 ' EL CUMBANCHERO R. Hernandez 2720 C$="CCCC":CR$="CR4CR4CR4CR4" 2730 PLAY"T255S13M450","T255S13M450","T255S13M450" 2740 PLAY"O4L4G","R4","R4":PLAY"O5L4"+C$,"O3L4CR4CR4","O3L2E-E-":PLAY"L4"+C$,"CR4CR4","E-E-":PLAY"L4E-CR2R2R4O4G",CR$,"E-E-E-E-" 2750 PLAY"O5L4"+C$,"CR4CR4","E-E-":PLAY"L4CCCC","CR4CR4","E-E-":PLAY"L4E-CR2R2R4L8CD",CR$,"E-E-E-L4E-R4":PLAY"L4E-CDO4B-","O4L2CO3B","O4L2CO3B-" 2760 PLAY"O5L4CO4A-B-G","AG","A-G":PLAY"L4AFGE-","FE","FE-":PLAY"L4FDE-C","DC","DO3C":PLAY"L1D","D","R2L2E-":PLAY"R4L8GA-GFE-D","L4G.R4R2","L4E-R4R2":PLAY"L1C","CR4CR4","L2E-E-" 2770 RETURN |
