· Text 173 · w6 · inlagg
Nedan följer en rutin som konverterar TAB till SPACE's i en
textfil. Den håller reda på avståndet mellan tecknen eller
orden så utfilen (i detta fall en display) inte kan skiljas
utseendemässigt från infilen. Jag har också rutinen skriven
i assembler om det skulle behövas.
Jag vet inte om rutinen skulle funka här, men det borde gå.
I så fall skulle man ju obehindrat kunna skicka in program
innehållande TAB. Hur som helst är den användbar.
----------------------- Program -----------------------
100 REM *** Open ***
150 INPUT "FIL: ",FILE¤ : OPEN "I",#1,FILE¤
200 REM *** Read ***
250 IF EOF(1) THEN CLOSE #1 : END : ELSE LINE INPUT #1,RAD¤
300 REM *** Scan ***
310 CNT%=0
320 FOR TKN%=1 TO LEN(RAD¤)
330 TKN¤=MID¤(RAD¤,TKN%,1)
340 IF TKN¤=CHR¤(9) THEN GOSUB 400 : GOTO 360
350 PRINT TKN¤; : CNT%=CNT%+1
360 NEXT TKN%
370 PRINT
380 GOTO 200
400 REM *** Tab to Space ***
410 PRINT " ";
420 CNT%=CNT%+1 : IF (CNT% AND 7) <> 0 THEN GOTO 400
430 RETURN
-----------------------------------------------------------