home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 7 / Tiger_Disk_007_19xx_Tiger-Crew-Disk_de_Side_B.d64 / adress-etiketten (.txt) next >
Commodore BASIC  |  2023-02-26  |  5KB  |  162 lines
  1. 5 poke53280,6:poke53281,6:poke646,15:printchr$(14)
  2. 10 print"[147]":dima$(100,4),b$(50,4),s(90):gosub150:goto100
  3. 99 data *
  4. 100 print"[147][211]tehen bereits [196]aten im [208]rogramm ?"
  5. 101 geta$:ifa$<>"j"anda$<>"n"then101
  6. 102 ifa$="n"then995
  7. 103 print"[205]oechtest [196]u":print"1) diese [196]aten verwenden":print"2) [196]aten neu eingeben ?"
  8. 104 geta$:ifa$<>"1"anda$<>"2"then104
  9. 105 ifa$="2"thenz=1:goto995
  10. 107 reada$(q,1):ifa$(q,1)="*"then110
  11. 108 forl=2to4:reada$(q,l):next
  12. 109 q=q+1:goto107
  13. 110 q=q-1:ifq<0thenprint" [215][201][212][218][194][207][204][196][160]!":restore:fort=1to1500:next:print"[147]":goto100
  14. 115 ifz1=1thene=q+1:goto1400
  15. 120 print"[205]oechtest [196]u noch weitere [196]aten":print"eingeben ?"
  16. 130 geta$:ifa$<>"j"anda$<>"n"then130
  17. 140 ifa$="j"thene=q+1:goto995
  18. 145 goto2000
  19. 150 print"[147]":fort=1to40:print"*";:next:print"            [197][212][201][203][197][212][212][197][206] - [196][210][213][195][203]"
  20. 151 print"":fort=1to40:print"*";:next:print"                   b y"
  21. 152 print"              [212][201][199][197][210] - [195][210][197][215]"
  22. 153 print"[218]um [194]edrucken von [197]ndlos-[193]dressetiketten"
  23. 154 print"[145]    im [198]ormat    88,9  x  36,0  mm !"
  24. 158 poke198,0:wait198,1:poke198,0
  25. 159 print"[147][205]oechtest [196]u die [193]nleitung lesen ?"
  26. 160 geta$:ifa$<>"j"anda$<>"n"then160
  27. 170 ifa$="n"thenreturn
  28. 200 print"[147][196]u kannst gleich anschliessend"
  29. 210 print"die [193]nschriften von insgesamt":print"   6 [208]ersonen  eingeben."
  30. 211 print"[194]ei nochmaligem [208]rogrammstart sind noch"
  31. 212 print"bis insgesamt 10 [197]ingaben moeglich. -"
  32. 213 print"[196]afuer dann '[196][193][212][197][206] [214][197][210][215][197][206][196][197][206]' und":print"'[215][197][201][212][197][210][197] [196][193][212][197][206] [197][201][206][199][197][194][197][206]'";
  33. 214 print" anwaehlen!"
  34. 220 print"[196]eine [197]ingaben beendest [196]u, wenn [196]u"
  35. 230 print"bei [193][206][210][197][196][197]  ' _ '  oder ' ^ '  drueckst."
  36. 235 poke198,0:wait198,1:poke198,0:print"[147]"
  37. 240 print"[194]ei '_' beendet sich das [208]rogramm,"
  38. 250 print"und es erscheinen einige [218]eilen"
  39. 260 print"auf dem [194]ildschirm."
  40. 270 print"[196]ruecke dann nach [193]ufforderung"
  41. 280 print"(ev. mehrfach...) die     [210][197][212][213][210][206]-[212]aste."
  42. 290 print"[196]ie von [196]ir eingegebenen [196]aten werden"
  43. 300 print"dadurch in's [208]rogramm uebernommen -"
  44. 310 print"und das 'neue [208]rogramm' wird unter dem"
  45. 320 print"[206]amen  '[196]ruck + [193]ddis'  ge[211][193][214][197]t."
  46. 325 poke198,0:wait198,1:poke198,0:print"[147]"
  47. 330 print"[193]chte bitte darauf, dass eine [196]isk mit"
  48. 340 print"ausreichend freien [194]locks eingelegt ist,"
  49. 341 print"und dass sich kein [208]rogramm mit diesem"
  50. 342 print"[206]amen auf der [196]isk befindet!"
  51. 350 print"[196]u kannst danach sofort mit dem [208]rogramm"
  52. 360 print"weiterarbeiten - und [196]u hast fuer die"
  53. 370 print"zukuenftige [214]erwendung durch das [204]aden"
  54. 380 print"des 'neuen [208]rogramms' stets die [196]aten":print"direkt zur [214]erfuegung!"
  55. 385 poke198,0:wait198,1:poke198,0:print"[147]"
  56. 390 print"[196]rueckst [196]u zum [194]eenden der [197]ingaben":print"  ' ^ ',"
  57. 400 print"kommst [196]u direkt zum [196][210][213][195][203]."
  58. 410 print"[196]ie [196]aten werden in diesem [198]all"
  59. 420 print"[206][201][195][200][212] [213][197][194][197][210][206][207][205][205][197][206]!"
  60. 430 print"[205]oechtest [196]u nicht [193][204][204][197] [193]dressen drucken"
  61. 440 print"wird von [196]ir die [197]ingabe der [206][213][205][205][197][210]"
  62. 450 print"der gewuenschten [193]dresse erwartet."
  63. 460 print"[196]eine [193]uswahl beendest [196]u wieder"
  64. 470 print"mit  ' _ ' !"
  65. 480 poke198,0:wait198,1:poke198,0:print"[147]"
  66. 490 print"        [193][160][195][160][200][160][212][160][213][160][206][160][199] !!!"
  67. 500 print"[196]as erste [197]ndlos-[197]tikett bitte"
  68. 510 print"genau buendig einstellen !!!!!"
  69. 800 poke198,0:wait198,1:poke198,0:return
  70. 995 print"[147]":x$=""
  71. 996 y$=""
  72. 999 rem eingabe
  73. 1000 print"[193]nrede: "
  74. 1001 print"(1=[200]err/2=[198]rau/3=[198]irma/4=eigene [197]ingabe)"
  75. 1002 print"[214]orname, [206]ame "
  76. 1003 print"[211]trasse "
  77. 1004 print"[208][204][218], [215]ohnort "
  78. 1009 poke214,4:poke211,16:sys58640:poke204,0
  79. 1010 geta$:ifa$=""then1010
  80. 1011 poke204,128:ifa$="_"then1200
  81. 1012 ifa$="^"thene=e-1:goto2000
  82. 1015 a=val(a$):ifa<1ora>4then1009
  83. 1020 ifa=1thena$(e,1)="[200]err "
  84. 1030 ifa=2thena$(e,1)="[198]rau "
  85. 1040 ifa=3thena$(e,1)="[198]irma"
  86. 1045 ifa>0anda<4thenprintleft$(x$,5);y$;"  ";a$(e,1)
  87. 1050 ifa=4thenprintleft$(x$,5);y$;:inputa$(e,1)
  88. 1065 printleft$(x$,11);y$;:inputa$(e,2)
  89. 1075 printleft$(x$,14);y$;:inputa$(e,3)
  90. 1085 printx$;y$;:inputa$(e,4)
  91. 1086 v=len(a$(e,1))
  92. 1087 fors=2to4:v=v+len(a$(e,s)):next:ifv>58thenprint"[218][213] [204][193][206][199]!":a=4:goto1050
  93. 1088 ifv<20thenforc=vto22:a$(e,1)=a$(e,1)+" ":next
  94. 1090 print"[197]ingabe richtig ([202]/[206]) ? ";:poke204,0
  95. 1100 geta$:ifa$<>"j"anda$<>"n"then1100
  96. 1110 poke204,128:ifa$="n"thena=4:goto1050
  97. 1120 print"[147]":e=e+1:goto1000
  98. 1200 ifz=1then1300
  99. 1205 e=e-1:print"[147]";
  100. 1210 forx=0toe:printx+20;"data";:fory=1to3
  101. 1220 printchr$(34);a$(x,y);chr$(34);",";:nexty:printchr$(34);a$(x,4);chr$(34)
  102. 1230 nextx:printx+20;"data *"
  103. 1231 print"save";chr$(34);"druck + addis";chr$(34);",8"
  104. 1235 print"run"
  105. 1240 ife>5thenprint"bitte  [210][197][212][213][210][206]  druecken!"
  106. 1250 poke631,19:k=632
  107. 1251 ife<7thenform=0toe+3:pokek+m,13:next:goto1270
  108. 1260 ife<10thenform=0toe:pokek+m,13:next
  109. 1270 poke198,m+1:end
  110. 1300 print"[147]           [193] [195] [200] [212] [213] [206] [199] !"
  111. 1310 print"  [197]s stehen [196]aten im [208]rogramm !"
  112. 1320 print"[196]iese [196]aten sind [206][201][195][200][212] eingelesen,"
  113. 1330 print"bei [198]ortsetzung dieses [208]rogrammteils"
  114. 1340 print"werden die ersten";e;"[196]aten":print" [213] [197] [194] [197] [210] [211] [195] [200] [210] [201] [197] [194] [197] [206] !!!"
  115. 1350 print"  [212][210][207][212][218][196][197][205] [215][197][201][212][197][210] ????"
  116. 1360 geta$:ifa$<>"j"anda$<>"n"then1360
  117. 1370 ifa$="n"then1390
  118. 1380 goto1205
  119. 1390 d1=1:fork1=0toe-1:fork2=1to4:b$(d1,k2)=a$(k1,k2):nextk2:d1=d1+1:nextk1
  120. 1396 z1=1:goto100
  121. 1400 forz3=1tod1-1:forz4=1to4:a$(e,z4)=b$(z3,z4):nextz4:e=e+1:nextz3
  122. 1410 goto1205
  123. 2000 ife>qthenq=e
  124. 2010 print"[147]":forh=0toq:printh;:printa$(h,2):next
  125. 2020 print"    [193]lle     [193]dressen drucken ?"
  126. 2030 geta$:ifa$<>"j"anda$<>"n"then2030
  127. 2040 ifa$="j"thensa=q+1:forio=1tosa:s(io)=io-1:next:goto3000
  128. 2050 sa=1
  129. 2055 ifsa>9thenprint"[145]";sa;:input"[215]elche**[157][157][157][157]";s$:goto2065
  130. 2060 print"[145]";sa;:input" [215]elche*[157][157][157]";s$
  131. 2065 ifs$="_"then2090
  132. 2066 ifasc(s$)<48orasc(s$)>57then2055
  133. 2070 s(sa)=val(s$):ifs(sa)>qthen2055
  134. 2080 sa=sa+1:goto2055
  135. 2090 sa=sa-1:ifsa=0thenprint"[147]":goto1000
  136. 2100 rem
  137. 3000 print "[147]    [196]rucker eingeschaltet ?? "
  138. 3010 gosub20000
  139. 3011 input"[215]ie oft drucken ";u5$
  140. 3012 u5=val(u5$):ifu5<1then100
  141. 3020 open4,4,7:cmd4
  142. 3025 foru6=1tou5
  143. 3030 foru1=1tosa:foru2=1to3
  144. 3040 printspc(5)a$(s(u1),u2):nextu2
  145. 3050 print" ":printspc(5)a$(s(u1),4)
  146. 3060 foru3=1to4:print" ":nextu3
  147. 3061 nextu1
  148. 3062 nextu6
  149. 3063 print#4:close4
  150. 3070 print"[147] [201]st der [196]ruck in [207]rdnung ?"
  151. 3080 geta$:ifa$<>"j"anda$<>"n"then3080
  152. 3090 ifa$="n"then3011
  153. 3100 print"[206][197][213][211][212][193][210][212] [205][201][212]  ' [210][213][206] ' !":end
  154. 20000 a=peek(768)
  155. 20010 open1,4
  156. 20020 poke768,185
  157. 20030 print#1:close1
  158. 20040 poke768,a
  159. 20050 ifst<>-128thenreturn
  160. 20060 print"[196]rucker ist [206][201][195][200][212] eingeschaltet!"
  161. 20080 poke198,0:wait198,1:poke198,0:goto20000
  162.