1 REM Ins{nd av Daniel Deimert <5439>    1987-08-19 12.57.12 (KERMIT)
10 ! save MADtal
11 ! 
12 ! ====================================================
13 ! #
14 ! #    Programmet inspirerat av Sv. MAD nr 6-7 1986
15 ! #    Skriver ut ett "tal" via olika galna alternativ
16 ! #    och en "stam" som {r gemensam f|r alla "tal".
17 ! #    Man f}r g{rna {ndra i DATA-satserna. De som st}r
18 ! #    nu {r de alternativ som fanns i tidningen.
19 ! #    T{nk d} bara p} att utskrifterna p} printern
20 ! #    kan bli fula om raderna t.ex. blir f|r l}nga.
21 ! #
22 ! ====================================================
23 ! 
24 ! 
25 ! -         Av Daniel Deimert <5439>
26 ! -                 under
27 ! -            sommarlovet 1986
28 ! 
29 ! 
30 ! 
100 INTEGER : EXTEND : RANDOMIZE 
101 ; CHR$(12)
102 RESTORE 
103 FOR Z=0 TO 3 : READ Nr1$(Z) : NEXT Z 
104 FOR Z=0 TO 3 : READ Nr2$(Z) : NEXT Z 
105 FOR Z=0 TO 3 : READ Nr3$(Z) : NEXT Z 
106 FOR Z=0 TO 3 : READ Nr4$(Z) : NEXT Z 
107 FOR Z=0 TO 3 : READ Nr5$(Z) : NEXT Z 
108 FOR Z=0 TO 3 : READ Nr6$(Z) : NEXT Z 
109 FOR Z=0 TO 3 : READ Nr7$(Z) : NEXT Z 
110 FOR Z=0 TO 3 : READ Nr8$(Z) : NEXT Z 
111 FOR Z=0 TO 3 : READ Nr9$(Z) : NEXT Z 
112 FOR Z=0 TO 3 : READ Nr10$(Z) : NEXT Z 
113 FOR Z=0 TO 3 : READ Nr11$(Z) : NEXT Z 
114 FOR Z=0 TO 3 : READ Nr12$(Z) : NEXT Z 
115 FOR Z=0 TO 3 : READ Nr13$(Z) : NEXT Z 
116 FOR Z=0 TO 3 : READ Nr14$(Z) : NEXT Z 
117 FOR Z=0 TO 3 : READ Nr15$(Z) : NEXT Z 
118 FOR Z=0 TO 3 : READ Nr16$(Z) : NEXT Z 
119 ! nr 1
120 DATA 'medvandrare p} Kunskapens v{g'
121 DATA 'olycksoffer'
122 DATA 'meterl}nga marsianer'
123 DATA 'utst|tta individer'
124 ! nr 2
125 DATA 'en m{nniska som inte kr{ver mycket f|r att vara lycklig'
126 DATA 'en sann f|respr}kare f|r ontologin, vad det nu {r'
127 DATA 'en person som har massor av kloka saker att s{ga'
128 DATA 'oemotst}ndligt tilldragande f|r medlemmar av alla k|n'
129 ! nr 3
130 DATA 'h{ngivna anh{ngare av ontologin, vad det nu {r'
131 DATA 'l{ckra brudar som helt tydligt inte har n}gon beh}'
132 DATA 'fortfarande vara vakna'
133 DATA 'som har l{mnat {gg och stenar hemma'
134 ! nr 4
135 DATA 'Platon'
136 DATA 'Jonas Hallberg'
137 DATA 'Min moster Laila'
138 DATA 'den d{r tysken i "Falcon Crest"'
139 ! nr 5
140 DATA '"L{ngre m{nniskor {n jag har f|rs|kt men misslyckats"'
141 DATA '"Man ska inte d|ma en fisk efter hur han l}ter i telefonen."'
142 DATA '"Vill man ha en sak v{l utf|rd, ska man anlita en fackman."'
143 DATA '"Vi {r alla offer f|r ontologin, vad det nu {r."'
144 ! nr 6
145 DATA '|verskattas'
146 DATA 'viftas bort, hur g{rna vi {n vill'
147 DATA 'l{mnas att gl|mmas bort av en kommande generation'
148 DATA 'f|rklaras f|r den som bara f|rst}r r|ksignaler'
149 ! nr 7
150 DATA 'ta reda p} om n}gon vet vad det {r'
151 DATA 'ge er alla en chans att hitta p} n}got b{ttre'
152 DATA 'l{mna er en stund och g} p} toaletten'
153 DATA 'underh}lla er en stund genom att vissla "Ekorrn satt i granen" genom n{san'
154 ! nr 8
155 DATA 'ni inte beh|vt ta er tid om ni inte kommit hit'
156 DATA 'dom som fick ytterplatser kommer f|rst ut'
157 DATA 'ni har g}tt fel om ni t{nkte spela volleyboll'
158 DATA 'masochister f}r ut mera av det h{r talet {n av piskning och tortyr'
159 ! nr 9
160 DATA 'att bryta ner det i sm} bitar som heller inte ger n}gon mening'
161 DATA '|ppna portf|ljen och se efter att inte termosen l{cker'
162 DATA 'l}tsas f} en hostattack medan man t{nker ut vad man ska s{ga'
163 DATA 'erk{nna att man gl|mde manuskriptet p} bussen'
164 ! nr 10
165 DATA 'risgrynsgr|t utan socker och kanel {r en f|rf{rlig blandning'
166 DATA 'vad Refaat El-Sayed beh|ver {r en tyrolerhatt'
167 DATA 'kn{ppisarna som {r ute efter oss m}ste hejdas till varje pris'
168 DATA 'en s}n h{r dag skulle man inte sitta inne'
169 ! nr 11
170 DATA '|ppna sitt hem f|r en kull bulldoggsvalpar'
171 DATA 'tacka ja till en plats i Svenska Akademien'
172 DATA 'sk{nka en femma till vem som helst som l}tsas komma fr}n Lutherhj{lpen'
173 DATA 'g} utan m|ssa f|r att slippa f|rv{xlas med Hagge Geigert'
174 ! nr 12
175 DATA 'kr{va att f} er veckopeng i Kruger-rand'
176 DATA 'omedelbart g} hem och byta strumpor'
177 DATA '|verg} till katolicismen och f} ett framtidsjobb som pr{st'
178 DATA 't{nka p}, att ingen preventivmetod {r hundraprocentigt s{ker'
179 ! nr 13
180 DATA 'Allan Edwall'
181 DATA 'Ivan den F|rskr{cklige'
182 DATA 'Bj|rn Gillberg'
183 DATA 'Alf Svensson'
184 ! nr 14
185 DATA 'bel{gringen av Leningrad'
186 DATA 'tiden i division II f|r Djurg}rden'
187 DATA 'soph{mtningsstrejken 1975'
188 DATA 'hj{rnskakningsepidemin 1904'
189 ! nr 15
190 DATA '"Samma som h{r,en } tie litern."'
191 DATA '"Det {r ett kursmoment i ontologi, vad det nu {r."'
192 DATA '"Den h{r stan {r inte stor nog }t oss b}da, Wyatt."'
193 DATA '"Var det makrill du sa? H{r sitter jag och r{knar p} vitling!"'
194 ! nr 16
195 DATA '|nskningar om ett rasande gott nytt }r'
196 DATA 'f|rhoppningar om att ni nu har l{rt er n}got nyttigt'
197 DATA 'v{lg}ngs|nskningar inf|r resan till Vagnh{rad'
198 DATA 'f|rhoppningar om att det inte ska bli n}got v{rre {n en villkorlig dom'
200 ! 
210 ! 
220 ! 
230 ! Nu b|rjar utskriften
240 ! 
250 ! 
260 ! 
270 File=1
280 OPEN 'pr:' AS FILE File
290 ; CHR$(12)
300 ; #File 'Mina k{ra ' Nr1$(INT(RND*4.)) '.'
310 ; #File
320 ; #File 'Det {r mig en gl{dje att tala h{r idag, eftersom jag alltid ';
330 ; #File 'har ansett mig vara ' Nr2$(INT(RND*4.)) '.'
340 ; #File ' Och n{r jag ser mig omkring i salen s} {r det roligt att se ';
350 ; #File 's} m}nga ' Nr3$(INT(RND*4.)) '.'
360 ; #File 'Vid ett tillf{lle som det h{r erinrar man sig os|kt ' Nr4$(INT(RND*4.)) ', som en g}ng sade ' Nr5$(INT(RND*4.)) '.'
370 ; #File 'Det yttrandet bevisar f|r visso,att {mnet f|r mitt tal inte kan ' Nr6$(INT(RND*4.)) '.'
380 ; #File 'Men innan jag g}r vidare och behandlar {mnet i dess helhet,';
390 ; #File 'vill jag f|rst ' Nr7$(INT(RND*4.)) '. Jag vet,att ni alla ';
400 ; #File 'som tagit er tid att komma hit h}ller med om att ' Nr8$(INT(RND*4.)) '.'
410 ; #File 'D} man behandlar ett s} omfattande {mne som detta, ska man v{l b|rja med ' Nr9$(INT(RND*4.)) '.'
420 ; #File 'Men oavsett hur man angriper saken, m}ste vi alla vara ense om att ' Nr10$(INT(RND*4.)) '.'
430 ; #File 'En s}dan inst{llning antyder,att vi lever i en brytningstid d} ';
440 ; #File 'inte ens s} kallade intelektuella tvekar att ' Nr11$(INT(RND*4.)) '.'
450 ; #File 'I en uppslutande tid som v}r, vill jag r}da er alla att ' Nr12$(INT(RND*4.)) '.'
460 ; #File 'F|r att avsluta det h{r i en l{ttare tonart skulle jag vilja ';
470 ; #File '}terge en lustig h{ndelse,som ' Nr13$(INT(RND*4.)) ' r}kade ut f|r f|r ';
480 ; #File 'm}nga m}nga }r sedan. Han r}kade f} se en {ldre man som br{nde upp papper i ';
490 ; #File 'en park under den l}nga och hemska ' Nr14$(INT(RND*4.)) '.'
500 ; #File 'D} han bad mannen att f|rklara sitt f|rehavande,';
510 ; #File 'v{nde sig denne mot den fr}gande och replikerade lugnt: ' Nr15$(INT(RND*4.)) '.'
520 ; #File 'I ungef{r samma anda l{mnar jag er nu med uppriktiga ' Nr16$(INT(RND*4.)) '!'
530 CLOSE File