home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 July / 64er_Magazin_87-07_1987_Markt__Technik_de.d64 / message-maker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.4 KB  |  79 lines
  1. 0 ifpeek(901)=1then3
  2. 1 goto400
  3. 2 poke901,1:load"message-f.",8,1
  4. 3 poke53272,(peek(53272)and240)or12
  5. 5 i=14340:poke53281,0:poke53280,11:print"";chr$(142):gosub200
  6. 10 geta$:ift=1anda$<>chr$(13)anda$<>""anda$<>""anda$<>""anda$<>""then10
  7. 11 ifa$=""then10
  8. 12 ifa$<>"@"anda$<>"_"anda$<>"^"thenprinta$;
  9. 13 ifi<09700-100thenpoke53281,11
  10. 14 ifi=09700thena$="_"
  11. 17 gosub300
  12. 20 ifa$="_"thenpokei,0:goto500
  13. 21 ifa$="\"then5
  14. 22 ifa$="^"theni=i-10:print"":a=14340:b=i-1:goto100
  15. 23 ifa$="@"thenprint"":a=14340:b=i-1:goto100
  16. 28 pokei,asc(a$):i=i+1:gosub200
  17. 30 goto10
  18. 100 fori=atob:a$=chr$(peek(i)):gosub300:printchr$(peek(i));:gosub200
  19. 101 nexti:goto10
  20. 200 x=peek(211):y=peek(214):ifx=39thent=1
  21. 201 ifx<39thent=0
  22. 205 a=y*40+x:z=peek(1024+a):pokea+1024,42:b=a:return
  23. 300 a=asc(a$)
  24. 301 ifa=13ora=17ora=29ora=141ora=145ora=157ora=148then303
  25. 302 return
  26. 303 poke1024+b,z:return
  27. 400 print"":poke53281,0:poke53280,0
  28. 410 print"welcome to reiner stein's..."
  29. 420 print
  30. 430 print"     {CBM-A}{CBM-R}{CBM-S}{CBM-R}{CBM-S}{CBM-A}{CBM-S}{CBM-A}{CBM-S}{CBM-A}{CBM-S}{CBM-A}{CBM-S}{CBM-R}{CBM-S} {CBM-A}{CBM-R}{CBM-S}{CBM-A}{CBM-S}{CBM-R}{CBM-A}{CBM-R}{CBM-S}{CBM-A}C{CBM-S}"
  31. 431 print"     B{CBM-E}B{CBM-Q} {CBM-Z}{CBM-S}{CBM-Z}{CBM-S}{CBM-Q}{CBM-W}B{CBM-R}{CBM-Q} -B{CBM-E}B{CBM-Q}{CBM-W}{CBM-Q}{CBM-J}{CBM-Q} {CBM-Q}{CBM-R}{CBM-X}"
  32. 432 print"     B BB  B BBBBBB  B BBBBBB BB "
  33. 433 print"     {CBM-E} {CBM-E}{CBM-E}{CBM-X}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-X}{CBM-Z}{CBM-Z}{CBM-X}{CBM-E}{CBM-X} {CBM-E} {CBM-E}{CBM-X}{CBM-Z}{CBM-E}{CBM-Z}{CBM-E}{CBM-X}{CBM-E}{CBM-Z}{CBM-X}"
  34. 440 print" (c) 1987   64'er magazin             "
  35. 441 print"     {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}  "
  36. 442 print"written by reiner stein in 1987       "
  37. 443 print"mit dem message maker koennen sie     "
  38. 444 print"nachrichten, botschaften an andere      "
  39. 445 print"auch mit musikuntermalung verschicken    "
  40. 446 print"-------------------------------"
  41. 447 print"! these are the commands for editing      the text:       "
  42. 448 print"press 's' to start writing"
  43. 449 print"press '_' to save the message"
  44. 450 print"press '\' to clear the message"
  45. 451 print"press '@' to show the message"
  46. 452 print"press '^' to delete 10 characters"
  47. 460 geta$:ifa$<>"s"then460
  48. 470 goto2
  49. 500 print"Do you want to insert a sound?":print"[Soundmonitor   @ by 64'er (10/86)]"
  50. 502 input" (y/n) : ";a$:ifa$<>"y"anda$<>"n"then502
  51. 503 ifa$="n"thenpoke4162,48:goto510
  52. 504 input"Name of S. (1-15!): ";a$:iflen(a$)>15then504
  53. 505 fori=1tolen(a$):poke4178+i,asc(mid$(a$,i+0,1))
  54. 506 next:poke4178+i,42
  55. 510 input"Name of Message: ";a$:iflen(a$)>16thenprint"Smaller than 16!":goto510
  56. 520 aa=2049:open1,8,1,a$:hb=int(aa/256):lb=aa-hb*256:print#1,chr$(lb);chr$(hb);
  57. 525 forg=4050to4505:print#1,chr$(peek(g));:nextg
  58. 530 forg=14340to24122:print#1,chr$(peek(g));:nextg
  59. 535 forg=12288to14335:print#1,chr$(peek(g));:nextg
  60. 540 close1:printchr$(142):goto5
  61. 590 end
  62. 591 goto595
  63. 592 :
  64. 593 : was made with message-maker           : written 1987 by reiner stein   !
  65. 594 :
  66. 595 ifa<>2thena=1
  67. 596 ifa=1thena=2:load"
  68.  
  69. *xxxxaxelxxxxx",8,1
  70. 597 ifa=2thensys49152
  71. 598 poke53272,(peek(53272)and240)or12
  72. 600 s=02505:poke53281,0:poke53280,0:print"";chr$(142):gosub630
  73. 610 ifpeek(s)=0thensys64738
  74. 612 a=peek(s):ifa=13ora=17ora=29ora=141ora=145ora=157ora=148thenpoke1024+b,z
  75. 615 printchr$(a);
  76. 616 a=peek(214)*40+peek(211):z=peek(1024+a):pokea+1024,42:b=a
  77. 620 s=s+1:goto610
  78. 630 a=peek(214)*40+peek(211):z=peek(1024+a):pokea+1024,42:b=a:return
  79.