1 REM Ins{nd av Bo Kullmar * <1789> 1985-09-14 10.06.43 2 ! ********************************************************************** 3 ! Program CHANGE.BAS Utg}va 1.0 1985-09-14 4 ! av Bo Kullmar 5 ! Ins{nd av Bo Kullmar 6 ! F|r ABC800M ABC800C ABC802 ABC806 8 ! Testad p} ABC806 9 ! ********************************************************************** 60 INTEGER : EXTEND 1000 ; FNChange$('Jag skriver en text nu','ix','+') 1010 ! 1020 ! Funktionen byter ut ett eller flera tecken till ett annat tecken i en 1030 ! str{ng som f}r vara max 200 tecken. Maxl{ngden p} instr{ngen kan dock 1040 ! |kas, genom att |ka dim i LOCAL (Str$=). 1050 ! 1060 ! Inparameter: ,, 1070 ! Utparameter: 1080 ! 1090 DEF FNChange$(In$,Ch$,New$) LOCAL Max,Ix,Str$=200 1100 ON ERROR GOTO 1200 1110 IF LEN(In$)>200 ; 'Max 200 tkn i In$ str{ngen, kan |kas om def i LOCAL |kas (Str$= )' : STOP 1120 Max=LEN(Ch$) : Str$=In$ 1130 WHILE Ix