00000000: 01 40 25 40 04 00 8F 20 2A 20 47 4C 4F 53 46 4F |.@%@... * GLOSFO|
00000010: 52 48 4F 52 20 2A 20 41 56 20 42 49 52 47 45 52 |RHOR * AV BIRGER|
00000020: 20 47 52 41 4E 00 4C 40 05 00 86 53 56 24 28 34 | GRAN.L@...SV$(4|
00000030: 30 30 30 29 2C 45 4E 24 28 34 30 30 30 29 3A 4E |000),EN$(4000):N|
00000040: B2 30 3A 43 52 24 B2 C7 28 31 33 29 00 7F 40 0A |.0:CR$..(13)..@.|
00000050: 00 99 22 93 11 2A 20 4D 20 45 20 4E 20 59 20 2A |.."..* M E N Y *|
00000060: 11 22 3A 99 22 31 2E 49 4E 4D 41 54 4E 49 4E 47 |.":."1.INMATNING|
00000070: 20 41 56 20 47 4C 4F 53 4F 52 22 3A 46 B2 30 00 | AV GLOSOR":F.0.|
00000080: 9F 40 0F 00 99 22 11 32 2E 4C 49 53 54 41 20 49 |.@...".2.LISTA I|
00000090: 4E 4D 41 54 41 44 45 20 47 4C 4F 53 4F 52 22 00 |NMATADE GLOSOR".|
000000A0: DF 40 14 00 99 22 11 33 2E 46 4F 52 48 4F 52 20 |.@...".3.FORHOR |
000000B0: 53 56 45 4E 53 4B 41 2F 45 4E 47 45 4C 53 4B 41 |SVENSKA/ENGELSKA|
000000C0: 22 3A 99 22 11 34 2E 46 4F 52 48 4F 52 20 45 4E |":.".4.FORHOR EN|
000000D0: 47 45 4C 53 4B 41 2F 53 56 45 4E 53 4B 41 22 00 |GELSKA/SVENSKA".|
000000E0: 1C 41 1E 00 99 22 11 35 2E 54 49 4C 4C 2F 46 52 |.A...".5.TILL/FR|
000000F0: 41 4E 20 44 41 54 41 46 49 4C 22 3A 99 22 11 11 |AN DATAFIL":."..|
00000100: 11 11 41 4E 54 41 4C 20 49 4E 4D 41 54 41 44 45 |..ANTAL INMATADE|
00000110: 20 47 4C 4F 53 4F 52 3A 20 22 3B 4E 00 53 41 28 | GLOSOR: ";N.SA(|
00000120: 00 99 22 11 4E 55 4D 4D 45 52 56 41 4C 22 3B 3A |..".NUMMERVAL";:|
00000130: 4E 52 24 B2 22 22 3A 85 4E 52 24 3A 4E 52 B2 C5 |NR$."":.NR$:NR..|
00000140: 28 4E 52 24 29 3A 8B 4E 52 B2 30 B0 4E 52 B1 35 |(NR$):.NR.0.NR.5|
00000150: A7 34 30 00 6E 41 32 00 91 4E 52 89 36 30 2C 31 |.40.nA2..NR.60,1|
00000160: 33 30 2C 31 35 30 2C 33 30 30 2C 35 30 30 00 8F |30,150,300,500..|
00000170: 41 3C 00 99 22 93 11 2A 20 49 4E 4D 41 54 4E 49 |A<.."..* INMATNI|
00000180: 4E 47 20 41 56 20 47 4C 4F 53 4F 52 2A 11 22 00 |NG AV GLOSOR*.".|
00000190: C5 41 46 00 4E B2 4E AA 31 3A 99 22 11 4E 52 20 |.AF.N.N.1:.".NR |
000001A0: 22 3B 4E 3B 3A 85 22 53 56 45 4E 53 4B 41 22 3B |";N;:."SVENSKA";|
000001B0: 53 56 24 28 4E 29 3A 8B 53 56 24 28 4E 29 B2 22 |SV$(N):.SV$(N)."|
000001C0: 22 A7 31 31 30 00 FE 41 4B 00 85 22 45 4E 47 45 |".110..AK.."ENGE|
000001D0: 4C 53 4B 41 22 3B 45 4E 24 28 4E 29 3A 99 22 4E |LSKA";EN$(N):."N|
000001E0: 52 20 22 3B 4E 3B 22 3A 20 22 3B 53 56 24 28 4E |R ";N;": ";SV$(N|
000001F0: 29 3B 22 20 2D 20 22 3B 45 4E 24 28 4E 29 00 29 |);" - ";EN$(N).)|
00000200: 42 50 00 99 22 4B 4F 52 52 45 4B 54 20 49 4E 4D |BP.."KORREKT INM|
00000210: 41 54 41 54 22 3B 3A 4A 24 B2 22 22 3A 85 22 28 |ATAT";:J$."":."(|
00000220: 4A 3D 4A 41 29 22 3B 4A 24 00 5E 42 5A 00 8B 4A |J=JA)";J$.^BZ..J|
00000230: 24 B3 B1 22 4A 22 A7 4E B2 4E AB 31 3A 99 22 4D |$.."J".N.N.1:."M|
00000240: 41 54 41 20 49 4E 20 53 49 53 54 41 20 47 4C 4F |ATA IN SISTA GLO|
00000250: 53 2D 50 41 52 45 54 20 49 47 45 4E 21 22 00 67 |S-PARET IGEN!".g|
00000260: 42 64 00 89 20 37 30 00 9D 42 6E 00 4E B2 4E AB |Bd.. 70..Bn.N.N.|
00000270: 31 3A 4A 24 B2 22 22 3A 99 22 53 4C 55 54 20 47 |1:J$."":."SLUT G|
00000280: 4C 4F 53 4F 52 20 28 4A 3D 4A 41 29 22 3A 85 4A |LOSOR (J=JA)":.J|
00000290: 24 3A 8B 4A 24 B2 22 4A 22 A7 20 31 30 00 A6 42 |$:.J$."J". 10..B|
000002A0: 78 00 89 20 37 30 00 D5 42 82 00 53 B2 30 3A 81 |x.. 70..B..S.0:.|
000002B0: 49 B2 31 A4 4E 3A 8B 53 B2 30 A7 99 22 93 11 2A |I.1.N:.S.0.."..*|
000002C0: 20 49 4E 4D 41 54 41 44 45 20 47 4C 4F 53 4F 52 | INMATADE GLOSOR|
000002D0: 20 2A 11 11 22 00 F4 42 8C 00 99 49 3B 22 3A 22 | *.."..B...I;":"|
000002E0: 3B 53 56 24 28 49 29 3B 22 20 2D 20 22 3B 45 4E |;SV$(I);" - ";EN|
000002F0: 24 28 49 29 00 24 43 91 00 53 B2 53 AA 31 3A 8B |$(I).$C..S.S.1:.|
00000300: 53 B2 31 30 A7 53 B2 30 3A 85 22 11 11 54 52 59 |S.10.S.0:."..TRY|
00000310: 43 4B 20 3C 52 45 54 55 52 4E 3E 22 3B 52 45 24 |CK <RETURN>";RE$|
00000320: 3A 89 31 30 00 57 43 94 00 82 3A 85 20 22 11 11 |:.10.WC...:. "..|
00000330: 41 54 45 52 20 54 49 4C 4C 20 4D 45 4E 59 2E 54 |ATER TILL MENY.T|
00000340: 52 59 43 4B 20 3C 52 45 54 55 52 4E 3E 22 3B 52 |RYCK <RETURN>";R|
00000350: 45 24 3A 89 20 31 30 00 7C 43 96 00 99 22 93 11 |E$:. 10.|C..."..|
00000360: 2A 46 4F 52 48 4F 52 20 53 56 45 4E 53 4B 41 2F |*FORHOR SVENSKA/|
00000370: 45 4E 47 45 4C 53 4B 41 20 2A 11 22 00 AD 43 A0 |ENGELSKA *."..C.|
00000380: 00 81 49 B2 31 A4 4E 3A 99 22 56 41 44 20 48 45 |..I.1.N:."VAD HE|
00000390: 54 45 52 20 50 41 20 45 4E 47 45 4C 53 4B 41 3A |TER PA ENGELSKA:|
000003A0: 20 22 3B 53 56 24 28 49 29 3A 85 41 24 00 D9 43 | ";SV$(I):.A$..C|
000003B0: AA 00 8B 41 24 B2 45 4E 24 28 49 29 A7 99 22 4B |...A$.EN$(I).."K|
000003C0: 4F 52 52 45 4B 54 20 53 56 41 52 20 2D 20 42 52 |ORREKT SVAR - BR|
000003D0: 41 21 22 3A 89 20 32 35 30 00 13 44 B4 00 99 22 |A!":. 250..D..."|
000003E0: 4C 45 44 53 45 4E 20 2D 20 46 45 4C 21 20 44 45 |LEDSEN - FEL! DE|
000003F0: 54 20 42 4F 52 4A 41 52 20 50 41 20 22 3B C8 28 |T BORJAR PA ";.(|
00000400: 45 4E 24 28 49 29 2C 31 29 3B 22 2E 22 3B 3A 8D |EN$(I),1);".";:.|
00000410: 32 36 30 00 47 44 BE 00 99 22 46 4F 52 53 4F 4B |260.GD..."FORSOK|
00000420: 20 49 47 45 4E 21 22 3A 85 41 24 3A 8B 41 24 B2 | IGEN!":.A$:.A$.|
00000430: 45 4E 24 28 49 29 A7 99 22 4B 4F 52 52 45 4B 54 |EN$(I).."KORREKT|
00000440: 2E 22 3A 89 32 35 30 00 79 44 C8 00 99 22 46 45 |.":.250.yD..."FE|
00000450: 4C 20 49 47 45 4E 21 20 44 45 54 20 42 4F 52 4A |L IGEN! DET BORJ|
00000460: 41 52 20 50 41 20 22 3B C8 28 45 4E 24 28 49 29 |AR PA ";.(EN$(I)|
00000470: 2C 32 29 3B 3A 8D 32 36 30 00 AE 44 D2 00 99 22 |,2);:.260..D..."|
00000480: 46 4F 52 53 4F 4B 20 49 47 45 4E 21 22 3A 85 41 |FORSOK IGEN!":.A|
00000490: 24 3A 8B 41 24 B2 45 4E 24 28 49 29 A7 99 22 4B |$:.A$.EN$(I).."K|
000004A0: 4F 52 52 45 4B 54 2E 22 3A 89 20 32 35 30 00 CE |ORREKT.":. 250..|
000004B0: 44 DC 00 99 22 53 56 41 52 45 54 20 41 52 3A 20 |D..."SVARET AR: |
000004C0: 22 3B 45 4E 24 28 49 29 3A 46 B2 46 AA 31 00 F3 |";EN$(I):F.F.1..|
000004D0: 44 FA 00 82 3A 99 22 11 54 52 59 43 4B 20 3C 52 |D...:.".TRYCK <R|
000004E0: 45 54 55 52 4E 3E 22 3B 3A 85 52 45 24 3A 89 20 |ETURN>";:.RE$:. |
000004F0: 34 30 30 00 14 45 04 01 81 4C B2 33 A4 28 C3 28 |400..E...L.3.(.(|
00000500: 45 4E 24 28 49 29 29 29 3A 99 22 2E 22 3B 3A 82 |EN$(I))):.".";:.|
00000510: 3A 99 3A 8E 00 39 45 2C 01 99 22 93 11 2A 46 4F |:.:..9E,.."..*FO|
00000520: 52 48 4F 52 20 45 4E 47 45 4C 53 4B 41 2F 53 56 |RHOR ENGELSKA/SV|
00000530: 45 4E 53 4B 41 20 2A 11 22 00 69 45 36 01 81 49 |ENSKA *.".iE6..I|
00000540: B2 31 A4 4E 3A 99 22 56 41 44 20 48 45 54 45 52 |.1.N:."VAD HETER|
00000550: 20 50 41 20 53 56 45 4E 53 4B 41 3A 20 22 3B 45 | PA SVENSKA: ";E|
00000560: 4E 24 28 49 29 3A 85 41 24 00 96 45 40 01 8B 41 |N$(I):.A$..E@..A|
00000570: 24 B2 53 56 24 28 49 29 A7 20 99 22 4B 4F 52 52 |$.SV$(I). ."KORR|
00000580: 45 4B 54 20 53 56 41 52 20 2D 20 42 52 41 21 22 |EKT SVAR - BRA!"|
00000590: 3A 89 20 33 37 30 00 D0 45 4A 01 99 22 4C 45 44 |:. 370..EJ.."LED|
000005A0: 53 45 4E 20 2D 20 46 45 4C 21 20 44 45 54 20 42 |SEN - FEL! DET B|
000005B0: 4F 52 4A 41 52 20 50 41 20 22 3B C8 28 53 56 24 |ORJAR PA ";.(SV$|
000005C0: 28 49 29 2C 31 29 3B 22 2E 22 3B 3A 8D 33 38 30 |(I),1);".";:.380|
000005D0: 00 05 46 54 01 99 22 46 4F 52 53 4F 4B 20 49 47 |..FT.."FORSOK IG|
000005E0: 45 4E 21 22 3A 85 41 24 3A 8B 41 24 B2 53 56 24 |EN!":.A$:.A$.SV$|
000005F0: 28 49 29 A7 99 22 4B 4F 52 52 45 4B 54 2E 22 3A |(I).."KORREKT.":|
00000600: 89 20 33 37 30 00 37 46 5E 01 99 22 46 45 4C 20 |. 370.7F^.."FEL |
00000610: 49 47 45 4E 21 20 44 45 54 20 42 4F 52 4A 41 52 |IGEN! DET BORJAR|
00000620: 20 50 41 20 22 3B C8 28 53 56 24 28 49 29 2C 32 | PA ";.(SV$(I),2|
00000630: 29 3B 3A 8D 33 38 30 00 57 46 68 01 99 22 53 56 |);:.380.WFh.."SV|
00000640: 41 52 45 54 20 41 52 3A 20 22 3B 53 56 24 28 49 |ARET AR: ";SV$(I|
00000650: 29 3A 46 B2 46 AA 31 00 7C 46 72 01 82 3A 99 22 |):F.F.1.|Fr..:."|
00000660: 11 54 52 59 43 4B 20 3C 52 45 54 55 52 4E 3E 22 |.TRYCK <RETURN>"|
00000670: 3B 3A 85 52 45 24 3A 89 20 34 30 30 00 9D 46 7C |;:.RE$:. 400..F||
00000680: 01 81 4C B2 33 A4 28 C3 28 53 56 24 28 49 29 29 |..L.3.(.(SV$(I))|
00000690: 29 3A 99 22 2E 22 3B 3A 82 3A 99 3A 8E 00 CA 46 |):.".";:.:.:...F|
000006A0: 90 01 99 22 93 11 41 56 20 22 3B 4E 3B 22 20 47 |..."..AV ";N;" G|
000006B0: 4C 4F 53 4F 52 2C 20 48 41 44 45 20 44 55 20 22 |LOSOR, HADE DU "|
000006C0: 3B 46 3B 22 20 46 45 4C 2E 22 00 E5 46 9A 01 8B |;F;" FEL."..F...|
000006D0: 46 B2 30 A7 99 22 11 2A 42 20 52 20 41 20 56 20 |F.0..".*B R A V |
000006E0: 4F 20 21 2A 22 00 12 47 A4 01 8B 46 B1 32 A7 99 |O !*"..G...F.2..|
000006F0: 22 11 44 55 20 42 4F 52 44 45 20 53 54 55 44 45 |".DU BORDE STUDE|
00000700: 52 41 20 47 4C 4F 53 4F 52 4E 41 20 4D 45 52 41 |RA GLOSORNA MERA|
00000710: 21 22 00 45 47 AE 01 99 22 11 11 11 41 54 45 52 |!".EG..."...ATER|
00000720: 20 54 49 4C 4C 20 4D 45 4E 59 2C 20 54 52 59 43 | TILL MENY, TRYC|
00000730: 4B 20 3C 52 45 54 55 52 4E 3E 22 3B 3A 85 52 45 |K <RETURN>";:.RE|
00000740: 24 3A 89 31 30 00 86 47 F4 01 99 22 93 11 44 41 |$:.10..G..."..DA|
00000750: 54 41 46 49 4C 20 54 49 4C 4C 2F 46 52 41 4E 20 |TAFIL TILL/FRAN |
00000760: 42 41 4E 44 22 3A 99 22 11 42 41 4E 44 20 49 20 |BAND":.".BAND I |
00000770: 52 41 54 54 20 50 4F 53 49 54 49 4F 4E 20 28 4A |RATT POSITION (J|
00000780: 3D 4A 41 29 11 22 00 A1 47 FE 01 4A 24 B2 22 22 |=JA)."..G..J$.""|
00000790: 3A 85 4A 24 3A 8B 4A 24 B3 B1 22 4A 22 A7 35 30 |:.J$:.J$.."J".50|
000007A0: 30 00 DE 47 08 02 99 22 11 56 49 4C 4C 20 44 55 |0..G...".VILL DU|
000007B0: 20 4C 41 47 52 41 20 47 4C 4F 53 4F 52 20 28 4C | LAGRA GLOSOR (L|
000007C0: 29 22 3A 99 22 11 45 4C 4C 45 52 20 48 41 4D 54 |)":.".ELLER HAMT|
000007D0: 41 20 47 4C 4F 53 4F 52 20 28 48 29 11 22 00 F3 |A GLOSOR (H)."..|
000007E0: 47 12 02 85 4A 24 3A 8B 4A 24 B2 22 4C 22 A7 8D |G...J$:.J$."L"..|
000007F0: 35 36 30 00 04 48 1C 02 8B 4A 24 B2 22 48 22 A7 |560..H...J$."H".|
00000800: 8D 35 38 30 00 0D 48 26 02 89 20 31 30 00 00 00 |.580..H&.. 10...|
.@%@... * GLOSFORHOR * AV BIRGER GRAN.L@
...SV$(4000),EN$(4000):N.0:CR$.G(13).@.
.."..* M E N Y *.":."1.INMATNING AV GLOS
OR":F.0..@...".2.LISTA INMATADE GLOSOR".
.@...".3.FORHOR SVENSKA/ENGELSKA":.".4.F
ORHOR ENGELSKA/SVENSKA"..A...".5.TILL/FR
AN DATAFIL":."....ANTAL INMATADE GLOSOR:
";N.SA(..".NUMMERVAL";:NR$."":.NR$:NR.E
(NR$):.NR.0.NR.5.40.NA2..NR.60,130,150,3
00,500..A<.."..* INMATNING AV GLOSOR*.".
EAF.N.N.1:.".NR ";N;:."SVENSKA";SV$(N):.
SV$(N)."".110..AK.."ENGELSKA";EN$(N):."N
R ";N;": ";SV$(N);" - ";EN$(N).)BP.."KOR
REKT INMATAT";:J$."":."(J=JA)";J$.^BZ..J
$.."J".N.N.1:."MATA IN SISTA GLOS-PARET
IGEN!".GBD.. 70..BN.N.N.1:J$."":."SLUT G
LOSOR (J=JA)":.J$:.J$."J". 10..BX.. 70.U
B..S.0:.I.1.N:.S.0.."..* INMATADE GLOSOR
*.."..B...I;":";SV$(I);" - ";EN$(I).$C.
.S.S.1:.S.10.S.0:."..TRYCK <RETURN>";RE$
:.10.WC...:. "..ATER TILL MENY.TRYCK <RE
TURN>";RE$:. 10.|C..."..*FORHOR SVENSKA/
ENGELSKA *."..C ..I.1.N:."VAD HETER PA E
NGELSKA: ";SV$(I):.A$.YC...A$.EN$(I).."K
ORREKT SVAR - BRA!":. 250..D..."LEDSEN -
FEL! DET BORJAR PA ";H(EN$(I),1);".";:.
260.GD..."FORSOK IGEN!":.A$:.A$.EN$(I)..
"KORREKT.":.250.YDH.."FEL IGEN! DET BORJ
AR PA ";H(EN$(I),2);:.260..DR.."FORSOK I
GEN!":.A$:.A$.EN$(I).."KORREKT.":. 250.N
D..."SVARET AR: ";EN$(I):F.F.1..D...:.".
TRYCK <RETURN>";:.RE$:. 400..E...L.3.(C(
EN$(I))):.".";:.:.:..9E,.."..*FORHOR ENG
ELSKA/SVENSKA *.".IE6..I.1.N:."VAD HETER
PA SVENSKA: ";EN$(I):.A$..E@..A$.SV$(I)
. ."KORREKT SVAR - BRA!":. 370.PEJ.."LED
SEN - FEL! DET BORJAR PA ";H(SV$(I),1);"
.";:.380..FT.."FORSOK IGEN!":.A$:.A$.SV$
(I).."KORREKT.":. 370.7F^.."FEL IGEN! DE
T BORJAR PA ";H(SV$(I),2);:.380.WFH.."SV
ARET AR: ";SV$(I):F.F.1.|FR..:.".TRYCK <
RETURN>";:.RE$:. 400..F|..L.3.(C(SV$(I))
):.".";:.:.:..JF..."..AV ";N;" GLOSOR, H
ADE DU ";F;" FEL."..F...F.0..".*B R A V
O !*"..G...F.2..".DU BORDE STUDERA GLOSO
RNA MERA!".EG..."...ATER TILL MENY, TRYC
K <RETURN>";:.RE$:.10..G..."..DATAFIL TI
LL/FRAN BAND":.".BAND I RATT POSITION (J
=JA)."..G..J$."":.J$:.J$.."J".500..G..."
.VILL DU LAGRA GLOSOR (L)":.".ELLER HAMT
A GLOSOR (H)."..G...J$:.J$."L"..560..H..
.J$."H"..580..H&.. 10...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL