LEK10TEST
FILE INFORMATION
FILENAME(S): LEK10TEST
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-01 00:56:43
APPEARS ON: 1 disk(s)
FILE HASH
b748e132de1b6eda0bd4044fd4f61b55a092b4b2f2db6221171dd3ba8ea92bfb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | LEK10TEST | PRG | hedning, Gothenburg | 14 | 20 | 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: 3C 08 0A 00 99 22 93 11 9B 20 20 20 20 20 20 20 |<...."... |
00000020: 20 20 20 20 20 20 20 2D 2D 46 52 5D 47 45 20 50 | --FR]GE P|
00000030: 52 4F 47 52 41 4D 2D 2D 20 20 20 22 00 6B 08 14 |ROGRAM-- ".k..|
00000040: 00 99 3A 99 22 20 20 20 20 20 20 49 20 44 45 54 |..:." I DET|
00000050: 54 41 20 50 52 4F 47 52 41 4D 20 53 4B 41 4C 4C |TA PROGRAM SKALL|
00000060: 20 44 55 20 54 52 59 43 4B 41 22 00 9D 08 1E 00 | DU TRYCKA".....|
00000070: 99 22 20 20 20 50 5D 20 12 98 20 43 20 92 05 20 |." P] .. C .. |
00000080: 46 5C 52 20 41 54 54 20 47 5D 20 54 49 4C 4C 20 |F\R ATT G] TILL |
00000090: 4E 5B 53 54 41 20 53 4B 5B 52 4D 2E 22 00 C8 08 |N[STA SK[RM."...|
000000A0: 28 00 99 3A 99 22 20 20 20 20 20 20 46 5C 4C 4A |(..:." F\LJ|
000000B0: 20 41 4C 4C 41 20 44 49 4E 41 20 53 56 41 52 20 | ALLA DINA SVAR |
000000C0: 4D 45 44 20 41 54 54 22 00 F4 08 32 00 99 22 20 |MED ATT"...2.." |
000000D0: 20 20 54 52 59 43 4B 41 20 50 5D 20 12 98 20 52 | TRYCKA P] .. R|
000000E0: 45 54 55 52 4E 20 92 05 20 54 41 4E 47 45 4E 54 |ETURN .. TANGENT|
000000F0: 45 4E 2E 22 00 0E 09 3C 00 99 3A 99 3A 99 22 20 |EN."...<..:.:." |
00000100: 20 20 4C 59 43 4B 41 20 54 49 4C 4C 21 22 00 20 | LYCKA TILL!". |
00000110: 09 46 00 81 4A B2 31 A4 31 32 3A 87 59 24 3A 82 |.F..J.1.12:.Y$:.|
00000120: 00 27 09 50 00 87 4E 00 31 09 5A 00 86 5A 28 4E |.'.P..N.1.Z..Z(N|
00000130: 29 00 45 09 64 00 81 4A B2 31 A4 4E 3A 5A 28 4E |).E.d..J.1.N:Z(N|
00000140: 29 B2 30 3A 82 00 4E 09 6E 00 53 43 B2 30 00 59 |).0:..N.n.SC.0.Y|
00000150: 09 78 00 81 4A B2 31 A4 4E 00 6B 09 82 00 8B 5A |.x..J.1.N.k....Z|
00000160: 28 4A 29 B1 B2 30 A7 20 32 30 30 00 72 09 8C 00 |(J)..0. 200.r...|
00000170: 82 4A 00 83 09 96 00 81 4A B2 31 A4 32 30 30 30 |.J......J.1.2000|
00000180: 3A 82 4A 00 A2 09 9B 00 99 22 05 93 11 20 20 20 |:.J......"... |
00000190: 20 41 56 22 3B 4E 3B 22 46 52 5D 47 4F 52 20 53 | AV";N;"FR]GOR S|
000001A0: 5D 22 00 C4 09 A0 00 99 3A 99 22 20 20 20 20 46 |]"......:." F|
000001B0: 49 43 4B 20 44 55 22 3B 53 43 3B 22 52 5B 54 54 |ICK DU";SC;"R[TT|
000001C0: 20 50 5D 22 00 E2 09 AA 00 99 3A 99 22 20 20 20 | P]"......:." |
000001D0: 20 46 5C 52 53 54 41 20 46 5C 52 53 5C 4B 45 54 | F\RSTA F\RS\KET|
000001E0: 2E 22 00 10 0A B4 00 99 3A 99 22 20 20 20 20 44 |."......:." D|
000001F0: 45 54 20 5B 52 22 3B B5 28 31 30 30 AC 53 43 AD |ET [R";.(100.SC.|
00000200: 4E AA 30 2E 35 29 3B 22 50 52 4F 43 45 4E 54 22 |N.0.5);"PROCENT"|
00000210: 00 16 0A BE 00 80 00 28 0A C8 00 44 B2 31 AA B5 |.......(...D.1..|
00000220: 28 4E AC BB 28 31 29 29 00 3A 0A D2 00 8B 20 5A |(N..(1)).:.... Z|
00000230: 28 44 29 B2 AB 31 A7 32 30 30 00 47 0A DC 00 43 |(D)..1.200.G...C|
00000240: B2 5A 28 44 29 AA 31 00 51 0A E6 00 8D 31 32 30 |.Z(D).1.Q....120|
00000250: 30 00 5C 0A F0 00 81 54 B2 31 A4 33 00 71 0A FA |0.\....T.1.3.q..|
00000260: 00 A1 41 24 3A 8B 41 24 B3 B1 22 43 22 A7 32 35 |..A$:.A$.."C".25|
00000270: 30 00 7B 0A 04 01 8D 31 30 30 30 00 85 0A 0E 01 |0.{....1000.....|
00000280: 8D 31 33 30 30 00 8F 0A 18 01 8D 31 36 30 30 00 |.1300......1600.|
00000290: AC 0A 1D 01 8B 52 B2 31 AF 54 B2 31 AF 5A 28 44 |.....R.1.T.1.Z(D|
000002A0: 29 B2 30 A7 20 53 43 B2 53 43 AA 31 00 CA 0A 22 |).0. SC.SC.1..."|
000002B0: 01 8B 20 52 B2 31 20 AF 20 54 B2 31 20 A7 5A 28 |.. R.1 . T.1 .Z(|
000002C0: 44 29 B2 AB 31 3A 89 34 30 30 00 DA 0A 2C 01 8B |D)..1:.400...,..|
000002D0: 20 52 B2 31 20 A7 20 33 32 30 00 E1 0A 36 01 82 | R.1 . 320...6..|
000002E0: 54 00 F6 0A 40 01 5A 28 44 29 B2 5A 28 44 29 AA |T...@.Z(D).Z(D).|
000002F0: 31 3A 89 31 32 30 00 FF 0A 90 01 89 31 32 30 00 |1:.120......120.|
00000300: 08 0B E8 03 99 22 93 22 00 11 0B F2 03 99 22 93 |....."."......".|
00000310: 22 00 36 0B FC 03 81 4A B2 30 A4 33 39 3A 97 31 |".6....J.0.39:.1|
00000320: 30 32 34 AA 4A 2C 31 36 30 3A 97 35 35 32 39 36 |024.J,160:.55296|
00000330: AA 4A 2C 43 3A 82 00 5F 0B 06 04 81 4A B2 30 A4 |.J,C:.._....J.0.|
00000340: 39 32 30 A9 34 30 3A 97 31 31 30 33 AA 4A 2C 31 |920.40:.1103.J,1|
00000350: 36 30 3A 97 35 35 33 37 35 AA 4A 2C 43 3A 82 00 |60:.55375.J,C:..|
00000360: 87 0B 10 04 81 4A B2 33 39 A4 30 A9 AB 31 3A 97 |.....J.39.0..1:.|
00000370: 31 39 38 34 AA 4A 2C 31 36 30 3A 97 35 36 32 35 |1984.J,160:.5625|
00000380: 36 AA 4A 2C 43 3A 82 00 B1 0B 1A 04 81 4A B2 39 |6.J,C:.......J.9|
00000390: 32 30 A4 30 A9 AB 34 30 3A 97 31 30 36 34 AA 4A |20.0..40:.1064.J|
000003A0: 2C 31 36 30 3A 97 35 35 33 33 36 AA 4A 2C 43 3A |,160:.55336.J,C:|
000003B0: 82 00 C8 0B 1F 04 57 B2 32 3A 8B C3 28 58 24 29 |......W.2:..(X$)|
000003C0: B1 31 31 30 A7 57 B2 31 00 D9 0B 24 04 50 B2 31 |.110.W.1...$.P.1|
000003D0: 3A 4A B2 33 3A 20 4B B2 33 00 F0 0B 2E 04 41 24 |:J.3: K.3.....A$|
000003E0: B2 CA 28 58 24 2C 50 2C 31 29 3A 50 B2 50 AA 31 |..(X$,P,1):P.P.1|
000003F0: 00 02 0C 38 04 8B 41 24 B2 22 23 22 A7 20 31 31 |...8..A$."#". 11|
00000400: 35 30 00 1E 0C 42 04 8B 41 24 B2 22 25 22 A7 4A |50...B..A$."%".J|
00000410: B2 4A AA 57 3A 4B B2 33 3A 89 31 30 37 30 00 34 |.J.W:K.3:.1070.4|
00000420: 0C 47 04 8B 41 24 B2 22 5E 22 A7 20 41 24 B2 C7 |.G..A$."^". A$..|
00000430: 28 33 34 29 00 66 0C 4C 04 97 31 30 32 34 AA 34 |(34).f.L..1024.4|
00000440: 30 AC 4A AA 4B 2C C6 28 41 24 29 AF 20 36 33 3A |0.J.K,.(A$). 63:|
00000450: 97 35 35 32 39 36 AA 34 30 AC 4A AA 4B 2C 31 35 |.55296.40.J.K,15|
00000460: 3A 4B B2 4B AA 31 00 70 0C 56 04 89 31 30 37 30 |:K.K.1.p.V..1070|
00000470: 00 76 0C 7E 04 8E 00 7C 0C B0 04 8C 00 8E 0C BF |.v.~...|........|
00000480: 04 81 4A B2 31 A4 31 32 3A 87 58 24 3A 82 00 95 |..J.1.12:.X$:...|
00000490: 0C C4 04 87 4E 00 A0 0C CE 04 81 4A B2 31 A4 44 |....N......J.1.D|
000004A0: 00 AC 0C D8 04 87 58 24 3A 87 59 24 00 BD 0C DD |......X$:.Y$....|
000004B0: 04 58 24 B2 58 24 AA 59 24 3A 87 59 24 00 C5 0C |.X$.X$.Y$:.Y$...|
000004C0: E2 04 82 20 4A 00 CB 0C EC 04 8E 00 EA 0C 14 05 |... J...........|
000004D0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000004E0: 11 11 11 1D 1D 1D A6 9D 22 3B 00 F4 0C 19 05 41 |........";.....A|
000004F0: 24 B2 22 22 00 09 0D 1B 05 A1 51 24 3A 8B 51 24 |$.""......Q$:.Q$|
00000500: B2 22 22 A7 20 31 33 30 37 00 1E 0D 1D 05 8B C6 |."". 1307.......|
00000510: 28 51 24 29 B3 B1 32 30 20 A7 31 33 31 34 00 2E |(Q$)..20 .1314..|
00000520: 0D 1E 05 8B 41 24 B2 22 22 A7 31 33 30 37 00 51 |....A$."".1307.Q|
00000530: 0D 1F 05 99 22 9D 20 9D 22 3B 3A 41 24 B2 C8 28 |....". .";:A$..(|
00000540: 41 24 2C C3 28 41 24 29 AB 31 29 3A 89 31 33 30 |A$,.(A$).1):.130|
00000550: 37 00 66 0D 22 05 8B C6 28 51 24 29 B2 31 33 20 |7.f."...(Q$).13 |
00000560: A7 20 31 33 32 31 00 96 0D 23 05 8B 20 51 24 B3 |. 1321...#.. Q$.|
00000570: 22 30 22 20 B0 20 28 51 24 B1 22 39 22 20 AF 20 |"0" . (Q$."9" . |
00000580: 51 24 B3 22 41 22 29 B0 20 51 24 B1 22 5A 22 20 |Q$."A"). Q$."Z" |
00000590: A7 20 31 33 30 37 00 9F 0D 24 05 99 51 24 3B 00 |. 1307...$..Q$;.|
000005A0: B2 0D 25 05 41 24 B2 41 24 AA 51 24 3A 89 31 33 |..%.A$.A$.Q$:.13|
000005B0: 30 37 00 C9 0D 29 05 50 B2 C3 28 41 24 29 3A 8B |07...).P..(A$):.|
000005C0: 20 50 B2 30 A7 31 33 30 30 00 E2 0D 2A 05 8B C6 | P.0.1300...*...|
000005D0: 28 C9 28 41 24 2C 31 29 29 B3 B1 33 32 A7 31 33 |(.(A$,1))..32.13|
000005E0: 33 30 00 F5 0D 2B 05 41 24 B2 CA 28 41 24 2C 31 |30...+.A$..(A$,1|
000005F0: 2C 50 AB 31 29 00 FF 0D 2E 05 89 31 33 32 31 00 |,P.1)......1321.|
00000600: 17 0E 32 05 8B 20 C8 28 59 24 2C 31 29 B3 B1 22 |..2.. .(Y$,1).."|
00000610: 25 22 A7 31 33 38 30 00 1F 0E 3C 05 50 B2 32 00 |%".1380...<.P.2.|
00000620: 3F 0E 46 05 8B CA 28 59 24 2C 50 2C 31 29 B3 B1 |?.F...(Y$,P,1)..|
00000630: 22 2D 22 A7 50 B2 50 AA 31 3A 89 31 33 35 30 00 |"-".P.P.1:.1350.|
00000640: 7A 0E 50 05 8B C5 28 41 24 29 B1 B2 C5 28 CA 28 |z.P...(A$)...(.(|
00000650: 59 24 2C 32 2C 50 AB 31 29 29 AF C5 28 41 24 29 |Y$,2,P.1))..(A$)|
00000660: B3 B2 C5 28 CA 28 59 24 2C 50 AA 31 2C C3 28 59 |...(.(Y$,P.1,.(Y|
00000670: 24 29 29 29 20 A7 31 35 30 30 00 84 0E 5A 05 52 |$))) .1500...Z.R|
00000680: B2 30 3A 8E 00 8C 0E 64 05 50 B2 31 00 A4 0E 6E |.0:....d.P.1...n|
00000690: 05 8B CA 28 59 24 2C 50 2C 31 29 B2 22 23 22 A7 |...(Y$,P,1)."#".|
000006A0: 31 33 37 30 00 AC 0E 78 05 51 B2 50 00 CC 0E 82 |1370...x.Q.P....|
000006B0: 05 8B CA 28 59 24 2C 51 2C 31 29 B3 B1 22 25 22 |...(Y$,Q,1).."%"|
000006C0: A7 51 B2 51 AA 31 3A 89 31 34 31 30 00 E5 0E 8C |.Q.Q.1:.1410....|
000006D0: 05 8B CA 28 59 24 2C 50 2C 51 AB 50 29 B2 41 24 |...(Y$,P,Q.P).A$|
000006E0: A7 31 35 30 30 00 F5 0E 96 05 50 B2 51 AA 31 3A |.1500.....P.Q.1:|
000006F0: 89 31 33 39 30 00 00 0F DC 05 3A 52 B2 31 3A 8E |.1390.....:R.1:.|
00000700: 00 06 0F 40 06 8C 00 20 0F 54 06 53 B2 36 AC 28 |...@... .T.S.6.(|
00000710: 31 AB 52 29 AA B5 28 36 AC BB 28 31 29 29 AA 31 |1.R)..(6..(1)).1|
00000720: 00 31 0F 5E 06 81 4A B2 31 A4 53 3A 87 5A 24 3A |.1.^..J.1.S:.Z$:|
00000730: 82 00 51 0F 68 06 99 22 9B 13 11 11 11 11 11 11 |..Q.h.."........|
00000740: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 22 3B 5A |.............";Z|
00000750: 24 00 63 0F 72 06 8B 54 B3 B2 32 20 A7 20 89 31 |$.c.r..T..2 . .1|
00000760: 37 35 30 00 88 0F 7C 06 99 22 1D 1D 44 45 54 20 |750...|.."..DET |
00000770: 52 5B 54 54 41 20 53 56 41 52 45 54 20 56 41 52 |R[TTA SVARET VAR|
00000780: 22 3A 99 22 1D 1D 22 3B 00 9F 0F 86 06 8B 20 C8 |":."..";...... .|
00000790: 28 59 24 2C 31 29 B2 22 25 22 A7 31 37 31 30 00 |(Y$,1)."%".1710.|
000007A0: A7 0F 90 06 50 B2 31 00 C0 0F 9A 06 8B CA 28 59 |....P.1.......(Y|
000007B0: 24 2C 50 2C 31 29 B2 22 25 22 A7 89 31 37 35 30 |$,P,1)."%"..1750|
000007C0: 00 DC 0F A4 06 99 CA 28 59 24 2C 50 2C 31 29 3B |.......(Y$,P,1);|
000007D0: 3A 50 B2 50 AA 31 3A 89 31 36 39 30 00 F5 0F AE |:P.P.1:.1690....|
000007E0: 06 99 CA 28 59 24 2C 32 2C C3 28 59 24 29 29 3A |...(Y$,2,.(Y$)):|
000007F0: 89 31 37 35 30 00 29 10 D6 06 99 22 13 11 11 11 |.1750.)...."....|
00000800: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000810: 11 11 1D 9E 20 20 20 54 52 59 43 4B 20 50 5D 20 |.... TRYCK P] |
00000820: 12 20 43 20 92 2E 22 3A 8E 00 37 10 D0 07 58 24 |. C ..":..7...X$|
00000830: B2 22 41 42 43 44 22 00 3F 10 DA 07 85 59 24 00 |."ABCD".?....Y$.|
00000840: 4F 10 E4 07 8B 58 24 B2 59 24 A7 32 30 35 30 00 |O....X$.Y$.2050.|
00000850: 5F 10 EE 07 99 22 4E 4F 22 3A 89 32 30 30 30 00 |_...."NO":.2000.|
00000860: 6A 10 02 08 99 22 59 45 53 22 00 70 10 0C 08 90 |j...."YES".p....|
00000870: 00 9D 10 4A 1F 83 4A 41 21 2C 4B 4F 52 52 45 43 |...J..JA!,KORREC|
00000880: 54 2C 52 5B 54 54 21 2C 42 52 41 21 2C 22 44 55 |T,R[TT!,BRA!,"DU|
00000890: 20 48 41 52 20 52 5B 54 54 22 2C 4F 4B 00 D9 10 | HAR R[TT",OK...|
000008A0: 54 1F 83 4E 45 4A 21 2C 46 45 4C 2C 22 44 45 54 |T..NEJ!,FEL,"DET|
000008B0: 20 5B 52 20 46 45 4C 22 2C 4E 45 4A 20 44 55 21 | [R FEL",NEJ DU!|
000008C0: 2C 22 4B 4F 4D 20 49 47 45 4E 20 44 41 21 22 2C |,"KOM IGEN DA!",|
000008D0: 46 45 4C 41 4B 54 49 4B 54 00 E0 10 28 23 83 39 |FELAKTIKT...(#.9|
000008E0: 00 2D 11 32 23 83 22 49 4E 50 55 54 20 4B 4F 4D |.-.2#."INPUT KOM|
000008F0: 4D 41 4E 44 4F 54 20 4B 41 4E 20 41 4E 56 5B 4E |MANDOT KAN ANV[N|
00000900: 44 41 53 25 41 29 20 4D 45 44 20 4E 55 4D 4D 45 |DAS%A) MED NUMME|
00000910: 52 25 42 29 20 4D 45 44 20 53 54 52 5B 4E 47 41 |R%B) MED STR[NGA|
00000920: 52 25 43 29 20 42 5D 44 41 20 53 41 4D 00 61 11 |R%C) B]DA SAM.a.|
00000930: 37 23 83 22 54 49 44 49 47 54 25 44 29 20 4D 45 |7#."TIDIGT%D) ME|
00000940: 44 20 42 5D 44 41 20 4D 45 4E 20 49 4E 54 45 20 |D B]DA MEN INTE |
00000950: 53 41 4D 54 49 44 49 47 54 25 25 23 22 2C 43 25 |SAMTIDIGT%%#",C%|
00000960: 23 00 AE 11 3C 23 83 22 20 20 20 49 4E 50 55 54 |#...<#." INPUT|
00000970: 20 5E 58 58 58 5E 20 3B 20 4A 25 48 55 52 20 4D | ^XXX^ ; J%HUR M|
00000980: 5D 4E 47 41 20 54 45 43 4B 45 4E 20 4C 5D 4E 47 |]NGA TECKEN L]NG|
00000990: 20 4B 41 4E 25 53 54 52 5B 4E 47 45 4E 20 20 20 | KAN%STR[NGEN |
000009A0: 20 5E 58 58 58 5E 20 56 41 52 41 3F 25 22 00 BC | ^XXX^ VARA?%"..|
000009B0: 11 41 23 83 23 2C 22 33 38 25 23 22 00 09 12 46 |.A#.#,"38%#"...F|
000009C0: 23 83 22 20 20 20 4B 4F 4D 4D 41 4E 44 4F 54 3A |#." KOMMANDOT:|
000009D0: 25 20 20 49 4E 50 55 54 20 5E 52 51 24 5E 3B 52 |% INPUT ^RQ$^;R|
000009E0: 53 25 49 4E 50 55 54 41 52 25 41 29 20 42 41 52 |S%INPUTAR%A) BAR|
000009F0: 41 20 52 51 24 25 42 29 20 42 41 52 41 20 52 53 |A RQ$%B) BARA RS|
00000A00: 25 43 29 20 42 5D 44 41 25 00 28 12 4B 23 83 22 |%C) B]DA%.(.K#."|
00000A10: 44 29 20 49 4E 47 45 4E 44 45 52 41 25 23 22 2C |D) INGENDERA%#",|
00000A20: 22 52 53 25 42 25 23 22 00 70 12 50 23 83 22 20 |"RS%B%#".p.P#." |
00000A30: 20 20 49 4E 50 55 54 20 58 2C 59 25 41 4E 54 41 | INPUT X,Y%ANTA|
00000A40: 52 3A 25 25 41 29 20 31 20 56 5B 52 44 45 25 42 |R:%%A) 1 V[RDE%B|
00000A50: 29 20 32 20 56 5B 52 44 45 4E 25 43 29 20 4D 45 |) 2 V[RDEN%C) ME|
00000A60: 52 20 5B 4E 20 32 20 56 5B 52 44 45 4E 25 25 22 |R [N 2 V[RDEN%%"|
00000A70: 00 81 12 55 23 83 23 2C 54 56 5D 25 32 25 42 25 |...U#.#,TV]%2%B%|
00000A80: 23 00 CE 12 5A 23 83 22 46 52 5D 47 41 4E 27 49 |#...Z#."FR]GAN'I|
00000A90: 4E 50 55 54 20 5E 5D 52 5E 3B 44 27 20 53 56 41 |NPUT ^]R^;D' SVA|
00000AA0: 52 41 53 20 4D 45 44 25 5E 4B 41 4C 4C 45 20 20 |RAS MED%^KALLE |
00000AB0: 41 4E 4B 41 5E 2E 20 20 56 41 44 20 48 5B 4E 44 |ANKA^. VAD H[ND|
00000AC0: 45 52 20 44 5D 3F 25 25 41 29 20 56 5B 52 00 1B |ER D]?%%A) V[R..|
00000AD0: 13 5F 23 83 22 44 45 54 20 41 43 43 45 50 54 45 |._#."DET ACCEPTE|
00000AE0: 52 41 53 25 42 29 20 4D 45 44 45 4C 41 4E 44 45 |RAS%B) MEDELANDE|
00000AF0: 54 20 27 52 45 44 4F 20 46 52 4F 4D 20 53 54 41 |T 'REDO FROM STA|
00000B00: 52 54 27 25 43 29 20 50 52 4F 47 52 41 4D 4D 45 |RT'%C) PROGRAMME|
00000B10: 54 20 53 54 41 4E 4E 41 52 25 23 00 24 13 61 23 |T STANNAR%#.$.a#|
00000B20: 83 42 25 23 00 71 13 64 23 83 22 46 52 5D 47 41 |.B%#.q.d#."FR]GA|
00000B30: 4E 20 27 49 4E 50 55 54 5E 4E 41 4D 4E 5E 3B 44 |N 'INPUT^NAMN^;D|
00000B40: 44 24 27 20 53 56 41 52 41 53 20 4D 45 44 25 5E |D$' SVARAS MED%^|
00000B50: 48 45 4A 53 41 4E 21 5E 2E 20 20 56 41 44 20 48 |HEJSAN!^. VAD H|
00000B60: 5B 4E 44 45 52 20 44 5D 3F 25 25 41 29 56 5B 52 |[NDER D]?%%A)V[R|
00000B70: 44 00 BC 13 69 23 83 22 45 54 20 41 43 43 45 50 |D...i#."ET ACCEP|
00000B80: 54 45 52 41 53 25 42 29 4D 45 44 45 4C 41 4E 44 |TERAS%B)MEDELAND|
00000B90: 45 54 20 27 52 45 44 4F 20 46 52 4F 4D 20 53 54 |ET 'REDO FROM ST|
00000BA0: 41 52 54 27 25 43 29 50 52 4F 47 52 41 4D 4D 45 |ART'%C)PROGRAMME|
00000BB0: 54 20 53 54 41 4E 4E 41 52 25 23 22 00 C5 13 6B |T STANNAR%#"...k|
00000BC0: 23 83 41 25 23 00 12 14 6E 23 83 22 20 20 20 31 |#.A%#...n#." 1|
00000BD0: 30 20 49 4E 50 55 54 20 37 37 37 25 25 5B 52 20 |0 INPUT 777%%[R |
00000BE0: 44 45 54 54 41 25 41 29 20 4F 54 49 4C 4C 5D 54 |DETTA%A) OTILL]T|
00000BF0: 45 54 20 4B 4F 4D 4D 41 4E 4F 25 42 29 20 54 49 |ET KOMMANO%B) TI|
00000C00: 4C 4C 5D 54 45 54 20 4B 4F 4D 4D 41 4E 44 4F 25 |LL]TET KOMMANDO%|
00000C10: 43 29 00 37 14 73 23 83 22 54 49 4C 4C 5D 54 45 |C).7.s#."TILL]TE|
00000C20: 54 20 4D 45 4E 20 56 5B 52 44 45 4C 5C 53 54 25 |T MEN V[RDEL\ST%|
00000C30: 25 23 22 2C 41 25 23 00 79 14 78 23 83 22 31 30 |%#",A%#.y.x#."10|
00000C40: 20 49 4E 50 55 54 20 54 25 32 30 20 54 3D 39 33 | INPUT T%20 T=93|
00000C50: 25 25 5B 52 20 44 45 54 54 41 20 45 54 54 20 42 |%%[R DETTA ETT B|
00000C60: 52 41 20 50 52 4F 47 52 41 4D 3F 25 25 22 2C 23 |RA PROGRAM?%%",#|
00000C70: 2C 22 4E 45 4A 25 4E 25 23 00 C6 14 82 23 83 22 |,"NEJ%N%#....#."|
00000C80: 20 4E 5B 52 20 52 55 4E 2F 53 54 4F 50 20 54 41 | N[R RUN/STOP TA|
00000C90: 4E 47 45 4E 54 45 4E 20 5B 52 25 53 41 54 54 20 |NGENTEN [R%SATT |
00000CA0: 55 52 20 46 55 4E 4B 54 49 4F 4E 20 48 55 52 20 |UR FUNKTION HUR |
00000CB0: 4B 41 4E 20 44 55 20 53 54 41 4E 4E 41 25 45 54 |KAN DU STANNA%ET|
00000CC0: 54 20 50 52 4F 47 00 12 15 87 23 83 22 52 41 4D |T PROG....#."RAM|
00000CD0: 3F 25 25 41 29 54 52 59 43 4B 20 50 5D 20 52 45 |?%%A)TRYCK P] RE|
00000CE0: 53 54 4F 52 45 25 42 29 52 45 53 54 4F 52 45 20 |STORE%B)RESTORE |
00000CF0: 4F 43 48 20 52 55 4E 2F 53 54 4F 50 25 43 29 43 |OCH RUN/STOP%C)C|
00000D00: 54 52 4C 20 4F 43 48 20 52 45 53 54 4F 52 45 25 |TRL OCH RESTORE%|
00000D10: 23 22 00 1B 15 89 23 83 42 25 23 00 00 00 |#"....#.B%#... |
....... 53281,0.<...."... -
-FR]GE PROGRAM-- ".K....:." I DET
TA PROGRAM SKALL DU TRYCKA"......" P]
.. C .. F\R ATT G] TILL N[STA SK[RM.".H.
(..:." F\LJ ALLA DINA SVAR MED ATT"
...2.." TRYCKA P] .. RETURN .. TANGENT
EN."...<..:.:." LYCKA TILL!". .F..J.1.
12:.Y$:..'.P..N.1.Z..Z(N).E.D..J.1.N:Z(N
).0:..N.N.SC.0.Y.X..J.1.N.K....Z(J)..0.
200.R....J......J.1.2000:.J......"...
AV";N;"FR]GOR S]".D. ..:." FICK DU";
SC;"R[TT P]"......:." F\RSTA F\RS\KET
."......:." DET [R";.(100.SC.N.0.5);"
PROCENT".......(.H.D.1..(N..(1)).:.R.. Z
(D)..1.200.G...C.Z(D).1.Q....1200.\....T
.1.3.Q....A$:.A$.."C".250.{....1000.....
.1300......1600......R.1.T.1.Z(D).0. SC.
SC.1.J.".. R.1 . T.1 .Z(D)..1:.400.Z.,..
R.1 . 320...6..T...@.Z(D).Z(D).1:.120..
....120......"."......".".6....J.0.39:.1
024.J,160:.55296.J,C:.._....J.0.920.40:.
1103.J,160:.55375.J,C:.......J.39.0..1:.
1984.J,160:.56256.J,C:.......J.920.0..40
:.1064.J,160:.55336.J,C:..H...W.2:.C(X$)
.110.W.1.Y.$.P.1:J.3: K.3.....A$.J(X$,P,
1):P.P.1...8..A$."#". 1150...B..A$."%".J
.J.W:K.3:.1070.4.G..A$."^". A$.G(34).F.L
..1024.40.J.K,F(A$). 63:.55296.40.J.K,15
:K.K.1.P.V..1070.V.~...|..........J.1.12
:.X$:....D..N. .N..J.1.D...X..X$:.Y$....
.X$.X$.Y$:.Y$.E.... J.K.........."......
................";.....A$.""......Q$:.Q$
."". 1307......F(Q$)..20 .1314......A$."
".1307.Q....". .";:A$.H(A$,C(A$).1):.130
7.F."..F(Q$).13 . 1321...#.. Q$."0" . (Q
$."9" . Q$."A"). Q$."Z" . 1307...$..Q$;.
..%.A$.A$.Q$:.1307.I.).P.C(A$):. P.0.130
0...*..F(I(A$,1))..32.1330...+.A$.J(A$,1
,P.1)......1321...2.. H(Y$,1).."%".1380.
..<.P.2.?.F..J(Y$,P,1).."-".P.P.1:.1350.
Z.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...N
..J(Y$,P,1)."#".1370...X.Q.P.L....J(Y$,Q
,1).."%".Q.Q.1:.1410......J(Y$,P,Q.P).A$
.1500.....P.Q.1:.1390.....:R.1:....@...
.T.S.6.(1.R)..(6..(1)).1.1.^..J.1.S:.Z$:
..Q.H..".....................";Z$.C.R..T
..2 . .1750...|.."..DET R[TTA SVARET VAR
":."..";...... H(Y$,1)."%".1710.....P.1.
.....J(Y$,P,1)."%"..1750......J(Y$,P,1);
:P.P.1:.1690......J(Y$,2,C(Y$)):.1750.).
V.."........................ TRYCK P]
. C ..":..7.P.X$."ABCD".?.Z..Y$.O....X$.
Y$.2050._...."NO":.2000.J...."YES".P....
...J..JA!,KORRECT,R[TT!,BRA!,"DU HAR R[T
T",OK.Y.T..NEJ!,FEL,"DET [R FEL",NEJ DU!
,"KOM IGEN DA!",FELAKTIKT...(#.9.-.2#."I
NPUT KOMMANDOT KAN ANV[NDAS%A) MED NUMME
R%B) MED STR[NGAR%C) B]DA SAM.A.7#."TIDI
GT%D) MED B]DA MEN INTE SAMTIDIGT%%#",C%
#...<#." INPUT ^XXX^ ; J%HUR M]NGA TEC
KEN L]NG KAN%STR[NGEN ^XXX^ VARA?%"..
.A#.#,"38%#"...F#." KOMMANDOT:% INPUT
^RQ$^;RS%INPUTAR%A) BARA RQ$%B) BARA RS
%C) B]DA%.(.K#."D) INGENDERA%#","RS%B%#"
.P.P#." INPUT X,Y%ANTAR:%%A) 1 V[RDE%B
) 2 V[RDEN%C) MER [N 2 V[RDEN%%"...U#.#,
TV]%2%B%#.N.Z#."FR]GAN'INPUT ^]R^;D' SVA
RAS MED%^KALLE ANKA^. VAD H[NDER D]?%%
A) V[R..._#."DET ACCEPTERAS%B) MEDELANDE
T 'REDO FROM START'%C) PROGRAMMET STANNA
R%#.$.A#.B%#.Q.D#."FR]GAN 'INPUT^NAMN^;D
D$' SVARAS MED%^HEJSAN!^. VAD H[NDER D]
?%%A)V[RD...I#."ET ACCEPTERAS%B)MEDELAND
ET 'REDO FROM START'%C)PROGRAMMET STANNA
R%#".E.K#.A%#...N#." 10 INPUT 777%%[R
DETTA%A) OTILL]TET KOMMANO%B) TILL]TET K
OMMANDO%C).7.S#."TILL]TET MEN V[RDEL\ST%
%#",A%#.Y.X#."10 INPUT T%20 T=93%%[R DET
TA ETT BRA PROGRAM?%%",#,"NEJ%N%#.F..#."
N[R RUN/STOP TANGENTEN [R%SATT UR FUNKT
ION HUR KAN DU STANNA%ETT PROG....#."RAM
?%%A)TRYCK P] RESTORE%B)RESTORE OCH RUN/
STOP%C)CTRL OCH RESTORE%#"....#.B%#...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL