home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-02_1988_-_de_Side_B.d64 / l.c.s. / l.c.s.a7ae (.txt)
Encoding:
Commodore BASIC  |  1996-01-01  |  8.4 KB  |  95 lines
  1. 1 fori=828to842:reada:pokei,a:next
  2. 2 sys828
  3. 3 data120,177,216,145,216,200,208,249,230,217,208,245,76,221,253
  4. 4 poke59639,3
  5. 5 print""
  6. 6 for q=832to896:pokeq,0:next
  7. 7 for q=832to854step3:pokeq,255:next
  8. 8 poke808,225:poke788,52
  9. 10 poke 53280,peek(7938):poke 53281,peek(7938)
  10. 20 poke53272,25:print"[147]        l[150]etter c[150]onstruction s[150]et"
  11. 25 sys 10240
  12. 30 print"[153]   written by the o[153]eli s[153]oftware t[153]eam"
  13. 35 print"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  14. 37 poke 1,53:gosub 900
  15. 40 print"  [151]n[152]eue  message erstellen"
  16. 50 print"  [151]m[152]essage ansehen"
  17. 60 print"  [151]l[152]etter generieren und speichern"
  18. 70 print"  [151]s[152]etups"
  19. 75 print"  bitte waehlen sie : ";
  20. 77 x=5:gosub 910:print"[145][145][145][145][145]";
  21. 90 get a$:if a$=""then90
  22. 92 ifa$="n" then 100
  23. 93 ifa$="m" then 200
  24. 94 ifa$="l" then 300
  25. 95 ifa$="s" then 400
  26. 97 goto 90
  27. 100 print"[147]":sys 10496:print"[147]textanfang: 10752"
  28. 110 print"textende  :";(peek(254)*256)+peek(253)
  29. 115 poke 6194,(peek(254)+1)
  30. 118 a=(peek(254)*256)+peek(253):e=(peek(254)*256)+256:pokea,144
  31. 119 for q=a+1toestep2:pokeq,32:pokeq+1,157:next
  32. 120 poke198,0:wait198,1:run
  33. 200 print"[147]":sys 6144:run
  34. 300 gosub 900:print"          letter speichern"
  35. 305 print"          ------------------"
  36. 310 print"[150]    bitte leere diskette einlegen !"
  37. 320 x=8:gosub 910:poke198,0:wait198,1
  38. 330 gosub 900:print"bitte warten ..."
  39. 340 x=9:gosub 910:sys 6656:poke 10368,peek(7937):poke10369,peek(7936)
  40. 350 a=8192:e=10240:n$="font"
  41. 352 gosub 1000
  42. 355 a=10240:e=10400:n$="intr"
  43. 356 gosub 1000
  44. 360 a=10752:e=peek(6194)*256:n$="text"
  45. 362 gosub 1000
  46. 363 a=6144:e=6288:n$="play"
  47. 364 gosub 1000
  48. 365 open 2,8,2,"letter.head,p,w"
  49. 367 print#2,chr$(1);chr$(8);
  50. 370 for q=6400 to 6560:print#2,chr$(peek(q));
  51. 375 nextq:close2
  52. 380 sys 64738
  53. 400 gosub 900:print"setups"
  54. 401 print"--------"
  55. 405 print"     n[153]euen zeichensatz laden"
  56. 410 print"     m[153]usix einbinden"
  57. 415 print"     f[153]arben einstellen"
  58. 417 print"     g[153]eschwindigkeit"
  59. 418 print"     z[153]urueck zum menu"
  60. 419 x=4:gosub 910
  61. 420 get a$:if a$=""then420
  62. 422 ifa$="n" then 430
  63. 423 ifa$="m" then 460
  64. 424 ifa$="f" then 490
  65. 425 ifa$="g" then 500
  66. 426 ifa$="z" then run
  67. 427 goto 420
  68. 430 gosub900:print"filename ";
  69. 435 input f$
  70. 440 open 2,8,2,f$:open 1,8,15:input#1,a,b$:ifa<>0then 990
  71. 445 close 1:close2
  72. 450 load f$,8,1
  73. 460 gosub900:input "einsprungadresse : ";e$
  74. 465 if val (e$)<2023 or val(e$)>53247 then 460
  75. 470 poke 7936,val(e$)/256:poke7937,val(e$)-(peek(7936)*256)
  76. 480 run
  77. 490 gosub 900:input "bildschirmfarrbe ";r$
  78. 492 r=val(r$):if r<0 or r>15 then 490
  79. 495 poke 53280,r:poke53281,r
  80. 496 poke 7938,r:run
  81. 500 gosub 900:input"schreibgeschwindigkeit ";s$
  82. 510 s=val(s$):ifs<1ors>255 then 500
  83. 520 poke6174,s:run
  84. 900 forq=1to24:print:next:return
  85. 910 forq=1tox:print:next:return
  86. 990 print"sorry, ladefehler :";a;b$:poke198,0:wait198,1:run
  87. 1000 t$="letter."+n$
  88. 1010 ah=a/256:al=a-(ah*256)
  89. 1015 eh=e/256:el=e-(eh*256)
  90. 1017 open 2,8,2,t$+",p,w"
  91. 1018 print#2,chr$(al);chr$(ah);
  92. 1019 forq=atoe:print#2,chr$(peek(q));
  93. 1020 nextq:close2
  94. 1030 return
  95.