home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Public_3_1991_Stony_Soft_de_Side_B.d64 / q.etikettendruck (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  625 lines
  1. 1000 goto 2050
  2. 1010 rem
  3. 1020 rem
  4. 1030 rem         etiketten 64
  5. 1040 rem         ------------
  6. 1050 rem
  7. 1060 rem programm zum beschriften von
  8. 1070 rem endlos - etiketten der groesse
  9. 1080 rem        88.5 * 35.7 mm
  10. 1090 rem
  11. 1100 rem  geschrieben von
  12. 1110 rem
  13. 1120 rem      1985  by  g. zinner
  14. 1130 rem                schmale str.3
  15. 1140 rem                4300 essen 11
  16. 1150 rem
  17. 1160 rem  freie software !
  18. 1170 rem   ---------------------
  19. 1180 rem   --- allg. u'progs ---
  20. 1190 rem   ---------------------
  21. 1200 rem
  22. 1210 rem
  23. 1220 rem      menuefeld loeschen
  24. 1230 rem
  25. 1240 print left$(cd$,17)
  26. 1250 for i=0 to 6
  27. 1260 print le$
  28. 1270 next
  29. 1280 return
  30. 1290 :
  31. 1300 rem      cursor setzen
  32. 1310 :
  33. 1320 if s=29 then s=28
  34. 1330 a=1024+((r+3)*40)+s+5
  35. 1340 if peek(a)>127 then poke a,peek(a)-128:return
  36. 1350 poke a,peek(a)+128:return
  37. 1360 :
  38. 1370 rem      schreibfeld loeschen
  39. 1380 :
  40. 1390 print left$(cd$,4)
  41. 1400 fori=1 to 11
  42. 1410 print left$(cr$,6)left$(le$,28)
  43. 1420 next
  44. 1430 return
  45. 1440 :
  46. 1450 rem      string t$ zusammenbauen
  47. 1460 :
  48. 1470 rv=0:t$=""
  49. 1480 for i=l to l+27
  50. 1490 a=peek(i)
  51. 1500 if rv=0 and a>128 then t$=t$+"":rv=1
  52. 1510 if rv=1 and a<128 then t$=t$+"[146]":rv=0
  53. 1520 if a>128 then a=a-128
  54. 1530 if a<32 then a=a+64:goto 1560
  55. 1540 if a>63 and a<96 then a=a+32:goto 1560
  56. 1550 if a>96 then a=a+64
  57. 1560 t$=t$+chr$(a)
  58. 1570 next
  59. 1580 return
  60. 1590 :
  61. 1600 rem      disketten fehler
  62. 1610 :
  63. 1620 ue=0
  64. 1630 input#15,e,e$,t,t
  65. 1640 if e=0 then return
  66. 1650 print left$(cd$,25)left$(cr$,2);
  67. 1660 :
  68. 1670 if e<>63 then 1730
  69. 1680 print e;e$;" - aendern (j/n)";
  70. 1690 get a$:if a$="" then 1690
  71. 1700 if a$<>"j" then 1770
  72. 1710 ue=1:goto 1770
  73. 1720 :
  74. 1730 print e;e$;" - <return>";
  75. 1740 get a$
  76. 1750 if a$<>chr$(13) then 1740
  77. 1760 :
  78. 1770 print left$(cd$,25)left$(cr$,2)left$(le$,37);
  79. 1780 return
  80. 1790 :
  81. 1800 rem      dateinamen eingeben
  82. 1810 :
  83. 1820 r=19:s=-1:en=0:de=0
  84. 1830 gosub 1320
  85. 1840 get a$:if a$="" then 1840
  86. 1850 gosub 1320
  87. 1860 if a$=chr$(13) then 1940
  88. 1870 if a$=chr$(20) then de=1:goto 1940
  89. 1880 if a$=chr$(140)then en=1:goto 1940
  90. 1890 if a$<chr$(32) then 1830
  91. 1900 if a$>chr$(94) then 1830
  92. 1910 s=s+1:if s>m then s=m
  93. 1920 print left$(cd$,r+4)left$(cr$,s+4);
  94. 1930 print a$;:goto 1830
  95. 1940 return
  96. 1950 :
  97. 1960 :
  98. 1970 rem   -------------------
  99. 1980 rem   --- arbeitsfeld ---
  100. 1990 rem   -------------------
  101. 2000 :
  102. 2010 :
  103. 2020 :
  104. 2030 rem      bildschirmfarben
  105. 2040 :
  106. 2050 poke 53280,0:poke 53281,0:print""
  107. 2060 :
  108. 2070 rem      alle tasten repeat
  109. 2080 :
  110. 2090 poke 650,128
  111. 2100 :
  112. 2110 rem      shift+commodore aus
  113. 2120 :
  114. 2130 print chr$(8)
  115. 2140 :
  116. 2150 rem      feste variablen
  117. 2160 :
  118. 2170 cr$=""
  119. 2180 cd$=""
  120. 2190 le$="                                       "
  121. 2200 t$="":n=0
  122. 2210 :
  123. 2220 rem      bildschirm aufbauen
  124. 2230 :
  125. 2240 print "[147]   etiketten 64"spc(9)"(w)1985 by gz":print
  126. 2250 print " [213][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][201]"
  127. 2260 print " [221]   [176][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][174]   [221]"
  128. 2270 for i=1 to 11
  129. 2280 print " [221]  -[221]"spc(28)"[221]-  [221]"
  130. 2290 next i
  131. 2300 print " [221]   [173][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][189]   [221]"
  132. 2310 print " [202][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][203]"
  133. 2320 :
  134. 2330 gosub 1390
  135. 2340 :
  136. 2350 rem      menue anzeigen
  137. 2360 :
  138. 2370 gosub 1240
  139. 2380 print left$(cd$,17)
  140. 2390 print "   [164][164][164][164][164][164][164]"
  141. 2400 print "    menue [146]"
  142. 2410 print "   [164][164][164][164]                [164][164][164][164]"
  143. 2420 print "    f1 [146] editieren       f2 [146] directory"
  144. 2430 print "    f3 [146] drucken         f4 [146] disk com."
  145. 2440 print "    f5 [146] speichern      [164][164][164][164]"
  146. 2450 print "    f7 [146] laden           f8 [146] ende"
  147. 2460 :
  148. 2470 get a$:if a$="" then 2470
  149. 2480 if a$<"[133]" or a$>"[140]" then 2470
  150. 2490 :
  151. 2500 on asc(a$)-132 goto 2590,6790,3990,4410,4820,5250,2370,6580
  152. 2510 goto 2370
  153. 2520 :
  154. 2530 :
  155. 2540 rem   -----------------
  156. 2550 rem   --- editieren ---
  157. 2560 rem   -----------------
  158. 2570 :
  159. 2580 :
  160. 2590 gosub 1240
  161. 2600 print left$(cd$,17)
  162. 2610 print "   [164][164][164][164][164][164][164][164][164][164][164]"
  163. 2620 print "    editieren [146]"
  164. 2630 print "   [164][164][164][164]"spc(9)"[164][164][164]"
  165. 2640 print "    f1 [146] revers >aus[146]<"
  166. 2650 print "    f3 [146] breite >nrm[146]<   [164][164][164][164]"
  167. 2660 print "    f5 [146] zeile loesch    f6 [146] zeile einf"
  168. 2670 print "                        f8 [146] ende"
  169. 2680 br=0:rv=0
  170. 2690 :
  171. 2700 rem      cursor positionieren
  172. 2710 :
  173. 2720 r=1:s=1
  174. 2730 print left$(cd$,5)left$(cr$,6);
  175. 2740 :
  176. 2750 gosub 1320
  177. 2760 geta$:ifa$="" or a$=chr$(34)then2760
  178. 2770 gosub 1320
  179. 2780 :
  180. 2790 if a$>chr$(31) and a$<chr$(128) then gosub 3840:goto 2750
  181. 2800 if a$>chr$(160)then gosub 3840:goto 2750
  182. 2810 if a$=chr$(140)then 2370
  183. 2820 if a$=chr$(133)then gosub 3460:goto 2750
  184. 2830 if a$=chr$(134)then gosub 3520:goto 2750
  185. 2840 if a$=chr$(135)then gosub 3580:goto 2750
  186. 2850 if a$=chr$(139)then gosub 3710:goto 2750
  187. 2860 if a$=chr$(19) then 2720
  188. 2870 if a$=chr$(147)then gosub 1390:goto 2720
  189. 2880 if a$=chr$(17) then gosub 3000:goto 2750
  190. 2890 if a$=chr$(145)then gosub 3050:goto 2750
  191. 2900 if a$=chr$(29) then gosub 3100:goto 2750
  192. 2910 if a$=chr$(157)then gosub 3150:goto 2750
  193. 2920 if a$=chr$(148)then gosub 3260:goto 2750
  194. 2930 if a$=chr$(20) then gosub 3360:goto 2750
  195. 2940 if a$=chr$(13) then gosub 3200:goto 2750
  196. 2950 :
  197. 2960 goto 2750
  198. 2970 :
  199. 2980 rem      cursor down
  200. 2990 :
  201. 3000 r=r+1:if r>11 then r=1
  202. 3010 return
  203. 3020 :
  204. 3030 rem      cursor up
  205. 3040 :
  206. 3050 r=r-1:if r<1 then r=11
  207. 3060 return
  208. 3070 :
  209. 3080 rem      cursor right
  210. 3090 :
  211. 3100 s=s+1:if s>28 then s=1
  212. 3110 return
  213. 3120 :
  214. 3130 rem      cursor left
  215. 3140 :
  216. 3150 s=s-1:if s<1 then s=28
  217. 3160 return
  218. 3170 :
  219. 3180 rem      return
  220. 3190 :
  221. 3200 r=r+1:if r>11 then r=1
  222. 3210 s=1
  223. 3220 return
  224. 3230 :
  225. 3240 rem      insert
  226. 3250 :
  227. 3260 if s=28 then return
  228. 3270 a=1024+((r+3)*40)+s+6:e=a+27-s
  229. 3280 for i=e to a step-1
  230. 3290 poke i,peek(i-1)
  231. 3300 next
  232. 3310 poke i,32
  233. 3320 return
  234. 3330 :
  235. 3340 rem      delete
  236. 3350 :
  237. 3360 if s=28 then return
  238. 3370 a=1024+((r+3)*40)+s+5:e=a+27-s
  239. 3380 for i=a to e
  240. 3390 poke i,peek(i+1)
  241. 3400 next
  242. 3410 poke i,32
  243. 3420 return
  244. 3430 :
  245. 3440 rem      revers an / aus
  246. 3450 :
  247. 3460 print left$(cd$,21)spc(16)"";
  248. 3470 if rv=0 then print"an [146]":rv=1:return
  249. 3480 if rv=1 then print"aus[146]":rv=0:return
  250. 3490 :
  251. 3500 rem      breitschrift nrm/dop
  252. 3510 :
  253. 3520 print left$(cd$,22)spc(16)"";
  254. 3530 if br=0 then print"dop[146]":br=1:return
  255. 3540 if br=1 then print"nrm[146]":br=0:return
  256. 3550 :
  257. 3560 rem      zeile loeschen
  258. 3570 :
  259. 3580 a=1024+((r+3)*40)+s+5:e=a+28-s
  260. 3590 if r=11 then j=a:goto 3660
  261. 3600 a1=(10-r)*40+a
  262. 3610 for j=a to a1 step 40
  263. 3620 for i=j to e
  264. 3630 poke i,peek(i+40)
  265. 3640 next:e=e+40
  266. 3650 next
  267. 3660 for i=j to e:poke i,32:next
  268. 3670 return
  269. 3680 :
  270. 3690 rem      zeile einfuegen
  271. 3700 :
  272. 3710 a=1024+((r+3)*40)+s+5+40
  273. 3720 if r=11 then return
  274. 3730 a1=(10-r)*40+a:e=a1+28-s
  275. 3740 for j=a1 to a step -40
  276. 3750 for i=j to e
  277. 3760 poke i,peek(i-40)
  278. 3770 next:e=e-40
  279. 3780 next
  280. 3790 for i=j to e:poke i,32:next
  281. 3800 return
  282. 3810 :
  283. 3820 rem      zeichen setzen
  284. 3830 :
  285. 3840 if br=1 then s=s+1
  286. 3850 s=s+1:if s>29 then s=29
  287. 3860 print left$(cd$,r+4)left$(cr$,s+4);
  288. 3870 if rv=1 then print"";
  289. 3880 if rv=0 then print"[146]";
  290. 3890 if br=1 then print"[157]_";
  291. 3900 print a$;
  292. 3910 return
  293. 3920 :
  294. 3930 :
  295. 3940 rem   -----------------
  296. 3950 rem   --- speichern ---
  297. 3960 rem   -----------------
  298. 3970 :
  299. 3980 :
  300. 3990 gosub 1240
  301. 4000 print left$(cd$,17)
  302. 4010 print "   [164][164][164][164][164][164][164][164][164][164][164]"spc(9)"[164][164][164][164]"
  303. 4020 print "    speichern [146]"spc(9)" f8 [146] ende":print
  304. 4030 print "   >dateiname eingeben"
  305. 4040 print:print "   >               <";
  306. 4050 print "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  307. 4060 :
  308. 4070 rem      dateinamen eingeben
  309. 4080 :
  310. 4090 if ue=1 then d$="@:"+d$:goto4220
  311. 4100 :
  312. 4110 m=14:gosub 1820
  313. 4120 if en=1 then 2370
  314. 4130 if de=1 then 4000
  315. 4140 :
  316. 4150 l=1908:gosub 1470
  317. 4160 d$=left$(t$,15)+"[166]"
  318. 4170 :
  319. 4180 rem      bild abspeichern
  320. 4190 :
  321. 4200 close 15
  322. 4210 :
  323. 4220 open 15,8,15:open 8,8,8,d$+",s,w"
  324. 4230 gosub 1620:if e<>0 then close8:close15:goto 4090
  325. 4240 for l=1190 to 1590 step 40
  326. 4250 gosub 1470
  327. 4260 :
  328. 4270 t$="[168]"+t$
  329. 4280 :
  330. 4290 print#8,t$
  331. 4300 next l
  332. 4310 close 8:close 15
  333. 4320 :
  334. 4330 t$="":goto 2370
  335. 4340 :
  336. 4350 :
  337. 4360 rem   -------------
  338. 4370 rem   --- laden ---
  339. 4380 rem   -------------
  340. 4390 :
  341. 4400 :
  342. 4410 gosub 1240
  343. 4420 print left$(cd$,17)
  344. 4430 print "   [164][164][164][164][164][164][164]"spc(13)"[164][164][164][164]"
  345. 4440 print "    laden [146]"spc(13)" f8 [146] ende":print
  346. 4450 print "   >dateiname eingeben"
  347. 4460 print:print "   >               <";
  348. 4470 print "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";left$(t$,15)
  349. 4480 :
  350. 4490 rem      dateinamen eingeben
  351. 4500 :
  352. 4510 m=14:gosub 1820
  353. 4520 if en=1 then 2370
  354. 4530 if de=1 then 4420
  355. 4540 :
  356. 4550 l=1908:gosub 1470
  357. 4560 d$=left$(t$,15)+"[166]"
  358. 4570 :
  359. 4580 rem      bild holen
  360. 4590 :
  361. 4600 close 15
  362. 4610 :
  363. 4620 gosub 1390:r=1
  364. 4630 open 15,8,15:open 8,8,8,d$+",s,r"
  365. 4640 gosub 1620:if e<>0 then close8:close15:goto 4510
  366. 4650 input#8,t$
  367. 4660 :
  368. 4670 t$=right$(t$,len(t$)-1)
  369. 4680 :
  370. 4690 print left$(cd$,4+r)left$(cr$,6)t$
  371. 4700 r=r+1
  372. 4710 if r<12 then 4650
  373. 4720 close8:close15
  374. 4730 :
  375. 4740 t$="":goto 2370
  376. 4750 :
  377. 4760 :
  378. 4770 rem   -----------------
  379. 4780 rem   --- directory ---
  380. 4790 rem   -----------------
  381. 4800 :
  382. 4810 :
  383. 4820 gosub 1240
  384. 4830 print left$(cd$,17)
  385. 4840 print "   [164][164][164][164][164][164][164][164][164][164][164]"
  386. 4850 print "    directory [146]"
  387. 4860 print "   [164][164][164][164]"spc(15)"[164][164][164][164]"
  388. 4870 print "    f1 [146] weiter         f8 [146] ende"
  389. 4880 print:print "   >               <";
  390. 4890 :
  391. 4900 rem  rem bildfiles holen
  392. 4910 :
  393. 4920 close 15
  394. 4930 :
  395. 4940 open 15,8,15
  396. 4950 open 1,8,0,"$0"
  397. 4960 :
  398. 4970 gosub 1620:if e<>0 then close 1:close 15:goto 4820
  399. 4980 :
  400. 4990 get#1,a$,a$,a$,a$,a$,a$
  401. 5000 :
  402. 5010 t$=""
  403. 5020 get#1,a$:if st<>0 then 5150
  404. 5030 if a$<>chr$(34) then 5020
  405. 5040 get#1,a$:if a$<>chr$(34) then t$=t$+a$:goto 5040
  406. 5050 if right$(t$,1)<>chr$(166) then 5120
  407. 5060 :
  408. 5070 print left$(cd$,23)left$(cr$,4)left$(t$,15)
  409. 5080 :
  410. 5090 get a$:if a$="" then 5090
  411. 5100 if a$=chr$(140) then 5150
  412. 5110 :
  413. 5120 get#1,a$:if a$<>"" then 5120
  414. 5130 if st=0 then 5010
  415. 5140 :
  416. 5150 close 1:close 15
  417. 5160 :
  418. 5170 goto 2370
  419. 5180 :
  420. 5190 :
  421. 5200 rem   -------------------
  422. 5210 rem   --- diskcomands ---
  423. 5220 rem   -------------------
  424. 5230 :
  425. 5240 :
  426. 5250 gosub 1240
  427. 5260 print left$(cd$,17)
  428. 5270 print "   [164][164][164][164][164][164][164][164][164][164][164][164][164][164]"spc(7)"[164][164][164][164]"
  429. 5280 print "    disk-comands [146]"spc(7)" f8 [146] ende"
  430. 5290 print "   [164][164][164]"spc(18)"[164][164][164]"
  431. 5300 print "    n [146] new (format.)     s [146] scratch"
  432. 5310 print "    v [146] validate          r [146] rename"
  433. 5320 print "    i [146] initialize"
  434. 5330 :
  435. 5340 close 15
  436. 5350 :
  437. 5360 get a$:if a$="" then 5360
  438. 5370 :
  439. 5380 if a$=chr$(140) then 2370
  440. 5390 if a$="n" then 5480
  441. 5400 if a$="s" then 5850
  442. 5410 if a$="v" or a$="i" then 6040
  443. 5420 if a$="r" then 6140
  444. 5430 :
  445. 5440 goto 5360
  446. 5450 :
  447. 5460 rem      new (formatieren)
  448. 5470 :
  449. 5480 gosub 1240
  450. 5490 print left$(cd$,17)
  451. 5500 print "   [164][164][164]"
  452. 5510 print "    n [146] new (formatieren)":print
  453. 5520 print "   >diskettenname":print
  454. 5530 print "   >                <";
  455. 5540 print "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  456. 5550 :
  457. 5560 m=15:gosub 1820
  458. 5570 if en=1 then 2370
  459. 5580 if de=1 then 5490
  460. 5590 :
  461. 5600 l=1908:gosub 1470
  462. 5610 if left$(t$,1)=" " then 2370
  463. 5620 d$=left$(t$,16)
  464. 5630 :
  465. 5640 print left$(cd$,21)left$(cr$,25)", id"
  466. 5650 print:print spc(26) ">  <"
  467. 5660 r=19:s=22:en=0:de=0:m=24
  468. 5670 gosub 1830
  469. 5680 if en=1 then 2370
  470. 5690 if de=1 then 5640
  471. 5700 :
  472. 5710 l=1931:gosub 1470
  473. 5720 if left$(t$,1)=" " then 2370
  474. 5730 i$=left$(t$,2)
  475. 5740 :
  476. 5750 print left$(cd$,20) "   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  477. 5760 print "    neue diskette eingelegt (j/n) "
  478. 5770 :
  479. 5780 get a$:if a$="" then 5780
  480. 5790 if a$<>"j" then 2370
  481. 5800 :
  482. 5810 d$="n0:"+d$+","+i$:goto 6450
  483. 5820 :
  484. 5830 rem      scratchen
  485. 5840 :
  486. 5850 gosub 1240
  487. 5860 print left$(cd$,17)
  488. 5870 print "   [164][164][164]"
  489. 5880 print "    s [146] scratch":print
  490. 5890 print "   >dateiname eingeben":print
  491. 5900 print "   >               <";
  492. 5910 print "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"left$(t$,15);
  493. 5920 :
  494. 5930 m=14:gosub 1820
  495. 5940 if en=1 then 2370
  496. 5950 if de=1 then 5860
  497. 5960 :
  498. 5970 l=1908:gosub 1470
  499. 5980 if left$(t$,1)=" " then 2370
  500. 5990 d$="s0:"+left$(t$,15)+"[166]"
  501. 6000 goto 6450
  502. 6010 :
  503. 6020 rem      validate/initialize
  504. 6030 :
  505. 6040 gosub 1240
  506. 6050 print left$(cd$,17)
  507. 6060 print "   [164][164][164]"
  508. 6070 print "    "a$" [146] validate / initialize":print
  509. 6080 :
  510. 6090 d$=a$+"0"
  511. 6100 goto 6450
  512. 6110 :
  513. 6120 rem      rename
  514. 6130 :
  515. 6140 gosub 1240
  516. 6150 print left$(cd$,17)
  517. 6160 print "   [164][164][164]"
  518. 6170 print "    r [146] rename":print
  519. 6180 print "   >alter dateiname":print
  520. 6190 print "   >               <";
  521. 6200 print "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"left$(t$,15);
  522. 6210 :
  523. 6220 m=14:gosub 1820
  524. 6230 if en=1 then 2370
  525. 6240 if de=1 then 6150
  526. 6250 :
  527. 6260 l=1908:gosub 1470
  528. 6270 da$=left$(t$,15)+"[166]"
  529. 6280 :
  530. 6290 print left$(cd$,19)
  531. 6300 print "    [164][164][164][164][164]"
  532. 6310 print "   >neuer[146] dateiname":print
  533. 6320 print "   >               <";
  534. 6330 print "[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  535. 6340 m=14:gosub 1820
  536. 6350 if en=1 then 2370
  537. 6360 if de=1 then 6290
  538. 6370 :
  539. 6380 l=1908:gosub 1470
  540. 6390 d$=left$(t$,15)+"[166]"
  541. 6400 :
  542. 6410 d$="r0:"+d$+"="+da$
  543. 6420 :
  544. 6430 rem      diskbefehl ausfuehren
  545. 6440 :
  546. 6450 open 15,8,15
  547. 6460 gosub 1620:if e<>0 then close 15:goto 2370
  548. 6470 print#15,d$
  549. 6480 gosub 1620:if e<>0 then close 15
  550. 6490 :
  551. 6500 t$="":goto 2370
  552. 6510 :
  553. 6520 :
  554. 6530 rem   --------------------
  555. 6540 rem   --- prog beenden ---
  556. 6550 rem   --------------------
  557. 6560 :
  558. 6570 :
  559. 6580 gosub 1240
  560. 6590 print left$(cd$,17)
  561. 6600 print "   [164][164][164][164][164][164]"
  562. 6610 print "    ende [146]":print
  563. 6620 print "   sind sie sicher (j/n) :"
  564. 6630 get a$:if a$="" then 6630
  565. 6640 if a$<>"j" then 2370
  566. 6650 print "[147]ok - bis bald!":end
  567. 6660 :
  568. 6670 :
  569. 6680 rem   ----------------------
  570. 6690 rem   ---    drucken     ---
  571. 6700 rem   ----------------------
  572. 6710 rem   - 1526 mit neuem rom -
  573. 6720 rem   -      im 1525 modus -
  574. 6730 rem   -                    -
  575. 6740 rem   - chr$(14)=breit ein -
  576. 6750 rem   - chr$(15)=breit aus -
  577. 6760 rem   ----------------------
  578. 6770 :
  579. 6780 :
  580. 6790 gosub 1240
  581. 6800 print left$(cd$,17)
  582. 6810 print "   [164][164][164][164][164][164][164][164][164]"
  583. 6820 print "    drucken [146]"
  584. 6830 print:print "   drucker eingeschaltet (j/n) : "
  585. 6840 get a$:if a$="" then 6840
  586. 6850 if a$<>"j" then goto 2370
  587. 6860 :
  588. 6870 rem      druckkanal oeffnen
  589. 6880 :
  590. 6890 open 3,4
  591. 6900 :
  592. 6910 rem      zeilenabstand = 0
  593. 6920 :
  594. 6930 open 6,4,6:print#6,chr$(20):close 6
  595. 6940 :
  596. 6950 rem      zeilen holen
  597. 6960 :
  598. 6970 for l=1190 to 1590 step 40
  599. 6980 gosub 1470
  600. 6990 :
  601. 7000 rem      druckstring erstellen
  602. 7010 :
  603. 7020 for j=1 to len(t$)
  604. 7030 a$=mid$(t$,j,1)
  605. 7040 if a$<>"_" then print#3,a$;:goto7080
  606. 7050 print#3,chr$(14);
  607. 7060 j=j+1:a$=mid$(t$,j,1)
  608. 7070 print#3,a$;chr$(15);
  609. 7080 next j
  610. 7090 :
  611. 7100 rem      string drucken
  612. 7110 :
  613. 7120 print#3
  614. 7130 next l
  615. 7140 :
  616. 7150 rem      zeilenvorschub
  617. 7160 :
  618. 7170 for i=1 to 5:print#3:next i
  619. 7180 :
  620. 7190 :    rem druckkanal schliessen
  621. 7200 :
  622. 7210 close 3
  623. 7220 :
  624. 7230 t$="":goto 2370
  625.