5 REM PAUSA -  VC64-02
10 GOSUB3000
100 GOSUB1000
400 END
1000 FORA=679TO714:READB:POKEA,B:NEXT
1010 K1=4:K2=3:POKE715,K1:POKE716,K2
1020 PRINT"[147]"
1030 PRINT"CARGADO EN MEMORIA EL"
1040 PRINT"PROGRAMA 'P A U S A'
1050 [153]"ESCRIBA   SYS 679   PARA EJECUTARLO"
1060 [153]"Y SIFT/RUN STOP PARA CARGAR"
1070 [153]"EL SIGUIENTE PROGRAMA."
1080 [153]"PULSE 'SPACE' PARA CONTINUAR"
1090 [161]A$:[139]A$[179][177]" "[167]1090
1100 [142]
2000 [128]
3000 [151]53281,14:[151]53280,15:[153]"LOAD";
3010 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)";
3020 [153]"SGN                P A U S A             +";
3030 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR";
3040 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)";
3050 [153]"SGN        NUNCA TE HAN LLAMADO POR TE-  +";
3060 [153]"SGN    LEFONO CUANDO ESTABAS A PUNTO     +";
3070 [153]"SGN    DE SUPERAR TU PROPIO RECORD EN    +";
3080 [153]"SGN    UN JUEGO QUE CARECIA DE TECLA     +";
3090 [153]"SGN    PARA PAUSA?.                      +";
3100 [153]"SGN        Y NUNCA HAS DESEADO PARAR     +";
3110 [153]"SGN    LA EJECUCION DEL LISTADO DE UN    +";
3120 [153]"SGN    PROGRAMA LARGO, PARA PODER EXA-   +";
3130 [153]"SGN    MINAR UNAS LINEAS, Y CONTINUAR    +";
3140 [153]"SGN    DESPUES EXACTAMENTE EN EL MISMO   +";
3150 [153]"SGN    SITIO?                            +";
3160 [153]"SGN                                      +";
3170 [153]"SGN        CON ESTE PROGRAMA LO CONSE-   +";
3180 [153]"SGN    GUIRAS:                           +";
3190 [153]"SGN        UNA VEZ EJECUTADO, QUEDARA    +";
3200 [153]"SGN    EN MEMORIA HASTA QUE PULSES       +";
3210 [153]"SGN    RUN STOP/RESTORE O APAGUES TU     +";
3220 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR";
3230 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)";
3240 [153]"SGN      PULSA 'SPACE' PARA CONTINUAR    +";
3250 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR";
3255 [161]A$:[139]A$[179][177]" "[167]3255
3260 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)";
3270 [153]"SGN           PATRULLA ESPACIAL          +";
3280 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR";
3290 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)";
3300 [153]"SGN    COMMODORE. PARA VOLVER A ACTI-    +";
3310 [153]"SGN    VARLO, EN EL PRIMER CASO ES-      +";
3320 [153]"SGN    CRIBE SIMPLEMENTE   SYS 679       +";
3330 [153]"SGN    EN MODO DIRECTO. EN EL SEGUN-     +";
3340 [153]"SGN    DO CASO, VUELVELO A CARGAR.       +";
3350 [153]"SGN        UNA VEZ EJECUTADO, CARGA      +";
3360 [153]"SGN    CUALQUIER OTRO PROGRAMA Y VE-     +";
3370 [153]"SGN    RAS QUE LA TECLA F1 DETIENE       +";
3380 [153]"SGN    LA EJECUCION DEL MISMO Y LA       +";
3390 [153]"SGN    TECLA F7 LA REANUDA.              +";
3400 [153]"SGN        SI QUIERES INCORPORARLO       +";
3410 [153]"SGN    COMO RUTINA A TUS PROPIOS PRO-    +";
3420 [153]"SGN    GRAMAS, SIMPLEMENTE COPIA LAS     +";
3430 [153]"SGN    LINEAS 1000-1100 Y 10000 A        +";
3440 [153]"SGN    10040 Y PON UN GOSUB1000 EN       +";
3450 [153]"SGN    TU PROGRAMA.                      +";
3460 [153]"SGN                                      +";
3470 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR";
3480 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)";
3490 [153]"SGN      PULSA 'SPACE' PARA CONTINUAR    +";
3500 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR";
3950 [161]A$:[139]A$[179][177]" "[167]3950
3999 [142]
10000 [131]120,169,180,141,20,3,169,2
10010 [131]141,21,3,88,96,165,197,205
10020 [131]203,2,240,3,76,49,234,32
10030 [131]159,255,165,197,205,204,2,240
10040 [131]243,76,190,2,234,234,234,234