]QCSCTCTAFLA2 BASIC 2 KEY CREATE PROGRAM<BY MIKE FLEISCHMANNFANTIC MAGAZINEd;A(,;@,n, (},( BASIC 2 KEY CREATE PROGRAMx**(" THE OBJECT CODE IS IN AUTORUN FMT1(1(&DO YOU WANT THE COMMANDS TO BE PRINTEDF 4Y6-@FFLAG=1 ->SEND TO P: FLAG=0 -> SEND TO SCREEN>>Need to find out how long the ML program is. So we count''the bytes in the data statements."0 A 0The -1 is a terminator6-%@ A5"5Now we count the # of bytes in the commands6-%B:,I$7@<@,4@AILooking for the 5 '@' signs at endAASince we have to read the commands anyway may as well print88them out in readable form. Note: leave '@' sign so<<we know if there are any blanks at the end of command.>@>  CTRL 7@<@, = 7@,">"@>3 CTRL 7@<@, = 7@,, A 6I6-%At$&@IAdd in starting addr. of ML code - the header@for a ML boot file.J?6-P:'AV,$6-&$AV?Compute the low and highTNow wait for the user.^,,($Press return when the disk you want h( is in drive rE.@@ D:AUTORUN.SYSEGet ready to output.|$#$Set pointer to top of data."% A`%Look for -1==500 & 501 are flags to tell prgm where to put end addr."A6-"A6-*@ A77ML program output. Now we output the command set."2-@B:,2Output string byte by byte.6-@:7<,,"@:\,6-@:,,*@ A%7@<@,4@@APALook for the 5 '@' signs. Ap&HHThe program & data set are out. Now output the autoload appendage.0,-@@"(*@, :@&DONE''99Below is the data for the machine language program.$'ϠԠ١.'8'dd255,255,0,29,500,501,234,160,1,173,8,2,153,182,29,200,173,9,2,153,182,29,169,44,141,8,2,169,29B'bb141,9,2,169,500,141,231,2,24,105,112,169,501,141,232,2,105,1,133,15,96,88,142,192,29,140,193L'``29,173,9,210,72,41,128,208,4,104,24,144,113,169,3,133,245,169,30,133,246,104,41,63,170,189V'aa195,29,201,255,240,94,133,247,160,0,177,245,197,247,240,24,201,64,240,80,200,177,245,201,64`'aa208,249,200,24,152,101,245,133,245,144,228,230,246,208,224,230,245,208,2,230,246,174,22,228j'bb172,23,228,232,208,1,200,142,187,29,140,188,29,160,0,177,245,201,64,240,13,140,194,29,32,186t'``29,172,194,29,200,24,144,237,169,0,133,77,169,48,141,43,2,174,192,29,172,193,29,104,64,174~'``192,29,172,193,29,76,0,80,0,76,0,80,69,58,155,0,0,0,76,74,59,255,255,75,43,42,79,255,80,85'``255,73,45,61,86,255,67,255,255,66,88,90,52,255,51,54,27,53,50,49,44,32,46,78,255,77,47,255'VV82,255,69,89,255,84,87,81,57,255,48,55,255,56,60,62,70,72,68,255,255,71,83,65,-1 N*N BELOW IS THE COMMAND TABLE4N THE FORMAT OF THE TABLE IS>N77(KEY)(COMMAND)[:COMMAND:...:COMMAND](@) WHERE THEHN""'@' SYMBOL IS THE TERMINATORRN((The set must end with 5 '@' signs.\N??Only capital letters and numbers can be used!!! for (KEY)fNpNzNN--ACOLOR @,CCHR$(@,DDATA @,FFOR @,GGOTO @N55HGOSUB @,IINPUT @,JDRAWTO @,KGRAPHICS @,LLIST @N11MLPRINT @,NNEXT @,OPADDLE(@,PPLOT @,QPOS. @N66RRETURN @,SSO. @,TTHEN @,UREAD @,VSE. @,WSTICK(@N,,XSTRIG(@,YSTR$(@,2LOAD "D:@,3SAVE "D:@N4LIST "P:"@,5LIST "D:@NUU0DEC=(HEX$(I\I)<="9")*(ASC(HEX$(I\I))-48)+(HEX$(I\I)>="A")*(ASC(HEX$(I\I))-55)@N6ENTER "D:@,@@@@@0u:uDuNu11Below is the appendage for an autorun file.Xu0,224,2,225,2,0,29 D:BASICKEY