10 OUT 58%,INP(58%) OR 24%
15 ; CHR$(12%);
20 ; : ; : ; ,"--- SERIE ---"
30 ; : ; "Enhetsnamn ?"; : INPUTLINE N$ : N$=LEFT$(N$,LEN(N$)-2%)
40 IF N$="" N$="P:" : ; N$; : H%=-1%
50 N$=LEFT$(N$,LEN(N$)-1%) : ;
60 IF LEN(N$)>3% ; : ; "Max 3 bokst{ver!" : GOTO 30
70 IF LEN(N$)<3% N$=N$+" " : GOTO 70
80 A%=PEEK(65052%)+256*PEEK(65053%)
90 ; : ; "Printerns radl{ngd (40-255)"; : IF H% ; "?125" : L%=120% ELSE INPUT L%
100 IF L%<40% OR L%>255% 90
110 ; : ; "Baudtal (300/-/2400)"; : IF H% ; "?1200" : B%=1200% ELSE INPUT B%
120 IF B%=300% B1%=249%
130 IF B%=600% B1%=124%
140 IF B%=1200% B1%=62%
150 IF B%=2400% B1%=28%
160 IF B1%=0% 110
170 FOR X%=0% TO 16384% : IF PEEK(X%)=13% AND PEEK(X%+1%)=10% N%=X% : GOTO 190
180 NEXT X% : ; "FATALT ERROR! - HITTAR EJ CR-LF" : END
190 G%=PEEK(65034%)+256*PEEK(65035%) : POKE 65034%,A%+21%,SWAP%(A%+21%)
200 POKE 65052%,A%+175%,SWAP%(A%+175%)
210 POKE A%,195%,A%+30%,SWAP%(A%+30%),195%,A%+30%,SWAP%(A%+30%),195%,A%+53%,SWAP%(A%+53%),195%,A%+28%,SWAP%(A%+28%)
220 POKE A%+12%,195%,A%+54%,SWAP%(A%+54%),195%,A%+28%,SWAP%(A%+28%),195%,A%+28%,SWAP%(A%+28%)
230 POKE A%+21%,G%,SWAP%(G%),ASC(N$),ASC(MID$(N$,2%,1%)),ASC(MID$(N$,3%,1%)),A%,SWAP%(A%)
240 POKE A%+28%,215%,180%,219%,58%,203%,223%,211%,58%,221%,54%,7%,L%,197%
250 POKE A%+41%,229%,1%,2%,0%,33%,N%,SWAP%(N%),205%,A%+54%,SWAP%(A%+54%),225%,193%,201%
260 POKE A%+54%,197%,229%,121%,176%,40%,105%,221%,126%,6%,221%,190%,7%,32%,4%
270 POKE A%+68%,221%,54%,6%,0%,126%,254%,10%,40%,11%,254%,13%,32%,4%
280 POKE A%+81%,221%,54%,6%,255%,221%,52%,6%,35%,11%,197%,229%,254%,127%
290 POKE A%+94%,32%,2%,62%,175%,246%,0%,103%,58%,7%,254%,167%,32%,56%
300 POKE A%+107%,219%,58%,203%,79%,40%,2%,24%,242%,219%,58%,203%,159%,211%,58%
310 POKE A%+121%,205%,A%+152%,SWAP%(A%+152%),6%,8%,203%,60%,219%,58%,56%,4%,230%,247%
320 POKE A%+134%,24%,2%,246%,8%,211%,58%,205%,A%+152%,SWAP%(A%+152%),16%,237%,205%,A%+168%,SWAP%(A%+168%)
330 POKE A%+148%,225%,193%,24%,160%,14%,B1%,121%,254%,0%,0%,0%,200%,13%
340 POKE A%+161%,24%,247%,225%,225%,225%,193%,201%,203%,223%,211%,58%,195%,A%+152%,SWAP%(A%+152%),1%
350 ; : ; "Nya BOFA:"A%+65711 : ; : ;
360 END