1
0
mirror of https://github.com/rfivet/BCG101.git synced 2024-12-24 11:06:58 -05:00
BCG101/port/BANNER.BAS

100 lines
4.5 KiB
QBasic
Raw Normal View History

2024-05-01 23:16:20 -04:00
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