start tok64 d64-Gkiuxv
0 a$="":INPUT"{down}indata";a$:IFa$=""THENPRINT"morse: {.*3} .-.. ..- -":END
1 b$="abcdefghijklmnopqrstuvxyz][{pound}1234567890":c$="a.-b-{.*3}c-.-.d-..e.f..-.g--."
2 c$=c$+"f..-.g--.h{.*4}i..j.{-*3}k-.-l.-..m--n-.o{-*3}p.--.q--.-r.-.s{.*3}t-u..-v{.*3}"
3 c$=c$+"-x-..-y-.--z--..].--.-[.-.-{pound}{-*3}.1.{-*4}2..{-*3}3{.*3}--4{.*4}-5{.*5}6-{.*4}7"
4 c$=c$+"--{.*3}8{-*3}..9{-*4}.0{-*5}":n=1:FORb=1TOLEN(a$):FORt=1TO38
5 d$=MID$(a$,b,1):e$=MID$(b$,t,1):IFd$=e$THENGOSUB11
6 GOSUB17
7 NEXT:IFx=0THENPRINT"morse: felaktig indata":RUN
8 FORm=0TO240STEP+40:IFLEN(f$)<m+33ANDLEN(f$)>m+33-5THEN21
9 NEXT
10 NEXT:PRINT"morse: ";f$:RUN
11 FORt=1TO188:IFd$=MID$(c$,t,1)THENt=t+1:GOTO14
12 NEXT
13 t=t+1:x=0:IFMID$(c$,t,1)<>CHR$(45)ANDMID$(c$,t,1)<>CHR$(46)THEN15
14 f$=f$+MID$(c$,t,1):GOTO13:RETURN
15 f$=f$+" ":x=1:RETURN
16 RETURN
17 FORkl=65TO93:IFASC(d$)=klTHENx=1:RETURN
18 NEXT
19 FORkl=48TO57:IFASC(d$)=klTHENx=1:RETURN
20 NEXT:PRINT"morse: felaktig indata":RUN
21 f=LEN(f$):j=m+33-f:FORcv=1TOj:f$=f$+" ":NEXT:GOTO9
stop tok64
(bastext 1.0)