Decoration of Independence

Source Code

 5001 REM ORIGINALLY APPEARED IN FAMILY COMPUTING
 5009 CLS : PRINT AT 10,0;"***DECORATION OF INDEPENDENCE***"
 5011 BORDER 2: INK 1: PAPER 7
 5012 BEEP 1,10
 5015 PRINT ''"THE ORIGINAL 13 COLONIES APPEAR IN THE ORDER THAT THEY ENTERED  THE UNION, FOLLOWED BY THE FLAG OF THE 13 COLONIES."
 5016 PAUSE 500
 5018 CLS 
 5020 DIM B$(30)
 5030 DIM G$(30)
 5040 DIM S$(12)
 5050 DIM C$(13,20)
 5060 LET C$(1)="DELAWARE"
 5070 LET C$(2)="PENNSYLVANIA  "
 5080 LET C$(3)="NEW JERSEY"
 5090 LET C$(4)="GEORGIA"
 5100 LET C$(5)="CONNECTICUT"
 5110 LET C$(6)="MASSACHUSETTS"
 5120 LET C$(7)="MARYLAND"
 5130 LET C$(8)="SOUTH CAROLINA"
 5140 LET C$(9)="NEW HAMPSHIRE"
 5150 LET C$(10)="VIRGINIA"
 5160 LET C$(11)="NEW YORK"
 5170 LET C$(12)="NORTH CAROLINA"
 5180 LET C$(13)="RHODE ISLAND"
 5190 FOR F=1 TO 30
 5200 LET B$(F)=CHR$ 143
 5210 INK 2: LET G$(F)=CHR$ 128
 5220 NEXT F
 5230 FOR F=1 TO 12
 5240 INK 1: LET S$(F)=CHR$ 143
 5250 NEXT F
 5260 INK 1
 5270 FOR F=1 TO 13
 5275 PRINT AT 0,0;"     F I R S T  OF  F I F T Y   "
 5280 PRINT AT 21,10;C$(F)
 5290 LET R=RND*20+5
 5300 FOR H=19 TO 5 STEP -1
 5310 PRINT AT H,R;CHR$ 133;AT H,R;CHR$ 32
 5320 NEXT H
 5330 PRINT AT 4,R;CHR$ 128;AT 3,R-1;CHR$ 134;AT 5,R-1;CHR$ 137;AT 3,R+1;CHR$ 137;AT 5,R+1;CHR$ 134
 5340 CLS 
 5350 NEXT F
 5360 PRINT AT 5,0;
 5365 INK 2
 5370 FOR F=1 TO 6
 5380 PRINT B$
 5390 PRINT G$
 5400 NEXT F
 5410 PRINT B$
 5420 PRINT AT 6,0;
 5430 FOR F=0 TO 6
 5440 INK 1: PRINT S$
 5450 NEXT F
 5455 INK 1
 5456 PRINT AT 5,0;"\::\::   "
 5457 PRINT AT 5,7;"\::\::   "
 5460 INVERSE 1: PRINT AT 5,6;"*";AT 5,5;"*";TAB 7;"*";AT 6,4;"*";TAB 8;"*";AT 7,3;"*";TAB 9;"*";AT 8,3;"*";TAB 9;"*";AT 9,4;"*";TAB 8;"*";AT 10,5;"*";TAB 7;"*"
 5465 INVERSE 0
 5470 PRINT AT 21,1;"REMEMBER: FOURTH OF JULY,1776"
 5472 INPUT "AGAIN? Y/N";R$
 5480 IF R$="" THEN GO TO 5480
 5482 IF R$="Y" THEN GO TO 5260
 9997 STOP 
 9998 SAVE "DECOR" LINE 5000