﻿1 REM *****ISTIKLAL MARSI*****
2 REM *****23-02-1986********
5 REM ****ORHAN YILMAZ****
100 READ PT1,T,PT2,P
110 IF PT1=-1 AND T=-l AND PT2=-1 AND P=-l THEN END
120 GOSUB 1000
130 GOTO 100
1000 SOUND 0,PT1,10,8
1002 SOUND 1,PT2,10,4
1010 POKE 20,4
1020 C=PEEK(20)
1030 IF C<T AND C<P THEN GOTO 1020
1040 RETURN
2000 DATA 64,60,128,60,0,0,0,0,64,10,128,10,O,0,0,O,64,10,128,10,0,0,0,0,64,60,128,60,0,0,0,0
2010 DATA 64,10,128,10,0,0,0,0,64,10,128,10,0,0,0,0
2020 DATA 64,20,128,20,0,0,0,0,64,20,128,20,0,0,0,0
2030 DATA 64,20,128,20,0,0,0,0,64,20,128,20,0,0,0,0,64,20,128,20,0,20,0,20,0,40,128,40
2040 DATA 96,40,96,40,85,40,102,40,81,40,96,40,102,30,128,30,85,10,128,10
2050 DATA 96,120,96,120,0,0,0,0,96,40,96,40
2060 DATA 72,40,72,40,64,40,76,40,60,30,72,30,64,10,72,10,76,30,96,30,64,10,108,10
2070 DATA 72,120,121,120,64,13,128,13,68,14,121,14,64,13,128,13
2080 DATA 85,40,102,40,0,0,0,0,85,70,128,70,72,10,128,10,81,30,114,30,102,10,102,10
2090 DATA 96,30,96,30,85,10,128,10,81,30,96,30,72,10,96,10,64,30,108,30,60,10,121,10,53,30,128,30
2100 DATA 47,10,121,10
2110 DATA 53,40,108,40,0,0,0,0,108,13,108,13,114,14,114,14,108,13,108,13,64,40,108,40,72,40,121,40
2120 DATA 81,120,128,120,128,13,128,13,136,14,136,14,128,13,128,13
2130 DATA 35,40,102,40,128,40,128,40,0,0,0,0,64,30,128,30,0,0,0,0,72,10,128,10,0,0,0,0
2140 DATA 81,13,128,13,85,14,114,14,81,13,102,13
2150 DATA 96,40,96,40,0,0,0,0,47,70,96,70,53,10,96,10,0,0,0,0,60,30,96,30,64,10,108,10
2160 DATA 72,30,121,30,81,10,128,10,85,30,144,30,96,10,121,10,64,40,128,40,0,0,0,0,128,40,128,40
2170 DATA 96,120,96,120,0,40,0,40
2180 DATA -1,-1,-1,-1