home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 41 / Digital_Talk_41_2000-02-14_Digital_Talk_de_Side_A.d64 / memo_karambasoft (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  104 lines
  1. 255 poke53281,0:poke53280,0
  2. 260 print"[147]   [159][213][201][213][192][201][213][192][192][192][201][158][213][192][192][192][201][213][192][192][192][201][156][213][192][192][192][201][154][213][192][192][192][201][213][192][192][192][201]"
  3. 265 print"   [159][194][202][203][213][203][194][213][192][201][194][158][194][213][201][160][194][194][213][192][201][194][156][194][213][178][201][194][154][194][213][201][213][203][194][213][192][201][194]"
  4. 270 print"   [159][194]  [194] [194][202][192][203][194][158][194][202][203][213][203][194][202][192][203][194][156][194][194] [194][194][154][194][171][179][194] [194][202][192][203][194]"
  5. 275 print"   [159][194][213][201][202][201][194][213][192][201][194][158][194][213][201][202][201][194][213][192][201][194][156][194][194] [194][194][154][194][202][203][202][201][194][213][192][201][194]"
  6. 280 print"   [159][202][203][202][192][203][202][203][160][202][203][158][202][203][202][192][203][202][203] [202][203][156][202][203] [202][203][154][202][192][192][192][203][202][203] [202][203]"
  7. 285 print"      [151]       [213][192][192][192][192][192][192][201][213][192][192][201][213][192][192][201][213][192][192][201]  "
  8. 290 print"      [152]       [194][213][192][192][192][192][192][203][194][213][201][194][194][213][192][203][202][201][213][203]  "
  9. 295 print"      [155] [213][192][192][192][192][192][203][194]      [194][202][203][194][194][171]   [194][194][160]  "
  10. 300 print"       [202][192][192][192][192][192][192][203]      [202][192][192][203][202][203]   [202][203]   "
  11. 305 poke53280,0:poke53281,0:v=55948
  12. 315 print"            p[155]ro[152]ud[151]ly[144] pr[151]es[152]en[155]ts:"
  13. 320 fora=1to4
  14. 325 forw=0to17:v=55948+w:u=peek(v)
  15. 330 ifu>15thenu=u-16
  16. 335 ifu>15thenu=u-16
  17. 340 ifu>15thenu=peek(v):goto330
  18. 345 ifu=0thenpokev,11:goto365
  19. 350 ifu=11thenpokev,12:goto365
  20. 355 ifu=12thenpokev,15:goto365
  21. 360 ifu=15thenpokev,1:goto365
  22. 365 nextw:u=0
  23. 370 nexta
  24. 375 clr:goto400
  25. 380 forx=1to100:nextx
  26. 385 print"";a$
  27. 390 print"";b$
  28. 395 print"";c$:return
  29. 400 b$="  [219]":gosub380:a$="[194]":b$=" [192] [192]":c$="[194]":gosub380:a$="'":c$=",":b$=".   ."
  30. 405 gosub380:a$=" ":b$="     ":c$=":":gosub380:clr
  31. 410 fora=1to4:forx=0to14:poke646,x:forw=1to5:nextw
  32. 415 print"         demo fuer digital talk        "
  33. 420 print"     (c) by karamba soft i99i,1999     "
  34. 425 print"[145][145][145][145]";:nextx:nexta
  35. 435 goto580
  36. 440 s=13*4096+1024:dimf(26):dimk(255):p=1-p
  37. 445 fori=0to28:pokes+i,0:next
  38. 450 f1=7040:fori=1to26:f(27-i)=f1*5.8+30:f1=f1/2^(1/12):next
  39. 455 k$="q2w3er5t6y7ui9o0p@-*\^
  40. 460 [129]i[178]1[164][195](k$):k([198]([202](k$,i)))[178]i:[130]
  41. 465 at[178]0:de[178]0:su[178]15:re[178]9:sv[178]su[172]16[170]re:av[178]at[172]16[170]de:hb[178]256:z[178]0
  42. 470 [129]i[178]0[164]2:[151]s[170]5[170]i[172]7,at[172]16[170]de:[151]s[170]6[170]i[172]7,su[172]16[170]re
  43. 475 [151]s[170]2[170]i[172]7,4000[175]255:[151]s[170]3[170]i[172]7,4000[173]256:[130]
  44. 480 [137]555
  45. 485 [129]x[178]1[164]ze:[130]x
  46. 490 fr[178]f(k([198](a$)))[173]m:t[178]v[172]7:cr[178]s[170]t[170]4
  47. 495 [151]s[170]6[170]t,z
  48. 500 [151]s[170]5[170]t,z
  49. 505 [151]cr,8:[151]cr,0
  50. 510 [151]s[170]t,fr[171]hb[172][181](fr[173]hb)
  51. 515 [151]54296,15
  52. 520 [151]s[170]1[170]t,fr[173]hb
  53. 525 [151]s[170]6[170]t,sv
  54. 530 [151]s[170]5[170]t,av
  55. 535 [151]cr,wv[170]1:[129]i[178]1[164]50[172]at:[130]
  56. 540 [151]cr,wv
  57. 545 [139]p[178]1[167]v[178]v[170]1:[139]v[178]3[167]v[178]0
  58. 550 [142]
  59. 555 [129]b[178]1[164]50
  60. 560 a[178][181]([187](x)[172]13)[170]1:t$[178]"qwertyuiop@*^"
  61. 565 a$[178][201](t$,a):[141]485
  62. 570 [130]b
  63. 575 [142]
  64. 580 ze[178]10:m[178]4:oc[178]2:wv[178]16:w[178]0
  65. 585 [141]440:[156]
  66. 620 [153]"loadsys (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  67. 625 [153]" peekseid gegruesst, oh freunde des c64! peek"
  68. 630 [153]" peekkaramba soft hatte i99i seinen      peek"
  69. 635 [153]" peekbewaehrten c64er fuer schnoeden     peek"
  70. 640 [153]" peekmammon gen osten verkauft. und doch peek"
  71. 645 [153]" peekist er wieder zurueck! fuer bruch-  peek"
  72. 650 [153]" peekteile schnoeden mammons verkaufen   peek"
  73. 655 [153]" peekunwuerdige seelen heute ihr medium, peek"
  74. 660 [153]" peekreissen es sich aus dem herzen.     peek"
  75. 665 [153]" peekdoch genug der predigt, liebe       peek"
  76. 670 [153]" peekcomputergemeinde.                   peek"
  77. 671 [153]" mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
  78. 672 [161] a$: [139] a$[178]"" [137] 672
  79. 673 [153]"load (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
  80. 675 [153]" peekinzwischen bin ich 25 jahre und     peek"
  81. 680 [153]" peekarbeite als sozialpaedagoge. bin    peek"
  82. 685 [153]" peekstolzer besitzer umfangreicher pc-  peek"
  83. 690 [153]" peekausruestung und darum bemueht die   peek"
  84. 695 [153]" peekklassiker der c64 aera in die neue  peek"
  85. 700 [153]" peekzeit zu retten. zugegeben, der pc   peek"
  86. 705 [153]" peekist mir nie so heimelig geworden wiepeek"
  87. 710 [153]" peekder c64. die ausdruckskraft ist aberpeek"
  88. 711 [153]" peekstaerker und unkomplizierter        peek"
  89. 712 [153]" peekgeworden.                           peek"
  90. 713 [153]" peekich bin konkret auf der suche nach  peek"
  91. 714 [153]" peekmeinen selbstgeschriebenen text-    peek"
  92. 715 [153]" peekadventures, irgendwann vor i99i     peek"
  93. 720 [153]" peekgeschrieben.                        peek"
  94. 721 [153]" peekich suche auch noch ein paar spiele:peek"
  95. 722 [153]" peektimes of lore, last ninja 1 + 2,    peek"
  96. 723 [153]" peekpirates!, und andere...             peek"
  97. 750 [153]" mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
  98. 755 [161] a$: [139] a$[178]"" [137] 755
  99. 760 [153]"load kontakt:"
  100. 770 [153]" peter braun"
  101. 780 [153]" carl orff weg 3"
  102. 790 [153]" 95615 marktredwitz"
  103. 800 [153]" 09231/985578"
  104.