home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / profiprint (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  16.9 KB  |  568 lines
  1. 1 poke650,128:ifpeek(1022)=0then5000
  2. 2 poke2,32:poke53280,0:poke53281,0:print""
  3. 10 ifpeek(1022)=100thenpoke1022,1:load"zeichen b",8,1
  4. 11 ifpeek(1022)=250thenpoke1022,240:load"zeichen din",8,1
  5. 12 ifpeek(1022)=1orpeek(1022)=240thenpoke53272,8:poke56576,peek(56576)and252:poke648,192
  6. 13 print"[147]"
  7. 14 ifpeek(1022)=1thenpoke1022,2:load"zeichen d",8,1
  8. 15 ifpeek(1022)=240thenpoke1022,210:load"zeichen ddin",8,1
  9. 16 ifpeek(1022)=2thenpoke1022,3:load"profip v1.0",8,1
  10. 17 ifpeek(1022)=210thenpoke1022,200:load"profip v1.0",8,1
  11. 18 ifpeek(1022)=200thenpoke922,2:poke923,1
  12. 20 c$="n":k$="n":sy$="n":s1$="n":nu$="n":ge=80:zz=60:yy=60
  13. 39 a6$="                                                                      "
  14. 40 a8$=a8$+"[160]":iflen(a8$)<200then40
  15. 41 bv$=chr$(27)+"b"+chr$(3)+chr$(27)+"s"+chr$(1)
  16. 42 bv$=bv$+chr$(27)+"a"+chr$(5):dimv$(50)
  17. 45 pt$=chr$(14)+"  [208]rofiprint (c)'1985 by [207]liver [198]endt   "
  18. 46 ifpeek(930)<>0thengosub40000:goto60
  19. 47 print"[147]";pt:fa=8
  20. 48 print"[147]";pt$:print"[206]un die [208][207][210][198][201][193][196][210][197][211][211] [196]atendiskette       einlegen,";
  21. 49 print" und den [196]rucker anschalten."
  22. 50 n$="":poke917,39:poke918,30:poke920,7:poke924,0
  23. 51 poke908,0:poke921,0:print"[206]ame           ":sys50176,n$,n$:print
  24. 52 ifval(n$)>0theny=val(n$):goto700
  25. 53 gosub40100:ify=0thenprint"[194]enutzer nicht registriert":goto50
  26. 54 gosub50145:gosub50155:close2:close15
  27. 55 ifv$(8)="-"orv$(8)=""thenprint"[203]eine [218]ugriffsberechtigung":goto50
  28. 56 p$="":poke917,39:poke918,30:poke920,7:poke924,0
  29. 57 poke908,0:poke921,0:print"[203]ennwort[144]":sys50176,p$,p$:print""
  30. 58 ifpeek(913)=1then50
  31. 59 ba$=v$(8):ifpa$<>p$thenprint"[203]ennwort falsch":goto56
  32. 60 input"[196]ruckeradresse  4[157][157][157]";da
  33. 70 d$="":poke917,39:poke918,30:poke920,7:poke924,0:print"[147]";pt$
  34. 71 print"[200]allo ";v$(1);","
  35. 72 print"bitte gib das [196]atum ein."
  36. 73 poke908,0:poke921,0:print"[196]atum"
  37. 74 sys50176,d$,d$
  38. 90 dimf$(270),a$(250):ge=80:gosub40010
  39. 99 lf=0:fa$=""
  40. 100 cv=0:n8=0:yx=0:ed=0:ba=1:gosub37000
  41. 142 rem
  42. 143 print"[147][194]itte nun die [196]atendiskette mit dem"
  43. 144 print"[198]ormat einlegen und eine [212]aste druecken."
  44. 145 poke198,0:wait198,1:getb$:ifb$="[133]"thengosub37131:goto143
  45. 150 close15:open15,fa,15,"i"
  46. 160 open2,fa,2,fo$+",s,r":input#15,er,a$:ifer<>0thenprinta$:poke198,0:wait198,1:goto99
  47. 170 input#2,an:input#2,c$,k$,sy$,s1$,nu$,ge,zz
  48. 180 input#2,a$:yy=val(a$)
  49. 190 fz=1:fort=1toyy+20:gosub3500:gosub12000
  50. 198 next:close2:gosub20000:ifb$="[140]"thengosub15000
  51. 199 ift$<>"alle"thent$=">"+ba$+"??????"+t$
  52. 200 ift$="alle"thengosub30000
  53. 201 ifba<qqthent$=n$(ba):ba=ba+1:goto210
  54. 202 print"[194]itte nun die [196]atendiskette mit dem"
  55. 203 print"[212]ext einlegen und eine [212]aste druecken."
  56. 204 poke198,0:wait198,1:geta$:ifa$="[133]"then100
  57. 205 goto210
  58. 206 gosub210:end
  59. 210 ifvv=1then11000
  60. 211 close2:close15:open15,fa,15
  61. 212 open2,fa,2,t$+",s,r":input#15,er,a$:ifer<>0thenprinta$:poke198,0:wait198,1:goto100
  62. 220 input#2,an:p=0:gosub36000
  63. 225 ta=(ge-zz)/3
  64. 230 poke198,0:ifed=2thengosub10000:goto240
  65. 231 print"[147][194]itte legen [211]ie ein [194]latt ein und       druecken [211]ie ein [212]aste"
  66. 232 gosub10000
  67. 233 geta$:ifa$=""then233
  68. 234 print"[147]";pt$
  69. 235 print"[201]ch arbeite ..."
  70. 240 print"[201]ch drucke [211]eite";sh+1:print"[212]ext :";t$
  71. 245 sh=sh+1:ifsh=2thengosub600
  72. 250 ra=(ge-zz)/3
  73. 300 v=0 : if n7<n6 then v= (n6-n7)/3
  74. 310 u=1:forww=1toyy:co$=left$(f$(ww),1)
  75. 314 ifco$="*"thengoto500
  76. 315 ifco$="."thena$=da$:gosub2001:goto 340
  77. 316 ifco$<>"="andco$<>"+"andco$<>"_"thena$=f$(ww):gosub2000:goto340
  78. 320 ifv>1thena$="":gosub2000:v=v-1:goto340
  79. 321 ifu>n7thena$="":gosub2000:u=u+1:goto340
  80. 330 ifco$="="thena$=a$(u):u=u+1:gosub2000:goto340
  81. 331 ifco$="+"thengosub400:u=u+1:gosub2000:goto340
  82. 332 ifco$="_"thengosub410:u=u+1:gosub2000:goto340
  83. 339 ifm$="[140]"thenn8=999:ww=999
  84. 340 nextww
  85. 341 print"1":ifn8<>999thengs=1:goto230
  86. 342 ifn8=999thenformn=1to999:geta$:ifa$="[139]"thenn8=0
  87. 343 next
  88. 349 print"2":ifn8=999andba<qqthenclose2:close15:close1:n8=0:goto201
  89. 350 ifvv=1then210
  90. 360 print"[147]fertig":poke198,0:goto6000
  91. 400 a$=left$(a$(u)+a8$,zz)+right$(f$(ww),len(f$(ww))-1):return
  92. 410 a$=right$(f$(ww),len(f$(ww))-1)+a$(u):return
  93. 450 print" *** pause ***"
  94. 455 getm$:ifm$<>"[134]"then455
  95. 456 ifm$<>"[133]"thenend
  96. 460 goto2010
  97. 500 rem ** seitennr. **
  98. 501 a$=left$(a6$,int(ge/2.5)-ta)+"-"+str$(sh)+" -"
  99. 502 iftd$="j"thena$=a$+t$
  100. 510 gosub2001:goto340
  101. 600 fort=1to20:f$(t)=f$(t+yy):next:gosub20000:return
  102. 700 ify=999thenba$="ga":goto72
  103. 710 ify=900thenv$(8)="of":pa$="sabrina":goto56
  104. 720 ify=901thenv$(8)="ol":pa$="edv":goto56
  105. 725 ify=902thenv$(8)="rh":pa$="nie":goto56
  106. 730 ify=903thenv$(8)="sz":pa$="frau":goto56
  107. 799 goto54
  108. 1999 end
  109. 2000 gosub30400:gosub2500
  110. 2001 ifa$<>""anda$<>"[187]"thena$=left$(a6$,ta)+a$
  111. 2005 rem
  112. 2006 xy=1
  113. 2007 getm$:ifm$="[133]"then450
  114. 2010 a$=a$+chr$(13):forz=1tolen(a$)
  115. 2020 b$=mid$(a$,z,1):gosub4450
  116. 2030 as=asc(b$)
  117. 2040 ifas>191andas<234thenas=as-96
  118. 2050 ifas>223andas<255thenas=as-64
  119. 2060 ifas=255thenas=126
  120. 2070 ifxy=2thenz=z+1
  121. 2080 ifxy=3thenxy=2
  122. 2090 ifas<128thenb$=chr$(peek(1026+as)):goto2200
  123. 2100 as=as-160:b$=""
  124. 2110 z1=0:ifpeek(1202+8*as)<>0andpeek(1201+8*as)<>27thenb$=chr$(peek(1024)):z1=1
  125. 2120 ifz1=0thengosub2300
  126. 2130 ifz1=1thengosub2400
  127. 2140 ifz1=1andbr=0thenb$=b$+chr$(peek(1025))
  128. 2150 ifz1=1andbr=1thenb$=b$+chr$(peek(1026))
  129. 2200 print#1,b$;
  130. 2210 next:poke53265,27:return
  131. 2300 fordd=1to8:mn=peek(as*8+dd+1200)
  132. 2310 ifmn=0thennextdd:return
  133. 2320 gosub4400:b$=b$+c$:nextdd:return
  134. 2400 fordd=1to8:mn=peek(as*8+dd+1200)
  135. 2410 ifmn=0thennextdd:return
  136. 2420 gosub4400:b$=b$+c$:ifbr=1thenb$=b$+c$
  137. 2430 nextdd:return
  138. 2500 ifleft$(a$,1)<>"#"thenreturn
  139. 2501 ifa$<"#00"thenreturn
  140. 2510 a$=right$(a$,len(a$)-1):ta=ra+val(left$(a$,2))
  141. 2511 a$=right$(a$,len(a$)-2):return
  142. 3000 ife7=1thene7=0:et=0:a$=bb$:bb$="":goto3046
  143. 3005 a$=bb$:et=0:ifzz=0thenp=p+1:goto3500
  144. 3010 ifnf=1then3900
  145. 3011 poke915,2:poke917,200:poke908,255:sys50182,bb$:if(st and 64)=64thenbb$="[187]"
  146. 3012 ifpeek(913)=13thenp=p+1
  147. 3013 ifbb$=">"thenbb$="[187]":et=1
  148. 3014 ifbb$="> "thenbb$="[187]":et=1
  149. 3015 ifright$(bb$,1)=" "thenbb$=left$(bb$,len(bb$)-1):goto3014
  150. 3016 ifleft$(bb$,1)=" "thenbb$=right$(bb$,len(bb$)-1):goto3015
  151. 3017 ifleft$(bb$,1)="@"thengosub30300
  152. 3018 ifleft$(bb$,8)="noformat"thennf=1:goto3010
  153. 3019 ifleft$(bb$,8)="mittezen"thenmi=1:goto3010
  154. 3020 ifleft$(bb$,8)="formnorm"thenmi=0:goto3010
  155. 3021 ifleft$(bb$,8)="rechtsfo"thenmi=2:goto3010
  156. 3022 ifleft$(bb$,8)="keinform"thenmi=3:goto3010
  157. 3023 ifleft$(bb$,7)="dezlen="thengoto3650
  158. 3024 ifleft$(bb$,1)="_"thengosub3680
  159. 3028 ifleft$(bb$,2)="!!"then3600
  160. 3029 ifright$(bb$,1)="[187]"orleft$(bb$,1)="[172]"thenet=1:e7=1
  161. 3030 c$=a$:ifright$(c$,1)="-"thenc$=left$(c$,len(c$)-1):c$=c$+bb$:goto3040
  162. 3035 c$=c$+" "+bb$
  163. 3040 iflen(c$)<zzthena$=c$:e7=0:ifet=0then3010
  164. 3045 ifet=1ande7=0thenbb$=""
  165. 3046 ifright$(a$,1)=" "thena$=left$(a$,len(a$)-1):goto3046
  166. 3047 ifleft$(a$,1)=" "thena$=right$(a$,len(a$)-1):goto3047
  167. 3049 ifmi<>0then3100
  168. 3050 ifright$(a$,1)="[187]"thenreturn
  169. 3051 poke918,zz-zz/4:poke917,zz:sys50185,a$,a$
  170. 3060 return
  171. 3100 ifmi=1then3200
  172. 3110 ifmi=2then3300
  173. 3120 ifmi=3then3400
  174. 3130 rem ifmi=4then3450
  175. 3200 ifa$=""ora$="[187]"thena$="":printa$:return
  176. 3201 sys50179,a$:x8=(zz-(len(a$)-peek(919)))/2.1
  177. 3210 ifx8>0thena$=left$(a6$,x8)+a$:return
  178. 3211 return
  179. 3300 ifa$=""ora$="[187]"thena$="":return
  180. 3301 sys50179,a$:x8=(zz-(len(a$)-peek(919)))
  181. 3310 ifx8>0thena$=left$(a6$,x8)+a$:return
  182. 3311 return
  183. 3400 ifa$=""ora$="[187]"thena$="":return
  184. 3401 return
  185. 3500 poke908,0
  186. 3510 poke915,2:poke917,136
  187. 3520 sys50182,a$:ifa$=">"thena$=""
  188. 3521 ifright$(a$,1)=" "thena$=left$(a$,len(a$)-1):goto3521
  189. 3522 ifleft$(a$,1)=" "thena$=right$(a$,len(a$)-1):goto3522
  190. 3530 return
  191. 3600 rem ** !! (NULL)abulator **
  192. 3602 bb$=right$(bb$,len(bb$)-2):gh=val(left$(bb$,2))
  193. 3605 ifgh>zzthenbb$="[160]":goto3040
  194. 3610 gh=gh-len(c$):ifgh<0thengh=0
  195. 3620 c$=c$+left$(a8$,gh)+"-":goto3040
  196. 3650 rem ** dezlen eingabe **
  197. 3655 bb$=right$(bb$,len(bb$)-7):dv=val(left$(bb$,1))
  198. 3660 bb$=right$(bb$,len(bb$)-1):dn=val(left$(bb$,1))
  199. 3670 bb$="":goto3040
  200. 3680 rem ** dezimal bildung **
  201. 3681 qw=0:rf$=right$(bb$,1):ifval(rf$)=0andrf$<>"0"thenqw=1
  202. 3682 ifqw=1thenbb$=left$(bb$,len(bb$)-1)
  203. 3683 bb$=right$(bb$,len(bb$)-1):gh=int(val(bb$)):ifgh<0thengh=gh+1
  204. 3684 de$=str$(gh):de$=right$(de$,len(de$)-1):gz=gh
  205. 3685 de$=right$("[160][160][160][160][160][160][160][160][160]"+de$,dv-1)
  206. 3686 ifgz<0thende$="-"+de$
  207. 3687 ifgz>=0thende$="[160]"+de$
  208. 3688 gh=abs(val(bb$)-gh)
  209. 3690 ifdn=0then3698
  210. 3691 de$=de$+"."
  211. 3692 gh=gh*10^dn:dn$=str$(gh):dn$=right$(dn$,len(dn$)-1)
  212. 3693 de$=de$+left$(dn$+"000000000",dn)
  213. 3698 bb$=de$:ifqw=1thenbb$=bb$+rf$
  214. 3699 return
  215. 3900 poke915,2:poke917,zz:poke908,1:sys50182,bb$:if(st and 64)=64thenbb$="[187]"
  216. 3910 ifbb$="formaton"thennf=0:a$="":bb$="":goto3010
  217. 3912 ifbb$=">"thenbb$=""
  218. 3920 a$=bb$:return
  219. 3999 return
  220. 4400 ifrv=0then4420
  221. 4401 ifmn=0thenc$="":return
  222. 4402 ifmn<128thenc$=chr$(mn):return
  223. 4410 mn=mn-128:mn=255-mn
  224. 4420 c$=chr$(mn):return
  225. 4450 ifb$="[170]"thenbr=1:xy=3
  226. 4451 ifb$="[167]"thenbr=0:xy=1
  227. 4452 ifs1$="s"and(b$="[170]"orb$="[165]"orb$="[181]")thenprint#1,chr$(27)+"b"+chr$(5);
  228. 4453 ifs1$="s"and(b$="[167]"orb$="[180]"orb$="[161]")thenprint#1,chr$(27)+"b"+chr$(4);
  229. 4460 return
  230. 5000 print"[147]  profiprint (c) '1984 by oliver fendt  "
  231. 5010 input"tastatur din[157][157][157][157][157]";a$
  232. 5020 poke1022,250:ifa$<>"din"thenpoke1022,100
  233. 5030 run
  234. 6000 print"[147]";pt$
  235. 6010 print"  -0-  [197]nde"
  236. 6011 print"  -1-  [197]inen [212]ext drucken"
  237. 6012 print"  -2-  [208]rofitext laden"
  238. 6050 print"[194]itte waehlen sie:"
  239. 6052 poke198,0:wait198,1:geta$
  240. 6054 ifa$="[133]"ora$="0"thenpoke2,0:poke930,0:end
  241. 6055 ifval(a$)>2then6052
  242. 6060 ifa$="1"then100
  243. 6070 poke2,0:print"[147]load"+chr$(34)+"c/profitext*"+chr$(34)+",8"
  244. 6080 print"run":poke198,2:poke631,13:poke632,13:end
  245. 10000 n7=0:l=0
  246. 10010 ifn7>=n6thenreturn
  247. 10020 gosub3000:n7=n7+1:ifp>anthena$(n7)=a$:n8=999:return
  248. 10030 ifleft$(a$,1)="[172]"thengosub10100:ifrr=1thenreturn
  249. 10035 iflen(a$)>lthenl=len(a$)
  250. 10040 a$(n7)=a$:ifleft$(a$,1)="[187]"then10060
  251. 10050 goto10010
  252. 10060 if5>n6-n7thenreturn
  253. 10065 goto10010
  254. 10100 rem ** seitenvorschub ?? **
  255. 10101 if a$="[172]"thenrr=1:goto10120
  256. 10102 rr=0:a$=right$(a$,len(a$)-1)
  257. 10110 gq=val(left$(a$,2)):ifgq>n6-n7thenrr=1
  258. 10120 a$="":a$(n7)="":return
  259. 11000 ifyx>=cvthen6000
  260. 11005 gosub50145:sh=0:print"[147][214]ardef"
  261. 11010 yx=yx+1:y=a(yx):gosub50155:close2:close15:goto11030
  262. 11020 goto6000
  263. 11030 fort=1to20:printv$(t):next
  264. 11035 goto211
  265. 12000 ifleft$(a$,1)="^"thena$=right$(a$,len(a$)-1):goto13000
  266. 12001 ifleft$(a$,1)="_"thena$=right$(a$,len(a$)-1):goto13010
  267. 12010 f$(fz)=a$:fz=fz+1:return
  268. 13000 f$(fz-1)=f$(fz-1)+right$(a8$,zz-len(f$(fz-1))-len(a$))+a$:return
  269. 13010 f$(fz)=right$(a8$,zz-len(a$))+a$:fz=fz+1:return
  270. 15000 rem ** erstellen formblatt **
  271. 15010 gosub35000
  272. 15020 print"[147]":fort=1toyy+20
  273. 15021 print"                                        ";
  274. 15022 print"                                        ";
  275. 15023 print"                                        ";
  276. 15024 print"                                        ";
  277. 15025 print"";f$(t);"[164] "
  278. 15030 print"";pt$:print"[198]ormblatt erstellen"
  279. 15035 ift<1thent=yy
  280. 15036 ift>yythenprint"[211]eite 2[146] [218]eile";t-yy
  281. 15037 ift>yy+20thenprint"                       ":t=1
  282. 15050 print"= = [212]ext drucken / ^ [193]usfuellen"
  283. 15051 print". = [196]atum hier drucken"
  284. 15052 print"* = [211]eitenzahl hier drucken"
  285. 15054 print"(f1) [193]lles [207][203]   (f3) [196][197][205][207] [196]ruck"
  286. 15055 print"(f5) [218]eile hoch (f7) [211]peichern"
  287. 15056 print"(f2) [198]ormblatt laden"
  288. 15057 print"(f4) [205]ittezentrierung des [212]extes"
  289. 15058 print"(f6) [210]echstformatierung"
  290. 15059 print"(f8) [194]locksatzformatierung"
  291. 15060 print"([195][210][212][204])+([204]) [198]ormblatt loeschen"
  292. 15061 print"([195][210][212][204])+([197]) [206]eu [208]arameter [197]instellen"
  293. 15062 print"[193]lles was anders ist, wird so gedruckt, wie es dasteht.";
  294. 15070 print"[146][208]os.x.     [157][157][157][157]";len(f$(t))
  295. 15071 print"[208]os.y.     [157][157][157][157]";t;" "
  296. 15080 ifpeek(198)<1then15080
  297. 15090 geta$
  298. 15095 ifa$=chr$(20)andlen(f$(t))=0then15080
  299. 15100 ifa$=chr$(20)thenf$(t)=left$(f$(t),len(f$(t))-1):goto15155
  300. 15110 ifa$="[133]"thenlf=1:fa$="ok":fo$=">"+ba$+"??????ok":gosub20000:return
  301. 15120 ifa$="[134]"then15600
  302. 15121 ifa$="^"then15900
  303. 15122 ifa$=""thengosub35000:goto15021
  304. 15123 ifa$=""thenforu=1to20:f$(yy+u)=f$(u):next:goto15021
  305. 15130 ifa$="[135]"thent=t-2:next
  306. 15131 ifa$=""thenforu=1toyy:f$(u)="":next:t=1:goto15021
  307. 15134 ifa$="[137]"thent=999:next:goto15800
  308. 15135 ifa$="[136]"then15700
  309. 15136 ifa$="[138]"thenf$(t)=left$(a8$,(zz-len(f$(t)))/2)+f$(t):goto15021
  310. 15137 ifa$="[139]"thenf$(t)=left$(a8$,zz-len(f$(t)))+f$(t):goto15021
  311. 15138 ifa$="[140]"thenpoke918,3:poke917,zz:sys50185,f$(t),f$(t):goto15021
  312. 15139 ifa$="[147]"thenf$(t)="":goto15021
  313. 15140 ifa$=chr$(13)thennext:goto15020
  314. 15141 ifa$=""ora$="[145]"ora$=""ora$="[157]"then15030
  315. 15142 ifa$="[144]"ora$=""ora$=""ora$="[159]"then15030
  316. 15143 ifa$="[156]"ora$=""ora$=""ora$="[158]"then15030
  317. 15144 ifa$="[129]"ora$="[149]"ora$="[150]"ora$="[151]"then15030
  318. 15145 ifa$="[152]"ora$="[153]"ora$="[154]"ora$="[155]"then15030
  319. 15146 ifa$=""ora$="[146]"ora$="[147]"ora$=""orasc(a$)=148then15030
  320. 15147 ifa$="[160]"then15150
  321. 15148 iflen(f$(t))=zzthen15160
  322. 15150 f$(t)=f$(t)+a$
  323. 15155 print"";f$(t);"[164] "
  324. 15160 goto15030
  325. 15600 rem ** drucken **
  326. 15601 print"[147]";pt$:print"[194]itte [215]arten, ich drucke."
  327. 15610 gosub36000:foru=1toyy
  328. 15611 iff$(u)="."thena$=da$:goto15650
  329. 15612 iff$(u)="*"thena$="        -1-          ":goto15650
  330. 15613 iff$(u)="="thena$="-[212]est-":goto15650
  331. 15630 a$=f$(u)
  332. 15650 gosub2001
  333. 15660 nextu:a$="":close1:goto15021
  334. 15700 rem ** form speichern **
  335. 15705 print"[147]";pt$:print"[211]peichern"
  336. 15706 input"[206]ame";n$
  337. 15710 close2:open2,8,2,"@:>"+ba$+"000000"+n$+",s,w"
  338. 15720 print#2,str$(yy+33);chr$(13);
  339. 15721 print#2,c$:print#2,k$:print#2,sy$:print#2,s1$:print#2,nu$
  340. 15722 print#2,str$(ge);chr$(13);
  341. 15723 print#2,str$(zz);chr$(13);
  342. 15730 print#2,str$(yy);chr$(13);
  343. 15740 foru=1toyy+20:print#2,f$(u):next
  344. 15750 foru=1to7:print#2," ":next:close2:goto15021
  345. 15800 print"[147][194]itte nun die [196]atendiskette mit dem"
  346. 15801 print"[198]ormat einlegen und den [206]amen angeben."
  347. 15805 input"[206]ame";a$:a$=">"+ba$+"??????"+a$
  348. 15810 close15:open15,fa,15,"i"
  349. 15815 close2:open2,fa,2,a$+",s,r":input#15,er,a$:ifer<>0thenprinta$
  350. 15816 ifer<>0thenpoke198,0:wait198,1:geta$:print"[147]":goto15020
  351. 15820 input#2,an
  352. 15821 input#2,c$,k$,sy$,s1$,nu$,ge,zz
  353. 15830 input#2,a$:yy=val(a$)
  354. 15840 fz=1:fort=1toyy+20:gosub3500:gosub12000
  355. 15850 next:close2:gosub20000:print"[147]":goto15020
  356. 15900 print"[147]";pt$
  357. 15910 print"[198]ormblatt ausfuellen"
  358. 15920 input"[214]on [218]eile";v
  359. 15925 input"[194]is [218]eile";b
  360. 15930 foru=vtob:f$(u)="=":next:print"[147]";pt$:t=b:goto15021
  361. 20000 n6=0:fort=1toyy
  362. 20010 ifleft$(f$(t),1)="="thenn6=n6+1
  363. 20011 ifleft$(f$(t),1)="+"thenn6=n6+1
  364. 20012 ifleft$(f$(t),1)="_"thenn6=n6+1
  365. 20020 next:return
  366. 30000 ifdn<>1thendimn$(144):ff=1:dn=1
  367. 30001 print"[196]ie [196]iskette, die gedruckt werden soll,"
  368. 30002 print"einlegen und eine [212]aste druecken"
  369. 30003 poke198,0:wait198,1:geta$
  370. 30005 close2:open2,fa,2,">????????druck"
  371. 30010 input#2,ff:qq=1
  372. 30020 fort=1toff:input#2,n$(qq):ifn$(qq)=">"orn$(qq)=""then30030
  373. 30021 print"[211]oll ";n$(qq);" gedruckt werden"
  374. 30022 poke198,0:wait198,1:geta$:ifa$="n"thenprint"[206][197][201][206]":goto30030
  375. 30023 ifa$="f"thenprint"[197][210][210][207][210]":goto30000
  376. 30027 n$(qq)=">"+ba$+"??????"+n$(qq):qq=qq+1
  377. 30030 next:close2:return
  378. 30300 ifvv=0thenreturn
  379. 30301 forb=1tolen(bb$)-2
  380. 30310 ifmid$(bb$,b,1)<>"@"thennext:return
  381. 30320 x=val(mid$(bb$,b+1,2)):ifx>50thenx=0
  382. 30330 ifx=0thennext:return
  383. 30340 bb$=left$(bb$,b-1)+v$(x)+right$(bb$,len(bb$)-b-2):goto30300
  384. 30350 next:return
  385. 30400 rem ** vartest **
  386. 30401 forb=1tolen(a$)-2
  387. 30410 ifmid$(a$,b,1)<>"@"thennext:return
  388. 30420 x=val(mid$(a$,b+1,2)):ifx>50thenx=0
  389. 30430 ifx=0thennext:return
  390. 30440 a$=left$(a$,b-1)+v$(x)+right$(a$,len(a$)-b-2):goto30400
  391. 30450 next:return
  392. 34000 input#15,en:ifen<>0theninput#15,a$:printa$:return
  393. 34010 return
  394. 35000 rem ** einstellform  **
  395. 35100 print"[147]";pt$:close15
  396. 35101 print"":print"[208]arameter [197]instellen"
  397. 35130 print"[[206]] [206]ormal [[203]] [203]lein      ";c$
  398. 35131 input"[145][[206]] [206]ormal [[203]] [203]lein    ";c$
  399. 35132 print"[[206]] [206]ormal [[203]] [203]omprim.   ";k$
  400. 35133 input"[145][[206]] [206]ormal [[203]] [203]omprim. ";k$
  401. 35134 print"[[206]] [206]ormal [[197]] [197]lite      ";sy$
  402. 35135 input"[145][[206]] [206]ormal [[197]] [197]lite    ";sy$
  403. 35138 print"[[206]] [[211]] [206][204][209] [[197]] [197]mphas.   ";s1$
  404. 35139 input"[145][[206]] [[211]] [206][204][209] [[197]] [197]mphas. ";s1$
  405. 35150 print"[206]ull mit [211]trich           ";nu$
  406. 35160 input"[145][206]ull mit [211]trich         ";nu$
  407. 35170 print"[218]eichen pro [196]ruckerz.     ";ge:ba=1
  408. 35171 input"[145][218]eichen pro [196]ruckerz.   ";ge
  409. 35175 print"davon benutzte [218]eichen    ";zz:n8=0
  410. 35176 input"[145]davon benutzte [218]eichen  ";zz:n8=0
  411. 35180 ifzz>200thenprint"[218]u gross":goto35180
  412. 35185 print"[218]eilen pro [196]ruckerz.      ";yy
  413. 35186 input"[145][218]eilen pro [196]ruckerz.    ";yy
  414. 35190 da$=left$(a8$,zz-len(d$))+d$
  415. 35900 input"[197]ingaben [207][203]               n[157][157][157]";a$:ifa$="n"then35101
  416. 35999 print"[147]":return
  417. 36000 rem ** drucker init **
  418. 36001 fo$="":fa$="":lf=0
  419. 36010 ifds<>0thenclose1:open1,da,ds
  420. 36011 ifds=0thenclose1:open1,da
  421. 36012 iftd$="j"thenreturn
  422. 36015 print#1,chr$(27);"@";:ifc$="k"thenprint#1,bv$;
  423. 36020 ifed<2thenprint#1,chr$(27)+"8";
  424. 36030 print#1,chr$(27)+"7"+chr$(2);:ifsy$="e"thenprint#1,chr$(27);"b";chr$(2);
  425. 36040 ifs1$="s"thenprint#1,chr$(27);"b";chr$(4);
  426. 36041 ifs1$="e"thenprint#1,chr$(27);"e";
  427. 36050 ifk$="k"thenprint#1,chr$(15);
  428. 36060 ifnu$="j"thenprint#1,chr$(27);chr$(92);chr$(1);
  429. 36070 da$=left$(a8$,zz-len(d$))+d$
  430. 36999 return
  431. 37000 rem ** einstellfunktion **
  432. 37010 ifleft$(t$,1)=">"thent$=right$(t$,len(t$)-9)
  433. 37100 print"[147]";pt$:cv=0:yx=0:close2:close15
  434. 37101 print""
  435. 37110 poke198,0:gs=0
  436. 37111 input"[213][211][197][210][208][207][210][212] [201]nterface        j[157][157][157]";a$:ifa$="j"thensys50194
  437. 37112 ifa$="n"theninput"[211]ekundaeradresse          7[157][157][157]";ds
  438. 37115 ed=0:input"[197]inzelblatt [197]inzug        j[157][157][157]";a$:ifa$="n"thened=2
  439. 37116 ifa$="e"then6000
  440. 37117 ifa$="f"thengosub15000:goto37000
  441. 37119 fa$="form"
  442. 37120 print"[206]ame des [198]ormblattes      ";fa$
  443. 37121 input"[145][206]ame des [198]ormatblattes  ";fo$
  444. 37122 fa$=fo$
  445. 37124 fo$=">"+ba$+"000000"+fo$
  446. 37125 print"[206]ame des [212]extes auf [196]isk  ";t$
  447. 37126 input"[145][206]ame des [212]extes auf [196]isk";t$:sh=0:return
  448. 37131 input"[211]tart [211]eiten nr.          1[157][157][157]";s$:sh=val(s$)-1
  449. 37165 input"[212][197][211][212] [196]ruck                n[157][157][157]";td$
  450. 37170 input"[193]dresse benoetigt         n[157][157][157]";a$:ifa$="j"then38000
  451. 37171 ifa$="s"thenvv=1:gosub50090
  452. 37172 ifa$="e"then39000
  453. 37999 return
  454. 38000 rem ** eine adresse holen **
  455. 38001 print"[147]";pt$:print"[197]ine [193]dresse laden"
  456. 38002 print" [194]itte [193][196][210][197][211][211][196][193][212][197][206][196][201][211][203][197][212][212][197] einlegen !!! "
  457. 38010 n$="":poke917,39:poke918,30:poke920,7:poke924,0
  458. 38051 poke908,0:poke921,0:print"[206]ame           ":sys50176,n$,n$:print
  459. 38052 ifval(n$)>0theny=val(n$):goto38054
  460. 38053 gosub40100:ify=0thenprint"[193]dresse nicht vorhanden":goto38000
  461. 38054 gosub50145:gosub50155:close2:close15:return
  462. 39000 print"[147]";pt$:print:print
  463. 39005 n$="":poke917,39:poke918,30:poke920,7:poke924,0
  464. 39010 poke908,0:poke921,0:print"[214]orname        ":sys50176,"",v$(1):print
  465. 39012 poke908,0:poke921,0:print"[206]achname       ":sys50176,"",v$(2):print
  466. 39014 poke908,0:poke921,0:print"[211]trasse        ":sys50176,"",v$(3):print
  467. 39016 poke908,0:poke921,0:print"[208][204][218] [207]rt        ":sys50176,"",v$(4):print
  468. 39018 poke908,0:poke921,0:print"[212]elephon       ":sys50176,"",v$(5):print
  469. 39020 poke908,0:poke921,0:print"[199]eburtsd.      ":sys50176,"",v$(6):print
  470. 39022 poke908,0:poke921,0:print"[211]pitzname      ":sys50176,"",v$(11):print
  471. 39024 poke908,0:poke921,0:print"[211]usi [203]ennung   ":sys50176,"",v$(12):print
  472. 39099 return
  473. 40000 ba$=chr$(peek(930))+chr$(peek(931)):fa=peek(932):return
  474. 40010 poke930,asc(left$(ba$,1)):poke931,asc(right$(ba$,1)):poke932,fa:return
  475. 40100 close2:close15:open15,8,15:t=1:open2,8,2,"ad,s,r"
  476. 40110 input#15,er,a$:ifer<>0thenprinter,a$:poke198,0:wait198,1:getb$:goto40100
  477. 40120 input#2,a$,y:ifleft$(a$,len(n$))=n$thenreturn
  478. 40130 ifst<>64then40120
  479. 40140 close2:y=0:return
  480. 50000 rem *****************************
  481. 50005 rem *                           *
  482. 50010 rem * iseq unterprogramme       *
  483. 50015 rem *                           *
  484. 50020 rem * load ad     =  50090      *
  485. 50025 rem * find name   =  50115      *
  486. 50030 rem * open        =  50140      *
  487. 50035 rem * save nr     =  50235      *
  488. 50040 rem * sort        =  50350      *
  489. 50045 rem * save ad     =  50385      *
  490. 50050 rem * load nr     =  50155      *
  491. 50055 rem *             =             *
  492. 50060 rem *                           *
  493. 50065 rem *                           *
  494. 50070 rem *****************************
  495. 50075 rem
  496. 50080 rem
  497. 50085 rem
  498. 50090 rem *** load ad ***
  499. 50095 dima(500):input"name";a$
  500. 50096 close2:close15:open15,8,15:t=1:open2,8,2,a$+",s,r"
  501. 50097 input#15,er,a$:ifer<>0thenprinter,a$:poke198,0:wait198,1:getb$:goto50096
  502. 50100 input#2,a$,a(t)
  503. 50105 ifst<>64thent=t+1:goto50100
  504. 50110 close2:cv=t:return
  505. 50115 rem *** find name ***
  506. 50120 input"name  ";x$
  507. 50125 fory=1toan:ifleft$(a$(y),len(x$))=x$then50135
  508. 50130 next:print"nicht gefunden":y=0:return
  509. 50135 return
  510. 50140 close2:return
  511. 50145 close15:open15,8,15
  512. 50150 close2:open2,8,2,"asalem,l,"+chr$(254):return
  513. 50155 rem *** load nr ***
  514. 50156 hb=int(y/256):lb=y-256*hb
  515. 50160 print#15,"p"+chr$(2)+chr$(lb)+chr$(hb)+chr$(1):poke915,2
  516. 50165 poke917,19:sys50182,v$(1)
  517. 50170 sys50182,v$(2)
  518. 50175 sys50182,v$(3)
  519. 50180 poke917,3:sys50182,v$(4)
  520. 50185 poke917,19:sys50182,o$:v$(4)=v$(4)+" "+o$
  521. 50190 poke917,15:sys50182,v$(5)
  522. 50195 poke917,1:sys50182,g$:v$(6)=g$+"."
  523. 50196 sys50182,g$:v$(6)=v$(6)+g$+"."
  524. 50197 poke917,3:sys50182,g$:v$(6)=v$(6)+g$
  525. 50200 poke917,9:sys50182,pa$:v$(7)="geschuetzt"
  526. 50201 ifba$="--"orba$="of"thenv$(7)=pa$
  527. 50205 poke917,1:sys50182,v$(8)
  528. 50210 poke917,9:sys50182,v$(9)
  529. 50215 poke917,9:sys50182,v$(10)
  530. 50220 poke917,19:sys50182,v$(11)
  531. 50225 sys50182,v$(12)
  532. 50226 sys50182,v$(13)
  533. 50227 sys50182,v$(14)
  534. 50230 as=asc(left$(v$(11),1))
  535. 50240 ifas>64andas<91thenas=as+32:v$(11)=chr$(as)+right$(v$(11),len(v$(11))-1)
  536. 50250 a$=mid$(v$(12),5,1)
  537. 50260 ifa$="-"thenv$(20)="[198]rau"
  538. 50270 ifa$="0"thenv$(20)="[198]irma"
  539. 50280 ifa$="+"thenv$(20)="[200]err"
  540. 50290 a$=left$(v$(12),1)
  541. 50300 ifv$(20)="[198]irma"thenv$(21)="[211]ehr geehrte [196]amen und [200]erren,":goto50500
  542. 50310 ifa$="+"then50400
  543. 50320 ifa$="-"then50460
  544. 50321 ifa$="0"then50450
  545. 50330 ifv$(20)="[198]rau"thenv$(21)="[211]ehr geehrte [198]rau "+v$(2)+","
  546. 50340 ifv$(20)="[200]err"thenv$(21)="[211]ehr geehrter [200]err "+v$(2)+","
  547. 50350 goto50500
  548. 50400 ifv$(20)="[198]rau"thenv$(21)="[204]iebe "+v$(1)+","
  549. 50410 ifv$(20)="[200]err"thenv$(21)="[204]ieber "+v$(1)+","
  550. 50420 goto50500
  551. 50450 v$(21)="[200]allo "+v$(1)+",":goto50500
  552. 50460 v$(21)=v$(1)+",":goto50500
  553. 50500 v$(22)=ba$
  554. 50510 ifv$(20)="[198]irma"thenv$(23)="[205]it freundlichen [199]r[184][166]en,":goto50600
  555. 50520 ifmid$(v$(12),9,1)="+"thenv$(23)="[194]ussi,":goto50600
  556. 50530 ifa$="+"thenv$(23)="[194]is bald, [196]ein"
  557. 50540 ifa$="f"thenv$(23)="[200]ochachtungsvoll,"
  558. 50550 ifa$="-"thenv$(23)=""
  559. 50560 ifa$="0"thenv$(23)="[196]ein"
  560. 50600 ifv$(20)="[198]irma"thenv$(24)="[205]it freundlichen [199]r[184][166]en,":goto50600
  561. 50620 ifmid$(v$(12),9,1)="+"thenv$(24)="[194]ussi,":goto50700
  562. 50630 ifa$="+"thenv$(24)="[194]is bald, [196]eine"
  563. 50640 ifa$="f"thenv$(24)="[200]ochachtungsvoll,"
  564. 50650 ifa$="-"thenv$(24)=""
  565. 50660 ifa$="0"thenv$(24)="[196]eine"
  566. 50700 rem
  567. 50999 return
  568.