start tok64 d64-tiufer 0 a=49152:GOSUB900:GOTO11 1 PRINTCHR$(147)"{down}{space*2}{reverse on}{cm d}{reverse off}{cm y*29}{reverse on}{cm f}{reverse off}" 2 PRINT "{space*2}{cm h}{space*4}g l o s - t r [ n i n g{space*2}{cm n}" 3 PRINT "{space*2}{cm g} by f r e d r i k{space*3}e n g e l{cm n}" 4 PRINT "{space*2}{cm g}h=ant.bokst;b=en bokst;g=n[s.{cm n}" 5 PRINT"{space*2}{reverse on}{cm c}{reverse off}{cm p*29}{reverse on}{cm v}{reverse off}" 6 PRINT 7 POKE59639,6:RETURN 11 READb:IFb=-1THENSYS49152:GOTO19 12 POKEa+i,b:i=i+1:GOTO11 13 DATA169,160,32,23,192,169,224,32,23,192,169,53,133,1,169,44,141,105,246,141,8 14 DATA246,96,133,252,169,0,133,251,162,32,160,0,177,251,145,251,200,208,249,230 15 DATA252,202,208,242,96,-1 19 a=1:DIMs$(99),e$(99) 20 GOSUB1 30 PRINT"vill du ladda in sparade glosor (l)" 40 PRINT"eller skriva in nya/flera{space*7}(s)" 50 GETa$:IFa$="l"THEN650 60 IFa$<>"s"THEN50 65 IFa>1THENINPUT"vill du ha kvar de gamla(j/n)";a$:IFa$=""THEN65 67 IFa>1THENIFa$="n"THENa=1 70 GOSUB1:PRINT"ennd = ej fler glosor":PRINT"f{e*3}l = skriv om samma glosa":PRINT 80 INPUT"p] svenska ";s$(a) 90 INPUT"p] engelska";e$(a) 100 IFs$(a)="ennd"ORe$(a)="ennd"THENa=a-1:GOTO120 105 IFs$(a)="f{e*3}l"ORe$(a)="f{e*3}l"THEN70 110 a=a+1:GOTO70 120 PRINT:PRINT:PRINT"s[kert ej fler glosor(j/n)" 130 GETa$:IFa$="n"THENa=a+1:GOTO70 140 IFa$<>"j"THEN130 150 PRINT"vill du spara glosorna (s)" 160 PRINT"eller {pound}va{space*14}({pound})" 170 GETa$:IFa$="s"THEN570 180 IFa$<>"{pound}"THEN170 185 sc=0:msc=a*10 190 FORg=1TOa:GOSUB1:s=10 200 IFg=1THENPRINT"f{pound}rsta glosan [r:";s$(g):GOTO229 210 IFg=aTHENPRINT"sista glosan [r: ";s$(g):GOTO229 220 PRINT"n[sta glosa [r:{space*2}";s$(g) 229 IFs<0THENs=0 230 PRINT"(r[tt=";s;")" 231 INPUT"{pound}vers[tt till engelska";v$:IFv$=""THENPRINT"{up}";:GOTO231 240 IFv$<>"h"THEN270 250 PRINT:PRINT:PRINT"h[r kan ordet skrivas:"; 260 FORi=1TOLEN(e$(g)):PRINT"{cm p} ";:NEXTi:s=s-3:PRINT:PRINT:GOTO229 270 IFv$<>"b"THEN300 280 i=INT(RND(1)*LEN(e$(g)))+1:i$=MID$(e$(g),i,1) 290 PRINT"den";i;":e bokstaven [r:";i$:s=s-2:GOTO229 300 IFv$<>"g"THEN310 305 GOTO380 310 IFv$=e$(g)THEN350 320 PRINT"sorry{.*3}":FORo=1TO1000:NEXT 330 PRINT"{.*3}fel " 340 PRINT"try again{.*3}":s=s-2:GOTO229 350 IFs<0THENs=0 360 sc=sc+s:PRINT"right!!" 370 PRINT"score:";sc 375 PRINT"tryck return" 376 GETa$:IFa$<>CHR$(13)THEN376 380 NEXTg 390 PRINT"det var allt!" 400 PRINT"score:";sc;" av max:";msc 410 pr=sc/msc:pr=INT(pr*10000):pr=pr/100 420 PRINT"=";pr;"% r[tt." 440 pr=INT(pr/10)+1:ONprGOTO441,442,443,444,445,446,447,448,449,450,451 441 b$="fanatiskt otroligt urkasst.":GOTO460 442 b$="ytterst urkast.":GOTO460 443 b$="urkasst.":GOTO460 444 b$="kasst.":GOTO460 445 b$="d]ligt.":GOTO460 446 b$="h[lften. tja{.*3}":GOTO460 447 b$="hyfsat, men inte mer{.*3}":GOTO460 448 b$="hyfsat.":GOTO460 449 b$="ganska bra.":GOTO460 450 b$="bra!!":GOTO460 451 b$="superbt, perfect{!*3}" 460 PRINT:PRINT"omd{pound}mme:";b$ 470 IFpr<>11THENPRINT"det [r bara till att {pound}va igen{.*3}" 475 PRINT:PRINT"tryck return" 476 GETa$:IFa$<>CHR$(13)THEN476 480 GOSUB1:PRINT:PRINT:PRINT "vill du spara glosorna{space*2}(s)" 490 PRINT"vill du ladda in nya{space*4}(l)" 500 PRINT"vill du {pound}va (igen){space*6}({pound})" 510 PRINT"eller vill du skriva in nya (flera) (k)" 515 PRINT"{down*4}sluta (e)" 520 GETa$:IFa$="s"THEN570 525 IFa$="l"THEN650 530 IFa$="{pound}"THEN185 535 IFa$="e"THENEND 540 IFa$="k"THEN65 550 GOTO520 570 GOSUB800:OPEN1,1,1,n$ 572 PRINT#1,a:FORg=1TOa:PRINT#1,s$(g):PRINT#1,e$(g):NEXTg:CLOSE1:GOTO480 650 GOSUB800:OPEN1,1,0,n$ 660 INPUT#1,a:FORg=1TOa:INPUT#1,s$(g):INPUT#1,e$(g):NEXTg:CLOSE1:GOTO480 800 GOSUB1:PRINT:PRINT" ****{space*2}bandsparare/bandladdare{space*2}****" 810 PRINT:PRINT:PRINT"vad heter filen{right} *{left*3}";:INPUTn$ 820 IFLEN(n$)=0ORLEN(n$)>12THEN800 830 PRINT:PRINT:PRINT"f{pound}rberedd & tryck sedan return" 840 GETa$:IFa$=CHR$(13)THENRETURN 850 GOTO840 900 PRINT"{clear}{down}{space*8}g l o s - t r [ n i n g" 910 PRINT"{space*8}{cm y*23}" 920 PRINT:PRINT:PRINT"{space*9}by fredrik engel 1987" 930 PRINT:PRINT:PRINT"{space*4}special-kommando i '{pound}v-mode':" 940 PRINT:PRINT"{light gray}h{light blue}=hj[lp. f]r antal bokst[ver i ordet." 950 PRINT"{light gray}b{light blue}=bokstav. f]r slumpvis vald{space*14}bokstav i ordet." 960 PRINT"{light gray}g{light blue}=ger upp. g]r vidare till n[sta glosa" 970 PRINT:PRINT:PRINT"i {pound}verigt [r programmet sj[lvf{pound}rklarande" 980 PRINT:PRINT:PRINT"tryck return f{pound}r att starta glostr[ning"; 990 GETa$:IFa$<>CHR$(13)THEN990 992 PRINT"{clear}{down*12}{right*11}just a second{.*3}" 999 RETURN stop tok64 (bastext 1.0)