mirror of
https://github.com/rfivet/BCG101.git
synced 2024-11-18 02:17:00 -05:00
Add BANNER.
This commit is contained in:
parent
3db5e32e10
commit
a0b5ef2678
99
dec/BANNER.BAS
Normal file
99
dec/BANNER.BAS
Normal file
@ -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
|
||||
99
port/BANNER.BAS
Normal file
99
port/BANNER.BAS
Normal file
@ -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
|
||||
Loading…
Reference in New Issue
Block a user