home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_10_(11-1984).d64 / labels (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  51 lines
  1. 0 REM**** PROGRAM BY: MATT HAGER *******
  2. 1 PRINT"[147][158]"
  3. 2 C=0
  4. 3 POKE53280,3:POKE53281,0
  5. 4 PRINT" MADE TO FIT 3 1/2 X 15/16 LABELS [146]"
  6. 5 PRINT"[158]"
  7. 6 PRINT"            ADDRESS LABELS"
  8. 7 PRINT"   WILL ALL LABELS BE THE SAME (Y/N)"
  9. 8 GETA$:IFA$=""THEN8
  10. 9 IFA$="Y"THEN12
  11. 10 IFA$="N"THEN15
  12. 11 GOTO7
  13. 12 INPUT " HOW MANY LABELS";N%
  14. 13 GOTO15
  15. 14 PRINT"[147]"
  16. 15 INPUT"  NAME:";NA$
  17. 16 INPUT"  ADDRESS:";AD$
  18. 17 INPUT"  CITY";CY$
  19. 18 INPUT"  STATE";ST$
  20. 19 INPUT"  ZIPCODE";ZC$
  21. 20 PRINT"[147]"
  22. 21 PRINT"";N%"LABELS WITH:"
  23. 22 PRINT"                       "
  24. 23 PRINT"                       "
  25. 24 PRINT"                       "
  26. 25 PRINT"                       "
  27. 26 PRINT"                       "
  28. 27 PRINT""NA$
  29. 28 PRINT""AD$
  30. 29 PRINT""CY$","TAB(2);ST$;CHR$(32);ZC$
  31. 30 PRINT"[158]      IS THIS CORRECT (Y/N)"
  32. 31 GETA$:IFA$=""THEN31
  33. 32 IFA$="Y"THEN34
  34. 33 IFA$="N"THEN1
  35. 34 OPEN4,4
  36. 35 C=C+1:S=S+1
  37. 36 PRINT#4
  38. 37 PRINT#4,NA$
  39. 38 PRINT#4,AD$
  40. 39 PRINT#4,CY$" ,"ST$CHR$(32)ZC$
  41. 40 PRINT#4
  42. 41 PRINT#4
  43. 42 PRINT""S
  44. 43 IFC<N%THEN35
  45. 44 IFC=N%THEN45
  46. 45 PRINT#4:CLOSE4
  47. 46 PRINT"[147]  MORE LABELS (Y/N)"
  48. 47 GETA$:IFA$=""THEN47
  49. 48 IFA$="Y"THEN1
  50. 49 IFA$="N"THENSYS770
  51.