home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / ENVELOPE-MAKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  73 lines
  1. 100 TE=0:PDEV=4:SA=7:REM SET TE TO 1 IF YOU HAVE A 1526 PRINTER
  2. 110 POKE53280,0:POKE53281,0:PRINTCHR$(14):PRINTCHR$(30):PRINT"ô"
  3. 120 SUB=49152:FORJ=SUBTOSUB+76:READN:CS=CS+N:POKEJ,N:NEXT
  4. 130 IFCS<>10586THENPRINT"ERROR IN DATA STATEMENTS.":END
  5. 140 CLOSE4:OPEN4,PDEV,SA:B$="                    ":B$=B$+B$+B$+B$
  6. 150 PRINT"ô"TAB(13)"┼╬╓┼╠╧╨┼á═┴╦┼╥":FORK=1TO6:READW(K):NEXT
  7. 160 T$(1)="1) ╙TANDARD ╠ETTER":T$(2)="2) ╞RENCH ╞OLD"
  8. 170 PRINT""TAB(9)"├HOOSE ENVELOPE TYPE:":GOSUB710
  9. 180 A$="":GETA$:IF(A$<>"1")AND(A$<>"2")THEN180
  10. 190 ET=VAL(A$):T$(ET)=""+T$(ET):PRINT"ææææææææ":GOSUB710
  11. 200 IF ET=1 THEN W(1)=64:W(2)=W(2)-4:W(5)=W(5)-5:W(6)=W(6)-2
  12. 210 IF TE THEN W(1)=W(1)+4:IF ET=1 THEN W(3)=W(3)-2
  13. 220 FORJ=1TO4:READT$(J):NEXT
  14. 230 PRINT"  ╒SE DEFAULT RETURN ADDRESS";:GOSUB680
  15. 240 IFA$="Y"THEN270
  16. 250 IFA$<>"N"THEN230
  17. 260 P$=" RETURN":GOSUB610
  18. 270 FORJ=1TO4:R$(J)=T$(J):NEXT
  19. 280 P$="":GOSUB610:FORK=1TO4:AD$(K)=T$(K):NEXT
  20. 290 PRINT"     ├ENTER ADDRESS LINES";:GOSUB680:CF=(A$="Y")
  21. 300 IF CF THEN 330
  22. 310 CI=0:FORJ=1TO4:IFLEN(AD$(J))>CITHENCI=LEN(AD$(J))
  23. 320 NEXT
  24. 330 PRINT"    ╨RESS ANY KEY TO BEGIN PRINTING."
  25. 340 A$="":GETA$:IFA$=""THEN340
  26. 350 S=5:PRINT#4,MID$(B$,1,W(3)+S+2);
  27. 360 FORJ=1TOW(1)-2*S:PRINT#4,"-";:NEXT:PRINT#4
  28. 370 FORJ=S TO 1 STEP -1
  29. 380 PRINT#4,MID$(B$,1,J+W(3))"."MID$(B$,1,W(1)-2*J+2)".":NEXT
  30. 390 FORJ=1TOW(4)-S:PRINT#4,MID$(B$,1,W(3)+1)":"MID$(B$,1,W(1))":":NEXT
  31. 400 GOSUB660:S    
  32. 410 Y=1+(-1*(J<=S))+(-1*(J<=(W(2)-S))):ON Y GOTO440,430,420
  33. 420 X$=":":IFF1THENX$=".":X=F1:GOTO450
  34. 430 PRINT#4,":"MID$(B$,1,S);:GOTO460
  35. 440 X$=":":IFF2THENX$=".":X=S-F2+1
  36. 450 PRINT#4,MID$(B$,1,X)"."MID$(B$,1,S-X);
  37. 460 Z$="":IF(J>1)AND(J<6)THENZ$=" "+R$(J-1):GOTO500
  38. 470 IF(J<W(6))OR(J>W(6)+6)OR(INT(J/2)<>J/2)THEN500
  39. 480 Z$=AD$((J-W(6))/2+1):CZ=LEN(Z$):IFCF=0THENCZ=CI
  40. 490 X=INT((W(1)-CZ)/2):Z$=MID$(B$,1,X)+Z$
  41. 500 Z=LEN(Z$):Z$=Z$+MID$(B$,1,W(1)-Z):PRINT#4,":"Z$":";
  42. 510 X$=":":ON Y GOTO540,530,520
  43. 520 IFF1THENX$=".":X=F1:F1=F1-1:GOTO550
  44. 530 X=0:GOTO550
  45. 540 IFF2THENX$=".":X=S-F    
  46. 550 PRINT#4,MID$(B$,1,S-X);X$
  47. 560 NEXT:GOSUB660:FORJ=1TOW(5)
  48. 570 PRINT#4,MID$(B$,1,W(3)+1)":"MID$(B$,1,W(1))":":NEXT
  49. 580 GOSUB660:FORJ=1TO6:PRINT#4:NEXT:PRINT"          ═AKE ANOTHER";:GOSUB680
  50. 590 IFA$="Y"THEN280
  51. 600 PRINT#4:CLOSE4:END
  52. 610 PRINT"":X$="┼NTER"+P$+" ADDRESS LINES:":PRINTTAB((40-LEN(X$))/2)X$""
  53. 620 Z=W(1)-1:FOR J=1 TO 4
  54. 630 PRINTMID$(STR$(J),2)"> ";:SYSSUB,T$(J):PRINT:PRINT
  55. 640 IFLEN(T$(J))>Z THENPRINT"╠INE TOO LONG, MAX IS"Z"CHARS. ╥EENTER."
  56. 650 NEXT:RETURN
  57. 660 PRINT#4,MID$(B$,1,W(3)+2);
  58. 670 FORJ=1TOW(1):PRINT#4,"-";:NEXT:PRINT#4:RETURN
  59. 680 PRINT" [Y/N]? ";
  60. 690 A$="":GETA$:IF(A$<>"Y")AND(A$<>"N")THEN690
  61. 700 PRINTMID$("YESNO ",-1*(A$="Y")-4*(A$=    
  62. 710 PRINTTAB(11)""T$(1):PRINTTAB(11)""T$(2)"":RETURN
  63. 720 DATA 32,253,174,32,139,176,133,251,132,252,32,143,173,160,0,32,207,255
  64. 730 DATA 201,13,240,6,153,0,2,200,208,243,192,1,208,8,173,0,2,201,32,208,1,136
  65. 740 DATA 132,253,152,32,125,180,165,99,160,2,145,251,136,165,98,145,251,136
  66. 750 DATA 165,97,145,251,165,253,240,10,185,0,2,145,98,200,196,253,208,246,96
  67. 760 DATA 57,26,6,13,19,14
  68. 770 REM DEFAULT RETURN ADDRESS
  69. 780 DATA "─OUG & ╠ORI ╚ULST
  70. 790 DATA "77 ╫ 28TH ╙╘╥┼┼╘"
  71. 800 DATA "╚OLLAND, ═ICHIGAN  49423"
  72. 810 DATA ""
  73.