start tok64 d64-HJF3l8
10 t=52224:READa$:INPUT"{clear}antal 1/60 sekund per utskrift:";x:PRINT"{clear}v[nta lite"
20 FORn=1TOLEN(a$)STEP2:POKEn/2+t-0.5,ASC(MID$(a$,n))+16*ASC(MID$(a$,n+1))-1105
30 NEXT:t=t+LEN(a$)/2:READa$:ON -(a$<>"")GOTO20:SYS52224,x:END
100 DATA "acdh{a*3}cojhloipaomoiabomifjkicniebdajkmmnifbdaihjkggniecdajkmmnifcda"
110 DATA "jkaanibbomagomabomanjaacnpmmnkpaomniabommebdkoekcajaaijjaaeagocaageo"
120 DATA "caadmaapkajkacacjdmmkoeocaabcpagibjgadmejdmmnlgonmapgaacjdmmioanfpag"
130 DATA "iejkppnibbomigachfbpiejkaanibbomigagidjkppfilpgolpkinokddakkijnoldda"
140 DATA "ikalcpkiibngkddakkijnglddaikfklpagjkabnikddajkhcnilddaacihmmnieddajk"
150 DATA "ionikddajkdanilddaacihmmnifddajkegnikddajkaanilddaacihmmnigddajkkani"
160 DATA "kddaacihmmnihddaoiiddackppionleddaaneaaoeaangpnleddaacefmmioaofaadfp"
170 DATA "agaokaalfajkacacjdmmakaamejjmmfkcanicbomfklpnidbomnkiicanipdmmakhcnk"
180 DATA "acanjjaainiiabkpckaagicaackfmmgkdnacpommckfaacdemmckdaackfmmgkgnacpo"
190 DATA "mmckkaacdemmfknjanocnkbbomap{c*3}kgaackfmmfkgnfmjmangafkdnfmkmabbcakpa"
200 DATA "jkaijfaaeajjaaeaiiamjaandpapabckmaackfmmapjafkodapfackbbackfmmckabac"
210 DATA "demmckgbackfmmgkajak{a*3}cjjmmckhbacdemmfkinapoackkbackfmmgkinak{a*3}cjj"
220 DATA "mmabjafkenapfackpbackfmmfkhmapkackobacdemmckfcackfmmckccacdemmnknica"
230 DATA "jceaannafkddidfobdkkfkedfocdikaliagkjdekkdamppapdaacjjmmckicacdemmnk"
240 DATA "cbomficankdbomfilpagibndaajbndaajaoaabfbeb{a*3}bcbpah{a*3}dapaoaebaadbeb"
250 DATA "ndaajaoadbndaabbfbpaebf{a*3}cbgbdbaa",""
stop tok64
(bastext 1.0)