home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_023_19xx_-_de_Side_B.d64 / gag-iq-test (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  64 lines
  1. 2 print"[147]bitte geben sie ihren namen"
  2. 3 input"ein";d$
  3. 4 print"[147]lieber "; d$
  4. 5 print"          g   o       o    n"
  5. 6 for t=1to 4000:next
  6. 20 print"[147]wir wollen jetzt deinen"
  7. 21 print"intellegenz-quotienten"
  8. 22 print"ermitteln"
  9. 50 fort=1to5000:nextt
  10. 51 a=1:b=1
  11. 53 : a=a+1:b=b+1
  12. 70 print"[147]1.uebung:"
  13. 80 print"wenn sie jetzt die return taste"
  14. 81 print"druecken,passiert nichts"
  15. 84 print"        jetzt[160]!!!!!!"
  16. 95 print"   [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  17. 96 print"   [180]     r e t u r n     [170]"
  18. 97 print"   [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  19. 98 fort=1to 200:next
  20. 100 print"[147]1.uebung:"
  21. 103 print"wenn sie jetzt die return taste"
  22. 104 print"druecken,passiert nichts"
  23. 108 print"         r e t u r n      "
  24. 110 fort= 1to 300:next
  25. 111 print"[147]"
  26. 112 print" [166][166][166]  [166][166][166]  [166][166][166]  [166][166][166]  [166][166][166] "
  27. 113 print"   [166]  [166]     [166]     [166]   [166]  "
  28. 114 print"   [166]  [166][166][166]   [166]    [166]    [166]  "
  29. 115 print" [166] [166]  [166]     [166]   [166]     [166]  "
  30. 116 print"  [166]   [166][166][166]   [166]   [166][166][166]   [166]  "
  31. 117 for t=1to1100:next
  32. 118 ifa= 5 then121
  33. 119 goto53
  34. 121 print"[147]lieber "; d$
  35. 122 print"du bist ja duemmer als die "
  36. 123 print"polizei erlaubt"
  37. 130 fort=1to6000:nextt
  38. 180 print"[147]lieber "; d$
  39. 200 print"du hast ja einen sehr"
  40. 201 print"schlimmen syntax error im"
  41. 202 print"ganzen bezirk deines "
  42. 203 print"holzkopfes"
  43. 210 fort=1to9000:next
  44. 230 print"[147]ende"
  45. 231 rem dieses bloede prg entstand
  46. 232 rem ca.1986 in der berufsscule paf
  47. 233 rem alex zop und nittenatte
  48. 234 rem lernten dort elektroanlagen-
  49. 235 rem installateur (isar amperwerke)
  50. 236 rem und verbrachten aus langeweile
  51. 237 rem (lernstoff war viel zu leicht
  52. 238 rem fuer uns genies) viel zeit an
  53. 239 rem vc20 und c64 der berufsschule.
  54. 240 rem dabei entstanden 100derte von
  55. 241 rem mehr oder weniger sinnvollen
  56. 242 rem basic-programmen, von denen
  57. 243 rem dieser iq-test sicherlich eines
  58. 244 rem der duemmsten und allerersten
  59. 245 rem ist... loeschen verboten!!!!!
  60. 246 rem freeware-1986 rockford-fd serie
  61. 248 rem gruesse gehen an nittenatte,
  62. 249 rem thive, tschaegl und die andren!
  63. 250 end
  64.