start tok64 d64-ycUMD5 0 REM"{delete*6}{141*51} 100 REM svenska tecken + 110 REM svenskt tangentbord 120 REM (c) softwolves software & mr.p. 130 REM steg 1 : svenska tecken 140 POKE53280,14:POKE646,14:POKE53281,6 150 PRINT"{clear}{down}{right}v[nta 160 FORl=679TO730:READa:POKEl,a:NEXT:SYS679:POKE52,128:POKE56,128 170 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1 180 POKE648,136:POKE53272,32:PRINT"{clear}{142}{down}{right}v[nta 190 DATA120,165,1,41,251,133,1,169,,133,251,169,208,133,252,169,,133,253,169 200 DATA128,133,254,160,,177,251,145,253,200,192,,208,247,230,252,230,254,165 210 DATA252,201,216,208,237,165,1,9,4,133,1,88,96 220 FORi=27*8TO29*8+7:READx:POKE32768+i,x:POKE33792+i,255-x:NEXT 230 DATA102,24,60,102,126,102,102,,102,60,102,102,102,102,60, 240 DATA60,36,60,102,126,102,102, 250 PRINT"{clear}{down}{right}din c-64'a [r nu installerad med 260 PRINT"{down}{right}svenska tecken (][{pound}).{space*7} 270 REM steg 2 : svenskt tangentbord 280 POKE1,55:FORi=49152TO49185:READa:POKEi,a:NEXT:SYS49152:POKE1,53 290 DATA169,160,133,252,169,224,133,254,169,,133,251,133,253,160, 300 DATA177,251,145,251,177,253,145,253,136,208,245,230,252,230,254,208,237,96 310 DIMof(2):FORi=.TO2:READof(i):of(i)=of(i)+6e4:NEXT:DATA289,354,419 320 READky,no$,cm$,sh$:IFky=-1THEN450 330 no=ASC(no$):sh=ASC(sh$):cm=ASC(cm$) 340 POKEof(.)+ky,no:POKEof(1)+ky,sh:POKEof(2)+ky,cm 350 GOTO320 360 DATA40,-,"{cm asterisk}","{sh asterisk} 370 DATA43,=,=,= 380 DATA48,":",*,* 390 DATA46,],"{cm +}","{sh -} 400 DATA49,@,"{cm @}","{sh @} 410 DATA45,{pound},"{sh pound}","{cm -} 420 DATA50,[,"{cm pound}","{sh +} 430 DATA53,;,+,+ 440 DATA-1,,, 450 PRINT"{clear}{down}{right}din c-64'a [r nu installerad med 460 PRINT"{down}{right}svenska tecken + svenskt tangentbord 470 PRINT"{down}{right} + {sh asterisk*2}> -{space*4}- {sh asterisk*2}> ={space*4}{pound} {sh asterisk*2}> * 480 PRINT"{right}{cm +} {sh +}{space*3}{cm asterisk} {sh asterisk}{space*2}{cm -} {sh -}{space*8}{cm pound} {sh pound}{space*4}: 490 PRINT"{down*2}{right} @ {sh asterisk*2}> ]{space*4}* {sh asterisk*2}> @ 500 PRINT"{right}{cm p} {sh @}{space*3}{cm +} {sh -}{space*2}{cm asterisk} {sh asterisk}{space*3}{cm @} {sh @} 510 PRINT"{down*2}{right} [ {sh asterisk*2}> {pound}{space*4}] {sh asterisk*2}> [{space*4}= {sh asterisk*2}> + 520 PRINT"{right} :{space*4}{sh pound} {cm -}{space*3};{space*4}{cm pound} {sh +}{space*9}; 530 PRINT"{down*2}{white}{reverse on} (c) 1990 softwolves software and mr.p. "; 540 PRINT"{down}{space*4}this program is a public domain!{space*4}{reverse off} stop tok64 (bastext 1.0)