10 ! Program... PRLAND.BAS 20 ! 30 ! Programmet testar olika l{nders teckenupps{ttning p} skrivaren. 40 ! [r gjort f|r skrivaren "EPSON MX-80" , men kan nog {ndras till 50 ! andra typer av skrivare om man vill. 60 ! Programmet gjordes n}gon g}ng under 1991 men har efterhand 70 ! {ndrats. Sista {ndringen: 1992-01-17. 80 ! 90 ! 100 ! 110 EXTEND 120 ; CHR$(12) 130 ; CYA ULN "PRLAND.BAS - Testutskrift med olika l{nders teckenupps{ttning - Av: <7108>" NULN 140 ; 150 ; YEL "0 = USA";GRN " Skrivare:";WHT " EPSON MX-80F/T" 160 ; YEL "1 = Frankrike" 170 ; YEL "2 = Tyskland" 180 ; YEL "3 = England" 190 ; YEL "4 = Danmark" 200 ; YEL "5 = Sverige" 210 ; YEL "6 = Italien" 220 ; YEL "7 = Spanien" 230 ; 240 ; 250 INPUT "Vilket land vill du testa utskrift med (0-7): "Land 260 ! 270 IF Land=0 THEN L$="USA" 280 IF Land=1 THEN L$="FRANKRIKE" 290 IF Land=2 THEN L$="TYSKLAND" 300 IF Land=3 THEN L$="ENGLAND" 310 IF Land=4 THEN L$="DANMARK" 320 IF Land=5 THEN L$="SVERIGE" 330 IF Land=6 THEN L$="ITALIEN" 340 IF Land=7 THEN L$="SPANIEN" 350 ! 360 ; : ; 370 INPUT "Fr}n ascii (dec): "A : INPUT "till ascii (dec): "B 380 ; : ; RED "Justera skrivaren och tryck tangent!" : GET T$ 390 ! 400 ! 410 OPEN "pr:" AS FILE 1 420 ; #1 "Teckenupps{ttning f|r: ";L$ 430 ; #1 "=======================================================" 440 ; #1 "";L$ ":S -TECKEN / SVENSKT -TECKEN / ASCII NR: " 450 ; #1 "-------------------------------------------------------" 460 FOR S=A TO B 470 ; #1 CHR$(27,82,Land) 480 ; #1 " " CHR$(S);CHR$(27,82,5) " " CHR$(S) " " S; 490 NEXT S 500 ; #1 CHR$(27,82,5) : ! S{tter skrivaren till svensk teckenupps{ttning ! 510 ; : ; 520 INPUT "Fler utskrifter (J/N): "F$ 530 IF F$="J" OR F$="j" THEN GOTO 540 ELSE 570 540 ; #1 550 ; #1 560 GOTO 10 570 ; CHR$(12) 580 ; #1 590 ; #1 600 CLOSE 1 610 END