--- title: "Decoration of Independence" type: "article" slug: "decoration-of-independence" url: "http://localhost/article/decoration-of-independence/" markdown_url: "http://localhost/article/decoration-of-independence.md" published_at: "2020-10-27T17:08:44+00:00" modified_at: "2024-10-04T07:39:03+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "Original 13 colonies appear in the order that they entered the union, followed by the flag of the 13 colonies." category: - name: "K-Power" slug: "k-power" taxonomy: "category" url: "http://localhost/category/periodicals/k-power/" post_tag: - name: "1984" slug: "year-1984" taxonomy: "post_tag" url: "http://localhost/tag/year-1984/" - name: "Downloadable" slug: "downloadable" taxonomy: "post_tag" url: "http://localhost/tag/downloadable/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" - name: "TS 2068" slug: "ts2068" taxonomy: "post_tag" url: "http://localhost/tag/ts2068/" - name: "Type-in program" slug: "type-in-program" taxonomy: "post_tag" url: "http://localhost/tag/type-in-program/" model: - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" - name: "Timex/Sinclair 2068" slug: "ts-2068" taxonomy: "model" url: "http://localhost/model/ts-2068/" indiv: - name: "Al Drayton" slug: "al-drayton" taxonomy: "indiv" url: "http://localhost/indiv/al-drayton/" publication: "K-Power" publication_r: id: 10198 title: "K-Power" type: "periodical" url: "http://localhost/periodical/k-power/" authors: "Al Drayton" volume: "1" issue: "6" pages: "40" pubdate: "July/August 1984" archive_link: false archiveurl: "https://archive.org/download/k-power-magazine-06/K-Power_Issue_06_1984_Jul_Aug.pdf" volumeissue: "v1n6" article_media: - id: 57241 title: "13 Colonies" type: "computer_media" url: "http://localhost/computer_media/13-colonies/" - id: 55063 title: "Decoration of Independence" type: "computer_media" url: "http://localhost/computer_media/decoration-of-independence/" --- # Decoration of Independence Original 13 colonies appear in the order that they entered the union, followed by the flag of the 13 colonies. ## Source Code: 13 Colonies ``` 5 REM THE ORIGINAL 13 COLONIES APPEAR IN THE ORDER THAT THEY ENTERED THE UNION, FOLLOWED BY THE FLAG OF THE 13 COLONIES. 10 FAST 20 DIM B$(30) 30 DIM G$(30) 40 DIM S$(12) 50 DIM C$(13,14) 60 LET C$(1)="DELAWARE" 70 LET C$(2)="PENNSYLVANIA" 80 LET C$(3)="NEW JERSEY" 90 LET C$(4)="GEORGIA" 100 LET C$(5)="CONNECTICUT" 110 LET C$(6)="MASSACHUSETTS" 120 LET C$(7)="MARYLAND" 130 LET C$(8)="SOUTH CAROLINA" 140 LET C$(9)="NEW HAMPSHIRE" 150 LET C$(10)="VIRGINIA" 160 LET C$(11)="NEW YORK" 170 LET C$(12)="NORTH CAROLINA" 180 LET C$(13)="RHODE ISLAND" 190 FOR F=1 TO 30 200 LET B$(F)=CHR$ 128 210 LET G$(F)=CHR$ 8 220 NEXT F 230 FOR F=1 TO 12 240 LET S$(F)=CHR$ 128 250 NEXT F 260 SLOW 270 FOR F=1 TO 13 280 PRINT AT 21,10;C$(F) 290 LET R=RND*20+5 300 FOR H=20 TO 5 STEP -1 310 PRINT AT H,R;CHR$ 133;AT H,R;CHR$ 0 320 NEXT H 330 PRINT AT 4,R;CHR$ 128;AT 3,R-1;CHR$ 134;5,R-1;CHR$ 6;AT 3,R+1;CHR$ 6;AT 5,R+1;CHR$ 134 340 CLS 350 NEXT F 360 PRINT AT 5,0; 370 FOR F=1 TO 6 380 PRINT B$ 390 PRINT G$ 400 NEXT F 410 PRINT B$ 420 PRINT AT 6,0; 430 FOR F=1 TO 6 440 PRINT S$ 450 NEXT F 460 PRINT AT 5,6;CHR$ 155;AT 5,5;CHR$ 155;TAB 7;CHR$ 155;AT 6,4;CHR$ 155;TAB 8;CHR$ 155;AT 7,3;CHR$ 155;TAB 9;CHR$ 155;AT 8,3;CHR$ 155;TAB 9;CHR$ 155;AT 9,4;CHR$ 155;TAB 8;CHR$ 155;AT 10,5;CHR$ 155;TAB 7;CHR$ 155 470 PRINT AT 21,7;"HAPPY FOURTH OF JULY" 480 IF INKEY$="" THEN GOTO 480 490 CLS 500 GOTO 270 610 SAVE "1013%1" 620 LIST ``` ## Source Code: Decoration of Independence ``` 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 ```