home *** CD-ROM | disk | FTP | other *** search
/ B Soft 5 / B-Soft_5_19xx_Maik__Mike_de_Side_B.d64 / abkuerzungsraten (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  160 lines
  1. 10 rem *******************************
  2. 20 rem *                             *
  3. 30 rem * by mr.joker for the fucking *
  4. 40 rem * b-soft-competition done '96 *
  5. 50 rem * commodore 64 lives forever! *
  6. 60 rem *                             *
  7. 70 rem *******************************
  8. 80 forx=1to1000:nextx
  9. 90 poke53280,0:poke53281,0:q=0:pp=0:ru=0
  10. 100 printchr$(8)chr$(142)"[147][144]"
  11. 110 print" "
  12. 120 print" "
  13. 130 print"     mr.joker ashamed presents his"
  14. 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]"
  15. 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]"
  16. 160 print"  [194] [194][171][195][201][171][195][201] [194] [194] [171][195][201] [194]   [194] [194] [194][194][194] [194] [194]  [194]"
  17. 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]"
  18. 180 print"               r*a*t*e*n  (07.10.96)"
  19. 190 print"  improved by jtr         (30.10.96)"
  20. 200 q=q+1:restore:fori=1to22
  21. 210 readx:poke53281,x
  22. 220 fora=1to13:next
  23. 230 nexti
  24. 240 restore:forj=1to22
  25. 250 ready:poke53280,y
  26. 260 forb=1to13:next
  27. 270 nextj
  28. 280 ifq=3thengoto320
  29. 290 goto200
  30. 300 nexti
  31. 310 :data7,7,10,10,10,2 ,2 ,2 , 4, 4,6,6, 4, 4, 2, 2,10,10,10,7,7,7
  32. 320 s=0
  33. 330 d=int(9*rnd(1))+1:z=int(7*rnd(1))+1
  34. 340 poke55710+d,z:s=s+1
  35. 350 ifs=100thengoto370
  36. 360 goto330
  37. 370 print""
  38. 380 forx=1to200:nextx:poke53280,0:poke53281,0:print"[147][159]"
  39. 390 za=int(9*rnd(1))+1
  40. 400 print"was bedeuten folgende abkuerzungen?":print
  41. 410 onza goto 420,470,520,570,620,670,720,770,820
  42. 420 ifa=1then380
  43. 430 print:input"nsdap ";a$:a=1
  44. 440 ifa$="nationalsozialistische deutsche arbeiterpartei"then goto460
  45. 450 print"falsch!":goto870
  46. 460 print"genau richtig!":pp=pp+1:goto870
  47. 470 ifb=1then380
  48. 480 print:input"aa";a$:b=1
  49. 490 ifa$="auswaertiges amt"then goto510
  50. 500 print"falsch!":goto870
  51. 510 print"genau richtig!":pp=pp+1:goto870
  52. 520 ifc=1then380
  53. 530 print:input"lpg";a$:c=1
  54. 540 ifa$="landwirtschaftliche produktionsgenossenschaft"then goto560
  55. 550 print"falsch!":goto870
  56. 560 print"genau richtig!":pp=pp+1:goto870
  57. 570 ifd=1then380
  58. 580 print:input"fkk";a$:d=1
  59. 590 ifa$="freikoerperkultur"then goto610
  60. 600 print"falsch!":goto870
  61. 610 print"genau richtig!":pp=pp+1:goto870
  62. 620 ife=1then380
  63. 630 print:input"bmw";a$:e=1
  64. 640 ifa$="bayerische motorenwerke"then goto660
  65. 650 print"falsch!":goto870
  66. 660 print"genau richtig!":pp=pp+1:goto870
  67. 670 iff=1then380
  68. 680 print:input"mj";a$:f=1
  69. 690 ifa$="mister joker"then goto710
  70. 700 print"falsch!":goto870
  71. 710 print"genau richtig!":pp=pp+1:goto870
  72. 720 ifg=1then380
  73. 730 print:input"d & d";a$:g=1
  74. 740 ifa$="dungeons and dragons"then goto760
  75. 750 print"falsch!":goto870
  76. 760 print"genau richtig!":pp=pp+1:goto870
  77. 770 ifh=1then380
  78. 780 print:input"a & p";a$:h=1
  79. 790 ifa$="attraktiv und preiswert"then goto810
  80. 800 print"falsch!":goto870
  81. 810 print"genau richtig!":pp=pp+1:goto870
  82. 820 ifi=1then380
  83. 830 print:input"3d";a$:i=1
  84. 840 ifa$="dreidimensional"then goto860
  85. 850 print"falsch!":goto870
  86. 860 print"genau richtig!":pp=pp+1:goto870
  87. 870 forx=1to200:nextx:poke53280,0:poke53281,0:print"[147][159]"
  88. 880 za=int(9*rnd(1))+1:print"was bedeuten folgende abkuerzungen?":print
  89. 890 onza goto 900,950,1000,1050,1100,1150,1200,1250,1300
  90. 900 ifj=1then870
  91. 910 print:input"bh";a$:j=1
  92. 920 ifa$="buestenhalter"then goto940
  93. 930 print"falsch!":goto1350
  94. 940 print"genau richtig!":pp=pp+1:goto1350
  95. 950 ifk=1then870
  96. 960 print:input"ko";a$:k=1
  97. 970 ifa$="knockout"then goto990
  98. 980 print"falsch!":goto1350
  99. 990 print"genau richtig!":pp=pp+1:goto1350
  100. 1000 ifl=1then870
  101. 1010 print:input"dpwv";a$:l=1
  102. 1020 ifa$="deutscher paritaetischer wohlfahrtsverband"then goto1040
  103. 1030 print"falsch!":goto1350
  104. 1040 print"genau richtig!":pp=pp+1:goto1350
  105. 1050 ifm=1then870
  106. 1060 print:input"lmaa";a$:m=1
  107. 1070 ifa$="leck mich am arsch"then goto1090
  108. 1080 print"falsch!":goto1350
  109. 1090 print"genau richtig!":pp=pp+1:goto1350
  110. 1100 ifn=1then870
  111. 1110 print:input"ratpc";a$:n=1
  112. 1120 ifa$="rage against the pc"then goto1140
  113. 1130 print"falsch!":goto1350
  114. 1140 print"genau richtig!":pp=pp+1:goto1350
  115. 1150 ifo=1then870
  116. 1160 print:input"alf";a$:o=1
  117. 1170 ifa$="ausserirdische lebensform"then goto1190
  118. 1180 print"falsch!":goto1350
  119. 1190 print"genau richtig!":pp=pp+1:goto1350
  120. 1200 ifp=1then910
  121. 1210 print:input"mez";a$:p=1
  122. 1220 ifa$="mitteleuropaeische zeit"then goto1240
  123. 1230 print"falsch!":goto1350
  124. 1240 print"genau richtig!":pp=pp+1:goto1350
  125. 1250 ifq=1then910
  126. 1260 print:input"bgb";a$:q=1
  127. 1270 ifa$="buergerliches gesetzbuch"then goto1290
  128. 1280 print"falsch!":goto1350
  129. 1290 print"genau richtig!":pp=pp+1:goto1350
  130. 1300 ifr=1then910
  131. 1310 print:input"aeg";a$:r=1
  132. 1320 ifa$="aus erfahrung gut"then goto1340
  133. 1330 print"falsch!":goto1350
  134. 1340 print"genau richtig!":pp=pp+1:goto1350
  135. 1350 ru=ru+1:if ru=5 then goto1370
  136. 1360 goto380
  137. 1370 forx=1to400:nextx:print"[144][147]":poke53280,1:poke53281,1
  138. 1380 print"so! jetzt ist das spiel endlich vorbei."
  139. 1390 print"eigentlich grenzt dieses programm schon"
  140. 1400 print"an speicherplatzverschwendung. aber"
  141. 1410 print"falls du tatsaechlich daran interessiert"
  142. 1420 print"sein solltest, wie du insgesamt so abge-"
  143. 1430 print"schnitten hast, hier dein ergebnis:"
  144. 1440 print"von 10 abkuerzungen hast du";pp;"richtig"
  145. 1450 print"erkannt. das sind genau";pp*10;"%. da kannst"
  146. 1460 print"du mal sehen, dass du zu";100-(pp*10);"% aus"
  147. 1470 print"doofheit bestehst!    (druecke '_')
  148. 1480 [161]a$:[139]a$[179][177]"_"[167]1480
  149. 1490 [153]"loadwenn du die loesungen sehen willst,"
  150. 1500 [153]"druecke '_', durch die 'control'-taste"
  151. 1510 [153]"ist der kram lesbar. durch 'space' be-"
  152. 1520 [153]"ginnt der ganze stuss von vorn; durch"
  153. 1530 [153]"'e' wie ende geschieht ein schoener"
  154. 1540 [153]"fastreset."
  155. 1550 [161]a$:[139]a$[178]""[167]1550
  156. 1560 [139]a$[178]"_"[167][155]
  157. 1570 [139]a$[178]" "[167][138]90
  158. 1580 [139]a$[178]"e"[167][158]64760
  159. 1590 [137]1550
  160.