home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 101 / 101.d81 / zip-it / zip-it.0829 / zip-it.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  48.6 KB  |  124 lines
  1. 5 poke53281,0:poke53280,0:print"[147]"
  2. 7 poke52,64:poke64,32:clr
  3. 8 dv=peek(186):ifdv<8thendv=8
  4. 10 gosub60000:fort=0to3000:next
  5. 130 rem zip-intro by jack blewitt
  6. 150 poke53280,1:poke53281,1:poke53272,23
  7. 170 print "[147]***************************************"
  8. 180 print "*[154]        [212][197][195][200][206][201][195][193][204][160][201][206][198][207][210][205][193][212][201][207][206]        *"
  9. 190 print "***************************************[144]"
  10. 200 print"[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][164][164][164][164][164][164][164][164]"
  11. 210 print" [208][207][211][212][206][197][212]  is the official name for the "
  12. 220 print"  "chr$(34)"[208][207][211][212]al [206]umeric [197]ncoding [212]echnique"chr$(34)"  ":print
  13. 230 print"[144][208][207][211][212][206][197][212] is the coded equivalent of your"
  14. 240 print"[218][201][208] code or [218]ip+4 codes placed into a"
  15. 250 print"barcode format that is optically read"
  16. 260 print"by [208]ost [207]ffice equipment.  [212]he result:"
  17. 270 print"speedier and more accurate delivery of"
  18. 280 print"the mail.  [204]earning to read the [208][207][211][212][206][197][212]"
  19. 290 print"code is easy once you have learned the"
  20. 300 print"regulations.  [213]sing these codes on your"
  21. 310 print"[195]ommodore is a little more difficult!":print
  22. 320 print"[212]he barcode consists of 5 or 9 [218][201][208] code"
  23. 330 print"numerics followed by a [195][200][197][195][203][211][213][205][144] digit"
  24. 340 print"and bracketed on either side by a long"
  25. 350 print"bar.  [197]ach digit consists of a series of";:gosub1010
  26. 360 print"[147][144]two long and three short bars. [212]he [208].[207]."
  27. 370 print"decoder only reads the spacing between "
  28. 380 print"the long bars and uses the short bars"
  29. 390 print"for timing!  [197]ach of the long bars"
  30. 400 print"are given a value of 7, 4, 2, 1, or 0."
  31. 410 print"[193]dding the values gives you the correct"
  32. 420 print"digit, with the sole exception being a"
  33. 430 print"zero.  [212]he tenth, (or sixth in the case"
  34. 440 print"of a 5-digit code), is a correction"
  35. 450 print"digit.  [212]his checksum is derived simply"
  36. 460 print"by adding the sums of the previous [218][201][208]"
  37. 470 print"digits, and subtracting the results "
  38. 480 print"from the next higher multiple of 10.":print
  39. 490 print"[199]o get any envelope with a barcode on"
  40. 500 print"and use the next chart to see if you"
  41. 510 print"can manually decode the sequence of"
  42. 520 print"the [208][207][211][212][206][197][212] coded bars!  [217]ou will find"
  43. 530 print"it quite easy after a few tries.  [201]t is"
  44. 540 print"not necessary to learn the codes, but "
  45. 550 print"it may be helpful in detecting errors!":gosub1010
  46. 560 poke251,102:poke252,64:poke253,96
  47. 562 poke53280,7:sys51456:sys51459
  48. 564 poke198,0:wait198,1
  49. 568 poke53280,1:sys51459
  50. 570 print"[147][208]ositioning of the [208][207][211][212][206][197][212] is somewhat"
  51. 580 print"critical.  [211]ince [198]ebruary 1992, most of"
  52. 590 print"the [208]ost [207]ffices use full-scan readers"
  53. 600 print"which scan an area up to 2-3/4"chr$(34)" up from"
  54. 610 print"the bottom of the envelope.  [212]here must"
  55. 620 print"be at least 1/2"chr$(34)" open space on either"
  56. 630 print"side of the envelope. [212]he area that was"
  57. 640 print"previously scanned was the bottom 5/8"chr$(34)
  58. 650 print"and the righthand 4"chr$(34)" of an envelope's"
  59. 660 print"face.  [212]his area can still be used, but"
  60. 670 print"it's also the area where the automatic "
  61. 680 print"code is written by the [208]ost [207]ffice, so"
  62. 690 print"keep it clear unless you are sure your"
  63. 700 print"code generator is readable!":print
  64. 710 print"[193]void using the [208][207][211][212][206][197][212] codes on your"
  65. 720 print"return address stickers to prevent a"
  66. 730 print"possible 'looping'!  [193]lso, the [208]ost"
  67. 740 print"[207]ffice prefers you do not use graphics"
  68. 750 print"on the addressee's label.  [210]eserve them"
  69. 760 print"them for your return address labels!"
  70. 770 gosub1010
  71. 782 poke251,128:poke252,64:poke253,96
  72. 784 poke53280,13:sys51456:sys51459
  73. 786 poke198,0:wait198,1
  74. 788 poke53280,1:sys51459
  75. 790 print"[147][212]he new regulations also suggest you "
  76. 800 print"place the [208][207][211][212][206][197][212] as the first line in"
  77. 810 print"your "chr$(34)"[212][207]"chr$(34)" label to avoid conflict."
  78. 820 print"[201]t is also necessary to affix the label"
  79. 830 print"to the envelope as horizontally as you"
  80. 840 print"possibly can to avoid non-readability!"
  81. 850 print"[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][192][192][192][192][192][192][192][192][192][174]"
  82. 860 print"[221] [198][207][210][160][193][196][196][201][212][201][207][206][193][204][160][201][206][198][207][210][205][193][212][201][207][206], [211][197][206][196][160][193]  [221]"
  83. 870 print"[221] [211][197][204][198]-[193][196][196][210][197][211][211][197][196][160][211][212][193][205][208][197][196][160][197][206][214][197][204][207][208][197][160][212][207]: [221]"
  84. 880 print"[221]                                     [221]"
  85. 890 print"[221]           [202][207][200][206] [195]. [194][204][197][215][201][212][212]           [221]"
  86. 900 print"[221]           6162 [208][193][210][201][211][200] [208][204]            [221]"
  87. 910 print"[221]      [210][207][195][203][198][207][210][196]  [201][204]  61109-4128       [221]"
  88. 920 print"[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][192][192][192][192][192][192][192][192][192][189]":print:print
  89. 930 print"[156][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][164][164][164][164][164][164][164][164]"
  90. 940 print"     [208][210][197][211][211][160][211][208][193][195][197] [212][207][160][210][197]-[210][197][193][196][160][201][206][212][210][207]!     [144]"
  91. 950 print"     [208][210][197][211][211][160][209] [212][207][160][197][216][201][212][160][212][207][160][204][207][193][196][211][212][193][210]!      [144]":poke198,0
  92. 970 geta$:ifa$=""then970
  93. 980 if a$="q"ora$="[209]"then40000
  94. 990 goto150
  95. 1000 end
  96. 1010 print"    [156]  press any key to continue!  [144]"
  97. 1020 poke198,0:wait198,1
  98. 1030 return
  99. 1040 end
  100. 9999 goto9999
  101. 10000 open15,8,15,"s0:zip-it":close15:save"zip-it",8:end
  102. 39997 :
  103. 39998 :rem  return to loadstar
  104. 39999 :
  105. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40030
  106. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  107. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:end
  108. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  109. 40040 print"run":poke631,13:poke632,13:poke198,2:end
  110. 59997 :
  111. 59998 :rem  copyright box for loadstar
  112. 59999 :
  113. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  114. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  115. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  116. 60030 z$(0)="[218][201][208]-[201][212]-[212]-[196][207]-[196][193][200]!":z$(1)="by [202]ack [194]lewitt"
  117. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  118. 60050 z$(3)="[212]his program is the copyrighted work
  119. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  120. 60070 z$(5)[178]"shareware or in the public domain."
  121. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  122. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  123. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  124.