BUDGET 7/9.15.40
FILE INFORMATION
FILENAME(S): BUDGET 7/9.15.40
FILE TYPE(S): PRG
FILE SIZE: 9K
FIRST SEEN: 2025-11-30 19:36:56
APPEARS ON: 1 disk(s)
FILE HASH
a5d9fe601ea32f97f31a8b96ae8403ad12fb0bf649b23189d987f3fd6107190c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11 8 86 | BUDGET 7/9.15.40 | PRG | Curtcool, Bo | 9 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 01 00 8F 20 53 41 56 45 22 42 55 44 |.. .... SAVE"BUD|
00000010: 47 45 54 20 35 2F 34 2E 31 35 2E 34 30 22 2C 38 |GET 5/4.15.40",8|
00000020: 00 41 08 05 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.A.... *********|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4F 50 53 54 41 52 |********* OPSTAR|
00000040: 54 00 5E 08 0A 00 97 20 35 33 32 38 30 2C 30 3A |T.^.... 53280,0:|
00000050: 97 35 33 32 38 31 2C 30 3A 99 22 05 93 22 00 6E |.53281,0:."..".n|
00000060: 08 14 00 86 20 43 24 28 32 32 2C 31 35 29 00 7A |.... C$(22,15).z|
00000070: 08 28 00 86 41 24 28 32 32 29 00 87 08 32 00 86 |.(..A$(22)...2..|
00000080: 20 42 24 28 31 36 29 00 97 08 3C 00 4C 49 4E B2 | B$(16)...<.LIN.|
00000090: 31 3A 43 4F 4C B2 30 00 A9 08 46 00 47 4C 49 4E |1:COL.0...F.GLIN|
000000A0: B2 31 3A 47 43 4F 4C B2 30 00 BC 08 50 00 54 4C |.1:GCOL.0...P.TL|
000000B0: 49 4E B2 31 3A 47 54 4C 49 4E B2 32 00 D9 08 5A |IN.1:GTLIN.2...Z|
000000C0: 00 54 24 B2 22 22 3A 51 24 B2 22 22 3A 4E 41 24 |.T$."":Q$."":NA$|
000000D0: B2 22 42 55 44 47 45 54 22 00 E9 08 64 00 53 55 |."BUDGET"...d.SU|
000000E0: 4D B2 30 3A 50 4C 41 B2 31 00 31 09 6E 00 83 22 |M.0:PLA.1.1.n.."|
000000F0: 54 45 4B 53 54 20 20 20 20 20 22 2C 22 20 4A 41 |TEKST "," JA|
00000100: 4E 20 20 22 2C 22 20 46 45 42 20 20 22 2C 22 20 |N "," FEB "," |
00000110: 4D 41 52 20 20 22 2C 22 20 41 50 52 20 20 22 2C |MAR "," APR ",|
00000120: 22 20 4D 41 4A 20 20 22 2C 22 20 4A 55 4E 49 20 |" MAJ "," JUNI |
00000130: 22 00 75 09 78 00 83 22 20 4A 55 4C 49 20 22 2C |".u.x.." JULI ",|
00000140: 22 20 41 55 47 20 20 22 2C 22 20 53 45 50 54 20 |" AUG "," SEPT |
00000150: 22 2C 22 20 4F 4B 54 20 20 22 2C 22 20 4E 4F 56 |"," OKT "," NOV|
00000160: 20 20 22 2C 22 20 44 45 43 20 20 22 2C 22 20 53 | "," DEC "," S|
00000170: 55 4D 20 20 22 00 8C 09 7D 00 83 22 31 2E 48 41 |UM "...}.."1.HA|
00000180: 4C 56 22 2C 22 32 2E 48 41 4C 56 22 00 A2 09 82 |LV","2.HALV"....|
00000190: 00 81 58 B2 31 A4 31 36 3A 87 42 24 28 58 29 3A |..X.1.16:.B$(X):|
000001A0: 82 58 00 BA 09 8C 00 41 24 28 32 30 29 B2 22 55 |.X.....A$(20)."U|
000001B0: 44 47 49 46 54 20 20 20 20 22 00 D2 09 96 00 41 |DGIFT ".....A|
000001C0: 24 28 32 31 29 B2 22 49 4E 44 54 5B 47 54 20 20 |$(21)."INDT[GT |
000001D0: 20 22 00 EA 09 A0 00 41 24 28 32 32 29 B2 22 42 | ".....A$(22)."B|
000001E0: 41 4C 41 4E 43 45 20 20 20 22 00 10 0A F4 01 8F |ALANCE "......|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 20 47 4F 53 55 42 20 41 44 52 |****** GOSUB ADR|
00000210: 00 2D 0A F9 01 8F 20 4F 50 53 54 41 52 54 20 2A |.-.... OPSTART *|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 20 31 30 30 30 00 4A 0A |******** 1000.J.|
00000230: FE 01 8F 20 49 4E 4B 45 59 20 20 2A 2A 2A 2A 2A |... INKEY *****|
00000240: 2A 2A 2A 2A 2A 20 31 38 30 30 00 67 0A 03 02 8F |***** 1800.g....|
00000250: 20 42 49 4C 4C 45 44 45 20 31 20 2A 2A 2A 2A 2A | BILLEDE 1 *****|
00000260: 2A 2A 20 32 30 30 30 00 84 0A 08 02 8F 20 42 49 |** 2000...... BI|
00000270: 4C 4C 45 44 45 20 32 20 2A 2A 2A 2A 2A 2A 2A 20 |LLEDE 2 ******* |
00000280: 32 34 30 30 00 A1 0A 12 02 8F 20 42 49 4C 4C 45 |2400...... BILLE|
00000290: 44 45 20 33 20 2A 2A 2A 2A 2A 2A 2A 20 32 36 30 |DE 3 ******* 260|
000002A0: 30 00 BE 0A 1C 02 8F 20 54 4F 4D 20 54 41 4C 41 |0...... TOM TALA|
000002B0: 52 4B 20 2A 2A 2A 2A 2A 2A 20 32 37 30 30 00 DB |RK ****** 2700..|
000002C0: 0A 26 02 8F 20 4D 45 4E 55 20 2A 2A 2A 2A 2A 2A |.&.. MENU ******|
000002D0: 2A 2A 2A 2A 2A 2A 20 32 38 30 30 00 F8 0A 30 02 |****** 2800...0.|
000002E0: 8F 20 43 4C 52 20 4D 45 4E 55 20 2A 2A 2A 2A 2A |. CLR MENU *****|
000002F0: 2A 2A 2A 20 32 39 30 30 00 15 0B 3A 02 8F 20 53 |*** 2900...:.. S|
00000300: 54 59 52 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TYRE ***********|
00000310: 20 33 30 30 30 00 32 0B 44 02 8F 20 54 45 4B 53 | 3000.2.D.. TEKS|
00000320: 54 20 4C 49 4E 49 45 20 2A 2A 2A 2A 2A 20 33 32 |T LINIE ***** 32|
00000330: 30 30 00 4F 0B 4E 02 8F 20 43 55 52 53 4F 52 20 |00.O.N.. CURSOR |
00000340: 43 4F 4E 54 4F 4C 20 2A 2A 2A 20 33 33 30 30 00 |CONTOL *** 3300.|
00000350: 6C 0B 58 02 8F 20 47 45 4D 20 44 41 54 41 20 2A |l.X.. GEM DATA *|
00000360: 2A 2A 2A 2A 2A 2A 2A 20 33 34 30 30 00 89 0B 62 |******* 3400...b|
00000370: 02 8F 20 53 4C 45 54 20 47 4C 2E 46 49 4C 20 2A |.. SLET GL.FIL *|
00000380: 2A 2A 2A 2A 20 33 35 31 30 00 A6 0B 6C 02 8F 20 |**** 3510...l.. |
00000390: 48 45 4E 54 20 46 49 4C 20 2A 2A 2A 2A 2A 2A 2A |HENT FIL *******|
000003A0: 2A 20 33 37 30 30 00 C3 0B 76 02 8F 20 54 45 53 |* 3700...v.. TES|
000003B0: 54 20 46 49 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 20 33 |T FIL ******** 3|
000003C0: 38 30 30 00 E0 0B 80 02 8F 20 43 55 52 53 4F 52 |800...... CURSOR|
000003D0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 34 30 30 30 | ********** 4000|
000003E0: 00 FD 0B 8A 02 8F 20 53 55 4D 4D 45 20 2A 2A 2A |...... SUMME ***|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 20 34 31 30 30 00 1A 0C |******** 4100...|
00000400: 8C 02 8F 20 53 4C 45 54 20 54 41 4C 20 43 55 52 |... SLET TAL CUR|
00000410: 53 4F 52 20 2A 20 34 37 30 30 00 37 0C 8F 02 8F |SOR * 4700.7....|
00000420: 20 48 30 4A 52 45 20 53 54 49 4C 4C 20 2A 2A 2A | H0JRE STILL ***|
00000430: 2A 2A 20 34 39 39 30 00 54 0C 94 02 8F 20 54 45 |** 4990.T.... TE|
00000440: 4B 53 54 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |KST *********** |
00000450: 35 30 30 30 00 71 0C 96 02 8F 20 47 45 4D 20 54 |5000.q.... GEM T|
00000460: 45 4B 53 54 20 2A 2A 2A 2A 2A 2A 2A 20 35 37 30 |EKST ******* 570|
00000470: 30 00 8E 0C 98 02 8F 20 43 55 52 53 4F 52 20 54 |0...... CURSOR T|
00000480: 45 4B 53 54 20 2A 2A 2A 2A 20 35 38 30 30 00 AB |EKST **** 5800..|
00000490: 0C 9A 02 8F 20 53 4C 45 54 20 54 45 4B 53 54 20 |.... SLET TEKST |
000004A0: 43 55 52 53 20 2A 20 35 39 30 30 00 C8 0C 9E 02 |CURS * 5900.....|
000004B0: 8F 20 50 52 49 4E 54 20 41 54 20 2A 2A 2A 2A 2A |. PRINT AT *****|
000004C0: 2A 2A 2A 20 36 30 30 30 00 E5 0C A8 02 8F 20 50 |*** 6000...... P|
000004D0: 52 49 4E 54 45 52 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |RINTER *********|
000004E0: 20 37 30 30 30 00 04 0D E8 03 8F 2A 2A 2A 2A 2A | 7000......*****|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4F 50 53 |************ OPS|
00000500: 54 41 52 54 00 0D 0D F2 03 99 22 93 22 00 2E 0D |TART......"."...|
00000510: FC 03 59 43 B2 36 3A 58 43 B2 36 3A 8D 20 36 30 |..YC.6:XC.6:. 60|
00000520: 30 30 3A 20 8F 20 50 52 49 4E 54 20 41 54 00 53 |00: . PRINT AT.S|
00000530: 0D 06 04 99 22 56 45 4C 4B 4F 4D 4D 45 4E 20 54 |...."VELKOMMEN T|
00000540: 49 4C 20 42 55 44 47 45 54 20 56 45 52 2E 20 32 |IL BUDGET VER. 2|
00000550: 2E 30 22 00 74 0D 10 04 59 43 B2 38 3A 58 43 B2 |.0".t...YC.8:XC.|
00000560: 39 3A 8D 20 36 30 30 30 3A 20 8F 20 50 52 49 4E |9:. 6000: . PRIN|
00000570: 54 20 41 54 00 91 0D 1A 04 99 22 56 49 4C 20 44 |T AT......"VIL D|
00000580: 55 20 48 45 4E 54 45 20 45 54 20 53 41 56 45 54 |U HENTE ET SAVET|
00000590: 22 00 B4 0D 24 04 59 43 B2 31 30 3A 58 43 B2 31 |"...$.YC.10:XC.1|
000005A0: 36 3A 8D 20 36 30 30 30 3A 20 8F 20 50 52 49 4E |6:. 6000: . PRIN|
000005B0: 54 20 41 54 00 C2 0D 2E 04 99 22 42 55 44 47 45 |T AT......"BUDGE|
000005C0: 54 22 00 E5 0D 38 04 59 43 B2 31 32 3A 58 43 B2 |T"...8.YC.12:XC.|
000005D0: 31 31 3A 8D 20 36 30 30 30 3A 20 8F 20 50 52 49 |11:. 6000: . PRI|
000005E0: 4E 54 20 41 54 00 FE 0D 42 04 99 22 54 41 53 54 |NT AT...B.."TAST|
000005F0: 20 4A 41 20 45 4C 4C 45 52 20 4E 45 4A 22 00 12 | JA ELLER NEJ"..|
00000600: 0E 4C 04 8D 20 31 38 30 30 3A 20 8F 20 49 4E 4B |.L.. 1800: . INK|
00000610: 45 59 00 33 0E 56 04 8B 20 54 24 B3 B1 22 4A 22 |EY.3.V.. T$.."J"|
00000620: 20 AF 20 54 24 B3 B1 22 4E 22 20 A7 20 89 20 31 | . T$.."N" . . 1|
00000630: 31 30 30 00 56 0E 60 04 8B 20 54 24 B2 22 4E 22 |100.V.`.. T$."N"|
00000640: 20 A7 20 8D 20 32 37 30 30 3A 8F 20 54 4F 4D 20 | . . 2700:. TOM |
00000650: 54 41 4C 41 52 4B 00 78 0E 6A 04 8B 20 54 24 B2 |TALARK.x.j.. T$.|
00000660: 22 4A 22 20 A7 20 8D 20 33 37 30 30 3A 8F 20 48 |"J" . . 3700:. H|
00000670: 45 4E 54 20 44 41 54 41 00 94 0E 74 04 99 22 93 |ENT DATA...t..".|
00000680: 22 3A 8D 20 32 30 30 30 3A 8F 20 42 49 4C 4C 45 |":. 2000:. BILLE|
00000690: 44 45 20 31 00 A7 0E 7E 04 8D 20 32 38 30 30 3A |DE 1...~.. 2800:|
000006A0: 20 8F 20 4D 45 4E 55 00 BC 0E 88 04 8D 20 34 30 | . MENU...... 40|
000006B0: 30 30 3A 20 8F 20 43 55 52 53 4F 52 00 C7 0E 92 |00: . CURSOR....|
000006C0: 04 89 20 33 32 30 30 00 E2 0E 08 07 8F 20 2A 2A |.. 3200...... **|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E 4B |************ INK|
000006E0: 45 59 00 FB 0E 12 07 A1 20 54 24 3A 8B 20 54 24 |EY...... T$:. T$|
000006F0: B3 B1 22 22 20 A7 20 31 38 31 30 00 13 0F 1C 07 |.."" . 1810.....|
00000700: A1 20 54 24 3A 8B 20 54 24 B2 22 22 20 A7 20 31 |. T$:. T$."" . 1|
00000710: 38 32 30 00 19 0F 26 07 8E 00 38 0F D0 07 8F 20 |820...&...8.... |
00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 42 |************** B|
00000730: 49 4C 4C 45 44 45 20 31 00 6D 0F DA 07 99 22 13 |ILLEDE 1.m....".|
00000740: 22 3B 42 24 28 31 29 3B A3 31 31 29 3B 22 C2 22 |";B$(1);.11);"."|
00000750: 42 24 28 50 4C 41 AA 31 29 3B A3 31 38 29 3B 22 |B$(PLA.1);.18);"|
00000760: C2 22 3B 42 24 28 50 4C 41 AA 32 29 3B 00 95 0F |.";B$(PLA.2);...|
00000770: E4 07 99 A3 32 35 29 3B 22 C2 22 3B 42 24 28 50 |....25);".";B$(P|
00000780: 4C 41 AA 33 29 3B A3 33 32 29 3B 22 C2 22 3B 42 |LA.3);.32);".";B|
00000790: 24 28 31 34 29 00 A1 0F EE 07 81 58 B2 31 A4 32 |$(14)......X.1.2|
000007A0: 32 00 C3 0F F8 07 54 45 B2 AB 31 AC 28 34 33 AC |2.....TE..1.(43.|
000007B0: 28 58 B3 36 29 AA 28 58 AA 35 39 29 AC 28 58 B1 |(X.6).(X.59).(X.|
000007C0: 35 29 29 00 D8 0F FD 07 99 A3 31 29 3B 41 24 28 |5)).......1);A$(|
000007D0: 58 29 3B A3 31 31 29 3B 00 03 10 02 08 99 20 C7 |X);.11);...... .|
000007E0: 28 31 38 29 3B 20 C7 28 54 45 29 3B 20 C7 28 31 |(18); .(TE); .(1|
000007F0: 34 36 29 3B 43 24 28 58 2C 50 4C 41 29 3B A3 31 |46);C$(X,PLA);.1|
00000800: 38 29 3B 00 30 10 0C 08 99 20 C7 28 31 38 29 3B |8);.0.... .(18);|
00000810: 20 C7 28 54 45 29 3B 20 C7 28 31 34 36 29 3B 43 | .(TE); .(146);C|
00000820: 24 28 58 2C 50 4C 41 AA 31 29 3B A3 32 35 29 3B |$(X,PLA.1);.25);|
00000830: 00 5D 10 16 08 99 20 C7 28 31 38 29 3B 20 C7 28 |.].... .(18); .(|
00000840: 54 45 29 3B 20 C7 28 31 34 36 29 3B 43 24 28 58 |TE); .(146);C$(X|
00000850: 2C 50 4C 41 AA 32 29 3B A3 33 32 29 3B 00 81 10 |,PLA.2);.32);...|
00000860: 20 08 99 20 C7 28 31 38 29 3B 20 C7 28 54 45 29 | .. .(18); .(TE)|
00000870: 3B 20 C7 28 31 34 36 29 3B 43 24 28 58 2C 31 33 |; .(146);C$(X,13|
00000880: 29 00 89 10 2A 08 82 20 58 00 A7 10 2F 08 8F 20 |)...*.. X.../.. |
00000890: 20 20 47 4F 53 55 42 20 34 30 30 30 3A 47 4F 53 | GOSUB 4000:GOS|
000008A0: 55 42 20 32 38 30 30 00 B2 10 30 08 8D 20 32 38 |UB 2800...0.. 28|
000008B0: 30 30 00 B8 10 34 08 8E 00 D9 10 60 09 8F 20 2A |00...4.....`.. *|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** |
000008D0: 42 49 4C 4C 45 44 45 20 32 00 F0 10 6A 09 8D 20 |BILLEDE 2...j.. |
000008E0: 32 39 30 30 3A 20 8F 20 43 4C 52 20 4D 45 4E 55 |2900: . CLR MENU|
000008F0: 00 19 11 74 09 59 43 B2 30 3A 58 43 B2 31 32 AA |...t.YC.0:XC.12.|
00000900: 37 AC 43 4F 4C 3A 20 8D 20 36 30 30 30 3A 20 8F |7.COL: . 6000: .|
00000910: 20 50 52 49 4E 54 20 41 54 00 2E 11 7E 09 99 20 | PRINT AT...~.. |
00000920: 42 24 28 50 4C 41 AA 31 AA 43 4F 4C 29 3B 00 3D |B$(PLA.1.COL);.=|
00000930: 11 88 09 81 20 58 B2 31 20 A4 20 32 32 00 5A 11 |.... X.1 . 22.Z.|
00000940: 92 09 59 43 B2 58 3A 20 8D 20 36 30 30 30 3A 20 |..YC.X: . 6000: |
00000950: 8F 20 50 52 49 4E 54 20 41 54 00 6F 11 9C 09 99 |. PRINT AT.o....|
00000960: 20 43 24 28 58 2C 50 4C 41 AA 43 4F 4C 29 3B 00 | C$(X,PLA.COL);.|
00000970: 77 11 A6 09 82 20 58 00 8A 11 B0 09 8D 20 32 38 |w.... X...... 28|
00000980: 30 30 3A 20 8F 20 4D 45 4E 55 00 9F 11 BA 09 8D |00: . MENU......|
00000990: 20 34 30 30 30 3A 20 8F 20 43 55 52 53 4F 52 00 | 4000: . CURSOR.|
000009A0: A5 11 C4 09 8E 00 C8 11 28 0A 8F 20 2A 2A 2A 2A |........(.. ****|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 55 4D 20 42 |********** SUM B|
000009C0: 49 4C 4C 45 44 45 20 33 00 E9 11 32 0A 59 43 B2 |ILLEDE 3...2.YC.|
000009D0: 30 3A 58 43 B2 33 33 3A 8D 20 36 30 30 30 3A 8F |0:XC.33:. 6000:.|
000009E0: 20 50 52 49 4E 54 20 41 54 00 F7 11 3C 0A 99 20 | PRINT AT...<.. |
000009F0: 42 24 28 31 34 29 3B 00 06 12 46 0A 81 20 58 B2 |B$(14);...F.. X.|
00000A00: 31 20 A4 20 32 32 00 23 12 50 0A 59 43 B2 58 3A |1 . 22.#.P.YC.X:|
00000A10: 20 8D 20 36 30 30 30 3A 20 8F 20 50 52 49 4E 54 | . 6000: . PRINT|
00000A20: 20 41 54 00 33 12 5A 0A 99 20 43 24 28 58 2C 31 | AT.3.Z.. C$(X,1|
00000A30: 33 29 3B 00 3B 12 64 0A 82 20 58 00 41 12 6E 0A |3);.;.d.. X.A.n.|
00000A40: 8E 00 63 12 8C 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..c.... ********|
00000A50: 2A 2A 20 4F 50 52 45 54 20 54 4F 4D 20 54 41 4C |** OPRET TOM TAL|
00000A60: 41 52 4B 00 85 12 96 0A 59 43 B2 31 35 3A 58 43 |ARK.....YC.15:XC|
00000A70: B2 31 34 3A 8D 20 36 30 30 30 3A 8F 20 50 52 49 |.14:. 6000:. PRI|
00000A80: 4E 54 20 41 54 00 A6 12 A0 0A 99 20 C7 28 31 38 |NT AT...... .(18|
00000A90: 29 3B 22 20 4F 50 52 45 54 54 45 52 20 22 3B C7 |);" OPRETTER ";.|
00000AA0: 28 31 34 36 29 3B 00 B3 12 AA 0A 81 20 58 B2 31 |(146);...... X.1|
00000AB0: A4 32 32 00 D5 12 B4 0A 8B 20 58 B3 32 30 A7 41 |.22...... X.20.A|
00000AC0: 24 28 58 29 B2 22 20 20 20 20 20 20 20 20 20 20 |$(X)." |
00000AD0: 22 3A 8F 31 30 00 E4 12 BE 0A 81 20 59 B2 31 20 |":.10...... Y.1 |
00000AE0: A4 20 31 33 00 FD 12 C8 0A 43 24 28 58 2C 59 29 |. 13.....C$(X,Y)|
00000AF0: B2 22 20 20 20 20 20 20 22 3A 8F 20 36 00 07 13 |." ":. 6...|
00000B00: D2 0A 82 59 3A 82 58 00 0D 13 DC 0A 8E 00 2B 13 |...Y:.X.......+.|
00000B10: F0 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000B20: 2A 2A 2A 2A 2A 2A 20 4D 45 4E 55 00 41 13 FA 0A |****** MENU.A...|
00000B30: 59 43 B2 32 33 3A 58 43 B2 31 3A 8D 20 36 30 30 |YC.23:XC.1:. 600|
00000B40: 30 00 72 13 04 0B 99 22 4D 45 4E 55 20 20 20 46 |0.r...."MENU F|
00000B50: 31 20 54 45 4B 53 54 20 20 46 33 20 53 41 56 45 |1 TEKST F3 SAVE|
00000B60: 20 20 46 35 20 50 52 49 4E 54 45 52 20 20 20 20 | F5 PRINTER |
00000B70: 22 3B 00 78 13 0E 0B 8E 00 9A 13 54 0B 8F 20 2A |";.x.......T.. *|
00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B90: 2A 20 43 4C 52 20 4D 45 4E 55 00 B0 13 5E 0B 59 |* CLR MENU...^.Y|
00000BA0: 43 B2 32 33 3A 58 43 B2 31 3A 8D 20 36 30 30 30 |C.23:XC.1:. 6000|
00000BB0: 00 E5 13 68 0B 99 22 20 20 20 20 20 20 20 20 20 |...h.." |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00000BE0: 3A 8F 20 33 39 00 F6 13 72 0B 59 43 B2 32 34 3A |:. 39...r.YC.24:|
00000BF0: 8D 20 36 30 30 30 00 2A 14 7C 0B 99 22 20 20 20 |. 6000.*.|.." |
00000C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C20: 20 20 20 22 3B 3A 8F 20 33 38 00 30 14 86 0B 8E | ";:. 38.0....|
00000C30: 00 44 14 B8 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 20 53 |.D.... ******* S|
00000C40: 54 59 52 45 00 4F 14 C2 0B 8D 20 31 38 30 30 00 |TYRE.O.... 1800.|
00000C50: 8E 14 C7 0B 8B 20 C3 28 51 24 29 B3 36 AF 28 54 |..... .(Q$).6.(T|
00000C60: 24 B2 22 20 22 AF 20 C3 28 51 24 29 B3 31 B0 54 |$." ". .(Q$).1.T|
00000C70: 24 B1 B2 22 30 22 AF 54 24 B3 B2 22 39 22 29 A7 |$.."0".T$.."9").|
00000C80: 51 24 B2 51 24 AA 54 24 3A 89 33 32 30 30 00 B3 |Q$.Q$.T$:.3200..|
00000C90: 14 CC 0B 8B 20 54 24 B2 22 85 22 A7 20 8D 20 34 |.... T$.".". . 4|
00000CA0: 37 30 30 3A 8D 20 35 30 30 30 3A 20 8F 20 54 45 |700:. 5000: . TE|
00000CB0: 4B 53 54 00 D0 14 D6 0B 8B 20 54 24 B2 22 86 22 |KST...... T$."."|
00000CC0: A7 20 8D 20 33 34 30 30 3A 20 8F 20 53 41 56 45 |. . 3400: . SAVE|
00000CD0: 00 EE 14 E0 0B 8B 20 54 24 B2 22 87 22 A7 20 8D |...... T$.".". .|
00000CE0: 20 37 30 30 30 3A 20 8F 20 50 52 49 4E 54 00 32 | 7000: . PRINT.2|
00000CF0: 15 EF 0B 91 AB 28 54 24 B2 22 9D 22 29 AB 32 AC |.....(T$.".").2.|
00000D00: 28 54 24 B2 22 1D 22 29 AB 33 AC 28 54 24 B2 22 |(T$.".").3.(T$."|
00000D10: 11 22 29 AB 34 AC 28 54 24 B2 22 91 22 29 89 33 |.").4.(T$.".").3|
00000D20: 33 31 30 2C 33 33 33 30 2C 33 33 35 30 2C 33 33 |310,3330,3350,33|
00000D30: 37 30 00 5E 15 F4 0B 8B 20 C6 28 54 24 29 B2 31 |70.^.... .(T$).1|
00000D40: 33 AF 20 C3 28 51 24 29 B3 B1 30 A7 20 8D 34 31 |3. .(Q$)..0. .41|
00000D50: 30 30 3A 8D 32 34 30 30 3A 89 33 30 30 30 00 8A |00:.2400:.3000..|
00000D60: 15 FE 0B 8B 20 C6 28 54 24 29 B2 32 30 20 AF 20 |.... .(T$).20 . |
00000D70: C3 28 51 24 29 B1 30 20 A7 20 51 24 B2 C8 28 51 |.(Q$).0 . Q$..(Q|
00000D80: 24 2C C3 28 51 24 29 AB 31 29 00 A9 15 80 0C 8F |$,.(Q$).1)......|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 54 45 |************* TE|
00000DA0: 4B 53 54 20 4C 49 4E 49 45 00 CA 15 8A 0C 59 43 |KST LINIE.....YC|
00000DB0: B2 32 34 3A 58 43 B2 31 3A 8D 20 36 30 30 30 3A |.24:XC.1:. 6000:|
00000DC0: 8F 20 50 52 49 4E 54 20 41 54 00 E1 15 94 0C 99 |. PRINT AT......|
00000DD0: 22 3E 22 3B 51 24 3B 22 20 20 20 20 20 20 20 22 |">";Q$;" "|
00000DE0: 3B 00 F1 15 9E 0C 58 43 B2 38 3A 8D 20 36 30 30 |;.....XC.8:. 600|
00000DF0: 30 00 FC 15 A8 0C 99 20 22 3C 22 3B 00 07 16 B2 |0...... "<";....|
00000E00: 0C 89 20 33 30 30 30 00 29 16 E4 0C 8F 20 2A 2A |.. 3000.).... **|
00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 55 52 53 4F |********** CURSO|
00000E20: 52 20 43 4F 4E 54 52 4F 4C 00 68 16 EE 0C 43 4F |R CONTROL.h...CO|
00000E30: 4C B2 43 4F 4C AB 31 3A 8B 20 43 4F 4C B3 30 20 |L.COL.1:. COL.0 |
00000E40: A7 20 43 4F 4C B2 30 3A 8B 20 50 4C 41 B1 33 20 |. COL.0:. PLA.3 |
00000E50: A7 20 50 4C 41 B2 50 4C 41 AB 33 3A 43 4F 4C B2 |. PLA.PLA.3:COL.|
00000E60: 32 3A 8D 20 32 30 30 30 00 78 16 F8 0C 8D 34 30 |2:. 2000.x....40|
00000E70: 30 30 3A 89 33 32 30 30 00 B7 16 02 0D 43 4F 4C |00:.3200.....COL|
00000E80: B2 43 4F 4C AA 31 3A 8B 20 43 4F 4C B1 32 20 A7 |.COL.1:. COL.2 .|
00000E90: 20 43 4F 4C B2 32 3A 8B 20 50 4C 41 B3 38 20 A7 | COL.2:. PLA.8 .|
00000EA0: 20 50 4C 41 B2 50 4C 41 AA 33 3A 43 4F 4C B2 30 | PLA.PLA.3:COL.0|
00000EB0: 3A 8D 20 32 30 30 30 00 C7 16 0C 0D 8D 34 30 30 |:. 2000......400|
00000EC0: 30 3A 89 33 32 30 30 00 E6 16 16 0D 4C 49 4E B2 |0:.3200.....LIN.|
00000ED0: 4C 49 4E AA 31 3A 8B 20 4C 49 4E B1 31 39 A7 20 |LIN.1:. LIN.19. |
00000EE0: 4C 49 4E B2 31 39 00 F6 16 20 0D 8D 34 30 30 30 |LIN.19... ..4000|
00000EF0: 3A 89 33 32 30 30 00 13 17 2A 0D 4C 49 4E B2 4C |:.3200...*.LIN.L|
00000F00: 49 4E AB 31 3A 8B 20 4C 49 4E B3 31 A7 20 4C 49 |IN.1:. LIN.1. LI|
00000F10: 4E B2 31 00 23 17 34 0D 8D 34 30 30 30 3A 89 33 |N.1.#.4..4000:.3|
00000F20: 32 30 30 00 45 17 48 0D 8F 20 2A 2A 2A 2A 2A 2A |200.E.H.. ******|
00000F30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 47 45 4D |************ GEM|
00000F40: 20 44 41 54 41 00 61 17 52 0D 8D 20 38 30 30 30 | DATA.a.R.. 8000|
00000F50: 20 3A 8F 20 4E 41 56 4E 20 50 41 41 20 46 49 4C | :. NAVN PAA FIL|
00000F60: 45 00 7C 17 5C 0D 9F 20 32 2C 38 2C 32 2C 4E 41 |E.|.\.. 2,8,2,NA|
00000F70: 24 AA 22 2E 54 4D 50 2C 53 2C 57 22 00 8B 17 66 |$.".TMP,S,W"...f|
00000F80: 0D 81 20 58 B2 31 20 A4 20 32 32 00 A3 17 70 0D |.. X.1 . 22...p.|
00000F90: 98 32 2C 22 2A 22 AA 41 24 28 58 29 3B C7 28 31 |.2,"*".A$(X);.(1|
00000FA0: 33 29 3B 00 B2 17 7A 0D 81 20 59 B2 31 20 A4 20 |3);...z.. Y.1 . |
00000FB0: 31 33 00 CC 17 84 0D 98 32 2C 22 2A 22 AA 43 24 |13......2,"*".C$|
00000FC0: 28 58 2C 59 29 3B C7 28 31 33 29 3B 00 D4 17 8E |(X,Y);.(13);....|
00000FD0: 0D 82 20 59 00 DC 17 98 0D 82 20 58 00 E4 17 A2 |.. Y...... X....|
00000FE0: 0D A0 20 32 00 00 18 AC 0D 8D 20 33 38 30 30 3A |.. 2...... 3800:|
00000FF0: 20 8F 20 54 45 53 54 20 53 45 51 20 46 49 4C 45 | . TEST SEQ FILE|
00001000: 00 25 18 B6 0D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.%.... *********|
00001010: 2A 2A 2A 2A 2A 20 53 4C 45 54 20 47 41 4D 4D 45 |***** SLET GAMME|
00001020: 4C 20 46 49 4C 00 32 18 C0 0D 9F 20 34 2C 38 2C |L FIL.2.... 4,8,|
00001030: 31 35 00 4A 18 CA 0D 98 34 2C 22 53 3A 22 AA 4E |15.J....4,"S:".N|
00001040: 41 24 AA 22 2E 46 49 4C 45 22 00 6E 18 D4 0D 98 |A$.".FILE".n....|
00001050: 34 2C 22 52 3A 22 AA 4E 41 24 AA 22 2E 46 49 4C |4,"R:".NA$.".FIL|
00001060: 45 3D 22 AA 4E 41 24 AA 22 2E 54 4D 50 22 00 76 |E=".NA$.".TMP".v|
00001070: 18 DE 0D A0 20 34 00 92 18 E8 0D 8D 20 33 38 30 |.... 4...... 380|
00001080: 30 3A 20 8F 20 54 45 53 54 20 53 45 51 20 46 49 |0: . TEST SEQ FI|
00001090: 4C 45 00 A5 18 F2 0D 8D 20 32 38 30 30 3A 20 8F |LE...... 2800: .|
000010A0: 20 4D 45 4E 55 00 AB 18 FC 0D 8E 00 C5 18 74 0E | MENU.........t.|
000010B0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 48 45 4E |. ********** HEN|
000010C0: 54 20 46 49 4C 00 E0 18 75 0E 8D 20 38 30 30 30 |T FIL...u.. 8000|
000010D0: 3A 8F 20 4E 41 56 4E 20 50 41 41 20 46 49 4C 45 |:. NAVN PAA FILE|
000010E0: 00 02 19 76 0E 59 43 B2 31 35 3A 58 43 B2 31 34 |...v.YC.15:XC.14|
000010F0: 3A 8D 20 36 30 30 30 3A 8F 20 50 52 49 4E 54 20 |:. 6000:. PRINT |
00001100: 41 54 00 24 19 78 0E 99 20 C7 28 31 38 29 3B 22 |AT.$.x.. .(18);"|
00001110: 20 49 4E 44 4C 41 45 53 45 52 20 22 3B C7 28 31 | INDLAESER ";.(1|
00001120: 34 36 29 3B 00 40 19 7E 0E 9F 20 32 2C 38 2C 32 |46);.@.~.. 2,8,2|
00001130: 2C 4E 41 24 AA 22 2E 46 49 4C 45 2C 53 2C 52 22 |,NA$.".FILE,S,R"|
00001140: 00 4D 19 88 0E 81 20 58 B2 31 A4 32 32 00 6C 19 |.M.... X.1.22.l.|
00001150: 92 0E 84 32 2C 41 24 28 58 29 3A 41 24 28 58 29 |...2,A$(X):A$(X)|
00001160: B2 C9 28 41 24 28 58 29 2C 31 30 29 00 7B 19 9C |..(A$(X),10).{..|
00001170: 0E 81 20 59 B2 31 20 A4 20 31 33 00 9F 19 A6 0E |.. Y.1 . 13.....|
00001180: 84 32 2C 43 24 28 58 2C 59 29 3A 43 24 28 58 2C |.2,C$(X,Y):C$(X,|
00001190: 59 29 B2 C9 28 43 24 28 58 2C 59 29 2C 36 29 00 |Y)..(C$(X,Y),6).|
000011A0: A9 19 B0 0E 82 20 59 2C 58 00 B1 19 BA 0E A0 20 |..... Y,X...... |
000011B0: 32 00 CD 19 C4 0E 8D 20 33 38 30 30 3A 20 8F 20 |2...... 3800: . |
000011C0: 54 45 53 54 20 53 45 51 20 46 49 4C 45 00 D3 19 |TEST SEQ FILE...|
000011D0: CE 0E 8E 00 F3 19 D8 0E 8F 20 2A 2A 2A 2A 2A 2A |......... ******|
000011E0: 2A 2A 2A 2A 2A 20 54 45 53 54 20 53 45 51 20 46 |***** TEST SEQ F|
000011F0: 49 4C 45 00 00 1A E2 0E 9F 31 35 2C 38 2C 31 35 |ILE......15,8,15|
00001200: 00 15 1A E7 0E 84 31 35 2C 45 4E 2C 45 4D 24 2C |......15,EN,EM$,|
00001210: 45 54 2C 45 53 00 1E 1A EC 0E A0 20 31 35 00 2D |ET,ES...... 15.-|
00001220: 1A F6 0E 8B 20 45 4E B2 30 20 A7 20 8E 00 44 1A |.... EN.0 . ..D.|
00001230: 00 0F 99 20 22 13 22 3B 45 4E 2C 45 4D 24 2C 45 |... ".";EN,EM$,E|
00001240: 54 2C 45 53 00 4A 1A 0A 0F 8E 00 69 1A A0 0F 8F |T,ES.J.....i....|
00001250: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001260: 2A 2A 20 43 55 52 53 4F 52 00 88 1A AA 0F 59 43 |** CURSOR.....YC|
00001270: B2 47 4C 49 4E 3A 58 43 B2 47 43 4F 4C AC 37 AA |.GLIN:XC.GCOL.7.|
00001280: 31 32 3A 8D 36 30 30 30 00 A8 1A B4 0F 99 20 C7 |12:.6000...... .|
00001290: 28 31 34 36 29 3B 43 24 28 47 4C 49 4E 2C 47 43 |(146);C$(GLIN,GC|
000012A0: 4F 4C AA 50 4C 41 29 3B 00 BE 1A BE 0F 47 4C 49 |OL.PLA);.....GLI|
000012B0: 4E B2 4C 49 4E 3A 47 43 4F 4C B2 43 4F 4C 00 DB |N.LIN:GCOL.COL..|
000012C0: 1A C8 0F 59 43 B2 4C 49 4E 3A 58 43 B2 43 4F 4C |...YC.LIN:XC.COL|
000012D0: AC 37 AA 31 32 3A 8D 36 30 30 30 00 FF 1A D2 0F |.7.12:.6000.....|
000012E0: 99 20 C7 28 31 38 29 3B 43 24 28 4C 49 4E 2C 43 |. .(18);C$(LIN,C|
000012F0: 4F 4C AA 50 4C 41 29 3B C7 28 31 34 36 29 3B 00 |OL.PLA);.(146);.|
00001300: 05 1B DC 0F 8E 00 23 1B 04 10 8F 20 2A 2A 2A 2A |......#.... ****|
00001310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 55 |************* SU|
00001320: 4D 4D 45 00 2E 1B 0E 10 8D 20 32 39 30 30 00 44 |MME...... 2900.D|
00001330: 1B 18 10 59 43 B2 32 34 3A 58 43 B2 31 3A 8D 20 |...YC.24:XC.1:. |
00001340: 36 30 30 30 00 65 1B 22 10 99 20 C7 28 31 38 29 |6000.e.".. .(18)|
00001350: 3B 22 20 20 52 45 47 4E 45 52 20 20 22 3B C7 28 |;" REGNER ";.(|
00001360: 31 34 36 29 3B 00 88 1B 2C 10 8B 20 C3 20 28 51 |146);...,.. . (Q|
00001370: 24 29 B3 36 20 A7 20 51 24 B2 22 20 22 AA 51 24 |$).6 . Q$." ".Q$|
00001380: 3A 20 89 20 34 31 34 30 00 94 1B 36 10 81 20 58 |: . 4140...6.. X|
00001390: B2 31 A4 36 00 AE 1B 40 10 8B 20 CA 28 51 24 2C |.1.6...@.. .(Q$,|
000013A0: 58 2C 31 29 B2 22 20 22 20 A7 20 82 20 58 00 BC |X,1)." " . . X..|
000013B0: 1B 4A 10 81 20 58 B2 58 20 A4 20 36 00 D4 1B 54 |.J.. X.X . 6...T|
000013C0: 10 8B 20 CA 28 51 24 2C 58 2C 31 29 B2 22 20 22 |.. .(Q$,X,1)." "|
000013D0: 20 A7 20 8E 00 DC 1B 5E 10 82 20 58 00 F3 1B 68 | . ....^.. X...h|
000013E0: 10 43 24 28 4C 49 4E 2C 43 4F 4C AA 50 4C 41 29 |.C$(LIN,COL.PLA)|
000013F0: B2 51 24 00 07 1C 72 10 51 24 B2 22 22 3A 53 55 |.Q$...r.Q$."":SU|
00001400: B2 30 3A 53 4D B2 30 00 15 1C 7C 10 81 58 B2 31 |.0:SM.0...|..X.1|
00001410: 20 A4 20 31 32 00 36 1C 86 10 8B 20 43 24 28 4C | . 12.6.... C$(L|
00001420: 49 4E 2C 58 29 B2 22 20 20 20 20 20 22 20 A7 20 |IN,X)." " . |
00001430: 89 20 34 32 35 30 00 4D 1C 90 10 53 55 B2 53 55 |. 4250.M...SU.SU|
00001440: AA C5 28 43 24 28 4C 49 4E 2C 58 29 29 00 55 1C |..(C$(LIN,X)).U.|
00001450: 9A 10 82 20 58 00 6A 1C A4 10 51 24 B2 C4 28 53 |... X.j...Q$..(S|
00001460: 55 29 3A 20 8D 20 34 39 39 30 00 89 1C AE 10 43 |U): . 4990.....C|
00001470: 24 28 4C 49 4E 2C 31 33 29 B2 51 24 3A 20 53 55 |$(LIN,13).Q$: SU|
00001480: B2 30 20 20 3A 53 4D B2 30 00 95 1C B8 10 81 20 |.0 :SM.0...... |
00001490: 58 B2 31 A4 35 00 BA 1C C2 10 8B 20 43 24 28 58 |X.1.5...... C$(X|
000014A0: 2C 43 4F 4C AA 50 4C 41 29 B2 22 20 20 20 20 20 |,COL.PLA)." |
000014B0: 20 22 20 A7 20 89 34 33 31 30 00 D5 1C CC 10 53 | " . .4310.....S|
000014C0: 55 B2 53 55 AA C5 28 43 24 28 58 2C 43 4F 4C AA |U.SU..(C$(X,COL.|
000014D0: 50 4C 41 29 29 00 DD 1C D6 10 82 20 58 00 F1 1C |PLA))...... X...|
000014E0: E0 10 51 24 B2 C4 28 53 55 29 3A 8D 20 34 39 39 |..Q$..(SU):. 499|
000014F0: 30 00 0D 1D EA 10 43 24 28 32 31 2C 43 4F 4C AA |0.....C$(21,COL.|
00001500: 50 4C 41 29 B2 51 24 3A 51 24 B2 22 22 00 19 1D |PLA).Q$:Q$.""...|
00001510: F4 10 81 58 B2 36 A4 31 39 00 3E 1D FE 10 8B 20 |...X.6.19.>.... |
00001520: 43 24 28 58 2C 43 4F 4C AA 50 4C 41 29 B2 22 20 |C$(X,COL.PLA)." |
00001530: 20 20 20 20 20 22 20 A7 20 89 34 33 37 30 00 59 | " . .4370.Y|
00001540: 1D 08 11 53 4D B2 53 4D AA C5 28 43 24 28 58 2C |...SM.SM..(C$(X,|
00001550: 43 4F 4C AA 50 4C 41 29 29 00 61 1D 12 11 82 20 |COL.PLA)).a.... |
00001560: 58 00 75 1D 1C 11 51 24 B2 C4 28 53 4D 29 3A 8D |X.u...Q$..(SM):.|
00001570: 20 34 39 39 30 00 91 1D 26 11 43 24 28 32 30 2C | 4990...&.C$(20,|
00001580: 43 4F 4C AA 50 4C 41 29 B2 51 24 3A 51 24 B2 22 |COL.PLA).Q$:Q$."|
00001590: 22 00 A8 1D 30 11 51 24 B2 C4 28 53 55 AB 53 4D |"...0.Q$..(SU.SM|
000015A0: 29 3A 8D 20 34 39 39 30 00 BE 1D 3A 11 43 24 28 |):. 4990...:.C$(|
000015B0: 32 32 2C 43 4F 4C AA 50 4C 41 29 B2 51 24 00 CC |22,COL.PLA).Q$..|
000015C0: 1D 44 11 53 55 B2 30 3A 53 4D B2 30 00 D6 1D 49 |.D.SU.0:SM.0...I|
000015D0: 11 54 24 B2 22 22 00 E5 1D 4E 11 81 20 58 B2 31 |.T$.""...N.. X.1|
000015E0: 20 A4 20 31 32 00 06 1E 58 11 8B 20 43 24 28 32 | . 12...X.. C$(2|
000015F0: 30 2C 58 29 B2 22 20 20 20 20 20 20 22 20 A7 20 |0,X)." " . |
00001600: 89 20 34 34 37 30 00 1C 1E 6C 11 53 55 B2 53 55 |. 4470...l.SU.SU|
00001610: AA C5 28 43 24 28 32 30 2C 58 29 29 00 3D 1E 76 |..(C$(20,X)).=.v|
00001620: 11 8B 20 43 24 28 32 31 2C 58 29 B2 22 20 20 20 |.. C$(21,X)." |
00001630: 20 20 20 22 20 A7 20 89 20 34 35 31 35 00 53 1E | " . . 4515.S.|
00001640: 8A 11 53 4D B2 53 4D AA C5 28 43 24 28 32 31 2C |..SM.SM..(C$(21,|
00001650: 58 29 29 00 8A 1E A3 11 8B 20 43 24 28 32 30 2C |X))...... C$(20,|
00001660: 58 29 B2 22 2A 2A 2A 2A 2A 2A 22 20 B0 20 43 24 |X)."******" . C$|
00001670: 28 32 31 2C 58 29 B2 22 2A 2A 2A 2A 2A 2A 22 20 |(21,X)."******" |
00001680: A7 20 8D 20 34 36 31 35 3A 8E 00 92 1E A8 11 82 |. . 4615:.......|
00001690: 20 58 00 A6 1E B2 11 51 24 B2 C4 28 53 55 29 3A | X.....Q$..(SU):|
000016A0: 8D 20 34 39 39 30 00 B7 1E BC 11 43 24 28 32 30 |. 4990.....C$(20|
000016B0: 2C 31 33 29 B2 51 24 00 CB 1E C6 11 51 24 B2 C4 |,13).Q$.....Q$..|
000016C0: 28 53 4D 29 3A 8D 20 34 39 39 30 00 DC 1E D0 11 |(SM):. 4990.....|
000016D0: 43 24 28 32 31 2C 31 33 29 B2 51 24 00 F3 1E DA |C$(21,13).Q$....|
000016E0: 11 51 24 B2 C4 28 53 4D AB 53 55 29 3A 8D 20 34 |.Q$..(SM.SU):. 4|
000016F0: 39 39 30 00 04 1F E4 11 43 24 28 32 32 2C 31 33 |990.....C$(22,13|
00001700: 29 B2 51 24 00 18 1F EE 11 51 24 B2 22 22 3A 53 |).Q$.....Q$."":S|
00001710: 55 B2 30 3A 53 4D B2 30 00 2F 1F F8 11 8D 20 32 |U.0:SM.0./.... 2|
00001720: 36 30 30 3A 8F 20 42 49 4C 4C 45 44 45 20 33 00 |600:. BILLEDE 3.|
00001730: 35 1F 02 12 8E 00 4F 1F 07 12 8F 20 2A 2A 2A 20 |5.....O.... *** |
00001740: 42 41 4C 41 4E 43 45 20 4F 56 45 52 4C 30 42 00 |BALANCE OVERL0B.|
00001750: 66 1F 0C 12 43 24 28 32 30 2C 31 33 29 B2 22 2A |f...C$(20,13)."*|
00001760: 2A 2A 2A 2A 2A 22 00 7D 1F 16 12 43 24 28 32 31 |*****".}...C$(21|
00001770: 2C 31 33 29 B2 22 2A 2A 2A 2A 2A 2A 22 00 94 1F |,13)."******"...|
00001780: 20 12 43 24 28 32 32 2C 31 33 29 B2 22 2A 2A 2A | .C$(22,13)."***|
00001790: 2A 2A 2A 22 00 A7 1F 2A 12 8D 20 32 36 30 30 3A |***"...*.. 2600:|
000017A0: 51 24 B2 22 22 3A 8E 00 CA 1F 5C 12 8F 20 52 45 |Q$."":....\.. RE|
000017B0: 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 20 53 4C 45 54 20 |M ******** SLET |
000017C0: 54 41 4C 20 43 55 52 53 4F 52 00 EA 1F 66 12 59 |TAL CURSOR...f.Y|
000017D0: 43 B2 47 4C 49 4E 3A 58 43 B2 47 43 4F 4C AC 37 |C.GLIN:XC.GCOL.7|
000017E0: AA 31 32 3A 8D 20 36 30 30 30 00 0A 20 70 12 99 |.12:. 6000.. p..|
000017F0: 20 C7 28 31 34 36 29 3B 43 24 28 47 4C 49 4E 2C | .(146);C$(GLIN,|
00001800: 47 43 4F 4C AA 50 4C 41 29 3B 00 10 20 7A 12 8E |GCOL.PLA);.. z..|
00001810: 00 34 20 7E 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.4 ~.. *********|
00001820: 2A 2A 2A 2A 2A 2A 20 48 30 4A 52 45 20 53 54 49 |****** H0JRE STI|
00001830: 4C 4C 45 52 00 59 20 80 13 8B 20 C8 28 51 24 2C |LLER.Y ... .(Q$,|
00001840: 31 29 B2 22 20 22 20 A7 20 51 24 B2 C9 28 51 24 |1)." " . Q$..(Q$|
00001850: 2C C3 28 51 24 29 AB 31 29 00 6F 20 81 13 8B 20 |,.(Q$).1).o ... |
00001860: 51 24 B2 22 30 22 20 A7 20 20 51 24 B2 22 22 00 |Q$."0" . Q$."".|
00001870: 8F 20 83 13 8B 20 C3 28 51 24 29 B3 36 20 A7 20 |. ... .(Q$).6 . |
00001880: 51 24 B2 22 20 22 AA 51 24 3A 89 34 39 39 33 00 |Q$." ".Q$:.4993.|
00001890: AB 20 85 13 8B 20 C3 28 51 24 29 B1 36 20 A7 20 |. ... .(Q$).6 . |
000018A0: 51 24 B2 22 2A 2A 2A 2A 2A 2A 22 00 B1 20 86 13 |Q$."******".. ..|
000018B0: 8E 00 D1 20 88 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |... ... ********|
000018C0: 2A 2A 2A 2A 20 54 45 4B 53 54 20 45 44 49 54 4F |**** TEKST EDITO|
000018D0: 52 00 E8 20 92 13 8D 20 32 39 30 30 3A 20 8F 20 |R.. ... 2900: . |
000018E0: 43 4C 52 20 4D 45 4E 55 00 09 21 9C 13 59 43 B2 |CLR MENU..!..YC.|
000018F0: 32 33 3A 58 43 B2 31 3A 8D 20 36 30 30 30 3A 8F |23:XC.1:. 6000:.|
00001900: 20 50 52 49 4E 54 20 41 54 00 29 21 A6 13 99 22 | PRINT AT.)!..."|
00001910: 4D 45 4E 55 3A 20 46 31 20 52 45 54 55 52 20 54 |MENU: F1 RETUR T|
00001920: 49 4C 20 4D 45 4E 55 22 3B 00 44 21 B0 13 8D 20 |IL MENU";.D!... |
00001930: 35 38 30 30 20 3A 8F 20 54 45 4B 53 54 20 43 55 |5800 :. TEKST CU|
00001940: 52 53 4F 52 00 4E 21 B5 13 89 35 31 32 30 00 62 |RSOR.N!...5120.b|
00001950: 21 BA 13 8D 20 31 38 30 30 20 3A 8F 20 49 4E 4B |!... 1800 :. INK|
00001960: 45 59 00 8A 21 C4 13 8B 20 54 24 B2 22 85 22 20 |EY..!... T$."." |
00001970: A7 20 8D 20 35 39 30 30 3A 8E 20 20 3A 8F 20 41 |. . 5900:. :. A|
00001980: 46 53 4C 55 54 2B 4D 45 4E 55 00 B6 21 CE 13 8B |FSLUT+MENU..!...|
00001990: 20 C6 28 54 24 29 B2 32 30 20 AF 20 C3 28 51 24 | .(T$).20 . .(Q$|
000019A0: 29 B1 30 20 A7 20 51 24 B2 C8 28 51 24 2C C3 28 |).0 . Q$..(Q$,.(|
000019B0: 51 24 29 AB 31 29 00 EB 21 D8 13 8B 20 C6 28 54 |Q$).1)..!... .(T|
000019C0: 24 29 B2 31 33 20 AF 20 C3 28 51 24 29 B1 30 20 |$).13 . .(Q$).0 |
000019D0: A7 20 8D 20 35 37 30 30 20 3A 89 35 30 30 30 20 |. . 5700 :.5000 |
000019E0: 3A 8F 20 47 45 4D 2B 4D 45 4E 55 00 27 22 E2 13 |:. GEM+MENU.'"..|
000019F0: 8B 20 54 24 B2 22 11 22 20 AF 20 54 4C 49 4E B3 |. T$."." . TLIN.|
00001A00: 31 39 20 B0 20 54 24 B2 22 91 22 20 AF 20 54 4C |19 . T$."." . TL|
00001A10: 49 4E B1 31 20 A7 20 8D 20 35 38 30 30 3A 20 8F |IN.1 . . 5800: .|
00001A20: 20 43 55 52 53 4F 52 00 59 22 EC 13 8B 20 54 24 | CURSOR.Y"... T$|
00001A30: B1 B2 22 20 22 20 AF 20 54 24 B2 B3 22 5D 22 20 |.." " . T$.."]" |
00001A40: A7 20 51 24 B2 51 24 AA 54 24 3A 20 8F 20 4C 45 |. Q$.Q$.T$: . LE|
00001A50: 47 41 4C 54 20 54 45 47 4E 00 69 22 F6 13 51 24 |GALT TEGN.i"..Q$|
00001A60: B2 C8 28 51 24 2C 31 30 29 00 8A 22 00 14 59 43 |..(Q$,10).."..YC|
00001A70: B2 32 34 3A 58 43 B2 31 3A 8D 20 36 30 30 30 3A |.24:XC.1:. 6000:|
00001A80: 8F 20 50 52 49 4E 54 20 41 54 00 AA 22 0A 14 99 |. PRINT AT.."...|
00001A90: 20 22 3E 22 3B 51 24 3B 22 20 20 20 20 20 20 20 | ">";Q$;" |
00001AA0: 20 20 20 22 3B 3A 8F 20 31 30 00 CC 22 14 14 59 | ";:. 10.."..Y|
00001AB0: 43 B2 32 34 3A 58 43 B2 31 32 3A 8D 20 36 30 30 |C.24:XC.12:. 600|
00001AC0: 30 3A 8F 20 50 52 49 4E 54 20 41 54 00 D7 22 1E |0:. PRINT AT..".|
00001AD0: 14 99 20 22 3C 22 3B 00 E2 22 28 14 89 20 35 30 |.. "<";.."(.. 50|
00001AE0: 35 30 00 05 23 44 16 8F 20 2A 2A 2A 2A 2A 2A 2A |50..#D.. *******|
00001AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 47 45 4D 20 |*********** GEM |
00001B00: 54 45 4B 53 54 00 25 23 4E 16 8B 20 C3 28 51 24 |TEKST.%#N.. .(Q$|
00001B10: 29 B3 31 30 A7 20 51 24 B2 51 24 AA 22 20 22 3A |).10. Q$.Q$." ":|
00001B20: 89 35 37 31 30 00 3B 23 58 16 41 24 28 54 4C 49 |.5710.;#X.A$(TLI|
00001B30: 4E 29 B2 51 24 3A 51 24 B2 22 22 00 5D 23 62 16 |N).Q$:Q$."".]#b.|
00001B40: 59 43 B2 54 4C 49 4E 3A 58 43 B2 31 3A 8D 36 30 |YC.TLIN:XC.1:.60|
00001B50: 30 30 3A 8F 20 50 52 49 4E 54 20 41 54 00 6D 23 |00:. PRINT AT.m#|
00001B60: 6C 16 99 20 41 24 28 54 4C 49 4E 29 3B 00 85 23 |l.. A$(TLIN);..#|
00001B70: 80 16 54 4C 49 4E B2 54 4C 49 4E AB 28 54 4C 49 |..TLIN.TLIN.(TLI|
00001B80: 4E B3 31 39 29 00 9D 23 8A 16 8B 20 54 4C 49 4E |N.19)..#... TLIN|
00001B90: B2 31 39 20 A7 20 47 54 4C 49 4E B2 32 00 A3 23 |.19 . GTLIN.2..#|
00001BA0: 94 16 8E 00 C5 23 A8 16 8F 20 2A 2A 2A 2A 2A 2A |.....#... ******|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 20 43 55 52 53 4F 52 20 |******** CURSOR |
00001BC0: 54 45 4B 53 54 00 E5 23 B2 16 54 4C 49 4E B2 54 |TEKST..#..TLIN.T|
00001BD0: 4C 49 4E AB 28 54 24 B2 22 11 22 29 AA 28 54 24 |LIN.(T$.".").(T$|
00001BE0: B2 22 91 22 29 00 07 24 BC 16 59 43 B2 20 54 4C |.".")..$..YC. TL|
00001BF0: 49 4E 3A 58 43 B2 31 3A 8D 36 30 30 30 3A 8F 20 |IN:XC.1:.6000:. |
00001C00: 50 52 49 4E 54 41 54 00 24 24 C6 16 99 20 C7 28 |PRINTAT.$$... .(|
00001C10: 31 38 29 3B 41 24 28 54 4C 49 4E 29 3B C7 28 31 |18);A$(TLIN);.(1|
00001C20: 34 36 29 3B 00 46 24 D0 16 59 43 B2 47 54 4C 49 |46);.F$..YC.GTLI|
00001C30: 4E 3A 58 43 B2 31 3A 8D 36 30 30 30 3A 8F 20 50 |N:XC.1:.6000:. P|
00001C40: 52 49 4E 54 41 54 00 57 24 DA 16 99 20 41 24 28 |RINTAT.W$... A$(|
00001C50: 47 54 4C 49 4E 29 3B 00 66 24 E4 16 47 54 4C 49 |GTLIN);.f$..GTLI|
00001C60: 4E B2 54 4C 49 4E 00 6C 24 EE 16 8E 00 8F 24 0C |N.TLIN.l$.....$.|
00001C70: 17 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 53 4C |.. ***********SL|
00001C80: 45 54 20 54 45 4B 53 54 20 43 55 52 53 4F 52 00 |ET TEKST CURSOR.|
00001C90: B3 24 16 17 59 43 B2 54 4C 49 4E 3A 58 43 B2 31 |.$..YC.TLIN:XC.1|
00001CA0: 3A 8D 20 36 30 30 30 20 3A 8F 20 50 52 49 4E 54 |:. 6000 :. PRINT|
00001CB0: 20 41 54 00 C2 24 20 17 99 41 24 28 54 4C 49 4E | AT..$ ..A$(TLIN|
00001CC0: 29 3B 00 CD 24 2A 17 8D 20 32 39 30 30 00 D8 24 |);..$*.. 2900..$|
00001CD0: 34 17 8D 20 32 38 30 30 00 E3 24 39 17 8D 20 34 |4.. 2800..$9.. 4|
00001CE0: 30 30 30 00 FC 24 3E 17 54 4C 49 4E B2 31 3A 47 |000..$>.TLIN.1:G|
00001CF0: 54 4C 49 4E B2 32 3A 51 24 B2 22 22 00 02 25 48 |TLIN.2:Q$.""..%H|
00001D00: 17 8E 00 22 25 70 17 8F 2A 2A 2A 2A 2A 2A 2A 2A |..."%p..********|
00001D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 20 |********* PRINT |
00001D20: 41 54 00 2E 25 7A 17 97 37 38 31 2C 59 43 00 3A |AT..%z..781,YC.:|
00001D30: 25 84 17 97 37 38 32 2C 58 43 00 45 25 8E 17 9E |%...782,XC.E%...|
00001D40: 36 35 35 32 30 00 4B 25 98 17 8E 00 6A 25 58 1B |65520.K%....j%X.|
00001D50: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001D60: 2A 2A 20 50 52 49 4E 54 45 52 00 73 25 5A 1B 53 |** PRINTER.s%Z.S|
00001D70: 50 B2 36 00 7D 25 5C 1B 8D 32 39 30 30 00 93 25 |P.6.}%\..2900..%|
00001D80: 5E 1B 59 43 B2 32 33 3A 58 43 B2 31 3A 8D 20 36 |^.YC.23:XC.1:. 6|
00001D90: 30 30 30 00 A3 25 62 1B 99 22 53 4B 52 49 56 45 |000..%b.."SKRIVE|
00001DA0: 52 22 3B 00 B9 25 66 1B 8D 20 38 32 30 30 3A 8F |R";..%f.. 8200:.|
00001DB0: 20 48 41 4C 56 20 41 41 52 00 C5 25 67 1B 9F 34 | HALV AAR..%g..4|
00001DC0: 2C 34 3A 9D 34 00 D5 25 6A 1B 81 58 B2 31 A4 35 |,4:.4..%j..X.1.5|
00001DD0: 3A 99 3A 82 58 00 EC 25 6C 1B 99 20 A6 32 35 AA |:.:.X..%l.. .25.|
00001DE0: 53 50 29 3B 22 42 55 44 47 45 54 22 00 FE 25 71 |SP);"BUDGET"..%q|
00001DF0: 1B 99 20 A6 32 35 AA 53 50 29 3B 4E 41 24 00 0C |.. .25.SP);NA$..|
00001E00: 26 80 1B 81 20 59 B2 30 20 A4 20 31 00 20 26 82 |&... Y.0 . 1. &.|
00001E10: 1B 81 20 5A B2 31 20 A4 20 34 3A 99 20 3A 20 82 |.. Z.1 . 4:. : .|
00001E20: 00 31 26 8A 1B 99 A6 53 50 29 3B 42 24 28 31 29 |.1&....SP);B$(1)|
00001E30: 3B 00 3F 26 8F 1B 81 20 5A B2 32 20 A4 20 37 00 |;.?&... Z.2 . 7.|
00001E40: 53 26 94 1B 99 22 49 22 3B 42 24 28 5A AA 36 AC |S&..."I";B$(Z.6.|
00001E50: 59 29 3B 00 5B 26 99 1B 82 20 5A 00 78 26 9E 1B |Y);.[&... Z.x&..|
00001E60: 99 22 49 22 3B 42 24 28 31 35 AA 59 29 3B 22 49 |."I";B$(15.Y);"I|
00001E70: 22 3B 42 24 28 31 34 29 00 84 26 A8 1B 81 58 B2 |";B$(14)..&...X.|
00001E80: 31 A4 32 32 00 A6 26 B2 1B 54 45 B2 AB 31 AC 28 |1.22..&..TE..1.(|
00001E90: 34 33 AC 28 58 B3 36 29 AA 28 58 AA 35 39 29 AC |43.(X.6).(X.59).|
00001EA0: 28 58 B1 35 29 29 00 B2 26 B7 1B 99 20 A6 53 50 |(X.5))..&... .SP|
00001EB0: 29 3B 00 C5 26 BC 1B 99 20 41 24 28 58 29 3B C7 |);..&... A$(X);.|
00001EC0: 28 54 45 29 3B 00 DE 26 C1 1B 99 20 43 24 28 58 |(TE);..&... C$(X|
00001ED0: 2C 59 AC 36 AA 31 29 3B C7 28 54 45 29 3B 00 F7 |,Y.6.1);.(TE);..|
00001EE0: 26 C6 1B 99 20 43 24 28 58 2C 59 AC 36 AA 32 29 |&... C$(X,Y.6.2)|
00001EF0: 3B C7 28 54 45 29 3B 00 10 27 D0 1B 99 20 43 24 |;.(TE);..'... C$|
00001F00: 28 58 2C 59 AC 36 AA 33 29 3B C7 28 54 45 29 3B |(X,Y.6.3);.(TE);|
00001F10: 00 29 27 DA 1B 99 20 43 24 28 58 2C 59 AC 36 AA |.)'... C$(X,Y.6.|
00001F20: 34 29 3B C7 28 54 45 29 3B 00 42 27 E4 1B 99 20 |4);.(TE);.B'... |
00001F30: 43 24 28 58 2C 59 AC 36 AA 35 29 3B C7 28 54 45 |C$(X,Y.6.5);.(TE|
00001F40: 29 3B 00 5B 27 EE 1B 99 20 43 24 28 58 2C 59 AC |);.['... C$(X,Y.|
00001F50: 36 AA 36 29 3B C7 28 54 45 29 3B 00 73 27 F8 1B |6.6);.(TE);.s'..|
00001F60: 99 20 43 24 28 58 2C 31 34 AA 59 29 3B C7 28 54 |. C$(X,14.Y);.(T|
00001F70: 45 29 3B 00 82 27 02 1C 99 20 43 24 28 58 2C 31 |E);..'... C$(X,1|
00001F80: 33 29 00 8C 27 0C 1C 82 20 58 2C 59 00 9F 27 4C |3)..'... X,Y..'L|
00001F90: 1D 98 34 2C C7 28 31 32 29 3A 98 34 3A A0 34 00 |..4,.(12):.4:.4.|
00001FA0: AF 27 51 1D 8D 32 39 30 30 3A 8D 32 38 30 30 00 |.'Q..2900:.2800.|
00001FB0: B5 27 60 1D 8E 00 D2 27 40 1F 8F 20 2A 2A 2A 2A |.'`....'@.. ****|
00001FC0: 2A 2A 2A 2A 2A 2A 2A 2A 20 46 49 4C 45 20 4E 41 |******** FILE NA|
00001FD0: 56 4E 00 DD 27 45 1F 51 24 B2 4E 41 24 00 F4 27 |VN..'E.Q$.NA$..'|
00001FE0: 4A 1F 8D 20 32 39 30 30 3A 20 8F 20 43 4C 52 20 |J.. 2900: . CLR |
00001FF0: 4D 45 4E 55 00 15 28 54 1F 59 43 B2 32 33 3A 58 |MENU..(T.YC.23:X|
00002000: 43 B2 31 3A 8D 20 36 30 30 30 3A 8F 20 50 52 49 |C.1:. 6000:. PRI|
00002010: 4E 54 20 41 54 00 2D 28 5E 1F 99 22 53 4B 52 49 |NT AT.-(^.."SKRI|
00002020: 56 20 46 49 4C 45 20 4E 41 56 4E 22 3B 00 38 28 |V FILE NAVN";.8(|
00002030: 68 1F 89 20 38 31 32 30 00 4C 28 72 1F 8D 20 31 |h.. 8120.L(r.. 1|
00002040: 38 30 30 20 3A 8F 20 49 4E 4B 45 59 00 78 28 86 |800 :. INKEY.x(.|
00002050: 1F 8B 20 C6 28 54 24 29 B2 32 30 20 AF 20 C3 28 |.. .(T$).20 . .(|
00002060: 51 24 29 B1 30 20 A7 20 51 24 B2 C8 28 51 24 2C |Q$).0 . Q$..(Q$,|
00002070: C3 28 51 24 29 AB 31 29 00 B1 28 90 1F 8B 20 C6 |.(Q$).1)..(... .|
00002080: 28 54 24 29 B2 31 33 20 AF 20 C3 28 51 24 29 B1 |(T$).13 . .(Q$).|
00002090: 30 20 A7 20 4E 41 24 B2 51 24 3A 51 24 B2 22 22 |0 . NA$.Q$:Q$.""|
000020A0: 3A 8D 20 32 39 30 30 3A 20 20 20 20 20 20 20 20 |:. 2900: |
000020B0: 8E 00 E3 28 A4 1F 8B 20 54 24 B1 B2 22 20 22 20 |...(... T$.." " |
000020C0: AF 20 54 24 B2 B3 22 5D 22 20 A7 20 51 24 B2 51 |. T$.."]" . Q$.Q|
000020D0: 24 AA 54 24 3A 20 8F 20 4C 45 47 41 4C 54 20 54 |$.T$: . LEGALT T|
000020E0: 45 47 4E 00 F3 28 AE 1F 51 24 B2 C8 28 51 24 2C |EGN..(..Q$..(Q$,|
000020F0: 31 30 29 00 14 29 B8 1F 59 43 B2 32 34 3A 58 43 |10)..)..YC.24:XC|
00002100: B2 31 3A 8D 20 36 30 30 30 3A 8F 20 50 52 49 4E |.1:. 6000:. PRIN|
00002110: 54 20 41 54 00 34 29 C2 1F 99 20 22 3E 22 3B 51 |T AT.4)... ">";Q|
00002120: 24 3B 22 20 20 20 20 20 20 20 20 20 20 22 3B 3A |$;" ";:|
00002130: 8F 20 31 30 00 56 29 CC 1F 59 43 B2 32 34 3A 58 |. 10.V)..YC.24:X|
00002140: 43 B2 31 32 3A 8D 20 36 30 30 30 3A 8F 20 50 52 |C.12:. 6000:. PR|
00002150: 49 4E 54 20 41 54 00 61 29 D6 1F 99 20 22 3C 22 |INT AT.a)... "<"|
00002160: 3B 00 6C 29 E0 1F 89 20 38 30 35 30 00 91 29 08 |;.l)... 8050..).|
00002170: 20 8F 20 2A 2A 2A 2A 2A 20 55 44 52 45 47 4E 20 | . ***** UDREGN |
00002180: 31 2F 32 20 41 41 52 53 20 52 45 53 55 4C 54 41 |1/2 AARS RESULTA|
00002190: 54 00 9D 29 44 20 81 20 5A B2 30 A4 31 00 AA 29 |T..)D . Z.0.1..)|
000021A0: 4E 20 81 20 58 B2 31 A4 31 39 00 B3 29 53 20 53 |N . X.1.19..)S S|
000021B0: 55 B2 30 00 C7 29 58 20 81 20 59 B2 31 AA 5A AC |U.0..)X . Y.1.Z.|
000021C0: 36 A4 36 AA 5A AC 36 00 E6 29 62 20 8B 20 43 24 |6.6.Z.6..)b . C$|
000021D0: 28 58 2C 59 29 B2 22 20 20 20 20 20 20 22 20 A7 |(X,Y)." " .|
000021E0: 20 89 38 33 31 30 00 FB 29 6C 20 53 55 B2 53 55 | .8310..)l SU.SU|
000021F0: AA C5 28 43 24 28 58 2C 59 29 29 00 03 2A 76 20 |..(C$(X,Y))..*v |
00002200: 82 20 59 00 17 2A 80 20 51 24 B2 C4 28 53 55 29 |. Y..*. Q$..(SU)|
00002210: 3A 8D 20 34 39 39 30 00 2F 2A 8A 20 43 24 28 58 |:. 4990./*. C$(X|
00002220: 2C 31 34 AA 5A 29 B2 51 24 3A 51 24 B2 22 22 00 |,14.Z).Q$:Q$."".|
00002230: 3D 2A 8F 20 53 55 B2 30 3A 53 4D B2 30 00 45 2A |=*. SU.0:SM.0.E*|
00002240: 94 20 82 20 58 00 59 2A 9E 20 81 20 59 B2 31 AA |. . X.Y*. . Y.1.|
00002250: 5A AC 36 A4 36 AA 5A AC 36 00 7A 2A F8 20 8B 20 |Z.6.6.Z.6.z*. . |
00002260: 43 24 28 32 30 2C 59 29 B2 22 20 20 20 20 20 20 |C$(20,Y)." |
00002270: 22 20 A7 20 89 20 38 34 37 30 00 90 2A 0C 21 53 |" . . 8470..*.!S|
00002280: 55 B2 53 55 AA C5 28 43 24 28 32 30 2C 59 29 29 |U.SU..(C$(20,Y))|
00002290: 00 B1 2A 16 21 8B 20 43 24 28 32 31 2C 59 29 B2 |..*.!. C$(21,Y).|
000022A0: 22 20 20 20 20 20 20 22 20 A7 20 89 20 38 35 31 |" " . . 851|
000022B0: 35 00 C7 2A 2A 21 53 4D B2 53 4D AA C5 28 43 24 |5..**!SM.SM..(C$|
000022C0: 28 32 31 2C 59 29 29 00 FE 2A 43 21 8B 20 43 24 |(21,Y))..*C!. C$|
000022D0: 28 32 30 2C 59 29 B2 22 2A 2A 2A 2A 2A 2A 22 20 |(20,Y)."******" |
000022E0: B0 20 43 24 28 32 31 2C 59 29 B2 22 2A 2A 2A 2A |. C$(21,Y)."****|
000022F0: 2A 2A 22 20 A7 20 20 89 20 20 38 36 31 35 00 06 |**" . . 8615..|
00002300: 2B 48 21 82 20 59 00 1A 2B 52 21 51 24 B2 C4 28 |+H!. Y..+R!Q$..(|
00002310: 53 55 29 3A 8D 20 34 39 39 30 00 2D 2B 5C 21 43 |SU):. 4990.-+\!C|
00002320: 24 28 32 30 2C 31 34 AA 5A 29 B2 51 24 00 41 2B |$(20,14.Z).Q$.A+|
00002330: 66 21 51 24 B2 C4 28 53 4D 29 3A 8D 20 34 39 39 |f!Q$..(SM):. 499|
00002340: 30 00 54 2B 70 21 43 24 28 32 31 2C 31 34 AA 5A |0.T+p!C$(21,14.Z|
00002350: 29 B2 51 24 00 6B 2B 7A 21 51 24 B2 C4 28 53 4D |).Q$.k+z!Q$..(SM|
00002360: AB 53 55 29 3A 8D 20 34 39 39 30 00 7E 2B 84 21 |.SU):. 4990.~+.!|
00002370: 43 24 28 32 32 2C 31 34 AA 5A 29 B2 51 24 00 92 |C$(22,14.Z).Q$..|
00002380: 2B 8E 21 51 24 B2 22 22 3A 53 55 B2 30 3A 53 4D |+.!Q$."":SU.0:SM|
00002390: B2 30 00 9A 2B 98 21 82 20 5A 00 A0 2B A2 21 8E |.0..+.!. Z..+.!.|
000023A0: 00 BA 2B A7 21 8F 20 2A 2A 2A 20 42 41 4C 41 4E |..+.!. *** BALAN|
000023B0: 43 45 20 4F 56 45 52 4C 30 42 00 D3 2B AC 21 43 |CE OVERL0B..+.!C|
000023C0: 24 28 32 30 2C 31 34 AA 5A 29 B2 22 2A 2A 2A 2A |$(20,14.Z)."****|
000023D0: 2A 2A 22 00 EC 2B B6 21 43 24 28 32 31 2C 31 34 |**"..+.!C$(21,14|
000023E0: AA 5A 29 B2 22 2A 2A 2A 2A 2A 2A 22 00 05 2C C0 |.Z)."******"..,.|
000023F0: 21 43 24 28 32 32 2C 31 34 AA 5A 29 B2 22 2A 2A |!C$(22,14.Z)."**|
00002400: 2A 2A 2A 2A 22 00 10 2C CA 21 89 20 38 36 30 30 |****"..,.!. 8600|
00002410: 00 00 00 |... |
.. .... SAVE"BUDGET 5/4.15.40",8.A.... *
***************** OPSTART.^.... 53280,0:
.53281,0:."..".N.... C$(22,15).Z.(..A$(2
2)...2.. B$(16)...<.LIN.1:COL.0...F.GLIN
.1:GCOL.0...P.TLIN.1:GTLIN.2.Y.Z.T$."":Q
$."":NA$."BUDGET"...D.SUM.0:PLA.1.1.N.."
TEKST "," JAN "," FEB "," MAR ","
APR "," MAJ "," JUNI ".U.X.." JULI ",
" AUG "," SEPT "," OKT "," NOV "," DE
C "," SUM "...}.."1.HALV","2.HALV"....
..X.1.16:.B$(X):.X.....A$(20)."UDGIFT
".R...A$(21)."INDT[GT "... .A$(22)."B
ALANCE "......********************** G
OSUB ADR.-.... OPSTART ********* 1000.J.
... INKEY ********** 1800.G.... BILLEDE
1 ******* 2000...... BILLEDE 2 *******
2400...... BILLEDE 3 ******* 2600......
TOM TALARK ****** 2700...&.. MENU ******
****** 2800...0.. CLR MENU ******** 2900
...:.. STYRE *********** 3000.2.D.. TEKS
T LINIE ***** 3200.O.N.. CURSOR CONTOL *
** 3300.L.X.. GEM DATA ******** 3400...B
.. SLET GL.FIL ***** 3510...L.. HENT FIL
******** 3700.C.V.. TEST FIL ******** 3
800...... CURSOR ********** 4000...... S
UMME *********** 4100...... SLET TAL CUR
SOR * 4700.7.... H0JRE STILL ***** 4990.
T.... TEKST *********** 5000.Q.... GEM T
EKST ******* 5700...... CURSOR TEKST ***
* 5800...... SLET TEKST CURS * 5900.H...
. PRINT AT ******** 6000...... PRINTER *
******** 7000......***************** OPS
TART......".".....YC.6:XC.6:. 6000: . PR
INT AT.S...."VELKOMMEN TIL BUDGET VER. 2
.0".T...YC.8:XC.9:. 6000: . PRINT AT....
.."VIL DU HENTE ET SAVET"...$.YC.10:XC.1
6:. 6000: . PRINT AT.B...."BUDGET"...8.Y
C.12:XC.11:. 6000: . PRINT AT...B.."TAST
JA ELLER NEJ"...L.. 1800: . INKEY.3.V..
T$.."J" . T$.."N" . . 1100.V.`.. T$."N"
. . 2700:. TOM TALARK.X.J.. T$."J" . .
3700:. HENT DATA...T..".":. 2000:. BILLE
DE 1...~.. 2800: . MENU...... 4000: . CU
RSOR.G.... 3200...... ************** INK
EY...... T$:. T$.."" . 1810...... T$:. T
$."" . 1820...&...8.P.. ************** B
ILLEDE 1.M.Z..".";B$(1);.11);"B"B$(PLA.1
);.18);"B";B$(PLA.2);.......25);"B";B$(P
LA.3);.32);"B";B$(14)......X.1.22.C...TE
..1.(43.(X.6).(X.59).(X.5)).X.....1);A$(
X);.11);...... G(18); G(TE); G(146);C$(X
,PLA);.18);.0.... G(18); G(TE); G(146);C
$(X,PLA.1);.25);.].... G(18); G(TE); G(1
46);C$(X,PLA.2);.32);... .. G(18); G(TE)
; G(146);C$(X,13)...*.. X.../.. GOSUB
4000:GOSUB 2800...0.. 2800...4...Y.`.. *
*************** BILLEDE 2...J.. 2900: .
CLR MENU...T.YC.0:XC.12.7.COL: . 6000: .
PRINT AT...~.. B$(PLA.1.COL);.=.... X.1
. 22.Z...YC.X: . 6000: . PRINT AT.O....
C$(X,PLA.COL);.W.... X...... 2800: . ME
NU...... 4000: . CURSOR...D...H.(.. ****
********** SUM BILLEDE 3...2.YC.0:XC.33:
. 6000:. PRINT AT...<.. B$(14);...F.. X.
1 . 22.#.P.YC.X: . 6000: . PRINT AT.3.Z.
. C$(X,13);.;.D.. X.A.N...C.... ********
** OPRET TOM TALARK.....YC.15:XC.14:. 60
00:. PRINT AT... .. G(18);" OPRETTER ";G
(146);...... X.1.22.U.... X.20.A$(X)."
":.10...... Y.1 . 13...H.C$(X,Y)
." ":. 6...R..Y:.X.......+.... ****
************** MENU.A...YC.23:XC.1:. 600
0.R...."MENU F1 TEKST F3 SAVE F5 PRI
NTER ";.X.......T.. *****************
* CLR MENU...^.YC.23:XC.1:. 6000...H.."
";
:. 39...R.YC.24:. 6000.*.|.."
";:. 38.0....
.D.... ******* STYRE.O.B.. 1800...G.. C(
Q$).6.(T$." ". C(Q$).1.T$.."0".T$.."9").
Q$.Q$.T$:.3200...L.. T$.".". . 4700:. 50
00: . TEKST.P.V.. T$.".". . 3400: . SAVE
...... T$.".". . 7000: . PRINT.2.....(T$
.".").2.(T$.".").3.(T$.".").4.(T$.".").3
310,3330,3350,3370.^.... F(T$).13. C(Q$)
..0. .4100:.2400:.3000...... F(T$).20 .
C(Q$).0 . Q$.H(Q$,C(Q$).1)......********
***** TEKST LINIE.J...YC.24:XC.1:. 6000:
. PRINT AT......">";Q$;" ";.....XC
.8:. 6000...... "<";...... 3000.).... **
********** CURSOR CONTROL.H...COL.COL.1:
. COL.0 . COL.0:. PLA.3 . PLA.PLA.3:COL.
2:. 2000.X....4000:.3200.....COL.COL.1:.
COL.2 . COL.2:. PLA.8 . PLA.PLA.3:COL.0
:. 2000.G....4000:.3200.....LIN.LIN.1:.
LIN.19. LIN.19... ..4000:.3200...*.LIN.L
IN.1:. LIN.1. LIN.1.#.4..4000:.3200.E.H.
. ****************** GEM DATA.A.R.. 8000
:. NAVN PAA FILE.|.\.. 2,8,2,NA$.".TMP,
S,W"...F.. X.1 . 22...P..2,"*".A$(X);G(1
3);...Z.. Y.1 . 13.L....2,"*".C$(X,Y);G(
13);.T.... Y...... X..... 2...... 3800:
. TEST SEQ FILE.%.... ************** SL
ET GAMMEL FIL.2.... 4,8,15.J.J..4,"S:".N
A$.".FILE".N.T..4,"R:".NA$.".FILE=".NA$.
".TMP".V... 4...... 3800: . TEST SEQ FI
LE...... 2800: . MENU.......E.T.. ******
**** HENT FIL...U.. 8000:. NAVN PAA FILE
...V.YC.15:XC.14:. 6000:. PRINT AT.$.X..
G(18);" INDLAESER ";G(146);.@.~.. 2,8,2
,NA$.".FILE,S,R".M.... X.1.22.L....2,A$(
X):A$(X).I(A$(X),10).{.... Y.1 . 13.....
.2,C$(X,Y):C$(X,Y).I(C$(X,Y),6)...... Y,
X..... 2.M.D.. 3800: . TEST SEQ FILE.S.
N.....X.. *********** TEST SEQ FILE.....
.15,8,15......15,EN,EM$,ET,ES..... 15.-
.... EN.0 . ..D.... ".";EN,EM$,ET,ES.J..
...I. .. ***************** CURSOR.....YC
.GLIN:XC.GCOL.7.12:.6000...... G(146);C$
(GLIN,GCOL.PLA);.....GLIN.LIN:GCOL.COL..
.H.YC.LIN:XC.COL.7.12:.6000...R.. G(18);
C$(LIN,COL.PLA);G(146);.......#.... ****
************* SUMME...... 2900.D...YC.24
:XC.1:. 6000.E.".. G(18);" REGNER ";G(
146);...,.. C (Q$).6 . Q$." ".Q$: . 4140
...6.. X.1.6...@.. J(Q$,X,1)." " . . X..
.J.. X.X . 6.T.T.. J(Q$,X,1)." " . ....^
.. X...H.C$(LIN,COL.PLA).Q$...R.Q$."":SU
.0:SM.0...|..X.1 . 12.6.... C$(LIN,X)."
" . . 4250.M...SU.SU.E(C$(LIN,X)).U.
... X.J...Q$.D(SU): . 4990.....C$(LIN,13
).Q$: SU.0 :SM.0...... X.1.5...B.. C$(X
,COL.PLA)." " . .4310.U.L.SU.SU.E(C
$(X,COL.PLA))...V.. X.....Q$.D(SU):. 499
0.....C$(21,COL.PLA).Q$:Q$.""......X.6.1
9.>.... C$(X,COL.PLA)." " . .4370.Y
...SM.SM.E(C$(X,COL.PLA)).A.... X.U...Q$
.D(SM):. 4990...&.C$(20,COL.PLA).Q$:Q$."
"...0.Q$.D(SU.SM):. 4990...:.C$(22,COL.P
LA).Q$.L.D.SU.0:SM.0.V.I.T$.""...N.. X.1
. 12...X.. C$(20,X)." " . . 4470..
.L.SU.SU.E(C$(20,X)).=.V.. C$(21,X)."
" . . 4515.S...SM.SM.E(C$(21,X)).....
. C$(20,X)."******" . C$(21,X)."******"
. . 4615:....... X.....Q$.D(SU):. 4990..
...C$(20,13).Q$.K.F.Q$.D(SM):. 4990...P.
C$(21,13).Q$...Z.Q$.D(SM.SU):. 4990.....
C$(22,13).Q$.....Q$."":SU.0:SM.0./.... 2
600:. BILLEDE 3.5.....O.... *** BALANCE
OVERL0B.F...C$(20,13)."******".}...C$(21
,13)."******"... .C$(22,13)."******"...*
.. 2600:Q$."":..J.\.. REM ******** SLET
TAL CURSOR...F.YC.GLIN:XC.GCOL.7.12:. 60
00.. P.. G(146);C$(GLIN,GCOL.PLA);.. Z..
.4 ~.. *************** H0JRE STILLER.Y .
.. H(Q$,1)." " . Q$.I(Q$,C(Q$).1).O ...
Q$."0" . Q$."".. ... C(Q$).6 . Q$." ".Q
$:.4993.. ... C(Q$).6 . Q$."******".. ..
..Q ... ************ TEKST EDITOR.. ...
2900: . CLR MENU..!..YC.23:XC.1:. 6000:.
PRINT AT.)!..."MENU: F1 RETUR TIL MENU"
;.D!... 5800 :. TEKST CURSOR.N!...5120.B
!... 1800 :. INKEY..!D.. T$."." . . 5900
:. :. AFSLUT+MENU..!N.. F(T$).20 . C(Q$
).0 . Q$.H(Q$,C(Q$).1)..!X.. F(T$).13 .
C(Q$).0 . . 5700 :.5000 :. GEM+MENU.'"..
. T$."." . TLIN.19 . T$."." . TLIN.1 . .
5800: . CURSOR.Y"... T$.." " . T$.."]"
. Q$.Q$.T$: . LEGALT TEGN.I"..Q$.H(Q$,10
).."..YC.24:XC.1:. 6000:. PRINT AT.."...
">";Q$;" ";:. 10.L"..YC.24:XC.
12:. 6000:. PRINT AT.W"... "<";.."(.. 50
50..#D.. ****************** GEM TEKST.%#
N.. C(Q$).10. Q$.Q$." ":.5710.;#X.A$(TLI
N).Q$:Q$."".]#B.YC.TLIN:XC.1:.6000:. PRI
NT AT.M#L.. A$(TLIN);..#..TLIN.TLIN.(TLI
N.19)..#... TLIN.19 . GTLIN.2..#....E#..
. ************** CURSOR TEKST..#..TLIN.T
LIN.(T$.".").(T$.".")..$..YC. TLIN:XC.1:
.6000:. PRINTAT.$$F.. G(18);A$(TLIN);G(1
46);.F$P.YC.GTLIN:XC.1:.6000:. PRINTAT.W
$Z.. A$(GTLIN);.F$..GTLIN.TLIN.L$.....$.
.. ***********SLET TEKST CURSOR..$..YC.T
LIN:XC.1:. 6000 :. PRINT AT.B$ ..A$(TLIN
);.M$*.. 2900.X$4.. 2800..$9.. 4000..$>.
TLIN.1:GTLIN.2:Q$.""..%H..."%P..********
********* PRINT AT..%Z..781,YC.:%...782,
XC.E%...65520.K%....J%X..***************
** PRINTER.S%Z.SP.6.}%\..2900..%^.YC.23:
XC.1:. 6000..%B.."SKRIVER";..%F.. 8200:.
HALV AAR.E%G..4,4:.4.U%J..X.1.5:.:.X..%
L.. .25.SP);"BUDGET"..%Q.. .25.SP);NA$..
&... Y.0 . 1. &... Z.1 . 4:. : ..1&....S
P);B$(1);.?&... Z.2 . 7.S&..."I";B$(Z.6.
Y);.[&... Z.X&..."I";B$(15.Y);"I";B$(14)
..&...X.1.22..&..TE..1.(43.(X.6).(X.59).
(X.5))..&... .SP);.E&... A$(X);G(TE);..&
A.. C$(X,Y.6.1);G(TE);..&F.. C$(X,Y.6.2)
;G(TE);..'P.. C$(X,Y.6.3);G(TE);.)'Z.. C
$(X,Y.6.4);G(TE);.B'... C$(X,Y.6.5);G(TE
);.['... C$(X,Y.6.6);G(TE);.S'... C$(X,1
4.Y);G(TE);..'... C$(X,13)..'... X,Y..'L
..4,G(12):.4: 4..'Q..2900:.2800..'`...R'
@.. ************ FILE NAVN..'E.Q$.NA$..'
J.. 2900: . CLR MENU..(T.YC.23:XC.1:. 60
00:. PRINT AT.-(^.."SKRIV FILE NAVN";.8(
H.. 8120.L(R.. 1800 :. INKEY.X(... F(T$)
.20 . C(Q$).0 . Q$.H(Q$,C(Q$).1)..(... F
(T$).13 . C(Q$).0 . NA$.Q$:Q$."":. 2900:
...(... T$.." " . T$.."]" . Q$.Q
$.T$: . LEGALT TEGN..(..Q$.H(Q$,10)..)..
YC.24:XC.1:. 6000:. PRINT AT.4)B.. ">";Q
$;" ";:. 10.V)L.YC.24:XC.12:. 6
000:. PRINT AT.A)V.. "<";.L)... 8050..).
. ***** UDREGN 1/2 AARS RESULTAT..)D .
Z.0.1..)N . X.1.19..)S SU.0.G)X . Y.1.Z.
6.6.Z.6..)B . C$(X,Y)." " . .8310..
)L SU.SU.E(C$(X,Y))..*V . Y..*. Q$.D(SU)
:. 4990./*. C$(X,14.Z).Q$:Q$."".=*. SU.0
:SM.0.E*. . X.Y*. . Y.1.Z.6.6.Z.6.Z*. .
C$(20,Y)." " . . 8470..*.!SU.SU.E(C
$(20,Y))..*.!. C$(21,Y)." " . . 851
5.G**!SM.SM.E(C$(21,Y))..*C!. C$(20,Y)."
******" . C$(21,Y)."******" . . 8615..
+H!. Y..+R!Q$.D(SU):. 4990.-+\!C$(20,14.
Z).Q$.A+F!Q$.D(SM):. 4990.T+P!C$(21,14.Z
).Q$.K+Z!Q$.D(SM.SU):. 4990.~+.!C$(22,14
.Z).Q$..+.!Q$."":SU.0:SM.0..+.!. Z. +.!.
..+.!. *** BALANCE OVERL0B.S+.!C$(20,14.
Z)."******"..+.!C$(21,14.Z)."******"..,.
!C$(22,14.Z)."******"..,J!. 8600...
> CLICK IMAGE PREVIEW FOR FULL MODAL