home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 / Tiger_Disk_001_1994-04_Tiger-Crew-Disk_de_Side_B.d64 / fussball (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 100 print"[147]"
  2. 101 poke53280,1:poke53281,1
  3. 102 print:print:print"heeee! karl!!! - es gibt fussball !!!!!"
  4. 103 print:print"schieb doch mal den fernseher hier her!"
  5. 104 fort=1to2000:nextt
  6. 110 poke2040,11
  7. 120 poke53269,1
  8. 125 poke53277,1:poke53271,1
  9. 130 poke53287,0
  10. 140 forn=0to62:readq:poke704+n,q:next
  11. 150 forx=0to200step.5
  12. 160 poke53248,x:poke53249,100
  13. 165 nextx
  14. 166 fort=1to2000:nextt
  15. 170 gosub2000:fort=1to2000:nextt
  16. 180 forx=100to190step.5
  17. 190 poke53248,200:poke53249,x
  18. 200 nextx
  19. 205 fort=1to2000:nextt
  20. 210 gosub2100:fort=1to2000:nextt
  21. 220 forx=0to170step.5
  22. 230 poke53248,200-x:poke53249,190
  23. 240 nextx
  24. 245 fort=1to2000:nextt
  25. 250 gosub2200:fort=1to2000:nextt
  26. 260 forx=0to190step.5
  27. 270 poke53248,30:poke53249,190-x
  28. 280 nextx
  29. 285 fort=1to2000:nextt
  30. 290 gosub2300:fort=1to2000:nextt
  31. 300 forx=0to255step3
  32. 310 poke53248,30:poke53249,x
  33. 320 nextx
  34. 330 fort=1to200:nextt
  35. 340 goto1010
  36. 400 data127,255,254,127,255,254,96,0,6,97,255,134
  37. 410 data98,24,70,98,0,70,98,0,70,98,0,70,99,120,198
  38. 420 data98,4,70,98,2,70,98,1,70,98,24,70,97,255,134
  39. 430 data96,0,6,127,255,254,115,189,206,127,255,254
  40. 440 data127,255,254,7,0,112,7,0,112
  41. 1010 s=54272
  42. 1020 forl=0to24:pokes+l,o:next:pokes+0,240:pokes+1,6:pokes+5,2*16+13
  43. 1030 pokes+22,100:pokes+23,15*16+3:pokes+24,3*16+15:pokes+4,0:pokes+4,129
  44. 1040 print"[147]"
  45. 1050 fori=1to15:forj=0to16
  46. 1060 poke53280,j:poke53281,j
  47. 1070 nextj:nexti
  48. 1080 end
  49. 2000 print:print"scheisse, du bist ein"
  50. 2005 print"i d i o t !"
  51. 2010 print"dort sehen wir"
  52. 2015 print"doch nichts !"
  53. 2016 fort=1to2000:nextt
  54. 2020 return
  55. 2100 print:print"auch nicht besser!"
  56. 2110 print"hierher mit dem kasten!"
  57. 2120 fort=1to2000:nextt
  58. 2130 return
  59. 2200 print"               hierher!!!"
  60. 2210 print"               h i e e e r h e e e r !!"
  61. 2220 return
  62. 2300 print:print"also wirklich ! - so ein scheiss-spiel!"
  63. 2310 print:print"            schmeiss den bloeden kasten"
  64. 2320 print:print"          doch endlich aus dem fenster!"
  65. 2330 return
  66.