start tok64 d64-PHmFNw 5 REM"@0:skriv{pound}vn. qwerty",8 10 REM av svend {pound}rum bertelsen - datormagazinversionen 20 DIMer(255):POKE53280,2:POKE53281,2:a=1500:REM rad 1270 80 GOTO1000 100 PRINT"{reverse on}{light gray} {yellow} 1B1B2B3B4B4B5B5B6B7B8B8B8{cm m}{light gray} " 110 PRINT"{reverse on}{light gray} {white} 1B2B3B4B5B6B7B8B9B0B-B=B:{cm m}{light gray} {reverse off}{white} se bara 120 PRINT"{reverse on}{light gray}{space*2}{yellow}1{cm m}2{cm m}3{cm m}4{cm m}4{cm m}5{cm m}5{cm m}6{cm m}7{cm m}8{cm m}8{cm m}8{cm m}8{cm m}{light gray} " 130 PRINT"{reverse on}{light gray}{space*2}{white}q{cm m}w{cm m}e{cm m}r{cm m}t{cm m}y{cm m}u{cm m}i{cm m}o{cm m}p{cm m}]{cm m}@{cm m}^{cm m}{light gray} {reverse off}{white} p] sk[r- 140 PRINT"{reverse on}{light gray}{space*3}{yellow}1{cm n}2{cm n}3{cm n}4{cm n}4{cm n}5{cm n}5{cm n}6{cm n}7{cm n}8{cm n}8{cm n}8{cm n}{light gray}{space*2}" 150 PRINT"{reverse on}{light gray}{space*3}{white}a{cm n}s{cm n}d{cm n}f{cm n}g{cm n}h{cm n}j{cm n}k{cm n}l{cm n}{pound}{cm n}[{cm n};{cm n}{light gray}{space*2}{reverse off}{white} men ej p] 160 PRINT"{reverse on}{light gray}{space*4}{yellow} 1B2B3B4B4B5B5B6B7B8{cm n}{light gray}{space*4}" 170 PRINT"{reverse on}{light gray}{space*4}{white} zBxBcBvBbBnBmB,B.B/{cm m}{light gray}{space*4}{reverse off}{white} fingrarna 180 PRINT"{yellow}{reverse on} skriv tecknet, som visas under bilden {reverse off}":RETURN 200 PRINT"{clear}{light gray} 210 PRINT"{space*2}{reverse on}{space*4}B!B"CHR$(34)"B#B$B%B&B'B(B)B B B B*BclBin 220 PRINT"{space*2}{reverse on}{space*2}{arrow left} B1B2B3B4B5B6B7B8B9B0B-B=B:BhoBde 230 PRINT"{space*2}{reverse on}{space*5}{cm m} {cm m} {cm m} {cm m} {cm m} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n}{pi}{cm n}res- " 240 PRINT"{space*2}{reverse on} ctrl{cm m}q{cm m}w{cm m}e{cm m}r{cm m}t{cm m}y{cm m}u{cm m}i{cm m}o{cm m}p{cm m}]{cm m}@{cm m}^{cm m}tore " 250 PRINT" {reverse on}r/{cm n}shif{cm n}{yellow}1{cm n}2{cm n}3{cm n}4{cm n}{light gray} {cm n} {cm n}{yellow}5{cm n}6{cm n}7{cm n}8{cm n}{light gray} {cm n}+{cm n}re-{yellow}8{light gray}{space*2}" 260 PRINT" {reverse on}st{cm n}lock{cm n}{white}a{cm n}s{cm n}d{cm n}f{cm n}{light gray}g{cm n}h{cm n}{white}j{cm n}k{cm n}l{cm n}{pound}{cm n}{light gray}[{cm n};{cm n}turn 270 PRINT" {reverse on}{light gray}{space*2}{cm n}{space*5}B B B B B B B BB?BshiB^B{arrow left} " 280 PRINT" {reverse on}c={cm n}shiftBzBxBcBvBbBnBmB,B.B/Bft B B{space*2}" 290 PRINT"{space*10}{reverse on}{light gray}{space*3}3{space*3}{yellow}tt{light gray}{space*4}6{space*3}" 300 PRINT"{white}1.{space*6}{light gray}{space*3}2 {yellow}UI{light gray}4{space*5}5 {yellow}UI{light gray}7{space*2}{white}{space*2}2. 310 PRINT"{green}placera{space*2}{yellow}{space*2}UIBBUI{space*4}UIBBUI {green}{space*2}placera 320 PRINT"{green}v[nstra {light gray} 1 {yellow}{B*7}{space*3}{B*6}{light gray}8 {green} h{pound}gra 330 PRINT"{green}handen{space*3}{yellow}UI{B*6}{light gray} tt{yellow} {B*6}UI {green}handen 340 PRINT"{green}p]{space*7}{yellow}{B*8}NMNM{B*8} {green}p] 350 PRINT"{green}a,s,d,f{space*2}{yellow}B{white}v[nster{yellow} NM{space*2}{white}h{pound}ger{yellow} B {green}j,k,l,{pound} 360 PRINT"{white}3. tryck {reverse on} mellanslag {yellow}{reverse off} & v[lj {pound}vning 365 PRINT"{down}{white}4.{light gray}{reverse on} return {reverse off} = bokst[ver {reverse on} @ {reverse off} = alla tecken 370 PRINTTAB(6)" {reverse on} * {reverse off} = siffror och bokst[ver 380 PRINT"{space*2}skriv tecken du vill {pound}va & {reverse on} return {reverse off} 390 PRINTTAB(6)" {reverse on} $ {reverse off} = tr[na det inskrivna 400 PRINTTAB(6)" {reverse on} {arrow left} {reverse off} = avbryter, ger statistik 410 GETh$:IFh$<>CHR$(32)THEN410 420 PRINT"{white}";:RETURN 1000 PRINT"{clear}{white} skrivmaskins{pound}vning p] vic-64 & c-128 {yellow}" 1070 PRINT"{space*2}{reverse on}{space*4}B!B"CHR$(34)"B#B$B%B&B'B(B)B B B B*BclBin 1080 PRINT"{space*2}{reverse on}{space*2}{arrow left} B1B2B3B4B5B6B7B8B9B0B-B=B:BhoBde 1100 PRINT"{space*2}{reverse on}{space*5}{cm m} {cm m} {cm m} {cm m} {cm m} {cm m} {cm m} {cm m} {cm m} {cm m} {cm m} {cm m} {cm m}{pi}{cm m}res- " 1110 PRINT"{space*2}{reverse on} ctrl{cm m}q{cm m}w{cm m}e{cm m}r{cm m}t{cm m}y{cm m}u{cm m}i{cm m}o{cm m}p{cm m}]{cm m}@{cm m}^{cm m}tore " 1130 PRINT" {reverse on}r/{cm n}shif{cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n} {cm n}+{cm n}re-{space*2}" 1140 PRINT" {reverse on}st{cm n}lock{cm n}a{cm n}s{cm n}d{cm n}f{cm n}g{cm n}h{cm n}j{cm n}k{cm n}l{cm n}{pound}{cm m}[{cm m};{cm m}turn " 1160 PRINT" {reverse on}{space*2}{cm n}{space*5}B B B B B B B BB?BshiB^B{arrow left} " 1170 PRINT" {reverse on}c={cm n}shiftBzBxBcBvBbBnBmB,B.B/Bft B B{space*2}" 1190 PRINT"{space*11}{reverse on}{space*7}3{space*10}{reverse off}{space*3}6 1200 PRINT"{space*16}2 UI4{space*9}5 UI7 1210 PRINT"{space*5}av:{space*8}UIBBUI{space*8}UIBBUI 1220 PRINT" svend{space*2}{pound}rum{space*2}1 {B*6}{space*8}{B*6}8 1230 PRINT"{space*2}bertelsen{space*3}UI{B*6}{space*8}{B*6}UI 1240 PRINT"{space*14}{B*8} t{space*4}t {B*8} 1250 PRINT" fuska{space*2}inte{space*2}{B*8} NM{space*2}NM {B*8} 1260 PRINT"genom att{space*2}se B{space*6}BN N{space*2}M MB{space*6}B 1270 PRINT"p] tangenternaB{white}v[nster{yellow} N{space*4}M{space*2}{white}h{pound}ger{yellow} B":FORi=1TOa:NEXTi 3060 PRINT"{clear}":POKE53280,6:POKE53281,6 3070 PRINT"{yellow} finger-{space*3}{reverse on} 1B1B2B3B4B4B5B5B6B7B8B8B8{cm n} 3080 PRINT"{yellow} s[ttning{space*2}{reverse on}{white} 1B2B3B4B5B6B7B8B9B0B-B=B:{cm n} 3100 PRINT:PRINT"{light blue} du m]ste{space*4}{reverse on}{yellow}1{cm m}2{cm m}3{cm m}4{cm m}4{cm m}5{cm m}5{cm m}6{cm m}7{cm m}8{cm m}8{cm m}8{cm m}8{cm m} 3110 PRINT"{light blue} anv[nda r[tt{reverse on}{white}q{cm m}w{cm m}e{cm m}r{cm m}t{cm m}y{cm m}u{cm m}i{cm m}o{cm m}p{cm m}]{cm m}@{cm m}^{cm m} 3120 PRINT"{light blue} finger utan 3130 PRINT" att titta p] {reverse on}{yellow}1{cm m}2{cm m}3{cm m}4{cm m}4{cm m}5{cm m}5{cm m}6{cm m}7{cm m}8{cm m}8{cm m}8{cm m} 3140 PRINT"{light blue} tangenterna{space*2}{reverse on}{white}a{cm m}s{cm m}d{cm m}f{cm m}g{cm m}h{cm m}j{cm m}k{cm m}l{cm m}{pound}{cm m}[{cm m};{cm m} 3150 PRINT"{light blue} b{pound}rja med 3160 PRINT" att placera{space*2}{reverse on}{yellow} aB2B3B4B4B5B5B6B7B8{cm m} 3170 PRINT" 1=lillf.p] a {reverse on}{white} zBxBcBvBbBnBmB,B.B/{cm m} 3180 PRINT"{yellow} 2=ringf.p] s 3185 PRINT" 3=l]ngf.p] d{space*4}{reverse on}{space*6}t{space*2}t{space*7}" 3190 PRINT" 4=pekf. p] f {white}{space*3}{reverse on}{space*3}lycka till{space*4}{reverse off} 3195 PRINT"{yellow} 5=pekf. p] j{space*5}3{space*9}6 3200 PRINT" 6=l]ngf.p] k{space*3}2 UI4{space*5}5 UI7 3210 PRINT" 7=ringf.p] l{space*3}UIBBUI{space*4}UIBBUI 3220 PRINT" 8=lillf.p] {pound} 1 {B*6}{space*4}{B*6}8 3230 PRINT"{space*14}UI{B*6}{space*4}{B*6}UI 3240 PRINT"{space*3}tryck p]{space*3}{B*8} t t{B*8} 3250 PRINT" {reverse on}{white} mellanslag {yellow}{reverse off} {B*8} NM {B*8} 3260 PRINT" f{pound}r f{pound}rts[tt-B{space*6}BNM MB{space*6}B 3270 PRINT"{space*5}ning{space*5}B{white}v[nster {yellow}NM{space*2}{white}h{pound}ger {yellow}B 3280 GETf$:IFf$<>CHR$(32)THEN3280 3290 POKE53280,0:POKE53281,0 6060 REM hoppadress 6070 PRINT"{clear}":GOSUB200 6140 PRINT"{home}";:INPUTt$:PRINT"{yellow}" 6150 PRINT"{clear}";:GOSUB100 6160 REM huvudprogram 6170 IFt$=""THENsl=INT(RND(.)*28+66):GOTO6250 6180 IFt$="@"THENsl=INT(RND(.)*60+33):GOTO6250 6190 IFt$="*"THEN6230 6200 IFLEFT$(t$,1)="$"THEN6380 6210 sl=INT(RND(.)*LEN(t$)+1) 6220 te$=MID$(t$,sl,1):GOTO6270 6230 sl=INT(RND(.)*45+49) 6240 IFsl>57ANDsl<65THEN6230 6250 REM hoppadress 6260 te$=CHR$(sl) 6270 PRINT"{reverse on}{white}{space*3}{left*2}"te$"{reverse off}{yellow} 6280 REM r[tt tecken? 6290 GETl$ 6300 t=t+.01 6310 IFl$=""THEN6290 6320 IFl$="{arrow left}"THEN6690 6330 IFl$="^"THEN7010 6340 r=r+1 6350 IFte$<>l$THEN6510 6360 GOTO6160 6370 REM mening 6380 IFk>LEN(t$)-2THENk=0:PRINT" "; 6390 r=r+1 6400 PRINT"{reverse on}{white}"MID$(t$,k+2,1)"{reverse off}{pink}"; 6410 GETl$ 6420 t=t+.01 6430 IFl$=""THEN6410 6440 IFl$="{arrow left}"THEN6690 6450 IFl$="^"THEN7010 6460 te$=MID$(t$,k+2,1) 6470 IFte$<>l$THEN6510 6480 IFk>LEN(t$)-2THENk=0:PRINT; 6490 k=k+1 6500 GOTO6170 6510 REM ljud 6540 POKE54276,34:POKE54296,15:POKE54273,72:POKE54272,169:POKE54277,10 6550 POKE54278,0:POKE54276,33 6590 PRINT"{clear}" 6600 e=e+1 6610 PRINT"{space*3}fel"e"{reverse on} "l$" {reverse off}{space*2}[r feltr ="INT(e/r*100)"% fel 6620 PRINT"{space*3}du skulle tryckt "te$", men tryckte "l$ 6630 GOSUB100 6640 REM statistik 6660 er(ASC(te$))=er(ASC(te$))+1 6670 GOTO6170 6690 REM statistik 6700 PRINT"{clear}"TAB(11)"statistikutskrift":PRINT 6720 PRINTTAB(8)"antal fel{space*2}="e"av"r 6730 IFr=0THEN6750 6740 PRINTTAB(8)"proc. fel{space*2}="INT(e/r*100)"% 6750 PRINTTAB(8)"total tid{space*2}="INT(t)"sekunder 6760 PRINTTAB(8)"pluspo[ng{space*2}="INT(r/t*100) 6770 IFNOTe*t=0THENPRINTTAB(8)"minuspo[ng ="INT(1/(e*t)*100) 6780 x=INT(r/t*100):y=INT(1/(e*t)*100) 6790 z=x-y 6800 PRINTTAB(8)"resultat{space*3}="z"po[ng 6810 PRINTTAB(8)"dator tid{space*2}= "ti$:PRINT 6830 PRINT:PRINTTAB(2)"{white}tryck n]gon tangent f{pound}r forts[ttning":PRINT 6850 GETa$:IFa$=""THEN6850 6860 PRINTTAB(5)"{white} dessa tecken har du sv]rt f{pound}r: 6870 FORi=1TO255 6880 IFer(i)<>0THENPRINTCHR$(i)" ="er(i), 6890 NEXT:PRINT 6910 PRINTTAB(4)"{white}tryck p] {reverse on} 0 {reverse off} f{pound}r nollst[llning 6920 PRINTTAB(4)"tryck p] {reverse on} n {reverse off} f{pound}r avslutning 6930 PRINTTAB(4)"tryck p] {reverse on} ^ {reverse off} {pound}va de sv]ra tecknen":PRINT 6940 PRINT"{space*2}alla andra tangenter f{pound}r forts[ttning 6950 GETa$:IFa$=""THEN6950 6960 IFa$="0"THENe=0:r=0:t=0:FORi=1TO255:er(i)=0:NEXT:GOTO6060 6980 IFa$="^"THEN7020 6990 IFa$="n"THENPRINT"{yellow}{space*8}tack f{pound}r uppm[rksamheten":END 7000 GOTO6060 7010 REM {pound}va sv]ra 7020 PRINT"{clear}" 7030 PRINTTAB(6)"{reverse on}{light green} tryck ej p] n]gon tangent! " 7040 GOSUB100:PRINTTAB(6)"du har sv]rt f{pound}r att skriva: 7050 PRINTTAB(6):t$="" 7060 FORi=1TO255 7070 IFer(i)<>0THENt$=t$+CHR$(i):PRINTTAB(6)CHR$(i); 7080 NEXT:PRINT 7100 PRINTTAB(4)"{reverse on}{yellow} nu kan du forts[tta att skriva " 7120 IFt$=""THEN6060 7130 GOTO6210 stop tok64 (bastext 1.0)