10 POKE 53280,1:POKE53281,1
20 A=A+1:IFA=1THENLOAD"SUMARIO CM",8,1
30 POKE56,50:CLR
40 V=53248
50 PRINT"[147]";
60 POKEV+21,0
100 PRINT"                                   "
110 PRINT"      GRUPO DE TRABAJO SOFTWARE SA [144][146][161]"
120 PRINT"                                   [144][146][161]"
130 PRINT"      [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
140 PRINT"  [156]                                    "
145 PRINT"  [156] SUSCRIBASE POR TELEFONO: 2666601-2 [144][146][161]"
150 PRINT"  [156]                                    [144][146][161]"
155 PRINT"   [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
200 PRINT"                                   "
210 PRINT"      DIRIGIR LA CORRESPONDENCIA A:[144][146][161]"
220 PRINT"      GRUPO DE TRABAJO SOFTWARE SA [144][146][161]"
230 PRINT"      C/ BAILEN N-20 1      MADRID [144][146][161]"
250 PRINT"                                   [144][146][161]"
260 PRINT"      [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
262 GETG$:IFG$=""THEN262
266 PRINT"[147]";
270 PRINT"                                       "
274 PRINT"  ESTE PODRIA SER UNO DE TUS PROGRAMAS [144][146][161]";
276 PRINT"  ANIMATE Y MANDANOS TUS MEJORES PRO-  [144][146][161]";
278 PRINT"  GRAMAS. PODRAS GANAR HASTA 5000 PTS. [144][146][161]";
280 PRINT"                                       [144][146][161]";
282 PRINT"  [144][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
300 POKEV+41,15:POKEV+42,15
310 POKEV+39,6:POKEV+40,2
320 FORT=0TO3
330 POKEV+1+2*T,182:NEXT
340 POKEV+2,0:POKEV+4,0:POKEV+6,0
350 POKEV+21,15
360 POKE2040,200:POKE2041,201
370 POKE2042,202:POKE2043,203
400 FORT=0TO140:POKEV,T:NEXT
410 FORT=0TO140:POKEV+2,T:NEXT
420 FORT=0TO170:POKEV+4,T:NEXT
430 FORT=0TO185:POKEV+6,T:NEXT
440 C=0
450 FORT=0TO3:POKEV+39+T,C
460 FOR L=0 TO 100: NEXT
465 NEXT
470 C=C+1:IFC>255THENC=0
480 GETG$:IFG$=""THEN450
490 POKEV+21,0
500 POKE53280,0:POKE53281,0:POKE646,14
520 PRINT"[147]
560 [153]"          ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^"
570 [153]"          PEEK   SUMARIO             PEEK"
580 [153]"          PEEK   SPRITE SIMETRICO    PEEK"
590 [153]"          PEEK   FRONTON             PEEK"
600 [153]"          PEEK   PINTAR              PEEK"
610 [153]"          PEEK   DIRECTORIO          PEEK"
620 [153]"          /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"
700 [153]"          ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^"
710 [153]"          PEEK   RENUMERADOR         PEEK"
720 [153]"          PEEK   NAVE                PEEK"
730 [153]"          PEEK   TEST TECLADO        PEEK"
740 [153]"          PEEK   PREGUNTON           PEEK"
750 [153]"          PEEK   LABERINTO           PEEK"
760 [153]"          /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"
800 [151]198,0
900 [135]A:[139]A[178][171]1[167]2000
940 [151]A[170]1064,2[170](A[179]500)
950 [129]T[178]0[164]001:[130]
990 [137]900
1000 [131] 83,123,124,163,165,203,204,205,206,243,247,283,288
1100 [131] 563,564,603,605,643,645,683,684,685,686,723,727
1110 [131] 763,764,765,766,-1
2000 C[178]C[170]1:[141]3000
2100 [137]2000
3000 [129]I[178]0[164]5
3020 [129]T[178]0[164]5
3050 [151]55419[170]T[170]40[172]I,C
3100 [130]
3110 [130]
3200 [129]I[178]0[164]5
3220 [129]T[178]0[164]5
3250 [151]55899[170]T[170]40[172]I,C
3300 [130]
3310 [130]
3400 [142]
5000 [128]