home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 / Tiger_Disk_001_1994-04_Tiger-Crew-Disk_de_Side_B.d64 / herz-lichst (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  74 lines
  1. 1 rem   ein ganz kleines praesent fuer
  2. 2 rem       eure eigenen programme
  3. 3 rem
  4. 4 rem        ueberreicht  von der
  5. 5 rem
  6. 6 rem        t i g e r  - c r e w
  7. 7 rem
  8. 8 rem            feldstr.  17
  9. 9 rem           6492 sinntal 1
  10. 10 print"[147]"
  11. 20 print:print:print"hallo, liebe freunde!"
  12. 25 fort=1to2000:nextt
  13. 30 print:print:print"wir wollen euch hier nur"
  14. 40 print:print:print"   g a n z   k u r z"
  15. 41 fort=1to2000:nextt
  16. 45 print:print:print"etwas > sprite-iges <  vorfuehren,"
  17. 46 fort=1to2000:nextt
  18. 50 print:print:print"das ihr"
  19. 55 print:print:print"vielleicht"
  20. 60 print:print:print"verwenden koennt."
  21. 70 fort=1to9000:nextt
  22. 100 poke53280,6:poke53281,0
  23. 110 poke 2040,13
  24. 120 fori=0to62:readw:poke832+i,w:next
  25. 130 v=53248
  26. 140 pokev+21,1
  27. 150 pokev+39,2
  28. 160 pokev+1,50
  29. 170 poke v,24
  30. 180 pokev+27,2^0
  31. 190 t=ti
  32. 200 ifti-t<90then200
  33. 210 pokev+23,1
  34. 220 pokev+29,1
  35. 230 forc=24to210step.3:pokev,c:next
  36. 240 forc=50to252step.3:pokev+1,c:next
  37. 250 forp=1to1000:nextp
  38. 260 forc=210to10:pokev+4,4:next
  39. 270 forc=252to180step-.3:pokev+1,c:next
  40. 280 pokev+1,180
  41. 290 t=ti
  42. 300 ifti-t<40then300
  43. 310 forc=200to60step-.3:pokev,c:next
  44. 320 t=ti
  45. 330 ifti-t<60then330
  46. 340 pokev+38,4:pokev+28,1
  47. 350 t=ti
  48. 360 ifti-t<60then360
  49. 370 forc=60to160step.3:pokev,c:next
  50. 380 t=ti
  51. 390 ifti-t<60then390
  52. 400 pokev+23,0
  53. 410 t=ti
  54. 420 ifti-t<60then420
  55. 430 pokev+29,0
  56. 440 t=ti
  57. 450 ifti-t<60then450
  58. 460 pokev+38,0:pokev+28,0
  59. 470 t=ti
  60. 480 ifti-t<60then480
  61. 490 poke214,17:poke211,20:sys58640
  62. 500 print"lichst:"
  63. 510 forp=1to1000:nextp
  64. 520 poke214,21:poke211,22:sys58640
  65. 530 print"tiger-crew"
  66. 540 forp=1to2000:nextp:goto 1000
  67. 600 data0,0,0,31,128,252,63,193,254,127,227,255,127,247,255,127
  68. 610 data255,255,127,255,255,127,255,255,127,255,255,63,255,254
  69. 620 data31,255,252,15,255,248,7,255,240,3,255,224,1,255,192,0,255,128
  70. 630 data0,127,0,0,62,0,0,28,0,0,8,0,0,0,0
  71. 1000 print"load";chr$(34);"herzchen";chr$(34);",8[145][145][145]"
  72. 1010 poke631,13:poke632,82:poke633,85
  73. 1020 poke634,78:poke635,13:poke198,5:end
  74.