|
DataMuseum.dkPresents historical artifacts from the history of: Zilog MCZ Floppy Disks |
This is an automatic "excavation" of a thematic subset of
Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7495 (0x1d47)
Notes: ZILOG_BASIC
Names: »DEF.NEW.BP«
└─⟦5cd73ff62⟧ Bits:30006813 8" ZilogMCZ floppy NThun_0015 (OPERATOR'S SYSTEM TEXT IN ENGLISH gp)
└─ ⟦this⟧ »DEF.NEW.BP«
└─⟦ac3165007⟧ Bits:30006826 8" ZilogMCZ floppy NThun_0049 (851129 Dig.New.BP Def.New.BP Trans.BP)
└─ ⟦this⟧ »DEF.NEW.BP«
└─⟦ec2a36bc1⟧ Bits:30006815 8" ZilogMCZ floppy NThun_0017 (OPERATIVSYSTEM 1/05 851203)
└─ ⟦this⟧ »DEF.NEW.BP«
0x0000…0014 BasicHead {variables=0x0090, stms=0x05f4, f2=0x16af, f3=0000000000000000000000000000}
0x0014…00a4 [
0x0014…00a4 [0x00]: VarDef {f0=0x1200, f1=0x49, f2=0x2b} L9% 0x23
0x0014…00a4 [0x01]: VarDef {f0=0xffda, f1=0x5f, f2=0x59} FNZ$ 0x22
0x0014…00a4 [0x02]: VarDef {f0=0x08d0, f1=0x4f, f2=0x17} X 0x21
0x0014…00a4 [0x03]: VarDef {f0=0xffda, f1=0x4f, f2=0x01} B 0x20
0x0014…00a4 [0x04]: VarDef {f0=0x0000, f1=0x4f, f2=0x00} A 0x1f
0x0014…00a4 [0x05]: VarDef {f0=0xfee4, f1=0x5f, f2=0x39} FNZ% 0x1e
0x0014…00a4 [0x06]: VarDef {f0=0xffda, f1=0x5f, f2=0x22} FNC% 0x1d
0x0014…00a4 [0x07]: VarDef {f0=0x0100, f1=0x42, f2=0x31} R2% 0x1c
0x0014…00a4 [0x08]: VarDef {f0=0x0b00, f1=0x4f, f2=0x21} B% 0x1b
0x0014…00a4 [0x09]: VarDef {f0=0x0200, f1=0x41, f2=0x25} F1% 0x1a
0x0014…00a4 [0x0a]: VarDef {f0=0x1200, f1=0x41, f2=0x2b} L1% 0x19
0x0014…00a4 [0x0b]: VarDef {f0=0x0100, f1=0x4f, f2=0x31} R% 0x18
0x0014…00a4 [0x0c]: VarDef {f0=0x0100, f1=0x41, f2=0x28} I1% 0x17
0x0014…00a4 [0x0d]: VarDef {f0=0x0000, f1=0x4f, f2=0x37} X% 0x16
0x0014…00a4 [0x0e]: VarDef {f0=0xff04, f1=0x5f, f2=0x27} FNH% 0x15
0x0014…00a4 [0x0f]: VarDef {f0=0x0300, f1=0x48, f2=0x29} J8% 0x14
0x0014…00a4 [0x10]: VarDef {f0=0x0200, f1=0x49, f2=0x29} J9% 0x13
0x0014…00a4 [0x11]: VarDef {f0=0xff20, f1=0x5f, f2=0x51} FNR$ 0x12
0x0014…00a4 [0x12]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2a} K% 0x11
0x0014…00a4 [0x13]: VarDef {f0=0x1200, f1=0x4f, f2=0x2b} L% 0x10
0x0014…00a4 [0x14]: VarDef {f0=0xff24, f1=0x5f, f2=0x42} FNC$ 0xf
0x0014…00a4 [0x15]: VarDef {f0=0xff3c, f1=0x5f, f2=0x2f} FNP% 0xe
0x0014…00a4 [0x16]: VarDef {f0=0x1500, f1=0x4f, f2=0x29} J% 0xd
0x0014…00a4 [0x17]: VarDef {f0=0xff54, f1=0x5f, f2=0x28} FNI% 0xc
0x0014…00a4 [0x18]: VarDef {f0=0x0500, f1=0x4f, f2=0x2d} N% 0xb
0x0014…00a4 [0x19]: VarDef {f0=0xff7c, f1=0x51, f2=0x37} FNX1% 0xa
0x0014…00a4 [0x1a]: VarDef {f0=0x0600, f1=0x4f, f2=0x28} I% 0x9
0x0014…00a4 [0x1b]: VarDef {f0=0xffcc, f1=0x5f, f2=0x37} FNX% 0x8
0x0014…00a4 [0x1c]: VarDef {f0=0x08ba, f1=0x4f, f2=0xa5} F%' 0x7
0x0014…00a4 [0x1d]: VarDef {f0=0x08b4, f1=0x40, f2=0x41} B0$ 0x6
0x0014…00a4 [0x1e]: VarDef {f0=0x0860, f1=0x41, f2=0x40} A1$ 0x5
0x0014…00a4 [0x1f]: VarDef {f0=0x084c, f1=0x42, f2=0x4d} N2$ 0x4
0x0014…00a4 [0x20]: VarDef {f0=0x0838, f1=0x41, f2=0x4d} N1$ 0x3
0x0014…00a4 [0x21]: VarDef {f0=0x06cc, f1=0x4f, f2=0x4d} N$ 0x2
0x0014…00a4 [0x22]: VarDef {f0=0x06be, f1=0x4f, f2=0x41} B$ 0x1
0x0014…00a4 [0x23]: VarDef {f0=0x0000, f1=0x4f, f2=0x40} A$ 0x0
0x0014…00a4 ]
0x00a4…00a8 Statement 39321 @0x1d46
0x00a8…00ac Statement 38672 @0x1d41
0x00ac…00b0 Statement 38656 @0x1d3d
0x00b0…00b4 Statement 36880 @0x1d3b
0x00b4…00b8 Statement 36864 @0x1d07
0x00b8…00bc Statement 30208 @0x1d05
0x00bc…00c0 Statement 30096 @0x1d02
0x00c0…00c4 Statement 30080 @0x1cfc
0x00c4…00c8 Statement 30064 @0x1cf9
0x00c8…00cc Statement 30048 @0x1cf0
0x00cc…00d0 Statement 30032 @0x1ce8
0x00d0…00d4 Statement 30016 @0x1cde
0x00d4…00d8 Statement 30000 @0x1cb3
0x00d8…00dc Statement 29984 @0x1ca8
0x00dc…00e0 Statement 29968 @0x1ca2
0x00e0…00e4 Statement 29952 @0x1c68
0x00e4…00e8 Statement 29760 @0x1c66
0x00e8…00ec Statement 29744 @0x1c63
0x00ec…00f0 Statement 29728 @0x1c4f
0x00f0…00f4 Statement 29712 @0x1c49
0x00f4…00f8 Statement 29701 @0x1c46
0x00f8…00fc Statement 29696 @0x1c0e
0x00fc…0100 Statement 29520 @0x1c0c
0x0100…0104 Statement 29280 @0x1c09
0x0104…0108 Statement 29264 @0x1bf9
0x0108…010c Statement 29248 @0x1be3
0x010c…0110 Statement 29232 @0x1bcb
0x0110…0114 Statement 29216 @0x1bc5
0x0114…0118 Statement 29184 @0x1b7e
0x0118…011c Statement 29008 @0x1b7c
0x011c…0120 Statement 28992 @0x1b77
0x0120…0124 Statement 28976 @0x1b75
0x0124…0128 Statement 28960 @0x1b70
0x0128…012c Statement 28944 @0x1b6d
0x012c…0130 Statement 28934 @0x1b6a
0x0130…0134 Statement 28931 @0x1b5a
0x0134…0138 Statement 28928 @0x1b4b
0x0138…013c Statement 28816 @0x1b41
0x013c…0140 Statement 28800 @0x1b3f
0x0140…0144 Statement 28784 @0x1b3a
0x0144…0148 Statement 28768 @0x1b29
0x0148…014c Statement 28752 @0x1b24
0x014c…0150 Statement 28736 @0x1ae6
0x0150…0154 Statement 28720 @0x1aae
0x0154…0158 Statement 28704 @0x1a7d
0x0158…015c Statement 28688 @0x1a4e
0x015c…0160 Statement 28672 @0x1a16
0x0160…0164 Statement 26400 @0x1a14
0x0164…0168 Statement 26392 @0x19da
0x0168…016c Statement 26390 @0x19d1
0x016c…0170 Statement 26388 @0x19b4
0x0170…0174 Statement 26384 @0x1980
0x0174…0178 Statement 26375 @0x1955
0x0178…017c Statement 26373 @0x1930
0x017c…0180 Statement 26368 @0x192c
0x0180…0184 Statement 26265 @0x18ed
0x0184…0188 Statement 26167 @0x18e9
0x0188…018c Statement 26160 @0x18e7
0x018c…0190 Statement 26144 @0x18e5
0x0190…0194 Statement 26128 @0x18b8
0x0194…0198 Statement 26112 @0x18b6
0x0198…019c Statement 25904 @0x18b3
0x019c…01a0 Statement 25872 @0x18a3
0x01a0…01a4 Statement 25856 @0x189d
0x01a4…01a8 Statement 25753 @0x1852
0x01a8…01ac Statement 24645 @0x184e
0x01ac…01b0 Statement 24624 @0x184c
0x01b0…01b4 Statement 24608 @0x183a
0x01b4…01b8 Statement 24576 @0x1826
0x01b8…01bc Statement 21264 @0x17e7
0x01bc…01c0 Statement 21248 @0x17e3
0x01c0…01c4 Statement 21141 @0x17e1
0x01c4…01c8 Statement 21136 @0x17de
0x01c8…01cc Statement 21120 @0x17d8
0x01cc…01d0 Statement 21088 @0x17d5
0x01d0…01d4 Statement 21072 @0x17b8
0x01d4…01d8 Statement 21056 @0x17b5
0x01d8…01dc Statement 21040 @0x17a1
0x01dc…01e0 Statement 20880 @0x1783
0x01e0…01e4 Statement 20864 @0x1761
0x01e4…01e8 Statement 20848 @0x175b
0x01e8…01ec Statement 20816 @0x1758
0x01ec…01f0 Statement 20800 @0x1753
0x01f0…01f4 Statement 20768 @0x172c
0x01f4…01f8 Statement 20592 @0x1721
0x01f8…01fc Statement 20576 @0x171e
0x01fc…0200 Statement 20560 @0x170e
0x0200…0204 Statement 20496 @0x170d
0x0204…0208 Statement 20480 @0x16fd
0x0208…020c Statement 18832 @0x16e0
0x020c…0210 Statement 18816 @0x16d6
0x0210…0214 Statement 18805 @0x16d3
0x0214…0218 Statement 18800 @0x16d2
0x0218…021c Statement 18784 @0x16cb
0x021c…0220 Statement 18768 @0x16b9
0x0220…0224 Statement 18736 @0x16b6
0x0224…0228 Statement 18720 @0x16b1
0x0228…022c Statement 18688 @0x168e
0x022c…0230 Statement 18576 @0x1682
0x0230…0234 Statement 18480 @0x1674
0x0234…0238 Statement 18464 @0x1666
0x0238…023c Statement 18432 @0x165d
0x023c…0240 Statement 18325 @0x1640
0x0240…0244 Statement 18320 @0x1635
0x0244…0248 Statement 18288 @0x1632
0x0248…024c Statement 18272 @0x162d
0x024c…0250 Statement 18240 @0x1605
0x0250…0254 Statement 18224 @0x15f9
0x0254…0258 Statement 18064 @0x15eb
0x0258…025c Statement 18032 @0x15e2
0x025c…0260 Statement 18021 @0x15c5
0x0260…0264 Statement 18016 @0x15ba
0x0264…0268 Statement 17984 @0x15b7
0x0268…026c Statement 17968 @0x15b2
0x026c…0270 Statement 17936 @0x1585
0x0270…0274 Statement 17920 @0x1579
0x0274…0278 Statement 17744 @0x156b
0x0278…027c Statement 17728 @0x1562
0x027c…0280 Statement 17717 @0x1545
0x0280…0284 Statement 17712 @0x153a
0x0284…0288 Statement 17680 @0x1537
0x0288…028c Statement 17664 @0x1532
0x028c…0290 Statement 17536 @0x1505
0x0290…0294 Statement 17280 @0x14f9
0x0294…0298 Statement 17264 @0x14c4
0x0298…029c Statement 17253 @0x149f
0x029c…02a0 Statement 17248 @0x1496
0x02a0…02a4 Statement 17232 @0x1479
0x02a4…02a8 Statement 17216 @0x1471
0x02a8…02ac Statement 17184 @0x146e
0x02ac…02b0 Statement 17168 @0x1469
0x02b0…02b4 Statement 17152 @0x143f
0x02b4…02b8 Statement 17040 @0x142f
0x02b8…02bc Statement 16976 @0x1423
0x02bc…02c0 Statement 16965 @0x141a
0x02c0…02c4 Statement 16960 @0x13fc
0x02c4…02c8 Statement 16944 @0x13f6
0x02c8…02cc Statement 16928 @0x13f3
0x02cc…02d0 Statement 16912 @0x13ee
0x02d0…02d4 Statement 16896 @0x13e4
0x02d4…02d8 Statement 16784 @0x13bd
0x02d8…02dc Statement 16773 @0x13a4
0x02dc…02e0 Statement 16768 @0x1394
0x02e0…02e4 Statement 16704 @0x1388
0x02e4…02e8 Statement 16688 @0x1386
0x02e8…02ec Statement 16672 @0x1381
0x02ec…02f0 Statement 16656 @0x1375
0x02f0…02f4 Statement 16645 @0x136c
0x02f4…02f8 Statement 16640 @0x134e
0x02f8…02fc Statement 16528 @0x1348
0x02fc…0300 Statement 16512 @0x1345
0x0300…0304 Statement 16496 @0x1340
0x0304…0308 Statement 16480 @0x131b
0x0308…030c Statement 16464 @0x130b
0x030c…0310 Statement 16432 @0x1306
0x0310…0314 Statement 16416 @0x12fd
0x0314…0318 Statement 16405 @0x12f3
0x0318…031c Statement 16402 @0x12ef
0x031c…0320 Statement 16400 @0x12cd
0x0320…0324 Statement 16384 @0x128e
0x0324…0328 Statement 12336 @0x128b
0x0328…032c Statement 12320 @0x1289
0x032c…0330 Statement 12304 @0x125a
0x0330…0334 Statement 12293 @0x1220
0x0334…0338 Statement 12288 @0x121c
0x0338…033c Statement 08800 @0x1219
0x033c…0340 Statement 08784 @0x1213
0x0340…0344 Statement 08773 @0x1210
0x0344…0348 Statement 08768 @0x120d
0x0348…034c Statement 08752 @0x1202
0x034c…0350 Statement 08736 @0x11fc
0x0350…0354 Statement 08725 @0x11f4
0x0354…0358 Statement 08720 @0x11f0
0x0358…035c Statement 08704 @0x11e9
0x035c…0360 Statement 08560 @0x11e6
0x0360…0364 Statement 08544 @0x11d5
0x0364…0368 Statement 08536 @0x11cb
0x0368…036c Statement 08535 @0x11c3
0x036c…0370 Statement 08534 @0x11b4
0x0370…0374 Statement 08533 @0x11a4
0x0374…0378 Statement 08532 @0x119b
0x0378…037c Statement 08530 @0x1166
0x037c…0380 Statement 08529 @0x1164
0x0380…0384 Statement 08528 @0x1160
0x0384…0388 Statement 08464 @0x115d
0x0388…038c Statement 08453 @0x1159
0x038c…0390 Statement 08448 @0x1156
0x0390…0394 Statement 08320 @0x1153
0x0394…0398 Statement 08304 @0x114e
0x0398…039c Statement 08288 @0x1141
0x039c…03a0 Statement 08272 @0x113b
0x03a0…03a4 Statement 08240 @0x1106
0x03a4…03a8 Statement 08224 @0x1104
0x03a8…03ac Statement 08208 @0x1102
0x03ac…03b0 Statement 08192 @0x10c3
0x03b0…03b4 Statement 06528 @0x10c0
0x03b4…03b8 Statement 06464 @0x10bd
0x03b8…03bc Statement 06448 @0x10ba
0x03bc…03c0 Statement 06432 @0x10af
0x03c0…03c4 Statement 06416 @0x10a9
0x03c4…03c8 Statement 06406 @0x10a6
0x03c8…03cc Statement 06405 @0x10a2
0x03cc…03d0 Statement 06402 @0x109b
0x03d0…03d4 Statement 06400 @0x107c
0x03d4…03d8 Statement 06295 @0x107a
0x03d8…03dc Statement 06293 @0x1077
0x03dc…03e0 Statement 06288 @0x1074
0x03e0…03e4 Statement 06272 @0x1071
0x03e4…03e8 Statement 06261 @0x106f
0x03e8…03ec Statement 06240 @0x1068
0x03ec…03f0 Statement 06224 @0x1032
0x03f0…03f4 Statement 06208 @0x102f
0x03f4…03f8 Statement 06192 @0x102c
0x03f8…03fc Statement 06176 @0x1026
0x03fc…0400 Statement 06160 @0x1022
0x0400…0404 Statement 06144 @0x1013
0x0404…0408 Statement 06032 @0x100f
0x0408…040c Statement 06016 @0xff5
0x040c…0410 Statement 06000 @0xff3
0x0410…0414 Statement 05984 @0xff0
0x0414…0418 Statement 05968 @0xfed
0x0418…041c Statement 05957 @0xfdf
0x041c…0420 Statement 05952 @0xfd7
0x0420…0424 Statement 05941 @0xfcb
0x0424…0428 Statement 05936 @0xfc8
0x0428…042c Statement 05925 @0xfb8
0x042c…0430 Statement 05923 @0xfaf
0x0430…0434 Statement 05920 @0xf9e
0x0434…0438 Statement 05904 @0xf98
0x0438…043c Statement 05890 @0xf91
0x043c…0440 Statement 05888 @0xf8a
0x0440…0444 Statement 05781 @0xf7f
0x0444…0448 Statement 05776 @0xf78
0x0448…044c Statement 05760 @0xf3d
0x044c…0450 Statement 05728 @0xf20
0x0450…0454 Statement 05712 @0xf1e
0x0454…0458 Statement 05680 @0xf19
0x0458…045c Statement 05664 @0xf0d
0x045c…0460 Statement 05648 @0xf06
0x0460…0464 Statement 05632 @0xecb
0x0464…0468 Statement 05525 @0xec6
0x0468…046c Statement 05520 @0xea7
0x046c…0470 Statement 05504 @0xea4
0x0470…0474 Statement 05493 @0xe9d
0x0474…0478 Statement 05488 @0xe96
0x0478…047c Statement 05477 @0xe93
0x047c…0480 Statement 05472 @0xe88
0x0480…0484 Statement 05456 @0xe7d
0x0484…0488 Statement 05440 @0xe72
0x0488…048c Statement 05424 @0xe67
0x048c…0490 Statement 05408 @0xe5d
0x0490…0494 Statement 05392 @0xe55
0x0494…0498 Statement 05378 @0xe52
0x0498…049c Statement 05377 @0xe4b
0x049c…04a0 Statement 05376 @0xe48
0x04a0…04a4 Statement 04960 @0xe45
0x04a4…04a8 Statement 04944 @0xe32
0x04a8…04ac Statement 04928 @0xe28
0x04ac…04b0 Statement 04896 @0xe22
0x04b0…04b4 Statement 04880 @0xe1e
0x04b4…04b8 Statement 04864 @0xe17
0x04b8…04bc Statement 04752 @0xe14
0x04bc…04c0 Statement 04742 @0xe0e
0x04c0…04c4 Statement 04741 @0xe04
0x04c4…04c8 Statement 04736 @0xdfd
0x04c8…04cc Statement 04720 @0xdf8
0x04cc…04d0 Statement 04709 @0xdf0
0x04d0…04d4 Statement 04704 @0xded
0x04d4…04d8 Statement 04688 @0xde0
0x04d8…04dc Statement 04672 @0xdda
0x04dc…04e0 Statement 04656 @0xdd7
0x04e0…04e4 Statement 04645 @0xdc8
0x04e4…04e8 Statement 04624 @0xdc5
0x04e8…04ec Statement 04608 @0xdc0
0x04ec…04f0 Statement 04448 @0xdb5
0x04f0…04f4 Statement 04416 @0xd88
0x04f4…04f8 Statement 04400 @0xd86
0x04f8…04fc Statement 04384 @0xd5a
0x04fc…0500 Statement 04373 @0xd24
0x0500…0504 Statement 04368 @0xce3
0x0504…0508 Statement 04357 @0xce1
0x0508…050c Statement 04355 @0xcdb
0x050c…0510 Statement 04354 @0xcd8
0x0510…0514 Statement 04352 @0xcbd
0x0514…0518 Statement 04240 @0xcba
0x0518…051c Statement 04229 @0xcb4
0x051c…0520 Statement 04224 @0xcb0
0x0520…0524 Statement 04192 @0xca6
0x0524…0528 Statement 04176 @0xc9f
0x0528…052c Statement 04169 @0xc9d
0x052c…0530 Statement 04168 @0xc69
0x0530…0534 Statement 04165 @0xc67
0x0534…0538 Statement 04164 @0xc1c
0x0538…053c Statement 04163 @0xbd0
0x053c…0540 Statement 04162 @0xbca
0x0540…0544 Statement 04161 @0xbc7
0x0544…0548 Statement 04160 @0xbc1
0x0548…054c Statement 04144 @0xbbd
0x054c…0550 Statement 04128 @0xbaa
0x0550…0554 Statement 04112 @0xba5
0x0554…0558 Statement 04096 @0xb84
0x0558…055c Statement 02448 @0xb7e
0x055c…0560 Statement 02128 @0xb7d
0x0560…0564 Statement 02112 @0xb7a
0x0564…0568 Statement 02096 @0xb77
0x0568…056c Statement 02080 @0xb6e
0x056c…0570 Statement 02069 @0xb6b
0x0570…0574 Statement 02064 @0xb62
0x0574…0578 Statement 02053 @0xb5e
0x0578…057c Statement 02048 @0xb58
0x057c…0580 Statement 01936 @0xb57
0x0580…0584 Statement 01925 @0xb54
0x0584…0588 Statement 01872 @0xb3e
0x0588…058c Statement 01856 @0xafa
0x058c…0590 Statement 01840 @0xae4
0x0590…0594 Statement 01824 @0xa99
0x0594…0598 Statement 01808 @0xa95
0x0598…059c Statement 01792 @0xa92
0x059c…05a0 Statement 01601 @0xa91
0x05a0…05a4 Statement 01589 @0xa8e
0x05a4…05a8 Statement 01584 @0xa8b
0x05a8…05ac Statement 01573 @0xa82
0x05ac…05b0 Statement 01568 @0xa7c
0x05b0…05b4 Statement 01552 @0xa71
0x05b4…05b8 Statement 01536 @0xa6d
0x05b8…05bc Statement 01280 @0xa4e
0x05bc…05c0 Statement 01157 @0xa4d
0x05c0…05c4 Statement 01152 @0xa4a
0x05c4…05c8 Statement 01141 @0xa47
0x05c8…05cc Statement 01136 @0xa0c
0x05cc…05d0 Statement 01125 @0xa06
0x05d0…05d4 Statement 01120 @0xa03
0x05d4…05d8 Statement 01104 @0xa02
0x05d8…05dc Statement 01088 @0x9ff
0x05dc…05e0 Statement 01072 @0x9fc
0x05e0…05e4 Statement 01056 @0x9e1
0x05e4…05e8 Statement 01040 @0x9db
0x05e8…05ec Statement 01024 @0x9d8
0x05ec…05f0 Statement 00784 @0x9d7
0x05f0…05f4 Statement 00768 @0x9d4
0x05f4…05f8 Statement 00640 @0x9d1
0x05f8…05fc Statement 00608 @0x9a6
0x05fc…0600 Statement 00592 @0x96f
0x0600…0604 Statement 00581 @0x946
0x0604…0608 Statement 00576 @0x940
0x0608…060c Statement 00560 @0x902
0x060c…0610 Statement 00549 @0x8fe
0x0610…0614 Statement 00544 @0x8fa
0x0614…0618 Statement 00528 @0x8f9
0x0618…061c Statement 00512 @0x8f6
0x061c…0620 Statement 00400 @0x8e0
0x0620…0624 Statement 00389 @0x8d5
0x0624…0628 Statement 00384 @0x8cc
0x0628…062c Statement 00368 @0x8bc
0x062c…0630 Statement 00357 @0x8ba
0x0630…0634 Statement 00352 @0x89e
0x0634…0638 Statement 00336 @0x860
0x0638…063c Statement 00325 @0x85e
0x063c…0640 Statement 00320 @0x842
0x0640…0644 Statement 00304 @0x809
0x0644…0648 Statement 00293 @0x807
0x0648…064c Statement 00288 @0x7eb
0x064c…0650 Statement 00272 @0x7d7
0x0650…0654 Statement 00261 @0x7ae
0x0654…0658 Statement 00260 @0x7ac
0x0658…065c Statement 00259 @0x793
0x065c…0660 Statement 00258 @0x776
0x0660…0664 Statement 00256 @0x772
0x0664…0668 Statement 00144 @0x74f
0x0668…066c Statement 00064 @0x728
0x066c…0670 Statement 00053 @0x71b
0x0670…0674 Statement 00048 @0x6ed
0x0674…0678 Statement 00037 @0x6de
0x0678…067c Statement 00032 @0x6d6
0x067c…0680 Statement 00024 @0x6ce
0x0680…0684 Statement 00021 @0x6c4
0x0684…0688 Statement 00020 @0x6bc
0x0688…068c Statement 00019 @0x6b4
0x068c…0690 Statement 00018 @0x6ab
0x0690…0694 Statement 00017 @0x6a3
0x0694…0698 Statement 00016 @0x698
0x0698…06a3 0010 DIM ELEMENT var(A$) ( 21 %80 ) [] EOS
0x06a3…06ab 0011 DIM ELEMENT var(B$) ( 10 ) [] EOS
0x06ab…06b4 0012 DIM ELEMENT var(N$) ( 20 16 ) [] EOS
0x06b4…06bc 0013 DIM ELEMENT var(N1$) ( 16 ) [] EOS
0x06bc…06c4 0014 DIM ELEMENT var(N2$) ( 16 ) [] EOS
0x06c4…06ce 0015 DIM ELEMENT var(A1$) ( %80 ) [] EOS
0x06ce…06d6 0018 DIM ELEMENT var(B0$) ( 2 ) [] EOS
0x06d6…06de 0020 DIM ELEMENT var(F%') ( 9 ) [] EOS
0x06de…06ed 0025 SYSTEM »LINELEN« COMMA %255 EOS
0x06ed…071b 0030 LET ELEMENT var(F%') ( 1 ) [] COMMA 2 COMMA ELEMENT var(F%') ( 2 ) [] COMMA 6 COMMA ELEMENT var(F%') ( 3 ) [] COMMA 15 COMMA ELEMENT var(F%') ( 4 ) [] COMMA 24 COMMA ELEMENT var(F%') ( 5 ) [] COMMA 32 EOS
0x071b…0728 0035 LET var(B0$) COMMA = ( 27 ) → af700145e2f3
0x0728…074f 0040 LET ELEMENT var(F%') ( 6 ) [] COMMA 40 COMMA ELEMENT var(F%') ( 7 ) [] COMMA 48 COMMA ELEMENT var(F%') ( 8 ) [] COMMA 56 COMMA ELEMENT var(F%') ( 9 ) [] COMMA %64 EOS
0x074f…0772 0090 REM INPUT NY PLOTTEPARAMETER-LINJE
0x0772…0776 0100 DEF var(FNX%) var(I%) EOS
0x0776…0793 0102 PRINT var(B0$) SEMI » RETTING AV :« SEMI ELEMENT var(A$) ( var(I%) 1 26 ) [] EOS
0x0793…07ac 0103 PRINT » RETURN=GAMMEL VERDI« EOS
0x07ac…07ae 0104 PRINT EOS
0x07ae…07d7 0105 IF = ( ELEMENT var(A$) ( var(I%) ) [] ) LEN %74 ?< COMMA 27 ELEMENT var(A$) ( var(I%) %73 %80 ) [] COMMA » « EOS
0x07d7…07eb 0110 INPUT » Penn (1-6) : « COMMA var(B$) EOS
0x07eb…0807 0120 IF var(B$) »« <> COMMA 27 ELEMENT var(A$) ( var(I%) %74 %74 ) [] COMMA ELEMENT var(B$) ( 1 1 ) [] EOS
0x0807…0809 0125 PRINT EOS
0x0809…0842 0130 INPUT » Linje (0-6,0=Heltrukket) eller symbolh|yde i mm : « COMMA var(B$) EOS
0x0842…085e 0140 IF var(B$) »« <> COMMA 27 ELEMENT var(A$) ( var(I%) %75 %75 ) [] COMMA ELEMENT var(B$) ( 1 1 ) [] EOS
0x085e…0860 0145 PRINT EOS
0x0860…089e 0150 INPUT » Behandling (0,Blank=Ingen,1=Hus,2=Parallell,3=Begge) : « COMMA var(B$) EOS
0x089e…08ba 0160 IF var(B$) »« <> COMMA 27 ELEMENT var(A$) ( var(I%) %76 %76 ) [] COMMA ELEMENT var(B$) ( 1 1 ) [] EOS
0x08ba…08bc 0165 PRINT EOS
0x08bc…08cc 0170 INPUT » Symbol : « COMMA var(B$) EOS
0x08cc…08d5 0180 IF var(B$) »« EQ COMMA 5 0 EOS
0x08d5…08e0 0185 LET var(B$) COMMA var(B$) » « PLUS EOS
0x08e0…08f6 0190 LET ELEMENT var(A$) ( var(I%) %78 %80 ) [] COMMA ELEMENT var(B$) ( 1 3 ) [] EOS
0x08f6…08f9 0200 RETURN 0 EOS
0x08f9…08fa 0210 FNEND
0x08fa…08fe 0220 DEF var(FNX1%) var(N%) EOS
0x08fe…0902 0225 PRINT var(B0$) SEMI EOS
0x0902…0940 0230 PRINT » NR NAVN KODE PENN LINJE BEHANDLING SYMBOL« EOS
0x0940…0946 0240 194a01f14cf3
0x0946…096f 0245 IF = ( ELEMENT var(A$) ( var(I%) ) [] ) LEN %74 ?< COMMA 27 ELEMENT var(A$) ( var(I%) %73 %80 ) [] COMMA » « EOS
0x096f…09a6 0250 PRINT ELEMENT var(A$) ( var(I%) 1 26 ) [] SEMI » « SEMI ELEMENT var(A$) ( var(I%) %74 %74 ) [] SEMI » « SEMI ELEMENT var(A$) ( var(I%) %75 %75 ) [] SEMI EOS
0x09a6…09d1 0260 PRINT » « SEMI ELEMENT var(A$) ( var(I%) %76 %76 ) [] SEMI » « SEMI ELEMENT var(A$) ( var(I%) %78 %80 ) [] EOS
0x09d1…09d4 0280 1a4af3
0x09d4…09d7 0300 RETURN 0 EOS
0x09d7…09d8 0310 FNEND
0x09d8…09db 0400 DEF var(FNI%) EOS
0x09db…09e1 0410 194e01f114f3
0x09e1…09fc 0420 LET ELEMENT var(N$) ( var(J%) ) [] COMMA » « EOS
0x09fc…09ff 0430 1a4ef3
0x09ff…0a02 0440 RETURN 0 EOS
0x0a02…0a03 0450 FNEND
0x0a03…0a06 0460 DEF var(FNP%) EOS
0x0a06…0a0c 0465 194a01f105f3
0x0a0c…0a47 0470 PRINT = ( 6 ) → b5f27243734a749ff271731874b5f27243734a05e2749ff271732a74b5f27243734a0ae2749ff271733c74b5f27243734a0fe2749ff3
0x0a47…0a4a 0475 1a4af3
0x0a4a…0a4d 0480 RETURN 0 EOS
0x0a4d…0a4e 0485 FNEND
0x0a4e…0a6d 0500 DEF var(FNC$) var(L%) var(K%) 5 = ( 27 ) → af700159e271732151e274afe271731f52e274afe2f3
0x0a6d…0a71 0600 DEF var(FNR$) var(I%) EOS
0x0a71…0a7c 0610 LET var(J9%) COMMA var(I%) = ( var(B$) ) LEN SUB2 EOS
0x0a7c…0a82 0620 195501f154f3
0x0a82…0a8b 0625 LET var(B$) COMMA » « var(B$) PLUS EOS
0x0a8b…0a8e 0630 1a55f3
0x0a8e…0a91 0635 RETURN var(B$) EOS
0x0a91…0a92 0641 FNEND
0x0a92…0a95 0700 DEF var(FNH%) EOS
0x0a95…0a99 0710 PRINT var(B0$) SEMI EOS
0x0a99…0ae4 0720 PRINT » -- M A P D A T F O T O G R A M M E T R I ---------- viak a/s --« EOS
0x0ae4…0afa 0730 PRINT » |« SEMI = ( %70 ) → b5f270017cf3
0x0afa…0b3e 0740 PRINT » | S T E R E O D I G vers. 3.0« SEMI = ( %70 ) → b5f270017cf3
0x0b3e…0b54 0750 PRINT » |« SEMI = ( %70 ) → b5f270017cf3
0x0b54…0b57 0785 RETURN 0 EOS
0x0b57…0b58 0790 FNEND
0x0b58…0b5e 0800 DEF var(FNZ%) var(B$) var(A) var(B) EOS
0x0b5e…0b62 0805 TRAP ERR 0830
0x0b62…0b6b 0810 LET var(X) COMMA = ( var(B$) ) VAL EOS
0x0b6b…0b6e 0815 TRAP ERR OFF
0x0b6e…0b77 0820 RETURN var(X) var(A) → eb6261e9edf3
0x0b77…0b7a 0830 TRAP ERR OFF
0x0b7a…0b7d 0840 RETURN 0 EOS
0x0b7d…0b7e 0850 FNEND
0x0b7e…0b84 0990 LET var(X%) COMMA = var(FNI%) EOS
0x0b84…0ba5 1000 REM **** START MAIN PROGRAM ****
0x0ba5…0baa 1010 LET var(N%) COMMA 0 EOS
0x0baa…0bbd 1020 1601f2700d302f5441424c452e4e414d4553f3
0x0bbd…0bc1 1030 TRAP 0 3000
0x0bc1…0bc7 1040 LINPUT 1# SEMI var(N1$) EOS
0x0bc7…0bca 1041 TRAP 0 OFF
0x0bca…0bd0 1042 LET var(X%) COMMA = var(FNH%) EOS
0x0bd0…0c1c 1043 PRINT » | Program : D E F -- Definisjon av tabeller. |« EOS
0x0c1c…0c67 1044 PRINT » -----------------------------------------------------------------« EOS
0x0c67…0c69 1045 PRINT EOS
0x0c69…0c9d 1048 PRINT » Tilgjengelige tabeller pa denne disketten :« EOS
0x0c9d…0c9f 1049 PRINT EOS
0x0c9f…0ca6 1050 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x0ca6…0cb0 1060 LET ELEMENT var(N$) ( var(N%) ) [] COMMA var(N1$) EOS
0x0cb0…0cb4 1080 TRAP 0 1100
0x0cb4…0cba 1085 LINPUT 1# SEMI var(N1$) EOS
0x0cba…0cbd 1090 GOTO var(FNC$) 16
0x0cbd…0cd8 1100 REM ** MENU TABLE NAMES **
0x0cd8…0cdb 1102 TRAP 0 OFF
0x0cdb…0ce1 1103 LET var(X%) COMMA = var(FNP%) EOS
0x0ce1…0ce3 1105 PRINT EOS
0x0ce3…0d24 1110 PRINT » M E N Y : 1. ..... Retting av tabell / Ny tabell.« EOS
0x0d24…0d5a 1115 PRINT » 2. ..... Sletting av tabell.« EOS
0x0d5a…0d86 1120 PRINT » 3. ..... Exit DEF.« EOS
0x0d86…0d88 1130 PRINT EOS
0x0d88…0db5 1140 INPUT » VELG NR. ....... : « COMMA var(I1%) EOS
0x0db5…0dc0 1160 ON var(I1%) COMMA 0 0 18 0 32 0 → 90f3
0x0dc0…0dc5 1200 LET var(L%) COMMA 0 EOS
0x0dc5…0dc8 1210 GOSUB 0 var(B0x65)
0x0dc8…0dd7 1225 1602f27002302f45e270022e54e2f3
0x0dd7…0dda 1230 GOSUB 0 var(B0x67)
0x0dda…0de0 1240 194a01f14cf3
0x0de0…0ded 1250 IF ELEMENT var(N$) ( var(I%) ) [] var(N2$) EQ COMMA 0 0 19
0x0ded…0df0 1260 1a4af3
0x0df0…0df8 1265 IF var(N%) 20 EQ COMMA 0 0 16
0x0df8…0dfd 1270 LET var(L%) COMMA 1 EOS
0x0dfd…0e04 1280 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x0e04…0e0e 1285 LET ELEMENT var(N$) ( var(N%) ) [] COMMA var(N2$) EOS
0x0e0e…0e14 1286 PRINT 1# SEMI var(N2$) EOS
0x0e14…0e17 1290 GOTO 0 21
0x0e17…0e1e 1300 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x0e1e…0e22 1310 TRAP 0 1500
0x0e22…0e28 1320 LINPUT 2# SEMI var(A1$) EOS
0x0e28…0e32 1340 LET ELEMENT var(A$) ( var(L%) ) [] COMMA var(A1$) EOS
0x0e32…0e45 1350 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$) ( var(L%) 1 %72 ) [] PLUS EOS
0x0e45…0e48 1360 GOTO 0 19
0x0e48…0e4b 1500 TRAP 0 OFF
0x0e4b…0e52 1501 LET var(L9%) COMMA var(L%) 1 SUB2 EOS
0x0e52…0e55 1502 GOSUB 0 var(A0x03)
0x0e55…0e5d 1510 IF var(R%) 0 EQ COMMA 0 »\x03Bp«soh»C\xe7\xf1«soh»\x90\x15\x04\x03Bp«soh»D\xe7\xf1«soh»`\x16«
0x0e5d…0e67 1520 IF var(B$) »C« EQ COMMA 1 → 9015
0x0e67…0e72 1530 ELSE 3 var(B$) »D« EQ COMMA 1 var(A) 22
0x0e72…0e7d 1540 ELSE 3 var(B$) »H« EQ COMMA 1 → 8017
0x0e7d…0e88 1550 ELSE 3 var(B$) »E« EQ COMMA 0 0 25
0x0e88…0e93 1560 ELSE 3 var(B$) »P« EQ COMMA 1 0 USING
0x0e93…0e96 1565 GOTO 0 21
0x0e96…0e9d 1570 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x0e9d…0ea4 1575 LET var(L9%) COMMA var(L9%) 1 PLUS EOS
0x0ea4…0ea7 1580 GOTO 0 21
0x0ea7…0ec6 1590 REM ---- CASE: CORRECTION ----
0x0ec6…0ecb 1595 LET var(L1%) COMMA var(L%) EOS
0x0ecb…0f06 1600 PRINT = ( 21 1 ) var(FNC$) » Retting av linje nummer ........... :« PLUS SEMI EOS
0x0f06…0f0d 1610 INPUT » « COMMA var(L%) EOS
0x0f0d…0f19 1620 IF var(L%) 0 > var(L%) var(L9%) → e9edf1010040
0x0f19…0f1e 1630 LET var(L%) COMMA var(L1%) EOS
0x0f1e…0f20 1650 RETURN EOS
0x0f20…0f3d 1660 REM ---- CASE: DELETE ------
0x0f3d…0f78 1680 PRINT = ( 21 1 ) var(FNC$) » Slett linje nummer ................ :« PLUS SEMI EOS
0x0f78…0f7f 1690 INPUT » « COMMA var(L1%) EOS
0x0f7f…0f8a 1695 IF var(L1%) 1 ?< var(L1%) var(L9%) > OR COMMA 5 EOS
0x0f8a…0f91 1700 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x0f91…0f98 1702 LET var(L9%) COMMA var(L9%) 1 SUB2 EOS
0x0f98…0f9e 1710 194a5af151f3
0x0f9e…0faf 1720 LET ELEMENT var(A$) ( var(I%) ) [] COMMA ELEMENT var(A$) ( var(I%) 1 PLUS ) [] EOS
0x0faf…0fb8 1723 LET var(B$) COMMA = ( var(I%) ) → b0f3
0x0fb8…0fc8 1725 LET ELEMENT var(A$) ( var(I%) 2 5 ) [] COMMA = ( 4 ) var(FNR$) EOS
0x0fc8…0fcb 1730 1a4af3
0x0fcb…0fd7 1735 IF var(L%) var(L9%) EQ COMMA 27 var(L%) COMMA var(L%) 1 PLUS EOS
0x0fd7…0fdf 1740 194a01f16f5000f3
0x0fdf…0fed 1745 LET ELEMENT var(A$) ( var(L%) var(I%) var(I%) ) [] COMMA » « EOS
0x0fed…0ff0 1750 1a4af3
0x0ff0…0ff3 1760 GOSUB 0 )
0x0ff3…0ff5 1770 RETURN EOS
0x0ff5…100f 1780 REM ---- CASE: HELP -----
0x100f…1013 1790 TRAP 0 1850
0x1013…1022 1800 1605f27009302f54414248454c50f3
0x1022…1026 1810 PRINT var(B0$) SEMI EOS
0x1026…102c 1820 LINPUT 5# SEMI var(A1$) EOS
0x102c…102f 1830 PRINT var(A1$) EOS
0x102f…1032 1840 GOTO 32 24
0x1032…1068 1850 PRINT » Trykk RETURN for a ga videre.« EOS
0x1068…106f 1860 INPUT » « COMMA var(A1$) EOS
0x106f…1071 1875 PRINT EOS
0x1071…1074 1880 1405f3
0x1074…1077 1890 TRAP 0 OFF
0x1077…107a 1895 GOSUB 0 )
0x107a…107c 1897 RETURN EOS
0x107c…109b 1900 REM ---- CASE: EXIT TABLE ----
0x109b…10a2 1902 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x10a2…10a6 1905 RESTORE 2# EOS
0x10a6…10a9 1906 2002f3
0x10a9…10af 1910 194a01f164f3
0x10af…10ba 1920 PRINT 2# SEMI ELEMENT var(A$) ( var(I%) ) [] EOS
0x10ba…10bd 1930 1a4af3
0x10bd…10c0 1940 1402f3
0x10c0…10c3 1980 GOTO 0 16
0x10c3…1102 2000 REM vvvvvvvvvvvvvvv SEQUENCE TO DELETE TABLE VVVVVVVVVVVVVVVVV
0x1102…1104 2010 PRINT EOS
0x1104…1106 2020 PRINT EOS
0x1106…113b 2030 INPUT » Gi navn pa tabell som skal slettes .... :« COMMA var(N2$) EOS
0x113b…1141 2050 194a01f14cf3
0x1141…114e 2060 IF var(N2$) ELEMENT var(N$) ( var(I%) ) [] <> COMMA 0 0 33
0x114e…1153 2070 LET var(J%) COMMA var(I%) EOS
0x1153…1156 2080 GOTO var(FNC$) 33
0x1156…1159 2100 1a4af3
0x1159…115d 2105 RESTORE 1# EOS
0x115d…1160 2110 GOTO 0 16
0x1160…1164 2150 TRAP ERR 2158
0x1164…1166 2151 PRINT EOS
0x1166…119b 2152 INPUT » Er du sikker ? .................. (J/N) :« COMMA var(B$) EOS
0x119b…11a4 2154 IF var(B$) »« EQ COMMA 0 5 33
0x11a4…11b4 2155 IF ELEMENT var(B$) ( 1 1 ) [] »J« <> COMMA 0 5 33
0x11b4…11c3 2156 1e737243734e749f70022e54e274f3
0x11c3…11cb 2157 IF var(J%) var(N%) EQ COMMA 0 0 34
0x11cb…11d5 2158 194a4ef1734c01e374f3
0x11d5…11e6 2160 LET ELEMENT var(N$) ( var(I%) ) [] COMMA ELEMENT var(N$) ( var(I%) 1 PLUS ) [] EOS
0x11e6…11e9 2170 1a4af3
0x11e9…11f0 2200 LET var(N%) COMMA var(N%) 1 SUB2 EOS
0x11f0…11f4 2210 RESTORE 1# EOS
0x11f4…11fc 2215 IF var(N%) 0 EQ COMMA 0 var(N2$) 34
0x11fc…1202 2220 194a01f14cf3
0x1202…120d 2230 PRINT 1# SEMI ELEMENT var(N$) ( var(I%) ) [] EOS
0x120d…1210 2240 1a4af3
0x1210…1213 2245 2001f3
0x1213…1219 2250 LET var(X%) COMMA = var(FNI%) EOS
0x1219…121c 2260 GOTO 0 16
0x121c…1220 3000 PRINT var(B0$) SEMI EOS
0x1220…125a 3005 PRINT » Denne disketten har ingen tilgjengelige tabeller.« EOS
0x125a…1289 3010 PRINT »===========================================« EOS
0x1289…128b 3020 PRINT EOS
0x128b…128e 3030 GOTO 0 17
0x128e…12cd 4000 REM VVVVVVVVVVVVVVV INPUT ROUTINE FOR ONE LINE VVVVVVVVVVVVVVV
0x12cd…12ef 4010 REM *** PRINT NUMBER ************
0x12ef…12f3 4012 TRAP ESC 5280
0x12f3…12fd 4015 IF var(L%) 21 > COMMA 27 var(L%) COMMA 21 EOS
0x12fd…1306 4020 LET var(B$) COMMA = ( var(L%) ) → b0f3
0x1306…130b 4030 LET var(R%) COMMA 0 EOS
0x130b…131b 4050 LET ELEMENT var(A$) ( var(L%) 2 5 ) [] COMMA = ( 4 ) var(FNR$) EOS
0x131b…1340 4060 REM ----- INPUT NAME OR COMMAND-----
0x1340…1345 4070 LET var(F1%) COMMA 2 EOS
0x1345…1348 4080 GOSUB 0 var(A)
0x1348…134e 4090 INPUT »« COMMA var(B$) EOS
0x134e…136c 4100 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) 6 14 ) [] » « <> AND COMMA 0 → 9041
0x136c…1375 4105 IF var(B$) »« EQ COMMA 0 var(A) var(A0x03)
0x1375…1381 4110 IF = ( var(B$) ) LEN 1 <> COMMA 0 var(A0x41)
0x1381…1386 4120 LET var(R%) COMMA 1 EOS
0x1386…1388 4130 RETURN EOS
0x1388…1394 4140 IF = ( var(B$) ) LEN 8 > COMMA 0 var(A) var(A0x1b)
0x1394…13a4 4180 LET ELEMENT var(A$) ( var(L%) 6 14 ) [] COMMA = ( 9 ) var(FNR$) EOS
0x13a4…13bd 4185 IF ELEMENT var(A$) ( var(L%) 6 14 ) [] » « EQ COMMA 0 var(A) var(A0x0b)
0x13bd…13e4 4190 REM -------- INPUT THEMATIC CODE -----
0x13e4…13ee 4200 IF var(L%) var(L9%) > COMMA 27 var(L9%) COMMA var(L%) EOS
0x13ee…13f3 4210 LET var(F1%) COMMA 3 EOS
0x13f3…13f6 4220 GOSUB 0 var(A)
0x13f6…13fc 4230 INPUT »« COMMA var(B$) EOS
0x13fc…141a 4240 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) 15 23 ) [] » « <> AND COMMA 0 0 var(N$)
0x141a…1423 4245 IF var(B$) »« EQ COMMA 0 → 9041
0x1423…142f 4250 IF = ( var(B$) ) LEN 8 > COMMA 0 → 9041
0x142f…143f 4290 LET ELEMENT var(A$) ( var(L%) 15 23 ) [] COMMA = ( 9 ) var(FNR$) EOS
0x143f…1469 4300 REM ----------- INPUT DIG.MODE ----------
0x1469…146e 4310 LET var(F1%) COMMA 4 EOS
0x146e…1471 4320 GOSUB 0 var(A)
0x1471…1479 4340 INPUT » « COMMA var(B$) EOS
0x1479…1496 4350 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) 24 31 ) [] » « <> AND COMMA 0 → 8044
0x1496…149f 4360 LET var(B$) COMMA = ( 8 ) var(FNR$) EOS
0x149f…14c4 4365 IF = ( »11,21,22,23,24,31« ELEMENT var(B$) ( 7 8 ) [] ) → ae00e7f1000043
0x14c4…14f9 4370 IF = ( »22,23,24« ELEMENT var(B$) ( 7 8 ) [] ) → ae00ecf10371737242730406749f016e0300000000000083745f00e7f1000043
0x14f9…1505 4380 LET ELEMENT var(A$) ( var(L%) 24 31 ) [] COMMA var(B$) EOS
0x1505…1532 4480 REM -------- INPUT SHORT EXTRA PEDAL -------
0x1532…1537 4500 LET var(F1%) COMMA 5 EOS
0x1537…153a 4510 GOSUB 0 var(A)
0x153a…1545 4530 INPUT » « COMMA var(B$) EOS
0x1545…1562 4535 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) 32 39 ) [] » « <> AND COMMA 0 16 var(A1$)
0x1562…156b 4540 LET var(B$) COMMA = ( 8 ) var(FNR$) EOS
0x156b…1579 4550 IF = ( var(B$) 0 20 ) var(FNZ%) 0 EQ COMMA 0 → 8044
0x1579…1585 4600 LET ELEMENT var(A$) ( var(L%) 32 39 ) [] COMMA var(B$) EOS
0x1585…15b2 4610 REM ------- INPUT LONG EXTRA PEDAL ---------
0x15b2…15b7 4630 LET var(F1%) COMMA 6 EOS
0x15b7…15ba 4640 GOSUB 0 var(A)
0x15ba…15c5 4660 INPUT » « COMMA var(B$) EOS
0x15c5…15e2 4665 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) 40 47 ) [] » « <> AND COMMA 0 var(A0x47)
0x15e2…15eb 4670 LET var(B$) COMMA = ( 8 ) var(FNR$) EOS
0x15eb…15f9 4690 IF = ( var(B$) 0 20 ) var(FNZ%) 0 EQ COMMA 0 16 var(A1$)
0x15f9…1605 4730 LET ELEMENT var(A$) ( var(L%) 40 47 ) [] COMMA var(B$) EOS
0x1605…162d 4740 REM ------- INPUT WRITING CODE --------
0x162d…1632 4760 LET var(F1%) COMMA 7 EOS
0x1632…1635 4770 GOSUB 0 var(A)
0x1635…1640 4790 INPUT » « COMMA var(B$) EOS
0x1640…165d 4795 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) 48 55 ) [] » « <> AND COMMA 0 0 var(FNX%)
0x165d…1666 4800 LET var(B$) COMMA = ( 8 ) var(FNR$) EOS
0x1666…1674 4820 IF = ( var(B$) 1 14 ) var(FNZ%) 0 EQ COMMA 0 var(A0x47)
0x1674…1682 4830 IF = ( var(B$) 5 10 ) var(FNZ%) 1 EQ COMMA 0 var(A0x47)
0x1682…168e 4890 LET ELEMENT var(A$) ( var(L%) 48 55 ) [] COMMA var(B$) EOS
0x168e…16b1 4900 REM ----- INPUT ACCUM.GROUP ------
0x16b1…16b6 4920 LET var(F1%) COMMA 8 EOS
0x16b6…16b9 4930 GOSUB 0 var(A)
0x16b9…16cb 4950 IF = ( ELEMENT var(A$) ( var(L%) 48 55 ) [] ) VAL 10 → e9f122f3
0x16cb…16d2 4960 LET var(B$) COMMA »0« EOS
0x16d2…16d3 4970 DOEND
0x16d3…16d6 4975 ELSE 34 EOS
0x16d6…16e0 4980 INPUT » « COMMA var(B$) EOS
0x16e0…16fd 4990 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) 56 63 ) [] » « <> AND COMMA 0 32 var(L%)
0x16fd…170d 5000 IF = ( var(B$) 1 %100 ) var(FNZ%) 0 EQ COMMA 0 0 var(FNX%)
0x170d…170e 5010 DOEND
0x170e…171e 5050 LET ELEMENT var(A$) ( var(L%) 56 63 ) [] COMMA = ( 8 ) var(FNR$) EOS
0x171e…1721 5060 GOSUB 0 »]\xf1«
0x1721…172c 5070 ON var(R2%) COMMA 0 → 905190512051f3
0x172c…1753 5120 REM ------- INPUT ACCUM. VALUE -------
0x1753…1758 5140 LET var(F1%) COMMA 9 EOS
0x1758…175b 5150 GOSUB 0 var(A)
0x175b…1761 5170 INPUT »« COMMA var(B$) EOS
0x1761…1783 5180 IF var(B$) »« EQ ELEMENT var(A$) ( var(L%) %64 %72 ) [] » « <> AND COMMA 0 → 8052
0x1783…17a1 5190 IF = ( var(B$) -1 1e+08 ) var(FNZ%) 0 EQ COMMA 0 32 var(L%)
0x17a1…17b5 5230 LET ELEMENT var(A$) ( var(L%) %64 %72 ) [] COMMA = ( 9 ) var(FNR$) EOS
0x17b5…17b8 5240 GOSUB 0 ELEMENT
0x17b8…17d5 5250 IF ELEMENT var(A$) ( var(L%) %64 %72 ) [] » « EQ COMMA 0 32 var(L%)
0x17d5…17d8 5260 GOSUB 0 var(A)
0x17d8…17de 5280 REM C
0x17de…17e1 5290 TRAP ESC OFF
0x17e1…17e3 5295 RETURN EOS
0x17e3…17e7 5300 REM
0x17e7…1826 5310 REM VVVVVVVVVV ROUTINE TO POSITION IN A FIELD VVVVVVVVVVVVVVVV
0x1826…183a 6000 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$) ( var(L%) 1 %72 ) [] PLUS SEMI EOS
0x183a…184c 6020 PRINT = ( var(L%) ( ELEMENT var(F%') ( var(F1%) ) [] 1 PLUS ) ) var(FNC$) SEMI EOS
0x184c…184e 6030 RETURN EOS
0x184e…1852 6045 REM
0x1852…189d 6499 REM VVVVVV ROUTINE TO FILL TABLE A$ WHITH SPACES, AND INPUT TABLE NAME VVV
0x189d…18a3 6500 194a01f115f3
0x18a3…18b3 6510 LET ELEMENT var(A$) ( var(I%) 1 %80 ) [] COMMA » « EOS
0x18b3…18b6 6530 1a4af3
0x18b6…18b8 6600 PRINT EOS
0x18b8…18e5 6610 INPUT » Gi tabellnavn .. : « COMMA var(N2$) EOS
0x18e5…18e7 6620 PRINT EOS
0x18e7…18e9 6630 RETURN EOS
0x18e9…18ed 6637 REM
0x18ed…192c 6699 REM VVVVVVVVVVVVVV ROUTINE TO PRINT HEADING VVVVVVVVVVVVVVVVVV
0x192c…1930 6700 PRINT var(B0$) SEMI EOS
0x1930…1955 6705 PRINT » OBJEKT TEMA DIGIT.« SEMI EOS
0x1955…1980 6707 PRINT » EKSTRA-PEDAL SKRIVE AKKUMULERINGS-« EOS
0x1980…19b4 6710 PRINT » NR: NAVN: KODE: MODE: KORT: LANG:« SEMI EOS
0x19b4…19d1 6714 PRINT » KODE: GRUPPE: VERDI:« EOS
0x19d1…19da 6716 PRINT = ( 22 1 ) var(FNC$) SEMI EOS
0x19da…1a14 6718 PRINT »H=HJELP, C=RETTE, D=SLETTE, P=PLOTTEPARAMETRE, E=EXIT« SEMI EOS
0x1a14…1a16 6720 RETURN EOS
0x1a16…1a4e 7000 REM VVVVV SUBROUTINE TO HANDLE ACCUMULATING GROUP VVVVV
0x1a4e…1a7d 7010 REM ----- RETURNVALUE R2%=1 SET ACC VALUE TO 0
0x1a7d…1aae 7020 REM ----- =2 SET ACC VALUE TO N1$
0x1aae…1ae6 7030 REM ----- =3 INPUT ACC.VALUE AND SET ALL
0x1ae6…1b24 7040 REM ----- ACCVALUES IN GROUP TO INPUTVALUE.
0x1b24…1b29 7050 LET var(R2%) COMMA 0 EOS
0x1b29…1b3a 7060 IF var(B$) » 0« <> COMMA 0 → 9070
0x1b3a…1b3f 7070 LET var(R2%) COMMA 1 EOS
0x1b3f…1b41 7080 RETURN EOS
0x1b41…1b4b 7090 194a01f1735101e374f3
0x1b4b…1b5a 7100 IF var(B$) ELEMENT var(A$) ( var(I%) 56 63 ) [] <> COMMA 0 16 =
0x1b5a…1b6a 7103 LET var(B$) COMMA ELEMENT var(A$) ( var(I%) %64 %72 ) [] EOS
0x1b6a…1b6d 7106 GOTO var(A0x71)
0x1b6d…1b70 7110 1a4af3
0x1b70…1b75 7120 LET var(R2%) COMMA 3 EOS
0x1b75…1b77 7130 RETURN EOS
0x1b77…1b7c 7140 LET var(R2%) COMMA 2 EOS
0x1b7c…1b7e 7150 RETURN EOS
0x1b7e…1bc5 7200 REM VVVVV SUBROUTINE TO SET ALL ACC.VAL.`S TO B$ WHEN CORRECTING VVVVV
0x1bc5…1bcb 7220 194a51f164f3
0x1bcb…1be3 7230 IF ELEMENT var(A$) ( var(I%) 24 31 ) [] » « EQ COMMA 0 var(FNC$) (
0x1be3…1bf9 7240 IF ELEMENT var(A$) ( var(L%) 56 63 ) [] ELEMENT var(A$) ( var(I%) 56 63 ) [] <> COMMA 0 var(A) ELEMENT
0x1bf9…1c09 7250 LET ELEMENT var(A$) ( var(I%) %64 %72 ) [] COMMA var(B$) EOS
0x1c09…1c0c 7260 1a4af3
0x1c0c…1c0e 7350 RETURN EOS
0x1c0e…1c46 7400 REM ----------- WRITE TABLE TO SCREEN -----------------
0x1c46…1c49 7405 GOSUB 0 var(B0x67)
0x1c49…1c4f 7410 194a01f164f3
0x1c4f…1c63 7420 PRINT = ( var(I%) 1 ) var(FNC$) ELEMENT var(A$) ( var(I%) 1 %72 ) [] PLUS SEMI EOS
0x1c63…1c66 7430 1a4af3
0x1c66…1c68 7440 RETURN EOS
0x1c68…1ca2 7500 REM REDIGERING AV ALTERNATIV PARAMETERTABELL FOR PLOTTING
0x1ca2…1ca8 7510 REM C
0x1ca8…1cb3 7520 LET var(X%) COMMA = ( var(L%) 1 SUB2 ) var(FNX1%) EOS
0x1cb3…1cde 7530 INPUT » HVILKET NR SKAL RETTES (0=AVSLUTT) « COMMA var(X%) EOS
0x1cde…1ce8 7540 IF var(X%) var(L%) 1 SUB2 > COMMA 0 16 USING
0x1ce8…1cf0 7550 IF var(X%) 0 EQ COMMA 0 → 8075
0x1cf0…1cf9 7560 LET var(X%) COMMA = ( var(X%) ) var(FNX%) EOS
0x1cf9…1cfc 7570 GOTO 16 USING
0x1cfc…1d02 7580 REM C
0x1d02…1d05 7590 GOSUB 0 )
0x1d05…1d07 7600 RETURN EOS
0x1d07…1d3b 9000 REM -------------- END PROGRAM --------------------
0x1d3b…1d3d 9010 14f3
0x1d3d…1d41 9700 PRINT var(B0$) SEMI EOS
0x1d41…1d46 9710 CHAIN »S« EOS
0x1d46…1d47 9999 END