home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 63 / Digital_Talk_63_2003-10-28_Digital_Talk_de_Side_B.d64 / !khtdtedkonv06 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  131 lines

  1. 1 onpeek(821)goto4,5,8,160
  2. 2 print"[147]":rem ---khtdtedkonv06---
  3. 3 poke53280,5:poke53281,11:poke646,7:gosub11:gosub902:goto1
  4. 4 poke821,2:load"loadplus",8,1
  5. 5 poke821,3:load"khtdtedkms06",8,1
  6. 8 poke45,64:poke46,36:poke55,0:poke56,80:clr:goto110:rem sov=$2440 tom=$5000
  7. 9 qp=27:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
  8. 11 q$="khtdtedkonv":qv$="06":qt$=q$+qv$:qd$="060703":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"[147]mit  diesem  programm  koennen aus"
  17. 112 print"einem  dt-editor-text  bis zu acht"
  18. 114 print"seiten so konvertiert werden, dass"
  19. 116 print"mit dem  [153]khtfileprinter[158]  eine aus-"
  20. 118 print"gabe auf drucker moeglich wird."
  21. 120 print"das  dt-editor-textfile  muss  nun"
  22. 122 print"erst geladen werden.":gosub190
  23. 124 print"bitte   den  dateinamen  eingeben:"
  24. 130 poke19,1:input"";r$:poke19,0:print"[158]"
  25. 140 l=1122:gosub68:c=1200: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. 156 gosub9980:poke821,3:goto110
  31. 160 poke45,64:poke46,36:poke55,0:poke56,80:clr
  32. 162 dimv$(128)
  33. 164 fori=0to128:v$(i)="":next
  34. 166 print"[147][158]das  geladene   dt-editor-textfile"
  35. 168 print"umfasst insgesamt   [160][160]      [158]seiten":goto302
  36. 170 c=700:gosub61
  37. 171 print"[158]in einem  arbeitsgang sind derzeit"
  38. 172 print"nur maximal 8 seiten konvertierbar"
  39. 174 print"[153]bitte eingeben:[158]"
  40. 176 print"konvertieren ab seite:  "
  41. 178 printtab(30)"[145]";:poke19,1:input"";r$:poke19,0:print"[158]":s1=val(r$)
  42. 180 gosub970:printtab(10)"[145][153]"s1"[158]"
  43. 182 zs=1:poke8690,1:zb=0:poke8691,0:gosub404:poke8700,1:goto408
  44. 190 c=2306:gosub61
  45. 192 print"bei fehler '...error in 154'"
  46. 194 printtab(6)"run156[158]  <return>   eingeben![145][145][145]"
  47. 196 c=1200:gosub61:return
  48. 299 goto999
  49. 300 rem ---ermittlung seitenanzahl---
  50. 302 sys7904:goto170
  51. 400 rem ---seite konvertieren---
  52. 404 xs=s1:xl=7696+xs:xh=7952+xs
  53. 405 yl=peek(xl):poke8693,yl:yh=peek(xh):poke8694,yh
  54. 406 s0=yh*256+yl:return
  55. 408 pg=peek(8700):onpggoto410,410,414,480,490,510
  56. 410 sys8752
  57. 412 goto408
  58. 414 sys9096
  59. 416 goto408
  60. 480 zs=peek(8690)
  61. 482 fori=8704to8743:v$(zs)=v$(zs)+chr$(peek(i)):next
  62. 484 poke8700,3:goto408
  63. 490 print:l=0:gosub68:l=1524:gosub68:c=1504:gosub61
  64. 492 print"[158]konvertierung seite [153]"s1" [158]beendet!"
  65. 494 print"n[158]aechste seite oder   s[158]peichern?"
  66. 496 r$="":getr$:ifr$=""then496
  67. 497 ifr$<>"n"andr$<>"s"then496
  68. 498 on-(r$="n")-2*(r$="s")goto502,514
  69. 500 rem ---naechste seite---
  70. 502 s1=s1+1:sz%=peek(7686):ifs1>sz%then510:rem -impos
  71. 504 zs=peek(8690):ifzs>128then510:rem -impos
  72. 506 gosub970:printtab(10)"[145][153]"s1"[158]"
  73. 507 zb=0:poke8691,0:gosub404
  74. 508 poke8700,1:goto408
  75. 510 l=1524:gosub68:c=1604:gosub61
  76. 512 print"[158]konvertierung der seiten beendet"
  77. 514 l=1724:gosub68:c=1804:gosub61
  78. 516 print"[158]konv-datei speichern?--<j[158]a/n[158]ein>"
  79. 520 r$="":getr$:ifr$=""then520
  80. 522 ifr$<>"j"andr$<>"n"then520
  81. 524 on-(r$="j")-2*(r$="n")goto550,602
  82. 550 l=1924:gosub68:c=2004:gosub61
  83. 552 print"[158]dateiname?  "
  84. 554 printtab(16)"[145]";:poke19,1:input"";r$:poke19,0:print"[158]"
  85. 556 kd$=r$:rem name konvertierte datei
  86. 558 k$=kd$+",s,w"
  87. 560 open1,8,15,"s:"+kd$:close1
  88. 562 open2,8,2,k$
  89. 564 fori=1to128
  90. 566 print#2,v$(i)
  91. 567 next
  92. 568 close2
  93. 569 goto602
  94. 600 rem ---weitere seite konv.---
  95. 602 l=0:gosub68:l=1724:gosub68:c=1903:gosub61
  96. 604 print"w[158]eitere konvertierung? --prg-e[158]nde?"
  97. 605 print"   n[158]eue datei zum konvertieren laden?"
  98. 606 r$="":getr$:ifr$=""then606
  99. 608 ifr$<>"w"andr$<>"e"andr$<>"n"then606
  100. 610 on-(r$="w")-2*(r$="e")-3*(r$="n")goto620,990,652
  101. 620 l=824:gosub68:c=600:gosub61
  102. 622 fori=0to128:v$(i)="":next
  103. 624 goto170
  104. 650 rem ---neue datei laden---
  105. 652 goto110
  106. 902 poke821,1
  107. 903 b1$="****************************"
  108. 904 b2$="*                          *"
  109. 905 b3$="*  [158]kht-dt-ed-konverter 06[150]  *"
  110. 910 print"[147][150]"b1$
  111. 911 printtab(6)b2$:printtab(6)b3$
  112. 912 printtab(6)b2$:printtab(6)b1$"[158]"
  113. 919 return
  114. 920 rem ---zeichen-tabelle in ms---
  115. 970 l=1524:gosub68:c=1504:gosub61
  116. 972 print"[155]seite      wird nun konvertiert![158]":return
  117. 990 print"[147][158]vielen dank fuer das vertrauen"
  118. 992 print"bei der arbeit mit diesem programm"
  119. 993 print"rueckmeldungen und  verbesserungs-"
  120. 994 print"vorschlaege  bitte direkt an mich:"
  121. 995 printtab(9)"karl heinz  thurnhuber":printtab(9)"herzog-welf-strasse 32"
  122. 996 printtab(12)"85604  zorneding":printtab(12)"tel: 08106 22688"
  123. 997 poke198,0:wait198,1:sys64738
  124. 999 goto9994
  125. 9980 open1,8,15:input#1,en,em$,et,es:ifen=0then9984
  126. 9982 print"disk error !!![146]":printen"  "em$"  "et"  "es:fori=0to3000:next
  127. 9984 close1:return
  128. 9990 poke198,0:wait198,1:stop
  129. 9994 l=2424:gosub68:c=2406:gosub61:print"  noch nicht programmiert!  [146][145][145][145]"
  130. 9995 fori=0to1500:next:goto9990
  131.