,-Ý…šV¨A¤H¤FN1¤FN2¤FN3¤L±ØQÆÌTÃBÃLÃL²ÅÆÃC±F²L³ÍM²@€€€€€  **************›* *›* REMKILL *›(* *›Z**************›d›n##INITIALIZE AND GET FILE NAMES›x›‚GG€9A,;A(,‚;A(,ƒ;@,„;@,…;@,Œ3-(%}ÂÁÓÉàÒÅÍÁÒË ÒÅÍÏÖÅÒ                0(3(–\Y(Q This program will remove all 'REM' statements from any listed BASIC pro- gram.\( jj(a Trailing REMs, unreferenced leading REMs, REMs within strings and variablenames containing the ª;;(3word 'REM' (ie...XREM=1) are all handled correctly.´/,($____________________________________/(¾9(( INITIALIZING... PLEASE WAIT2 Ap9(œÈff(] Please enter filenames for the LISTEDBasic program input file, the 'work' file (which will Òhh(_be erased automati- cally), and for the output file. Your original program will remain intact.Ü'$( All files must be on disk.'(æ%(ENTER INPUT FILE SPEC."ƒ%(ðX A0&ƒ7@<@,0DK( WHOOPS!!! (must be a disk file)N(X A0ú' (ENTER WORKING FILE SPEC.$…'(X AP&…7@<@,0DK( WHOOPS!!! (must be a disk file)N(X AP&(ENTER OUTPUT FILE SPEC.#„&(X Ap&„7@<@,0DK( WHOOPS!!! (must be a disk file)N(X Ap"Fƒ4„)ƒ4…)„4…6( Use a unique name for each file!9(<(F A0,Af@6 A @@ A0@J A@@T›^REMOVE TRAILING REMARKS›h›r A| @@ƒ† @@…'($(ÄÅÌÅÔÉÎÇ ÔÒÁÉÌÉÎÇ ÒÅÍÁÒËÓ'(š@6†-B:,¤B.6‡-?:A6:@4,<6ˆ-ˆ$6@̈"6@A€Ög7‰<‰%@,4:REM(86.7@<‰&@,;'I6Š-Š%@]6‹-‹%+†&‰%@,g Aà ‰ê @ Aô A@þ A @Š"(*NONE*›""FIND REFERENCED LINE NUMBERS›&›0 A p: @@…DD(+( ÓÅÁÒÃÈÉÎÇ ÆÏÒ ÒÅÆÅÒÅÎÃÅÄ ÒÅÍÁÒËÓ.(A(PLEASE WAIT...D(N'@6†-B:,'6Œ-Œ%@XD06‡-?:A6 A `H† @A `R ‰-@†&@ 6‚.\$$7‰<‰%@,4GOTO A f$$7‰<‰%@,4THEN A p$$7‰<‰%@,4TRAP A z A P„QQ@:7‰%@<‰%@,, @H)@:7‰%@<‰%@,,!@WA PŽ!-‰%@†!6Ž-@:7<,,˜IŽ!@G*Ž @X?6‚7B:‚,%@:@4,<6ˆ-ˆ$6@œˆ"6@A¦(7‰<‰%@,4 REM'( A° ‰ A@º6’-ÄW-@ 6“-B:=:€8,,,77@<“,4=:€8,,C6’-@W6€8,-€8,%BÎB ’"(%6Š-Š%@86‹-‹%B:,%@B APØ @â A@ì Ap@ö A€@2 A2@3@… ›DISPLAY RESULTS››(/,($____________________________________/(2 (Œ total lines processed<%%(Š lines deleted or truncatedF-'(‹ bytes saved (as LISTED file)*(-(P.+(#ÒÅÆÅÒÅÎÃÅÄ ÒÅÍÓ ¨ÌÉÎÅÓ ÎÏÔ ÄÅÌÅÔÅÄ©.(Z$"(*NONE*$ Ad<‰-@ €8‰,!B ™™<([+€8‰,,&B] n ‰x ( (‚8(SEE NEW FILE? (Y/N): "%(((84NA`Œ APAf@– @@„ @( A@ª A`@´Af¾›ÈSTRING SEARCH ROUTINE›Ò›Ü!!SYNTAX: X=USR(1536,A,B,C,D)›æ!!A=ADDR. OF STRING TO SEARCH›ð B=LEN. OF STRING TO SEARCH›úC=ADDR. OF SUBSTRING›D=LEN. OF SUBSTRING›X RETURNS POSITION...›...(X=0 IF NOT FOUND)›"44MAX. LEN. (FOR BOTH STRINGS) IS 255 CHARACTERS›, OBJECT CODE IS RELOCATABLE›6›@Q#"‰-A6A6%A@&"”,‰”46•-•%”8 ‰D•"BxUN BQ$J) A "”6•-•%@) AT(ÅÒÒÏÒ IN DATA!!!^;;104,104,133,204,104,133,203,104,104,141,137,6,104,133›hMM206,104,133,205,104,104,141,138,6,216,169,0,141,140,6,160,0,177,205,141›rJJ139,6,172,140,6,177,203,205,139,6,240,13,200,204,137,6,208,243,169,0›|MM133,212,133,213,96,24,140,140,6,165,203,109,140,6,133,207,165,204,105,0›†LL133,208,169,1,205,138,6,240,43,200,204,137,6,240,219,160,1,177,205,141›JJ139,6,177,207,205,139,6,240,8,238,140,6,173,140,6,208,174,200,24,204›šJJ137,6,176,190,24,204,138,6,208,223,240,0,172,140,6,200,132,212,169,0›¤133,213,96,0,0,0,0›€ D:REMKILL.BAS