home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_B.d64 / haenschenver_kah (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  98 lines
  1. 1 q=peek(186):qa=peek(821):onqagoto4,5,8
  2. 2 rem ---- haenschenverse - 280402 ----
  3. 3 print"[147]":poke53280,5:poke53281,11:goto110
  4. 4 poke821,2:load"assirqmsx03*",q,1
  5. 5 poke821,3:load"haenschenklein",q,1
  6. 8 poke55,111:poke56,148:clr:goto180
  7. 18 open15,8,15,"s:haenschenverse":close15:save"haenschenverse",8:end
  8. 61 cy=int(c/100):cx=c-(cy*100)
  9. 62 poke211,cx:poke214,cy:sys58640:return
  10. 68 lc=int(l/100):ll=l-(lc*100)
  11. 69 forx=lctoll:poke781,x:sys59903:next:return
  12. 110 print"[158]irq-haenschenklein"
  13. 120 print"[159]von kahate[155]"
  14. 130 print"[155]dateien werden geladen"
  15. 140 print"bitte warten"
  16. 170 poke821,1:goto1
  17. 180 print"[155]viel spass![152]"
  18. 190 sys39000
  19. 192 z=0:fori=0to2000:next
  20. 200 l=724:gosub68:c=900:gosub61
  21. 210 print"[155]kennen sie uebrigens den text"
  22. 212 print"aller drei strophen des liedes?"
  23. 214 onzgoto216:fori=0to4000:next
  24. 216 printtab(20)"nein?"
  25. 219 onzgoto220:fori=0to4000:next
  26. 220 print"dann sollten sie sich den text"
  27. 222 print"der strophen einmal so richtig"
  28. 224 print"genuesslich vorlegen lassen!"
  29. 226 onzgoto230:fori=0to12000:next
  30. 230 l=1924:gosub68:c=1900:gosub61
  31. 232 print"[155]druecken sie somit je nach ihrem"
  32. 234 print"strophen-wunsch ziffer  <1-3>"
  33. 236 print"und dann (oder nur) <return>";
  34. 240 poke19,1:input"";r$:poke19,0
  35. 252 ifr$="1"then300
  36. 253 ifr$="2"then400
  37. 254 ifr$="3"then500
  38. 255 ifr$="t"then700
  39. 258 goto600
  40. 300 l=724:gosub68:c=1000:gosub61:z=0
  41. 302 print"[153]--- strophe 1 ---"
  42. 310 print"[158]haenschen klein ging allein"
  43. 312 print"in die weite welt hinein,"
  44. 314 print"stock und hut stehn ihm gut"
  45. 316 print"ist ganz wohlgemut."
  46. 320 print"aber mutter weinet sehr,"
  47. 322 print"hat ja nun kein haenschen mehr."
  48. 324 print""chr$(34)"wuensch' dir glueck"chr$(34)
  49. 326 printtab(20)"sagt ihr blick,"
  50. 328 print""chr$(34)"kehr mir bald zurueck!"chr$(34)
  51. 390 fori=0to20000:next
  52. 392 z=1:goto200
  53. 400 l=724:gosub68:c=1000:gosub61
  54. 402 print"[153]--- strophe 2 ---"
  55. 410 print"[158]sieben jahr' trueb und klar"
  56. 412 print"haenschen in der fremde war,"
  57. 414 print"da besinnt sich das kind,"
  58. 416 print"eilt nach haus geschwind."
  59. 420 print"doch nun ist's kein haenschen mehr,"
  60. 422 print"nein, ein grosser hans ist er!"
  61. 424 print"stirn und hand braun gebrannt,"
  62. 426 print"wird er wohl erkannt?"
  63. 490 fori=0to20000:next
  64. 492 z=1:goto200
  65. 500 l=724:gosub68:c=1000:gosub61
  66. 502 print"[153]--- strophe 3 ---"
  67. 510 print"[158]eins, zwei, drei gehn vorbei,"
  68. 512 print"wissen nicht, wer das wohl sei,"
  69. 514 print"schwester spricht: "chr$(34)"welch' gesicht?"chr$(34)
  70. 516 print"kennt den bruder nicht."
  71. 520 print"kommt daher sein muetterlein,"
  72. 522 print"schaut ihm kaum ins aug' hinein,"
  73. 524 print"ruft sie schon: "chr$(34)"hans, mein sohn,"chr$(34)
  74. 526 print""chr$(34)"gruess' dich gott, mein sohn!"chr$(34)
  75. 590 fori=0to20000:next
  76. 592 z=1:goto200
  77. 600 l=724:gosub68:c=1000:gosub61
  78. 610 print"[155]sie haben eine andere taste"
  79. 612 print"gedrueckt."
  80. 614 print"es gibt leider keine strophe "r$
  81. 620 print"[155]es gaebe da aber noch die olle":print"turnvereins-strophe"
  82. 622 print"also:  taste <t>   oder"
  83. 640 fori=0to2000:next
  84. 642 z=0:goto226
  85. 700 l=724:gosub68:c=1000:gosub61:z=0
  86. 702 print"[153]--- strophe t ---"
  87. 710 print"[158]haenschen klein ging allein"
  88. 712 print"in den muenchner turnverein,"
  89. 714 print"stieg auf's brett, fiel in'n dreck"
  90. 716 print"und die nas' war weg."
  91. 720 print"kam der kasperl angerannt,"
  92. 722 print"mit der spucke auf der hand,"
  93. 724 print"schmiert sie an, klebt sie dran,"
  94. 726 print"dass er wieder schneuzen kann!"
  95. 790 fori=0to20000:next
  96. 792 z=1:goto200
  97. 999 print"":end
  98.