Atari 8-bit Source code

1 REM 
2 REM | Prevod udaju ze seznamu na- |
3 REM | psaneho v CAPKOVI do formatu|
4 REM | vhodneho pro MIKRONOTES. |
5 REM | *************************** |
6 REM | P.Vicar,​ Roznov p.R. |
7 REM 
10 DIM N$(3),​Z$(80),​J$(12),​P$(15),​PS$(6),​U$(25),​T$(6),​M$(22),​S$(25)
20 S$=" "
50 TRAP 500
60 OPEN #1,​4,​0,​"D:​SEZNAM.CAP"
90 OPEN #2,​8,​0,​"D:​SEZNAM.NTS"
100 INPUT #1,​Z$
101 IF Z$(1,​1)="!" THEN 100
105 T$=S$:​PS$=S$
110 N=LEN(Z$)
120 N$=Z$(1,​3)
130 FOR I=5 TO N
140 IF Z$(I,​I)=",​" THEN 160
150 NEXT I
160 FOR J=5 TO I
170 IF Z$(J,​J)="." THEN 190
180 NEXT J
190 IF J>=I THEN J=4:​GOTO 200
195 T$=Z$(5,​J):​T$(LEN(T$)+1)=" "
200 FOR K=J+1 TO I
210 IF Z$(K,​K)=" " THEN 230
220 NEXT K
230 J$=Z$(J+1,​K-1):​J$(LEN(J$)+1)=S$
240 P$=Z$(K+1,​I-1):​P$(LEN(P$)+1)=S$
250 FOR L=I+1 TO N
260 IF Z$(L,​L)=",​" THEN 280
270 NEXT L
280 U$=Z$(I+1,​L-1):​U$(LEN(U$)+1)=S$
285 PS$=Z$(L+1,​L+3):​PS$(5,​6)=Z$(L+4,​L+5)
290 M$=Z$(L+7,​N):​M$(LEN(M$)+1)=S$
300 PRINT #2;Z$(1,​3);T$(1,​5);J$;P$;U$;PS$;M$;
320 GOTO 100
500 PRINT #2:​PRINT #2
510 END	

• Download link 1
• Download link 2