2 ! **********************************************************************
3 ! Program          MUSIK802.BAS     Utg}va  1.0      1986-11-23
4 ! av Curt Rehnborg, <1121>
5 ! Ins{nd av Curt Renborg
6 ! **********************************************************************
8 FLOAT : EXTEND 
9 OUT 99,1
10 DIM A$=41
20 A$=CHR$(245,197,33)+CVT%$(VARPTR(A$)+40)
30 A$=A$+CHR$(70,35,78,33,0,0,197,125,219,5,11,120,177,188,194)+CVT%$(VARPTR(A$)+15)
40 A$=A$+CHR$(125,238,64,111,193,197)
50 A$=A$+CHR$(27,122,179,254,0,194)+CVT%$(VARPTR(A$)+12)
60 A$=A$+CHR$(193,193,241,201)+' '
70 A=VARPTR(A$) : A1=A+40
80 ; CHR$(12%);
90 ; YEL DBLE 'HEJA SVERIGE         ' FLSH GRN 'ABC 802'
100 FOR I%=1% TO 13%
110   READ G$
120   ; CUR(3%+I%,0%);GCYA;G$
130 NEXT I% 
140 ! BER[KNA F
150 N%=0%
160 READ D
170 READ D
180 ON ERROR GOTO 210
190 READ D%,D1
200 N%=N%+1% : GOTO 190
210 ON ERROR GOTO 
220 RESTORE 640 : READ D
230 READ L
240 DIM F%(N%),T%(N%)
250 FOR I%=1% TO N%
260   ; CUR(20%,0%);I%;
270   READ F%,T9
280   IF F%=-1% THEN F%(I%)=-1% ELSE F%(I%)=1/(.00704*2^((F%-30%)/12))
290   ! BER[KNA T
300   IF T9=INT(T9) THEN T%=T9 : GOTO 320
310   T=L*T9/2 : GOTO 340
320   T=L/(2^((T%+2%)/2%))
330   IF T%/2%<>T%/2 THEN T=T*.75
340   T=T-.0045
350   IF F%(I%)=-1% THEN T%(I%)=T/.00022 ELSE T%(I%)=T/.000004/F%(I%)
360   IF T%(I%)=0% THEN T%(I%)=1%
370 NEXT I% 
380 ; " Noter."
390 FOR I=1 TO 500 : NEXT I 
400 ; CHR$(13) "                 ";CHR$(13%);
410 ! 
420 FOR I%=1% TO N% : IF F%(I%)=-1% FOR ]%=0% TO T%(I%) : NEXT ]% ELSE POKE A1,SWAP%(F%(I%)),F%(I%) : D%=CALL(A,T%(I%))
430 NEXT I% 
440 ; "Igen ?"; : GET D$
450 IF D$="N" OR D$="n" THEN 460 ELSE 480
460 ; " OK! d} tar vi en annan l}t!"
470 CHAIN "MUSIKDTC"
480 ; " OK!" : GOTO 410
490 ! BILD DATA
500 DATA "   hi      <,,,,4"
510 DATA "   5j      5    5     =0"
520 DATA ",,,==,,,,,,=,,,,=,,,,,=,,,,,,,l,,,,,,<|"
530 DATA "  `7       5  j      7$      j      5"
540 DATA ",,==,,,,,n,,,,,,,,,,,=,,,,,,,n,,,,,,="
550 DATA " : 5                j        j      5"
560 DATA "l-,=,,,,,,,,,,,,,,,,,,,,,,,,,,n,,,,,,="
570 DATA "j`&7i                         j      5"
580 DATA "n.,=,=,,,,,,,,,,,,,,,,,,,,,,,,n,n{,,,="
590 DATA " e 5:                      =0 j      5"
600 DATA ",,/?,,,,,,,,,,,,,,,,,,,,,,,=,,.,,,,,,-/"
610 DATA "  05                       5"
620 DATA "  ""                      n$$"
630 ! NOTER
640 DATA 1
650 REM SOVJETHYMNEN
660 DATA 4
665 DATA 24,8,24,6,20,8,20,8,20,6,22,8,24,8,24,6,22,8,20,8,19,6,-1,8,22,8,22,6,19,8,20,8,22,8,19,8,24,8,20,8,17,4,15,6
670 DATA -1,8,15,8,20,6,20,8,22,8,19,6,19,8,20,8,17,7,15,9,17,8,19,8,15,6,-1,8
680 DATA 15,8,20,7,19,9,20,8,22,8,24,8,20,8,25,8,24,8,22,4,20,6,-1,6
690 DATA 15,8,20,7,19,9,20,8,22,8,24,8,20,8,25,8,24,8,22,4,20,6,-1,6
720 REM AGAIN
730 DATA 24,8,24,6,20,8,20,8,20,6,22,8,24,8,24,6,22,8,20,8,19,6,-1,8,22,8,22,6,19,8,20,8,22,8,19,8,24,8,20,8,17,4,15,6
740 DATA -1,8,15,8,20,6,20,8,22,8,19,6,19,8,20,8,17,7,15,9,17,8,19,8,15,6,-1,8
750 DATA 15,8,20,7,19,9,20,8,22,8,24,8,20,8,25,8,24,8,22,4,20,6,-1,6
760 DATA 15,8,20,7,19,9,20,8,22,8,24,8,20,8,25,8,24,8,22,4,20,6,-1,6