Gestern abend war die Inspiration kurz bei mir zu Besuch,
um mich endlich mal wieder etwas programmieren zu lassen.
Das Ergebnis ist ein Phrasendrescher - ein Programm das meist völlig sinnlose, oft aber sehr lustige Sätze auswirft.
Das ganze hat ordentlich Spaß gemacht, ich habe zwischendurch viel gelacht. 
Die (selbsterklärend aufgebaute) Wortliste kann im Rahmen des verfügbaren Speichers einfach erweitert werden.
Damit man ohne weitere Änderungen zusätzliche Worte einfügen kann, zählt das Programm beim Start,
wieviele Einträge für die verschiedenen Wortgruppen vorhanden sind.
Bei den Nomen wird das Geschlecht in Numerischer Form angegeben (1=M,2=W,3=N).
Die erzeugten Sätze werden als Zweizeiler ausgegeben,
womit sie gut auf einen 80 Zeichen Schirm passen.
Für einen 40 Zeichen Schirm sollte die Ausgabe angepasst werden,
um Zeilenumbrüche in den Worten zu vermeiden.
Die Anpassung an andere Basic-Dialekte sollte sehr einfach sein.
Hinweise dazu:
- Die Variable TI, die ich verwende, um den Zufallsgenerator mit RND(TI) zu initialisieren,
wird unter Commodore Basic als Timer fortlaufend weitergezählt.
- Die RND()-Funktion liefert Zahlen zwischen 0 und 1
- In PRINT-Anweisungen in geschweiften Klammern stehende Ausdrücke
sind Cursor-Bewegungen bzw das Löschen des Bildschimrinhalts {clear}.
-In Commodore Basic braucht man eindimensionale Variablenarrays mit
maximal 10 Elementen nicht zu dimensionieren. DIM A$(10) z.B. ist nicht nötig.
Ein paar vom Programm erzeugt Beispielsätze:
ZitatAlles anzeigen
eine historisch buergerfreundliche bedeutungsdisziplin synthetisiert
das visuell qualifizierte aufgabenverteilungsdefizit.
eine international positive installationsumlaufbahn verbietet
die historisch qualifizierte entwicklungsemulation.
die differierend digitale funktionstaetigkeit erlaubt
eine virtuell positive personalliteratur.
das intensiv fehlerhafte personaldefizit konztertiert
ein hysterisch flexibles kundenkonzept.
das motorisch verbundene multiplikationskonglomerat erfordert
die aktiv konzentrierte willensadministration.
Hier das Listing:
10 PRINT"{clear}PHRASENDRESCHER{down}"
20 GOSUB500:REM DATEN ZAEHLEN
30 PRINT"MOMENT BITTE ... ‘"
40 GOSUB140:REM PHRASE DRESCHEN
100 PRINT"{down}MEHR?{up}"
110 GETA$:IFA$=""THEN110
120 PRINT" {up}":IFA$="N"THENEND
130 GOTO30
140 RESTORE:R=INT(RND(TI)+.5)+1:S$=""
150 FORB=1TO5
160 C=INT(RND(1)*A(B))+1
170 FORD=1TOA(B)+1
180 READA$:IFB=4THENREADX
190 IFD=CTHENA$(B)=A$:IFB=4THENG=X
192 NEXT:NEXT
193 IFR=2ANDG=3THENS$="S"
194 IFR=2ANDG=1THENS$="R"
200 B$=G$(R,G)
205 PRINTB$" "A$(1)" "A$(2)S$" "A$(3)A$(4)" "A$(5)
210 RESTORE:R=INT(RND(TI)+.5)+1:S$=""
220 FORB=6TO9
230 C=INT(RND(1)*A(B-5))+1
240 FORD=1TOA(B-5)+1
250 READA$:IFB=9THENREADX
260 IFD=CTHENA$(B)=A$:IFB=9THENG=X
262 NEXT:NEXT
265 IFR=1ANDG=3THENS$="S"
270 IFG=1THENS$="N"
280 C$=G$(2+R,G)
310 PRINTC$" "A$(6)" "A$(7)S$" "A$(8)A$(9)"."
320 RETURN
500 B=RND(TI)
510 FORI=1TO5
520 B=0
530 READA$:PRINTB"{left} "A$" {up}"
540 IFI=4THEN READG
550 IFA$<>"***"THENB=B+1:GOTO530
560 A(I)=B:NEXT
570 DIMG$(4,3)
580 FORJ=1TO4:FORI=1TO3
590 READG$(J,I)
600 NEXT:NEXT:RETURN
1001 DATA SYNCHRON
1002 DATA AKTIV
1003 DATA KONJUNKTURELL
1004 DATA ORGANISATORISCH
1005 DATA AMBIVALENT
1006 DATA SOZIALOEKONOMISCH
1007 DATA AMTSINTERN
1008 DATA WISSENSCHAFTLICH
1009 DATA REVOLUTIONAER
1010 DATA MODIFIZIERT
1011 DATA KORREKT
1012 DATA POLITISCH
1013 DATA PROFILAKTISCH
1014 DATA AKKURAT
1015 DATA HISTORISCH
1016 DATA KULTURELL
1017 DATA SYNTAKTISCH
1018 DATA KONTROVERS
1019 DATA TEMPORAER
1020 DATA ELEMENTAR
1021 DATA ATOMAR
1022 DATA UEBERTRAGBAR
1023 DATA INTERNATIONAL
1024 DATA MOTORISCH
1025 DATA DIFFERIEREND
1026 DATA ALTERNIEREND
1027 DATA PHYSIKALISCH
1028 DTAT NUMERISCH
1029 DATA VORRANGIG
1030 DATA INTENSIV
1031 DATA VERTRAGLICH
1032 DATA AUTOMATISCH
1033 DATA MANUELL
1034 DATA VORRANGIG
1035 DATA FOTOGRAFISCH
1036 DATA VISUELL
1037 DATA POLIZEILICH
1038 DATA KOSMISCH
1039 DATA ELEKTRONISCH
1040 DATA MECHANISCH
1041 DATA VIRTUELL
1042 DATA POSTFAKTISCH
1043 DATA INFANTIL
1044 DATA SYSTEMATISCH
1045 DATA NEOLIBERAL
1046 DATA EXEMPLARISCH
1047 DATA HYSTERISCH
1048 DATA METHODISCH
1049 DATA BESTIMMUNGSWIDRIG
1050 DATA FEHLERHAFT
1051 DATA VORSORGLICH
1999 DATA ***
2001 DATA PUNKTUELLE
2002 DATA ORIENTIERTE
2003 DATA QUALIFIZIERTE
2004 DATA PROGRESSIVE
2005 DATA BEDINGTE
2006 DATA MAXIMIERTE
2007 DATA KONZENTRIERTE
2008 DATA INTEGRIERTE
2009 DATA FLEXIBLE
2010 DATA STRUKTURIERTE
2011 DATA AUSGEGLIEDERTE
2012 DATA VERBUNDENE
2013 DATA GETRENNTE
2014 DATA RUDIMENTAERE
2015 DATA EXTENSIVE
2016 DATA KONTAKTIERTE
2017 DATA ANALOGE
2018 DATA DIGITALE
2019 DATA BUERGERFREUNDLICHE
2020 DATA INFLATIONAERE
2021 DATA UNUMKEHRBARE
2022 DATA ALTERNATIVLOSE
2023 DATA KRITISIERTE
2024 DATA ZUGESICHERTE
2025 DATA GARANTIERTE
2026 DATA REPETIERENDE
2027 DATA RESPEKTIERTE
2028 DATA SELEKTIERTE
2029 DATA RICHTUNGSWEISENDE
2030 DATA UMGESETZTE
2031 DATA POSITIVE
2032 DATA NEGATIVE
2033 DATA NEUTRALE
2034 DATA INITIALISIERTE
2035 DATA AEHNLICHE
2036 DATA ABSTRAKTE
2037 DATA FEHLERHAFTE
2038 DATA ERZIELTE
2039 DATA KOMPAKTE
2040 DATA DEFENSIVE
2041 DATA BANALE
2042 DATA MARGINALE
2043 DATA UMSETZBARE
2044 DATA SORGFAELTIGE
2999 DATA ***
3001 DATA STEUERRECHTS
3002 DATA REFORM
3003 DATA GEWERKSCHAFTS
3004 DATA VERANLAGUNGS
3005 DATA AUFGABENVERTEILUNGS
3006 DATA PERSONAL
3007 DATA BEHOERDEN
3008 DATA VORGESETZTEN
3009 DATA KOLLEGIALITAETS
3010 DATA ARBEITSPLATZ
3011 DATA ZUFALLS
3012 DATA KONSTRUKTIONS
3013 DATA PRODUKTIONS
3014 DATA INFORMATIONS
3015 DATA ADDITIONS
3016 DATA MULTIPLIKATIONS
3017 DATA INSTALLATIONS
3018 DATA AUSFUEHRUNGS
3019 DATA KONZENTRATIONS
3020 DATA KONTROLL
3021 DATA BINAER
3022 DATA ENTWICKLUNGS
3023 DATA HEXAGONAL
3024 DATA BEARBEITUNGS
3025 DATA WILLENS
3026 DATA ENTSCHEIDUNGS
3027 DATA VERARBEITUNGS
3028 DATA BAU
3029 DATA INDUSTRIE
3030 DATA CHEMIE
3031 DATA VERWALTUNGS
3032 DATA BETREUUNGS
3033 DATA FUNKTIONS
3034 DATA OBERFLAECHEN
3035 DATA STEUERUNGS
3036 DATA GRUNDSATZ
3037 DATA GEWALT
3039 DATA EINHEITS
3040 DATA OPTIMISMUS
3041 DATA ERMITTLUNGS
3042 DATA BEDEUTUNGS
3043 DATA FRUSTRATIONS
3044 DATA BESCHLEUNIGUNGS
3045 DATA KUNDEN
3999 DATA ***
4001 DATA IDIOTIE,2
4002 DATA PROBLEMATIK,2
4003 DATA EFFIZIENZ,2
4004 DATA PRAXIS,2
4005 DATA PROGRAMMIERUNG,2
4006 DATA TENDENZ,2
4007 DATA KONZEPT,3
4008 DATA PRINZIP,3
4009 DATA KOMPONENTE,2
4010 DATA SCHWIERIGKEIT,2
4011 DATA ORDNUNG,2
4012 DATA REKURSION,2
4013 DATA DENKWEISE,2
4014 DATA KORRELATION,2
4015 DATA DEFIZIT,3
4016 DATA DISKUSSION,2
4017 DATA ERGEBNIS,3
4018 DATA ERKLAERUNG,2
4019 DATA VORGEHENSWEISE,2
4020 DATA TAETIGKEIT,2
4021 DATA KONTRAKTION,2
4022 DATA TAETIGKEIT,2
4023 DATA STRATEGIE,2
4024 DATA KOMPETENZ,2
4025 DATA DISZIPLIN,2
4026 DATA INFILTRATION,2
4027 DATA ARGUMENTATION,2
4028 DATA UMGEBUNG,2
4029 DATA WAHRNEHMUNG,2
4030 DATA ABLEHNUNG,2
4031 DATA GENEHMIGUNG,2
4032 DATA ERFUELLEUNG,2
4033 DATA ABTEILUNG,2
4034 DATA SEQUENZ,2
4035 DATA ADMINISTRATION,2
4036 DATA WERT,1
4037 DATA BEAMTENTUM,3
4038 DATA HAPTIK,2
4039 DATA KONZENTRAT,3
4040 DATA SPIONAGE,2
4041 DATA ABWEHR,2
4042 DATA OBSOLESZENZ,2
4043 DATA WIRKUNG,2
4044 DATA EMULATION,2
4045 DATA LITERATUR,2
4046 DATA PHAENOMEN,3
4047 DATA KUMPANEI,2
4048 DATA TRANSAKTION,2
4049 DATA RESTRIKTION,2
4050 DATA ELIMINIERUNG,2
4051 DATA BEKENNTNIS,3
4052 DATA WEG,1
4053 DATA GANG,1
4054 DATA MINISTER,1
4055 DATA ENTSCHEIDER,1
4056 DATA ANGESTELLTER,1
4057 DATA AUFSCHNEIDER,1
4058 DATA VERTRETER,1
4059 DATA INTEGRATOR,1
4060 DATA KONGLOMERAT,3
4061 DATA EXOPLANET,1
4062 DATA UMLAUFBAHN,2
4063 DATA VERBINDER,1
4064 DATA DAEMPFER,1
4065 DATA ABGANG,1
4066 DATA VERSTAERKER,1
4067 DATA GEHABE,3
4999 DATA ***,0
5001 DATA ENTHAELT
5002 DATA ERFORDERT
5003 DATA BEDEUTET
5004 DATA UNTERMINIERT
5005 DATA KONZTERTIERT
5006 DATA VERLANGT
5007 DATA SYNTHETISIERT
5008 DATA KOLPORTIERT
5009 DATA FOERDERT
5010 DATA VERBIETET
5011 DATA ERLAUBT
5012 DATA INTEGRIERT
5013 DATA EXTRAHIERT
5014 DATA INHALIERT
5015 DATA NORMIERT
5016 DATA SUBSTRAHIERT
5017 DATA INKLUDIERT
5999 DATA ***
6000 DATA DER,DIE,DAS
6001 DATA EIN,EINE,EIN
6002 DATA EINEN,EINE,EIN
6004 DATA DEN,DIE,DAS
