фI ─MКThis program will convert spaces in an .ASM file to tab charactersO─MКIt is written to be compiled using RUN* so that it can get the filenames$─MКfrom the MS-DOS command line.(─MК2─MA$ = И : B$ = ""<┘MА А Ж(A$) > 0FъM PLACE = Д(1,A$," ")PN А А PLACE > 0#ZN B$ = И(A$,Ж(A$) - PLACE)d,N A$ = И(A$,PLACE - 1)nAN А А xANА А8ВANА Ж(A$) = 0 К А "ENTER INPUT FILE NAME -> ";A$8М]NА Ж(B$) = 0 К А "ENTER OUTPUT FILE NAME -> ";B$ЦyNА1 "WORKING:";аNА! "I", 1, A$кСNА! "O", 2, B$┤гNА8 Д Д(1)9╛жN LABEL$ = "" : OPER$ = "" : OPND$ = "" : CMNT$ = ""╚ В А #1, A$╥╓N B$ = И(A$,1)▄ъN А B$= ";" К "SKIP IT"1цO PLACE = Д(1,A$," ") : К FIND FIRST SPACE ЁO А PLACE = 0 К "SKIP IT"·+O А А PLACE <> 1 6O LABEL$ = И(A$,PLACE-1)$KO A$ = И(A$, Ж(A$) - PLACE)iO А А"iO B$ = И(A$,1),}O А8 B$= " " 6АO A$ = И(A$, Ж(A$) - 1)@ЫO B$ = И(A$,1) JпO А9T╟O PLACE = Д(1,A$," ")!^рO А PLACE = 0 К "BUILD IT"hюO А А PLACE <> 1 r∙O OPER$ = И(A$, PLACE-1)$|P A$ = И(A$, Ж(A$) - PLACE)Ж,P А АР,P B$ = И(A$,1)Ъ@P А8 B$= " " дCP A$ = И(A$, Ж(A$) - 1)о^P B$ = И(A$,1) ╕rP А91┬КP PLACE = Д(1,A$,";") : К LOOK FOR COMMENT!╠гP А PLACE = 0 К "BUILD IT":╓▒P CMNT$ = И(A$, Ж(A$) - PLACE + 1) : К GET COMMENTр╨P A$ = И(A$,PLACE - 1)ъхP B$ = И(A$,1)Ї∙P А8 B$= " " ■№P A$ = И(A$, Ж(A$) - 1)Q B$ = И(A$,1) +Q А9CQ "BUILD IT"&CQ OPND$ = A$.0OQ А Ж(OPER$) К LABEL$ = LABEL$ + И(9),:tQ А Ж(OPND$) К OPER$ = OPER$ + И(9),DЩQ А Ж(CMNT$) К OPND$ = OPND$ + И(9)N╛Q B$ = И(OPND$,1)?X╥Q А B$ = И(9) К Ж(OPND$) < 14 К OPND$ = OPND$ + И(9)*bR A$ = LABEL$ + OPER$ + OPND$ + CMNT$l5R "SKIP IT"v5R А1 #2, A$АGR А1 ".";КMRА9Ф\RА% #1, #2ЮhRА