10 REM  ABC-IBM  Bo Engborg 860125 20.00 
20 REM Fr}n Sekv fil ABC (Basregister ABC) ---> PC-File 3  IBM
30 DIM B$=1000%,A$=120%,E%(127%)
40 GOSUB 310 : REM L{s in IBMtecken
50 ; INP(4)CHR$(12%)
60 ; : ; : ; 'Infil '; : INPUT P$
70 F$='PR:VSA70C70.4' : ; F$
80 ; : ; 'Ingen paritet, 8 databits, 1200baud'
90 ; : ; : ; 'Hur m}nga rader per post '; : INPUT N%
100 ; : ; : ; 'Start med rad nr.. '; : INPUT T%
110 Y%=PEEK(65011%)+1%
120 OPEN P$ ASFILE 1%
130 FOR I%=1% TO T%-1% : INPUT #1,A$ : NEXT I%
140 PREPARE F$ ASFILE 2%
150 ONERRORGOTO 240
160 B$='' : G%=G%+1% : ; CUR(Y%,0%)'Antal poster ';RIGHT$(NUM$(10000%+G%),3%);
170 FOR I%=1% TO N%
180 INPUTLINE #1,A$ : A$=LEFT$(A$,LEN(A$)-2%)
190 Z%=1% : C$=''
200 C%=ASC(RIGHT$(A$,Z%)) : GOSUB 290 : REM Konvertera till IBMtecken
210 Z%=Z%+1% : IF Z%>LEN(A$) THEN A$=C$ ELSE 200
220 B$=B$+',"'+A$+' "'
230 NEXT I%
240 REM 
250 ; #2,RIGHT$(B$,2%)
260 IF ERRCODE>-1 THEN 270 ELSE 150
270 CLOSE 1 : CLOSE 2
280 END 
290 REM  Teckengenerator IBMtkn 
300 C$=C$+CHR$(E%(C%)) : RETURN 
310 REM  Data teckengenerator IBM 
320 FOR I%=0% TO 127%
330 READ E%(I%)
340 NEXT I%
350 RETURN 
360 DATA 0,1,2,3,4,5,6,7,8,9,10
370 DATA 11,12,13,14,15,16,17,18,19,20
380 DATA 21,22,23,24,25,26,27,28,29,30
390 DATA 31,32,33,34,35,15,37,38,39,40
400 DATA 41,42,43,44,45,46,47,48,49,50
410 DATA 51,52,53,54,55,56,57,58,59,60
420 DATA 61,62,63,144,65,66,67,68,69,70
430 DATA 71,72,73,74,75,76,77,78,79,80
440 DATA 81,82,83,84,85,86,87,88,89,90
450 DATA 142,153,143,154,95,130,97,98,99,100
460 DATA 101,102,103,104,105,106,107,108,109,110
470 DATA 111,112,113,114,115,116,117,118,119,120
480 DATA 121,122,132,148,134,129,219
490 DATA 255