100 CALL CLEAR
305 FOR S=1 TO 16
306 CALL COLOR(S, 16, 1)
307 NEXT S
315 CALL SCREEN(12)
410 E=330
420 G=392
430 B=494
440 D=587
450 F=740
470 A=440
530 T1=1000
540 T2=2000
560 T4=4000
600 CALL SOUND(T1,G,0,B,0,D,0)
1000 CALL HCHAR(1,1,35,32)
1100 STR1$="<3 BY JORGE ABREU"
1105 R=18
1110 C=13
1120 FOR I=1 TO LEN(STR1$)
1130 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
1140 NEXT I
1150 CALL SOUND(T1,E,0,G,0,B,0)
1160 CALL SCREEN(4)
1200 CALL HCHAR(24,1,35,32)
1220 STR1$="YOUTUBE.COM"
1221 STR2$="@ARJORGE1987"
1230 R=20
1231 C=13
1232 FOR I=1 TO LEN(STR1$)
1233 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
1234 NEXT I
1236 CALL SOUND(T1,B,0,D,0,F,0)
1240 R=21
1241 C=13
1242 FOR I=1 TO LEN(STR2$)
1243 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
1244 NEXT I
1300 CALL VCHAR(2,1,35,23)
1350 CALL VCHAR(2,32,35,23)
1360 CALL VCHAR(2,12,35,23)
1370 CALL HCHAR(8,32,35,12)
1380 CALL HCHAR(16,32,35,32)
1391 CALL SOUND(T4,440,0,523,0,659,0)
1395 CALL SCREEN(6)
1400 R=2
1402 C=5
1404 STR1$="---"
1406 STR2$="/- -\"
1408 STR3$="/|@ @|\"
1410 FOR I=1 TO LEN(STR1$)
1412 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
1414 NEXT I
1417 R=3
1418 C=4
1420 FOR I=1 TO LEN(STR2$)
1422 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
1424 NEXT I
1426 R=4
1428 C=3
1430 FOR I=1 TO LEN(STR3$)
1432 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
1434 NEXT I
1435 CALL SOUND(T4,G,0,B,0,D,0)
1436 STR1$="/| . |\"
1438 STR2$="|| ~ ||"
1440 STR3$="| |"
1442 R=5
1444 C=3
1446 FOR I=1 TO LEN(STR1$)
1448 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
1450 NEXT I
1452 R=6
1454 C=3
1456 FOR I=1 TO LEN(STR2$)
1458 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
1460 NEXT I
1462 R=7
1464 C=5
1468 FOR I=1 TO LEN(STR3$)
1470 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
1472 NEXT I
1576 CALL SCREEN(7)
1800 R=10
1801 C=2
1803 STR1$="RICHARD:.."
1804 STR2$="8BITSD: .."
1805 STR3$="JAIME: ..."
1809 FOR I=1 TO LEN(STR1$)
1810 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
1811 NEXT I
1821 CALL SOUND(T2,440,0,523,0,659,0)
1822 R=12
1823 C=2
1824 FOR I=1 TO LEN(STR2$)
1825 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
1826 NEXT I
1830 CALL SOUND(T2,349,0,440,0,523,0)
1840 R=14
1842 C=2
1844 FOR I=1 TO LEN(STR3$)
1846 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
1848 NEXT I
1910 CALL SCREEN(8)
1920 STR1$="|--#--|"
1930 STR2$="|-----|"
1940 STR3$="|-----|"
1950 R=18
1960 C=2
1970 FOR I=1 TO LEN(STR1$)
1980 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
1990 NEXT I
2000 R=19
2010 C=2
2020 FOR I=1 TO LEN(STR2$)
2030 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
2040 NEXT I
2045 CALL SOUND(T4,G,0,B,0,D,0)
2050 R=20
2060 C=2
2070 FOR I=1 TO LEN(STR3$)
2080 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
2090 NEXT I
2200 STR1$="|"
2210 STR2$="|-|"
2220 STR3$="|-|"
2230 R=21
2240 C=8
2250 FOR I=1 TO LEN(STR1$)
2260 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
2270 NEXT I
2280 R=22
2290 C=7
2300 FOR I=1 TO LEN(STR2$)
2310 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
2320 NEXT I
2340 R=23
2350 C=7
2360 FOR I=1 TO LEN(STR3$)
2370 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
2380 NEXT I
2410 CALL VCHAR(4,18,93,9)
2420 CALL VCHAR(4,26,91,9)
2430 CALL VCHAR(6,22,95,9)
2440 R=4
2450 C=16
2460 STR1$="--"
2470 STR2$="/|/"
2480 STR3$="/-|"
2490 FOR I=1 TO LEN(STR1$)
2500 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
2510 NEXT I
2520 R=4
2530 C=27
2540 FOR I=1 TO LEN(STR1$)
2550 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
2560 NEXT I
2570 R=12
2580 C=16
2590 FOR I=1 TO LEN(STR1$)
2600 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
2610 NEXT I
2615 CALL SOUND(T4,349,0,440,0,523,0)
2620 R=12
2630 C=27
2640 FOR I=1 TO LEN(STR1$)
2650 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
2660 NEXT I
2670 R=7
2680 C=14
2690 FOR I=1 TO LEN(STR2$)
2700 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
2710 NEXT I
2720 R=6
2730 C=28
2740 FOR I=1 TO LEN(STR2$)
2750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
2760 NEXT I
2770 R=8
2780 C=13
2790 FOR I=1 TO LEN(STR3$)
2800 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
2810 NEXT I
2820 R=7
2830 C=27
2840 FOR I=1 TO LEN(STR3$)
2890 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
2900 NEXT I
2905 CALL SOUND(T4,440,0,523,0,659,0)
2910 STR1$="|-/"
2920 STR2$="|/"
1910 CALL SCREEN(2)
2930 R=9
2940 C=13
2950 FOR I=1 TO LEN(STR1$)
2960 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
2970 NEXT I
2980 R=8
2990 C=27
3000 FOR I=1 TO LEN(STR1$)
3010 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
3020 NEXT I
3030 R=10
3040 C=13
3050 FOR I=1 TO LEN(STR2$)
3060 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
3070 NEXT I
3080 R=9
3090 C=27
3100 FOR I=1 TO LEN(STR2$)
3110 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
3120 NEXT I
3130 CALL HCHAR(8,21,95,3)
4000 CALL HCHAR(6,17,42,1)
4010 CALL HCHAR(5,16,42,1)
4020 CALL HCHAR(6,17,32,1)
4900 CALL HCHAR(6,6,35,1)
4910 CALL SOUND(T2,G,0,B,0,D,0)
5000 STR1$="JUGANDO COMBAT"
5100 STR2$="DE ATARI 2600"
5200 R=20
5300 C=13
5400 FOR I=1 TO LEN(STR1$)
5500 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
5600 NEXT I
5610 CALL SOUND(T2,294,0,349,0,440,0)
5700 R=21
5800 C=13
5900 FOR I=1 TO LEN(STR2$)
6000 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
6010 NEXT I
6011 CALL HCHAR(6,6,126,1)
6012 CALL SOUND(T4,523,0,659,0,784,0)
6050 CALL HCHAR(4,15,42,1)
6055 CALL HCHAR(5,16,32,1)
6020 STR1$="ESCUCHANDO RATA."
6100 STR2$="MUJER AMANTE "
6200 R=20
6300 C=13
6350 CALL HCHAR(6,6,35,1)
6400 FOR I=1 TO LEN(STR1$)
6500 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
6600 NEXT I
6700 R=21
6800 C=13
6900 FOR I=1 TO LEN(STR2$)
7000 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
7100 NEXT I
7150 CALL SOUND(T4,349,0,440,0,523,0)
7200 CALL HCHAR(6,6,126,1)
7250 CALL HCHAR(5,14,42,1)
7300 CALL HCHAR(4,15,32,1)
7800 R=10
7801 C=2
7803 STR1$="ANKA: PONE"
7804 STR2$="  CHICO"
7805 STR3$="CALLEJERO"
7809 FOR I=1 TO LEN(STR1$)
7810 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
7811 NEXT I
7820 CALL SOUND(T4,440,0,523,0,659,0)
7822 R=12
7823 C=2
7824 FOR I=1 TO LEN(STR2$)
7825 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
7826 NEXT I
7827 R=14
7828 C=2
7829 FOR I=1 TO LEN(STR3$)
7830 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
7831 NEXT I
7900 CALL HCHAR(6,13,42,1)
7920 CALL HCHAR(5,14,32,1)
8010 CALL SOUND(T2,G,0,B,0,D,0)
8050 STR1$="SIEMPRE HAY UN ORCO"
8100 STR2$="AGARRADO DE LA     "
8150 STR3$="VALLA GRITANDO TOCA"
8200 STR4$="CHICO CALLEJERO!!!!"
8250 R=20
8260 C=13
8269 CALL HCHAR(6,6,35,1)
8270 FOR I=1 TO LEN(STR1$)
8280 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
8290 NEXT I
8295 CALL SOUND(T2,294,0,349,0,440,0)
8300 R=21
8320 C=13
8340 FOR I=1 TO LEN(STR2$)
8350 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
8360 NEXT I
8365 CALL SOUND(T4,330,0,415,0,587,0)
8370 CALL HCHAR(7,31,42,1)
8380 CALL HCHAR(6,13,32,1)
8400 R=22
8450 C=13
8470 FOR I=1 TO LEN(STR3$)
8490 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
8500 NEXT I
8510 CALL SOUND(T2,440,0,523,0,659,0)
8550 CALL HCHAR(8,30,42,1)
8560 CALL HCHAR(7,31,32,1)
8600 R=23
8650 C=13
8700 FOR I=1 TO LEN(STR4$)
8750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR4$,I,1)))
8800 NEXT I
8801 CALL SOUND(T2,523,0,659,0,784,0)
8802 CALL HCHAR(6,6,126,1)
9620 CALL HCHAR(9,29,42,1)
9625 CALL HCHAR(8,30,32,1)
9634 CALL HCHAR(10,28,42,1)
9636 CALL HCHAR(9,29,32,1)
10050 STR1$="TE DEVUELVE A ESA  "
10100 STR2$="REALIDAD DE MIERDA "
10150 STR3$="DONDE LA BERISO QUE"
10200 STR4$="APENAS TERMINARON  "
10250 R=20
10260 C=13
10265 CALL HCHAR(6,6,35,1)
10270 FOR I=1 TO LEN(STR1$)
10280 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
10290 NEXT I
10292 CALL SOUND(T2,G,0,B,0,D,0)
10294 CALL HCHAR(11,27,42,1)
10296 CALL HCHAR(10,28,32,1)
10300 R=21
10320 C=13
10340 FOR I=1 TO LEN(STR2$)
10350 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
10360 NEXT I
10364 CALL HCHAR(10,27,42,1)
10366 CALL HCHAR(11,27,32,1)
10370 CALL SOUND(T4,440,0,523,0,659,0)
10400 R=22
10450 C=13
10470 FOR I=1 TO LEN(STR3$)
10490 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
10500 NEXT I
10520 CALL HCHAR(9,28,42,1)
10540 CALL HCHAR(10,27,32,1)
10600 R=23
10650 C=13
10700 FOR I=1 TO LEN(STR4$)
10750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR4$,I,1)))
10800 NEXT I
10801 CALL HCHAR(9,27,42,1)
10802 CALL HCHAR(6,6,126,1)
10810 CALL SOUND(T2,523,0,659,0,784,0)
12050 STR1$="EL SECUNDARIO A   "
12100 STR2$="DISTANCIA LLENA UN"
12150 STR3$="ESTADIO UNICO     "
12200 STR4$="DE LA PLATA      "
12250 R=20
12260 C=13
12265 CALL HCHAR(6,6,35,1)
12270 FOR I=1 TO LEN(STR1$)
12280 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
12290 NEXT I
12292 CALL SOUND(T2,G,0,B,0,D,0)
12295 CALL HCHAR(8,27,42,1)
12300 R=21
12320 C=13
12340 FOR I=1 TO LEN(STR2$)
12350 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
12360 NEXT I
12362 CALL SOUND(T4,440,0,523,0,659,0)
12365 CALL HCHAR(7,27,42,1)
12400 R=22
12450 C=13
12470 FOR I=1 TO LEN(STR3$)
12490 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
12500 NEXT I
12550 CALL HCHAR(7,28,42,1)
12600 R=23
12650 C=13
12700 FOR I=1 TO LEN(STR4$)
12750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR4$,I,1)))
12800 NEXT I
12801 CALL HCHAR(7,29,42,1)
12802 CALL HCHAR(6,6,126,1)
12810 CALL SOUND(T2,523,0,659,0,784,0)
14050 STR1$="SALUDOS PARA: ANKA,"
14100 STR2$="RICHARDSOGARAY8165,"
14150 STR3$="8BITSDVIVERSION76, "
14200 STR4$="SYSTEMSTATION9203,"
14250 R=20
14260 C=13
14265 CALL HCHAR(6,6,35,1)
14270 FOR I=1 TO LEN(STR1$)
14280 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
14290 NEXT I
14292 CALL SOUND(T2,G,0,B,0,D,0)
14295 CALL HCHAR(8,29,42,1)
14300 R=21
14320 C=13
14340 FOR I=1 TO LEN(STR2$)
14350 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
14360 NEXT I
14365 CALL HCHAR(8,28,42,1)
14367 CALL SOUND(T4,440,0,523,0,659,0)
14400 R=22
14450 C=13
14470 FOR I=1 TO LEN(STR3$)
14490 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
14500 NEXT I
14550 CALL HCHAR(6,28,42,1)
14600 R=23
14650 C=13
14700 FOR I=1 TO LEN(STR4$)
14750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR4$,I,1)))
14800 NEXT I
14801 CALL HCHAR(6,29,42,1)
14802 CALL HCHAR(6,6,126,1)
14810 CALL SOUND(T2,523,0,659,0,784,0)
15050 STR1$="SALUDOS PARA:      "
15100 STR2$="APRETAEL5,         "
15150 STR3$="JAIMESALCEDOA_72,  "
15200 STR4$="TODO YOUTUBE       "
15250 R=20
15260 C=13
15265 CALL HCHAR(6,6,35,1)
15270 FOR I=1 TO LEN(STR1$)
15280 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
15290 NEXT I
15292 CALL HCHAR(6,30,42,1)
15298 CALL SOUND(T2,G,0,B,0,D,0)
15300 R=21
15320 C=13
15340 FOR I=1 TO LEN(STR2$)
15350 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
15360 NEXT I
15368 CALL SOUND(T1,440,0,523,0,659,0)
15364 CALL HCHAR(2,17,49,1)
15366 CALL HCHAR(2,27,48,1)
15400 R=22
15450 C=13
15470 FOR I=1 TO LEN(STR3$)
15490 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
15500 NEXT I
15530 CALL COLOR(3, 16, 7)
15535 CALL SOUND(T1,523,0,659,0,784,0)
15600 R=23
15650 C=13
15700 FOR I=1 TO LEN(STR4$)
15750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR4$,I,1)))
15800 NEXT I
15801 CALL COLOR(3, 16, 10)
15802 CALL HCHAR(6,6,126,1)
18050 STR1$="SALUDOS PARA FLISOL"
18100 STR2$="OSOLABS, SYSARMY,  "
18150 STR3$="EKOPARTY, ETC...   "
18200 STR4$="                   "
18250 R=20
18260 C=13
18265 CALL HCHAR(6,6,35,1)
18268 CALL SOUND(T1,G,0,B,0,D,0)
18270 FOR I=1 TO LEN(STR1$)
18280 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
18290 NEXT I
18292 CALL SOUND(T1,294,0,349,0,440,0)
18295 CALL COLOR(3, 16, 7)
18300 R=21
18320 C=13
18340 FOR I=1 TO LEN(STR2$)
18350 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
18360 NEXT I
18365 CALL COLOR(3, 16, 10)
18400 R=22
18450 C=13
18470 FOR I=1 TO LEN(STR3$)
18490 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
18500 NEXT I
18505 CALL SOUND(T4,440,0,523,0,659,0)
18550 CALL COLOR(3, 16, 7)
18600 R=23
18650 C=13
18700 FOR I=1 TO LEN(STR4$)
18750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR4$,I,1)))
18800 NEXT I
18801 CALL COLOR(3, 16, 10)
18802 CALL HCHAR(6,6,126,1)
19050 STR1$="ESTO FUE TODO      "
19100 STR2$="AGUANTE FLASHPARTY "
19150 STR3$="GRACIAS            "
19200 STR4$="ARJORGE1987.       "
19250 R=20
19260 C=13
19265 CALL HCHAR(6,6,35,1)
19270 FOR I=1 TO LEN(STR1$)
19280 CALL HCHAR(R, C+I-1, ASC(SEG$(STR1$,I,1)))
19290 NEXT I
19292 CALL SOUND(T4,G,0,B,0,D,0)
19295 CALL COLOR(3, 16, 7)
19300 R=21
19320 C=13
19340 FOR I=1 TO LEN(STR2$)
19350 CALL HCHAR(R, C+I-1, ASC(SEG$(STR2$,I,1)))
19360 NEXT I
19365 CALL COLOR(3, 16, 10)
19400 R=22
19450 C=13
19470 FOR I=1 TO LEN(STR3$)
19490 CALL HCHAR(R, C+I-1, ASC(SEG$(STR3$,I,1)))
19500 NEXT I
19510 CALL SOUND(T2,440,0,523,0,659,0)
19550 CALL COLOR(3, 16, 7)
19600 R=23
19650 C=13
19700 FOR I=1 TO LEN(STR4$)
19750 CALL HCHAR(R, C+I-1, ASC(SEG$(STR4$,I,1)))
19800 NEXT I
19801 CALL COLOR(3, 16, 10)
19802 CALL HCHAR(6,6,126,1)
20000 GOTO 18801