LEK12TEST
FILE INFORMATION
FILENAME(S): LEK12TEST
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-01 00:56:43
APPEARS ON: 1 disk(s)
FILE HASH
8cd8acb603044eb1247fc8b7448bd963081ed93b1be6b935ea0609ca6040105a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | LEK12TEST | PRG | hedning, Gothenburg | 22 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 05 00 97 20 35 33 32 38 31 2C 30 00 |....... 53281,0.| 00000010: 3D 08 0A 00 99 22 93 11 9B 20 20 20 20 20 20 20 |=...."... | 00000020: 20 2D 2D 46 52 5D 47 45 20 50 52 4F 47 52 41 4D | --FR]GE PROGRAM| 00000030: 2D 2D 20 20 20 20 20 20 20 20 20 20 22 00 67 08 |-- ".g.| 00000040: 14 00 99 3A 99 22 20 20 20 20 20 20 53 4C 5D 20 |...:." SL] | 00000050: 41 4C 4C 54 49 44 20 50 5D 20 12 98 20 43 20 05 |ALLTID P] .. C .| 00000060: 92 20 46 5C 52 20 22 00 85 08 1E 00 99 22 20 20 |. F\R "......" | 00000070: 20 41 54 54 20 53 45 20 4E 5B 53 54 41 20 53 4B | ATT SE N[STA SK| 00000080: 5B 52 4D 2E 22 00 B0 08 28 00 99 3A 99 22 20 20 |[RM."...(..:." | 00000090: 20 20 20 20 46 5C 4C 4A 20 41 4C 4C 41 20 44 49 | F\LJ ALLA DI| 000000A0: 4E 41 20 53 56 41 52 20 4D 45 44 20 41 54 54 22 |NA SVAR MED ATT"| 000000B0: 00 D2 08 32 00 99 22 20 20 20 54 52 59 43 4B 41 |...2.." TRYCKA| 000000C0: 20 50 5B 20 12 98 20 52 45 54 55 52 4E 20 92 05 | P[ .. RETURN ..| 000000D0: 20 22 00 EC 08 3C 00 99 3A 99 3A 99 22 20 20 20 | "...<..:.:." | 000000E0: 4C 59 43 4B 41 20 54 49 4C 4C 21 22 00 FE 08 46 |LYCKA TILL!"...F| 000000F0: 00 81 4A B2 31 A4 31 32 3A 87 59 24 3A 82 00 05 |..J.1.12:.Y$:...| 00000100: 09 50 00 87 4E 00 0F 09 5A 00 86 5A 28 4E 29 00 |.P..N...Z..Z(N).| 00000110: 23 09 64 00 81 4A B2 31 A4 4E 3A 5A 28 4E 29 B2 |#.d..J.1.N:Z(N).| 00000120: 30 3A 82 00 2C 09 6E 00 53 43 B2 30 00 37 09 78 |0:..,.n.SC.0.7.x| 00000130: 00 81 4A B2 31 A4 4E 00 49 09 82 00 8B 5A 28 4A |..J.1.N.I....Z(J| 00000140: 29 B1 B2 30 A7 20 32 30 30 00 50 09 8C 00 82 4A |)..0. 200.P....J| 00000150: 00 61 09 96 00 81 4A B2 31 A4 32 30 30 30 3A 82 |.a....J.1.2000:.| 00000160: 4A 00 82 09 9B 00 99 22 05 93 11 20 20 20 20 20 |J......"... | 00000170: 20 41 56 22 3B 4E 3B 22 46 52 5D 47 4F 52 20 53 | AV";N;"FR]GOR S| 00000180: 5D 22 00 A1 09 A0 00 99 3A 99 22 20 20 20 20 46 |]"......:." F| 00000190: 49 43 4B 20 44 55 22 3B 53 43 3B 22 52 5B 54 54 |ICK DU";SC;"R[TT| 000001A0: 22 00 C1 09 AA 00 99 3A 99 22 20 20 20 20 50 5D |"......:." P]| 000001B0: 20 46 5C 52 53 54 41 20 46 5C 52 53 5C 4B 45 54 | F\RSTA F\RS\KET| 000001C0: 22 00 EF 09 B4 00 99 3A 99 22 20 20 20 20 44 45 |"......:." DE| 000001D0: 54 20 5B 52 22 3B B5 28 31 30 30 AC 53 43 AD 4E |T [R";.(100.SC.N| 000001E0: AA 30 2E 35 29 3B 22 50 52 4F 43 45 4E 54 22 00 |.0.5);"PROCENT".| 000001F0: F5 09 BE 00 80 00 07 0A C8 00 44 B2 31 AA B5 28 |..........D.1..(| 00000200: 4E AC BB 28 31 29 29 00 19 0A D2 00 8B 20 5A 28 |N..(1))...... Z(| 00000210: 44 29 B2 AB 31 A7 32 30 30 00 26 0A DC 00 43 B2 |D)..1.200.&...C.| 00000220: 5A 28 44 29 AA 31 00 30 0A E6 00 8D 31 32 30 30 |Z(D).1.0....1200| 00000230: 00 3B 0A F0 00 81 54 B2 31 A4 33 00 50 0A FA 00 |.;....T.1.3.P...| 00000240: A1 41 24 3A 8B 41 24 B3 B1 22 43 22 A7 32 35 30 |.A$:.A$.."C".250| 00000250: 00 5A 0A 04 01 8D 31 30 30 30 00 64 0A 0E 01 8D |.Z....1000.d....| 00000260: 31 33 30 30 00 6E 0A 18 01 8D 31 36 30 30 00 8B |1300.n....1600..| 00000270: 0A 1D 01 8B 52 B2 31 AF 54 B2 31 AF 5A 28 44 29 |....R.1.T.1.Z(D)| 00000280: B2 30 A7 20 53 43 B2 53 43 AA 31 00 A9 0A 22 01 |.0. SC.SC.1...".| 00000290: 8B 20 52 B2 31 20 AF 20 54 B2 31 20 A7 5A 28 44 |. R.1 . T.1 .Z(D| 000002A0: 29 B2 AB 31 3A 89 34 30 30 00 B9 0A 2C 01 8B 20 |)..1:.400...,.. | 000002B0: 52 B2 31 20 A7 20 33 32 30 00 C0 0A 36 01 82 54 |R.1 . 320...6..T| 000002C0: 00 D5 0A 40 01 5A 28 44 29 B2 5A 28 44 29 AA 31 |...@.Z(D).Z(D).1| 000002D0: 3A 89 31 32 30 00 DE 0A 90 01 89 31 32 30 00 E7 |:.120......120..| 000002E0: 0A E8 03 99 22 93 22 00 F0 0A F2 03 99 22 93 22 |...."."......"."| 000002F0: 00 15 0B FC 03 81 4A B2 30 A4 33 39 3A 97 31 30 |......J.0.39:.10| 00000300: 32 34 AA 4A 2C 31 36 30 3A 97 35 35 32 39 36 AA |24.J,160:.55296.| 00000310: 4A 2C 43 3A 82 00 3E 0B 06 04 81 4A B2 30 A4 39 |J,C:..>....J.0.9| 00000320: 32 30 A9 34 30 3A 97 31 31 30 33 AA 4A 2C 31 36 |20.40:.1103.J,16| 00000330: 30 3A 97 35 35 33 37 35 AA 4A 2C 43 3A 82 00 66 |0:.55375.J,C:..f| 00000340: 0B 10 04 81 4A B2 33 39 A4 30 A9 AB 31 3A 97 31 |....J.39.0..1:.1| 00000350: 39 38 34 AA 4A 2C 31 36 30 3A 97 35 36 32 35 36 |984.J,160:.56256| 00000360: AA 4A 2C 43 3A 82 00 90 0B 1A 04 81 4A B2 39 32 |.J,C:.......J.92| 00000370: 30 A4 30 A9 AB 34 30 3A 97 31 30 36 34 AA 4A 2C |0.0..40:.1064.J,| 00000380: 31 36 30 3A 97 35 35 33 33 36 AA 4A 2C 43 3A 82 |160:.55336.J,C:.| 00000390: 00 A7 0B 1F 04 57 B2 32 3A 8B C3 28 58 24 29 B1 |.....W.2:..(X$).| 000003A0: 31 31 30 A7 57 B2 31 00 B8 0B 24 04 50 B2 31 3A |110.W.1...$.P.1:| 000003B0: 4A B2 33 3A 20 4B B2 33 00 CF 0B 2E 04 41 24 B2 |J.3: K.3.....A$.| 000003C0: CA 28 58 24 2C 50 2C 31 29 3A 50 B2 50 AA 31 00 |.(X$,P,1):P.P.1.| 000003D0: E1 0B 38 04 8B 41 24 B2 22 23 22 A7 20 31 31 35 |..8..A$."#". 115| 000003E0: 30 00 FD 0B 42 04 8B 41 24 B2 22 25 22 A7 4A B2 |0...B..A$."%".J.| 000003F0: 4A AA 57 3A 4B B2 33 3A 89 31 30 37 30 00 13 0C |J.W:K.3:.1070...| 00000400: 47 04 8B 41 24 B2 22 5E 22 A7 20 41 24 B2 C7 28 |G..A$."^". A$..(| 00000410: 33 34 29 00 45 0C 4C 04 97 31 30 32 34 AA 34 30 |34).E.L..1024.40| 00000420: AC 4A AA 4B 2C C6 28 41 24 29 AF 20 36 33 3A 97 |.J.K,.(A$). 63:.| 00000430: 35 35 32 39 36 AA 34 30 AC 4A AA 4B 2C 31 35 3A |55296.40.J.K,15:| 00000440: 4B B2 4B AA 31 00 4F 0C 56 04 89 31 30 37 30 00 |K.K.1.O.V..1070.| 00000450: 55 0C 7E 04 8E 00 5B 0C B0 04 8C 00 6D 0C BF 04 |U.~...[.....m...| 00000460: 81 4A B2 31 A4 31 32 3A 87 58 24 3A 82 00 74 0C |.J.1.12:.X$:..t.| 00000470: C4 04 87 4E 00 7F 0C CE 04 81 4A B2 31 A4 44 00 |...N......J.1.D.| 00000480: 8B 0C D8 04 87 58 24 3A 87 59 24 00 9C 0C DD 04 |.....X$:.Y$.....| 00000490: 58 24 B2 58 24 AA 59 24 3A 87 59 24 00 A4 0C E2 |X$.X$.Y$:.Y$....| 000004A0: 04 82 20 4A 00 AA 0C EC 04 8E 00 C9 0C 14 05 99 |.. J............| 000004B0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 000004C0: 11 11 1D 1D 1D A6 9D 22 3B 00 D3 0C 19 05 41 24 |.......";.....A$| 000004D0: B2 22 22 00 E8 0C 1B 05 A1 51 24 3A 8B 51 24 B2 |.""......Q$:.Q$.| 000004E0: 22 22 A7 20 31 33 30 37 00 FD 0C 1D 05 8B C6 28 |"". 1307.......(| 000004F0: 51 24 29 B3 B1 32 30 20 A7 31 33 31 34 00 0D 0D |Q$)..20 .1314...| 00000500: 1E 05 8B 41 24 B2 22 22 A7 31 33 30 37 00 30 0D |...A$."".1307.0.| 00000510: 1F 05 99 22 9D 20 9D 22 3B 3A 41 24 B2 C8 28 41 |...". .";:A$..(A| 00000520: 24 2C C3 28 41 24 29 AB 31 29 3A 89 31 33 30 37 |$,.(A$).1):.1307| 00000530: 00 45 0D 22 05 8B C6 28 51 24 29 B2 31 33 20 A7 |.E."...(Q$).13 .| 00000540: 20 31 33 32 31 00 75 0D 23 05 8B 20 51 24 B3 22 | 1321.u.#.. Q$."| 00000550: 30 22 20 B0 20 28 51 24 B1 22 39 22 20 AF 20 51 |0" . (Q$."9" . Q| 00000560: 24 B3 22 41 22 29 B0 20 51 24 B1 22 5A 22 20 A7 |$."A"). Q$."Z" .| 00000570: 20 31 33 30 37 00 7E 0D 24 05 99 51 24 3B 00 91 | 1307.~.$..Q$;..| 00000580: 0D 25 05 41 24 B2 41 24 AA 51 24 3A 89 31 33 30 |.%.A$.A$.Q$:.130| 00000590: 37 00 A8 0D 29 05 50 B2 C3 28 41 24 29 3A 8B 20 |7...).P..(A$):. | 000005A0: 50 B2 30 A7 31 33 30 30 00 C1 0D 2A 05 8B C6 28 |P.0.1300...*...(| 000005B0: C9 28 41 24 2C 31 29 29 B3 B1 33 32 A7 31 33 33 |.(A$,1))..32.133| 000005C0: 30 00 D4 0D 2B 05 41 24 B2 CA 28 41 24 2C 31 2C |0...+.A$..(A$,1,| 000005D0: 50 AB 31 29 00 DE 0D 2E 05 89 31 33 32 31 00 F6 |P.1)......1321..| 000005E0: 0D 32 05 8B 20 C8 28 59 24 2C 31 29 B3 B1 22 25 |.2.. .(Y$,1).."%| 000005F0: 22 A7 31 33 38 30 00 FE 0D 3C 05 50 B2 32 00 1E |".1380...<.P.2..| 00000600: 0E 46 05 8B CA 28 59 24 2C 50 2C 31 29 B3 B1 22 |.F...(Y$,P,1).."| 00000610: 2D 22 A7 50 B2 50 AA 31 3A 89 31 33 35 30 00 59 |-".P.P.1:.1350.Y| 00000620: 0E 50 05 8B C5 28 41 24 29 B1 B2 C5 28 CA 28 59 |.P...(A$)...(.(Y| 00000630: 24 2C 32 2C 50 AB 31 29 29 AF C5 28 41 24 29 B3 |$,2,P.1))..(A$).| 00000640: B2 C5 28 CA 28 59 24 2C 50 AA 31 2C C3 28 59 24 |..(.(Y$,P.1,.(Y$| 00000650: 29 29 29 20 A7 31 35 30 30 00 63 0E 5A 05 52 B2 |))) .1500.c.Z.R.| 00000660: 30 3A 8E 00 6B 0E 64 05 50 B2 31 00 83 0E 6E 05 |0:..k.d.P.1...n.| 00000670: 8B CA 28 59 24 2C 50 2C 31 29 B2 22 23 22 A7 31 |..(Y$,P,1)."#".1| 00000680: 33 37 30 00 8B 0E 78 05 51 B2 50 00 AB 0E 82 05 |370...x.Q.P.....| 00000690: 8B CA 28 59 24 2C 51 2C 31 29 B3 B1 22 25 22 A7 |..(Y$,Q,1).."%".| 000006A0: 51 B2 51 AA 31 3A 89 31 34 31 30 00 C4 0E 8C 05 |Q.Q.1:.1410.....| 000006B0: 8B CA 28 59 24 2C 50 2C 51 AB 50 29 B2 41 24 A7 |..(Y$,P,Q.P).A$.| 000006C0: 31 35 30 30 00 D4 0E 96 05 50 B2 51 AA 31 3A 89 |1500.....P.Q.1:.| 000006D0: 31 33 39 30 00 DF 0E DC 05 3A 52 B2 31 3A 8E 00 |1390.....:R.1:..| 000006E0: E5 0E 40 06 8C 00 FF 0E 54 06 53 B2 36 AC 28 31 |..@.....T.S.6.(1| 000006F0: AB 52 29 AA B5 28 36 AC BB 28 31 29 29 AA 31 00 |.R)..(6..(1)).1.| 00000700: 10 0F 5E 06 81 4A B2 31 A4 53 3A 87 5A 24 3A 82 |..^..J.1.S:.Z$:.| 00000710: 00 30 0F 68 06 99 22 9B 13 11 11 11 11 11 11 11 |.0.h..".........| 00000720: 11 11 11 11 11 11 11 11 11 11 1D 1D 22 3B 5A 24 |............";Z$| 00000730: 00 42 0F 72 06 8B 54 B3 B2 32 20 A7 20 89 31 37 |.B.r..T..2 . .17| 00000740: 35 30 00 5F 0F 7C 06 99 22 1D 1D 52 5B 54 54 20 |50._.|.."..R[TT | 00000750: 53 56 41 52 20 5B 52 22 3A 99 22 1D 1D 22 3B 00 |SVAR [R":."..";.| 00000760: 76 0F 86 06 8B 20 C8 28 59 24 2C 31 29 B2 22 25 |v.... .(Y$,1)."%| 00000770: 22 A7 31 37 31 30 00 7E 0F 90 06 50 B2 31 00 97 |".1710.~...P.1..| 00000780: 0F 9A 06 8B CA 28 59 24 2C 50 2C 31 29 B2 22 25 |.....(Y$,P,1)."%| 00000790: 22 A7 89 31 37 35 30 00 B3 0F A4 06 99 CA 28 59 |"..1750.......(Y| 000007A0: 24 2C 50 2C 31 29 3B 3A 50 B2 50 AA 31 3A 89 31 |$,P,1);:P.P.1:.1| 000007B0: 36 39 30 00 CC 0F AE 06 99 CA 28 59 24 2C 32 2C |690.......(Y$,2,| 000007C0: C3 28 59 24 29 29 3A 89 31 37 35 30 00 01 10 D6 |.(Y$)):.1750....| 000007D0: 06 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............| 000007E0: 11 11 11 11 11 11 11 11 11 1D 9E 20 20 20 54 52 |........... TR| 000007F0: 59 43 4B 20 50 5D 20 12 98 20 43 20 92 9E 22 3A |YCK P] .. C ..":| 00000800: 8E 00 0F 10 D0 07 58 24 B2 22 41 42 43 44 22 00 |......X$."ABCD".| 00000810: 17 10 DA 07 85 59 24 00 27 10 E4 07 8B 58 24 B2 |.....Y$.'....X$.| 00000820: 59 24 A7 32 30 35 30 00 38 10 EE 07 99 22 4E 45 |Y$.2050.8...."NE| 00000830: 4A 22 3A 89 32 30 30 30 00 42 10 02 08 99 22 4A |J":.2000.B...."J| 00000840: 41 22 00 48 10 0C 08 90 00 76 10 4A 1F 83 4A 41 |A".H.....v.J..JA| 00000850: 21 2C 4B 4F 52 52 45 43 54 2C 52 5B 54 54 21 2C |!,KORRECT,R[TT!,| 00000860: 42 52 41 21 2C 22 44 55 20 48 41 52 20 52 5B 54 |BRA!,"DU HAR R[T| 00000870: 54 21 22 2C 4F 4B 00 B1 10 54 1F 83 4E 45 4A 21 |T!",OK...T..NEJ!| 00000880: 2C 46 45 4C 2C 22 44 45 54 20 5B 52 20 46 45 4C |,FEL,"DET [R FEL| 00000890: 21 21 22 2C 46 45 4C 41 4B 54 49 47 54 2C 22 4B |!!",FELAKTIGT,"K| 000008A0: 4F 4D 20 49 47 45 4E 21 21 22 2C 44 5D 4C 49 47 |OM IGEN!!",D]LIG| 000008B0: 54 00 B9 10 28 23 83 20 39 00 FB 10 32 23 83 22 |T...(#. 9...2#."| 000008C0: 20 20 20 4B 41 4E 20 4B 4F 4E 54 52 4F 4C 4C 20 | KAN KONTROLL | 000008D0: 56 41 52 49 41 42 45 4C 4E 20 4D 45 44 25 4B 4F |VARIABELN MED%KO| 000008E0: 4D 4D 41 4E 44 4F 54 20 5E 46 4F 52 5E 20 56 41 |MMANDOT ^FOR^ VA| 000008F0: 52 41 20 47 24 20 3F 25 22 2C 23 00 08 11 37 23 |RA G$ ?%",#...7#| 00000900: 83 4E 45 4A 25 4E 25 23 00 55 11 3C 23 83 22 20 |.NEJ%N%#.U.<#." | 00000910: 20 20 4B 41 4E 20 44 45 54 20 53 49 53 54 41 20 | KAN DET SISTA | 00000920: 56 5B 52 44 45 54 20 41 56 20 45 4E 25 25 4B 4F |V[RDET AV EN%%KO| 00000930: 4E 54 52 4F 4C 4C 20 56 41 52 49 41 42 45 4C 20 |NTROLL VARIABEL | 00000940: 49 20 4B 4F 4D 4D 41 4E 44 4F 54 20 5E 46 4F 52 |I KOMMANDOT ^FOR| 00000950: 5E 25 56 41 52 00 95 11 41 23 83 22 20 45 4E 20 |^%VAR...A#." EN | 00000960: 56 41 52 49 41 42 45 4C 20 4F 43 4B 53 5D 3F 25 |VARIABEL OCKS]?%| 00000970: 25 28 54 45 58 2E 20 5E 46 4F 52 20 46 53 20 3D |%(TEX. ^FOR FS =| 00000980: 20 31 20 54 4F 20 47 52 5E 29 25 25 23 22 2C 4A | 1 TO GR^)%%#",J| 00000990: 41 25 4A 25 23 00 E2 11 46 23 83 22 4E 5B 52 20 |A%J%#...F#."N[R | 000009A0: 42 45 48 5C 56 45 52 20 44 55 20 49 4E 54 45 20 |BEH\VER DU INTE | 000009B0: 5E 53 54 45 50 5E 20 49 20 45 54 54 25 5E 46 4F |^STEP^ I ETT%^FO| 000009C0: 52 5E 20 4B 4F 4D 4D 41 4E 44 4F 3F 25 25 41 29 |R^ KOMMANDO?%%A)| 000009D0: 20 41 4C 44 52 49 47 25 42 29 20 4E 5B 52 20 5E | ALDRIG%B) N[R ^| 000009E0: 53 54 00 1C 12 4B 23 83 22 45 50 5E 20 53 54 4F |ST...K#."EP^ STO| 000009F0: 52 4C 45 4B 45 4E 20 5B 52 20 31 25 43 29 20 4E |RLEKEN [R 1%C) N| 00000A00: 5B 52 20 53 54 4F 52 4C 45 4B 45 4E 20 5B 52 20 |[R STORLEKEN [R | 00000A10: 3E 30 25 25 23 22 2C 22 42 25 23 22 00 69 12 50 |>0%%#","B%#".i.P| 00000A20: 23 83 22 31 30 20 46 4F 52 20 51 3D 32 30 20 54 |#."10 FOR Q=20 T| 00000A30: 4F 20 33 37 25 32 30 20 50 52 49 4E 54 20 51 2A |O 37%20 PRINT Q*| 00000A40: 51 2F 35 25 33 30 20 4E 45 58 54 20 57 25 5B 52 |Q/5%30 NEXT W%[R| 00000A50: 20 44 45 54 54 41 3A 25 41 29 20 4B 4F 52 52 45 | DETTA:%A) KORRE| 00000A60: 4B 54 20 42 41 53 49 43 25 00 A2 12 55 23 83 22 |KT BASIC%...U#."| 00000A70: 42 29 20 46 45 4C 41 4B 54 49 47 20 42 41 53 49 |B) FELAKTIG BASI| 00000A80: 43 25 43 29 20 44 5D 4C 49 47 20 42 41 53 49 43 |C%C) D]LIG BASIC| 00000A90: 25 25 25 23 22 2C 46 45 4C 41 4B 54 49 47 25 42 |%%%#",FELAKTIG%B| 00000AA0: 25 23 00 EF 12 5A 23 83 22 20 20 20 48 55 52 20 |%#...Z#." HUR | 00000AB0: 4D 5D 4E 47 41 20 4B 4F 4D 4D 41 4E 44 4F 4E 20 |M]NGA KOMMANDON | 00000AC0: 4B 41 4E 20 4D 41 4E 25 25 41 4E 56 5B 4E 44 41 |KAN MAN%%ANV[NDA| 00000AD0: 20 49 4E 4F 4D 20 45 4E 20 5E 46 4F 52 5E 20 4C | INOM EN ^FOR^ L| 00000AE0: 4F 4F 50 3F 25 25 41 29 20 4E 4F 4C 4C 20 45 00 |OOP?%%A) NOLL E.| 00000AF0: 23 13 5F 23 83 22 4C 4C 45 52 20 4D 45 52 25 42 |#._#."LLER MER%B| 00000B00: 29 20 45 54 54 20 45 4C 4C 45 52 20 4D 45 52 25 |) ETT ELLER MER%| 00000B10: 43 29 20 42 41 52 41 20 45 54 54 25 25 23 22 2C |C) BARA ETT%%#",| 00000B20: 41 25 23 00 70 13 64 23 83 22 4B 41 4E 20 46 5C |A%#.p.d#."KAN F\| 00000B30: 52 53 54 41 20 4B 4F 4E 54 52 4F 4C 4C 20 56 41 |RSTA KONTROLL VA| 00000B40: 52 49 41 42 45 4C 4E 20 49 20 45 54 54 25 5E 46 |RIABELN I ETT%^F| 00000B50: 4F 52 5E 20 4C 4F 4F 50 20 56 41 52 41 20 45 4E |OR^ LOOP VARA EN| 00000B60: 20 56 41 52 49 41 42 45 4C 20 4F 43 4B 53 5D 3F | VARIABEL OCKS]?| 00000B70: 00 A4 13 69 23 83 22 25 28 54 45 58 2E 20 20 5E |...i#."%(TEX. ^| 00000B80: 46 4F 52 20 52 20 3D 20 51 20 54 4F 20 31 30 30 |FOR R = Q TO 100| 00000B90: 20 53 54 45 50 20 34 5E 29 25 25 23 22 2C 4A 41 | STEP 4^)%%#",JA| 00000BA0: 25 4A 25 23 00 F1 13 6E 23 83 22 4B 41 4E 20 4B |%J%#...n#."KAN K| 00000BB0: 4F 4E 54 52 4F 4C 4C 20 56 41 52 49 41 42 45 4C |ONTROLL VARIABEL| 00000BC0: 4E 20 5E 53 54 45 50 5E 20 49 20 45 54 54 25 5E |N ^STEP^ I ETT%^| 00000BD0: 46 4F 52 5E 20 4C 4F 4F 50 20 56 41 52 41 20 45 |FOR^ LOOP VARA E| 00000BE0: 4E 20 56 41 52 49 41 42 45 4C 20 4F 43 4B 53 5D |N VARIABEL OCKS]| 00000BF0: 3F 00 04 14 73 23 83 22 25 23 22 2C 22 4A 41 25 |?...s#."%#","JA%| 00000C00: 4A 25 23 22 00 51 14 78 23 83 22 31 30 20 46 4F |J%#".Q.x#."10 FO| 00000C10: 52 20 51 3D 33 20 54 4F 20 31 35 20 53 54 45 50 |R Q=3 TO 15 STEP| 00000C20: 20 34 25 32 30 20 50 52 49 4E 54 20 51 25 33 30 | 4%20 PRINT Q%30| 00000C30: 20 4E 45 58 54 20 51 25 25 48 55 52 20 4D 5D 4E | NEXT Q%%HUR M]N| 00000C40: 47 41 20 47 5D 4E 47 45 52 20 5B 52 20 44 45 54 |GA G]NGER [R DET| 00000C50: 54 00 78 14 7D 23 83 22 41 25 4C 4F 4F 50 20 52 |T.x.}#."A%LOOP R| 00000C60: 45 50 45 54 45 52 41 54 3F 25 25 23 22 2C 22 46 |EPETERAT?%%#","F| 00000C70: 59 52 41 25 34 25 23 22 00 C5 14 82 23 83 22 31 |YRA%4%#"....#."1| 00000C80: 30 20 46 4F 52 20 52 3D 37 20 54 4F 20 33 25 32 |0 FOR R=7 TO 3%2| 00000C90: 30 20 50 52 49 4E 54 20 52 25 33 30 20 4E 45 58 |0 PRINT R%30 NEX| 00000CA0: 54 20 52 25 25 48 55 52 20 4D 5D 4E 47 41 20 47 |T R%%HUR M]NGA G| 00000CB0: 5D 4E 47 45 52 20 5B 52 20 44 45 54 54 41 25 4C |]NGER [R DETTA%L| 00000CC0: 4F 4F 50 20 52 00 01 15 87 23 83 22 45 50 45 54 |OOP R....#."EPET| 00000CD0: 45 52 41 54 3F 25 25 41 29 20 45 4E 20 47 5D 4E |ERAT?%%A) EN G]N| 00000CE0: 47 25 42 29 20 46 45 4D 20 47 5D 4E 47 45 52 25 |G%B) FEM G]NGER%| 00000CF0: 43 29 20 49 4E 47 45 4E 20 47 5D 4E 47 25 25 23 |C) INGEN G]NG%%#| 00000D00: 22 00 16 15 89 23 83 22 45 4E 20 47 5D 4E 47 25 |"....#."EN G]NG%| 00000D10: 31 25 41 25 23 22 00 00 00 |1%A%#"... |
....... 53281,0.=...."... --FR]GE PROGRAM-- ".G....:." SL] ALLTID P] .. C .. F\R "......" ATT SE N[STA SK[RM."...(..:." F\LJ ALLA DI NA SVAR MED ATT".R.2.." TRYCKA P[ .. R ETURN .. "...<..:.:." LYCKA TILL!"...F ..J.1.12:.Y$:....P..N...Z..Z(N).#.D..J.1 .N:Z(N).0:..,.N.SC.0.7.X..J.1.N.I....Z(J )..0. 200.P....J.A....J.1.2000:.J......" ... AV";N;"FR]GOR S]"... ..:." F ICK DU";SC;"R[TT".A....:." P] F\RSTA F\RS\KET"......:." DET [R";.(100.SC.N .0.5);"PROCENT".........H.D.1..(N..(1)). ..R.. Z(D)..1.200.&...C.Z(D).1.0....1200 .;....T.1.3.P....A$:.A$.."C".250.Z....10 00.D....1300.N....1600......R.1.T.1.Z(D) .0. SC.SC.1...".. R.1 . T.1 .Z(D)..1:.40 0...,.. R.1 . 320...6..T.U.@.Z(D).Z(D).1 :.120......120......"."......"."......J. 0.39:.1024.J,160:.55296.J,C:..>....J.0.9 20.40:.1103.J,160:.55375.J,C:..F....J.39 .0..1:.1984.J,160:.56256.J,C:.......J.92 0.0..40:.1064.J,160:.55336.J,C:......W.2 :.C(X$).110.W.1...$.P.1:J.3: K.3.O...A$. J(X$,P,1):P.P.1...8..A$."#". 1150...B..A $."%".J.J.W:K.3:.1070...G..A$."^". A$.G( 34).E.L..1024.40.J.K,F(A$). 63:.55296.40 .J.K,15:K.K.1.O.V..1070.U.~...[.....M... .J.1.12:.X$:..T.D..N..N..J.1.D...X..X$: .Y$.....X$.X$.Y$:.Y$...... J.......I.... "......................";.S...A$.""..... .Q$:.Q$."". 1307......F(Q$)..20 .1314... ...A$."".1307.0....". .";:A$.H(A$,C(A$). 1):.1307.E."..F(Q$).13 . 1321.U.#.. Q$." 0" . (Q$."9" . Q$."A"). Q$."Z" . 1307.~. $..Q$;...%.A$.A$.Q$:.1307...).P.C(A$):. P.0.1300.A.*..F(I(A$,1))..32.1330.T.+.A$ .J(A$,1,P.1)......1321...2.. H(Y$,1).."% ".1380...<.P.2...F..J(Y$,P,1).."-".P.P.1 :.1350.Y.P..E(A$)..E(J(Y$,2,P.1)).E(A$). .E(J(Y$,P.1,C(Y$))) .1500.C.Z.R.0:..K.D. P.1...N..J(Y$,P,1)."#".1370...X.Q.P..... .J(Y$,Q,1).."%".Q.Q.1:.1410.D....J(Y$,P, Q.P).A$.1500.T...P.Q.1:.1390.....:R.1:.. ..@.....T.S.6.(1.R)..(6..(1)).1...^..J.1 .S:.Z$:..0.H..".....................";Z$ .B.R..T..2 . .1750._.|.."..R[TT SVAR [R" :."..";.V.... H(Y$,1)."%".1710.~...P.1.. ....J(Y$,P,1)."%"..1750......J(Y$,P,1);: P.P.1:.1690.L....J(Y$,2,C(Y$)):.1750...V .."........................ TRYCK P] . . C ..":....P.X$."ABCD"...Z..Y$.'....X$. Y$.2050.8...."NEJ":.2000.B...."JA".H.... .V.J..JA!,KORRECT,R[TT!,BRA!,"DU HAR R[T T!",OK...T..NEJ!,FEL,"DET [R FEL!!",FELA KTIGT,"KOM IGEN!!",D]LIGT...(#. 9...2#." KAN KONTROLL VARIABELN MED%KOMMANDOT ^FOR^ VARA G$ ?%",#...7#.NEJ%N%#.U.<#." KAN DET SISTA V[RDET AV EN%%KONTROLL V ARIABEL I KOMMANDOT ^FOR^%VAR...A#." EN VARIABEL OCKS]?%%(TEX. ^FOR FS = 1 TO GR ^)%%#",JA%J%#...F#."N[R BEH\VER DU INTE ^STEP^ I ETT%^FOR^ KOMMANDO?%%A) ALDRIG% B) N[R ^ST...K#."EP^ STORLEKEN [R 1%C) N [R STORLEKEN [R >0%%#","B%#".I.P#."10 FO R Q=20 TO 37%20 PRINT Q*Q/5%30 NEXT W%[R DETTA:%A) KORREKT BASIC%...U#."B) FELAK TIG BASIC%C) D]LIG BASIC%%%#",FELAKTIG%B %#...Z#." HUR M]NGA KOMMANDON KAN MAN% %ANV[NDA INOM EN ^FOR^ LOOP?%%A) NOLL E. #._#."LLER MER%B) ETT ELLER MER%C) BARA ETT%%#",A%#.P.D#."KAN F\RSTA KONTROLL VA RIABELN I ETT%^FOR^ LOOP VARA EN VARIABE L OCKS]?...I#."%(TEX. ^FOR R = Q TO 100 STEP 4^)%%#",JA%J%#...N#."KAN KONTROLL VARIABELN ^STEP^ I ETT%^FOR^ LOOP VARA E N VARIABEL OCKS]?...S#."%#","JA%J%#".Q.X #."10 FOR Q=3 TO 15 STEP 4%20 PRINT Q%30 NEXT Q%%HUR M]NGA G]NGER [R DETT.X.}#." A%LOOP REPETERAT?%%#","FYRA%4%#".E..#."1 0 FOR R=7 TO 3%20 PRINT R%30 NEXT R%%HUR M]NGA G]NGER [R DETTA%LOOP R....#."EPET ERAT?%%A) EN G]NG%B) FEM G]NGER%C) INGEN G]NG%%#"....#."EN G]NG%1%A%#"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL