home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 61 / Digital_Talk_61_2003-06-17_Digital_Talk_de_Side_B.d64 / !kht-fileprinter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  189 lines
  1. 1 print"[147]"
  2. 2 rem - khtdtprint01 010503 -
  3. 3 printtab(12)"khtnotefileprint[146]":print"[154] bitte warten -- dateien werden geladen"
  4. 12 if peek(56)=149 then 26
  5. 14 f=peek(187)+256*peek(188)
  6. 16 if peek(f)<>77 and peek(f+1)<>67 and peek(f+2)<>50 then load "mc1.obj",8,1
  7. 18 poke 55,0:poke 56,149:clr:load "mc2.obj",8,1
  8. 26 io=38912:cr=io+6
  9. 28 da=io+12:de=io+15
  10. 30 vl=io+24
  11. 48 tr=39888:ma=tr:fs=tr+3
  12. 68 pi=50960:wi=pi+3:pu=pi+6
  13. 80 ei=50176:qu=52240
  14. 84 ch=53039:gc=38144
  15. 104 sysfs:sysma:sysch:syspi
  16. 114 printchr$(14)chr$(8)
  17. 119 poke2,0
  18. 120 rem n$="commodore.cod,p,r"
  19. 122 n$="khtpr.cod,p,r"
  20. 123 sys vl,n$,1792,1792+256
  21. 142 al$="qwertyuiopasdfghjklzxcvbnm[209][215][197][210][212][217][213][201][207][208][193][211][196][198][199][200][202][203][204][218][216][195][214][194][206][205]"
  22. 144 al$=al$+":;@[][186],./<>?=*^[192]1234567890+-\[169]!#$%&'() "+chr$(34)
  23. 152 e1$=chr$(13)+chr$(17)+chr$(145)+chr$(133)+chr$(134)+chr$(137)+chr$(138)
  24. 154 e2$=chr$(13)+chr$(137)
  25. 162 fa=64:dimv$(fa):sz=1
  26. 172 a$(1)=" ([198]1)=[211]eite vor     ([198]5)=[204][207][193][196]-[196]atei"
  27. 174 a$(2)=" ([198]2)=[211]eite zur@ck  ([198]6)=[211][193][214][197]-[196]atei"
  28. 176 a$(3)=" ([198]7)=[196]rucken       ([198]8)=[211]chliessen"
  29. 180 b$(1)="[196]ateiname>"
  30. 184 c$(1)=" ([198]1)=[193]lles  ([198]2)=[211]chliessen"
  31. 186 c$(2)=" ([198]3)=[206]ur diese [211]eite"
  32. 232 print"[147]":poke53280,5:poke53281,9:poke646,7
  33. 234 printtab(7)"[200]allo, liebe [195]64er-freaks!"
  34. 235 printtab(7)"[129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  35. 236 print"[158][196]ieses ist ein kleines selbsterdachtes"
  36. 237 print"[208]rint-[208]rogramm,  das u.a. mit ein paar"
  37. 238 print"[205][195]-[210]outinen arbeitet,  die in dem [194]uch"
  38. 240 print"von  [205]arkt&[212]echnik  zum [195]64/[195]128 unter"
  39. 242 print"dem [212]itel '[208][210][207][198][201]-[212][207][207][204][211]' ver:ffentlicht"
  40. 244 print"wurden."
  41. 250 print"[205]it diesem  [208]rogramm  sollen  einzelne"
  42. 252 print"[211]eiten v. [196][212]-[197][196][201][212][207][210]-[212]exten konvertiert"
  43. 254 print"auf den [196]rucker ausgegeben werden."
  44. 260 print"[208]roblemstellung aus dem [208]rogramm>"
  45. 262 print"[218]ur entsprechenden [193]npassung des ange-"
  46. 263 print"schlossenen  [196]ruckers  sind  eventuell"
  47. 264 print"noch [208]rogramm-]nderungen in den [218]eilen"
  48. 265 print"ab 702 u.im [208]rinter-[218]eichensatz n:tig.":gosub902
  49. 272 print"[147][158][208]rogramm-[193]nfang    mit    '[193][158]'"
  50. 273 print"[129]([201]ntro-[194]ildschirm)
  51. 274 [153]"sys(NULL)tart als (NULL)oter    mit    '(NULL)sys'"
  52. 275 [153]"for(valdit-(NULL)creen leer)
  53. 278 print"[158][218]um [212]ext/[205]enues    mit   '[198]1[158]'"
  54. 279 print"[215]enn n:tig zur@ck  mit   '[198]2[158]'"
  55. 280 r$="":getr$:ifr$=""then280
  56. 282 ifr$<>"a"andr$<>"s"andr$<>chr$(133)andr$<>chr$(137)then280
  57. 284 on-(r$="a")-2*(r$="s")goto232,302
  58. 286 on-(r$=chr$(133))-2*(r$=chr$(137))goto290,232
  59. 290 ifpg%<>1then302
  60. 292 goto402
  61. 302 la$="":nr%=1:mo=0:i=1:as=0:pg%=1
  62. 304 e$=e1$:gosub362
  63. 308 fori=0tofa:v$(i)="":next:goto402
  64. 340 gosub380
  65. 342 sys ei,0,i,40,v$(i+as),al$,e$,la$,nr%,mo,e%
  66. 350 ifla$=chr$(17)then370
  67. 351 ifla$=chr$(145)andi>1theni=i-1
  68. 352 ifla$=chr$(29)andi<16theni=i+1:nr%=1
  69. 353 ifla$=chr$(157)andi>1theni=i-1:nr%=40
  70. 354 ifla$=chr$(133)thengosub362:goto510
  71. 355 ifla$=chr$(134)theni=16:goto340
  72. 357 ifla$=chr$(137)thengosub362:goto376
  73. 358 ifla$=chr$(138)theni=1:goto340
  74. 360 ifla$=chr$(13)then370
  75. 361 goto340
  76. 362 l1$=la$:n1%=nr%:i1=i:return
  77. 370 ifi>15andas>47then374
  78. 372 i=i+1
  79. 373 ifi>16andas<48thenas=as+16:i1=1:goto402
  80. 374 nr%=1:goto340
  81. 376 as=0:i1=1:nr%=1:goto272
  82. 380 z1$=str$(i):ifval(z1$)>9then384
  83. 382 z1$=" "+z1$
  84. 384 z$=mid$(z1$,2)
  85. 386 sys cr,36,0:print"[155]"z$"[158]":return
  86. 390 sz=int(as/16+1)
  87. 392 s1$=str$(sz)
  88. 394 s$=mid$(s1$,2)
  89. 396 sys cr,28,0:print"[155]"s$"[158]":return
  90. 402 gosub914
  91. 410 sys cr,0,1:j=1+as
  92. 412 printv$(j)
  93. 414 fori=j+1toj+15
  94. 415 k=len(v$(i-1)):ifk<40then418
  95. 417 print"[145]";
  96. 418 printv$(i):next
  97. 420 la$=l1$:nr%=n1%:e$=e1$:i=i1
  98. 422 goto340
  99. 442 sys pu,9,19,29,3,0
  100. 444 printchr$(18);
  101. 446 sys wi,9,19,29,3,b$(1)
  102. 450 v$="":e$=e2$:la$="":nr%=0
  103. 452 sys ei,20,20,16,v$,al$,e$,la$,nr%,1,e$
  104. 456 sys pu,9,19,29,3,1
  105. 458 sys pu,1,19,38,5,1
  106. 460 printchr$(146)chr$(145)
  107. 462 sys cr,9,20:return
  108. 472 sys pu,7,19,31,4,0
  109. 474 printchr$(18);
  110. 476 sys wi,7,19,31,4,c$(1)
  111. 480 r4%=0:r$="":getr$:ifr$=""then480
  112. 482 ifr$=chr$(133)thenr4%=1:goto486
  113. 483 ifr$=chr$(134)thenr4%=2:goto486
  114. 484 ifr$=chr$(137)thenr4%=3:goto486
  115. 485 goto480
  116. 486 sys pu,7,19,31,4,1
  117. 488 sys pu,1,19,38,5,1
  118. 490 printchr$(146)chr$(145):goto702
  119. 510 sys pu,1,19,38,5,0
  120. 520 printchr$(18);
  121. 522 sys wi,1,19,38,5,a$(1)
  122. 530 r$="":getr$:ifr$=""then530
  123. 533 ifr$=chr$(133)thenr%=1:goto550
  124. 534 ifr$=chr$(134)thenr%=7:goto550
  125. 535 ifr$=chr$(135)thenr%=4:goto552
  126. 536 ifr$=chr$(136)thenr%=3:goto554
  127. 537 ifr$=chr$(137)thenr%=2:goto550
  128. 538 ifr$=chr$(138)thenr%=8:goto550
  129. 539 ifr$=chr$(139)thenr%=5:goto552
  130. 540 ifr$=chr$(140)thenr%=6:goto550
  131. 544 goto530
  132. 550 sys pu,1,19,38,5,1
  133. 552 printchr$(146);
  134. 554 onr%goto560,570,472,622,602,402,580,590
  135. 560 ifas<48thenas=as+16:goto402
  136. 562 goto340
  137. 570 ifas>15thenas=as-16:goto402
  138. 572 goto340
  139. 580 i=16:goto340
  140. 590 i=1:goto340
  141. 602 gosub442:ifla$=chr$(137)then402
  142. 604 print"[211][193][214][197]> "v$
  143. 606 open1,8,15,"s:"+v$:close1
  144. 608 v$=v$+",s,w"
  145. 610 open2,8,2,v$
  146. 612 sys da,2,64,v$(1)
  147. 614 close2:goto402
  148. 622 gosub442:ifla$=chr$(137)then402
  149. 624 print"[204][207][193][196]> "v$
  150. 626 v$=v$+",s,r"
  151. 628 open2,8,2,v$
  152. 630 sys de,2,64,v$(1)
  153. 632 close2:goto402
  154. 702 close1:close4:close5:close7
  155. 704 open1,4,10:print#1:close1
  156. 712 l9=10:zh=30
  157. 714 l9$=chr$(16)+chr$(49)+chr$(48)
  158. 716 open4,4:open5,4,6:open7,4,7
  159. 718 print#5,chr$(30)
  160. 722 ifr4%=1then742
  161. 724 ifr4%=2then732
  162. 726 ifr4%=3then340
  163. 732 p0=as+1:pz=p0+15:goto744
  164. 742 p0=1:pz=64
  165. 744 forp=p0topz:qp$=v$(p)
  166. 746 print#7,l9$;
  167. 748 print#7,qp$
  168. 750 qp$="":next
  169. 752 print#5,chr$(36)
  170. 754 print#4:print#7
  171. 756 close4:close5:close7:goto340
  172. 902 sys cr,12,24:print"[155][215]eiter mit [212]aste[145][145][145]"
  173. 904 r$="":getr$:ifr$=""then904
  174. 906 return
  175. 914 print"[147][155][192][192] [197]ditor-[194]ildschirm [192][192][211]eite [192][192][218]eile  [192][192]":gosub390:goto916
  176. 916 print""
  177. 917 print"[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  178. 918 print"[145][155] [193]ngezeigt [196][212]-[197][196]-[212]ext ab [211]eite [206]r.>"
  179. 919 print"[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  180. 928 printtab(6)"[198]1 = [205]enue     [198]2 = zur@ck"
  181. 929 printtab(6)"[198]3 = [218]eile 16  [198]4 = [218]eile 1[158][145][145][145]":return
  182. 9990 poke198,0:wait198,1:goto272
  183. 9992 sys64738
  184. 9994 print"[147]":sys cr,6,24:print"  [206]och nicht programmiert!  [146][145][145][145]"
  185. 9995 fori=0to1500:next:goto272
  186. 9997 open4,4:open5,4,6:cmd4:print#5,chr$(27):close5:close4:end
  187. 9998 open15,8,15,"s:khtnotefileprint":close15
  188. 9999 save"khtnotefileprint",8
  189.