home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 48 / Mail_Madness_48_200x_-_Side_B.d64 / B signal B (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  111 lines
  1. 0 rem save"@:signal",13
  2. 1 bn$="[194] s1.*":rem bild  name
  3. 2 sn$="[194] s2.*":rem musik name
  4. 3 lw=peek(186):poke53280,0:poke53281,0
  5. 9 ifz=0thenz=1:dima$(20):poke53265,11:print"[147][144]"
  6. 10 ifz=1thenz=2:goto20
  7. 11 ifz=2thenz=3:goto90
  8. 12 ifz=3thenz=4:sys49152:goto100
  9. 15 z=1
  10. 20 fora=49154to49317:readi:pokea,i:next
  11. 21 v=53248:pokev+21,0:poke2042,13
  12. 22 forn=0to62:readq:poke832+n,q:next
  13. 24 pokev+41,12:pokev+28,255:pokev+37,11:pokev+38,15
  14. 70 :
  15. 72 loadbn$,lw,1
  16. 73 end
  17. 90 :
  18. 93 goto400:sys49154
  19. 94 loadsn$,lw,1
  20. 95 end
  21. 100 :
  22. 103 x=0:pokev+5,220
  23. 104 forni=0to750:pokev+4,x:x=x+0.1:next
  24. 105 forza=0to1
  25. 106 forzb=0to6.28step0.05:zx=zb:zy=zb+1.57
  26. 107 pokev+4,75+(50*sin(zx)):pokev+5,170+(50*sin(zy))
  27. 111 next:next:print"[147]"
  28. 120 pokev+21,0:poke53265,peek(53265)and223
  29. 121 poke53272,(peek(53272)and240)or4
  30. 122 print"[147]";:poke53281,fc:poke646,cc:goto1000
  31. 200 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  32. 220 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  33. 240 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  34. 260 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  35. 280 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  36. 300 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  37. 320 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  38. 340 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  39. 360 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
  40. 380 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
  41. 390 data254,132,253,96
  42. 400 :
  43. 401 print"[147]":f(1)=1:f(2)=15:f(3)=12:f(4)=11:f(5)=6:poke53265,27
  44. 404 a$="signal ins all":gosub420:forza=0to1000:next:print""
  45. 405 a$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163]":gosub420:forza=0to1000:next:print"[147]"
  46. 406 a$="gesendet von":gosub420:forza=0to900:next:print"[147]"
  47. 407 a$="welle: erdball":gosub420:forza=0to2000:next:print"[147]"
  48. 408 a$="auf der":gosub420:forza=0to1000:next:print"[147]"
  49. 409 a$="[158]out of orderia":gosub420:forza=0to1000:next:print"[147]"
  50. 410 a$="2oo2":gosub420:forza=0to900:next:print"[147]"
  51. 411 a$="und einen":gosub420:forza=0to900:next:print"[147]"
  52. 412 a$="guten rutsch":gosub420:forza=0to1000:next:print"[147]"
  53. 413 a$="in ein erfolgreiches":gosub420:forza=0to1500:next:print"[147]"
  54. 414 a$="2003":gosub420:forza=0to1000:next:print"[147]"
  55. 415 goto430
  56. 420 forza=1tolen(a$)/2:b$=left$(a$,za)+right$(a$,za):poke646,f((len(a$)/2)/za)
  57. 421 print"[145]"tab((40-len(b$))/2);b$:next:print"[145]"tab((40-len(a$))/2);a$:return
  58. 430 sys49154:poke53281,1:pokev+21,4:poke53280,1:poke53280,0
  59. 431 poke53281,0
  60. 432 loadsn$,lw,1
  61. 1000 print"[147]"
  62. 1001 a$(1)="als der menschliche eindringer bewust "
  63. 1002 a$(2)="werd das er das reich des angstan-"
  64. 1003 a$(3)="greifendes gespenst betrit,will er"
  65. 1004 a$(4)="sofort fliehen bevor verbannen zu sein"
  66. 1005 a$(5)="bei die lebendige tote wo viele vor-"
  67. 1006 a$(6)="gaenger kranksinnig geworden sind."
  68. 1007 a$(7)="sie mussten schnell handeln, den wenn "
  69. 1008 a$(8)="er einmahl der schluessel vom keller"
  70. 1009 a$(9)="hat,liegt seine freiheit am ende einer"
  71. 1010 a$(10)="irgarten von gaenge und sie verlieren "
  72. 1011 a$(11)="nicht nur eine seele den sie zu ihren "
  73. 1012 a$(12)="makaberen sammlung zaehlen koennen, "
  74. 1013 a$(13)="sondern eine wird lebendig und ent- "
  75. 1014 a$(14)="kommt. denken sie nicht das es so ein-"
  76. 1015 a$(15)="fach ist in die unheimliche dunkel- "
  77. 1016 a$(16)="heit von das gespensterhaus uberall "
  78. 1017 a$(17)="sind gespenster fressende fledermause "
  79. 1018 a$(18)="und slangen heimlich versteckt um zu"
  80. 1019 a$(19)="zu schappen wherent ihre jagt auf "
  81. 1020 a$(20)="seelen...                   [ende]"
  82. 1021 print"[147][144]    wir senden ein signal ins all..."
  83. 1022 print" und hoffen, dass uns in einer anderen"
  84. 1023 print"      welt jemand besser versteht"
  85. 1024 print"  als auf diesem seltsamen planeten,"
  86. 1025 print"         den wir erde nennen."
  87. 1026 print"   zur indikation des gehirnvolumens"
  88. 1027 print"unserer mitmenschen haben wir noch einen"
  89. 1028 print" auszug aus der anleitung zu dem spiel"
  90. 1029 print"             ";chr$(34);"geisterhaus";chr$(34);"."
  91. 1030 print" ein c=64-spiel von ronald spencer soft."
  92. 1031 print"   das ganze im originalen wortlaut"
  93. 1032 print"        viel spass beim lesen !"
  94. 1034 print"             welle: erdball";
  95. 1040 forza=0to999:poke55296+za,1:ifpeek(1024+za)<>32then gosub 60000
  96. 1041 next:forza=0to1000:next:poke53280,1:poke53281,1:print"[147]":poke53281,0
  97. 1042 poke53280,0:print"        geisterhaus ab 8 jahre"
  98. 1043 forz=1to20:gosub1050:print:forzx=0to3000:next:next
  99. 1049 goto1049
  100. 1050 forza=1tolen(a$(z))/2:b$=left$(a$(z),za)+right$(a$(z),za)
  101. 1051 print"[145]"tab((40-len(b$))/2);b$:next:print"[145]"tab((40-len(a$(z)))/2);a$(z)
  102. 1052 return
  103. 1999 end
  104. 50000 rem sprite-mond
  105. 50001 data0,0,0,0,85,0,1,91,192,5,110,112,5,169,176
  106. 50002 data21,170,188,21,170,188,22,169,188,22,234,188,23,154,188,23
  107. 50003 data154,188,22,106,252,22,171,156,22,170,124,6,170,176,6,106
  108. 50004 data176,1,170,192,0,175,0,0,0,0,0,0,0,0,0,0
  109. 55010 end
  110. 60000 forzb=0to20:next:return
  111.