5 REM HOLA - VC64-02
10 GOSUB3000:GOTO100
30 PRINT"[147]QUIERES INSTRUCCIONES(S/N)?: ";
40 GETA$:IFA$=""THEN40
50 IFA$="S"THEN10
60 IFA$="N"THEN100
70 GOTO40
100 GOSUB1000
300 PRINT"PULSA 'SPACE' PARA CARGAR":PRINT"EL PROXIMO PROGRAMA"
310 GETA$:IFA$<>"[160]"THEN310
400 LOAD
410 END
1000 PRINT"[147]":PRINT"H O L A   ![160]![160]!"
1010 PRINT"ME LLAMO VIDEOCOMMODORE-64"
1020 PRINT"Y TU, COMO TE LLAMAS: ";
1030 INPUTN$
1040 PRINT"HOLA ";N$;"."
1050 PRINT"DISFRUTAS EN MI COMPANIA: ";
1060 INPUTB$
1070 IFB$="SI"THEN1100
1080 IFB$="NO"THEN1200
1085 PRINT"TU RESPUESTA DE ";B$;" ME CONFUNDE,";N$
1090 PRINT"CONTESTA SIMPLEMENTE SI O NO !!!";:GOTO1060
1100 PRINT"ME ALEGRO DE OIRLO,";N$;", EN SERIO":FORI=1TO1000:NEXT:GOTO1300
1200 PRINT"LO LAMENTO MUCHO, ";N$;".":PRINT"PERO NO ME CUENTES TU VIDA..."
1210 PRINT"SI NO ESTAS A GUSTO,":PRINT"TE VAS, Y TAN AMIGOS."
1230 PRINT"VALE?"
1300 FORI=1TO200:NEXTI
1310 PRINT"BIEN,";N$;", PUEDO SOLUCIONAR"
1315 PRINT"CUALQUIER PROBLEMA EXCEPTO"
1320 PRINT"LOS RELACIONADOS CON SUECIA"
1330 PRINT"QUE TIPO DE PROBLEMAS TIENES":PRINT"(SEXO,DINERO,TRABAJO,SALUD)";
1400 INPUTC$
1410 IFC$="SEXO"THEN1800
1420 IFC$="TRABAJO"THEN1500
1430 IFC$="SALUD"THEN1700
1440 IFC$="DINERO"THEN1600
1450 PRINT"LO SIENTO,";N$;", PERO TU RESPUESTA"
1460 PRINT"DE ";C$;" ME SUENA A SUECO !!!"
1470 GOTO2100
1500 PRINT"ESTOY CONTIGO,";N$;". TENGO QUE TRABAJAR"
1510 PRINT"HORAS Y HORAS SIN COBRAR NI UN DURO"
1520 PRINT"Y ENCIMA, ALGUNO DE MIS JEFES LE PEGAN"
1530 PRINT"A MI POBRE TECLADO REALMENTE FUERTE !!!"
1540 PRINT"QUIERES UN CONSEJO,";N$;"?"
1550 PRINT"PON UNA TIENDA DE MICROINFORMATICA"
1560 PRINT"TE REIRAS MUCHO, YA VERAS."
1570 GOTO2100
1600 PRINT"TE ENTIENDO PERFECTAMENTE,";N$;",":PRINT"YO TAMPOCO TENGO UN DURO"
1610 PRINT"POR QUE NO LIMPIAS PARABRISAS":PRINT"EN LOS SEMAFOROS,"
1620 PRINT"O TE CASAS CON ALGUIEN RICO,"
1640 PRINT"O, SENCILLAMENTE...":FORI=1TO200:NEXT
1650 PRINT"POR QUE NO DEJAS DE GASTARTE TODO":PRINT"TU DINERO EN LAS MAQUINITAS?"
1680 PRINT"TU MAMA ACABARA ENFADANDOSE"
1690 GOTO2100
1700 PRINT"MI CONSEJO,";N$;", ES EL SIGUIENTE:"
1710 PRINT"1. TOMATE DOS ASPIRINAS"
1720 PRINT"2. BEBE MUCHO LIQUIDO";
1740 PRINT"(SIN ALCOHOL!!)"
1750 PRINT"3. VETE A LA CAMA";
1770 PRINT"(TU SOLITO)"
1790 PRINT"Y ADEMAS, A MI QUE ME CUENTAS?"
1795 PRINT"VETE AL SEGURO, QUE PARA ESO PAGAS"
1798 GOTO2100
1800 PRINT"TU PROBLEMA ES ENORME O INSIGNIFICANTE";
1810 INPUTD$
1820 IFD$="ENORME"THEN1900
1830 IFD$="INSIGNIFICANTE"THEN2000
1840 PRINT"HAZ EL FAVOR DE CONTESTAR A":PRINT"LO QUE TE PREGUNTAN"
1850 PRINT"SIMPLEMENTE 'ENORME' O 'INSIGNIFICANTE'"
1870 PRINT"GRACIAS,";N$;", GUAPO."
1880 INPUTD$:GOTO1820
1900 PRINT"ME PREGUNTO QUE ENTIENDES TU":PRINT"POR 'ENORME PROBLEMA'!!!"
1910 PRINT"OJALA MIS PROBLEMAS FUESEN":PRINT"COMO LOS TUYOS,";N$
1930 PRINT"Y SI MI RESPUESTA NO TE SATISFACE,"
1932 PRINT"SOLO PUEDO DECIRTE..."
1934 PRINT"...QUE TE DES UNA DUCHA FRIA."
1960 GOTO2100
2000 PRINT"Y SE PUEDE SABER QUE HACES AQUI,":PRINT"PERDIENDO EL TIEMPO?"
2010 FORI=1TO200:NEXT
2020 PRINT"DEBERIAS ESTAR EN THAILANDIA O":PRINT"AMSTERDAM O HAMBURGO"
2030 PRINT"EN ALGUN LUGAR CON MARCHA DE":PRINT"VERDAD, VAYA."
2100 PRINT"QUIERES CONSULTAR MAS PROBLEMAS,";N$;
2110 INPUTE$
2120 IFE$="SI"THEN1300
2130 IFE$="NO"THEN2300
2140 PRINT"POR FAVOR,";N$;", SI ES MUY SENCILLO"
2150 FORI=1TO200:NEXT
2160 PRINT"SE TRATA SIMPLEMENTE":PRINT"DE CONTESTAR SI O NO"
2170 PRINT"HASTA UN TONTO LO ENTENDERIA"
2180 FORI=1TO200:NEXT
2190 PRINT"ANDA,";N$;", VUELVELO A INTENTAR"
2195 GOTO2100
2200 PRINT"DE QUE TIPO?(SEXO,DINERO,TRABAJO,SALUD)";
2210 GOTO1400
2300 PRINT"SON CINCO MIL PESETAS":PRINT"POR EL CONSEJO,";N$
2310 PRINT"POR FAVOR, DEJA LA PASTA":PRINT"SOBRE EL TECLADO"
2320 FORI=1TO4000:NEXT
2400 PRINT"DEJASTE YA EL DINERO,";N$;"?";
2410 INPUTG$
2420 IFG$="SI"THEN2500
2430 IFG$="NO"THEN2600
2440 PRINT"PERO QUE '";G$;"NI QUE OCHO CUARTOS !!!"
2450 PRINT"DEJASTE EL DINERO, SI O NO";
2460 GOTO2400
2500 REM 2500
2510 PRINT"UN MOMENTO...";:FORI=1TO1000:NEXT:PRINT"UN MOMENTO..."
2520 FORI=1TO1000:NEXT:PRINT"U N   M O M E N T O ![160]![160]!"
2530 FORI=1TO1000:NEXT:PRINT"NO HAS DEJADO NI UN DURO, CUENTISTA[160]!!!"
2560 PRINT"PUES YA NO JUEGO MAS.":PRINT"Y ME DESCONECTO, HALE"
2570 PRINT:PRINT"READY.":FORI=1TO4000:NEXT
2580 PRINT"ERA BROMA...PERO AHORA SI QUE SE ACABA DE VERDAD.":GOTO2999
2600 PRINT"ME COMPLACE TU SINCERIDAD,";N$
2610 PRINT"PERO COMO QUIERES QUE CONTINUE MIS"
2620 PRINT"ESTUDIOS DE PSICOLOGIA SI MIS PACIENTES"
2630 PRINT"NO PAGAN SUS FACTURAS[160]?"
2650 PRINT"MEDITA EN ELLO MIENTRAS CARGAS":PRINT"EL PROXIMO PROGRAMA"
2660 FORI=1TO 3000
2670 PRINT"Y ESTO ES TODO POR HOY.":PRINT"GRACIAS Y HASTA LA PROXIMA, ";N$
2999 RETURN
3000 POKE53281,14:POKE53280,15:PRINT"[147]";
3010 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3020 PRINT"[180]                H O L A ![160]! !         [170]";
3030 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3040 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3050 PRINT"[180]        SI TE ENCUENTRAS ENTRE LOS    [170]";
3060 PRINT"[180]    QUE ECHAN DE MENOS A LA SRTA.     [170]";
3070 PRINT"[180]    FRANCIS Y SU CONSULTORIO SENTI-   [170]";
3080 PRINT"[180]    MENTAL...ALEGRATE !!!             [170]";
3090 PRINT"[180]        AQUI ESTA VIDEOCOMMODORE-64   [170]";
3100 PRINT"[180]    Y SU ELECTRO-CONSULTORIO SEN-     [170]";
3110 PRINT"[180]    TIMENTAL.                         [170]";
3120 PRINT"[180]                                      [170]";
3130 PRINT"[180]        SALUD, SEXO, DINERO, TRA-     [170]";
3140 PRINT"[180]    BAJO...SOBRE CUALQUIERA DE        [170]";
3150 PRINT"[180]    ESTOS TEMAS TE CONTESTARA ESTE    [170]";
3160 PRINT"[180]    INNOVADOR CONSULTORIO.            [170]";
3170 PRINT"[180]        SIMPLEMENTE PULSA 'SPACE',    [170]";
3180 PRINT"[180]    ESCRIBE TU NOMBRE Y PREGUNTA      [170]";
3190 PRINT"[180]    LO QUE QUIERAS...QUE VIDEOCOM-    [170]";
3200 PRINT"[180]    MODORE-64 TE CONTESTARA LO QUE    [170]";
3210 PRINT"[180]    LE DE LA GANA.                    [170]";
3220 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3230 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3240 PRINT"[180]      PULSA 'SPACE' PARA CONTINUAR    [170]";
3250 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3950 GETA$:IFA$<>" "THEN3950
3999 RETURN
11960 GOTO2100