逃げかニューディール

3 OPTION BASE 0
5 DIM SEG$(255),DEV(255)
7 LET DEV(0)=0
8 LET J=1
9 LET K=1
10 INPUT A$
20 LET LA=LEN(A$)
30 FOR I=1 TO LA
40 LET SEG$(I)=MID$(A$,I,1)
50 IF SEG$(I)="が" THEN LET DEV(J)=I ELSE GOTO 70
60 LET J=J+1
70 NEXT I
75 LET DEV(J)=LA
90 LET SEG$(K)=MID$(A$,K,1)
92 IF K=DEV(C) THEN PRINT "　";
100 PRINT SEG$(K);
102 IF K=DEV(C) THEN PRINT "　"; ELSE GOTO 120
105 LET K=K+1
110 GOTO 90
120 LET C=C+1
125 LET K=K+1
127 IF K>LA THEN GOTO 140
130 GOTO 90
140 END