From a0b5ef267873fba7b3af437faae28547d23dc0a4 Mon Sep 17 00:00:00 2001 From: Renaud Fivet Date: Thu, 2 May 2024 11:16:20 +0800 Subject: [PATCH] Add BANNER. --- dec/BANNER.BAS | 99 +++++++++++++++++++++++++++++++++++++++++++++++++ port/BANNER.BAS | 99 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 198 insertions(+) create mode 100644 dec/BANNER.BAS create mode 100644 port/BANNER.BAS diff --git a/dec/BANNER.BAS b/dec/BANNER.BAS new file mode 100644 index 0000000..f3a6e13 --- /dev/null +++ b/dec/BANNER.BAS @@ -0,0 +1,99 @@ +100 REM PROGRAM WRITTEN BY DANIEL R. VERNON +110 REM SENIOR AT BUTLER SENIOR HIGH SCHOOL +120 REM BUTLER, PENNSYLVANIA 16001 +130 REM DATE: 2-1-73 +140 REM COMPUTER SUPERVISION- MR. WILLIAM ELLIS +150 REM COMPUTER TOPICS INSTRUCTION- MR. ALBERT STEWART +160 REM +170 REM THIS PROGRAM IS DESIGNED TO CREATE POSTERS +180 REM +190 DIMG$(6),H$(6),B$(9),G(6),A(54) +200 PRINT"INPUT HEIGHTH, WIDTH IN INCHES";\INPUTL,R\S=0\A=R*2\C=A +210 PRINT"HOW FAR, IN INCHES FROM THE LEFT HAND SIDE, DO YOU WANT TO PLACE " +220 PRINT"THE LETTERS";\INPUTS\S=12*S +230 PRINT"INPUT MESSAGE HERE" +240 LINPUTB$(1),B$(2),B$(3),B$(4),B$(5),B$(6),B$(7),B$(8),B$(9) +250 FORX=9TO1STEP-1\CHANGEB$(X)TOA\FORY=1TO6\A(X*6-6+Y)=A(Y)\NEXTY\NEXTX +260 FORX=1TO6\READH$(X)\NEXTX\H$=H$(L)\GOSUB 940 +270 F=F+1\IFA(F)=0THEN990\G(0)=L\FORX=1TO6\G(X)=A(F)\NEXTX\CHANGEGTOG$ +280 FORX=1TO6\G(0)=X\CHANGEGTOG$(X)\NEXTX +290 FORX=1TOA/2\PRINT\NEXTX +300 IFA(F)=46THEN345\IFA(F)=36THEN990\IFA(F)=32THEN630\IFA(F)<48THEN270 +305 IFA(F)>57THEN310\ONA(F)-47GOTO500,440,620,625,635,550,615,605,595,585 +310 IFA(F)<65THEN270\IFA(F)>79THEN330 +320 ONA(F)-64GOTO350,360,370,380,390,400,410,430,440,450,460,470,480,490,500 +330 IFA>90THEN270\ONA(F)-79GOTO510,520,540,550,560,570,580,590,600,610,620 +340 GOTO270 +345 FORX=1TOA\PRINTTAB(S);G$;G$\NEXTX\GOTO270 +350 GOSUB640\GOSUB690\GOSUB640\GOTO270 +360 GOSUB640\GOSUB650\A=C*.5\GOSUB640\A=C\GOSUB810\GOTO270 +370 GOSUB640\GOSUB700\GOSUB700\GOTO270 +380 GOSUB640\GOSUB700\A=C*.5\GOSUB640\A=C\GOSUB840\GOTO270 +390 GOSUB640\GOSUB650\GOSUB650\GOTO270 +400 GOSUB640\GOSUB690\GOSUB690\GOTO270 +410 GOSUB640\A=C*.75\GOSUB700\A=C*.25\GOSUB650\A=C\GOSUB760 +420 A=C*.25\GOSUB710\A=C\GOTO270 +430 GOSUB640\GOSUB710\GOSUB640\GOTO270 +440 GOSUB640\GOTO270 +450 GOSUB750\GOSUB740\GOSUB640\GOTO270 +460 GOSUB640\GOSUB860\GOTO270 +470 GOSUB640\GOSUB740\GOSUB740\GOTO270 +480 GOSUB640\GOSUB890\GOSUB880\GOSUB640\GOTO270 +490 GOSUB640\GOSUB890\GOSUB640\GOTO270 +500 GOSUB640\GOSUB700\GOSUB640\GOTO270 +510 GOSUB640\GOSUB690\GOSUB790\GOTO270 +520 GOSUB640\A=C*.75\GOSUB700\A=C*.25\GOSUB650\A=C\GOSUB640 +530 A=C*.25\GOSUB710\A=C\GOTO270 +540 GOSUB640\GOSUB690\A=C*.5\GOSUB640\GOSUB810\A=C\GOTO270 +550 GOSUB770\GOSUB650\GOSUB760\GOTO270 +560 GOSUB780\GOSUB640\GOSUB780\GOTO270 +570 GOSUB640\GOSUB740\GOSUB640\GOTO270 +580 GOSUB890\GOSUB880\GOTO270 +585 GOSUB790\GOSUB690\GOSUB640\GOTO270 +590 GOSUB640\GOSUB880\GOSUB890\GOSUB640\GOTO270 +595 GOSUB640\GOSUB650\GOSUB640\GOTO270 +600 GOSUB900\GOTO270 +605 GOSUB780\GOSUB780\GOSUB640\GOTO270 +610 GOSUB970\GOSUB800\GOSUB960\GOTO270 +615 GOSUB640\GOSUB650\GOSUB760\GOTO270 +620 GOSUB920\GOTO270 +625 GOSUB700\GOSUB650\A=C*.5\GOSUB640\A=C\GOSUB810\GOTO270 +630 GOSUB940\GOTO270 +635 GOSUB790\GOSUB710\GOSUB640\GOTO270 +640 FORY=1TOA\PRINTTAB(S);\FORX=1TO10\PRINTG$;\NEXTX\PRINT\NEXTY\RETURN +650 IFA<1THEN660\GOTO670 +660 LETA=1 +670 FORX=1TOA\PRINTTAB(S);G$;G$;H$;H$;G$;G$;H$;H$;G$;G$\NEXTX\RETURN +680 PRINTTAB(S); +690 FORX=1TOA\PRINTTAB(4*L+S);G$;G$;H$;H$;G$;G$\NEXTX\RETURN +700 FORX=1TOA\PRINTTAB(S);G$;G$;\PRINTTAB(8*L+S);G$;G$\NEXTX\RETURN +710 IFA<1THEN720\GOTO730 +720 LETA=1 +730 FORX=1TOA\PRINTTAB(4*L+S);G$;G$\NEXTX\RETURN +740 FORX=1TOA\PRINTTAB(S);G$;G$\NEXTX\RETURN +750 FORX=1TOA\PRINTTAB(S);G$;G$;G$;G$\NEXTX\RETURN +760 FORY=1TOA\PRINTTAB(S);G$;G$;G$;G$;G$;G$;H$;H$;G$;G$\NEXTY\RETURN +770 FORX=1TOA\PRINTTAB(S);G$;G$;H$;H$;G$;G$;G$;G$;G$;G$\NEXTX\RETURN +780 FORX=1TOA\PRINTTAB(8*L+S);G$;G$\NEXTX\RETURN +790 FORX=1TOA\PRINTTAB(4*L+S);G$;G$;G$;G$;G$;G$\NEXTX\RETURN +800 FORX=1TOA\PRINTTAB(S);G$;G$;G$;G$;G$;G$\NEXTX\RETURN +810 FORX=1TOC/2\PRINTTAB(S);\FORY=1TO2\FORZ=1TO(5*L)-X\PRINTG$(1);\NEXTZ +820 IFX>3THEN950\V=X +830 PRINTH$(2*V);\NEXTY\PRINT\NEXTX\RETURN +840 FORX=1TOC/2\PRINTTAB(S);H$(X);\FORY=1TO10*L-(2*X)\PRINTG$(1);\NEXTY\PRINT +850 NEXTX\RETURN +860 FOR X=4*LTO7*LSTEP14*L/(C*6)\PRINTTAB(X+S);G$;G$;G$; +870 PRINTTAB(7*L-X+S);G$;G$;G$\NEXT X\RETURN +880 FORX=0TO6*LSTEP6*L/C\PRINTTAB(X+S);G$;G$;G$;G$\NEXTX\RETURN +890 FORX=6*LTO0STEP-6*L/C\PRINTTAB(X+S);G$;G$;G$;G$\NEXTX\RETURN +900 FORX=0TO7*LSTEP(14*L)/(C*6)\PRINTTAB(X+S);G$;G$;G$; +910 PRINTTAB(7*L-X+S);G$;G$;G$\NEXT X\RETURN +920 FORX=0TO7*LSTEP(7*L)/(C*3)\PRINTTAB(S);G$;G$;TAB(X+S);G$;G$;G$; +930 PRINTTAB(8*L+S);G$;G$\NEXTX\RETURN +940 FORX=1TOA*3\PRINT\NEXTX\RETURN +950 FORW=1TOX-3\PRINT" ";\NEXTW\V=3\GOTO830 +960 FORX=4*LTO7*LSTEPL*4/C\PRINTTAB(X+S);G$;G$;G$\NEXTX\RETURN +970 FOR X=7*LTO4*LSTEP-4*L/C\PRINTTAB(X+S);G$;G$;G$\NEXTX\RETURN +980 DATA" "," "," "," "," "," ","" +990 FORX=1TOC*3\PRINT\NEXTX +1000 END diff --git a/port/BANNER.BAS b/port/BANNER.BAS new file mode 100644 index 0000000..764be55 --- /dev/null +++ b/port/BANNER.BAS @@ -0,0 +1,99 @@ + 100 REM PROGRAM WRITTEN BY DANIEL R. VERNON + 110 REM SENIOR AT BUTLER SENIOR HIGH SCHOOL + 120 REM BUTLER, PENNSYLVANIA 16001 + 130 REM DATE: 2-1-73 + 140 REM COMPUTER SUPERVISION- MR. WILLIAM ELLIS + 150 REM COMPUTER TOPICS INSTRUCTION- MR. ALBERT STEWART + 160 REM + 170 REM THIS PROGRAM IS DESIGNED TO CREATE POSTERS + 180 REM + 190 DIMG$(6),H$(6),B$(9),G(6),A(54) + 200 PRINT"INPUT HEIGHT, WIDTH IN INCHES";\INPUTL,R\S=0\A=R*2\C=A + 210 PRINT"HOW FAR, IN INCHES FROM THE LEFT HAND SIDE, DO YOU WANT TO PLACE" + 220 PRINT"THE LETTERS";\INPUTS\S=12*S + 230 PRINT"INPUT MESSAGE HERE" + 240 LINPUTB$(1),B$(2),B$(3),B$(4),B$(5),B$(6),B$(7),B$(8),B$(9) + 250 FORX=9TO1STEP-1\CHANGEB$(X)TOA\FORY=1TO6\A(X*6-6+Y)=A(Y)\NEXTY\NEXTX + 260 FORX=1TO6\READH$(X)\NEXTX\H$=H$(L)\GOSUB 940 + 270 F=F+1\IFA(F)=0THEN990\G(0)=L\FORX=1TO6\G(X)=A(F)\NEXTX\CHANGEGTOG$ + 280 FORX=1TO6\G(0)=X\CHANGEGTOG$(X)\NEXTX + 290 FORX=1TOA/2\PRINT\NEXTX + 300 IFA(F)=46THEN345\IFA(F)=36THEN990\IFA(F)=32THEN630\IFA(F)<48THEN270 + 305 IFA(F)>57THEN310\ONA(F)-47GOTO500,440,620,625,635,550,615,605,595,585 + 310 IFA(F)<65THEN270\IFA(F)>79THEN330 + 320 ONA(F)-64GOTO350,360,370,380,390,400,410,430,440,450,460,470,480,490,500 + 330 IFA>90THEN270\ONA(F)-79GOTO510,520,540,550,560,570,580,590,600,610,620 + 340 GOTO270 + 345 FORX=1TOA\PRINTTAB(S);G$;G$\NEXTX\GOTO270 + 350 GOSUB640\GOSUB690\GOSUB640\GOTO270 + 360 GOSUB640\GOSUB650\A=C*.5\GOSUB640\A=C\GOSUB810\GOTO270 + 370 GOSUB640\GOSUB700\GOSUB700\GOTO270 + 380 GOSUB640\GOSUB700\A=C*.5\GOSUB640\A=C\GOSUB840\GOTO270 + 390 GOSUB640\GOSUB650\GOSUB650\GOTO270 + 400 GOSUB640\GOSUB690\GOSUB690\GOTO270 + 410 GOSUB640\A=C*.75\GOSUB700\A=C*.25\GOSUB650\A=C\GOSUB760 + 420 A=C*.25\GOSUB710\A=C\GOTO270 + 430 GOSUB640\GOSUB710\GOSUB640\GOTO270 + 440 GOSUB640\GOTO270 + 450 GOSUB750\GOSUB740\GOSUB640\GOTO270 + 460 GOSUB640\GOSUB860\GOTO270 + 470 GOSUB640\GOSUB740\GOSUB740\GOTO270 + 480 GOSUB640\GOSUB890\GOSUB880\GOSUB640\GOTO270 + 490 GOSUB640\GOSUB890\GOSUB640\GOTO270 + 500 GOSUB640\GOSUB700\GOSUB640\GOTO270 + 510 GOSUB640\GOSUB690\GOSUB790\GOTO270 + 520 GOSUB640\A=C*.75\GOSUB700\A=C*.25\GOSUB650\A=C\GOSUB640 + 530 A=C*.25\GOSUB710\A=C\GOTO270 + 540 GOSUB640\GOSUB690\A=C*.5\GOSUB640\GOSUB810\A=C\GOTO270 + 550 GOSUB770\GOSUB650\GOSUB760\GOTO270 + 560 GOSUB780\GOSUB640\GOSUB780\GOTO270 + 570 GOSUB640\GOSUB740\GOSUB640\GOTO270 + 580 GOSUB890\GOSUB880\GOTO270 + 585 GOSUB790\GOSUB690\GOSUB640\GOTO270 + 590 GOSUB640\GOSUB880\GOSUB890\GOSUB640\GOTO270 + 595 GOSUB640\GOSUB650\GOSUB640\GOTO270 + 600 GOSUB900\GOTO270 + 605 GOSUB780\GOSUB780\GOSUB640\GOTO270 + 610 GOSUB970\GOSUB800\GOSUB960\GOTO270 + 615 GOSUB640\GOSUB650\GOSUB760\GOTO270 + 620 GOSUB920\GOTO270 + 625 GOSUB700\GOSUB650\A=C*.5\GOSUB640\A=C\GOSUB810\GOTO270 + 630 GOSUB940\GOTO270 + 635 GOSUB790\GOSUB710\GOSUB640\GOTO270 + 640 FORY=1TOA\PRINTTAB(S);\FORX=1TO10\PRINTG$;\NEXTX\PRINT\NEXTY\RETURN + 650 IFA<1THEN660\GOTO670 + 660 LETA=1 + 670 FORX=1TOA\PRINTTAB(S);G$;G$;H$;H$;G$;G$;H$;H$;G$;G$\NEXTX\RETURN + 680 PRINTTAB(S); + 690 FORX=1TOA\PRINTTAB(4*L+S);G$;G$;H$;H$;G$;G$\NEXTX\RETURN + 700 FORX=1TOA\PRINTTAB(S);G$;G$;\PRINTTAB(8*L+S);G$;G$\NEXTX\RETURN + 710 IFA<1THEN720\GOTO730 + 720 LETA=1 + 730 FORX=1TOA\PRINTTAB(4*L+S);G$;G$\NEXTX\RETURN + 740 FORX=1TOA\PRINTTAB(S);G$;G$\NEXTX\RETURN + 750 FORX=1TOA\PRINTTAB(S);G$;G$;G$;G$\NEXTX\RETURN + 760 FORY=1TOA\PRINTTAB(S);G$;G$;G$;G$;G$;G$;H$;H$;G$;G$\NEXTY\RETURN + 770 FORX=1TOA\PRINTTAB(S);G$;G$;H$;H$;G$;G$;G$;G$;G$;G$\NEXTX\RETURN + 780 FORX=1TOA\PRINTTAB(8*L+S);G$;G$\NEXTX\RETURN + 790 FORX=1TOA\PRINTTAB(4*L+S);G$;G$;G$;G$;G$;G$\NEXTX\RETURN + 800 FORX=1TOA\PRINTTAB(S);G$;G$;G$;G$;G$;G$\NEXTX\RETURN + 810 FORX=1TOC/2\PRINTTAB(S);\FORY=1TO2\FORZ=1TO(5*L)-X\PRINTG$(1);\NEXTZ + 820 IFX>3THEN950\V=X + 830 PRINTH$(2*V);\NEXTY\PRINT\NEXTX\RETURN + 840 FORX=1TOC/2\PRINTTAB(S);H$(X);\FORY=1TO10*L-(2*X)\PRINTG$(1);\NEXTY\PRINT + 850 NEXTX\RETURN + 860 FOR X=4*LTO7*LSTEP14*L/(C*6)\PRINTTAB(X+S);G$;G$;G$; + 870 PRINTTAB(7*L-X+S);G$;G$;G$\NEXT X\RETURN + 880 FORX=0TO6*LSTEP6*L/C\PRINTTAB(X+S);G$;G$;G$;G$\NEXTX\RETURN + 890 FORX=6*LTO0STEP-6*L/C\PRINTTAB(X+S);G$;G$;G$;G$\NEXTX\RETURN + 900 FORX=0TO7*LSTEP(14*L)/(C*6)\PRINTTAB(X+S);G$;G$;G$; + 910 PRINTTAB(7*L-X+S);G$;G$;G$\NEXT X\RETURN + 920 FORX=0TO7*LSTEP(7*L)/(C*3)\PRINTTAB(S);G$;G$;TAB(X+S);G$;G$;G$; + 930 PRINTTAB(8*L+S);G$;G$\NEXTX\RETURN + 940 FORX=1TOA*3\PRINT\NEXTX\RETURN + 950 FORW=1TOX-3\PRINT" ";\NEXTW\V=3\GOTO830 + 960 FORX=4*LTO7*LSTEPL*4/C\PRINTTAB(X+S);G$;G$;G$\NEXTX\RETURN + 970 FOR X=7*LTO4*LSTEP-4*L/C\PRINTTAB(X+S);G$;G$;G$\NEXTX\RETURN + 980 DATA" "," "," "," "," "," ","" + 990 FORX=1TOC*3\PRINT\NEXTX +1000 END