home *** CD-ROM | disk | FTP | other *** search
/ Starlight / Starlight_01_19xx_Starlight_staff_de_Side_A.d64 / druckeranpassung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  90 lines
  1. 1 poke 56,50:clr
  2. 2 if peek(1023)<>123 then poke1023,123:load"3.!text drucken",8,1
  3. 10 dim uc(6):     printchr$(14)chr$(8)
  4. 20 print"[147][154]         [196]ruckeranpassung ([198][197][205])         "
  5. 25 print"rev0.2-30.10.90[154]"
  6. 30 print"[204]assen [211]ie bitte die [208]rogrammdiskette  ";
  7. 40 print"        im [204]aufwerk liegen               "
  8. 50 input"[199]eraetenummer des [196]ruckers  4[157][157][157]";gn:
  9. 55 if gn<4 or gn>255 then print"[145]";:goto50
  10. 56 poke23071,gn:print"[203]leinschrift einschalten:"
  11. 57 input"[211]ekundaeradresse";sa:poke 23083,sa
  12. 58 print"(-1 heisst: nicht erforderlich)[145][145][145][145]":print
  13. 59 poke 23102,24:input"[195]hr$ fuer [203]leinschrift   -1[157][157][157][157]";ch: if ch < 0 then 65
  14. 60 poke 23102,56:poke 23107,ch
  15. 65 poke 23134,24:rem clc, einzel off
  16. 70 input"[200]at der [196]rucker [213]mlaute (j/n) ";a$:if a$= "j"then gosub200
  17. 190 goto320
  18. 199 rem ** umlaute abfragen
  19. 200 print
  20. 201 poke 23134,56:rem sec, einzel on!
  21. 202 print"[147]-> [214]oreinstellungen fuer [197]pson-[196]rucker:"
  22. 203 input "[195]ode fuer scharfes s225[157][157][157][157][157]";uc(6)
  23. 205 input "[195]ode fuer kleines ae132[157][157][157][157][157]";uc(0)
  24. 210 input "[195]ode fuer kleines oe148[157][157][157][157][157]";uc(1)
  25. 220 input "[195]ode fuer kleines ue129[157][157][157][157][157]";uc(2)
  26. 224 print"und jetzt die [199]rossbuchstaben:"
  27. 230 input "[195]ode fuer grosses ae142[157][157][157][157][157]";uc(3)
  28. 240 input "[195]ode fuer grosses oe153[157][157][157][157][157]";uc(4)
  29. 250 input "[195]ode fuer grosses ue154[157][157][157][157][157]";uc(5)
  30. 260 for k=0 to 6 : poke 23264+k ,uc(k):next:rem table3=23264!!!
  31. 290 return
  32. 320 print"[196]ruckeranpassung durchgefuehrt."
  33. 330 print:input"[193]lle [197]ingaben richtig j[146]a / n[146]ein ";a$
  34. 348 if a$<>"j"then run
  35. 350 print"[147][194]itte legen [211]ie die anzupassende":input "[196]iskette jetzt ein";a$
  36. 400 open1,8,15,"i":print#1,chr$(77)+chr$(45)+chr$(87)chr$(1)chr$(1)chr$(65);
  37. 405 print#1,"s:3.!text drucken":close1
  38. 430 gosub6100:ifa$="j"goto350
  39. 500 :
  40. 510 sys(57812)"3.!text drucken",8,1
  41. 520 poke 193,255:poke194,89:rem         *** $59ff
  42. 525 poke174,0:poke175,91:rem            *** $5b00
  43. 530 sys62957:gosub6100:ifa$="j"then510
  44. 540 input"[197]in weiteres [205]agazin anpassen (j/n)";a$:ifa$<>"n"then 350
  45. 1990 ifpeek(32222)= 169 then sys32222
  46. 2000 end
  47. 4000 e=0
  48. 4010 fori=xtoy:m(p,i)=255:next:a$=""
  49. 4020 i=x:inputa$:gosub5000:ifi=x+1ore=1then4050
  50. 4030 e=1:print"[203]ein [197][211][195] ? [211]ind [211]ie sicher ?"
  51. 4040 print"[199]eben [211]ie die [211]equenz bitte nochmal ein!":goto4010
  52. 4050 iflen(a$)=0thenprint"[196]a fehlt doch noch was!":e=0:goto4040
  53. 4060 gosub5200:iff=1thenprint"[213]nerlaubte [197]ingabe!":e=0:goto4040
  54. 4070 ifi=yandlen(a$)>0thenprint"[199]laub' ich nicht! [211]equenz zu lang!":e=0:goto4040
  55. 4080 iflen(a$)>0then4060
  56. 4090 return
  57. 5000 gosub5100:l$=left$(a$,3)
  58. 5010 ifl$="[197][211][195]"orl$="esc"orl$="[197]sc"thenm(p,i)=27:i=i+1:a$=mid$(a$,4)
  59. 5100 iflen(a$)>0thenifasc(a$)=32thena$=mid$(a$,2):goto5100
  60. 5110 return
  61. 5200 iflen(a$)=0then5230
  62. 5210 f=0:ifleft$(a$,1)="'"then5300
  63. 5220 ifasc(a$)>47andasc(a$)<58then5400
  64. 5230 f=1:return
  65. 5300 a$=mid$(a$,2):a=asc(a$+chr$(0))
  66. 5310 ifa>64anda<91thena=a+32:goto5330
  67. 5315 ifa>192anda<219thena=a-128:goto5330
  68. 5330 m(p,i)=a:i=i+1
  69. 5340 ifmid$(a$,2,1)="'"thena$=mid$(a$,3):goto5100
  70. 5350 a$="'"+mid$(a$,2):return
  71. 5400 l=2
  72. 5410 a=asc(mid$(a$,l)+chr$(0)):ifa>47anda<58thenl=l+1:goto5410
  73. 5420 a=val(left$(a$,l-1)):ifa<0ora>255thenf=1:print"[218]ahl zu gross.":return
  74. 5430 a$=mid$(a$,l):m(p,i)=a:i=i+1:goto5100
  75. 6100 open1,8,15:input#1,a$,b$,c$,d$
  76. 6105 print" "b$" "
  77. 6110 close1:close2:if a$="00"then return
  78. 6210 input"[206]ochmal versuchen (j/n)";a$:ifa$<>"j"anda$<>"n"then6210
  79. 6220 ifa$="j"then return
  80. 6230 print"? [211]peicherung abgebrochen":end
  81. 7000 ifqq=1 goto7050
  82. 7005 qq=1:print"[147][199]eben [211]ie nun die folgenden"
  83. 7010 print"[211]teuersequenzen[146] ein. [196]abei sind erlaubt:";
  84. 7020 print"1. [196]as [218]eichen  [197][211][195]"
  85. 7030 print"2. [193][211][195][201][201]-[218]eichen in [200]ochkommas, z.[194].'[203]'"
  86. 7040 print"3. [196]urch [204]eerzeichen getrennte [196]ezimal-"
  87. 7042 print"   zahlen."
  88. 7045 print"   [206][201][195][200][212][146] erlaubt:  , und "chr$(34)"
  89. 7050 [142]
  90.