DumpStats voor sjoene_kerel

636 +656 -20

Kudos

#41634 (Top 15.4806%)

Kudos/dag 0.11
Kudos/reaguursel 9.78
Meeste kudos op 1 reaguursel 88
Minste kudos op 1 reaguursel -6

65

Reaguursels

Reaguursels/dag 0.01
Topreaguursels 0
Woorden per reaguursel 21.1
Reacties per reaguursel 0.28
Meeste reaguursels op 1 dag 2
Aantal x weggejorist 1
Gestart op 24-07-2008

Kudoverloop over tijd

-6 kudos 2023-08-31 22:27:42 op Wormidabel
Snake-Steak

-2 kudos 2022-06-03 18:31:36 op Het hele internet op dit moment
Deere Deere Deere
Johnny Deere Deere
Johnny Johnny Deere Deere Deere
Johnny Deere Deere
Johnny Johnny Deere Deere Deere
Johnny Deere Deere
Johnny Johnny Deere Deere Deere
Johnny Deere Deere

Schöner Tag, raus auf die Felder
Mit viel PS auch noch in die Wälder
Ich geb' Gas, der Johnny fohrt
Mein Lieblingssport ist Maistransport

Wir fahren am Land, tun die Äcker säen
Ihr sitzt nur da, seid die Stunden am Zählen
Es ist perfekt so, das ist mein Leben
Es könnt für mich nichts bess'res geben

Scheiß auf den Claas
Scheiß auf den Fendt
Egal was ihr sagt, egal was ihr denkt
Ich möcht' nur eins, ich möcht' mein Glück
Alles egal, ich will Johnny zurück

Scheiß auf den Claas
Scheiß auf den Fendt
Egal was ihr sagt, egal was ihr denkt
Ich möcht' nur eins, ich möcht' mein Glück
Alles egal, ich will Johnny zurück

Ich will Johnny zurück
Ich will Johnny zurück
Ich will Johnny zurück
Ich will Johnny zurück
Ich will Johnny, Johnny, Johnny, Johnny, Johnny, Johnny, Johnny, J-J-J-J
Johnny Deere

0 kudos 2008-07-24 09:30:30 op Limburgers zijn DOM!
Limburgers naar de Raad voor de Journalistiek omdat Geenstijl -voor de zoveelste keer- poep over ons schreef. Het zijn duidelijk personen uit het brabantse land, dus de Geenstijlgeneratie moet het niet over Limburgers gaan hebben, want dat werkt stigmatiserend.

0 kudos 2009-04-06 21:21:16 op Commodore 64 laptop
10 REM SCREEN CONFIGURATION
20 POKE 53280,13
30 POKE 53281,6
40 PRINT "";
50 OPEN 15,8,15
60 REM VARIABLE DECLARATIONS
70 DIM F1%(42),F2%(42),M%(42,42)
80 DIM V%,J,I
90 REM INITIALISE SCREEN
100 PRINT "";
110 PRINT " NEURON NETWORK ASSOCIATIVE MEMORY"
120 PRINT
130 PRINT "";
140 PRINT "F1 - TEACH PATTERN ";
150 PRINT "F2 - DUMP MATRIX"
160 PRINT "F3 - RANDOMIZE PATTERN ";
170 PRINT "F4 - FORGET ALL"
180 PRINT "F5 - RECALL PATTERN ";
190 PRINT "F6 - QUIT"
200 PRINT "F7 - DISC SAVE ";
210 PRINT "F8 - DISC LOAD"
220 PRINT
230 PRINT "A-Z, 0-9: LOAD PATTERN"
240 R1 = 4 : C1 = 5 : GOSUB 600
250 R1 = 4 : C1 = 25 : GOSUB 600
260 GOSUB 750
270 GOSUB 860
280 GOSUB 970:PRINT " READY "
290 GET A$ : IF A$="" GOTO 290
300 GOSUB 970:PRINT " "
310 K=ASC(A$)
320 IFA$>="0"ANDA$<="9"THENK=K+64:GOTO340
330 IF A$ < "A" OR A$ > "Z" THEN 500
340 GOSUB 970:PRINT "FETCH ";A$
350 L%=0
360 K=(K-64)*8+53248
370 POKE56333,127:POKE 1,PEEK(1)AND251
380 FORI=0TO6:POKE49408+I,PEEK(K+I):NEXT
390 POKE 1,PEEK(1) OR 4:POKE 56333,129
400 FOR I = 0 TO 6
410 J% = PEEK(49408+I)/2
420 FOR K=1 TO 6
430 L%=L%+1
440 F1%(L%) = -1 + (2 * (J% AND 1))
450 J%=J%/2
460 NEXT K
470 NEXT I
480 GOSUB 750 : GOSUB 860 : GOTO 280
490 REM DISPATCH FUNCTION KEY COMMANDS
500 J%=ASC(A$)-132
510 IF J%=1 THEN GOSUB 1000:GOTO 280
520 IF J%=5 THEN GOSUB 1080:GOTO 90
530 IF J%=2 THEN GOSUB 1210:GOTO 280
540 IF J%=6 THEN GOSUB 1680:GOTO 280
550 IF J%=3 THEN GOSUB 1290:GOTO 280
560 IF J%=7 THEN PRINT "";:CLOSE15:END
570 IF J%=4 THEN GOSUB 1800:GOTO 90
580 IF J%=8 THEN GOSUB 1990:GOTO 90
590 GO TO 280
600 REM DRAW BORDERS FOR FIELDS
610 FOR I=0 TO 1
620 V=1024+40*(R1+(I*8))+C1
630 POKE V,112+(-3*I)
640 FOR J=1 TO 8
650 POKE V+J,67
660 NEXT J
670 POKE V+9,110+(15*I)
680 NEXT I
690 FOR I=1 TO 7
700 V=1024+40*(R1+I)+C1
710 POKE V,93
720 POKE V+9,93
730 NEXT I
740 RETURN
750 REM UPDATE FIELD F2% ON SCREEN
760 L%=0
770 FOR I=0 TO 6
780 V% = 1024+40*(I+5)+6
790 FOR J=2 TO 7
800 L%=L%+1
810 IFF1%(L%)=1THENPOKEV%+(8-J),81:GOTO830
820 POKE V%+(8-J),32
830 NEXT J
840 NEXT I
850 RETURN
860 REM UPDATE FIELD F1% ON SCREEN
870 L%=0
880 FOR I = 0 TO 6
890 V%=1024+40*(I+5)+26
900 FOR J=2 TO 7
910 L%=L%+1
920 IF F2%(L%)=1 THEN POKE V%+(8-J),81:GOTO 940
930 POKE V%+(8-J),32
940 NEXT J
950 NEXT I
960 RETURN
970 REM POSITION TO STATUS AREA
980 PRINT "";
990 RETURN
1000 REM TRAIN ON PATTERN IN F1%
1010 GOSUB 970:PRINT "TRAINING"
1020 FOR I = 1 TO 42
1030 FOR J = 1 TO 42
1040 M%(I,J)=M%(I,J)+F1%(I)*F1%(J)
1050 NEXT J
1060 NEXT I
1070 RETURN
1080 REM PRINT PART OF MATRIX
1090 PRINT "";
1100 FOR I=1 TO 24
1110 FOR J=1 TO 39
1120 IFM%(I,J)<0THENPRINT "";:GOTO1140
1130 PRINT "";
1140 PRINT CHR$(ASC("0")+ABS(M%(I,J)));
1150 NEXT J
1160 PRINT
1170 NEXT I
1180 PRINT "PRESS ANY KEY TO CONTINUE:";
1190 GET A$ : IF A$="" GOTO 1190
1200 RETURN
1210 REM RANDOMISE 10 PERCENT OF F1%
1220 GOSUB 970:PRINT "RANDOM"
1230 FOR I=1 TO 42
1240 IF RND(0) > 0.1 THEN 1260
1250 F1%(I)=-F1%(I)
1260 NEXT I
1270 GOSUB 750
1280 RETURN
1290 REM RECALL FROM PATTERN
1300 GOSUB 970:PRINT "RECALL"
1310 P%=1024+40*9+19
1320 REM INITIALLY COPY F1 TO F2
1330 POKE P%+1,ASC("=")
1340 FOR I=1 TO 42
1350 F2%(I)=F1%(I)
1360 NEXT I
1370 GOSUB 860
1380 REM F1 TO F2 PASS
1390 POKE P%,ASC("=")
1400 POKE P%+2,ASC(">")
1410 FOR J=1 TO 42
1420 V%=0
1430 FOR I=1 TO 42
1440 V%=V%+F1%(I)*M%(I,J)
1450 NEXT I
1460 V%=SGN(V%)
1470 IF V%<>0 THEN F2%(J)=V%
1480 NEXT J
1490 GOSUB 860
1500 REM F2 TO F1 PASS
1510 C%=0
1520 POKE P%,ASC("<")
1530 POKE P%+2,ASC("=")
1540 FOR I=1 TO 42
1550 V%=0
1560 FOR J=1 TO 42
1570 V%=V%+F2%(J)*M%(I,J)
1580 NEXT J
1590 V%=SGN(V%)
1600 IFV%<>0ANDV%<>F1%(I)THENF1%(I)=V%:C%=1
1610 NEXT I
1620 GOSUB 750
1630 IF C%<>0 GOTO 1380
1640 POKE P%,ASC(" ")
1650 POKE P%+1,ASC(" ")
1660 POKE P%+2,ASC(" ")
1670 RETURN
1680 REM FORGET ALL - CLEAR MEMORY
1690 GOSUB 970:PRINT "FORGET"
1700 FOR I=1 TO 42
1710 F1%(I)=0
1720 F2%(I)=0
1730 FOR J=1 TO 42
1740 M%(I,J)=0
1750 NEXT J
1760 NEXT I
1770 GOSUB 750
1780 GOSUB 860
1790 RETURN
1800 REM SAVE STATE TO DISC FILE
1810 GOSUB 970:PRINT "SAVE"
1820 PRINT "";
1830 INPUT "FILE NAME: ";A$
1840 A$="@0:"+A$+",S,W"
1850 OPEN 5,8,5,A$
1860 FOR I=1 TO 42:PRINT#5,F1%(I):NEXT
1870 GOSUB 2240
1880 FOR I=1 TO 42:PRINT#5,F2%(I):NEXT
1890 GOSUB 2240
1900 FOR I=1 TO 42
1910 FOR J=1 TO 42
1920 PRINT#5,M%(I,J)
1930 NEXT J
1940 GOSUB 2240
1950 NEXT I
1960 CLOSE 5
1970 PRINT "";
1980 RETURN
1990 REM RESTORE STATE FROM DISC FILE
2000 GOSUB 970:PRINT "RESTORE"
2010 PRINT "";
2020 INPUT "FILE NAME: ";A$
2030 A$="@0:"+A$+",S,R"
2040 P%=ASC("M")
2050 GOSUB 2240
2060 OPEN 5,8,5,A$
2070 FOR I=1 TO 42
2080 INPUT#5,F1%(I)
2090 NEXT I
2100 GOSUB 2240
2110 FOR I=1 TO 42
2120 INPUT#5,F2%(I)
2130 NEXT I
2140 GOSUB 2240
2150 FOR I=1 TO 42
2160 FOR J=1 TO 42
2170 INPUT#5,M%(I,J)
2180 NEXT J
2190 GOSUB 2240
2200 NEXT I
2210 CLOSE 5
2220 RETURN
2230 REM DISC ERROR CHECK
2240 INPUT#15,EN,EM$,ET,ES
2250 IF EN>0THEN PRINT EN,EM$,ET,ES:STOP
2260 RETURN


0 kudos 2023-09-09 14:38:00 op Mevrouw is boos
Die heeft vast een pinda-allergie.

1 kudos 2015-05-25 21:09:32 op Honkbalknuppel vangen
Titel had moeten zijn: Chuck Norris bezoekt een honbalwedstrijd.

2 kudos 2020-10-16 12:42:34 op Stelletje wil Efteling niet verlaten
Waarschuwende Man van de Fata Morgana: "Kif, kif. [...] Kif, c'est dangereux ici. Halt, gefährlich, zurück, stop, dangerous for life, kif kif, niet verder, komm zurück!"

2 kudos 2019-11-08 14:35:40 op De glijbaanbaas
Dat is Frozone van de Incredibles

2 kudos 2022-10-31 16:53:33 op Halloween
Zijn dat allemaal vriendinnen van Kaag?

3 kudos 2024-03-18 17:56:02 op Verse maden!
Niet te versmaden!

3 kudos 2022-10-17 19:48:09 op Maandag?
Kan die niet een keer bij Jinek of Johan Derks aan tafel aanschuiven?

4 kudos 2022-06-13 16:50:31 op BD op de M-day
Das nog eens porpoising om naar te kijken. Zie ik liever dan bij een Mercedes F1.

4 kudos 2022-10-17 19:46:20 op Maandag?
Leuke tafeldame!

4 kudos 2023-05-04 19:41:59 op Pardon MUHVROUW
Praat zei tegen die gast van Married At First Sight, mr. Ciao Ciao?

5 kudos 2021-05-31 12:42:10 op Je kans pakken
Porky’s pikante pretpark deel 5

5 kudos 2022-06-05 22:06:39 op Bedankt DHL!
Met een overkappingen van Tuin Maximaal vraag je er ook om!

11 kudos 2023-09-09 14:39:57 op Lekker curry
Dat is het tegenovergestelde van Patricia Paay. Die wil alles erover behalve Curry.