Olympic Theme

OLYMPIAD XXIII

With the up-coming Olympics in Los Angeles, here is a sound/graphics program written for the TS-2068 in that spirit:

10 REM ** OLYMPIAD XXIII **
   written by Gene Buza
20 CLS: LET A=0
30 FOR I=1 TO 2
40 CIRCLE 75,100,20+I
50 CIRCLE 100,75,20+I
60 CIRCLE 125,100,20+I
70 CIRCLE 150,75,20+I
80 CIRCLE 175,100,20+I
90 NEXT I
100 FOR N=0 TO 31
110 PRINT AT 0,N;CHR$ 143;
    AT 21,N;CHR$ 143
120 IF N>21 THEN GO TO 140
130 PRINT AT N,0;CHR$ 143;
    AT N,21;CHR$ 143
140 NEXT N
150 DIM A$(30)
160 PRINT AT 2,8;"O L Y M P
    I A D";AT 4,11;"X X I I
    I"
170 POKE USR "a",BIN
    00111100
180 POKE USR "a"+1,BIN
    01000010
190 POKE USR "a"+2,BIN
    10100101
200 POKE USR "a"+3,BIN
    10000001
210 POKE USR "a"+4,BIN
    11000011
220 POKE USR "a"+5,BIN
    10111101
230 POKE USR "a"+6,BIN
    01000010
240 POKE USR "a"+7,BIN
    00111100
900 LET B=4
950 FOR I=1 TO 2
1000 FOR N=1 TO 15
1010 PRINT AT 19,A+10;" "
     :READ A:READ C
1020 GOSUB 2000
1030 BEEP C,A: PAUSE B
1040 NEXT N: IF I=2 THEN
     GO TO 1100
1050 RESTORE
1060 PAUSE 10
1070 NEXT I
1100 PAUSE 10
1200 FOR I=N TO 28
1210 PRINT AT 19,A+10;
     " ":READ A: READ C
1220 GOSUB 2000
1230 BEEP C,A: PAUSE B
1240 NEXT I
1250 PAUSE 10
1260 RESTORE
1270 FOR N=1 TO 13
1280 PRINT AT 19,A+10;
     " ":READ A: READ C
1290 GOSUB 2000
1300 BEEP C,A: PAUSE B
1310 NEXT N: LET A=3:
     GOSUB 2000
1320 BEEP .1,A: PAUSE B
1330 PRINT AT 19,A+10;" ":
     GOSUB 2000
1340 BEEP .8,3: PAUSE B
1350 PRINT AT 19,A+10;" "
1360 LET A=0
1370 RESTORE
1900 PAUSE 200
1910 GOTO 950
2000 LET B$=A$
2010 LET B$(A+10)=CHR$
     (144)
2020 PRINT AT 19,1;B$
2030 RETURN
3000 DATA 10,.8,3,.8,5,
     .3,7,.1,8,.1,7,.3,
     3,.4,5,.3,7,.1,8,.1,7,
     .3,3,.3,5,.6,-2,.8,5,
     .8,10,.6,8,.1,7,.3,5,
     .3,3,.3,2,.2,0,.8,12,
     .4,10,.1,8,.2,7,.2,5,
     .6