Video Commodore 64 #2/Video_Commodore_64_2_19xx_GEASA.d64/hola

Commodore BASIC | 2023-02-26 | 5KB | 150 lines

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