13 Colonies

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Related Articles

Original 13 colonies appear in the order that they entered the union, followed by the flag of the 13 colonies.

Gallery

13 Colonies

Source Code

   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 

People

No people associated with this content.

Scroll to Top