1 ONERRORGOTO 2 : PREPARE "TXT:" ASFILE 1 : X8$="VISST" : X$="TXT:" : GOTO 3
2 X8$="INTE" : X$="PR:"
3 DIM B$(500)
413 IF Q=0 THEN A$=A$+".TXT"
499 R1=1
500 ; CHR$(12)"***** PLOTORD, Utskrift ****"
510 ; : ; "L{s in fil:"; : INPUTLINE A$ : A$=LEFT$(A$,LEN(A$)-2)
511 IF LEN(A$)<1 THEN ; CHR$(12)"Adios !" : END 
512 Q=INSTR(1,A$,".")
513 IF Q=0 THEN A$=A$+".TXT"
514 ; : ; 
515 ; 'OPEN "';A$;'" AS FILE 1'
520 ONERRORGOTO 550 : OPEN A$ ASFILE 1
521 ONERRORGOTO 540
522 INPUTLINE #1,B$(R1) : B$(R1)=LEFT$(B$(R1),LEN(B$(R1))-2)
530 R1=R1+1 : GOTO 522
540 CLOSE 1 : GOTO 600
550 E9=ERRCODE : ; : ; "Fel n:r ";E9 : ; : GOTO 510
600 ; "F|r paus, tryck 'P' !! ( Bara vid TXT:"
610 FOR I=1 TO R1
620 FOR J=1 TO LEN(B$(I))
625 IF MID$(B$(I),1,1)="*" THEN R1=I-1 : GOTO 3000
630 NEXT J : NEXT I
3000 ONERRORGOTO 3000 : ; "Horizontellt(JA) ??"; : GET R$ : IF R$="N" XOR R$="n" THEN X=3 ELSE X=0
3001 ONERRORGOTO 3004 : ; "Hur m}nga tecken per rad (40) el 80"; : INPUT Y
3002 ; Y : IF Y=40 THEN 3005
3003 IF Y=80 THEN 3005 ELSE 3001
3004 Y=40 : ; Y
3005 ; "Yttre enhet, TXT: el. PR: (";X$;")"; : INPUT Y$
3006 IF Y$<>"TXT:" AND Y$<>"PR:" THEN Y$=X$
3007 X$=Y$ : ; Y$ : IF Y$="PR:" THEN 3100
3008 IF Y$="TXT:" AND Y=80 THEN 3106
3009 ; "Plotter" : IF X8$="INTE" THEN 8700 ELSE PREPARE "TXT:" ASFILE 1
3010 FOR I=1 TO R1
3011 IF LEN(B$(I))<1 THEN 3019 ELSE ONERRORGOTO 3019 : Q=VAL(LEFT$(B$(I),1))
3012 ; #1,CUR(Q,X);RIGHT$(B$(I),2)
3013 GOTO 3030
3019 Q=1 : IF LEN(B$(I))<1 THEN 3025
3020 IF LEFT$(B$(I),1)="." THEN ; #1,"" : GOTO 3030
3025 ; #1,CUR(Q,X);B$(I)
3030 IF INP(56)=ASC('P') THEN GOSUB 4000
3035 NEXT I
3040 X$="TXT:" : GOTO 500
3100 ; "Printer"
3105 ONERRORGOTO 8700 : OPEN "PR:" ASFILE 5 : GOTO 3107
3106 ONERRORGOTO 8700 : PREPARE "TXT:" ASFILE 1
3107 IF Y$="TXT:" THEN 3200
3108 IF Y=40 THEN Q=1 ELSE Q=2
3109 FOR I=1 TO R1 STEP Q
3110 IF Y=80 THEN 3111 ELSE 3115
3111 IF LEN(B$(I))<1 THEN ; #5,CHR$(15)B$(I)+B$(I+1) : GOTO 3120
3112 ONERRORGOTO 3113 : X=VAL(LEFT$(B$(I),1)) : A6$=""
3113 IF X>1 THEN X=14 ELSE X=15 : IF NOT A6$="" THEN ; #5,CHR$(15)B$(I)+B$(I+1) : GOTO 3120
3114 ; #5,CHR$(X)RIGHT$(B$(I),2)+B$(I+1) : GOTO 3120
3115 IF LEN(B$(I))<1 THEN X=1 ELSE ONERRORGOTO 3116 : X=VAL(LEFT$(B$(I),1)) : A6$=""
3116 IF X>1 THEN X=14 ELSE X=15 : IF NOT A6$="" THEN ; #5,TAB(20)CHR$(15)B$(I) : GOTO 3120
3117 ; #5,TAB((X-14)*20)CHR$(X)RIGHT$(B$(I),2)
3120 A6$="" : X=1 : NEXT I
3121 X=1
3130 X$="PR:" : GOTO 500
3140 GOTO 3010
3200 FOR I=1 TO R1 STEP 2
3210 U$=LEFT$(B$(I),1)
3211 ONERRORGOTO 3230 : B=VAL(U$)
3220 ; #5,CUR(B,0)RIGHT$(B$(I),2)+B$(I+1)
3225 GOTO 3250
3230 ; #5,CUR(1,0)B$(I)+B$(I+1)
3250 IF INP(56)=ASC('P') THEN GOSUB 4000 : NEXT I
3260 X$="TXT:" : GOTO 500
4000 GET R$ : GET R$ : RETURN 
8700 ; "!!!! G}r ej !!!" : GOTO 3000