home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / bildzeichened (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  104 lines
  1. 1 rem ********************************
  2. 2 rem *  bildschirmzeicheneditor     *
  3. 3 rem *    fuer schreibmaschine      *
  4. 4 rem *   hafner, grossaitingen      *
  5. 5 rem ********************************
  6. 6 poke52,56:poke56,56:clr:na=56*256:nb=60*256
  7. 7 fori=0to73:reada:poke49152+i,a:next:sys49158:rem versch/save
  8. 8 data0,160,0,192,0,192,173,0,192,172,1,192,133,95,132,96,173,2,192,172,3
  9. 9 data192,133,90,132,91,173,4,192,172,5,192,133,88,132,89,76,191,163,32,32
  10. 10 data32,32,32,32,32,32,32,32,32,162,8,32,186,255,169,14,162,64,160,3,32
  11. 11 data189,255,169,251,162,0,160,64,32,216,255,96
  12. 12 a$="[145][145][145][145]":fori=1to6:poke41847+i,asc(mid$(a$,i,1)):next:poke1,54:rem ready
  13. 15 sys57812"b-deutsch*",8,1:poke780,0:sys65493
  14. 17 poke53272,(peek(53272)and240)+12
  15. 18 n$="            "
  16. 19 printchr$(14);:print"[147][194]ildschirmyeichen f. [211][195][200][210][197][201][194][205][193][211][195][200][201][206][197]"
  17. 20 print"  ************************************"
  18. 21 print"  l[146]ade [217]eichensaty"
  19. 22 print"  a[146]endere [217]eichen"
  20. 23 print"  s[146]peichere [211]aty"
  21. 24 poke198,0:wait198,1:geta$
  22. 26 ifa$="l"thengosub800:goto19
  23. 27 ifa$="s"thengosub1000:goto19
  24. 28 ifa$<>"a"then24
  25. 29 gosub701
  26. 30 print"[147]        [170][183][183][183][183][183][183][183][183][180]"
  27. 31 fori=1to8:print"a$(";i;")=";chr$(34);a$(i);chr$(34):next
  28. 32 print"        [170][175][175][175][175][175][175][175][175][180]":print"goto40"
  29. 33 print:print"!";chr$(34);"#$%&'()0     [209][215][197][210][212][217][213][201][207][208][186][192]"
  30. 34 print"1234567890+-   qwertyuiop@*^"
  31. 35 print:print"[193][211][196][198][199][200][202][203][204][]=   [218][216][195][214][194][206][205]<>?"
  32. 36 print"asdfghjkl:;=   zxcvbnm,./":print
  33. 37 print"         beliebige [212]aste verwenden!"
  34. 38 print"         [217]eilen mit '[210][197][212][213][210][206]' beenden!"
  35. 39 print"         ebenso den [194]efehl'goto 40'![145][145][145][145]":end
  36. 40 gosub600
  37. 52 print" s[146]peichern im [211]aty"
  38. 53 print" n[146]ochmal aendern"
  39. 54 print" y[146]urueck yum [205]enue";
  40. 55 poke198,0:wait198,1
  41. 56 geta$
  42. 57 ifa$="s"thengosub500:goto40
  43. 58 ifa$="n"then30
  44. 59 ifa$="z"then19
  45. 60 goto56
  46. 399 :
  47. 400 rem ____ daten ausrechnen
  48. 410 fori=1to8:z1(i)=0
  49. 411 fork=1to8:x%=asc(mid$(a$(i),k,1))
  50. 412 if(x%and127)=32then420
  51. 415 z1(i)=z1(i)+2^(8-k)
  52. 420 nextk,i:return
  53. 499 :
  54. 500 rem ____ zeichen speichern
  55. 505 gosub600
  56. 510 gosub651
  57. 511 ifas>255thenprint"[145]";:goto510
  58. 530 gosub400
  59. 540 fori=0to7:pokena+8*as+i,z1(i+1):next
  60. 550 fori=0to6:pokenb+8*as+i,z1(i+1):next
  61. 560 return
  62. 599 :
  63. 600 rem ____ zeilen loeschen
  64. 601 fori=0to5:poke781,18+i:sys59903:next
  65. 605 poke211,0:poke214,18:sys58640
  66. 610 return
  67. 649 :
  68. 650 rem ____ eingabe bildschirmcode
  69. 651 gosub605:print" [212]aste? ";
  70. 652 geta$:ifa$=""then652
  71. 653 a1%=asc(a$):ifa1%<32ora1%>218ora1%=95ora1%=92then652
  72. 654 ifa1%>125anda1%<192anda1%<>186then652
  73. 655 printa$:as=peek(1024+8+18*40):return
  74. 699 :
  75. 700 rem ____ altes zeichen lesen
  76. 701 print"[147]";:gosub651
  77. 710 fori=1to8:z1(i)=peek(56*256+as*8+i-1):a$(i)="":next
  78. 720 fori=1to8:fork=1to8:ifz1(i)and2^(8-k)thena$(i)=a$(i)+"o":goto725
  79. 722 a$(i)=a$(i)+" "
  80. 725 nextk,i
  81. 730 return
  82. 799 :
  83. 800 rem ____ lade satz
  84. 805 print"[147]  ";:gosub951
  85. 810 sys57812n$,8,1:poke780,0:sys65493
  86. 820 return
  87. 949 :
  88. 950 rem ____  schriftname
  89. 951 input"[206]ame der [211]chrift";n$
  90. 952 n$=left$("b-"+n$+"            ",14):return
  91. 999 :
  92. 1000 rem ____ satz speichern
  93. 1005 print"[147] [211]ave: ([211]chriftname)"
  94. 1006 n$=right$(n$,12)
  95. 1007 print"    ";n$;"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:inputn$:gosub952
  96. 1009 nr%=peek(na+91*8)
  97. 1010 print" [206]ummer des [217]eichensatyes yur [197]rkennung"
  98. 1011 print"    ";nr%;"[157][157][157][157][157]";:inputnr%
  99. 1012 pokena+91*8,nr%
  100. 1016 open2,8,15,"s:"+n$:close2
  101. 1020 fori=1to14:poke13*64+i-1,asc(mid$(n$,i,1)):next:rem n$ uebergeben
  102. 1021 poke251,0:poke252,56:sys49202:rem save
  103. 1025 return
  104.