Home » Personal collection » Acorn ADFS disks » Archimedes » Rhythm_Box_11.ADF » !RBConvert/!TxtImage
!RBConvert/!TxtImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Archimedes » Rhythm_Box_11.ADF |
| Filename: | !RBConvert/!TxtImage |
| Read OK: | ✔ |
| File size: | 1275 bytes |
| Load address: | FFFFFF43 |
| Exec address: | 68967CFF |
File contents
PROCinit
PROCmain
END
DEF PROCinit
DIM block 25*1024,template 1024,menudata 1024,icondata 1024
SYS "Wimp_Initialise",200,&4B534154,"RBConvert" TO ,task
!block=-1:block!4=0:block!8=0:block!12=68:block!16=68
block!20=&700301A:$(block+24)="!RBConvert"+CHR$0
SYS "Wimp_CreateIcon",,block TO baricon
quit=FALSE
iconptr=icondata
SYS "Wimp_OpenTemplate",,"<RBConvert$Dir>.Templates"
info=FNtemplate("progInfo")
SYS "Wimp_CloseTemplate"
optptr=iconptr
DIM loadarea 40*1024
DIM otherarea 129*176
ENDPROC
DEF FNtemplate(template$)
LOCAL handle
SYS "Wimp_LoadTemplate",,template,iconptr,icondata+1024,-1,template$,0 TO ,,iconptr
SYS "Wimp_CreateWindow",,template TO handle
=handle
DEF PROCmain
WHILE NOT quit
SYS "Wimp_Poll",,block TO reason
CASE reason OF
WHEN 0 :
WHEN 2 : SYS "Wimp_OpenWindow",,block
WHEN 3 : SYS "Wimp_CloseWindow",,block
WHEN 6 : PROCbuttons
WHEN 9 : PROCmenu
WHEN 17,18 : IF block!16=0 THEN quit=TRUE
IF block!16=3 THEN PROCload
ENDCASE
ENDWHILE
ENDPROC
DEF PROCopenwindow(window)
!block=window
SYS "Wimp_GetWindowState",,block
block!28=-1
SYS "Wimp_OpenWindow",,block
ENDPROC
:
DEF PROCclosewindow(window)
!block=window
SYS "Wimp_CloseWindow",,block
ENDPROC
DEF FNheader(header$)
LOCAL length
header$=LEFT$(header$,12)
length=LEN(header$)
WHILE LEN(header$)<12:header$=header$+CHR$0:ENDWHILE
[OPT I
EQUS header$
EQUB 7:EQUB 2:EQUB 7:EQUB 0
.currentheader
EQUD length*16:EQUD 44:EQUD 0
]
=I
DEF FNoption(option$,submenu,flags,shade)
IF LEN(option$)*16+16>!currentheader THEN !currentheader=LEN(option$)*16+16
[OPT I
EQUD flags
EQUD submenu
EQUD &07000101-(shade*&400000)
EQUD optptr
EQUD -1
EQUD LEN(option$)+1
]
$optptr=option$+CHR$0
optptr+=(LEN(option$)+1)
=I
DEF FNnullstring(ptr)
LOCAL string$
WHILE ?ptr<>0
string$=string$+CHR$?ptr
ptr+=1
ENDWHILE
=string$
DEF PROCbuttons
CASE block!12 OF
WHEN info :
WHEN -2 : IF block!8=2 THEN PROCcreatemenu
ENDCASE
ENDPROC
DEF PROCcreatemenu
P%=menudata
I=2
[OPT I
FNheader("RBConvert")
FNoption("Info",info,0,FALSE)
FNoption("Quit",-1,128,FALSE)
]
SYS "Wimp_CreateMenu",,menudata,block!0-64,184
ENDPROC
DEF PROCmenu
IF !block=1 THEN quit=TRUE
ENDPROC
DEF PROCload
IF block!40=&DC8 THEN
PROCconvert(FNnullstring(block+44))
ENDIF
ENDPROC
DEF PROCconvert(file$)
A=OPENIN(file$):size=EXT#A:CLOSE#A:end=loadarea+size
SYS "OS_File",255,file$,loadarea,0
A=loadarea?12:loadarea?12=13
IF $loadarea="!RhythmBoxII" THEN ENDPROC
loadarea?12=A
SYS "Hourglass_On"
$block="!RhythmBoxII"
name=block+12
composer=block+44
songdef=block+76
voicetable=block+1100
barnumaddr=block+2124
bardefaddr=block+2128
name$=file$
WHILE INSTR(name$,":"):name$=MID$(name$,INSTR(name$,":")+1):ENDWHILE
WHILE INSTR(name$,"."):name$=MID$(name$,INSTR(name$,".")+1):ENDWHILE
$name=LEFT$(name$,27)
$composer="Converted from RhythmBox"
ptr=loadarea
done=FALSE
FORI=0 TO 255
IF done THEN
songdef!(I*4)=0
ELSE
IF !ptr=&FF THEN
done=TRUE
songdef!(I*4)=0
ELSE
bar=ptr?0
loops=ptr?1
IF loops=0 THEN loopto=0 ELSE loopto=1+ptr?3
songdef?(I*4)=bar+1
songdef?(I*4+1)=16
songdef?(I*4+2)=loopto
songdef?(I*4+3)=loops
ENDIF
ptr+=4
ENDIF
NEXT
done=FALSE
FORI=0 TO 31
voicetable!(I*32)=0
IF done THEN
voicetable!(I*32+4)=0
ELSE
IF !ptr=0 THEN
ptr+=4
done=TRUE
voicetable!(I*32+4)=0
ELSE
FORD=0 TO 27
voicetable?(I*32+4+D)=?ptr
ptr+=1
NEXT
ptr+=2
ENDIF
ENDIF
NEXT
ptr2=otherarea
WHILE ptr<end
bytes=?ptr
byte=ptr?1
ptr+=2
$ptr2=STRING$(bytes,CHR$byte)
ptr2+=bytes
ENDWHILE
bars=128
FORI=0 TO 127
tempo=((otherarea!(I*176)) AND &FFFF)/128
beats=otherarea?(I*176+2)
bardefaddr?(I*172)=tempo
bardefaddr?(I*172+1)=beats
voices1=otherarea!(I*176+4)
voices2=otherarea!(I*176+8)
bardefaddr!(I*172+2)=voices1
bardefaddr!(I*172+6)=voices2
FORD=0 TO 7
stereo=otherarea!(I*176+12+D*4) AND &FFFF
IF stereo=7 THEN stereo=6
volume=((otherarea!(I*176+12+2+D*4) AND &FFFF)EOR &FFFF)+1
bardefaddr?(I*172+10+D)=stereo
bardefaddr?(I*172+18+D)=volume
NEXT
FORD=0 TO 15
bardefaddr?(I*172+26+D)=1
NEXT
bardefaddr!(I*172+42)=255
sum=0
FORD=0 TO 127
p=otherarea?(I*176+48+D)
sum+=p
IF p>0 THEN
p+=36
ELSE
IF D<8 THEN p=128 ELSE IF otherarea?(I*176+48+D-8)<>0 THEN p=128:p=0
ENDIF
bardefaddr?(I*172+44+D)=p
NEXT
IF sum<>0 THEN bars=I+1
NEXT
!barnumaddr=bars
SYS "Hourglass_Off"
SYS "OS_File",10,file$,&DC8,0,block,bardefaddr+bars*172
ENDPROC
00000000 0a 50 52 4f 43 69 6e 69 74 0a 50 52 4f 43 6d 61 |.PROCinit.PROCma|
00000010 69 6e 0a 45 4e 44 0a 0a 44 45 46 20 50 52 4f 43 |in.END..DEF PROC|
00000020 69 6e 69 74 0a 20 20 44 49 4d 20 62 6c 6f 63 6b |init. DIM block|
00000030 20 32 35 2a 31 30 32 34 2c 74 65 6d 70 6c 61 74 | 25*1024,templat|
00000040 65 20 31 30 32 34 2c 6d 65 6e 75 64 61 74 61 20 |e 1024,menudata |
00000050 31 30 32 34 2c 69 63 6f 6e 64 61 74 61 20 31 30 |1024,icondata 10|
00000060 32 34 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 49 |24. SYS "Wimp_I|
00000070 6e 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 26 |nitialise",200,&|
00000080 34 42 35 33 34 31 35 34 2c 22 52 42 43 6f 6e 76 |4B534154,"RBConv|
00000090 65 72 74 22 20 54 4f 20 2c 74 61 73 6b 0a 20 20 |ert" TO ,task. |
000000a0 21 62 6c 6f 63 6b 3d 2d 31 3a 62 6c 6f 63 6b 21 |!block=-1:block!|
000000b0 34 3d 30 3a 62 6c 6f 63 6b 21 38 3d 30 3a 62 6c |4=0:block!8=0:bl|
000000c0 6f 63 6b 21 31 32 3d 36 38 3a 62 6c 6f 63 6b 21 |ock!12=68:block!|
000000d0 31 36 3d 36 38 0a 20 20 62 6c 6f 63 6b 21 32 30 |16=68. block!20|
000000e0 3d 26 37 30 30 33 30 31 41 3a 24 28 62 6c 6f 63 |=&700301A:$(bloc|
000000f0 6b 2b 32 34 29 3d 22 21 52 42 43 6f 6e 76 65 72 |k+24)="!RBConver|
00000100 74 22 2b 43 48 52 24 30 0a 20 20 53 59 53 20 22 |t"+CHR$0. SYS "|
00000110 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 |Wimp_CreateIcon"|
00000120 2c 2c 62 6c 6f 63 6b 20 54 4f 20 62 61 72 69 63 |,,block TO baric|
00000130 6f 6e 0a 20 20 71 75 69 74 3d 46 41 4c 53 45 0a |on. quit=FALSE.|
00000140 0a 20 20 69 63 6f 6e 70 74 72 3d 69 63 6f 6e 64 |. iconptr=icond|
00000150 61 74 61 0a 20 20 53 59 53 20 22 57 69 6d 70 5f |ata. SYS "Wimp_|
00000160 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 |OpenTemplate",,"|
00000170 3c 52 42 43 6f 6e 76 65 72 74 24 44 69 72 3e 2e |<RBConvert$Dir>.|
00000180 54 65 6d 70 6c 61 74 65 73 22 0a 20 20 69 6e 66 |Templates". inf|
00000190 6f 3d 46 4e 74 65 6d 70 6c 61 74 65 28 22 70 72 |o=FNtemplate("pr|
000001a0 6f 67 49 6e 66 6f 22 29 0a 20 20 53 59 53 20 22 |ogInfo"). SYS "|
000001b0 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 |Wimp_CloseTempla|
000001c0 74 65 22 0a 20 20 6f 70 74 70 74 72 3d 69 63 6f |te". optptr=ico|
000001d0 6e 70 74 72 0a 0a 20 20 44 49 4d 20 6c 6f 61 64 |nptr.. DIM load|
000001e0 61 72 65 61 20 34 30 2a 31 30 32 34 0a 20 20 44 |area 40*1024. D|
000001f0 49 4d 20 6f 74 68 65 72 61 72 65 61 20 31 32 39 |IM otherarea 129|
00000200 2a 31 37 36 0a 0a 45 4e 44 50 52 4f 43 0a 0a 44 |*176..ENDPROC..D|
00000210 45 46 20 46 4e 74 65 6d 70 6c 61 74 65 28 74 65 |EF FNtemplate(te|
00000220 6d 70 6c 61 74 65 24 29 0a 20 20 4c 4f 43 41 4c |mplate$). LOCAL|
00000230 20 68 61 6e 64 6c 65 0a 20 20 53 59 53 20 22 57 | handle. SYS "W|
00000240 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |imp_LoadTemplate|
00000250 22 2c 2c 74 65 6d 70 6c 61 74 65 2c 69 63 6f 6e |",,template,icon|
00000260 70 74 72 2c 69 63 6f 6e 64 61 74 61 2b 31 30 32 |ptr,icondata+102|
00000270 34 2c 2d 31 2c 74 65 6d 70 6c 61 74 65 24 2c 30 |4,-1,template$,0|
00000280 20 54 4f 20 2c 2c 69 63 6f 6e 70 74 72 0a 20 20 | TO ,,iconptr. |
00000290 53 59 53 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |SYS "Wimp_Create|
000002a0 57 69 6e 64 6f 77 22 2c 2c 74 65 6d 70 6c 61 74 |Window",,templat|
000002b0 65 20 54 4f 20 68 61 6e 64 6c 65 0a 3d 68 61 6e |e TO handle.=han|
000002c0 64 6c 65 0a 0a 44 45 46 20 50 52 4f 43 6d 61 69 |dle..DEF PROCmai|
000002d0 6e 0a 20 20 57 48 49 4c 45 20 4e 4f 54 20 71 75 |n. WHILE NOT qu|
000002e0 69 74 0a 20 20 20 20 53 59 53 20 22 57 69 6d 70 |it. SYS "Wimp|
000002f0 5f 50 6f 6c 6c 22 2c 2c 62 6c 6f 63 6b 20 54 4f |_Poll",,block TO|
00000300 20 72 65 61 73 6f 6e 0a 20 20 20 20 43 41 53 45 | reason. CASE|
00000310 20 72 65 61 73 6f 6e 20 4f 46 0a 20 20 20 20 20 | reason OF. |
00000320 20 57 48 45 4e 20 30 20 3a 0a 20 20 20 20 20 20 | WHEN 0 :. |
00000330 57 48 45 4e 20 32 20 3a 20 53 59 53 20 22 57 69 |WHEN 2 : SYS "Wi|
00000340 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,|
00000350 62 6c 6f 63 6b 0a 20 20 20 20 20 20 57 48 45 4e |block. WHEN|
00000360 20 33 20 3a 20 53 59 53 20 22 57 69 6d 70 5f 43 | 3 : SYS "Wimp_C|
00000370 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f |loseWindow",,blo|
00000380 63 6b 0a 20 20 20 20 20 20 57 48 45 4e 20 36 20 |ck. WHEN 6 |
00000390 3a 20 50 52 4f 43 62 75 74 74 6f 6e 73 0a 20 20 |: PROCbuttons. |
000003a0 20 20 20 20 57 48 45 4e 20 39 20 3a 20 50 52 4f | WHEN 9 : PRO|
000003b0 43 6d 65 6e 75 0a 20 20 20 20 20 20 57 48 45 4e |Cmenu. WHEN|
000003c0 20 31 37 2c 31 38 20 3a 20 49 46 20 62 6c 6f 63 | 17,18 : IF bloc|
000003d0 6b 21 31 36 3d 30 20 54 48 45 4e 20 71 75 69 74 |k!16=0 THEN quit|
000003e0 3d 54 52 55 45 0a 20 20 20 20 20 20 20 20 20 20 |=TRUE. |
000003f0 20 20 20 20 20 20 20 20 20 49 46 20 62 6c 6f 63 | IF bloc|
00000400 6b 21 31 36 3d 33 20 54 48 45 4e 20 50 52 4f 43 |k!16=3 THEN PROC|
00000410 6c 6f 61 64 0a 20 20 20 20 45 4e 44 43 41 53 45 |load. ENDCASE|
00000420 0a 20 20 45 4e 44 57 48 49 4c 45 0a 45 4e 44 50 |. ENDWHILE.ENDP|
00000430 52 4f 43 0a 0a 44 45 46 20 50 52 4f 43 6f 70 65 |ROC..DEF PROCope|
00000440 6e 77 69 6e 64 6f 77 28 77 69 6e 64 6f 77 29 0a |nwindow(window).|
00000450 20 20 21 62 6c 6f 63 6b 3d 77 69 6e 64 6f 77 0a | !block=window.|
00000460 20 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 57 | SYS "Wimp_GetW|
00000470 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f |indowState",,blo|
00000480 63 6b 0a 20 20 62 6c 6f 63 6b 21 32 38 3d 2d 31 |ck. block!28=-1|
00000490 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 4f 70 65 |. SYS "Wimp_Ope|
000004a0 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 0a |nWindow",,block.|
000004b0 45 4e 44 50 52 4f 43 0a 3a 0a 44 45 46 20 50 52 |ENDPROC.:.DEF PR|
000004c0 4f 43 63 6c 6f 73 65 77 69 6e 64 6f 77 28 77 69 |OCclosewindow(wi|
000004d0 6e 64 6f 77 29 0a 20 20 21 62 6c 6f 63 6b 3d 77 |ndow). !block=w|
000004e0 69 6e 64 6f 77 0a 20 20 53 59 53 20 22 57 69 6d |indow. SYS "Wim|
000004f0 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c |p_CloseWindow",,|
00000500 62 6c 6f 63 6b 0a 45 4e 44 50 52 4f 43 0a 0a 44 |block.ENDPROC..D|
00000510 45 46 20 46 4e 68 65 61 64 65 72 28 68 65 61 64 |EF FNheader(head|
00000520 65 72 24 29 0a 20 20 4c 4f 43 41 4c 20 6c 65 6e |er$). LOCAL len|
00000530 67 74 68 0a 20 20 68 65 61 64 65 72 24 3d 4c 45 |gth. header$=LE|
00000540 46 54 24 28 68 65 61 64 65 72 24 2c 31 32 29 0a |FT$(header$,12).|
00000550 20 20 6c 65 6e 67 74 68 3d 4c 45 4e 28 68 65 61 | length=LEN(hea|
00000560 64 65 72 24 29 0a 20 20 57 48 49 4c 45 20 4c 45 |der$). WHILE LE|
00000570 4e 28 68 65 61 64 65 72 24 29 3c 31 32 3a 68 65 |N(header$)<12:he|
00000580 61 64 65 72 24 3d 68 65 61 64 65 72 24 2b 43 48 |ader$=header$+CH|
00000590 52 24 30 3a 45 4e 44 57 48 49 4c 45 0a 20 20 5b |R$0:ENDWHILE. [|
000005a0 4f 50 54 20 49 0a 20 20 45 51 55 53 20 68 65 61 |OPT I. EQUS hea|
000005b0 64 65 72 24 0a 20 20 45 51 55 42 20 37 3a 45 51 |der$. EQUB 7:EQ|
000005c0 55 42 20 32 3a 45 51 55 42 20 37 3a 45 51 55 42 |UB 2:EQUB 7:EQUB|
000005d0 20 30 0a 20 20 2e 63 75 72 72 65 6e 74 68 65 61 | 0. .currenthea|
000005e0 64 65 72 0a 20 20 45 51 55 44 20 6c 65 6e 67 74 |der. EQUD lengt|
000005f0 68 2a 31 36 3a 45 51 55 44 20 34 34 3a 45 51 55 |h*16:EQUD 44:EQU|
00000600 44 20 30 0a 20 20 5d 0a 3d 49 0a 0a 44 45 46 20 |D 0. ].=I..DEF |
00000610 46 4e 6f 70 74 69 6f 6e 28 6f 70 74 69 6f 6e 24 |FNoption(option$|
00000620 2c 73 75 62 6d 65 6e 75 2c 66 6c 61 67 73 2c 73 |,submenu,flags,s|
00000630 68 61 64 65 29 0a 20 20 49 46 20 4c 45 4e 28 6f |hade). IF LEN(o|
00000640 70 74 69 6f 6e 24 29 2a 31 36 2b 31 36 3e 21 63 |ption$)*16+16>!c|
00000650 75 72 72 65 6e 74 68 65 61 64 65 72 20 54 48 45 |urrentheader THE|
00000660 4e 20 21 63 75 72 72 65 6e 74 68 65 61 64 65 72 |N !currentheader|
00000670 3d 4c 45 4e 28 6f 70 74 69 6f 6e 24 29 2a 31 36 |=LEN(option$)*16|
00000680 2b 31 36 0a 20 20 5b 4f 50 54 20 49 0a 20 20 45 |+16. [OPT I. E|
00000690 51 55 44 20 66 6c 61 67 73 0a 20 20 45 51 55 44 |QUD flags. EQUD|
000006a0 20 73 75 62 6d 65 6e 75 0a 20 20 45 51 55 44 20 | submenu. EQUD |
000006b0 26 30 37 30 30 30 31 30 31 2d 28 73 68 61 64 65 |&07000101-(shade|
000006c0 2a 26 34 30 30 30 30 30 29 0a 20 20 45 51 55 44 |*&400000). EQUD|
000006d0 20 6f 70 74 70 74 72 0a 20 20 45 51 55 44 20 2d | optptr. EQUD -|
000006e0 31 0a 20 20 45 51 55 44 20 4c 45 4e 28 6f 70 74 |1. EQUD LEN(opt|
000006f0 69 6f 6e 24 29 2b 31 0a 20 20 5d 0a 20 20 24 6f |ion$)+1. ]. $o|
00000700 70 74 70 74 72 3d 6f 70 74 69 6f 6e 24 2b 43 48 |ptptr=option$+CH|
00000710 52 24 30 0a 20 20 6f 70 74 70 74 72 2b 3d 28 4c |R$0. optptr+=(L|
00000720 45 4e 28 6f 70 74 69 6f 6e 24 29 2b 31 29 0a 3d |EN(option$)+1).=|
00000730 49 0a 0a 44 45 46 20 46 4e 6e 75 6c 6c 73 74 72 |I..DEF FNnullstr|
00000740 69 6e 67 28 70 74 72 29 0a 20 20 4c 4f 43 41 4c |ing(ptr). LOCAL|
00000750 20 73 74 72 69 6e 67 24 0a 20 20 57 48 49 4c 45 | string$. WHILE|
00000760 20 3f 70 74 72 3c 3e 30 0a 20 20 20 20 73 74 72 | ?ptr<>0. str|
00000770 69 6e 67 24 3d 73 74 72 69 6e 67 24 2b 43 48 52 |ing$=string$+CHR|
00000780 24 3f 70 74 72 0a 20 20 20 20 70 74 72 2b 3d 31 |$?ptr. ptr+=1|
00000790 0a 20 20 45 4e 44 57 48 49 4c 45 0a 3d 73 74 72 |. ENDWHILE.=str|
000007a0 69 6e 67 24 0a 0a 44 45 46 20 50 52 4f 43 62 75 |ing$..DEF PROCbu|
000007b0 74 74 6f 6e 73 0a 20 20 43 41 53 45 20 62 6c 6f |ttons. CASE blo|
000007c0 63 6b 21 31 32 20 4f 46 0a 20 20 20 20 57 48 45 |ck!12 OF. WHE|
000007d0 4e 20 69 6e 66 6f 20 20 20 3a 0a 20 20 20 20 57 |N info :. W|
000007e0 48 45 4e 20 20 20 20 20 2d 32 20 3a 20 49 46 20 |HEN -2 : IF |
000007f0 62 6c 6f 63 6b 21 38 3d 32 20 54 48 45 4e 20 50 |block!8=2 THEN P|
00000800 52 4f 43 63 72 65 61 74 65 6d 65 6e 75 0a 20 20 |ROCcreatemenu. |
00000810 45 4e 44 43 41 53 45 0a 45 4e 44 50 52 4f 43 0a |ENDCASE.ENDPROC.|
00000820 0a 44 45 46 20 50 52 4f 43 63 72 65 61 74 65 6d |.DEF PROCcreatem|
00000830 65 6e 75 0a 20 20 50 25 3d 6d 65 6e 75 64 61 74 |enu. P%=menudat|
00000840 61 0a 20 20 49 3d 32 0a 20 20 5b 4f 50 54 20 49 |a. I=2. [OPT I|
00000850 0a 20 20 46 4e 68 65 61 64 65 72 28 22 52 42 43 |. FNheader("RBC|
00000860 6f 6e 76 65 72 74 22 29 0a 20 20 46 4e 6f 70 74 |onvert"). FNopt|
00000870 69 6f 6e 28 22 49 6e 66 6f 22 2c 69 6e 66 6f 2c |ion("Info",info,|
00000880 30 2c 46 41 4c 53 45 29 0a 20 20 46 4e 6f 70 74 |0,FALSE). FNopt|
00000890 69 6f 6e 28 22 51 75 69 74 22 2c 2d 31 2c 31 32 |ion("Quit",-1,12|
000008a0 38 2c 46 41 4c 53 45 29 0a 20 20 5d 0a 20 20 53 |8,FALSE). ]. S|
000008b0 59 53 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d |YS "Wimp_CreateM|
000008c0 65 6e 75 22 2c 2c 6d 65 6e 75 64 61 74 61 2c 62 |enu",,menudata,b|
000008d0 6c 6f 63 6b 21 30 2d 36 34 2c 31 38 34 0a 45 4e |lock!0-64,184.EN|
000008e0 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 4f 43 6d |DPROC..DEF PROCm|
000008f0 65 6e 75 0a 20 20 49 46 20 21 62 6c 6f 63 6b 3d |enu. IF !block=|
00000900 31 20 54 48 45 4e 20 71 75 69 74 3d 54 52 55 45 |1 THEN quit=TRUE|
00000910 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 |.ENDPROC..DEF PR|
00000920 4f 43 6c 6f 61 64 0a 20 20 49 46 20 62 6c 6f 63 |OCload. IF bloc|
00000930 6b 21 34 30 3d 26 44 43 38 20 54 48 45 4e 0a 20 |k!40=&DC8 THEN. |
00000940 20 20 20 50 52 4f 43 63 6f 6e 76 65 72 74 28 46 | PROCconvert(F|
00000950 4e 6e 75 6c 6c 73 74 72 69 6e 67 28 62 6c 6f 63 |Nnullstring(bloc|
00000960 6b 2b 34 34 29 29 0a 20 20 45 4e 44 49 46 0a 45 |k+44)). ENDIF.E|
00000970 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 4f 43 |NDPROC..DEF PROC|
00000980 63 6f 6e 76 65 72 74 28 66 69 6c 65 24 29 0a 0a |convert(file$)..|
00000990 41 3d 4f 50 45 4e 49 4e 28 66 69 6c 65 24 29 3a |A=OPENIN(file$):|
000009a0 73 69 7a 65 3d 45 58 54 23 41 3a 43 4c 4f 53 45 |size=EXT#A:CLOSE|
000009b0 23 41 3a 65 6e 64 3d 6c 6f 61 64 61 72 65 61 2b |#A:end=loadarea+|
000009c0 73 69 7a 65 0a 53 59 53 20 22 4f 53 5f 46 69 6c |size.SYS "OS_Fil|
000009d0 65 22 2c 32 35 35 2c 66 69 6c 65 24 2c 6c 6f 61 |e",255,file$,loa|
000009e0 64 61 72 65 61 2c 30 0a 0a 41 3d 6c 6f 61 64 61 |darea,0..A=loada|
000009f0 72 65 61 3f 31 32 3a 6c 6f 61 64 61 72 65 61 3f |rea?12:loadarea?|
00000a00 31 32 3d 31 33 0a 49 46 20 24 6c 6f 61 64 61 72 |12=13.IF $loadar|
00000a10 65 61 3d 22 21 52 68 79 74 68 6d 42 6f 78 49 49 |ea="!RhythmBoxII|
00000a20 22 20 54 48 45 4e 20 45 4e 44 50 52 4f 43 0a 6c |" THEN ENDPROC.l|
00000a30 6f 61 64 61 72 65 61 3f 31 32 3d 41 0a 53 59 53 |oadarea?12=A.SYS|
00000a40 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0a | "Hourglass_On".|
00000a50 24 62 6c 6f 63 6b 3d 22 21 52 68 79 74 68 6d 42 |$block="!RhythmB|
00000a60 6f 78 49 49 22 0a 0a 6e 61 6d 65 3d 62 6c 6f 63 |oxII"..name=bloc|
00000a70 6b 2b 31 32 0a 63 6f 6d 70 6f 73 65 72 3d 62 6c |k+12.composer=bl|
00000a80 6f 63 6b 2b 34 34 0a 73 6f 6e 67 64 65 66 3d 62 |ock+44.songdef=b|
00000a90 6c 6f 63 6b 2b 37 36 0a 76 6f 69 63 65 74 61 62 |lock+76.voicetab|
00000aa0 6c 65 3d 62 6c 6f 63 6b 2b 31 31 30 30 0a 62 61 |le=block+1100.ba|
00000ab0 72 6e 75 6d 61 64 64 72 3d 62 6c 6f 63 6b 2b 32 |rnumaddr=block+2|
00000ac0 31 32 34 0a 62 61 72 64 65 66 61 64 64 72 3d 62 |124.bardefaddr=b|
00000ad0 6c 6f 63 6b 2b 32 31 32 38 0a 0a 6e 61 6d 65 24 |lock+2128..name$|
00000ae0 3d 66 69 6c 65 24 0a 57 48 49 4c 45 20 49 4e 53 |=file$.WHILE INS|
00000af0 54 52 28 6e 61 6d 65 24 2c 22 3a 22 29 3a 6e 61 |TR(name$,":"):na|
00000b00 6d 65 24 3d 4d 49 44 24 28 6e 61 6d 65 24 2c 49 |me$=MID$(name$,I|
00000b10 4e 53 54 52 28 6e 61 6d 65 24 2c 22 3a 22 29 2b |NSTR(name$,":")+|
00000b20 31 29 3a 45 4e 44 57 48 49 4c 45 0a 57 48 49 4c |1):ENDWHILE.WHIL|
00000b30 45 20 49 4e 53 54 52 28 6e 61 6d 65 24 2c 22 2e |E INSTR(name$,".|
00000b40 22 29 3a 6e 61 6d 65 24 3d 4d 49 44 24 28 6e 61 |"):name$=MID$(na|
00000b50 6d 65 24 2c 49 4e 53 54 52 28 6e 61 6d 65 24 2c |me$,INSTR(name$,|
00000b60 22 2e 22 29 2b 31 29 3a 45 4e 44 57 48 49 4c 45 |".")+1):ENDWHILE|
00000b70 0a 0a 24 6e 61 6d 65 3d 4c 45 46 54 24 28 6e 61 |..$name=LEFT$(na|
00000b80 6d 65 24 2c 32 37 29 0a 24 63 6f 6d 70 6f 73 65 |me$,27).$compose|
00000b90 72 3d 22 43 6f 6e 76 65 72 74 65 64 20 66 72 6f |r="Converted fro|
00000ba0 6d 20 52 68 79 74 68 6d 42 6f 78 22 0a 0a 70 74 |m RhythmBox"..pt|
00000bb0 72 3d 6c 6f 61 64 61 72 65 61 0a 64 6f 6e 65 3d |r=loadarea.done=|
00000bc0 46 41 4c 53 45 0a 46 4f 52 49 3d 30 20 54 4f 20 |FALSE.FORI=0 TO |
00000bd0 32 35 35 0a 20 20 49 46 20 64 6f 6e 65 20 54 48 |255. IF done TH|
00000be0 45 4e 0a 20 20 20 20 73 6f 6e 67 64 65 66 21 28 |EN. songdef!(|
00000bf0 49 2a 34 29 3d 30 0a 20 20 45 4c 53 45 0a 20 20 |I*4)=0. ELSE. |
00000c00 20 20 49 46 20 21 70 74 72 3d 26 46 46 20 54 48 | IF !ptr=&FF TH|
00000c10 45 4e 0a 20 20 20 20 20 20 64 6f 6e 65 3d 54 52 |EN. done=TR|
00000c20 55 45 0a 20 20 20 20 20 20 73 6f 6e 67 64 65 66 |UE. songdef|
00000c30 21 28 49 2a 34 29 3d 30 0a 20 20 20 20 45 4c 53 |!(I*4)=0. ELS|
00000c40 45 0a 20 20 20 20 20 20 62 61 72 3d 70 74 72 3f |E. bar=ptr?|
00000c50 30 0a 20 20 20 20 20 20 6c 6f 6f 70 73 3d 70 74 |0. loops=pt|
00000c60 72 3f 31 0a 20 20 20 20 20 20 49 46 20 6c 6f 6f |r?1. IF loo|
00000c70 70 73 3d 30 20 54 48 45 4e 20 6c 6f 6f 70 74 6f |ps=0 THEN loopto|
00000c80 3d 30 20 45 4c 53 45 20 6c 6f 6f 70 74 6f 3d 31 |=0 ELSE loopto=1|
00000c90 2b 70 74 72 3f 33 0a 20 20 20 20 20 20 73 6f 6e |+ptr?3. son|
00000ca0 67 64 65 66 3f 28 49 2a 34 29 3d 62 61 72 2b 31 |gdef?(I*4)=bar+1|
00000cb0 0a 20 20 20 20 20 20 73 6f 6e 67 64 65 66 3f 28 |. songdef?(|
00000cc0 49 2a 34 2b 31 29 3d 31 36 0a 20 20 20 20 20 20 |I*4+1)=16. |
00000cd0 73 6f 6e 67 64 65 66 3f 28 49 2a 34 2b 32 29 3d |songdef?(I*4+2)=|
00000ce0 6c 6f 6f 70 74 6f 0a 20 20 20 20 20 20 73 6f 6e |loopto. son|
00000cf0 67 64 65 66 3f 28 49 2a 34 2b 33 29 3d 6c 6f 6f |gdef?(I*4+3)=loo|
00000d00 70 73 0a 20 20 20 20 45 4e 44 49 46 0a 20 20 20 |ps. ENDIF. |
00000d10 20 70 74 72 2b 3d 34 0a 20 20 45 4e 44 49 46 0a | ptr+=4. ENDIF.|
00000d20 4e 45 58 54 0a 0a 64 6f 6e 65 3d 46 41 4c 53 45 |NEXT..done=FALSE|
00000d30 0a 46 4f 52 49 3d 30 20 54 4f 20 33 31 0a 20 20 |.FORI=0 TO 31. |
00000d40 76 6f 69 63 65 74 61 62 6c 65 21 28 49 2a 33 32 |voicetable!(I*32|
00000d50 29 3d 30 0a 20 20 49 46 20 64 6f 6e 65 20 54 48 |)=0. IF done TH|
00000d60 45 4e 0a 20 20 20 20 76 6f 69 63 65 74 61 62 6c |EN. voicetabl|
00000d70 65 21 28 49 2a 33 32 2b 34 29 3d 30 0a 20 20 45 |e!(I*32+4)=0. E|
00000d80 4c 53 45 0a 20 20 20 20 49 46 20 21 70 74 72 3d |LSE. IF !ptr=|
00000d90 30 20 54 48 45 4e 0a 20 20 20 20 20 20 70 74 72 |0 THEN. ptr|
00000da0 2b 3d 34 0a 20 20 20 20 20 20 64 6f 6e 65 3d 54 |+=4. done=T|
00000db0 52 55 45 0a 20 20 20 20 20 20 76 6f 69 63 65 74 |RUE. voicet|
00000dc0 61 62 6c 65 21 28 49 2a 33 32 2b 34 29 3d 30 0a |able!(I*32+4)=0.|
00000dd0 20 20 20 20 45 4c 53 45 0a 20 20 20 20 20 20 46 | ELSE. F|
00000de0 4f 52 44 3d 30 20 54 4f 20 32 37 0a 20 20 20 20 |ORD=0 TO 27. |
00000df0 20 20 20 20 76 6f 69 63 65 74 61 62 6c 65 3f 28 | voicetable?(|
00000e00 49 2a 33 32 2b 34 2b 44 29 3d 3f 70 74 72 0a 20 |I*32+4+D)=?ptr. |
00000e10 20 20 20 20 20 20 20 70 74 72 2b 3d 31 0a 20 20 | ptr+=1. |
00000e20 20 20 20 20 4e 45 58 54 0a 20 20 20 20 20 20 70 | NEXT. p|
00000e30 74 72 2b 3d 32 0a 20 20 20 20 45 4e 44 49 46 0a |tr+=2. ENDIF.|
00000e40 20 20 45 4e 44 49 46 0a 4e 45 58 54 0a 0a 70 74 | ENDIF.NEXT..pt|
00000e50 72 32 3d 6f 74 68 65 72 61 72 65 61 0a 57 48 49 |r2=otherarea.WHI|
00000e60 4c 45 20 70 74 72 3c 65 6e 64 0a 20 20 62 79 74 |LE ptr<end. byt|
00000e70 65 73 3d 3f 70 74 72 0a 20 20 62 79 74 65 3d 70 |es=?ptr. byte=p|
00000e80 74 72 3f 31 0a 20 20 70 74 72 2b 3d 32 0a 20 20 |tr?1. ptr+=2. |
00000e90 24 70 74 72 32 3d 53 54 52 49 4e 47 24 28 62 79 |$ptr2=STRING$(by|
00000ea0 74 65 73 2c 43 48 52 24 62 79 74 65 29 0a 20 20 |tes,CHR$byte). |
00000eb0 70 74 72 32 2b 3d 62 79 74 65 73 0a 45 4e 44 57 |ptr2+=bytes.ENDW|
00000ec0 48 49 4c 45 0a 62 61 72 73 3d 31 32 38 0a 0a 46 |HILE.bars=128..F|
00000ed0 4f 52 49 3d 30 20 54 4f 20 31 32 37 0a 20 20 74 |ORI=0 TO 127. t|
00000ee0 65 6d 70 6f 3d 28 28 6f 74 68 65 72 61 72 65 61 |empo=((otherarea|
00000ef0 21 28 49 2a 31 37 36 29 29 20 41 4e 44 20 26 46 |!(I*176)) AND &F|
00000f00 46 46 46 29 2f 31 32 38 0a 20 20 62 65 61 74 73 |FFF)/128. beats|
00000f10 3d 6f 74 68 65 72 61 72 65 61 3f 28 49 2a 31 37 |=otherarea?(I*17|
00000f20 36 2b 32 29 0a 20 20 62 61 72 64 65 66 61 64 64 |6+2). bardefadd|
00000f30 72 3f 28 49 2a 31 37 32 29 3d 74 65 6d 70 6f 0a |r?(I*172)=tempo.|
00000f40 20 20 62 61 72 64 65 66 61 64 64 72 3f 28 49 2a | bardefaddr?(I*|
00000f50 31 37 32 2b 31 29 3d 62 65 61 74 73 0a 0a 20 20 |172+1)=beats.. |
00000f60 76 6f 69 63 65 73 31 3d 6f 74 68 65 72 61 72 65 |voices1=otherare|
00000f70 61 21 28 49 2a 31 37 36 2b 34 29 0a 20 20 76 6f |a!(I*176+4). vo|
00000f80 69 63 65 73 32 3d 6f 74 68 65 72 61 72 65 61 21 |ices2=otherarea!|
00000f90 28 49 2a 31 37 36 2b 38 29 0a 20 20 62 61 72 64 |(I*176+8). bard|
00000fa0 65 66 61 64 64 72 21 28 49 2a 31 37 32 2b 32 29 |efaddr!(I*172+2)|
00000fb0 3d 76 6f 69 63 65 73 31 0a 20 20 62 61 72 64 65 |=voices1. barde|
00000fc0 66 61 64 64 72 21 28 49 2a 31 37 32 2b 36 29 3d |faddr!(I*172+6)=|
00000fd0 76 6f 69 63 65 73 32 0a 0a 20 20 46 4f 52 44 3d |voices2.. FORD=|
00000fe0 30 20 54 4f 20 37 0a 20 20 20 20 73 74 65 72 65 |0 TO 7. stere|
00000ff0 6f 3d 6f 74 68 65 72 61 72 65 61 21 28 49 2a 31 |o=otherarea!(I*1|
00001000 37 36 2b 31 32 2b 44 2a 34 29 20 41 4e 44 20 26 |76+12+D*4) AND &|
00001010 46 46 46 46 0a 20 20 20 20 49 46 20 73 74 65 72 |FFFF. IF ster|
00001020 65 6f 3d 37 20 54 48 45 4e 20 73 74 65 72 65 6f |eo=7 THEN stereo|
00001030 3d 36 0a 20 20 20 20 76 6f 6c 75 6d 65 3d 28 28 |=6. volume=((|
00001040 6f 74 68 65 72 61 72 65 61 21 28 49 2a 31 37 36 |otherarea!(I*176|
00001050 2b 31 32 2b 32 2b 44 2a 34 29 20 41 4e 44 20 26 |+12+2+D*4) AND &|
00001060 46 46 46 46 29 45 4f 52 20 26 46 46 46 46 29 2b |FFFF)EOR &FFFF)+|
00001070 31 0a 20 20 20 20 62 61 72 64 65 66 61 64 64 72 |1. bardefaddr|
00001080 3f 28 49 2a 31 37 32 2b 31 30 2b 44 29 3d 73 74 |?(I*172+10+D)=st|
00001090 65 72 65 6f 0a 20 20 20 20 62 61 72 64 65 66 61 |ereo. bardefa|
000010a0 64 64 72 3f 28 49 2a 31 37 32 2b 31 38 2b 44 29 |ddr?(I*172+18+D)|
000010b0 3d 76 6f 6c 75 6d 65 0a 20 20 4e 45 58 54 0a 0a |=volume. NEXT..|
000010c0 20 20 46 4f 52 44 3d 30 20 54 4f 20 31 35 0a 20 | FORD=0 TO 15. |
000010d0 20 20 20 62 61 72 64 65 66 61 64 64 72 3f 28 49 | bardefaddr?(I|
000010e0 2a 31 37 32 2b 32 36 2b 44 29 3d 31 0a 20 20 4e |*172+26+D)=1. N|
000010f0 45 58 54 0a 20 20 62 61 72 64 65 66 61 64 64 72 |EXT. bardefaddr|
00001100 21 28 49 2a 31 37 32 2b 34 32 29 3d 32 35 35 0a |!(I*172+42)=255.|
00001110 20 20 73 75 6d 3d 30 0a 20 20 46 4f 52 44 3d 30 | sum=0. FORD=0|
00001120 20 54 4f 20 31 32 37 0a 20 20 20 20 70 3d 6f 74 | TO 127. p=ot|
00001130 68 65 72 61 72 65 61 3f 28 49 2a 31 37 36 2b 34 |herarea?(I*176+4|
00001140 38 2b 44 29 0a 20 20 20 20 73 75 6d 2b 3d 70 0a |8+D). sum+=p.|
00001150 20 20 20 20 49 46 20 70 3e 30 20 54 48 45 4e 0a | IF p>0 THEN.|
00001160 20 20 20 20 20 20 70 2b 3d 33 36 0a 20 20 20 20 | p+=36. |
00001170 45 4c 53 45 0a 20 20 20 20 20 20 49 46 20 44 3c |ELSE. IF D<|
00001180 38 20 54 48 45 4e 20 70 3d 31 32 38 20 45 4c 53 |8 THEN p=128 ELS|
00001190 45 20 49 46 20 6f 74 68 65 72 61 72 65 61 3f 28 |E IF otherarea?(|
000011a0 49 2a 31 37 36 2b 34 38 2b 44 2d 38 29 3c 3e 30 |I*176+48+D-8)<>0|
000011b0 20 54 48 45 4e 20 70 3d 31 32 38 3a 70 3d 30 0a | THEN p=128:p=0.|
000011c0 20 20 20 20 45 4e 44 49 46 0a 20 20 20 20 62 61 | ENDIF. ba|
000011d0 72 64 65 66 61 64 64 72 3f 28 49 2a 31 37 32 2b |rdefaddr?(I*172+|
000011e0 34 34 2b 44 29 3d 70 0a 20 20 4e 45 58 54 0a 20 |44+D)=p. NEXT. |
000011f0 20 49 46 20 73 75 6d 3c 3e 30 20 54 48 45 4e 20 | IF sum<>0 THEN |
00001200 62 61 72 73 3d 49 2b 31 0a 4e 45 58 54 0a 0a 21 |bars=I+1.NEXT..!|
00001210 62 61 72 6e 75 6d 61 64 64 72 3d 62 61 72 73 0a |barnumaddr=bars.|
00001220 53 59 53 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f |SYS "Hourglass_O|
00001230 66 66 22 0a 53 59 53 20 22 4f 53 5f 46 69 6c 65 |ff".SYS "OS_File|
00001240 22 2c 31 30 2c 66 69 6c 65 24 2c 26 44 43 38 2c |",10,file$,&DC8,|
00001250 30 2c 62 6c 6f 63 6b 2c 62 61 72 64 65 66 61 64 |0,block,bardefad|
00001260 64 72 2b 62 61 72 73 2a 31 37 32 0a 0a 45 4e 44 |dr+bars*172..END|
00001270 50 52 4f 43 0a |PROC.|
00001275 
!RBConvert/!TxtImage.m0
!RBConvert/!TxtImage.m1
!RBConvert/!TxtImage.m2
!RBConvert/!TxtImage.m4
!RBConvert/!TxtImage.m5
.