home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / 1526-LABELS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  56 lines
  1. 10 SUB=49152:FOR J=SUBTOSUB+76:READN:CS=CS+N:POKEJ,N:NEXT
  2. 12 DATA 32,253,174,32,139,176,133,251,132,252,32,143,173,160,0,32,207,255
  3. 13 DATA 201,13,240,6,153,0,2,200,208,243,192,1,208,8,173,0,2,201,32,208,1,136
  4. 15 DATA 132,253,152,32,125,180,165,99,160,2,145,251,136,165,98,145,251,136
  5. 17 DATA 165,97,145,251,165,253,240,10,185,0,2,145,98,200,196,253,208,246,96
  6. 18 PRINT""
  7. 19 PRINT"[147]":POKE53281,0:POKE53280,0
  8. 20 PRINTTAB(11)"1526 ADDRESS LABELS"
  9. 30 PRINT:FOR I=1TO 3000:NEXT
  10. 40 PRINT"[147]"
  11. 42 GET Z$:IF Z$="E" THEN 500
  12. 50 GOSUB 450
  13. 55 OPEN 4,4,7
  14. 60 PRINT"[196]O YOU WISH A THREE OR FOUR LINE ADDRESS LABEL?"::PRINT"PRESS 3  OR  4"
  15. 70 GETLA$:IF LA$=""THEN 70
  16. 80 IFLA$="3" THEN 130:IF LA$="4" THEN 120
  17. 85 IF LA$<>"3"ANDLA$<>"4"THEN 60
  18. 120 PRINT"[147]AGENT'S NAME? ";:SYS SUB,AA$:PRINT
  19. 130 PRINT"[147]COMPANY NAME?(JUST NAME IF USING 3 LINE LABEL)? ";:SYS SUB,A$:PRINT
  20. 140 PRINT"[147]STREET ADDRESS? ";:SYS SUB,B$:PRINT
  21. 150 PRINT"[147]CITY? ";:SYS SUB,C$:PRINT
  22. 160 PRINT"[147]STATE & ZIP? ";:SYS SUB,D$:PRINT
  23. 165 IF LA$="4"THEN L=0
  24. 170 IF LA$="3"THEN L=2:IF LA$="4"THEN L=0
  25. 180 INPUT"[147]HOW MANY COPIES";C
  26. 190 PRINT"[147]"
  27. 200 PRINTTAB(11)"GET PRINTER READY"
  28. 210 GOSUB 410
  29. 220 CM$=","
  30. 230 POKE198,0:WAIT198,1
  31. 250 PRINT"[147]":PRINTTAB(17)"PRINTING"
  32. 270 FOR A=1TOC
  33. 272 IF LA$="4"GOTO 280
  34. 276 PRINT#4,NS$NT$:PRINT#4,"  "A$:PRINT#4,"  "B$:PRINT#4,"  "C$CM$;:
  35. 277 PRINT#4," "D$
  36. 278 GOTO     
  37. 3247 PRINT#4,NS$NT$:PRINT#4,"  "AA$:PRINT#4,"  "A$:PRINT#4,"  "B$:
  38. 283 PRINT#4,"  "C$CM$;:PRINT#4,"  "D$
  39. 290 FORI=1TOL:PRINT#4:NEXT:NEXT
  40. 300 PRINT"[147]":PRINTTAB(16)"FINISHED"
  41. 310 GOSUB410
  42. 330 GET R$
  43. 390 IF R$=""THEN330
  44. 394 PRINT "[147]TYPE [197] TO END"
  45. 395 PRINT"[208]RESS ANY KEY TO CONTINUE"
  46. 396 GET Z$:IF Z$=""THEN 396
  47. 397 IF Z$="E"THEN 500
  48. 398 IF Z$="[177]"THEN 500
  49. 400 GOTO60
  50. 410 FORK=1TO19:PRINT:NEXT
  51. 420 PRINTTAB(14)"HIT ANY KEY"
  52. 430 POKE198,0:POKE198,1:RETURN
  53. 450 NS$=CHR$(15):NT$=""
  54. 460 RETURN
  55. 500 PRINT#4:CLOSE4:POKE 53280,14:POKE 53281,6:PRINT"[147][142]":END
  56.