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 >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
131 lines
1 onpeek(821)goto4,5,8,160
2 print"[147]":rem ---khtdtedkonv06---
3 poke53280,5:poke53281,11:poke646,7:gosub11:gosub902:goto1
4 poke821,2:load"loadplus",8,1
5 poke821,3:load"khtdtedkms06",8,1
8 poke45,64:poke46,36:poke55,0:poke56,80:clr:goto110:rem sov=$2440 tom=$5000
9 qp=27:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
11 q$="khtdtedkonv":qv$="06":qt$=q$+qv$:qd$="060703":return
12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
18 gosub12:print" g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
61 cy=int(c/100):cx=c-(cy*100)
62 poke211,cx:poke214,cy:sys58640:return
68 lc=int(l/100):ll=l-(lc*100)
69 forx=lctoll:poke781,x:sys59903:next:return
100 rem---programm-ablauf---
110 print"[147]mit diesem programm koennen aus"
112 print"einem dt-editor-text bis zu acht"
114 print"seiten so konvertiert werden, dass"
116 print"mit dem [153]khtfileprinter[158] eine aus-"
118 print"gabe auf drucker moeglich wird."
120 print"das dt-editor-textfile muss nun"
122 print"erst geladen werden.":gosub190
124 print"bitte den dateinamen eingeben:"
130 poke19,1:input"";r$:poke19,0:print"[158]"
140 l=1122:gosub68:c=1200:gosub61
142 print"die dt-ed-datei [153]"r$
144 print"[158]wird geladen - bitte warten"
152 sys694
154 poke821,4:loadr$,8,1,20480
156 gosub9980:poke821,3:goto110
160 poke45,64:poke46,36:poke55,0:poke56,80:clr
162 dimv$(128)
164 fori=0to128:v$(i)="":next
166 print"[147][158]das geladene dt-editor-textfile"
168 print"umfasst insgesamt [160][160] [158]seiten":goto302
170 c=700:gosub61
171 print"[158]in einem arbeitsgang sind derzeit"
172 print"nur maximal 8 seiten konvertierbar"
174 print"[153]bitte eingeben:[158]"
176 print"konvertieren ab seite: "
178 printtab(30)"[145]";:poke19,1:input"";r$:poke19,0:print"[158]":s1=val(r$)
180 gosub970:printtab(10)"[145][153]"s1"[158]"
182 zs=1:poke8690,1:zb=0:poke8691,0:gosub404:poke8700,1:goto408
190 c=2306:gosub61
192 print"bei fehler '...error in 154'"
194 printtab(6)"run156[158] <return> eingeben![145][145][145]"
196 c=1200:gosub61:return
299 goto999
300 rem ---ermittlung seitenanzahl---
302 sys7904:goto170
400 rem ---seite konvertieren---
404 xs=s1:xl=7696+xs:xh=7952+xs
405 yl=peek(xl):poke8693,yl:yh=peek(xh):poke8694,yh
406 s0=yh*256+yl:return
408 pg=peek(8700):onpggoto410,410,414,480,490,510
410 sys8752
412 goto408
414 sys9096
416 goto408
480 zs=peek(8690)
482 fori=8704to8743:v$(zs)=v$(zs)+chr$(peek(i)):next
484 poke8700,3:goto408
490 print:l=0:gosub68:l=1524:gosub68:c=1504:gosub61
492 print"[158]konvertierung seite [153]"s1" [158]beendet!"
494 print"n[158]aechste seite oder s[158]peichern?"
496 r$="":getr$:ifr$=""then496
497 ifr$<>"n"andr$<>"s"then496
498 on-(r$="n")-2*(r$="s")goto502,514
500 rem ---naechste seite---
502 s1=s1+1:sz%=peek(7686):ifs1>sz%then510:rem -impos
504 zs=peek(8690):ifzs>128then510:rem -impos
506 gosub970:printtab(10)"[145][153]"s1"[158]"
507 zb=0:poke8691,0:gosub404
508 poke8700,1:goto408
510 l=1524:gosub68:c=1604:gosub61
512 print"[158]konvertierung der seiten beendet"
514 l=1724:gosub68:c=1804:gosub61
516 print"[158]konv-datei speichern?--<j[158]a/n[158]ein>"
520 r$="":getr$:ifr$=""then520
522 ifr$<>"j"andr$<>"n"then520
524 on-(r$="j")-2*(r$="n")goto550,602
550 l=1924:gosub68:c=2004:gosub61
552 print"[158]dateiname? "
554 printtab(16)"[145]";:poke19,1:input"";r$:poke19,0:print"[158]"
556 kd$=r$:rem name konvertierte datei
558 k$=kd$+",s,w"
560 open1,8,15,"s:"+kd$:close1
562 open2,8,2,k$
564 fori=1to128
566 print#2,v$(i)
567 next
568 close2
569 goto602
600 rem ---weitere seite konv.---
602 l=0:gosub68:l=1724:gosub68:c=1903:gosub61
604 print"w[158]eitere konvertierung? --prg-e[158]nde?"
605 print" n[158]eue datei zum konvertieren laden?"
606 r$="":getr$:ifr$=""then606
608 ifr$<>"w"andr$<>"e"andr$<>"n"then606
610 on-(r$="w")-2*(r$="e")-3*(r$="n")goto620,990,652
620 l=824:gosub68:c=600:gosub61
622 fori=0to128:v$(i)="":next
624 goto170
650 rem ---neue datei laden---
652 goto110
902 poke821,1
903 b1$="****************************"
904 b2$="* *"
905 b3$="* [158]kht-dt-ed-konverter 06[150] *"
910 print"[147][150]"b1$
911 printtab(6)b2$:printtab(6)b3$
912 printtab(6)b2$:printtab(6)b1$"[158]"
919 return
920 rem ---zeichen-tabelle in ms---
970 l=1524:gosub68:c=1504:gosub61
972 print"[155]seite wird nun konvertiert![158]":return
990 print"[147][158]vielen dank fuer das vertrauen"
992 print"bei der arbeit mit diesem programm"
993 print"rueckmeldungen und verbesserungs-"
994 print"vorschlaege bitte direkt an mich:"
995 printtab(9)"karl heinz thurnhuber":printtab(9)"herzog-welf-strasse 32"
996 printtab(12)"85604 zorneding":printtab(12)"tel: 08106 22688"
997 poke198,0:wait198,1:sys64738
999 goto9994
9980 open1,8,15:input#1,en,em$,et,es:ifen=0then9984
9982 print"disk error !!![146]":printen" "em$" "et" "es:fori=0to3000:next
9984 close1:return
9990 poke198,0:wait198,1:stop
9994 l=2424:gosub68:c=2406:gosub61:print" noch nicht programmiert! [146][145][145][145]"
9995 fori=0to1500:next:goto9990