home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 / Tiger_Disk_001_1994-04_Tiger-Crew-Disk_de_Side_B.d64 / christmas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  62 lines
  1. 50 print"[147]"
  2. 60 print:print
  3. 100 print:print:print"     also, ihr lieben kinderchen,"
  4. 110 print:print:print:print:print"heute will euch euer weihnachtsmann"
  5. 120 print:print"mal eine wunderschoene alte geschichte"
  6. 130 print:print"erzaehlen."
  7. 140 print:print"      passt mal auf :"
  8. 150 forn=1to5000:nextn
  9. 10130 print"[147]"
  10. 10131 gosub11000:gosub10135:gosub11000:goto10210
  11. 10135 fori=1to15:forj=0to16:rem flackern
  12. 10140 poke53280,j:poke53281,j
  13. 10145 nextj:nexti
  14. 10146 m=m+1:ifm>5then30000
  15. 10150 return
  16. 10210 print"[147]"
  17. 10240 v=53248:m=0:rem baumsprite
  18. 10250 pokev+21,28
  19. 10260 poke2042,13:poke2043,13:poke2044,13
  20. 10270 m=m+1:ifm>37then30000
  21. 10280 forn1=0to62:readq:poke832+n1,q:nextn1
  22. 10285 pokev+23,12:pokev+29,12
  23. 10300 forx=0to190
  24. 10310 pokev+4,x
  25. 10315 pokev+6,x
  26. 10316 pokev+8,x
  27. 10320 pokev+5,x
  28. 10325 pokev+7,190-x
  29. 10326 pokev+9,100
  30. 10350 nextx
  31. 10351 restore
  32. 10352 gosub11000:gosub10135
  33. 10355 goto10270
  34. 10359 rem datas baum
  35. 10360 data0,0,0,0,0,0,0,16,0,0,56,0
  36. 10361 data0,40,0,0,124,0,0,186,0
  37. 10362 data0,238,0,1,251,0,1,191,0
  38. 10363 data3,239,128,3,125,128
  39. 10364 data7,187,192,6,238,192
  40. 10365 data15,255,224,14,219,96
  41. 10366 data31,255,240,27,238,176
  42. 10367 data0,56,0,0,56,0,0,56,0
  43. 11000 s=54272:rem crash
  44. 11010 forl=0to24:pokes+l,0:next:pokes+0,240:pokes+1,6:pokes+5,2*16+13
  45. 11020 pokes+22,100:pokes+23,15*16+3:pokes+24,3*16+15:pokes+4,0:pokes+4,129
  46. 11050 return
  47. 30000 print"[147]"
  48. 30010 print"       also wisst ihr, kinder,"
  49. 30020 print:print"                                       [146]"
  50. 30030 print"        w e i h n a c h t e n          [146]"
  51. 30040 print"                                       [146]"
  52. 30050 print:print:print:print"ist auch nicht mehr das ruhige fest,"
  53. 30060 print:print"das es einmal war....."
  54. 30070 print:print:print"vielleicht erzaehle ich euch"
  55. 30080 print:print"die alte geschichte doch lieber"
  56. 30090 print:print"    zu  o s t e r n..."
  57. 30100 print:print:print"  also -  tschuess :         bis dann !"
  58. 30105 forg=1to7000:nextg
  59. 30110 print:print:print"load";chr$(34);"kind + baum";chr$(34);",8[145][145][145]"
  60. 30120 poke631,13:poke632,82:poke633,85
  61. 30130 poke634,78:poke635,13:poke198,5:end
  62.