2 ! **********************************************************************
3 ! Program          MUSIKABC.BAS     Utg}va  1.0      1986-11-23
4 ! av Curt Rehnborg, <1121>
5 ! Ins{nd av Curt Renborg
6 ! **********************************************************************
7 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 'THE ENTERTAINER      ' FLSH GRN 'Luxor ABC'
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 ; " Nej!";
470 END 
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 THE ENTERTAINER
660 DATA 3
665 DATA 37,8,39,8,35,8,32,6,34,8,30,6,25,8,27,8,23,8,20,6,22,8,18,6,13,8,15,8,11,8,8,6,10,8,8,8,7,8,6,6,-1,6,18,6
670 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,3,23,8,25,8,26,8,27,8,23,8,25,8,27,6,22,8,25,6,23,3
680 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,8,23,3,20,8,18,8,17,8,20,8,23,8,27,6,25,8,23,8,20,8,25,3
690 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,3,23,8,25,8,26,8,27,8,23,8,25,8,27,6,22,8,25,6,23,3
700 DATA 23,8,25,8,27,8,23,8,25,8,27,6,23,8,25,8,23,8,27,8,23,8,25,8,27,6,23,8,25,8,23,8,27,8,23,8,25,8,27,6,22,8,25,6
710 DATA 23,3
720 REM AGAIN
730 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,3,23,8,25,8,26,8,27,8,23,8,25,8,27,6,22,8,25,6,23,3
740 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,8,23,3,20,8,18,8,17,8,20,8,23,8,27,6,25,8,23,8,20,8,25,3
750 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,3,23,8,25,8,26,8,27,8,23,8,25,8,27,6,22,8,25,6,23,3
760 DATA 23,8,25,8,27,8,23,8,25,8,27,6,23,8,25,8,23,8,27,8,23,8,25,8,27,6,23,8,25,8,23,8,27,8,23,8,25,8,27,6,22,8,25,6
770 DATA 23,3
780 DATA 15,8,16,8,17,8,18,6,20,8,18,6,15,8,16,8,17,8,18,6,20,8,18,6,27,8,23,8,18,8,20,8,22,8,23,8,25,8,27,8,25,8,23,8
790 DATA 25,8,18,8,15,8,16,8,18,8,20,8,18,8,15,8,16,8,18,6,20,8,18,6,15,8,16,8,17,8,18,6,20,8,18,6,18,8,20,8,21,8,22,8
800 DATA 22,6, 22,6,20,8,17,8,13,8,18,4,18,8,15,8,16,8,17,8,18,6,20,8,18,6,15,8,16,8,17,8,18,6,20,8,18,6,27,8,23,8,18,8
810 DATA 20,8,22,8,23,8,25,8,27,8,25,8,23,8,25,8
820 DATA 23,4,23,8,18,8,17,8,18,8,23,6,20,8,23,6,20,8,23,8,20,8,18,8,23,8,27,8,30,6,27,8,23,8,18,8,20,6,23,6,27,8,25,6,23,3
830 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,3,23,8,25,8,26,8,27,8,23,8,25,8,27,6,22,8,25,6,23,3
840 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,8,23,3,20,8,18,8,17,8,20,8,23,8,27,6,25,8,23,8,20,8,25,3
850 DATA 13,8,14,8,15,8,23,6,15,8,23,6,15,8,23,3,23,8,25,8,26,8,27,8,23,8,25,8,27,6,22,8,25,6,23,3
860 DATA 23,8,25,8,27,8,23,8,25,8,27,6,23,8,25,8,23,8,27,8,23,8,25,8,27,6,23,8,25,8,23,8,27,8,23,8,25,8,27,6
870 DATA 22,8,25,6,23,4,23,6