home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 September / 64er_Magazin_86-09_1986_Markt__Technik_de.d64 / ean-codes (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  124 lines
  1. 1 rem ------------------------------
  2. 2 rem ------- ean 13 / ean 8 -------
  3. 3 rem ------------------------------
  4. 4 rem ------- dirk henckels --------
  5. 5 rem ---- julius-leber-str. 26 ----
  6. 6 rem ------ 4018  langenfeld ------
  7. 7 rem ------ tel. 02173/73369 ------
  8. 8 rem ------------------------------
  9. 9 :
  10. 10 poke53280,0:poke53281,0:poke788,52:poke792,226:poke793,252:gosub65
  11. 11 print"[147][154]","[157][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  12. 12 print,"[157] ean-barcodes  8 / 13 "
  13. 13 printtab(4)"[158]ean-stellenzahl (13 bzw. 8) : [163][163][145][157][157]";
  14. 14 gosub100
  15. 15 print"[150]   anzahl zu druckende etiketten: [163][163][163][145][157][157][157]";
  16. 16 gosub110:n$="4026600":c=7:l=5
  17. 17 ifean=8thenn$=left$(n$,5):c=5:l=2
  18. 18 printtab(14-ean/2)"[153]ean-code:  "n$spc(l+1)"[153]p"
  19. 19 ifean=13thenprinttab(18)"[163][163][163][163][163][163][163][163][163][163][163][163][145][157][157][157][157][157]";
  20. 20 ifean=8thenprint,,"[163][163][163][163][163][163][163][145][157][157]";
  21. 21 gosub119
  22. 22 :
  23. 23 c1=3
  24. 24 forc=ean-1to1step-1
  25. 25 :s=s+(val(mid$(n$,c,1))*c1)
  26. 26 :ifc1=1thenc1=3:goto28
  27. 27 :c1=1
  28. 28 next
  29. 29 p$=right$(str$((int(s/10)+1)*10-s),1)
  30. 30 print" [153]";p$
  31. 31 n$=n$+p$
  32. 32 :
  33. 33 ifean=13thenzs$=zs$(val(left$(n$,1)))+"cccccc"
  34. 34 ifean=8thenzs$="aaaacccc"
  35. 35 :
  36. 36 b$="101"
  37. 37 ifean=13thenforc=2to13:c1=c-1
  38. 38 ifean=8thenforc=1to8:c1=c
  39. 39 :b$=b$+z$(val(mid$(n$,c,1)),asc(mid$(zs$,c1,1))-65)
  40. 40 :if(c=7andean=13)or(c=4andean=8)thenb$=b$+"01010"
  41. 41 next
  42. 42 b$=b$+"101"
  43. 43 :
  44. 44 c=0
  45. 45 forc1=1to95
  46. 46 :iflen(d$(c))=>250thenc=c+1
  47. 47 :ifmid$(b$,c1,1)="1"thend$(c)=d$(c)+f$:goto49
  48. 48 :d$(c)=d$(c)+l$
  49. 49 next
  50. 50 :
  51. 51 open1,4,4:rem g\rlitz-interface ohne umcodierung
  52. 52 rc=17:ifean=8thenrc=12
  53. 53 forc=1toe:print#1,"@"chr$(108)chr$(15);
  54. 54 forc0=1torc:forc1=1to2
  55. 55 print#1,d$(0)d$(1)d$(2);
  56. 56 ifc1=1thenprint#1,"3"chr$(13)chr$(10);:goto58
  57. 57 ifc0<rcthenprint#1,"1"chr$(13)chr$(10);
  58. 58 next:next
  59. 59 :
  60. 60 print#1,"2"chr$(13)chr$(10)"mg";
  61. 61 ifean=8thenprint#1," w1"left$(n$,4)" w0 w1"right$(n$,4);:goto64
  62. 62 print#1,"w1"left$(n$,2)"w0 w1"mid$(n$,3,5)"w0 w1";
  63. 63 print#1,mid$(n$,8,5)"w0 w1"right$(n$,1);
  64. 64 print#1,chr$(13)chr$(10)chr$(10);:next:print#1,"@":close1:run
  65. 65 :
  66. 66 :
  67. 67 : rem unterprogramme
  68. 68 :
  69. 69 : rem vorbereitung & titel
  70. 70 :
  71. 71 printchr$(142)"[147]   [162][162][162][162][162][162][162][162][162][162][162][146][190][162]    [146][162]      [161] [146][161]  [162]  [162]  [162][146]"
  72. 72 print"   [146]          [162] [172][146][190]  [146][188][187] [146][162]    [161] [146][161]  ver[146]sio[146]n"
  73. 73 print"   [146]        [162] [172][146][190]    [146]  [188][187] [146][162]  [161] [146][161]     [146]   [146]"
  74. 74 print"   [162][162][162][162][162][146][190][162] [172][146][190] [162][162][162]  [146]    [188][187] [146][162][161] [146][161]     [146]   [146]"
  75. 75 print"   [146][162][162][162][162][162] [172][146][190]        [146]      [188][187]  [146][161]  [162]  [146][162]  [146][162]"
  76. 76 print"[154]written 1986 by d.henckels"
  77. 77 print,"all rights reserved."
  78. 78 data"0001101","0100111","1110010"
  79. 79 data"0011001","0110011","1100110"
  80. 80 data"0010011","0011011","1101100"
  81. 81 data"0111101","0100001","1000010"
  82. 82 data"0100011","0011101","1011100"
  83. 83 data"0110001","0111001","1001110"
  84. 84 data"0101111","0000101","1010000"
  85. 85 data"0111011","0010001","1000100"
  86. 86 data"0110111","0001001","1001000"
  87. 87 data"0001011","0010111","1110100"
  88. 88 data"aaaaaa","aababb","aabbab","aabbba","abaabb"
  89. 89 data"abbaab","abbbaa","ababab","ababba","abbaba"
  90. 90 dimz$(9,2),zs$(9),d$(2)
  91. 91 forc=0to9:forc1=0to2:readz$(c,c1):next:next
  92. 92 forc=0to9:readzs$(c):next
  93. 93 f$=chr$(255)+chr$(255):f$=f$+f$+f$
  94. 94 l$=chr$(0)+chr$(0):l$=l$+l$+l$
  95. 95 d$(0)=chr$(27)+"*"+chr$(3)+chr$(58)+chr$(2):d$(1)="":d$(2)=""
  96. 96 forc=1to5000:next:poke198,0:wait198,1:return
  97. 97 :
  98. 98 : rem eingabe ean-groesse
  99. 99 :
  100. 100 print"[210] [157][157]";
  101. 101 getn$:ifn$<>"1"andn$<>"8"goto101
  102. 102 ifn$="1"thenn$="13"
  103. 103 ean=val(n$):printn$;:poke211,34
  104. 104 getn$:ifn$<>chr$(13)andn$<>chr$(20)then104
  105. 105 ifn$=chr$(20)thenpoke211,34:goto100
  106. 106 print:return
  107. 107 :
  108. 108 : rem eingabe anzahl codes
  109. 109 :
  110. 110 c=0:n$=""
  111. 111 getx$:ifc<3thenprint"[210][157]";
  112. 112 ifx$=chr$(13)andcthenprint" ":e=val(n$):return
  113. 113 ifx$=chr$(20)andcthenc=c-1:n$=left$(n$,c):printx$;:goto111
  114. 114 ifx$=>"0"andx$<="9"andc<3thenc=c+1:n$=n$+x$:printx$;
  115. 115 goto111
  116. 116 :
  117. 117 : rem eingabe klartext
  118. 118 :
  119. 119 getx$:ifc<ean-1thenprint"[210][157]";
  120. 120 ifx$=chr$(13)andc=ean-1thenreturn
  121. 121 ifx$=chr$(20)andcthenc=c-1:n$=left$(n$,c):print"[157][210] [157][157]";:goto119
  122. 122 ifx$=>"0"andx$<="9"andc<ean-1thenc=c+1:n$=n$+x$:printx$;
  123. 123 goto119
  124.