LEK9TEST
FILE INFORMATION
FILENAME(S): LEK9TEST
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-12-01 00:56:43
APPEARS ON: 1 disk(s)
FILE HASH
57d126810067f385af08d369c1d7a8d669fa60b3abf9e0528d02c5f90c2293f5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | LEK9TEST | PRG | hedning, Gothenburg | 14 | 3 | 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 39 51 55 49 |....... UNIT9QUI|
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 6E 08 0A 00 99 22 93 11 |53281,0.n...."..|
00000050: 9B 20 20 20 20 20 20 20 20 20 20 20 2D 2D 46 52 |. --FR|
00000060: 5D 47 45 20 50 52 4F 47 52 41 4D 2D 2D 22 00 9D |]GE PROGRAM--"..|
00000070: 08 14 00 99 3A 99 22 20 20 20 20 20 20 54 52 59 |....:." TRY|
00000080: 43 4B 20 41 4C 4C 54 49 44 20 50 5D 20 12 98 20 |CK ALLTID P] .. |
00000090: 43 20 92 05 20 46 5C 52 20 41 54 54 22 00 C3 08 |C .. F\R ATT"...|
000000A0: 1E 00 99 22 20 20 20 46 4F 52 54 53 5B 54 54 41 |..." FORTS[TTA|
000000B0: 20 54 49 4C 4C 20 4E 5B 53 54 41 20 46 52 5D 47 | TILL N[STA FR]G|
000000C0: 41 2E 22 00 F0 08 28 00 99 3A 99 22 20 20 20 20 |A."...(..:." |
000000D0: 20 20 46 5C 4C 4A 20 41 4C 4C 41 20 53 56 41 52 | F\LJ ALLA SVAR|
000000E0: 20 4D 45 44 20 41 54 54 20 54 52 59 43 4B 41 22 | MED ATT TRYCKA"|
000000F0: 00 15 09 32 00 99 22 20 20 20 50 5D 20 12 98 20 |...2.." P] .. |
00000100: 52 45 54 55 52 4E 20 92 05 20 54 41 4E 47 45 4E |RETURN .. TANGEN|
00000110: 54 45 4E 2E 22 00 2F 09 3C 00 99 3A 99 3A 99 22 |TEN."./.<..:.:."|
00000120: 20 20 20 4C 59 43 4B 41 20 54 49 4C 4C 21 22 00 | LYCKA TILL!".|
00000130: 41 09 46 00 81 4A B2 31 A4 31 32 3A 87 59 24 3A |A.F..J.1.12:.Y$:|
00000140: 82 00 48 09 50 00 87 4E 00 52 09 5A 00 86 5A 28 |..H.P..N.R.Z..Z(|
00000150: 4E 29 00 66 09 64 00 81 4A B2 31 A4 4E 3A 5A 28 |N).f.d..J.1.N:Z(|
00000160: 4E 29 B2 30 3A 82 00 6F 09 6E 00 53 43 B2 30 00 |N).0:..o.n.SC.0.|
00000170: 7A 09 78 00 81 4A B2 31 A4 4E 00 8C 09 82 00 8B |z.x..J.1.N......|
00000180: 5A 28 4A 29 B1 B2 30 A7 20 32 30 30 00 93 09 8C |Z(J)..0. 200....|
00000190: 00 82 4A 00 A4 09 96 00 81 4A B2 31 A4 32 30 30 |..J......J.1.200|
000001A0: 30 3A 82 4A 00 C8 09 9B 00 99 22 05 93 11 20 20 |0:.J......"... |
000001B0: 20 20 20 20 20 20 20 41 56 22 3B 4E 3B 22 46 52 | AV";N;"FR|
000001C0: 5D 47 4F 52 20 53 5D 22 00 EA 09 A0 00 99 3A 99 |]GOR S]"......:.|
000001D0: 22 20 20 20 20 46 49 43 4B 20 44 55 22 3B 53 43 |" FICK DU";SC|
000001E0: 3B 22 52 5B 54 54 20 50 5D 22 00 08 0A AA 00 99 |;"R[TT P]"......|
000001F0: 3A 99 22 20 20 20 20 46 5C 52 53 54 41 20 46 5C |:." F\RSTA F\|
00000200: 52 53 5C 4B 45 54 2E 22 00 37 0A B4 00 99 3A 99 |RS\KET.".7....:.|
00000210: 22 20 20 20 20 44 45 54 20 5B 52 22 3B B5 28 31 |" DET [R";.(1|
00000220: 30 30 AC 53 43 AD 4E AA 30 2E 35 29 3B 22 50 52 |00.SC.N.0.5);"PR|
00000230: 4F 43 45 4E 54 21 22 00 3D 0A BE 00 80 00 4F 0A |OCENT!".=.....O.|
00000240: C8 00 44 B2 31 AA B5 28 4E AC BB 28 31 29 29 00 |..D.1..(N..(1)).|
00000250: 61 0A D2 00 8B 20 5A 28 44 29 B2 AB 31 A7 32 30 |a.... Z(D)..1.20|
00000260: 30 00 6E 0A DC 00 43 B2 5A 28 44 29 AA 31 00 78 |0.n...C.Z(D).1.x|
00000270: 0A E6 00 8D 31 32 30 30 00 83 0A F0 00 81 54 B2 |....1200......T.|
00000280: 31 A4 33 00 98 0A FA 00 A1 41 24 3A 8B 41 24 B3 |1.3......A$:.A$.|
00000290: B1 22 43 22 A7 32 35 30 00 A2 0A 04 01 8D 31 30 |."C".250......10|
000002A0: 30 30 00 AC 0A 0E 01 8D 31 33 30 30 00 B6 0A 18 |00......1300....|
000002B0: 01 8D 31 36 30 30 00 D3 0A 1D 01 8B 52 B2 31 AF |..1600......R.1.|
000002C0: 54 B2 31 AF 5A 28 44 29 B2 30 A7 20 53 43 B2 53 |T.1.Z(D).0. SC.S|
000002D0: 43 AA 31 00 F1 0A 22 01 8B 20 52 B2 31 20 AF 20 |C.1...".. R.1 . |
000002E0: 54 B2 31 20 A7 5A 28 44 29 B2 AB 31 3A 89 34 30 |T.1 .Z(D)..1:.40|
000002F0: 30 00 01 0B 2C 01 8B 20 52 B2 31 20 A7 20 33 32 |0...,.. R.1 . 32|
00000300: 30 00 08 0B 36 01 82 54 00 1D 0B 40 01 5A 28 44 |0...6..T...@.Z(D|
00000310: 29 B2 5A 28 44 29 AA 31 3A 89 31 32 30 00 26 0B |).Z(D).1:.120.&.|
00000320: 90 01 89 31 32 30 00 2F 0B E8 03 99 22 93 22 00 |...120./....".".|
00000330: 38 0B F2 03 99 22 93 22 00 5D 0B FC 03 81 4A B2 |8....".".]....J.|
00000340: 30 A4 33 39 3A 97 31 30 32 34 AA 4A 2C 31 36 30 |0.39:.1024.J,160|
00000350: 3A 97 35 35 32 39 36 AA 4A 2C 43 3A 82 00 86 0B |:.55296.J,C:....|
00000360: 06 04 81 4A B2 30 A4 39 32 30 A9 34 30 3A 97 31 |...J.0.920.40:.1|
00000370: 31 30 33 AA 4A 2C 31 36 30 3A 97 35 35 33 37 35 |103.J,160:.55375|
00000380: AA 4A 2C 43 3A 82 00 AE 0B 10 04 81 4A B2 33 39 |.J,C:.......J.39|
00000390: A4 30 A9 AB 31 3A 97 31 39 38 34 AA 4A 2C 31 36 |.0..1:.1984.J,16|
000003A0: 30 3A 97 35 36 32 35 36 AA 4A 2C 43 3A 82 00 D8 |0:.56256.J,C:...|
000003B0: 0B 1A 04 81 4A B2 39 32 30 A4 30 A9 AB 34 30 3A |....J.920.0..40:|
000003C0: 97 31 30 36 34 AA 4A 2C 31 36 30 3A 97 35 35 33 |.1064.J,160:.553|
000003D0: 33 36 AA 4A 2C 43 3A 82 00 EF 0B 1F 04 57 B2 32 |36.J,C:......W.2|
000003E0: 3A 8B C3 28 58 24 29 B1 31 31 30 A7 57 B2 31 00 |:..(X$).110.W.1.|
000003F0: 00 0C 24 04 50 B2 31 3A 4A B2 33 3A 20 4B B2 33 |..$.P.1:J.3: K.3|
00000400: 00 17 0C 2E 04 41 24 B2 CA 28 58 24 2C 50 2C 31 |.....A$..(X$,P,1|
00000410: 29 3A 50 B2 50 AA 31 00 29 0C 38 04 8B 41 24 B2 |):P.P.1.).8..A$.|
00000420: 22 23 22 A7 20 31 31 35 30 00 45 0C 42 04 8B 41 |"#". 1150.E.B..A|
00000430: 24 B2 22 25 22 A7 4A B2 4A AA 57 3A 4B B2 33 3A |$."%".J.J.W:K.3:|
00000440: 89 31 30 37 30 00 5B 0C 47 04 8B 41 24 B2 22 5E |.1070.[.G..A$."^|
00000450: 22 A7 20 41 24 B2 C7 28 33 34 29 00 8D 0C 4C 04 |". A$..(34)...L.|
00000460: 97 31 30 32 34 AA 34 30 AC 4A AA 4B 2C C6 28 41 |.1024.40.J.K,.(A|
00000470: 24 29 AF 20 36 33 3A 97 35 35 32 39 36 AA 34 30 |$). 63:.55296.40|
00000480: AC 4A AA 4B 2C 31 35 3A 4B B2 4B AA 31 00 97 0C |.J.K,15:K.K.1...|
00000490: 56 04 89 31 30 37 30 00 9D 0C 7E 04 8E 00 A3 0C |V..1070...~.....|
000004A0: B0 04 8C 00 B5 0C BF 04 81 4A B2 31 A4 31 32 3A |.........J.1.12:|
000004B0: 87 58 24 3A 82 00 BC 0C C4 04 87 4E 00 C7 0C CE |.X$:.......N....|
000004C0: 04 81 4A B2 31 A4 44 00 D3 0C D8 04 87 58 24 3A |..J.1.D......X$:|
000004D0: 87 59 24 00 E4 0C DD 04 58 24 B2 58 24 AA 59 24 |.Y$.....X$.X$.Y$|
000004E0: 3A 87 59 24 00 EC 0C E2 04 82 20 4A 00 F2 0C EC |:.Y$...... J....|
000004F0: 04 8E 00 11 0D 14 05 99 22 13 11 11 11 11 11 11 |........".......|
00000500: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D A6 9D 22 |..............."|
00000510: 3B 00 1B 0D 19 05 41 24 B2 22 22 00 30 0D 1B 05 |;.....A$."".0...|
00000520: A1 51 24 3A 8B 51 24 B2 22 22 A7 20 31 33 30 37 |.Q$:.Q$."". 1307|
00000530: 00 45 0D 1D 05 8B C6 28 51 24 29 B3 B1 32 30 20 |.E.....(Q$)..20 |
00000540: A7 31 33 31 34 00 55 0D 1E 05 8B 41 24 B2 22 22 |.1314.U....A$.""|
00000550: A7 31 33 30 37 00 78 0D 1F 05 99 22 9D 20 9D 22 |.1307.x....". ."|
00000560: 3B 3A 41 24 B2 C8 28 41 24 2C C3 28 41 24 29 AB |;:A$..(A$,.(A$).|
00000570: 31 29 3A 89 31 33 30 37 00 8D 0D 22 05 8B C6 28 |1):.1307..."...(|
00000580: 51 24 29 B2 31 33 20 A7 20 31 33 32 31 00 BD 0D |Q$).13 . 1321...|
00000590: 23 05 8B 20 51 24 B3 22 30 22 20 B0 20 28 51 24 |#.. Q$."0" . (Q$|
000005A0: B1 22 39 22 20 AF 20 51 24 B3 22 41 22 29 B0 20 |."9" . Q$."A"). |
000005B0: 51 24 B1 22 5A 22 20 A7 20 31 33 30 37 00 C6 0D |Q$."Z" . 1307...|
000005C0: 24 05 99 51 24 3B 00 D9 0D 25 05 41 24 B2 41 24 |$..Q$;...%.A$.A$|
000005D0: AA 51 24 3A 89 31 33 30 37 00 F0 0D 29 05 50 B2 |.Q$:.1307...).P.|
000005E0: C3 28 41 24 29 3A 8B 20 50 B2 30 A7 31 33 30 30 |.(A$):. P.0.1300|
000005F0: 00 09 0E 2A 05 8B C6 28 C9 28 41 24 2C 31 29 29 |...*...(.(A$,1))|
00000600: B3 B1 33 32 A7 31 33 33 30 00 1C 0E 2B 05 41 24 |..32.1330...+.A$|
00000610: B2 CA 28 41 24 2C 31 2C 50 AB 31 29 00 26 0E 2E |..(A$,1,P.1).&..|
00000620: 05 89 31 33 32 31 00 3E 0E 32 05 8B 20 C8 28 59 |..1321.>.2.. .(Y|
00000630: 24 2C 31 29 B3 B1 22 25 22 A7 31 33 38 30 00 46 |$,1).."%".1380.F|
00000640: 0E 3C 05 50 B2 32 00 66 0E 46 05 8B CA 28 59 24 |.<.P.2.f.F...(Y$|
00000650: 2C 50 2C 31 29 B3 B1 22 2D 22 A7 50 B2 50 AA 31 |,P,1).."-".P.P.1|
00000660: 3A 89 31 33 35 30 00 A1 0E 50 05 8B C5 28 41 24 |:.1350...P...(A$|
00000670: 29 B1 B2 C5 28 CA 28 59 24 2C 32 2C 50 AB 31 29 |)...(.(Y$,2,P.1)|
00000680: 29 AF C5 28 41 24 29 B3 B2 C5 28 CA 28 59 24 2C |)..(A$)...(.(Y$,|
00000690: 50 AA 31 2C C3 28 59 24 29 29 29 20 A7 31 35 30 |P.1,.(Y$))) .150|
000006A0: 30 00 AB 0E 5A 05 52 B2 30 3A 8E 00 B3 0E 64 05 |0...Z.R.0:....d.|
000006B0: 50 B2 31 00 CB 0E 6E 05 8B CA 28 59 24 2C 50 2C |P.1...n...(Y$,P,|
000006C0: 31 29 B2 22 23 22 A7 31 33 37 30 00 D3 0E 78 05 |1)."#".1370...x.|
000006D0: 51 B2 50 00 F3 0E 82 05 8B CA 28 59 24 2C 51 2C |Q.P.......(Y$,Q,|
000006E0: 31 29 B3 B1 22 25 22 A7 51 B2 51 AA 31 3A 89 31 |1).."%".Q.Q.1:.1|
000006F0: 34 31 30 00 0C 0F 8C 05 8B CA 28 59 24 2C 50 2C |410.......(Y$,P,|
00000700: 51 AB 50 29 B2 41 24 A7 31 35 30 30 00 1C 0F 96 |Q.P).A$.1500....|
00000710: 05 50 B2 51 AA 31 3A 89 31 33 39 30 00 27 0F DC |.P.Q.1:.1390.'..|
00000720: 05 3A 52 B2 31 3A 8E 00 2D 0F 40 06 8C 00 47 0F |.:R.1:..-.@...G.|
00000730: 54 06 53 B2 36 AC 28 31 AB 52 29 AA B5 28 36 AC |T.S.6.(1.R)..(6.|
00000740: BB 28 31 29 29 AA 31 00 58 0F 5E 06 81 4A B2 31 |.(1)).1.X.^..J.1|
00000750: A4 53 3A 87 5A 24 3A 82 00 78 0F 68 06 99 22 9B |.S:.Z$:..x.h..".|
00000760: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000770: 11 11 1D 1D 22 3B 5A 24 00 8A 0F 72 06 8B 54 B3 |....";Z$...r..T.|
00000780: B2 32 20 A7 20 89 31 37 35 30 00 AA 0F 7C 06 99 |.2 . .1750...|..|
00000790: 22 1D 1D 52 5B 54 54 41 20 53 56 41 52 45 54 20 |"..R[TTA SVARET |
000007A0: 5B 52 22 3A 99 22 1D 1D 22 3B 00 C1 0F 86 06 8B |[R":."..";......|
000007B0: 20 C8 28 59 24 2C 31 29 B2 22 25 22 A7 31 37 31 | .(Y$,1)."%".171|
000007C0: 30 00 C9 0F 90 06 50 B2 31 00 E2 0F 9A 06 8B CA |0.....P.1.......|
000007D0: 28 59 24 2C 50 2C 31 29 B2 22 25 22 A7 89 31 37 |(Y$,P,1)."%"..17|
000007E0: 35 30 00 FE 0F A4 06 99 CA 28 59 24 2C 50 2C 31 |50.......(Y$,P,1|
000007F0: 29 3B 3A 50 B2 50 AA 31 3A 89 31 36 39 30 00 17 |);:P.P.1:.1690..|
00000800: 10 AE 06 99 CA 28 59 24 2C 32 2C C3 28 59 24 29 |.....(Y$,2,.(Y$)|
00000810: 29 3A 89 31 37 35 30 00 4B 10 D6 06 99 22 13 11 |):.1750.K...."..|
00000820: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000830: 11 11 11 11 1D 9E 20 20 20 54 52 59 43 4B 20 50 |...... TRYCK P|
00000840: 5D 20 98 12 20 43 20 05 22 3A 8E 00 59 10 D0 07 |] .. C .":..Y...|
00000850: 58 24 B2 22 41 42 43 44 22 00 61 10 DA 07 85 59 |X$."ABCD".a....Y|
00000860: 24 00 71 10 E4 07 8B 58 24 B2 59 24 A7 32 30 35 |$.q....X$.Y$.205|
00000870: 30 00 82 10 EE 07 99 22 4E 45 4A 22 3A 89 32 30 |0......"NEJ":.20|
00000880: 30 30 00 8C 10 02 08 99 22 4A 41 22 00 92 10 0C |00......"JA"....|
00000890: 08 90 00 C2 10 4A 1F 83 4A 41 21 2C 4B 4F 52 52 |.....J..JA!,KORR|
000008A0: 45 43 54 2C 52 5B 54 54 21 2C 42 52 41 21 2C 22 |ECT,R[TT!,BRA!,"|
000008B0: 44 55 20 48 41 52 20 52 5B 54 54 21 22 2C 4F 4B |DU HAR R[TT!",OK|
000008C0: 45 59 00 08 11 54 1F 83 4E 45 4A 2C 46 45 4C 2C |EY...T..NEJ,FEL,|
000008D0: 22 44 55 20 48 41 52 20 4D 49 53 53 46 5C 52 53 |"DU HAR MISSF\RS|
000008E0: 54 5D 54 54 20 44 45 54 54 41 22 2C 46 45 4C 41 |T]TT DETTA",FELA|
000008F0: 4B 54 49 47 54 2C 22 4B 4F 4D 20 49 47 45 4E 22 |KTIGT,"KOM IGEN"|
00000900: 2C 4E 45 4A 20 44 55 21 00 0F 11 28 23 83 39 00 |,NEJ DU!...(#.9.|
00000910: 58 11 32 23 83 22 20 20 20 48 55 52 20 4B 41 4E |X.2#." HUR KAN|
00000920: 20 44 55 20 4B 4F 4D 4D 41 20 55 54 20 55 52 20 | DU KOMMA UT UR |
00000930: 45 54 54 20 4C 4F 4F 50 25 55 54 41 4E 20 41 54 |ETT LOOP%UTAN AT|
00000940: 54 20 46 5C 52 53 54 5C 52 41 25 50 52 4F 47 52 |T F\RST\RA%PROGR|
00000950: 41 4D 4D 45 54 3F 25 25 00 9F 11 37 23 83 22 41 |AMMET?%%...7#."A|
00000960: 29 20 54 52 59 43 4B 20 50 5D 20 52 55 4E 2F 53 |) TRYCK P] RUN/S|
00000970: 54 4F 50 25 42 29 20 54 52 59 43 4B 20 50 5D 20 |TOP%B) TRYCK P] |
00000980: 52 45 53 54 4F 52 45 25 43 29 20 53 4C 5D 20 41 |RESTORE%C) SL] A|
00000990: 56 20 44 41 54 4F 52 4E 25 23 22 2C 41 25 23 00 |V DATORN%#",A%#.|
000009A0: DC 11 3C 23 83 22 20 20 20 46 5C 52 53 54 5C 52 |..<#." F\RST\R|
000009B0: 20 27 52 45 53 54 4F 52 45 27 20 54 41 4E 47 45 | 'RESTORE' TANGE|
000009C0: 4E 54 45 4E 25 50 52 4F 47 52 41 4D 4D 45 54 25 |NTEN%PROGRAMMET%|
000009D0: 25 22 2C 23 2C 4E 45 4A 25 4E 25 23 00 29 12 46 |%",#,NEJ%N%#.).F|
000009E0: 23 83 22 20 20 20 56 49 4C 4B 45 4E 20 46 55 4E |#." VILKEN FUN|
000009F0: 4B 54 49 4F 4E 20 48 41 52 20 4B 4F 44 45 4E 25 |KTION HAR KODEN%|
00000A00: 49 4E 56 45 52 54 45 52 41 54 20 45 20 3F 25 25 |INVERTERAT E ?%%|
00000A10: 41 29 20 43 54 52 4C 20 4F 43 48 20 57 48 54 25 |A) CTRL OCH WHT%|
00000A20: 42 29 20 43 54 52 4C 20 22 00 6C 12 4B 23 83 22 |B) CTRL ".l.K#."|
00000A30: 4F 43 48 20 47 52 4E 25 43 29 20 53 48 49 46 54 |OCH GRN%C) SHIFT|
00000A40: 20 4F 43 48 20 58 25 44 29 20 53 48 49 46 54 20 | OCH X%D) SHIFT |
00000A50: 4F 43 48 20 45 25 25 23 22 2C 22 43 54 52 4C 20 |OCH E%%#","CTRL |
00000A60: 4F 43 48 20 57 48 54 25 41 25 23 22 00 B9 12 50 |OCH WHT%A%#"...P|
00000A70: 23 83 22 20 20 20 4B 4F 4D 4D 41 4E 44 4F 4E 20 |#." KOMMANDON |
00000A80: 53 4F 4D 25 25 31 35 30 20 54 49 24 20 3D 20 5E |SOM%%150 TI$ = ^|
00000A90: 30 39 30 30 30 30 5E 25 25 5B 52 20 54 49 4C 4C |090000^%%[R TILL|
00000AA0: 5D 54 45 4E 41 20 49 20 42 41 53 49 43 2E 25 5B |]TENA I BASIC.%[|
00000AB0: 52 20 44 4F 4D 20 4F 4E 5C 00 CF 12 55 23 83 22 |R DOM ON\...U#."|
00000AC0: 44 49 47 41 3F 25 23 22 2C 4A 41 25 4A 25 23 00 |DIGA?%#",JA%J%#.|
00000AD0: 1C 13 5A 23 83 22 20 20 20 56 49 4C 4B 45 4E 20 |..Z#." VILKEN |
00000AE0: 41 56 20 44 45 53 53 41 20 53 54 5B 4C 4C 45 52 |AV DESSA ST[LLER|
00000AF0: 25 4F 4D 20 4B 4C 4F 43 4B 41 4E 3F 25 25 41 29 |%OM KLOCKAN?%%A)|
00000B00: 20 52 55 4E 2F 53 54 4F 50 20 54 41 4E 47 45 4E | RUN/STOP TANGEN|
00000B10: 54 45 4E 25 42 29 20 52 45 53 54 4F 00 61 13 5F |TEN%B) RESTO.a._|
00000B20: 23 83 22 52 45 20 54 41 4E 47 45 4E 54 45 4E 25 |#."RE TANGENTEN%|
00000B30: 43 29 20 4C 41 44 44 4E 49 4E 47 20 41 56 20 4E |C) LADDNING AV N|
00000B40: 59 54 54 20 50 52 4F 47 52 41 4D 25 44 29 20 41 |YTT PROGRAM%D) A|
00000B50: 56 53 4C 41 47 45 4E 20 44 41 54 4F 52 25 25 23 |VSLAGEN DATOR%%#|
00000B60: 22 00 7B 13 61 23 83 22 41 56 53 4C 41 47 45 4E |".{.a#."AVSLAGEN|
00000B70: 20 44 41 54 4F 52 25 44 25 23 22 00 C7 13 64 23 | DATOR%D%#"...d#|
00000B80: 83 22 20 20 20 4E 5B 52 20 44 55 20 54 52 59 43 |." N[R DU TRYC|
00000B90: 4B 45 52 20 50 5D 20 52 55 4E 2F 53 54 4F 50 25 |KER P] RUN/STOP%|
00000BA0: 4F 43 48 20 52 45 53 54 4F 52 45 20 5B 52 20 53 |OCH RESTORE [R S|
00000BB0: 4B 5B 52 4D 45 4E 25 52 45 4E 53 41 44 2E 20 20 |K[RMEN%RENSAD. |
00000BC0: 48 55 52 20 46 5D 52 00 11 14 69 23 83 22 20 44 |HUR F]R...i#." D|
00000BD0: 55 20 46 52 41 4D 25 50 52 4F 47 52 41 4D 4D 45 |U FRAM%PROGRAMME|
00000BE0: 54 20 49 47 45 4E 3F 25 25 41 29 20 4C 49 53 54 |T IGEN?%%A) LIST|
00000BF0: 25 42 29 20 53 4B 52 49 56 20 4F 4D 25 43 29 20 |%B) SKRIV OM%C) |
00000C00: 44 45 54 20 5B 52 20 4F 4D 5C 4A 4C 49 47 54 23 |DET [R OM\JLIGT#|
00000C10: 22 00 20 14 6B 23 83 22 4C 49 53 54 25 41 25 23 |". .k#."LIST%A%#|
00000C20: 00 6D 14 6E 23 83 22 56 41 44 20 48 5B 4E 44 45 |.m.n#."VAD H[NDE|
00000C30: 52 20 4D 45 44 20 4B 4C 4F 43 4B 41 4E 20 56 49 |R MED KLOCKAN VI|
00000C40: 44 25 4D 49 44 4E 41 54 54 3F 25 25 41 29 20 44 |D%MIDNATT?%%A) D|
00000C50: 45 4E 20 46 41 53 54 4E 41 52 20 50 5D 20 5E 32 |EN FASTNAR P] ^2|
00000C60: 33 35 39 35 39 5E 25 42 29 20 44 45 4E 00 A7 14 |35959^%B) DEN...|
00000C70: 73 23 83 22 20 42 4C 49 52 20 5E 32 34 30 30 30 |s#." BLIR ^24000|
00000C80: 30 5E 25 43 29 20 44 45 4E 20 42 5C 52 4A 41 52 |0^%C) DEN B\RJAR|
00000C90: 20 4F 4D 20 56 49 44 20 5E 30 30 30 30 30 30 5E | OM VID ^000000^|
00000CA0: 25 23 22 2C 43 25 23 00 EC 14 78 23 83 22 20 20 |%#",C%#...x#." |
00000CB0: 20 4F 4D 20 58 20 3D 20 37 33 2C 25 20 20 58 20 | OM X = 73,% X |
00000CC0: 3E 3D 20 37 33 20 5B 52 25 25 41 29 20 46 45 4C |>= 73 [R%%A) FEL|
00000CD0: 25 42 29 20 52 5B 54 54 20 25 43 29 20 46 45 4C |%B) R[TT %C) FEL|
00000CE0: 41 4B 54 49 47 20 42 41 53 49 43 22 00 FF 14 7D |AKTIG BASIC"...}|
00000CF0: 23 83 22 25 25 23 22 2C 22 52 25 42 25 23 22 00 |#."%%#","R%B%#".|
00000D00: 38 15 82 23 83 22 20 20 20 5E 4C 41 4D 50 5E 3D |8..#." ^LAMP^=|
00000D10: 5E 4C 41 4D 50 4F 4F 4E 5E 25 25 20 20 46 45 4C |^LAMPOON^%% FEL|
00000D20: 20 45 4C 4C 45 52 20 52 5B 54 54 3F 25 22 2C 23 | ELLER R[TT?%",#|
00000D30: 2C 46 45 4C 25 46 25 23 00 84 15 8C 23 83 22 31 |,FEL%F%#....#."1|
00000D40: 30 20 52 53 3D 35 25 32 30 20 50 52 49 4E 54 20 |0 RS=5%20 PRINT |
00000D50: 52 53 2C 31 2F 52 53 25 33 30 20 52 53 3D 52 53 |RS,1/RS%30 RS=RS|
00000D60: 2B 32 25 34 30 20 49 46 20 52 53 3C 31 37 20 54 |+2%40 IF RS<17 T|
00000D70: 48 45 4E 20 32 30 25 35 30 20 53 54 4F 50 25 25 |HEN 20%50 STOP%%|
00000D80: 20 48 55 52 00 B3 15 91 23 83 22 4D 5D 4E 47 41 | HUR....#."M]NGA|
00000D90: 20 5E 4C 4F 4F 50 53 5E 20 49 20 44 45 54 54 41 | ^LOOPS^ I DETTA|
00000DA0: 20 50 52 4F 47 52 41 4D 3F 25 25 23 22 2C 22 36 | PROGRAM?%%#","6|
00000DB0: 25 23 22 00 00 16 96 23 83 22 31 30 20 53 4A 24 |%#"....#."10 SJ$|
00000DC0: 3D 5E 46 5E 25 32 30 20 50 52 49 4E 54 20 53 4A |=^F^%20 PRINT SJ|
00000DD0: 24 25 33 30 20 53 4A 24 3D 5E 4A 5E 2B 53 4A 24 |$%30 SJ$=^J^+SJ$|
00000DE0: 2B 5E 4B 5E 25 34 30 20 49 46 20 53 4A 24 20 3C |+^K^%40 IF SJ$ <|
00000DF0: 20 5E 4A 4A 4A 5E 20 54 48 45 4E 20 20 32 30 25 | ^JJJ^ THEN 20%|
00000E00: 00 3F 16 9B 23 83 22 35 30 20 53 54 4F 50 25 56 |.?..#."50 STOP%V|
00000E10: 49 4C 4B 45 54 20 42 4C 49 52 20 44 45 54 20 53 |ILKET BLIR DET S|
00000E20: 49 53 54 41 20 56 5B 52 44 45 54 20 53 4B 52 49 |ISTA V[RDET SKRI|
00000E30: 56 45 54 3F 25 23 22 2C 4A 4A 46 4B 4B 25 23 00 |VET?%#",JJFKK%#.|
00000E40: 00 00 |.. |
....... UNIT9QUIZ64.9.... COPYRIGHT (C)
ANDREW COLIN 1982.G.... 53281,0.N...."..
. --FR]GE PROGRAM--"......:."
TRYCK ALLTID P] .. C .. F\R ATT".C.
..." FORTS[TTA TILL N[STA FR]GA."...(.
.:." F\LJ ALLA SVAR MED ATT TRYCKA"
...2.." P] .. RETURN .. TANGENTEN."./.
<..:.:." LYCKA TILL!".A.F..J.1.12:.Y$:
..H.P..N.R.Z..Z(N).F.D..J.1.N:Z(N).0:..O
.N.SC.0.Z.X..J.1.N......Z(J)..0. 200....
..J......J.1.2000:.J.H...."... A
V";N;"FR]GOR S]"... ..:." FICK DU";SC
;"R[TT P]"......:." F\RSTA F\RS\KET."
.7....:." DET [R";.(100.SC.N.0.5);"PR
OCENT!".=.....O.H.D.1..(N..(1)).A.R.. Z(
D)..1.200.N...C.Z(D).1.X....1200......T.
1.3......A$:.A$.."C".250......1000......
1300......1600.S....R.1.T.1.Z(D).0. SC.S
C.1...".. R.1 . T.1 .Z(D)..1:.400...,..
R.1 . 320...6..T...@.Z(D).Z(D).1:.120.&.
...120./....".".8....".".]....J.0.39:.10
24.J,160:.55296.J,C:.......J.0.920.40:.1
103.J,160:.55375.J,C:.......J.39.0..1:.1
984.J,160:.56256.J,C:..X....J.920.0..40:
.1064.J,160:.55336.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.E.B..A$."%".J.
J.W:K.3:.1070.[.G..A$."^". A$.G(34)...L.
.1024.40.J.K,F(A$). 63:.55296.40.J.K,15:
K.K.1...V..1070...~..............J.1.12:
.X$:....D..N.G.N..J.1.D.S.X..X$:.Y$.....
X$.X$.Y$:.Y$...... J............".......
...............";.....A$."".0....Q$:.Q$.
"". 1307.E....F(Q$)..20 .1314.U....A$.""
.1307.X....". .";:A$.H(A$,C(A$).1):.1307
..."..F(Q$).13 . 1321...#.. Q$."0" . (Q$
."9" . Q$."A"). Q$."Z" . 1307.F.$..Q$;.Y
.%.A$.A$.Q$:.1307...).P.C(A$):. P.0.1300
...*..F(I(A$,1))..32.1330...+.A$.J(A$,1,
P.1).&....1321.>.2.. H(Y$,1).."%".1380.F
.<.P.2.F.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$))) .1500...Z.R.0:....D.P.1.K.N.
.J(Y$,P,1)."#".1370.S.X.Q.P......J(Y$,Q,
1).."%".Q.Q.1:.1410......J(Y$,P,Q.P).A$.
1500.....P.Q.1:.1390.'...:R.1:..-.@...G.
T.S.6.(1.R)..(6..(1)).1.X.^..J.1.S:.Z$:.
.X.H..".....................";Z$...R..T.
.2 . .1750...|.."..R[TTA SVARET [R":."..
";.A.... H(Y$,1)."%".1710.I...P.1......J
(Y$,P,1)."%"..1750......J(Y$,P,1);:P.P.1
:.1690......J(Y$,2,C(Y$)):.1750.K.V.."..
...................... TRYCK P] .. C .
":..Y.P.X$."ABCD".A.Z..Y$.Q....X$.Y$.205
0......"NEJ":.2000......"JA".......B.J..
JA!,KORRECT,R[TT!,BRA!,"DU HAR R[TT!",OK
EY...T..NEJ,FEL,"DU HAR MISSF\RST]TT DET
TA",FELAKTIGT,"KOM IGEN",NEJ DU!...(#.9.
X.2#." HUR KAN DU KOMMA UT UR ETT LOOP
%UTAN ATT F\RST\RA%PROGRAMMET?%%...7#."A
) TRYCK P] RUN/STOP%B) TRYCK P] RESTORE%
C) SL] AV DATORN%#",A%#...<#." F\RST\R
'RESTORE' TANGENTEN%PROGRAMMET%%",#,NEJ
%N%#.).F#." VILKEN FUNKTION HAR KODEN%
INVERTERAT E ?%%A) CTRL OCH WHT%B) CTRL
".L.K#."OCH GRN%C) SHIFT OCH X%D) SHIFT
OCH E%%#","CTRL OCH WHT%A%#"...P#." KO
MMANDON SOM%%150 TI$ = ^090000^%%[R TILL
]TENA I BASIC.%[R DOM ON\.O.U#."DIGA?%#"
,JA%J%#...Z#." VILKEN AV DESSA ST[LLER
%OM KLOCKAN?%%A) RUN/STOP TANGENTEN%B) R
ESTO.A._#."RE TANGENTEN%C) LADDNING AV N
YTT PROGRAM%D) AVSLAGEN DATOR%%#".{.A#."
AVSLAGEN DATOR%D%#".G.D#." N[R DU TRYC
KER P] RUN/STOP%OCH RESTORE [R SK[RMEN%R
ENSAD. HUR F]R...I#." DU FRAM%PROGRAMME
T IGEN?%%A) LIST%B) SKRIV OM%C) DET [R O
M\JLIGT#". .K#."LIST%A%#.M.N#."VAD H[NDE
R MED KLOCKAN VID%MIDNATT?%%A) DEN FASTN
AR P] ^235959^%B) DEN...S#." BLIR ^24000
0^%C) DEN B\RJAR OM VID ^000000^%#",C%#.
..X#." OM X = 73,% X >= 73 [R%%A) FEL
%B) R[TT %C) FELAKTIG BASIC"...}#."%%#",
"R%B%#".8..#." ^LAMP^=^LAMPOON^%% FEL
ELLER R[TT?%",#,FEL%F%#....#."10 RS=5%2
0 PRINT RS,1/RS%30 RS=RS+2%40 IF RS<17 T
HEN 20%50 STOP%% HUR....#."M]NGA ^LOOPS^
I DETTA PROGRAM?%%#","6%#"....#."10 SJ$
=^F^%20 PRINT SJ$%30 SJ$=^J^+SJ$+^K^%40
IF SJ$ < ^JJJ^ THEN 20%.?..#."50 STOP%V
ILKET BLIR DET SISTA V[RDET SKRIVET?%#",
JJFKK%#...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL