LEK7TEST
FILE INFORMATION
FILENAME(S): LEK7TEST
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-01 00:56:43
APPEARS ON: 1 disk(s)
FILE HASH
75af9116e062431b8b5b7cd9a8c8e31028f1f5560bc88822e135488010bba74e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | LEK7TEST | PRG | hedning, Gothenburg | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 02 00 8F 20 55 4E 49 54 37 51 55 49 |....... UNIT7QUI| 00000010: 5A 36 34 00 39 08 03 00 8F 20 43 4F 50 59 52 49 |Z64.9.... COPYRI| 00000020: 47 48 54 20 28 43 29 20 41 4E 44 52 45 57 20 43 |GHT (C) ANDREW C| 00000030: 4F 4C 49 4E 20 31 39 38 32 00 47 08 05 00 97 20 |OLIN 1982.G.... | 00000040: 35 33 32 38 31 2C 30 00 73 08 0A 00 99 22 93 11 |53281,0.s...."..| 00000050: 9B 20 20 20 20 20 44 45 54 54 41 20 5B 52 20 45 |. DETTA [R E| 00000060: 54 54 20 46 52 5D 47 45 20 50 52 4F 47 52 41 4D |TT FR]GE PROGRAM| 00000070: 4D 2E 22 00 A0 08 14 00 99 3A 99 22 20 20 20 20 |M."......:." | 00000080: 20 20 46 5C 52 20 41 54 54 20 53 45 20 4E 5B 53 | F\R ATT SE N[S| 00000090: 54 41 20 46 52 5D 47 41 2C 20 54 52 59 43 4B 22 |TA FR]GA, TRYCK"| 000000A0: 00 C3 08 1E 00 99 22 20 20 20 41 4C 4C 54 49 44 |......" ALLTID| 000000B0: 20 50 5D 20 12 43 92 20 54 41 4E 47 45 4E 54 45 | P] .C. TANGENTE| 000000C0: 4E 2E 22 00 EC 08 28 00 99 3A 99 22 20 20 20 20 |N."...(..:." | 000000D0: 20 20 46 5C 4C 4A 20 41 4C 4C 54 49 44 20 44 49 | F\LJ ALLTID DI| 000000E0: 54 54 20 53 56 41 52 20 4D 45 44 22 00 0A 09 32 |TT SVAR MED"...2| 000000F0: 00 99 22 20 20 20 41 54 54 20 54 52 59 43 4B 41 |.." ATT TRYCKA| 00000100: 20 9E 52 45 54 55 52 4E 9B 22 00 24 09 3C 00 99 | .RETURN.".$.<..| 00000110: 3A 99 3A 99 22 20 20 20 4C 59 43 4B 41 20 54 49 |:.:." LYCKA TI| 00000120: 4C 4C 21 22 00 36 09 46 00 81 4A B2 31 A4 31 32 |LL!".6.F..J.1.12| 00000130: 3A 87 59 24 3A 82 00 3D 09 50 00 87 4E 00 47 09 |:.Y$:..=.P..N.G.| 00000140: 5A 00 86 5A 28 4E 29 00 5B 09 64 00 81 4A B2 31 |Z..Z(N).[.d..J.1| 00000150: A4 4E 3A 5A 28 4E 29 B2 30 3A 82 00 64 09 6E 00 |.N:Z(N).0:..d.n.| 00000160: 53 43 B2 30 00 6F 09 78 00 81 4A B2 31 A4 4E 00 |SC.0.o.x..J.1.N.| 00000170: 81 09 82 00 8B 5A 28 4A 29 B1 B2 30 A7 20 32 30 |.....Z(J)..0. 20| 00000180: 30 00 88 09 8C 00 82 4A 00 99 09 96 00 81 4A B2 |0......J......J.| 00000190: 31 A4 32 30 30 30 3A 82 4A 00 BA 09 9B 00 99 22 |1.2000:.J......"| 000001A0: 05 93 11 20 20 20 20 20 20 20 20 20 50 5D 22 3B |... P]";| 000001B0: 4E 3B 22 46 52 5D 47 4F 52 22 00 D5 09 A0 00 99 |N;"FR]GOR"......| 000001C0: 3A 99 22 20 20 20 20 53 5D 20 46 49 43 4B 20 44 |:." S] FICK D| 000001D0: 55 22 3B 53 43 00 FA 09 AA 00 99 3A 99 22 20 20 |U";SC......:." | 000001E0: 20 20 52 5B 54 54 20 50 5D 20 46 5C 52 53 54 41 | R[TT P] F\RSTA| 000001F0: 20 46 5C 52 53 5C 4B 45 54 22 00 29 0A B4 00 99 | F\RS\KET".)....| 00000200: 3A 99 22 20 20 20 20 44 45 54 20 5B 52 22 3B B5 |:." DET [R";.| 00000210: 28 31 30 30 AC 53 43 AD 4E AA 30 2E 35 29 3B 22 |(100.SC.N.0.5);"| 00000220: 50 52 4F 43 45 4E 54 21 22 00 2F 0A BE 00 80 00 |PROCENT!"./.....| 00000230: 41 0A C8 00 44 B2 31 AA B5 28 4E AC BB 28 31 29 |A...D.1..(N..(1)| 00000240: 29 00 53 0A D2 00 8B 20 5A 28 44 29 B2 AB 31 A7 |).S.... Z(D)..1.| 00000250: 32 30 30 00 60 0A DC 00 43 B2 5A 28 44 29 AA 31 |200.`...C.Z(D).1| 00000260: 00 6A 0A E6 00 8D 31 32 30 30 00 75 0A F0 00 81 |.j....1200.u....| 00000270: 54 B2 31 A4 33 00 8A 0A FA 00 A1 41 24 3A 8B 41 |T.1.3......A$:.A| 00000280: 24 B3 B1 22 43 22 A7 32 35 30 00 94 0A 04 01 8D |$.."C".250......| 00000290: 31 30 30 30 00 9E 0A 0E 01 8D 31 33 30 30 00 A8 |1000......1300..| 000002A0: 0A 18 01 8D 31 36 30 30 00 C5 0A 1D 01 8B 52 B2 |....1600......R.| 000002B0: 31 AF 54 B2 31 AF 5A 28 44 29 B2 30 A7 20 53 43 |1.T.1.Z(D).0. SC| 000002C0: B2 53 43 AA 31 00 E3 0A 22 01 8B 20 52 B2 31 20 |.SC.1...".. R.1 | 000002D0: AF 20 54 B2 31 20 A7 5A 28 44 29 B2 AB 31 3A 89 |. T.1 .Z(D)..1:.| 000002E0: 34 30 30 00 F3 0A 2C 01 8B 20 52 B2 31 20 A7 20 |400...,.. R.1 . | 000002F0: 33 32 30 00 FA 0A 36 01 82 54 00 0F 0B 40 01 5A |320...6..T...@.Z| 00000300: 28 44 29 B2 5A 28 44 29 AA 31 3A 89 31 32 30 00 |(D).Z(D).1:.120.| 00000310: 18 0B 90 01 89 31 32 30 00 21 0B E8 03 99 22 93 |.....120.!....".| 00000320: 22 00 2A 0B F2 03 99 22 93 22 00 4F 0B FC 03 81 |".*....".".O....| 00000330: 4A B2 30 A4 33 39 3A 97 31 30 32 34 AA 4A 2C 31 |J.0.39:.1024.J,1| 00000340: 36 30 3A 97 35 35 32 39 36 AA 4A 2C 43 3A 82 00 |60:.55296.J,C:..| 00000350: 78 0B 06 04 81 4A B2 30 A4 39 32 30 A9 34 30 3A |x....J.0.920.40:| 00000360: 97 31 31 30 33 AA 4A 2C 31 36 30 3A 97 35 35 33 |.1103.J,160:.553| 00000370: 37 35 AA 4A 2C 43 3A 82 00 A0 0B 10 04 81 4A B2 |75.J,C:.......J.| 00000380: 33 39 A4 30 A9 AB 31 3A 97 31 39 38 34 AA 4A 2C |39.0..1:.1984.J,| 00000390: 31 36 30 3A 97 35 36 32 35 36 AA 4A 2C 43 3A 82 |160:.56256.J,C:.| 000003A0: 00 CA 0B 1A 04 81 4A B2 39 32 30 A4 30 A9 AB 34 |......J.920.0..4| 000003B0: 30 3A 97 31 30 36 34 AA 4A 2C 31 36 30 3A 97 35 |0:.1064.J,160:.5| 000003C0: 35 33 33 36 AA 4A 2C 43 3A 82 00 E1 0B 1F 04 57 |5336.J,C:......W| 000003D0: B2 32 3A 8B C3 28 58 24 29 B1 31 31 30 A7 57 B2 |.2:..(X$).110.W.| 000003E0: 31 00 F2 0B 24 04 50 B2 31 3A 4A B2 33 3A 20 4B |1...$.P.1:J.3: K| 000003F0: B2 33 00 09 0C 2E 04 41 24 B2 CA 28 58 24 2C 50 |.3.....A$..(X$,P| 00000400: 2C 31 29 3A 50 B2 50 AA 31 00 1B 0C 38 04 8B 41 |,1):P.P.1...8..A| 00000410: 24 B2 22 23 22 A7 20 31 31 35 30 00 37 0C 42 04 |$."#". 1150.7.B.| 00000420: 8B 41 24 B2 22 25 22 A7 4A B2 4A AA 57 3A 4B B2 |.A$."%".J.J.W:K.| 00000430: 33 3A 89 31 30 37 30 00 4D 0C 47 04 8B 41 24 B2 |3:.1070.M.G..A$.| 00000440: 22 5C 22 A7 20 41 24 B2 C7 28 33 34 29 00 7F 0C |"\". A$..(34)...| 00000450: 4C 04 97 31 30 32 34 AA 34 30 AC 4A AA 4B 2C C6 |L..1024.40.J.K,.| 00000460: 28 41 24 29 AF 20 36 33 3A 97 35 35 32 39 36 AA |(A$). 63:.55296.| 00000470: 34 30 AC 4A AA 4B 2C 31 35 3A 4B B2 4B AA 31 00 |40.J.K,15:K.K.1.| 00000480: 89 0C 56 04 89 31 30 37 30 00 8F 0C 7E 04 8E 00 |..V..1070...~...| 00000490: 95 0C B0 04 8C 00 A7 0C BF 04 81 4A B2 31 A4 31 |...........J.1.1| 000004A0: 32 3A 87 58 24 3A 82 00 AE 0C C4 04 87 4E 00 B9 |2:.X$:.......N..| 000004B0: 0C CE 04 81 4A B2 31 A4 44 00 C5 0C D8 04 87 58 |....J.1.D......X| 000004C0: 24 3A 87 59 24 00 D6 0C DD 04 58 24 B2 58 24 AA |$:.Y$.....X$.X$.| 000004D0: 59 24 3A 87 59 24 00 DE 0C E2 04 82 20 4A 00 E4 |Y$:.Y$...... J..| 000004E0: 0C EC 04 8E 00 03 0D 14 05 99 22 13 11 11 11 11 |..........".....| 000004F0: 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D A6 |................| 00000500: 9D 22 3B 00 0D 0D 19 05 41 24 B2 22 22 00 22 0D |.";.....A$."".".| 00000510: 1B 05 A1 51 24 3A 8B 51 24 B2 22 22 A7 20 31 33 |...Q$:.Q$."". 13| 00000520: 30 37 00 37 0D 1D 05 8B C6 28 51 24 29 B3 B1 32 |07.7.....(Q$)..2| 00000530: 30 20 A7 31 33 31 34 00 47 0D 1E 05 8B 41 24 B2 |0 .1314.G....A$.| 00000540: 22 22 A7 31 33 30 37 00 6A 0D 1F 05 99 22 9D 20 |"".1307.j....". | 00000550: 9D 22 3B 3A 41 24 B2 C8 28 41 24 2C C3 28 41 24 |.";:A$..(A$,.(A$| 00000560: 29 AB 31 29 3A 89 31 33 30 37 00 7F 0D 22 05 8B |).1):.1307..."..| 00000570: C6 28 51 24 29 B2 31 33 20 A7 20 31 33 32 31 00 |.(Q$).13 . 1321.| 00000580: AF 0D 23 05 8B 20 51 24 B3 22 30 22 20 B0 20 28 |..#.. Q$."0" . (| 00000590: 51 24 B1 22 39 22 20 AF 20 51 24 B3 22 41 22 29 |Q$."9" . Q$."A")| 000005A0: B0 20 51 24 B1 22 5A 22 20 A7 20 31 33 30 37 00 |. Q$."Z" . 1307.| 000005B0: B8 0D 24 05 99 51 24 3B 00 CB 0D 25 05 41 24 B2 |..$..Q$;...%.A$.| 000005C0: 41 24 AA 51 24 3A 89 31 33 30 37 00 E2 0D 29 05 |A$.Q$:.1307...).| 000005D0: 50 B2 C3 28 41 24 29 3A 8B 20 50 B2 30 A7 31 33 |P..(A$):. P.0.13| 000005E0: 30 30 00 FB 0D 2A 05 8B C6 28 C9 28 41 24 2C 31 |00...*...(.(A$,1| 000005F0: 29 29 B3 B1 33 32 A7 31 33 33 30 00 0E 0E 2B 05 |))..32.1330...+.| 00000600: 41 24 B2 CA 28 41 24 2C 31 2C 50 AB 31 29 00 18 |A$..(A$,1,P.1)..| 00000610: 0E 2E 05 89 31 33 32 31 00 30 0E 32 05 8B 20 C8 |....1321.0.2.. .| 00000620: 28 59 24 2C 31 29 B3 B1 22 25 22 A7 31 33 38 30 |(Y$,1).."%".1380| 00000630: 00 38 0E 3C 05 50 B2 32 00 58 0E 46 05 8B CA 28 |.8.<.P.2.X.F...(| 00000640: 59 24 2C 50 2C 31 29 B3 B1 22 2D 22 A7 50 B2 50 |Y$,P,1).."-".P.P| 00000650: AA 31 3A 89 31 33 35 30 00 93 0E 50 05 8B C5 28 |.1:.1350...P...(| 00000660: 41 24 29 B1 B2 C5 28 CA 28 59 24 2C 32 2C 50 AB |A$)...(.(Y$,2,P.| 00000670: 31 29 29 AF C5 28 41 24 29 B3 B2 C5 28 CA 28 59 |1))..(A$)...(.(Y| 00000680: 24 2C 50 AA 31 2C C3 28 59 24 29 29 29 20 A7 31 |$,P.1,.(Y$))) .1| 00000690: 35 30 30 00 9D 0E 5A 05 52 B2 30 3A 8E 00 A5 0E |500...Z.R.0:....| 000006A0: 64 05 50 B2 31 00 BD 0E 6E 05 8B CA 28 59 24 2C |d.P.1...n...(Y$,| 000006B0: 50 2C 31 29 B2 22 23 22 A7 31 33 37 30 00 C5 0E |P,1)."#".1370...| 000006C0: 78 05 51 B2 50 00 E5 0E 82 05 8B CA 28 59 24 2C |x.Q.P.......(Y$,| 000006D0: 51 2C 31 29 B3 B1 22 25 22 A7 51 B2 51 AA 31 3A |Q,1).."%".Q.Q.1:| 000006E0: 89 31 34 31 30 00 FE 0E 8C 05 8B CA 28 59 24 2C |.1410.......(Y$,| 000006F0: 50 2C 51 AB 50 29 B2 41 24 A7 31 35 30 30 00 0E |P,Q.P).A$.1500..| 00000700: 0F 96 05 50 B2 51 AA 31 3A 89 31 33 39 30 00 19 |...P.Q.1:.1390..| 00000710: 0F DC 05 3A 52 B2 31 3A 8E 00 1F 0F 40 06 8C 00 |...:R.1:....@...| 00000720: 39 0F 54 06 53 B2 36 AC 28 31 AB 52 29 AA B5 28 |9.T.S.6.(1.R)..(| 00000730: 36 AC BB 28 31 29 29 AA 31 00 4A 0F 5E 06 81 4A |6..(1)).1.J.^..J| 00000740: B2 31 A4 53 3A 87 5A 24 3A 82 00 6A 0F 68 06 99 |.1.S:.Z$:..j.h..| 00000750: 22 9B 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 00000760: 11 11 11 11 1D 1D 22 3B 5A 24 00 7C 0F 72 06 8B |......";Z$.|.r..| 00000770: 54 B3 B2 32 20 A7 20 89 31 37 35 30 00 9C 0F 7C |T..2 . .1750...|| 00000780: 06 99 22 1D 1D 52 5B 54 54 41 20 53 56 41 52 45 |.."..R[TTA SVARE| 00000790: 54 20 5B 52 22 3A 99 22 1D 1D 22 3B 00 B3 0F 86 |T [R":."..";....| 000007A0: 06 8B 20 C8 28 59 24 2C 31 29 B2 22 25 22 A7 31 |.. .(Y$,1)."%".1| 000007B0: 37 31 30 00 BB 0F 90 06 50 B2 31 00 D4 0F 9A 06 |710.....P.1.....| 000007C0: 8B CA 28 59 24 2C 50 2C 31 29 B2 22 25 22 A7 89 |..(Y$,P,1)."%"..| 000007D0: 31 37 35 30 00 F0 0F A4 06 99 CA 28 59 24 2C 50 |1750.......(Y$,P| 000007E0: 2C 31 29 3B 3A 50 B2 50 AA 31 3A 89 31 36 39 30 |,1);:P.P.1:.1690| 000007F0: 00 09 10 AE 06 99 CA 28 59 24 2C 32 2C C3 28 59 |.......(Y$,2,.(Y| 00000800: 24 29 29 3A 89 31 37 35 30 00 3B 10 D6 06 99 22 |$)):.1750.;...."| 00000810: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000820: 11 11 11 11 11 11 1D 9E 20 20 20 54 52 59 43 4B |........ TRYCK| 00000830: 20 50 5D 20 12 43 92 2E 22 3A 8E 00 49 10 D0 07 | P] .C..":..I...| 00000840: 58 24 B2 22 41 42 43 44 22 00 51 10 DA 07 85 59 |X$."ABCD".Q....Y| 00000850: 24 00 61 10 E4 07 8B 58 24 B2 59 24 A7 32 30 35 |$.a....X$.Y$.205| 00000860: 30 00 72 10 EE 07 99 22 4E 45 4A 22 3A 89 32 30 |0.r...."NEJ":.20| 00000870: 30 30 00 7C 10 02 08 99 22 4A 41 22 00 82 10 0C |00.|...."JA"....| 00000880: 08 90 00 B4 10 4A 1F 83 4A 41 21 2C 4B 4F 52 52 |.....J..JA!,KORR| 00000890: 45 4B 54 2C 52 5B 54 54 21 2C 42 52 41 21 2C 22 |EKT,R[TT!,BRA!,"| 000008A0: 44 55 20 48 41 52 20 52 5B 54 54 22 2C 4F 4B 45 |DU HAR R[TT",OKE| 000008B0: 4A 2E 2E 2E 00 FB 10 54 1F 83 4E 45 4A 21 2C 46 |J......T..NEJ!,F| 000008C0: 45 4C 2C 22 44 55 20 48 41 52 20 46 45 4C 21 21 |EL,"DU HAR FEL!!| 000008D0: 22 2C 44 55 20 48 41 52 20 46 45 4C 2C 22 4E 45 |",DU HAR FEL,"NE| 000008E0: 4A 20 4E 45 4A 20 44 55 20 48 41 52 20 46 45 4C |J NEJ DU HAR FEL| 000008F0: 22 2C 4B 4F 4D 20 49 47 45 4E 21 00 03 11 28 23 |",KOM IGEN!...(#| 00000900: 83 31 31 00 40 11 32 23 83 22 20 20 20 5C 54 49 |.11.@.2#." \TI| 00000910: 47 45 52 5C 20 3D 20 5C 4C 45 4A 4F 4E 5C 25 25 |GER\ = \LEJON\%%| 00000920: 52 5B 54 54 20 45 4C 4C 45 52 20 46 45 4C 3F 25 |R[TT ELLER FEL?%| 00000930: 25 22 2C 22 23 22 2C 22 46 45 4C 25 46 25 23 22 |%","#","FEL%F%#"| 00000940: 00 72 11 3C 23 83 22 20 20 20 35 20 3C 20 37 25 |.r.<#." 5 < 7%| 00000950: 25 52 5B 54 54 20 45 4C 4C 45 52 20 46 45 4C 3F |%R[TT ELLER FEL?| 00000960: 25 25 22 2C 22 23 22 2C 22 52 5B 54 54 25 52 25 |%%","#","R[TT%R%| 00000970: 23 22 00 A4 11 46 23 83 22 20 20 20 37 20 3C 3D |#"...F#." 7 <=| 00000980: 20 33 25 25 52 5B 54 54 20 45 4C 4C 45 52 20 46 | 3%%R[TT ELLER F| 00000990: 45 4C 3F 25 25 22 2C 22 23 22 2C 22 46 45 4C 25 |EL?%%","#","FEL%| 000009A0: 46 25 23 22 00 DD 11 50 23 83 22 20 20 20 5C 4D |F%#"...P#." \M| 000009B0: 55 53 5C 20 3D 20 5C 48 5B 53 54 5C 25 25 52 5B |US\ = \H[ST\%%R[| 000009C0: 54 54 20 45 4C 4C 45 52 20 46 45 4C 3F 25 25 22 |TT ELLER FEL?%%"| 000009D0: 2C 22 23 22 2C 22 46 45 4C 25 46 25 22 00 23 12 |,"#","FEL%F%".#.| 000009E0: 5A 23 83 22 20 20 20 5C 48 5B 53 54 5C 20 3C 3E |Z#." \H[ST\ <>| 000009F0: 20 37 2E 33 25 25 5B 52 20 44 45 54 54 41 25 25 | 7.3%%[R DETTA%%| 00000A00: 41 29 20 52 5B 54 54 25 42 29 20 46 45 4C 25 43 |A) R[TT%B) FEL%C| 00000A10: 29 20 46 45 4C 41 4B 54 49 47 20 42 41 53 49 4B |) FELAKTIG BASIK| 00000A20: 25 25 22 00 3B 12 5F 23 83 22 23 22 2C 22 43 25 |%%".;._#."#","C%| 00000A30: 46 45 4C 41 4B 54 49 47 25 23 22 00 82 12 64 23 |FELAKTIG%#"...d#| 00000A40: 83 22 20 20 20 5C 54 52 45 20 50 55 4E 4B 54 20 |." \TRE PUNKT | 00000A50: 46 45 4D 5C 20 3D 20 5C 33 2E 35 5C 25 25 5B 52 |FEM\ = \3.5\%%[R| 00000A60: 20 44 45 54 54 41 25 41 29 20 52 5B 54 54 25 42 | DETTA%A) R[TT%B| 00000A70: 29 20 46 45 4C 25 43 29 20 46 45 4C 41 4B 54 49 |) FEL%C) FELAKTI| 00000A80: 47 22 00 9F 12 69 23 83 22 20 42 41 53 49 4B 25 |G"...i#." BASIK%| 00000A90: 25 23 22 2C 22 46 45 4C 25 42 25 46 25 23 22 00 |%#","FEL%B%F%#".| 00000AA0: E1 12 6E 23 83 22 20 20 20 4F 4D 20 59 3D 33 37 |..n#." OM Y=37| 00000AB0: 20 4F 43 48 20 5A 3D 32 35 25 5B 52 20 59 2D 33 | OCH Z=25%[R Y-3| 00000AC0: 20 3C 20 5A 2B 35 20 20 20 20 25 25 41 29 20 52 | < Z+5 %%A) R| 00000AD0: 5B 54 54 25 42 29 20 46 45 4C 25 25 22 2C 22 23 |[TT%B) FEL%%","#| 00000AE0: 22 00 F0 12 73 23 83 46 45 4C 25 42 25 46 25 23 |"...s#.FEL%B%F%#| 00000AF0: 00 38 13 78 23 83 22 20 20 20 4F 4D 20 58 20 3D |.8.x#." OM X =| 00000B00: 20 37 33 2C 20 53 5D 20 5B 52 3A 25 20 20 58 20 | 73, S] [R:% X | 00000B10: 3E 3D 20 37 33 25 25 41 29 20 52 5B 54 54 25 42 |>= 73%%A) R[TT%B| 00000B20: 29 20 46 45 4C 25 43 29 20 46 45 4C 41 4B 54 49 |) FEL%C) FELAKTI| 00000B30: 47 20 42 41 53 49 4B 22 00 4E 13 7D 23 83 22 25 |G BASIK".N.}#."%| 00000B40: 25 23 22 2C 52 5B 54 54 25 41 25 52 25 23 00 84 |%#",R[TT%A%R%#..| 00000B50: 13 82 23 83 22 20 20 20 5C 52 41 4D 5C 3D 5C 52 |..#." \RAM\=\R| 00000B60: 41 4D 4D 41 5C 25 25 20 20 52 5B 54 54 20 45 4C |AMMA\%% R[TT EL| 00000B70: 4C 45 52 20 46 45 4C 3F 25 22 2C 23 2C 46 45 4C |LER FEL?%",#,FEL| 00000B80: 25 46 25 23 00 D1 13 8C 23 83 22 20 20 50 52 4F |%F%#....#." PRO| 00000B90: 47 52 41 4D 4D 3A 25 25 31 30 20 52 53 3D 35 25 |GRAMM:%%10 RS=5%| 00000BA0: 32 30 20 50 52 49 4E 54 20 52 53 2C 31 2F 52 53 |20 PRINT RS,1/RS| 00000BB0: 25 33 30 20 52 53 3D 52 53 2B 32 25 34 30 20 49 |%30 RS=RS+2%40 I| 00000BC0: 46 20 52 53 3C 31 37 20 54 48 45 4E 20 32 30 25 |F RS<17 THEN 20%| 00000BD0: 22 00 09 14 91 23 83 22 35 30 20 53 54 4F 50 25 |"....#."50 STOP%| 00000BE0: 25 20 20 20 48 55 52 20 4D 5D 4E 47 41 20 4C 4F |% HUR M]NGA LO| 00000BF0: 4F 50 41 52 20 49 20 50 52 4F 47 52 41 4D 4D 45 |OPAR I PROGRAMME| 00000C00: 54 3F 25 23 22 2C 36 25 23 00 54 14 96 23 83 22 |T?%#",6%#.T..#."| 00000C10: 20 20 50 52 4F 47 52 41 4D 4D 3A 25 25 31 30 20 | PROGRAMM:%%10 | 00000C20: 53 4A 24 3D 5C 46 5C 25 32 30 20 50 52 49 4E 54 |SJ$=\F\%20 PRINT| 00000C30: 20 53 4A 24 25 33 30 20 53 4A 24 3D 5C 4A 5C 2B | SJ$%30 SJ$=\J\+| 00000C40: 53 4A 24 2B 5C 4B 5C 25 34 30 20 49 46 20 53 4A |SJ$+\K\%40 IF SJ| 00000C50: 24 20 3C 22 00 92 14 9B 23 83 22 20 5C 4A 4A 4A |$ <"....#." \JJJ| 00000C60: 5C 20 54 48 45 4E 20 32 30 25 35 30 20 53 54 4F |\ THEN 20%50 STO| 00000C70: 50 25 56 49 4C 4B 45 54 20 56 5B 52 44 45 20 48 |P%VILKET V[RDE H| 00000C80: 41 52 20 53 4A 24 3F 25 23 22 2C 4A 4A 46 4B 4B |AR SJ$?%#",JJFKK| 00000C90: 25 23 00 00 00 |%#... |
....... UNIT7QUIZ64.9.... COPYRIGHT (C) ANDREW COLIN 1982.G.... 53281,0.S....".. . DETTA [R ETT FR]GE PROGRAMM.". ... .:." F\R ATT SE N[STA FR]GA, TRYCK" .C...." ALLTID P] .C. TANGENTEN."...(. .:." F\LJ ALLTID DITT SVAR MED"...2 .." ATT TRYCKA .RETURN.".$.<..:.:." LYCKA TILL!".6.F..J.1.12:.Y$:..=.P..N.G. Z..Z(N).[.D..J.1.N:Z(N).0:..D.N.SC.0.O.X ..J.1.N......Z(J)..0. 200......J......J. 1.2000:.J......"... P]";N;"FR]GO R".U. ..:." S] FICK DU";SC......:." R[TT P] F\RSTA F\RS\KET".)....:." D ET [R";.(100.SC.N.0.5);"PROCENT!"./..... A.H.D.1..(N..(1)).S.R.. Z(D)..1.200.`... C.Z(D).1.J....1200.U....T.1.3......A$:.A $.."C".250......1000......1300......1600 .E....R.1.T.1.Z(D).0. SC.SC.1...".. R.1 . T.1 .Z(D)..1:.400...,.. R.1 . 320...6. .T...@.Z(D).Z(D).1:.120......120.!....". ".*....".".O....J.0.39:.1024.J,160:.5529 6.J,C:..X....J.0.920.40:.1103.J,160:.553 75.J,C:.. ....J.39.0..1:.1984.J,160:.562 56.J,C:..J....J.920.0..40:.1064.J,160:.5 5336.J,C:......W.2:.C(X$).110.W.1...$.P. 1:J.3: K.3.....A$.J(X$,P,1):P.P.1...8..A $."#". 1150.7.B..A$."%".J.J.W:K.3:.1070. M.G..A$."\". A$.G(34)..L..1024.40.J.K,F (A$). 63:.55296.40.J.K,15:K.K.1...V..107 0...~..............J.1.12:.X$:....D..N.. .N..J.1.D.E.X..X$:.Y$.V...X$.X$.Y$:.Y$.. .... J............"..................... .";.....A$.""."....Q$:.Q$."". 1307.7.... F(Q$)..20 .1314.G....A$."".1307.J....". .";:A$.H(A$,C(A$).1):.1307.."..F(Q$).13 . 1321...#.. Q$."0" . (Q$."9" . Q$."A") . Q$."Z" . 1307...$..Q$;.K.%.A$.A$.Q$:.1 307...).P.C(A$):. P.0.1300...*..F(I(A$,1 ))..32.1330...+.A$.J(A$,1,P.1)......1321 .0.2.. H(Y$,1).."%".1380.8.<.P.2.X.F..J( Y$,P,1).."-".P.P.1:.1350...P..E(A$)..E(J (Y$,2,P.1)).E(A$)..E(J(Y$,P.1,C(Y$))) .1 500...Z.R.0:....D.P.1...N..J(Y$,P,1)."#" .1370.E.X.Q.P......J(Y$,Q,1).."%".Q.Q.1: .1410......J(Y$,P,Q.P).A$.1500.....P.Q.1 :.1390.....:R.1:....@...9.T.S.6.(1.R)..( 6..(1)).1.J.^..J.1.S:.Z$:..J.H.."....... ..............";Z$.|.R..T..2 . .1750...| .."..R[TTA SVARET [R":."..";...... H(Y$, 1)."%".1710.....P.1.T....J(Y$,P,1)."%".. 1750......J(Y$,P,1);:P.P.1:.1690......J( Y$,2,C(Y$)):.1750.;.V.."................ ........ TRYCK P] .C..":..I.P.X$."ABCD ".Q.Z..Y$.A....X$.Y$.2050.R...."NEJ":.20 00.|...."JA".........J..JA!,KORREKT,R[TT !,BRA!,"DU HAR R[TT",OKEJ......T..NEJ!,F EL,"DU HAR FEL!!",DU HAR FEL,"NEJ NEJ DU HAR FEL",KOM IGEN!...(#.11.@.2#." \TI GER\ = \LEJON\%%R[TT ELLER FEL?%%","#"," FEL%F%#".R.<#." 5 < 7%%R[TT ELLER FEL? %%","#","R[TT%R%#"...F#." 7 <= 3%%R[TT ELLER FEL?%%","#","FEL%F%#"...P#." \M US\ = \H[ST\%%R[TT ELLER FEL?%%","#","FE L%F%".#.Z#." \H[ST\ <> 7.3%%[R DETTA%% A) R[TT%B) FEL%C) FELAKTIG BASIK%%".;._# ."#","C%FELAKTIG%#"...D#." \TRE PUNKT FEM\ = \3.5\%%[R DETTA%A) R[TT%B) FEL%C) FELAKTIG"...I#." BASIK%%#","FEL%B%F%#". ..N#." OM Y=37 OCH Z=25%[R Y-3 < Z+5 %%A) R[TT%B) FEL%%","#"...S#.FEL%B%F%# .8.X#." OM X = 73, S] [R:% X >= 73%%A ) R[TT%B) FEL%C) FELAKTIG BASIK".N.}#."% %#",R[TT%A%R%#....#." \RAM\=\RAMMA\%% R[TT ELLER FEL?%",#,FEL%F%#.Q..#." PRO GRAMM:%%10 RS=5%20 PRINT RS,1/RS%30 RS=R S+2%40 IF RS<17 THEN 20%"....#."50 STOP% % HUR M]NGA LOOPAR I PROGRAMMET?%#",6% #.T..#." PROGRAMM:%%10 SJ$=\F\%20 PRINT SJ$%30 SJ$=\J\+SJ$+\K\%40 IF SJ$ <".... #." \JJJ\ THEN 20%50 STOP%VILKET V[RDE H AR SJ$?%#",JJFKK%#...
> CLICK IMAGE PREVIEW FOR FULL MODAL