INPUT "Name des zu ladenden Programmes";s$
INPUT "Name des zu speichernden Programmes";d$
PRINT TIME$,DATE$
OPEN s$ FOR INPUT AS #1
OPEN d$ FOR OUTPUT AS #2

l2:

  IF EOF(1) THEN fertig
   LINE INPUT #1,a$
   IF a$="" THEN GOTO l2

l3:

  IF LEFT$(a$,1)=" " THEN a$=RIGHT$(a$,LEN(a$)-1):GOTO l3
   IF a$="" THEN GOTO l2

test:

  IF RIGHT$(a$,1)=":" THEN b=3
   IF LEFT$(a$,2)="IF" THEN b=1
    IF LEFT$(a$,6)="END IF" THEN b=-1
     IF LEFT$(a$,4)="WEND" THEN b=2
      IF LEFT$(a$,3)="FOR" THEN b=1
       IF LEFT$(a$,4)="NEXT" THEN b=-1
        IF LEFT$(a$,3)="REM" THEN b=4
         d$=a$

weiter:

  IF b=3 THEN label
   IF b=2 THEN xwend
    IF b=4 THEN xrem
     PRINT #2,SPACE$(a);a$
     a=a+b:b=0:a$=""
     GOTO l2

label:

  PRINT #2,CHR$(13)
  PRINT #2,a$
  PRINT #2,CHR$(13)
  a=2:b=0:a$=""
  GOTO l2

xrem:

  PRINT #2,a$
  b=0:a$=""
  GOTO l2

xwend:

  PRINT #2,SPACE$(a-1);a$
  a$=""
  GOTO l2

fertig:

  PRINT #2,a$
  CLOSE 
  PRINT TIME$
  END