FG#5FILEACHOICDUBHBLIOCIOCBICCOICSTICBAICBAICBLICBLERRO  ATARI 8BIT MIDI RECORDER by Christopher Terpin 1991%%terpin@autarch.acsu.buffalo.edu(2<load in ml routinesFK;@ ,filenameP #BU;'6-@ $A@%@ $AV36-;$9900Z3A'AV!+3MOVE HIMEM DOWN[% +@%(@ LOADING...d"n As:-@@:(@P:$A'A(,%x# %6-%@# AMAIN MENU,6-?:<@:I,,,INITIALIZE CIO HANDLER56-P:+I:,&A0,,5SIZE OF SONG BUFFERO ;,"67@,.>:AU,467,.>:AU,C67@,.O6--@-@@K3 (}-@@3(ɠɠAR@.-@@.(by Chris Terpin 19916-@@6(Choose one of the following:,-@@,(()est midi output"-@@ "(()ecord -@@ (()lay -@@ (()ave -@@ (()oad -@@ (()uit"+-@@ +( bytes recorded'+-@@!+(B:, byte buffer,)@6">:,4T A" A@">:,4R A " AJ">:,4P A0" AT">:,4S A@" A^">:,4L AP" Ac">:,4O A`" Ah>:,4Q A`r AԠɠś@""@@VPLAY CHROMATIC SCALEON CHANNEL 1-@6@$&(@>:,@&NOTE ON.-@@ 8'(@>:,'NOTE OFFB L$ ě 6-?:<@:R,AH**6-F:A,%AV$F:A,&C:,R +\$ ˛ R +@"(@playing=(@ Ԡ̭R(@Ϡ ''6-?:<@:P, 6-?:<@:C,,reset sio AA+@+@@(@7@<,@$((ERROR::F:A,!( hit a key)@!$ ěAR9 (}-@@5(LOAD: Enter filename96-?:<@:C,,reset sio*6-P:C:,'AV,*6-C:,&AV$5 AQ6-@5@I6-$@6-A4%-6-A5%;6-A6%I6-A7%6-A@%6-AA%?@'3?AU$6-?:C:hhhLV,<,$call cio" 6-F:,"6-F:,%AV$F:,)A6(ERROR:))@P$p ԛz6-?:<@:C,,AR'!!104,104,104,201,73,208,3,76'33,153,201,82,208,3,76,85$'!!154,201,80,208,3,76,116,154.' 201,67,208,3,76,183,153,568'96,160,0,185,26,3,201,0B'""240,9,200,200,200,192,34,208L'242,56,96,169,86,153,26,3V'!!200,169,86,153,26,3,200,169`'153,153,26,3,160,5,185,10j' 2,153,80,153,136,16,247,96t'0,0,0,0,0,0,100,153~'%%100,153,107,153,108,153,107,153'""107,153,76,106,153,169,0,141'""182,153,160,1,96,133,203,173'182,153,201,8,240,8,169,8'$$141,182,153,32,142,153,165,203'##141,13,210,165,58,240,252,169'0,133,58,160,1,96,169,115' 141,50,2,141,15,210,165,16'41,207,24,9,48,133,16,141'!!14,210,169,22,141,4,210,169'0,141,6,210,169,40,141,8'210,169,0,133,58,96,0,169'3,141,50,2,141,15,210,165(!!16,41,192,133,16,141,14,210 ( 169,0,133,204,133,58,160,5( 185,80,153,153,10,2,136,16(""247,96,152,72,173,15,210,141((!!10,210,165,204,240,42,160,02(""173,115,154,201,2,144,15,160<(!!1,145,205,169,255,160,0,145F(""205,140,115,154,160,2,173,13P($$210,145,205,200,152,24,101,205Z(##133,205,165,206,105,0,133,206d(##169,255,133,57,104,168,104,64n($$165,204,240,37,238,115,154,201x(""255,208,30,160,0,169,255,145(##205,160,1,169,255,145,205,169(""0,141,115,154,24,165,205,105(!!2,133,205,165,206,105,0,133(!!206,169,24,141,40,2,169,154(141,41,2,160,1,162,0,169( 2,32,92,228,96,104,133,206(##104,133,205,169,0,141,115,154(""133,57,32,65,154,169,218,141(10,2,169,153,141,11,2,32(""142,153,96,0,104,133,208,104(%%133,207,104,141,245,154,104,141(##244,154,169,0,141,246,154,169(!!248,141,12,2,169,154,141,13)2,169,3,141,14,2,169,155)141,15,2,32,142,153,160,0)""177,207,201,255,208,35,160,1")!!177,207,168,169,16,141,46,2,)162,0,169,5,32,92,228,1736)46,2,208,251,169,2,32,215@)##154,173,252,2,201,146,208,214J) 96,32,109,153,169,1,32,215T)##154,173,246,154,240,200,96,24^)##101,207,133,207,165,208,105,0h)$$133,208,205,245,154,144,12,165r)!!207,205,244,154,144,5,169,1|)141,246,154,96,0,0,0,0)165,16,9,8,133,16,141,14)##210,104,64,169,255,133,58,165)!!16,41,247,133,16,141,14,210)104,64,-1 D:MIDI.BAS