start tok64 d64-WdUMFg 0 POKE53280,.:POKE53281,. 5 PRINT"{clear}{green}baglar {light blue}{.*14} {yellow}creative computing 15 REM --- baglar - sifferfissningsspel 20 REM --- ursprunglig k[lla obekant, 25 REM --- antaglignen lawrence hall, 29 REM --- science, u.c. berkerly 40 y=.:t=255 60 INPUT"{home}{down*6}{pink}vill du ha instruktioner{white}";a$ 90 IFLEFT$(a$,1)="n"THEN150 100 PRINT"{156}jag t[nker p] ett tresiffrigt tal som 110 PRINT"{cyan}du {156}ska f{pound}s{pound}ka gissa. du f]r ledtr]dar 119 PRINT"s] h[r: 120 PRINT" {green}pico{space*4}{white}- {light blue}en siffra r[tt men fel plats 130 PRINT" {light green}fermi{space*3}{white}- {light blue}en siffra p] r[tt plats 140 PRINT" {pink}baglar{space*2}{white}- {light blue}helt fel 150 FORi=1TO3 160 a(i)=INT(10*RND(.)) 165 IFi=1THEN200 170 FORj=1TOi-1 180 IFa(i)=a(j)THEN160 190 NEXT 200 NEXT 210 PRINT"{down}{light blue}ok. nu t[nker jag p] ett tal.{down} 220 FORi=1TO20 230 PRINT"{green}gissning"i 240 INPUT"{up}{right*12}{yellow}";a$ 245 IFLEN(a$)<>3THEN240 250 FORz=1TO3:a1(z)=ASC(MID$(a$,z,1)):NEXT 260 FORj=1TO3 270 IFa1(j)<48ORa1(j)>57THEN300 280 b(j)=a1(j)-48 290 NEXT 295 GOTO320 300 PRINT"{white}vad]? 310 GOTO230 320 IFb(1)=b(2)THEN650 330 IFb(2)=b(3)THEN650 340 IFb(3)=b(1)THEN650 350 c=.:d=. 360 FORj=1TO2 370 IFa(j)<>b(j+1)THEN390 380 c=c+1 390 IFa(j+1)<>b(j)THEN410 400 c=c+1 410 NEXT 420 IFa(1)<>b(3)THEN440 430 c=c+1 440 IFa(3)<>b(1)THEN460 450 c=c+1 460 FORj=1TO3 470 IFa(j)<>b(j)THEN490 480 d=d+1 490 NEXT 500 IFd=3THEN680 510 PRINT"{up}"TAB(20) 515 IFc=.THEN545 520 FORj=1TOc 530 PRINT"{green}pico "; 540 NEXT 545 IFd=.THEN580 550 FORj=1TOd 560 PRINT"{light green}fermi "; 570 NEXT 580 IFc+d<>.THEN600 590 PRINT"{pink}baglar"; 600 PRINT 605 NEXT 610 PRINT"{down}{green}jaha 615 PRINT"det var tjugo gissningar. 617 PRINT"talet jag t[nkte p] var"CHR$(a(1)+48)CHR$(a(2)+48)CHR$(a(3)+48) 620 GOTO700 630 PRINT"{white}f{pound}rs{pound}k att gissa med ett tal p] tre{space*5}siffror{.*3}":GOTO230 650 PRINT"{light blue}oj d]! jag gl{pound}mde visst tala om att{space*5}talet jag t[nker p] inte "; 660 PRINT"kan inneh]lla{space*2}tv] likadana siffror.":GOTO230 680 PRINT"{white}{reverse on} r[tt ! {down}" 690 y=y+1 700 INPUT"{green}nytt spel{yellow}";a$ 720 IFa$="j"ORa$="ja"THEN150 730 IFy=.THEN750 740 PRINT"{156}{down}en"y"{left}-po[ngs bagelspecialist!! 750 PRINT"{156}hoppas du hade roligt. hej d]. stop tok64 (bastext 1.0)