home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 36 / Mail_Madness_36_2002-01-03_Telenova_Side_D.d64 / disko-generator (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  64 lines
  1. 1 print"[147]":a=1:poke53280,0:poke53281,0
  2. 25 poke646,a:a=a+1:ifa=16thena=1
  3. 30 print"***   *  **   ***  ***
  4. 35 [151]646,a:a[178]a[170]1:[139]a[178]16[167]a[178]1
  5. 40 [153]"*  *close * *  * *    *close  *
  6. 45 poke646,a:a=a+1:ifa=16thena=1
  7. 50 print"*   * * *    *    *   *[160]
  8. 55 [151]646,a:a[178]a[170]1:[139]a[178]16[167]a[178]1
  9. 60 [153]"*   * * *    *  close *   * orlen orlen peek peek orlen orlenright$";
  10. 65 [151]646,a:a[178]a[170]1:[139]a[178]16[167]a[178]1
  11. 70 [153]"*   * *  **  *    *   * peek  peek  peek peek peek  peek peek";
  12. 75 [151]646,a:a[178]a[170]1:[139]a[178]16[167]a[178]1
  13. 80 [153]"*   * *    * *    *   * -len -len peek peek -len -len(NULL)";
  14. 85 [151]646,a:a[178]a[170]1:[139]a[178]16[167]a[178]1
  15. 90 [153]"*  *  * *  * *    *   * peek  peek  peek peek peek  peek peek";
  16. 95 [151]646,a:a[178]a[170]1:[139]a[178]16[167]a[178]1
  17. 98 [153]"***closeclose *  **   ***  ***  peek  /len logposcos /len peek peek";
  18. 99 [151]646,a:a[178]a[170]1:[139]a[178]16[167]a[178]1
  19. 100 [153]"   toandposnewfreusrtab( g e n e r a t o r tab(usrfrewaitnewposandto"
  20. 104 [153]"          forby satan klaus / ooo"
  21. 105 [151]646,12
  22. 110 [153]"dieses programm sorgt fuer das richtige
  23. 111 print"licht auf ihrer disco. treffen sie ihre"
  24. 112 print"wahl und loeschen sie bitte alle"
  25. 113 print"weiteren lichter im raum. danke!"
  26. 115 poke646,7
  27. 120 print" 1 bohlen - beat (modern talking)"
  28. 130 print" 2 bieg - beat (gleichschritt marsch)"
  29. 150 print" 3 bumms - beat (scooter)"
  30. 160 getb$:ifb$<>""then220
  31. 220 ifb$="1"then250
  32. 221 ifb$="2"then300
  33. 222 ifb$="3"then350
  34. 225 goto30
  35. 250 rem bohlen
  36. 251 poke53280,0:poke53281,0::::::::::::
  37. 252 poke53280,9:poke53281,9::::::::::::
  38. 253 poke53280,2:poke53281,2::::::::::::
  39. 254 poke53280,8:poke53281,8::::::::::::
  40. 255 poke53280,10:poke53281,1:::::::::::
  41. 256 poke53280,8:poke53281,8::::::::::::
  42. 257 poke53280,2:poke53281,2::::::::::::
  43. 258 poke53280,9:poke53281,9::::::::::::
  44. 259 poke53280,0:poke53281,0::::::::::::
  45. 260 goto252
  46. 300 rem bieg
  47. 301 poke53280,0:poke53281,0::
  48. 302 poke53280,0:poke53281,0::
  49. 303 poke53280,0:poke53281,0::
  50. 304 poke53280,0:poke53281,0::
  51. 305 poke53280,1:poke53281,1::
  52. 306 poke53280,0:poke53281,0::
  53. 307 poke53280,0:poke53281,0::
  54. 308 poke53280,0:poke53281,0::
  55. 309 poke53280,0:poke53281,0::
  56. 310 goto301
  57. 350 rem scooter
  58. 360 poke53280,0:poke53281,0
  59. 370 poke53280,1:poke53281,1
  60. 380 poke53280,0:poke53281,0
  61. 390 poke53280,1:poke53281,1
  62. 400 poke53280,0:poke53281,0
  63. 410 fori=1to250:nexti:goto360
  64.