home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 61 / Digital_Talk_61_2003-06-17_Digital_Talk_de_Side_B.d64 / !kht-editkonvert (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  120 lines
  1. 1 onpeek(821)goto4,5,8,160
  2. 2 print"[147]":rem ---khtdtedkonvert05---
  3. 3 poke53280,5:poke53281,11:poke646,7:gosub11:gosub902:goto1
  4. 4 poke821,2:load"loadplus",8,1
  5. 5 poke821,3:load"khteditkonv.ass",8,1
  6. 8 poke45,0:poke46,36:poke55,0:poke56,80:clr:goto110:rem sov=$2400 tom=$5000
  7. 9 qp=27:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
  8. 11 q$="khteditkonvert":qv$="er":qt$=q$+qv$:qd$="010503":return
  9. 12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
  10. 18 gosub12:print"   g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
  11. 61 cy=int(c/100):cx=c-(cy*100)
  12. 62 poke211,cx:poke214,cy:sys58640:return
  13. 68 lc=int(l/100):ll=l-(lc*100)
  14. 69 forx=lctoll:poke781,x:sys59903:next:return
  15. 100 rem ---programm-ablauf---
  16. 110 print"mit  diesem  programm  koennen aus"
  17. 112 print"einem  dt-editor-text  bis zu vier"
  18. 114 print"seiten so konvertiert werden, dass"
  19. 116 print"mit dem  [153]khtnoter[158] eine ausgabe auf"
  20. 118 print"den drucker moeglich wird."
  21. 120 print"das  dt-editor-textfile  muss  nun"
  22. 122 print"erst geladen werden."
  23. 124 print"bitte   den  dateinamen  eingeben:"
  24. 130 poke19,1:input"";r$:poke19,0:print"[158]"
  25. 140 l=1024:gosub68:c=1100:gosub61
  26. 142 print"die dt-ed-datei  [153]"r$
  27. 144 print"[158]wird  geladen   -   bitte warten"
  28. 152 sys694
  29. 154 poke821,4:loadr$,8,1,20480
  30. 160 poke45,0:poke46,36:poke55,0:poke56,80:clr
  31. 162 dimv$(64)
  32. 164 fori=0to64:v$(i)="":next
  33. 166 print"[147][158]das  geladene   dt-editor-textfile"
  34. 168 print"umfasst insgesamt   [160][160]      [158]seiten":goto302
  35. 170 c=700:gosub61
  36. 171 print"[158]in einem  arbeitsgang sind derzeit"
  37. 172 print"nur maximal 4 seiten konvertierbar"
  38. 174 print"[153]bitte eingeben:[158]"
  39. 176 print"konvertieren ab seite:  "
  40. 178 printtab(30)"[145]";:poke19,1:input"";r$:poke19,0:print"[158]":s1=val(r$)
  41. 180 gosub970:printtab(10)"[145][153]"s1"[158]"
  42. 182 zs=1:poke8690,1:zb=0:poke8691,0:gosub404:poke8700,1:goto408
  43. 299 goto999
  44. 300 rem ---ermittlung seitenanzahl---
  45. 302 sys8200:goto170
  46. 400 rem ---seite konvertieren---
  47. 404 xs=s1:xl=7696+xs:xh=7952+xs
  48. 405 yl=peek(xl):poke8693,yl:yh=peek(xh):poke8694,yh
  49. 406 s0=yh*256+yl:return
  50. 408 pg=peek(8700):onpggoto410,410,414,480,490,510
  51. 410 sys8752
  52. 412 goto408
  53. 414 sys9096:rem zeile 464 alt
  54. 416 goto408
  55. 480 zs=peek(8690)
  56. 482 fori=8704to8743:v$(zs)=v$(zs)+chr$(peek(i)):next
  57. 484 poke8700,3:goto408
  58. 490 print:c=1804:gosub61
  59. 492 print"[158]konvertierung seite [153]"s1" [158]beendet!"
  60. 494 print"n[158]aechste seite oder   s[158]peichern?"
  61. 496 r$="":getr$:ifr$=""then496
  62. 497 ifr$<>"n"andr$<>"s"then496
  63. 498 on-(r$="n")-2*(r$="s")goto502,514
  64. 500 rem ---naechste seite---
  65. 502 s1=s1+1:sz%=peek(7686):ifs1>sz%then510:rem -impos
  66. 504 zs=peek(8690):ifzs>64then510:rem -impos
  67. 506 gosub970:printtab(10)"[145][153]"s1"[158]"
  68. 507 zb=0:poke8691,0:gosub404
  69. 508 poke8700,1:goto408
  70. 510 l=1524:gosub68:c=1604:gosub61
  71. 512 print"[158]konvertierung der seiten beendet"
  72. 514 l=1724:gosub68:c=1804:gosub61
  73. 516 print"[158]konv-datei s[158]peichern?--prg-e[158]nde?"
  74. 520 r$="":getr$:ifr$=""then520
  75. 522 ifr$<>"s"andr$<>"e"then520
  76. 524 on-(r$="s")-2*(r$="e")goto550,602
  77. 550 l=1924:gosub68:c=2004:gosub61
  78. 552 print"[158]dateiname?  "
  79. 554 printtab(16)"[145]";:poke19,1:input"";r$:poke19,0:print"[158]"
  80. 556 kd$=r$:rem name konvertierte datei
  81. 558 k$=kd$+",s,w"
  82. 560 open1,8,15,"s:"+kd$:close1
  83. 562 open2,8,2,k$
  84. 564 fori=1to64
  85. 566 print#2,v$(i)
  86. 567 next
  87. 568 close2
  88. 569 goto602
  89. 600 rem ---weitere seite konv.---
  90. 602 l=1724:gosub68:c=1803:gosub61
  91. 604 print"[158]weitere k[158]onvertierung? --prg-e[158]nde?"
  92. 606 r$="":getr$:ifr$=""then606
  93. 608 ifr$<>"k"andr$<>"e"then606
  94. 610 on-(r$="k")-2*(r$="e")goto620,990
  95. 620 l=824:gosub68:c=600:gosub61
  96. 622 fori=0to64:v$(i)="":next
  97. 624 goto170
  98. 902 poke821,1
  99. 903 b1$="****************************"
  100. 904 b2$="*                          *"
  101. 905 b3$="*  [158]kht-dt-ed-konverter 05[150]  *"
  102. 910 print"[147][150]"b1$
  103. 911 printtab(6)b2$:printtab(6)b3$
  104. 912 printtab(6)b2$:printtab(6)b1$"[158]"
  105. 919 return
  106. 920 rem ---zeichen-tabelle in ms---
  107. 970 l=1524:gosub68:c=1504:gosub61
  108. 972 print"[155]seite      wird nun konvertiert![158]":return
  109. 990 print"[147][158]vielen dank fuer das vertrauen"
  110. 992 print"bei der arbeit mit diesem programm"
  111. 993 print"rueckmeldungen und  verbesserungs-"
  112. 994 print"vorschlaege  bitte direkt an mich:"
  113. 995 printtab(9)"karl heinz  thurnhuber":printtab(9)"herzog-welf-strasse 32"
  114. 996 printtab(12)"85604  zorneding":printtab(12)"tel: 08106 22688"
  115. 997 poke198,0:wait198,1:sys64738
  116. 999 goto9994
  117. 9990 poke198,0:wait198,1:stop
  118. 9994 l=2424:gosub68:c=2406:gosub61:print"  noch nicht programmiert!  [146][145][145][145]"
  119. 9995 fori=0to1500:next:goto9990
  120.