Atari 8-bit Source code

1 REM 
2 REM | SYNFILE+ --> MIKRONOTES |
3 REM |Program pro prevod dat; byl |
4 REM |napsan pro format databaze |
5 REM | NAVODY z magazinu FLOP6 |
7 REM | P.Vicar,​ Roznov |
8 REM 
9 REM
10 DIM N$(21),​K$(4),​P$(14),​D$(6),​S$(20),​T$(3)
20 S$=" "
50 OPEN #1,​4,​0,​"D3:​NAVODY.D01"
60 OPEN #2,​8,​0,​"D3:​NAVODY.NTS"
90 TRAP 550
100 GET #1,​A:​GET #1,​B
120 FOR I=1 TO B:​REM NAZEV
140 GET #1,​A:​N$(I)=CHR$(A):​NEXT I
180 FOR J=1 TO 22-I:​GET #1,​B:​NEXT J
200 N$(LEN(N$)+1)=S$
220 FOR I=1 TO 3:​REM KDO
240 GET #1,​A:​K$(I)=CHR$(A):​NEXT I
250 K$(LEN(K$)+1)=S$
260 GET #1,​B
280 FOR I=1 TO B:​REM PUBLIKACE
300 GET #1,​A:​P$(I)=CHR$(A):​NEXT I
310 P$(LEN(P$)+1)=S$
320 FOR J=1 TO 14-I:​GET #1,​B:​NEXT J
360 FOR I=1 TO 5:​GET #1,​A:​D$(I)=CHR$(A):​NEXT I
370 D$(LEN(D$)+1)=S$
380 GET #1,​A:​GET #1,​B:​S=B*256+A
400 N=LEN(N$):​P=LEN(P$):​D=LEN(D$)
410 T$=S$
420 A=INT(S/100):​IF A>1 THEN T$(1)=STR$(A):​S=S-A*100
430 A=INT(S/10):​IF A>1 THEN T$(2)=STR$(A):​S=S-A*10
440 T$(3)=STR$(S)
500 PRINT #2;N$(1,​20);K$(1,​3);P$(1,​13);D$(1,​4);T$;
510 GOTO 100
550 PRINT #2:​PRINT #2
600 END	

• Download link 1
• Download link 2