"XS$:<-pb7,1::A B X@RE0Y BA XA YA G HST Égo|gxG>5Jʙ9v" GSљ e͘w>RO  î""ۈӈ~`ӆw>2bhh<-<-<-0VIC 1:"Dies ist eine KC-Version des beliebten"I"Programms ELISA."x"Der Autor dieser Fassung ist uns leider""nicht bekannt. Wir hoffen,dass er gegen""die Ausstrahlung im Rundfunk keine" "Einwaende hat."::" D A N K E":1"Damit ALLE Computerfreunde Spass an VIC"_ "haben, rufen wir alle KC-Besitzer auf,"y "dieses Programm in" :" BASICODE": "umzuschreiben und uns zuzuschicken" :" REM-das Computermagazin"" Berlin, 1160" ::"2.Februar 1990"200, ***************B * *X( * V I C *n2 * *< ***************F P INITIALISIERUNG+TITELZ d 1000: (17)n 0,31,0,39: 7,1:x 2,29,2,36: 0,6:::" VIC - INTERVIEW"7" -------------------"?:q:::::" ICH MUSS MICH MAL KURZ KONZEN-":" TRIEREN."EA50:FA50:SV3 1830 A(25),E$(EA),F$(FA),S$(SA) S(SA,SV),T$(TKTN),T2$(TK) TV$(TV),TF$(TF)41720:F$"SALUE, ICH HEISSE VIC ! WIE HEISST DU ?"P 0,31,0,39: 7,1:::w" *** VIC - INTERVIEW ***"1560750N$E$(W)"F$"ALSO "N$", ERZAEHLE MIR ETWAS VON DIR UND DEINER FAMILIE.",6306  @ INPUT+VERGLEICH J  T750@ ^ I0 W:A(E$(I))65: A0 A25 420V hSA(A): S0 420 r SS SA: S(S,0)TK Z$(E$(I),(S$(S))):390 |Z$E$(I)  Z$S$(S) S:420  Z$S$(S) 420 1300  I   OUTPUT VORBEREITUNG    FF0 490- FF0: TF0 TFTF1A F$TF$(TF):630  W2 F1 F$"MACH GEFAELIGST EINEN RICHTIGEN SATZ!":630  F1 550 F$F$(F):F$(F)"":FF1:630   VERLEGENHEITSFRAGEN STELLEN  & TA3 5803 0F$"SO, NUN MUSS ICH ABER SCHLUSS MACHEN. TSCHUESS "N$"."S :1560: 0,31,0,39: (18):y DT((1)TV0.5): TV$(T)"" 580 NTATA1:F$TV$(T):TV$(T)"" X b FRAGE AUSGEBEN l v1560 340   *************   ROUTINEN    *************"  .  INPUT5  G  INKEY$ CHARU E0:E$""|  D60 D61: 19,25,3,36: 0,3:  20,24,4,35: 0,6:: 21,23,5,34 K21:L5: (K,L); 4;"[" A$: A$"" 790 A(A$): A8 870 * E1 790 4 K23 L34 R1 L35:R00 >(K,L);" "M H K23 L5 K21:L35y REE1:LL1:E$(E$,E): (K,L); 4;"[" \790 f A13 A$"." p A$" " A$"Z" 790 zE$E$A$:EE1:LL1: (K,L1); 0;A$: (K,L); 4;"[" A$"!" A$"." 980! A$"?" FF1:980\ L35 K21 K23:L5:(K2,35);" ":(K,L); 4;"[ L35 K23 EE1:LL1:E$(E$,E):R1790  IN WORTE ZERLEGEN  E1 W1:WA0: I1 E:A$(E$,I,1):A(A$) A64 A91 A47 A58 10405 WA0 WT1 1060M A45 WT1:1060\WA0:1060 WA0 WA1:WW1:E$(W)"": WEA1 WT0:E$(W)E$(W)A$$. 8 1.PERS. ERSETZEN DURCH 2.PERS.B L I0 W: (E$(I))6 1230VZ$(E$(I),4)0` Z$"ICH" E$(I)"DU":1200Rj Z$"DU" E$(I)"ICH":1200ht Z$"MICH" 1220~~ Z$"DICH" 1210 Z$"MEIN" 1220 Z$"DEIN" 1210 Z$"MIR" 1220 Z$"DIR" 12101230E$(I)"M"(E$(I),(E$(I))1):1230(E$(I)"D"(E$(I),(E$(I))1).5 C DRUCKENIP i FRAGEN VORBEREITENp   FFA1 ( NICHT BENUTZTE TEXTE SUCHEN2 <Z0: J0 SV:TS(S,J): T$(T)"" Z(Z)T:ZZ1F JP Z0 ZTZ((1)Z): TTK IW %d 6n TEXT HOLEN=x gFF1:F$(F)T$(T):T$(T)"": TTK n  TEXT-KOMPOSITION  E$(I1)"ICH" E$(I1)"DU" 1470 JI1 W:1480 J0 W: JI JJ2 E$(J)"UND" E$(J)"ODER" JW:1500.F$(F)F$(F)" "E$(J)6 JQF$(F)F$(F)" "T2$(T)W^ q BS EDITIERENx  L60 L61: 6,14,3,36: 0,6:" 7,13,4,35: 7,2:: 8,12,5,34,X$F$6Z29@Z$(F$,Z,1): Z$"" 1630 J (Z$)65 1630TZZ1:1600(^Z$(F$,Z)Xh H1 Z: (Z$,H,1);: A1 10: A,H::mr Z(F$) 1670|F$(F$,Z1): F$"" 1590 (10);(10)  DATA'S LESEN : I1 SA: S$(I):J0:A(S$(I))65 A(A)0 A(A)I Z: Z0 1760@S(I,J)(Z)TK(Z0):JJ1:1740K: Z$o ITK1 TKTN: T$(I):: Z$ I1 TK: T$(I),T2$(I):: Z$ I0 TV1: TV$(I):: Z$ I0 TF1: TF$(I):: Z$ Z$"$" " DATA FEHLER":&0 DATA'S ZAEHLEN : RD1880:SAZ:1880:TNZ:1880:TKZ2:1880:TVZcN1880:TFZ:kXZ0b Z$: Z$"$" lA(Z$): A57 A45 A46 ZZ1v1890 *****************  SCHLUESSELWOERTER + VERKETUNG  *****************6 AERGER,14,25,0,ARM,2,22,0x BIN,-1,-12,-13,-19,0,BIST,-17,-35,-37,-38,0,BLEIBE,-7,-30,0 BRAUCHE,-14,0,BRUDER,9,0,BRUEDER,9,0 COMPUTER,11,0 DARF,-3,-29,0 FINDE,-34,0,FRAU,3,4,0,FREUND,1,5,0) GEBE,-32,0,GEHE,-15,0,GELD,2,0,GESCWISTER,9,0\ GESUND,21,22,0,GLAUBE,-5,27,29,0,GLUECK,23,0 HABE,-2,-22,-39,0,HAETTE,17,0,HAST,-36,0,HAT,-25,0,HOFFE,-6,0  IDIOT,20,0 KANN,-4,-24,0,KANNST,-18,-42,0,KOENNTE,17,0   KOMME,-33,0,KRANK,22,0,KUMMER,25,0(* LIEB,6,28,0,LUST,24,0R4 MACHE,-11,-21,-27,-28,0,MAENNER,5,0> MOECHTE,-16,-31,0,MOEGLICH,13,0,MUSS,-20,-26,0,MUTTER,7,0 H ONKEL,10,0R REICH,2,22,0\ SAG,12,29,0,SCWAEGERIN,10,0,SCWAGER,10,0&f SCHWESTER,9,0,SEX,26,0,SOEHNE,1,0,SORGEN,25,0,SPIEL,16,0Qp SPINNER,20,0,STREIT,25,0,STRESS,25,0z TANTE,10,0,TOECHTER,1,0,TRAURIG,14,25,0,TROTTEL,20,0 UNGLUECK,14,23,0,UNZUFRIEDEN,14,0 VATER,8,0,VERWANDT,10,0,VIELLEICHT,13,0" WAERE,17,0,WEISS,-10,0,WERDE,-9,-23,-40,-41,0,WETTER,18,0Q WILL,-8,-9,-41,0,WUERDE,17,0,WUNSCH,19,0Y $` l TEXTEs  DU BIST SICHER STOLZ AUF DEINE KINDER. WAS MACHEN SIE? GELD ALLEIN MACHT NICHT GLUECKLICH!  ICH GLAUBE FRAUEN SIND EIN HEIKLES THEMA.> "UEBRIGENS, WIE SOLLTE DEINE TRAUMFRAU SEIN?"d MACHST DU DIR VIEL AUS MAENNER? MIT DER LIEBE IST ES HALT SO EINE SACHE. ERZAHLE MIR MEHR UEBER DEINE MUTTER. WAR DEIN VATER SEHR STRENG MIT DIR?$ ERZAEHL MIR ETWAS MEHR VON DEINEN GESCHWISTERN.]. GIBT ES IN DEINER VERANDTSCHAFT AUCH LEUTE DIE DU MAGST?8 "SAG MAL, WAS HAELST DU VON DEN COMPUTERN?" B DAS HALTE ICH FUER EIN GERUECHT.L DU SCHEINST ETWAS UNSICHER ZU SEIN."V VERSUCHE SOLCHE NEGATIVEN GEDANKEN VON DIR FERN ZU HALTEN.[` DU BIST ABER HOFFENTLICH NICHT VERHEIRATET - ODER?jj GAMBLER!t SO SICHER SCHEINT DAS ABER NICHT ZU SEIN - ODER?~ HAST DU KEIN BESSERES THMA ALS DAS WETTER? WUENSCHE SIND DIE TRIEBFEDER DER MENSCHHEIT. (GUT - WAS?)\ "NEBENBEI BEMERKT: SCHIMPFWOERTER MOECHTE ICH KEINE MEHR HOEREN!"  "A VOTRE SANTE! (HAST DU GESEHEN, ICH KANN SOGAR FRANZOESISCH.)" "DU SAGST DIR WOHL AUCH:LIEBER GESUND UND REICH, ALS KRANK UND ARM.". "DU KENNST DOCH DIE GESCHICHTE VOM HANS IM GLUECK, ODER?"o "APROPOS LUST: ICH HAETTE JETZT GERADE LUST AUF EIN BIER." DU SOLLTEST DAS LEBEN ETWAS VON DER HEITEREN SEITE NEHMEN. "WEISST DU WIE NONNEN ZAEHLEN? 1 2 3 4 5 PFUI!! DAS KANN ICH ALLERDINGS NICHT SO RECHT GLAUBEN.N! GEHT DIE LIEBE BEI DIR AUCH DURCH DEN MAGEN?m! GLAUBST DU DAS WIRKLICH?u! $|! ! KOMPOSITIONS-TEXTE ! ! "BIST DU ETWA STOLZ DARAUF, DASS DU",BIST?!( "WAS FUER EIN ZUFALL, AUCH ICH HABE",.'"2 "WER BESTIMMT DENN, DASS DU",DARFST?Y"< "DAS HABE ICH MIR GEDACHT, DASS DU",KANNST.r"F WARUM GLAUBST DU,?"P "HOFFST DU NOCH ETWAS ANDERES, AUSSER",?"Z "DEINE STANDHAFTIGKEIT IN EHREN. IST ES ABER WIRKLICH KLUG,""d ZU BLEIBEN? #n "AN WAS DENKST DU, WENN DU",WILLST?R#x "GLAUBST DU ES WAERE GUT,WENN DU",WUERDEST?# "WIE MEINST DU DAS GENAU, DU WUESSTEST",?# ALSO MACH,.IST MIR AUCH GLEICH.# "WEN INTERESSIERT DAS SCHON, DAS DU",BIST?# "OH, ICH WAERE AUCH GERNE",.$$ VIELLEICHT BRAUCHST DU WIRKLICH,.M$ ICH MOECHTE EIGENTLICH AUCH,GEHEN.z$ "AN WAS DENKST DU, WENN DU",MOECHTEST?$ "UEBRIGENS: DU BIST SELBST",!$ "WETTEN WIR,DASS DU SELBST",KANNST?% "SO, SO. DU BIST ALSO",. OB DAS WOHL JEMANDEN JUCKT?@% "KANN ICH DIR HELFEN, WENN DU DAS NAECHSTE MAL",MUSST?s% "ERZAEHLE MIR MEHR DARUEBER, WIE DU",MACHST.% "WAS GLAUBST DU WOHER DAS KOMMT, DASS DU",HAST?% WARUM WIRST DU,?% "KANNST DU MIR ERKLAEREN, WIE MAN",KANN? & WER HAT SONST NOCH,?=&" DU BIST NICHT DER EINZIGE. AUCH ICH SOLLTE,.m&, "WAS DENKST DU DIR DABEI WENN DU",MACHST?&6 "WAS WAERE WOHL, WENN JEDER",MACHEN WUERDE?&@ "DAS MUESSTE MIR MAL EINER SAGEN, DASS ICH",DARF! 'J WARUM KANNST DU NUR SO STUR SEIN UND,BLEIBEN?4'T " "," - DAS MOECHTE NOCH MANCHER!"m'^ "ICH FINDE ES GROSSZUEGIG VON DIR, DASS DU",GIBST.'h KOMMT SONST NOCH JEMAND,?'r ICH STIMME DIR VOLL BEI. AUCH ICH FINDE,.'| "OK, ICH BIN"," - WAS BIST DENN DU?"( "DAS WEISS DOCH JEDER, DASS ICH",HABE.U( "HAT LANGE GEDAUERT, BIST DU GEMERKT HAST, DASS ICH",BIN.( "DUMMKOPF! DAS WEISS MAN DOCH, DASS ICH",BIN.( "BIST DU FROH, DASS DU",HAST?( WER WIRD SONST NOCH,?( WENN NUR ALLE,WUERDEN!) WARUM SOLL ICH,KOENNEN?>) "GLAUBST DU, DAS BEEINDRUCKT MICH, DASS DU",KANNST?F) $M) g) VERLEGENHEITS-TEXTEn) ) REDEST DU IMMER SO EINFAELTIGES ZEUG?) ERZAEHLE MIR WAS DU VON MIR DENKST.* "GLAUBST DU AUCH, DASS ICH DIR ETWAS UEBERLEGEN BIN?"7* WARUM SPRICHST DU EIGENTLICH MIT EINEM COMPUTER?k*& KANNST DU NICHT ETWAS GESCHEITERES ERZAEHLEN?*0 BIST DU AUCH SO INTELLIGENT WIE ICH?*: "UEBRIGENS: WAS HALST DU EIGENTLICH VON UNSERER KONVERSATION?" &+D "WENN ES DIR ZU BLOED WIRD, ZIEH MIR EINFACH DEN STECKER RAUS."[+N EIN GESPRAECH MIT DIR IST ZIEMLICH EINFAELTIG.+X "UNSEREM GESPRAECH NACH ZU URTEILEN, BIST DU NICHT DER HELLSTE!"+b $+l +v VERLEGENH.-TEXTE AUF ?+ , DEINE FRAGEREI GEHT MIR AUF DEN WECKER!(, DUMME FRAGE! WEISS DOCH JEDER!a, KEINE AHNUNG! WAS ERWARTEST DU EIGENTLICH VON MIR?, DAS WEISST DU SICHER BESSER ALS ICH. ERZAHLE WEITER!, $, ***********************, * *, * ENDE V I C *- * *:- ***********************