=y3i(Wc-f:1V}s"RTicksPerMeasure$ TicksPerBeatBeatsPerMeasureTRACKCMEASUREBEAT?TICKSADLIBDUR* TOTALTICKS AdLibTicksHEADER<TPBXBPMc TRACKSPERBEATNoteData ADLIBNOTEqHEX BYTEBYTESLCakeNotep ADLIBTICK@CAKETIME AL2CAKEDURCakeDur TRACKTICKS ADL2CAKEDUR"EVENTTEMP=TEMP4TEMP11EXITFLAGEOR}TEMP2 NEXTTRACKLS FOUNDTRACK NUMEVENTS NUMMEASURES NUMMEASURENUMBEATS# TICKSLEFTnBEATSADLIBTICKSLEFTNoteDur>TrackNum^ STARTTICK3AdLibStartTickMixedDatVCNOTECDUR dat.CAKENOTE AdNoteData/ AdLibTickDurLEFTAdLibTickDurLEFTR AdLibNoteDataAdLibEventStartTime FOUNTTRACKHIJANSORTVARgKMWNUMVARLOOPFLAGLVARNAMETrVARVALSortByStartTimeADLTDIBM PRINTSPECDRIVE DATADRIVENORMFORENORMBACKNVFORENVBACK TITLEFOREb TITLEBACKZ LABELCOLORDOTCOLOR GRIDCOLOR LINECOLOR ZNUMCOLOR TITLECOLOR NUMERICCOLORLINEPENsGRIDPENmLABELPEN$TITLEPEN NUMERICPENZNUMPEN SCREENMODEHZFLAGMESSAGE0EMPH DATACOLOR BUFNUM=MODEyDEFAULTDAFLAG@OPENFILEA DEMDEFAULT2 ADLIBFILEC CAKEWALKFILESTART}TRYAGAINl@ANYKEYANYZAdeselect@ INPUTUCASESTRNGOLOR@FILESPECJDRNAMEFILENAME FILEHANDLERfERRFLAGFI1FI23CROPENEXIT) OPENFILESTARTDONTASKFSTATOPENITOLDERRAdRLibTICKCakeDurationTIM MEASBEATTICKNUMTICKSMEASNoteDatCAKEFILEEXTSIZEBREMIFfred swapCakeNotepackagesthatyoumayneedreducemLmm* mm bsm   COMDEF.BAS'   August 16, 1988 * Device name for printer & default drive  Menu colorsFZ  ScreenPlot colors"/<IW  Plotter pen selection  gr} ' Screenmode & Hertz/Rad per sec modesi> ! Normal print & emphasis colors <0 B<B<B< "B< B< B< B<BI2Dynamically allocate array size for users memory +'Need 1000 bytes for rest of variables > <)WD+Track number> <)D*+Time the event started (in AdLib ticks).+&+Measured from the start of the song.> <)3D+MIDI note number> <)fD++Duration of the event (in Cakewalk ticks).Color used for printing messages and prompts +Emphasized color for messages and promptss Color used for entering data ) A D L 2 C A K E" ' Version 1.0"' Nov. 1, 1988". Written by Fred A. McGiven( CIS <70325,520>8 With the amount of memory in your machine:( you are limited to a total of  note events.-`bFILE NAME (ENTER = " , A to Abort)"LThis program reads a song data file created by Ad Lib's (TM) Visual ComposerBand converts it to a Cakewalk ASCII file. After the conversion you?will need to use the ASC2CAKE conversion utility furnished with"FCakewalk to make the file usable in Cakewalk. You may have to deselectCthe Ad Lib percusion tracks in Cakewalk. This program only supports"Gconversion of note data, i.e. it does not look at volume or tempo data."MAd Lib Inc. makes a plug in synthesizer card and a number of related software"Npackages for the IBM PC/XT/AT or compatible. If you have a high speed computerJyou may need to set it to a lower speed in order to make it work properly.NCakewalk is made by Twelve Tone Systems and is Copyrighted by Greg Hendershot.NCakewalk is a MIDI sequencer program that allows you to record, edit, and playLmusic on your synthesizer/keyboard. You will need a Roland MPU-401, MPU-IPC,Hor equivalent along with a MIDI instrument in order to use this program.NFeel free to make any modifications you want to this program. If there are anyNenergetic programmers out there who improve on this program please upload yourHyour new masterpiece for others to share. I hope you enjoy this program.-`bTEST.ROL0TEST.ASC=MB"CName of the AdLib file to be converted (usually has .ROL extension)".ROL 0 ` N",  VyO";Name of the new Cakewalk file (normally has .ASC extension)".ASC0."P# #v 0 #X)=y = ` N", Vy "#Get first 48 bytes from the file -_"#Read timimg info from AdLib file /_/i/y i yV Initialization! Read AdLib Visual Composer filer  Find ?Voix in the fileSearching for track datao "-Get 1 byte from the file "?",0-Get next four bytes  Voix,( y y ,AA ,00Sorting all tracks by time0}0 [VARIABLES]"0 Tempo=120"0 Tempo1=60"0 Tempo2=1200 Tempo3=2400 y}Wqf0Timesig=f/40Keysig=000[TRACKS]0 # L  #}W ""2Track" #"2 PLAY 0 0 0"000[EVENTS]0 # \  #W}W 1 "MTrack & MIDI channel (1) m #`L m N  #3 64 3Velocity  #f000[END]" r0Conversion NOT successful! y Vy0If Voix is found program drops through to here!Discard next 11 bytes/!Read total number of ticks on the AdLib track9TRACKTICKS% - total number of ticks on the AdLib track _/_/)q q,0-If no data for the track go on to the next one )C counter to keep track of how many trackticks have been processed2Reading track number " o8 Loop to read and process the track note/duration data )10EVENT% = number of events (all tracks combined)e 1Get four bytes of note datao _/ #3 _/_/) # ) y  ?x i+)R #f ?Subtract one from duration (either Cakewalk or my synthesizer ;doesn't like one note starting exactly when another ends)z f f #f #W 3, $BDiscard if no note is being played qhV$Do you want to convert another (Y/N)--W--,vY"--XY",M<}(> C ( >~ C+RC C,0I0 r0(0  C> y ( >x0 (#0R0 R,d # C)^ # ^N( #W ^W( # ^( #3 ^3( #f ^f( # C#( #60R(rF0R(y r^(R y0B ()( E 3   FILE Error "E -`b  E3yEw  !ICAKETIME0LmGyiVHThis subprogram converts a AdLib event starting time (in Ad Lib ticks)Cto the form of . measure:beat:tick that Cakewalk wants to see.i  V+ #<)R   V$ $ i+ #<)R $  i$ $?x i+)R} )}qW )}qW }}qWJ:")):")J)mz   OPENFILE"*    October 30, 1988GGFILE NAME (ENTER = " , A to Abort)" 2  ,  y  ."P,P) `,,A",  N" y."P,)`R"  [,f   N" r  Y" y O", Y",* ,*J      ! Already Exists! OVERWRITE? (Y/N)" -` -Y",<0) rF0 yyI",B", N",* N" File does not exist" Hit ENTER to continue"- , y)` z H FILESPEC   January 10, 1987:"P\"Pz r n :",\",0) r0 \"))0r 0y yyz  ANYKEY8b bsHit any key to continue"ss,Z Ls>z  INPUTUCASE6 z