MUSIC 10 FILES TUNES.DATA.UT,* 20 ON END #1 THEN 270 30 DIM A$[80],B$[80],C$[20,20],D$[50,10] 40 INTEGER A,B,T,T0 42 REM System X,"FILE JAS;DEV=xx;ACC=OUT" 43 REM If X Then Do 44 REM System X,"FILE JAS=$NULL" 45 REM If X Then Print X 46 REM If X Then Stop 47 REM Doend 48 REM Assign "JAS",2,X 50 T0=0 51 D$[1]=D$[7]=D$[13]=D$[19]="HAP",D$[2]=D$[8]=D$[14]=D$[20]=D$[27]=& "E" 52 D$[3]=D$[9]=D$[15]=D$[21]="BIRTH",D$[4]=D$[10]=D$[16]=D$[22]=& "DAY" 53 D$[5]=D$[11]=D$[23]="TOO",D$[6]=D$[12]=D$[18]=D$[24]="YOU" 54 D$[17]="DEAR",D$[25]="AND",D$[26]="MEN",D$[28]="MOR",D$[29]="" 60 ON END #1 THEN 100 70 READ #1,T0*3+2;C$[T0+1] 80 T0=T0+1 90 GOTO 70 100 PRINT USING 230 110 PRINT SPA(20);"MUSIC-MAKER: PRESS '/' TO END";LIN(1) 120 FOR I=1 TO T0 130 IF T0<9 THEN PRINT USING 260;CHR$(I+64),C$[I] 140 ELSE DO 150 IF T0/2<>INT(T0/2) AND I=CEI(T0/2) THEN DO 160 PRINT USING 240;CHR$(I+64),C$[I] 170 GOTO 270 180 DOEND 190 PRINT USING 250;CHR$(I+64),C$[I],CHR$(CEI(T0/2)+I+64),C$[CEI(& T0/2)+I] 200 IF I=T0/2 THEN 270 210 DOEND 220 NEXT I 230 IMAGE '27"H"'27"J",/ 240 IMAGE 4X,A,") ",32A 250 IMAGE 2(4X,A,") ",32A) 260 IMAGE 25X,A,") ",32A 270 PRINT LIN(1);SPA(20);"CHOICE: "; 280 CALL GET'STR(T$,1) 290 IF T$[1;1]="/" THEN 490 300 IF T$="R" THEN DO 310 FOR I=1 TO 80 320 A$=CHR$(CEI(RND(1)*16)+64)+A$ 325 B$=B$+CHR$(65+CEI(RND(1)*2)) 330 NEXT I 340 DOEND 350 ELSE DO 360 T=(NUM(T$)-64) MOD (T0+1) 370 T=T*3 380 LINPUT #1,T;A$ 390 LINPUT #1,T+1;B$ 400 DOEND 410 FOR I=1 TO LEN(DEB$(A$)) 420 IF I MOD 20=1 THEN PRINT '27"H" 430 A=NUM(A$)-65,B=NUM(B$)-65 435 REM If T$="E" Then Print #2;D$[I] 440 PRINT '27"&td";A;"F" 450 CALL PAUSE(B/20) 460 A$=A$[2],B$=B$[2] 470 NEXT I 480 GOTO 100 490 PRINT '27"H"'27"J"