home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Labels (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  964 b   |  45 lines
  1. 90 print"[147]":poke53280,4:poke53281,1:poke646,11
  2. 100 print"self addressed labels"
  3. 110 print"by cheryl peterson"
  4. 120 print"for ahoy! magazine"
  5. 200 rem initialize variables
  6. 201 rem string variables not initiated
  7. 210 lines=0:passes=0
  8. 220 gosub 300
  9. 230 gosub 400
  10. 240 gosub 500
  11. 250 open 4,4,0:cmd 4
  12. 260 for y = 1 to passes
  13. 270 gosub 700
  14. 280 next
  15. 290 print#4:close4
  16. 295 end
  17. 300 rem labelformat
  18. 310 input"how many lines per label";lines
  19. 320 if lines<4 then goto 310
  20. 330 lines=lines-4
  21. 350 return
  22. 400 rem printnumber
  23. 410 input"how many labels to print";passes
  24. 420 return
  25. 500 rem readdata
  26. 510 input"enter full name--20 characters or less";name$
  27. 520 if len(name$)>20 goto 510
  28. 530 input"enter address--40 characters or less";address$
  29. 540 if len(address$) > 40 goto 530
  30. 550 input"enter city name--20 characters or less";city$
  31. 560 if len(city$)>20 goto 550
  32. 570 input"enter two character state code";st$
  33. 580 if len(st$)>2 then goto 570
  34. 590 input"enter postal or zip code";zip$
  35. 600 if len(zip$)>9 then goto 590
  36. 610 return
  37. 700 rem print routine
  38. 710 print:print name$
  39. 720 print address$
  40. 730 print city$;" ";st$;" ";zip$
  41. 740 for x=1 to lines
  42. 750 print
  43. 760 next
  44. 790 return
  45.