home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  139 lines
  1. 10 if a=1 then 90
  2. 20 a=1:load "mess c.obj",8,1
  3. 90 art=50513
  4. 95 dim z$(100)
  5. 100 poke 53280,0:poke53281,0
  6. 110 print chr$(147);chr$(14)
  7. 120 print tab(13)"[205] [197] [211] [211] [193] [199] [197] [211]"
  8. 130 print tab(13)"==============="
  9. 140 print
  10. 150 print " ein [208]rogramm von [210]alf [215]inkler ([195])1986"
  11. 160 print
  12. 170 fora=1to40:print"-";:next
  13. 180 print
  14. 190 print "[196]ieses  [208]rogramm erstellt eine  grosse"
  15. 200 print "und flackerfreie  [204]aufschrift, die man"
  16. 210 print "problemlos in eigene [208]rogramme einbau-"
  17. 220 print "en kann."
  18. 230 print
  19. 240 print "[205]enu :";
  20. 250 print tab(10)" -1- [197]ingabe des [212]extes"
  21. 260 print tab(11)"-2- [193]nsehen der [211]chrift"
  22. 270 print tab(11)"-3- [212]ext verbessern"
  23. 280 print tab(11)"-4- [206]euer [195]haracter"
  24. 290 print tab(11)"-5- [197]rzeuge [207]bjectcode"
  25. 295 print tab(15)"auf [196]iskette"
  26. 315 print tab(11)"-6- [197]xit [205]essages"
  27. 320 get a$:ifa$="" then 320
  28. 330 a=val(a$):if a<1 or a>6 then 320
  29. 340 on a gosub 400,1000,1500,1100,1200,1400
  30. 350 goto 100
  31. 390 :
  32. 400 rem ---- eingabe des textes ----
  33. 410 :
  34. 420 print chr$(147) : i=0 : z$(i)=""
  35. 430 print "[193]chtung ! [201]hr [212]ext darf hoechstens "
  36. 440 print "zweitausendsiebenhundertsechsund-"
  37. 450 print "dreissig (2736) [218]eichen lang sein !"
  38. 452 print
  39. 455 print "[197]ingabeende mit [210][197][212][213][210][206]"
  40. 460 print
  41. 470 print "[164][157]";
  42. 480 get x$:ifx$="" then 480
  43. 490 x=asc(x$)
  44. 495 if x=13 then 700
  45. 500 if x=20 then 600
  46. 505 if x=160 then x$=" ":goto530
  47. 510 if x=34 then x$="'"
  48. 520 if x<32 or x>140 and x<193 then 480
  49. 530 print x$"[164][157]";
  50. 540 z$(i)=z$(i)+x$:l=l+1
  51. 550 if len(z$(i))>32 then i=i+1
  52. 560 goto 480
  53. 570 :
  54. 600 rem -- delete --
  55. 605 :
  56. 610 a=len(z$(i)):l=l-2
  57. 620 if a=0 and i=0 then goto 480
  58. 625 if a=0 and i>0 then i=i-1:a=33
  59. 630 z$(i)=left$(z$(i),a-1)
  60. 640 x$="":print chr$(20);
  61. 650 goto 540
  62. 660 :
  63. 700 rem -- return --
  64. 705 :
  65. 710 print : a=0
  66. 720 print "[205]oment bitte..."
  67. 730 for y=0 to i
  68. 740 lz=len(z$(y))
  69. 750 for x=1 to lz
  70. 760 c=asc(mid$(z$(y),x,1))
  71. 770 if c>192 then c=c-192:goto 800
  72. 800 poke art+a,c
  73. 810 a=a+1
  74. 900 next x
  75. 910 next y
  76. 915 poke art+a,255
  77. 920 print
  78. 950 return
  79. 960 :
  80. 1000 rem ---- ansehen der schrift ----
  81. 1005 :
  82. 1010 print "":for a=1to13:print:next
  83. 1020 print " [208]ress any key to stop               "
  84. 1030 fora=1to40:print " ";:next
  85. 1040 sys 50177
  86. 1045 if fl=1 then print "[147]":end
  87. 1050 return
  88. 1060 :
  89. 1100 rem -- aendern des characters --
  90. 1105 :
  91. 1110 print
  92. 1120 input "[206]euer [195]haracter :";a
  93. 1125 if a<0 then poke50441,169:poke50440,165:goto100
  94. 1130 poke 50441,a:poke50440,169
  95. 1140 goto 100
  96. 1150 :
  97. 1200 rem --- speichern der schrift ---
  98. 1205 :
  99. 1210 print
  100. 1220 input "[206]ame der [211]chrift ";s$
  101. 1225 if len(s$)<1 then 1220
  102. 1230 open 1,8,1,s$
  103. 1240 print#1,chr$(1);chr$(196);
  104. 1250 forx=50177 to 50514+l
  105. 1260 a=peek(x)
  106. 1270 print#1,chr$(a);
  107. 1280 next x
  108. 1290 close 1
  109. 1300 return
  110. 1310 :
  111. 1400 rem --- bye ---
  112. 1405 :
  113. 1410 i=0:z$(i)="":a=0
  114. 1415 z$(i)="[194][201][211] [194][193][204][196]...     "
  115. 1420 gosub 730
  116. 1430 fl=1:goto 1000
  117. 1440 :
  118. 1500 rem --- text verbessern ---
  119. 1505 :
  120. 1510 print chr$(147);"[194]laettern mit +/- , [193]endern mit [198]1"
  121. 1520 print "zurueck mit [198]7 !"
  122. 1550 y = 0
  123. 1555 fora=1to40:print" ";:next:print"[145][145]"
  124. 1560 print z$(y)
  125. 1570 get x$:ifx$="" then 1570
  126. 1580 if x$="+" then y=y+1:ify>itheny=i
  127. 1590 if x$="-" then y=y-1:ify<0theny=0
  128. 1600 if x$="[133]" then 1700
  129. 1605 if x$="[136]" then 100
  130. 1610 print "";:goto 1555
  131. 1700 print
  132. 1710 print tab(3)z$(y)
  133. 1720 print "[145][145][206]euer [212]ext :"
  134. 1722 print "  ";chr$(34)
  135. 1725 poke632,asc(""):poke198,2
  136. 1730 input "[145]";z$(y)
  137. 1740 gosub 710
  138. 1750 return
  139.