﻿1 REM TURK MARSI
2 REM
3 REM BU PROGRAM MOTZART IN TURK MARSINI ÇALAR. MAHIR BEKİR ASUT I.U.FEN FAKULTESI ASTRONOMİ VE UZAY BİLİMLERİ
4 PRINT AT 10,11;"TURK MARSI";AT 12,12; "MOTZART"
5 LET x =.1
10 READ y
15 IF y=0 THEN STOP
20 BEEP x,y
30 GO TO 10
40 DATA -50,-50,23,21,20,21,24,9,4,-3,34,24,23,24,25,9,4,-3,29,28,27,28,33,33,32,33,35,33,32,33,36,9,4,-3,33,21,36,21,35,16,33,16,31,16,33,16,35,16,33,16,31,16,33,16,35,16,33,16,31,16,30,16,28,23,19,16,26,12,29,12,31,12,31,12,33,31,29,25,26,19,14,7,28,12,29,12,31,12,31,12,33,31,29,28,26,19,14,7,24,7,26,7,26,7,28,7,29,26,26,24,23,11,4,-1,24,7,26,7,28,7,28,7,29,28,26,24,23,4,-1,-8
50 DATA 23,21,20,21,24,9,4,-3,26,24,23,24,28,9,4,-3,29,28,27,28,35,33,32,33,35,39,32,33,36,9,4,-3,33,9,35,9,36,9,35,9,33,9,32,9,33,14,26,14,29,14,26,14,24,17,12,5,23,16,11,4,21,-3,1,4,21,4,23,4,25,4,8,11,21,4,23,4,25,4,23,4,21,4,20,4,18,4,20,4,21,4,23,4,20,4,16,4,21,4,23,4,25,4,8,11,21,4,23,4,25,4,23,4,21,4,20,4,18,4,23,4,20,4,16,4,21,4,1,-3
60 DATA 21,4,23,4,25,4,8,11,21,4,23,4,25,4,23,4,21,4,20,4,18,4,20,4,21,4,23,4,20,4,16,4,21,4,23,4,25,4,8,11,21,4,23,4,25,4,23,4,21,4,20,4,18,4,23,4,20,4,16,4,21,4,1,-3
70 DATA 23,21,20,21,24,9,4,-3,25,24,23,24,28,9,4,-3,29,28,27,28,35,33,32,33,35,33,32,33,36,9,4,-3,33,9,35,9,36,9,35,9,33,9,32,9,33,14,28,14,29,14,26,14,24,19,16,12,23,11,16,20,21,21,21,21,0