Displays the Olympic logo.
Content
Image Gallery
Source Code
1 BORDER 5: PAPER 6: INK 1
9 REM \::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::
10 REM \::\::OLYPIAD XXIII\::\::
11 REM \::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::
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,31;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 GO SUB 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 GO SUB 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 GO SUB 2000
1300 BEEP C,A: PAUSE B
1310 NEXT N: LET A=3: GO SUB 2000
1320 BEEP .1,A: PAUSE B
1330 PRINT AT 19,A+10;" ": GO SUB 2000
1340 BEEP .8,3: PAUSE B
1350 PRINT AT 19,A+10;" "
1360 LET A=0
1370 RESTORE
1900 PAUSE 200
1910 GO TO 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
3001 DATA 10,.1,8,.2,7,.2,5,.6
9997 STOP
9998 SAVE "OLYMPIAD" LINE 1
9999 CLS : PRINT AT 10,6;"REWIND TO VERIFY": PAUSE 200: VERIFY "OLYMPIAD"