home *** CD-ROM | disk | FTP | other *** search
- 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
-