10 REM *******************************
20 REM *                             *
30 REM * BY MR.JOKER FOR THE FUCKING *
40 REM * B-SOFT-COMPETITION DONE '96 *
50 REM * COMMODORE 64 LIVES FOREVER! *
60 REM *                             *
70 REM *******************************
80 FORX=1TO1000:NEXTX
90 POKE53280,0:POKE53281,0:Q=0:PP=0:RU=0
100 PRINTCHR$(8)CHR$(142)"[147][144]"
110 PRINT" "
120 PRINT" "
130 PRINT"     MR.JOKER ASHAMED PRESENTS HIS"
140 PRINT"  [213][195][201][178][195][201][174] [213] [215] [215] [178][195][201] [195][195][178] [174] [213] [178][201][213] [213][195][201][213][195][203]"
150 PRINT"  [171][195][179][171][195][203][171][195][203] [201] [213] [171][195][203] [213][195][203] [194] [194] [194][194][194] [194][195][201][202][195][201]"
160 PRINT"  [194] [194][171][195][201][171][195][201] [194] [194] [171][195][201] [194]   [194] [194] [194][194][194] [194] [194]  [194]"
170 PRINT"  [203] [203][177][195][203][203] [203] [202][195][203] [203] [202] [177][195][195] [202][195][203] [203][202][203] [202][195][203][202][195][203]"
180 PRINT"               R*A*T*E*N  (07.10.96)"
190 PRINT"  IMPROVED BY JTR         (30.10.96)"
200 Q=Q+1:RESTORE:FORI=1TO22
210 READX:POKE53281,X
220 FORA=1TO13:NEXT
230 NEXTI
240 RESTORE:FORJ=1TO22
250 READY:POKE53280,Y
260 FORB=1TO13:NEXT
270 NEXTJ
280 IFQ=3THENGOTO320
290 GOTO200
300 NEXTI
310 :DATA7,7,10,10,10,2 ,2 ,2 , 4, 4,6,6, 4, 4, 2, 2,10,10,10,7,7,7
320 S=0
330 D=INT(9*RND(1))+1:Z=INT(7*RND(1))+1
340 POKE55710+D,Z:S=S+1
350 IFS=100THENGOTO370
360 GOTO330
370 PRINT""
380 FORX=1TO200:NEXTX:POKE53280,0:POKE53281,0:PRINT"[147][159]"
390 ZA=INT(9*RND(1))+1
400 PRINT"WAS BEDEUTEN FOLGENDE ABKUERZUNGEN?":PRINT
410 ONZA GOTO 420,470,520,570,620,670,720,770,820
420 IFA=1THEN380
430 PRINT:INPUT"NSDAP ";A$:A=1
440 IFA$="NATIONALSOZIALISTISCHE DEUTSCHE ARBEITERPARTEI"THEN GOTO460
450 PRINT"FALSCH!":GOTO870
460 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
470 IFB=1THEN380
480 PRINT:INPUT"AA";A$:B=1
490 IFA$="AUSWAERTIGES AMT"THEN GOTO510
500 PRINT"FALSCH!":GOTO870
510 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
520 IFC=1THEN380
530 PRINT:INPUT"LPG";A$:C=1
540 IFA$="LANDWIRTSCHAFTLICHE PRODUKTIONSGENOSSENSCHAFT"THEN GOTO560
550 PRINT"FALSCH!":GOTO870
560 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
570 IFD=1THEN380
580 PRINT:INPUT"FKK";A$:D=1
590 IFA$="FREIKOERPERKULTUR"THEN GOTO610
600 PRINT"FALSCH!":GOTO870
610 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
620 IFE=1THEN380
630 PRINT:INPUT"BMW";A$:E=1
640 IFA$="BAYERISCHE MOTORENWERKE"THEN GOTO660
650 PRINT"FALSCH!":GOTO870
660 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
670 IFF=1THEN380
680 PRINT:INPUT"MJ";A$:F=1
690 IFA$="MISTER JOKER"THEN GOTO710
700 PRINT"FALSCH!":GOTO870
710 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
720 IFG=1THEN380
730 PRINT:INPUT"D & D";A$:G=1
740 IFA$="DUNGEONS AND DRAGONS"THEN GOTO760
750 PRINT"FALSCH!":GOTO870
760 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
770 IFH=1THEN380
780 PRINT:INPUT"A & P";A$:H=1
790 IFA$="ATTRAKTIV UND PREISWERT"THEN GOTO810
800 PRINT"FALSCH!":GOTO870
810 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
820 IFI=1THEN380
830 PRINT:INPUT"3D";A$:I=1
840 IFA$="DREIDIMENSIONAL"THEN GOTO860
850 PRINT"FALSCH!":GOTO870
860 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO870
870 FORX=1TO200:NEXTX:POKE53280,0:POKE53281,0:PRINT"[147][159]"
880 ZA=INT(9*RND(1))+1:PRINT"WAS BEDEUTEN FOLGENDE ABKUERZUNGEN?":PRINT
890 ONZA GOTO 900,950,1000,1050,1100,1150,1200,1250,1300
900 IFJ=1THEN870
910 PRINT:INPUT"BH";A$:J=1
920 IFA$="BUESTENHALTER"THEN GOTO940
930 PRINT"FALSCH!":GOTO1350
940 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
950 IFK=1THEN870
960 PRINT:INPUT"KO";A$:K=1
970 IFA$="KNOCKOUT"THEN GOTO990
980 PRINT"FALSCH!":GOTO1350
990 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1000 IFL=1THEN870
1010 PRINT:INPUT"DPWV";A$:L=1
1020 IFA$="DEUTSCHER PARITAETISCHER WOHLFAHRTSVERBAND"THEN GOTO1040
1030 PRINT"FALSCH!":GOTO1350
1040 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1050 IFM=1THEN870
1060 PRINT:INPUT"LMAA";A$:M=1
1070 IFA$="LECK MICH AM ARSCH"THEN GOTO1090
1080 PRINT"FALSCH!":GOTO1350
1090 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1100 IFN=1THEN870
1110 PRINT:INPUT"RATPC";A$:N=1
1120 IFA$="RAGE AGAINST THE PC"THEN GOTO1140
1130 PRINT"FALSCH!":GOTO1350
1140 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1150 IFO=1THEN870
1160 PRINT:INPUT"ALF";A$:O=1
1170 IFA$="AUSSERIRDISCHE LEBENSFORM"THEN GOTO1190
1180 PRINT"FALSCH!":GOTO1350
1190 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1200 IFP=1THEN910
1210 PRINT:INPUT"MEZ";A$:P=1
1220 IFA$="MITTELEUROPAEISCHE ZEIT"THEN GOTO1240
1230 PRINT"FALSCH!":GOTO1350
1240 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1250 IFQ=1THEN910
1260 PRINT:INPUT"BGB";A$:Q=1
1270 IFA$="BUERGERLICHES GESETZBUCH"THEN GOTO1290
1280 PRINT"FALSCH!":GOTO1350
1290 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1300 IFR=1THEN910
1310 PRINT:INPUT"AEG";A$:R=1
1320 IFA$="AUS ERFAHRUNG GUT"THEN GOTO1340
1330 PRINT"FALSCH!":GOTO1350
1340 PRINT"GENAU RICHTIG!":PP=PP+1:GOTO1350
1350 RU=RU+1:IF RU=5 THEN GOTO1370
1360 GOTO380
1370 FORX=1TO400:NEXTX:PRINT"[144][147]":POKE53280,1:POKE53281,1
1380 PRINT"SO! JETZT IST DAS SPIEL ENDLICH VORBEI."
1390 PRINT"EIGENTLICH GRENZT DIESES PROGRAMM SCHON"
1400 PRINT"AN SPEICHERPLATZVERSCHWENDUNG. ABER"
1410 PRINT"FALLS DU TATSAECHLICH DARAN INTERESSIERT"
1420 PRINT"SEIN SOLLTEST, WIE DU INSGESAMT SO ABGE-"
1430 PRINT"SCHNITTEN HAST, HIER DEIN ERGEBNIS:"
1440 PRINT"VON 10 ABKUERZUNGEN HAST DU";PP;"RICHTIG"
1450 PRINT"ERKANNT. DAS SIND GENAU";PP*10;"%. DA KANNST"
1460 PRINT"DU MAL SEHEN, DASS DU ZU";100-(PP*10);"% AUS"
1470 PRINT"DOOFHEIT BESTEHST!    (DRUECKE '_')
1480 [161]A$:[139]A$[179][177]"_"[167]1480
1490 [153]"LOADWENN DU DIE LOESUNGEN SEHEN WILLST,"
1500 [153]"DRUECKE '_', DURCH DIE 'CONTROL'-TASTE"
1510 [153]"IST DER KRAM LESBAR. DURCH 'SPACE' BE-"
1520 [153]"GINNT DER GANZE STUSS VON VORN; DURCH"
1530 [153]"'E' WIE ENDE GESCHIEHT EIN SCHOENER"
1540 [153]"FASTRESET."
1550 [161]A$:[139]A$[178]""[167]1550
1560 [139]A$[178]"_"[167][155]
1570 [139]A$[178]" "[167][138]90
1580 [139]A$[178]"E"[167][158]64760
1590 [137]1550