Olympiad

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"