0010 PRINT 
0015 PRINT 
0020 PRINT "WIE MAN BEIM FORMULIEREN UNSCHLAGBAR WIRD."
0025 PRINT "******************************************"
0030 PRINT 
0035 PRINT "-VAFSY-, DAS VOLLAUTOMATISCHE FORMULIER-SYSTEM."
0040 PRINT 
0045 PRINT "VAFSY BENUTZT EINE SORGFAELTIG AUSGEWAEHLTE LISTE VON"
0050 PRINT "SCHLUESSEL-WORTEN."
0055 PRINT "DIE HANDHABUNG IST EINFACH. GEBEN SIE UBER DIE TASTATUR"
0060 PRINT "DIE ANZAHL DER ZEITEINHEITEN EIN (EINE ZEITEINHEIT = 5 SEKUNDEN)."
0065 PRINT "ANSCHLIESSEND BETAETIGEN SIE DIE TASTE 'RETURN'."
0070 PRINT "VAFSY GIBT DANN IN DEN VON IHNEN GEWAEHLTEN ZEITABSTAENDEN"
0075 PRINT "JEWEILS EIN SCHLUESSELWORT AUS. DIESES SCHLUESSELWORT FUEGEN"
0080 PRINT "SIE MEHR ODER WENIGER SINNVOLL IN IHREN BERICHT EIN."
0085 PRINT 
0090 PRINT "VAFSY VERLEIHT IHREN AUSFUEHRUNGEN EINE ENTSCHIEDENE, VON"
0095 PRINT "FACHWISSEN GEPRAEGTE AUTORITAET. KEINER WIRD WISSEN, WOVON"
0100 PRINT "SIE REDEN. ENTSCHEIDEND IST, DASS NIEMAND WAGEN WIRD,"
0105 PRINT "DIESE TATSACHE ZUZUGEBEN !"
0110 PRINT 
0120 PRINT 
0125 PRINT "VAFSY FRAGT JETZT NACH IHRER ZEITEINGABE"
0130 PRINT 
0135 INPUT A
0140 PRINT 
0145 LET W=1
0146 PRINT 
0150 FOR C=2 TO 1280
0155  FOR D=1 TO A
0160  NEXT D
0165 NEXT C
0200 LET K=INT(9*RND(1)+1)
0205 IF K=1 THEN GOTO 0510
0210 IF K=2 THEN GOTO 0520
0215 IF K=3 THEN GOTO 0530
0220 IF K=4 THEN GOTO 0540
0225 IF K=5 THEN GOTO 0550
0230 IF K=6 THEN GOTO 0560
0235 IF K=7 THEN GOTO 0570
0240 IF K=8 THEN GOTO 0580
0245 IF K=9 THEN GOTO 0590
0300 LET L=INT(9*RND(1)+1)
0305 IF L=1 THEN GOTO 0610
0310 IF L=2 THEN GOTO 0620
0315 IF L=3 THEN GOTO 0630
0320 IF L=4 THEN GOTO 0640
0325 IF L=5 THEN GOTO 0650
0330 IF L=6 THEN GOTO 0660
0335 IF L=7 THEN GOTO 0670
0340 IF L=8 THEN GOTO 0680
0345 IF L=9 THEN GOTO 0690
0400 LET M=INT(9*RND(1)+1)
0405 IF M=1 THEN GOTO 0710
0410 IF M=2 THEN GOTO 0720
0415 IF M=3 THEN GOTO 0730
0420 IF M=4 THEN GOTO 0740
0425 IF M=5 THEN GOTO 0750
0430 IF M=6 THEN GOTO 0760
0435 IF M=7 THEN GOTO 0770
0440 IF M=8 THEN GOTO 0780
0445 IF M=9 THEN GOTO 0790
0510 PRINT "KONZERTIERTE ";
0515 GOTO 0300
0520 PRINT "INTEGRIERTE ";
0525 GOTO 0300
0530 PRINT "PERMANENTE ";
0535 GOTO 0300
0540 PRINT "SYSTEMATISIERTE ";
0545 GOTO 0300
0550 GOTO 0300
0560 PRINT "FUNKTIONELLE ";
0565 GOTO 0300
0570 PRINT "ORIENTIERTE ";
0575 GOTO 0300
0580 PRINT "QUALIFIZIERTE ";
0585 GOTO 0300
0590 PRINT "AMBIVALENTE ";
0595 GOTO 0300
0610 PRINT "FUEHRUNGS-";
0615 GOTO 0400
0620 PRINT "ORGANISATIONS-";
0625 GOTO 0400
0630 PRINT "IDENTIFIKATIONS-";
0635 GOTO 0400
0640 PRINT "KOALITIONS-";
0645 GOTO 0400
0650 PRINT "FLUKTUATIONS-";
0655 GOTO 0400
0660 PRINT "UEBERGGANGS-";
0665 GOTO 0400
0670 PRINT "WACHSTUMS-";
0675 GOTO 0400
0680 PRINT "AKTIONS-";
0685 GOTO 0400
0690 PRINT "INTRPRETATIONS-";
0695 GOTO 0400
0710 PRINT "STRUKTUR"
0715 GOTO 0800
0720 PRINT "FLEXIBILITAET"
0725 GOTO 0800
0730 PRINT "EBENE"
0735 GOTO 0800
0740 PRINT "TENDENZ"
0745 GOTO 0800
0750 PRINT "PROGRAMMIERUNG"
0755 GOTO 0800
0760 PRINT "KONZEPTION"
0765 GOTO 0800
0770 PRINT "PHASE"
0775 GOTO 0800
0780 PRINT "POTENZ"
0785 GOTO 0800
0790 PRINT "PROBLEMATIK"
0795 GOTO 0800
0800 PRINT 
0801 LET W=W+1
0802 IF W=11 THEN GOTO 0810
0803 IF W<11 THEN GOTO 0146
0810 PRINT "DAS WAREN 10 FORMULIERUNGS-HILFEN !"
0815 PRINT "WENN SIE NOCH MEHR BRAUCHEN, SO GEBEN SIE BITTE NACH DEM"
0820 PRINT "FRAGEZEICHEN (?) EINE 1 FUER JA ODER EINE 0 FUER NEIN"
0821 PRINT "UND BETAETIGEN SIE ANSCHLIESSEND DIE TASTE 'RETURN'."
0822 PRINT 
0825 INPUT Z
0830 IF Z=0 THEN GOTO 0850
0835 IF Z=1 THEN GOTO 0140
0836 PRINT 
0840 PRINT "FALSCHE EINGABE! 1 FUER JA, 0 FUER NEIN. VERSUCHEN SIE ES NOCH"
0841 PRINT "EINMAL RICHTIG!"
0842 PRINT 
0845 GOTO 0825
0850 PRINT 
0855 PRINT "SIE SEHEN, IHRE AUSFUEHRUNGEN WAREN EIN ERFOLG."
0860 PRINT 
0865 PRINT "MAN HAELT SIE NUN FUER EINEN VERSIERTEN EXPERTEN, OBWOHL SIE"
0870 PRINT "EIN PSEUDO-INTELLEKTUELLES BLA BLA BLA VON SICH GEGEBEN HABEN."
0880 PRINT " ***VAFSY***, DER INTELLIGENZVERSTAERKER, HILFREICH UND BEQUEM"
0885 PRINT 
0890 PRINT 
0895 PRINT 
0900 END 
1000 LET W=1
1010 LET W=W+1
1020 PRINT W;
1030 GOTO 1010
