( (!9"1% FORM - copyright 1984 by Irv Hoff - 11/11/84 :] /% To use: B>FORM A:HELLO.ASM 1) B>FORM HELLO.ASM A:NAME.NEW 2) 1) uses original name for new file, original now named .BAK 2) original file stays intact, new file has new name :m `!\I ̈́ I!\ ̈́ k!lḮ 2|2i\<¢% ++ SOURCE FILE NOT FOUND ++ 2U2i!"!"I<:% File exists - erase? (Y/N):   0:_Y,% [Returning to CP/M]\ I% I x 3 > >   !> > :6* A~ J:8~~:g ʾ # ~;]J*#"":8Ң# ~ # ~':•/2~~;G~# ~ + : > : = #xx> : => # ~ ;]  # ~;] ':0/2:~;G# ~ # G> :::8:ʁ:9: ʁ:6:ʁ:ʎ*#"Oy=ڝ> Ï~:ʫ> #~ ʫ.ʫ:~#͍~ #> 2!A* ~ :B4B#~: " 6:#6 #6 ++'"*#"(6:"*#"#~ +:u#~  :B*#":4'6 #~ 6 +6 #~ u :2ʒ3ʵ"~_EʬSʬDʬM ͟"~_EDR ͟!~ ?:5~ –:5: : > ÿ:<2:<2:6:62> 2>  ʅ a 2:2> *#":ƒ% *> ͎ 2222~'¤:/2;¿:¿<2:ʿ2:<2:> ͍ =2p͍ # ,tø:5 ~ :.#"| E%I%M. 2͟2| ; d ¶| T;T *N6 #~qO Z+6 #6 #6 TO:y:y:5y:4yʖa{_A[ *ʽG| ʢ°?Ÿ:4:a | ; ö*6 *+"  |{0͎ \I% *!~;t t *j TQ tQ x #~= 2 ͢2x 2:5t 6;!~#a_~#„ š *#" ¨ *#"**}| !"*{z *I *"ü % DISK FULL: OUTPUT!"**#"~#2 ͎ &  } N } % ++ ABORTED, OUTPUT FILE DELETED ++ IFENDIFIFFIFTELSEMACROENDM?TITLE ?EQUSETMACRODEFL?EQUDBDWRSDDRBRW?% *% *} ">͍ \I<0 % CANNOT CLOSE OUTPUT0 % *% lines *% original spaces *% original tabs *% original colons after labels *% current spaces *% current tabs *% current colons after labels :6? % *% comment lines moved :R$ !\j̈́ !]{̈́ !\ ̈́ j!]Z̈́ I _% 0) remove colons from all labels 1) add colons to all labels 2) colons for M80 assemblers 3) colons for 8086 assemblers 4) all source code to lower-case 5) remove tabs, case unaffected 6) inline comments to column 32 7) inline comments to column 40 8) reformat source code (col 32) 9) reformat source code (col 40) select: ** 0!:!12% Û % [Returning to CP/M] $$$ BAK BAK