|
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: 7629 (0x1dcd)
Notes: ZILOG_BASIC
Names: »DEF.NEW.BP«
└─⟦84a75cdbc⟧ Bits:30006816 8" ZilogMCZ floppy NThun_0018 (Styrediskette Basic 3.0 Rio 2.2 Hjælpeprogrammer)
└─ ⟦this⟧ »DEF.NEW.BP«
0x0000…0014 BasicHead {variables=0x0078, stms=0x065c, f2=0x16e5, f3=0000000000000000000000000000}
0x0014…008c [
0x0014…008c [0x00]: VarDef {f0=0xffda, f1=0x5f, f2=0x22} FNC% 0x1d
0x0014…008c [0x01]: VarDef {f0=0xaaaa, f1=0x42, f2=0x31} R2% 0x1c
0x0014…008c [0x02]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x21} B% 0x1b
0x0014…008c [0x03]: VarDef {f0=0x0200, f1=0x41, f2=0x25} F1% 0x1a
0x0014…008c [0x04]: VarDef {f0=0xaaaa, f1=0x41, f2=0x2b} L1% 0x19
0x0014…008c [0x05]: VarDef {f0=0x0100, f1=0x4f, f2=0x31} R% 0x18
0x0014…008c [0x06]: VarDef {f0=0x0100, f1=0x41, f2=0x28} I1% 0x17
0x0014…008c [0x07]: VarDef {f0=0x0000, f1=0x4f, f2=0x37} X% 0x16
0x0014…008c [0x08]: VarDef {f0=0xff08, f1=0x5f, f2=0x27} FNH% 0x15
0x0014…008c [0x09]: VarDef {f0=0x0400, f1=0x48, f2=0x29} J8% 0x14
0x0014…008c [0x0a]: VarDef {f0=0x0300, f1=0x49, f2=0x29} J9% 0x13
0x0014…008c [0x0b]: VarDef {f0=0xff24, f1=0x5f, f2=0x51} FNR$ 0x12
0x0014…008c [0x0c]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2a} K% 0x11
0x0014…008c [0x0d]: VarDef {f0=0x0000, f1=0x4f, f2=0x2b} L% 0x10
0x0014…008c [0x0e]: VarDef {f0=0xff28, f1=0x5f, f2=0x42} FNC$ 0xf
0x0014…008c [0x0f]: VarDef {f0=0xff40, f1=0x5f, f2=0x2f} FNP% 0xe
0x0014…008c [0x10]: VarDef {f0=0x1500, f1=0x4f, f2=0x29} J% 0xd
0x0014…008c [0x11]: VarDef {f0=0xff58, f1=0x5f, f2=0x28} FNI% 0xc
0x0014…008c [0x12]: VarDef {f0=0x0900, f1=0x4f, f2=0x2d} N% 0xb
0x0014…008c [0x13]: VarDef {f0=0xff7c, f1=0x51, f2=0x37} FNX1% 0xa
0x0014…008c [0x14]: VarDef {f0=0x1600, f1=0x4f, f2=0x28} I% 0x9
0x0014…008c [0x15]: VarDef {f0=0xffcc, f1=0x5f, f2=0x37} FNX% 0x8
0x0014…008c [0x16]: VarDef {f0=0x08ba, f1=0x4f, f2=0xa5} F%' 0x7
0x0014…008c [0x17]: VarDef {f0=0x08b4, f1=0x40, f2=0x41} B0$ 0x6
0x0014…008c [0x18]: VarDef {f0=0x0860, f1=0x41, f2=0x40} A1$ 0x5
0x0014…008c [0x19]: VarDef {f0=0x084c, f1=0x42, f2=0x4d} N2$ 0x4
0x0014…008c [0x1a]: VarDef {f0=0x0838, f1=0x41, f2=0x4d} N1$ 0x3
0x0014…008c [0x1b]: VarDef {f0=0x06cc, f1=0x4f, f2=0x4d} N$ 0x2
0x0014…008c [0x1c]: VarDef {f0=0x06be, f1=0x4f, f2=0x41} B$ 0x1
0x0014…008c [0x1d]: VarDef {f0=0x0000, f1=0x4f, f2=0x40} A$ 0x0
0x0014…008c ]
0x008c…0090 Statement 39321 @0x1dcc
0x0090…0094 Statement 38672 @0x1dc7
0x0094…0098 Statement 38656 @0x1dc3
0x0098…009c Statement 36880 @0x1dc1
0x009c…00a0 Statement 36864 @0x1d8c
0x00a0…00a4 Statement 30512 @0x1d8a
0x00a4…00a8 Statement 30496 @0x1d50
0x00a8…00ac Statement 30480 @0x1d47
0x00ac…00b0 Statement 30464 @0x1d28
0x00b0…00b4 Statement 30208 @0x1d26
0x00b4…00b8 Statement 30080 @0x1d20
0x00b8…00bc Statement 30064 @0x1d1d
0x00bc…00c0 Statement 30048 @0x1d14
0x00c0…00c4 Statement 30032 @0x1d0c
0x00c4…00c8 Statement 30016 @0x1d02
0x00c8…00cc Statement 30000 @0x1cd7
0x00cc…00d0 Statement 29984 @0x1ccc
0x00d0…00d4 Statement 29968 @0x1cc6
0x00d4…00d8 Statement 29952 @0x1c8c
0x00d8…00dc Statement 29760 @0x1c8a
0x00dc…00e0 Statement 29749 @0x1c87
0x00e0…00e4 Statement 29744 @0x1c84
0x00e4…00e8 Statement 29728 @0x1c70
0x00e8…00ec Statement 29712 @0x1c6a
0x00ec…00f0 Statement 29701 @0x1c67
0x00f0…00f4 Statement 29696 @0x1c2e
0x00f4…00f8 Statement 29520 @0x1c2c
0x00f8…00fc Statement 29280 @0x1c29
0x00fc…0100 Statement 29264 @0x1c19
0x0100…0104 Statement 29248 @0x1c03
0x0104…0108 Statement 29237 @0x1bfb
0x0108…010c Statement 29232 @0x1be3
0x010c…0110 Statement 29216 @0x1bdc
0x0110…0114 Statement 29200 @0x1bd7
0x0114…0118 Statement 29184 @0x1b90
0x0118…011c Statement 29008 @0x1b8e
0x011c…0120 Statement 28992 @0x1b89
0x0120…0124 Statement 28976 @0x1b87
0x0124…0128 Statement 28960 @0x1b82
0x0128…012c Statement 28944 @0x1b7f
0x012c…0130 Statement 28934 @0x1b7c
0x0130…0134 Statement 28931 @0x1b6c
0x0134…0138 Statement 28928 @0x1b5d
0x0138…013c Statement 28816 @0x1b53
0x013c…0140 Statement 28800 @0x1b51
0x0140…0144 Statement 28784 @0x1b4c
0x0144…0148 Statement 28768 @0x1b3b
0x0148…014c Statement 28752 @0x1b36
0x014c…0150 Statement 28736 @0x1af8
0x0150…0154 Statement 28720 @0x1ac0
0x0154…0158 Statement 28704 @0x1a8f
0x0158…015c Statement 28688 @0x1a60
0x015c…0160 Statement 28672 @0x1a28
0x0160…0164 Statement 26400 @0x1a26
0x0164…0168 Statement 26390 @0x1a23
0x0168…016c Statement 26388 @0x1a06
0x016c…0170 Statement 26384 @0x19d2
0x0170…0174 Statement 26375 @0x19a7
0x0174…0178 Statement 26373 @0x1982
0x0178…017c Statement 26368 @0x197e
0x017c…0180 Statement 26265 @0x193f
0x0180…0184 Statement 26167 @0x193b
0x0184…0188 Statement 26160 @0x1939
0x0188…018c Statement 26144 @0x1937
0x018c…0190 Statement 26128 @0x190a
0x0190…0194 Statement 26112 @0x1908
0x0194…0198 Statement 25904 @0x1905
0x0198…019c Statement 25872 @0x18f5
0x019c…01a0 Statement 25856 @0x18ef
0x01a0…01a4 Statement 25753 @0x18a4
0x01a4…01a8 Statement 24645 @0x18a0
0x01a8…01ac Statement 24624 @0x189e
0x01ac…01b0 Statement 24608 @0x188c
0x01b0…01b4 Statement 24576 @0x1878
0x01b4…01b8 Statement 21264 @0x1839
0x01b8…01bc Statement 21248 @0x1835
0x01bc…01c0 Statement 21120 @0x1833
0x01c0…01c4 Statement 21104 @0x1830
0x01c4…01c8 Statement 21088 @0x182d
0x01c8…01cc Statement 21072 @0x1810
0x01cc…01d0 Statement 21056 @0x180d
0x01d0…01d4 Statement 21040 @0x17f9
0x01d4…01d8 Statement 21024 @0x17f6
0x01d8…01dc Statement 21008 @0x17ee
0x01dc…01e0 Statement 20880 @0x17ca
0x01e0…01e4 Statement 20864 @0x17c1
0x01e4…01e8 Statement 20848 @0x17bb
0x01e8…01ec Statement 20832 @0x17b7
0x01ec…01f0 Statement 20816 @0x17b4
0x01f0…01f4 Statement 20800 @0x17af
0x01f4…01f8 Statement 20784 @0x1797
0x01f8…01fc Statement 20768 @0x1776
0x01fc…0200 Statement 20592 @0x176b
0x0200…0204 Statement 20576 @0x1768
0x0204…0208 Statement 20560 @0x1758
0x0208…020c Statement 20544 @0x1755
0x020c…0210 Statement 20528 @0x174d
0x0210…0214 Statement 20480 @0x1737
0x0214…0218 Statement 18832 @0x172e
0x0218…021c Statement 18816 @0x1724
0x021c…0220 Statement 18800 @0x1721
0x0220…0224 Statement 18784 @0x171a
0x0224…0228 Statement 18768 @0x1707
0x0228…022c Statement 18752 @0x1703
0x022c…0230 Statement 18736 @0x1700
0x0230…0234 Statement 18720 @0x16fb
0x0234…0238 Statement 18704 @0x16e3
0x0238…023c Statement 18688 @0x16c2
0x023c…0240 Statement 18576 @0x16b2
0x0240…0244 Statement 18560 @0x16af
0x0244…0248 Statement 18544 @0x16a7
0x0248…024c Statement 18528 @0x169f
0x024c…0250 Statement 18512 @0x1697
0x0250…0254 Statement 18496 @0x168f
0x0254…0258 Statement 18480 @0x1687
0x0258…025c Statement 18464 @0x167e
0x025c…0260 Statement 18432 @0x1675
0x0260…0264 Statement 18320 @0x166a
0x0264…0268 Statement 18304 @0x1666
0x0268…026c Statement 18288 @0x1663
0x026c…0270 Statement 18272 @0x165e
0x0270…0274 Statement 18256 @0x1646
0x0274…0278 Statement 18240 @0x1625
0x0278…027c Statement 18224 @0x1615
0x027c…0280 Statement 18208 @0x1612
0x0280…0284 Statement 18192 @0x160a
0x0284…0288 Statement 18064 @0x15f6
0x0288…028c Statement 18032 @0x15ed
0x028c…0290 Statement 18016 @0x15e2
0x0290…0294 Statement 18000 @0x15de
0x0294…0298 Statement 17984 @0x15db
0x0298…029c Statement 17968 @0x15d6
0x029c…02a0 Statement 17952 @0x15be
0x02a0…02a4 Statement 17936 @0x159c
0x02a4…02a8 Statement 17920 @0x158c
0x02a8…02ac Statement 17808 @0x1589
0x02ac…02b0 Statement 17792 @0x1581
0x02b0…02b4 Statement 17760 @0x156d
0x02b4…02b8 Statement 17728 @0x1564
0x02b8…02bc Statement 17712 @0x1559
0x02bc…02c0 Statement 17696 @0x1555
0x02c0…02c4 Statement 17680 @0x1552
0x02c4…02c8 Statement 17664 @0x154d
0x02c8…02cc Statement 17552 @0x1535
0x02cc…02d0 Statement 17536 @0x1510
0x02d0…02d4 Statement 17520 @0x14fa
0x02d4…02d8 Statement 17509 @0x14f7
0x02d8…02dc Statement 17507 @0x14d9
0x02dc…02e0 Statement 17504 @0x14d6
0x02e0…02e4 Statement 17488 @0x14ce
0x02e4…02e8 Statement 17472 @0x14bd
0x02e8…02ec Statement 17456 @0x14ac
0x02ec…02f0 Statement 17440 @0x149b
0x02f0…02f4 Statement 17424 @0x148a
0x02f4…02f8 Statement 17408 @0x1479
0x02f8…02fc Statement 17296 @0x1468
0x02fc…0300 Statement 17280 @0x1458
0x0300…0304 Statement 17264 @0x144b
0x0304…0308 Statement 17232 @0x1442
0x0308…030c Statement 17216 @0x143a
0x030c…0310 Statement 17200 @0x1436
0x0310…0314 Statement 17184 @0x1433
0x0314…0318 Statement 17168 @0x142e
0x0318…031c Statement 17152 @0x140c
0x031c…0320 Statement 17040 @0x13fc
0x0320…0324 Statement 17008 @0x13f9
0x0324…0328 Statement 16992 @0x13f1
0x0328…032c Statement 16976 @0x13e5
0x032c…0330 Statement 16960 @0x13dc
0x0330…0334 Statement 16944 @0x13d6
0x0334…0338 Statement 16928 @0x13d3
0x0338…033c Statement 16912 @0x13ce
0x033c…0340 Statement 16896 @0x13b5
0x0340…0344 Statement 16784 @0x1393
0x0344…0348 Statement 16768 @0x1383
0x0348…034c Statement 16736 @0x1380
0x034c…0350 Statement 16720 @0x1378
0x0350…0354 Statement 16704 @0x136c
0x0354…0358 Statement 16688 @0x136a
0x0358…035c Statement 16672 @0x1365
0x035c…0360 Statement 16656 @0x1359
0x0360…0364 Statement 16640 @0x1350
0x0364…0368 Statement 16528 @0x134a
0x0368…036c Statement 16512 @0x1347
0x036c…0370 Statement 16496 @0x1342
0x0370…0374 Statement 16480 @0x1320
0x0374…0378 Statement 16464 @0x1310
0x0378…037c Statement 16432 @0x130b
0x037c…0380 Statement 16416 @0x1302
0x0380…0384 Statement 16405 @0x12f8
0x0384…0388 Statement 16400 @0x12d6
0x0388…038c Statement 16384 @0x1297
0x038c…0390 Statement 12336 @0x1294
0x0390…0394 Statement 12320 @0x1292
0x0394…0398 Statement 12304 @0x1263
0x0398…039c Statement 12293 @0x1229
0x039c…03a0 Statement 12288 @0x1225
0x03a0…03a4 Statement 08800 @0x1222
0x03a4…03a8 Statement 08784 @0x121c
0x03a8…03ac Statement 08773 @0x1219
0x03ac…03b0 Statement 08768 @0x1216
0x03b0…03b4 Statement 08752 @0x120b
0x03b4…03b8 Statement 08736 @0x1205
0x03b8…03bc Statement 08725 @0x11fd
0x03bc…03c0 Statement 08720 @0x11f9
0x03c0…03c4 Statement 08704 @0x11f2
0x03c4…03c8 Statement 08560 @0x11ef
0x03c8…03cc Statement 08544 @0x11de
0x03cc…03d0 Statement 08536 @0x11d4
0x03d0…03d4 Statement 08535 @0x11cc
0x03d4…03d8 Statement 08534 @0x11bd
0x03d8…03dc Statement 08533 @0x11ad
0x03dc…03e0 Statement 08532 @0x11a4
0x03e0…03e4 Statement 08530 @0x116f
0x03e4…03e8 Statement 08529 @0x116d
0x03e8…03ec Statement 08528 @0x1169
0x03ec…03f0 Statement 08464 @0x1166
0x03f0…03f4 Statement 08453 @0x1162
0x03f4…03f8 Statement 08448 @0x115f
0x03f8…03fc Statement 08320 @0x115c
0x03fc…0400 Statement 08304 @0x1157
0x0400…0404 Statement 08288 @0x114a
0x0404…0408 Statement 08272 @0x1144
0x0408…040c Statement 08240 @0x110f
0x040c…0410 Statement 08224 @0x110d
0x0410…0414 Statement 08208 @0x110b
0x0414…0418 Statement 08192 @0x10cc
0x0418…041c Statement 06528 @0x10c9
0x041c…0420 Statement 06496 @0x10c6
0x0420…0424 Statement 06480 @0x10c3
0x0424…0428 Statement 06464 @0x10c0
0x0428…042c Statement 06448 @0x10bd
0x042c…0430 Statement 06432 @0x10b2
0x0430…0434 Statement 06416 @0x10ac
0x0434…0438 Statement 06406 @0x10a9
0x0438…043c Statement 06405 @0x10a5
0x043c…0440 Statement 06402 @0x109e
0x0440…0444 Statement 06400 @0x107f
0x0444…0448 Statement 06295 @0x107c
0x0448…044c Statement 06293 @0x1079
0x044c…0450 Statement 06272 @0x1076
0x0450…0454 Statement 06261 @0x1074
0x0454…0458 Statement 06240 @0x106d
0x0458…045c Statement 06224 @0x1037
0x045c…0460 Statement 06208 @0x1034
0x0460…0464 Statement 06192 @0x1031
0x0464…0468 Statement 06176 @0x102b
0x0468…046c Statement 06160 @0x1027
0x046c…0470 Statement 06144 @0x1018
0x0470…0474 Statement 06032 @0x1014
0x0474…0478 Statement 06016 @0xffa
0x0478…047c Statement 06000 @0xff7
0x047c…0480 Statement 05984 @0xff4
0x0480…0484 Statement 05952 @0xfe6
0x0484…0488 Statement 05936 @0xfe3
0x0488…048c Statement 05925 @0xfd3
0x048c…0490 Statement 05923 @0xfca
0x0490…0494 Statement 05920 @0xfb9
0x0494…0498 Statement 05904 @0xfb3
0x0498…049c Statement 05893 @0xfab
0x049c…04a0 Statement 05888 @0xfa4
0x04a0…04a4 Statement 05776 @0xf9d
0x04a4…04a8 Statement 05760 @0xf62
0x04a8…04ac Statement 05728 @0xf45
0x04ac…04b0 Statement 05712 @0xf42
0x04b0…04b4 Statement 05696 @0xf3f
0x04b4…04b8 Statement 05680 @0xf3a
0x04b8…04bc Statement 05669 @0xf36
0x04bc…04c0 Statement 05664 @0xf33
0x04c0…04c4 Statement 05648 @0xf2c
0x04c4…04c8 Statement 05632 @0xef1
0x04c8…04cc Statement 05525 @0xeec
0x04cc…04d0 Statement 05520 @0xecd
0x04d0…04d4 Statement 05504 @0xeca
0x04d4…04d8 Statement 05488 @0xec3
0x04d8…04dc Statement 05477 @0xec0
0x04dc…04e0 Statement 05464 @0xebf
0x04e0…04e4 Statement 05462 @0xebc
0x04e4…04e8 Statement 05460 @0xeb9
0x04e8…04ec Statement 05458 @0xeb0
0x04ec…04f0 Statement 05456 @0xea6
0x04f0…04f4 Statement 05440 @0xe9c
0x04f4…04f8 Statement 05424 @0xe92
0x04f8…04fc Statement 05408 @0xe88
0x04fc…0500 Statement 05392 @0xe80
0x0500…0504 Statement 05382 @0xe7c
0x0504…0508 Statement 05381 @0xe78
0x0508…050c Statement 05378 @0xe75
0x050c…0510 Statement 05376 @0xe72
0x0510…0514 Statement 04960 @0xe6f
0x0514…0518 Statement 04944 @0xe5c
0x0518…051c Statement 04928 @0xe52
0x051c…0520 Statement 04896 @0xe4c
0x0520…0524 Statement 04880 @0xe48
0x0524…0528 Statement 04864 @0xe41
0x0528…052c Statement 04752 @0xe3e
0x052c…0530 Statement 04742 @0xe38
0x0530…0534 Statement 04741 @0xe2e
0x0534…0538 Statement 04736 @0xe27
0x0538…053c Statement 04720 @0xe22
0x053c…0540 Statement 04709 @0xe1a
0x0540…0544 Statement 04704 @0xe17
0x0544…0548 Statement 04688 @0xe0a
0x0548…054c Statement 04672 @0xe04
0x054c…0550 Statement 04656 @0xe01
0x0550…0554 Statement 04645 @0xdf2
0x0554…0558 Statement 04624 @0xdef
0x0558…055c Statement 04608 @0xdea
0x055c…0560 Statement 04448 @0xddf
0x0560…0564 Statement 04416 @0xdb2
0x0564…0568 Statement 04400 @0xdb0
0x0568…056c Statement 04384 @0xd84
0x056c…0570 Statement 04373 @0xd4e
0x0570…0574 Statement 04368 @0xd0d
0x0574…0578 Statement 04357 @0xd0b
0x0578…057c Statement 04355 @0xd05
0x057c…0580 Statement 04354 @0xd02
0x0580…0584 Statement 04352 @0xce7
0x0584…0588 Statement 04240 @0xce4
0x0588…058c Statement 04229 @0xcde
0x058c…0590 Statement 04224 @0xcda
0x0590…0594 Statement 04192 @0xcd0
0x0594…0598 Statement 04176 @0xcc9
0x0598…059c Statement 04169 @0xcc7
0x059c…05a0 Statement 04168 @0xc93
0x05a0…05a4 Statement 04165 @0xc91
0x05a4…05a8 Statement 04164 @0xc46
0x05a8…05ac Statement 04163 @0xbfa
0x05ac…05b0 Statement 04162 @0xbf4
0x05b0…05b4 Statement 04161 @0xbf1
0x05b4…05b8 Statement 04160 @0xbeb
0x05b8…05bc Statement 04144 @0xbe7
0x05bc…05c0 Statement 04128 @0xbd4
0x05c0…05c4 Statement 04112 @0xbcf
0x05c4…05c8 Statement 04096 @0xbae
0x05c8…05cc Statement 02448 @0xba8
0x05cc…05d0 Statement 01936 @0xba7
0x05d0…05d4 Statement 01925 @0xba4
0x05d4…05d8 Statement 01872 @0xb8e
0x05d8…05dc Statement 01856 @0xb4a
0x05dc…05e0 Statement 01840 @0xb34
0x05e0…05e4 Statement 01824 @0xae9
0x05e4…05e8 Statement 01808 @0xae5
0x05e8…05ec Statement 01792 @0xae2
0x05ec…05f0 Statement 01601 @0xae1
0x05f0…05f4 Statement 01589 @0xade
0x05f4…05f8 Statement 01584 @0xadb
0x05f8…05fc Statement 01573 @0xad2
0x05fc…0600 Statement 01568 @0xacc
0x0600…0604 Statement 01552 @0xac1
0x0604…0608 Statement 01536 @0xabd
0x0608…060c Statement 01280 @0xa9e
0x060c…0610 Statement 01157 @0xa9d
0x0610…0614 Statement 01152 @0xa9a
0x0614…0618 Statement 01141 @0xa97
0x0618…061c Statement 01136 @0xa5c
0x061c…0620 Statement 01125 @0xa56
0x0620…0624 Statement 01120 @0xa53
0x0624…0628 Statement 01104 @0xa52
0x0628…062c Statement 01088 @0xa4f
0x062c…0630 Statement 01072 @0xa4c
0x0630…0634 Statement 01056 @0xa31
0x0634…0638 Statement 01040 @0xa2b
0x0638…063c Statement 01024 @0xa28
0x063c…0640 Statement 00784 @0xa27
0x0640…0644 Statement 00768 @0xa24
0x0644…0648 Statement 00640 @0xa21
0x0648…064c Statement 00608 @0x9f6
0x064c…0650 Statement 00592 @0x9bf
0x0650…0654 Statement 00581 @0x996
0x0654…0658 Statement 00576 @0x990
0x0658…065c Statement 00560 @0x952
0x065c…0660 Statement 00549 @0x94e
0x0660…0664 Statement 00544 @0x94a
0x0664…0668 Statement 00528 @0x949
0x0668…066c Statement 00512 @0x946
0x066c…0670 Statement 00400 @0x930
0x0670…0674 Statement 00389 @0x925
0x0674…0678 Statement 00384 @0x91c
0x0678…067c Statement 00368 @0x90c
0x067c…0680 Statement 00357 @0x90a
0x0680…0684 Statement 00352 @0x8ee
0x0684…0688 Statement 00336 @0x8b0
0x0688…068c Statement 00325 @0x8ae
0x068c…0690 Statement 00320 @0x892
0x0690…0694 Statement 00304 @0x859
0x0694…0698 Statement 00293 @0x857
0x0698…069c Statement 00288 @0x83b
0x069c…06a0 Statement 00272 @0x827
0x06a0…06a4 Statement 00261 @0x7fe
0x06a4…06a8 Statement 00260 @0x7fc
0x06a8…06ac Statement 00259 @0x7e3
0x06ac…06b0 Statement 00258 @0x7c6
0x06b0…06b4 Statement 00256 @0x7c2
0x06b4…06b8 Statement 00144 @0x79f
0x06b8…06bc Statement 00064 @0x778
0x06bc…06c0 Statement 00053 @0x76b
0x06c0…06c4 Statement 00048 @0x73d
0x06c4…06c8 Statement 00037 @0x72e
0x06c8…06cc Statement 00032 @0x726
0x06cc…06d0 Statement 00024 @0x71e
0x06d0…06d4 Statement 00021 @0x714
0x06d4…06d8 Statement 00020 @0x70c
0x06d8…06dc Statement 00019 @0x704
0x06dc…06e0 Statement 00018 @0x6fb
0x06e0…06e4 Statement 00017 @0x6f3
0x06e4…06e8 Statement 00016 @0x6e8
0x06e8…06f3 0010 DIM ELEMENT var(A$) ( 21 %80 ) [] EOS
0x06f3…06fb 0011 DIM ELEMENT var(B$) ( 10 ) [] EOS
0x06fb…0704 0012 DIM ELEMENT var(N$) ( 20 16 ) [] EOS
0x0704…070c 0013 DIM ELEMENT var(N1$) ( 16 ) [] EOS
0x070c…0714 0014 DIM ELEMENT var(N2$) ( 16 ) [] EOS
0x0714…071e 0015 DIM ELEMENT var(A1$) ( %80 ) [] EOS
0x071e…0726 0018 DIM ELEMENT var(B0$) ( 2 ) [] EOS
0x0726…072e 0020 DIM ELEMENT var(F%') ( 9 ) [] EOS
0x072e…073d 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x073d…076b 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
0x076b…0778 0035 LET var(B0$) COMMA = ( 27 ) → af700145e2f3
0x0778…079f 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
0x079f…07c2 0090 REM INPUT NY PLOTTEPARAMETER-LINJE
0x07c2…07c6 0100 DEF var(FNX%) var(I%) EOS
0x07c6…07e3 0102 PRINT var(B0$) SEMI » RETTING AV :« SEMI ELEMENT var(A$) ( var(I%) 1 26 ) [] EOS
0x07e3…07fc 0103 PRINT » RETURN=GAMMEL VERDI« EOS
0x07fc…07fe 0104 PRINT EOS
0x07fe…0827 0105 IF = ( ELEMENT var(A$) ( var(I%) ) [] ) LEN %74 ?< COMMA 27 ELEMENT var(A$) ( var(I%) %73 %80 ) [] COMMA » « EOS
0x0827…083b 0110 INPUT » Penn (1-6) : « COMMA var(B$) EOS
0x083b…0857 0120 IF var(B$) »« <> COMMA 27 ELEMENT var(A$) ( var(I%) %74 %74 ) [] COMMA ELEMENT var(B$) ( 1 1 ) [] EOS
0x0857…0859 0125 PRINT EOS
0x0859…0892 0130 INPUT » Linje (0-6,0=Heltrukket) eller symbolh|yde i mm : « COMMA var(B$) EOS
0x0892…08ae 0140 IF var(B$) »« <> COMMA 27 ELEMENT var(A$) ( var(I%) %75 %75 ) [] COMMA ELEMENT var(B$) ( 1 1 ) [] EOS
0x08ae…08b0 0145 PRINT EOS
0x08b0…08ee 0150 INPUT » Behandling (0,Blank=Ingen,1=Hus,2=Parallell,3=Begge) : « COMMA var(B$) EOS
0x08ee…090a 0160 IF var(B$) »« <> COMMA 27 ELEMENT var(A$) ( var(I%) %76 %76 ) [] COMMA ELEMENT var(B$) ( 1 1 ) [] EOS
0x090a…090c 0165 PRINT EOS
0x090c…091c 0170 INPUT » Symbol : « COMMA var(B$) EOS
0x091c…0925 0180 IF var(B$) »« EQ COMMA 5 0 EOS
0x0925…0930 0185 LET var(B$) COMMA var(B$) » « PLUS EOS
0x0930…0946 0190 LET ELEMENT var(A$) ( var(I%) %78 %80 ) [] COMMA ELEMENT var(B$) ( 1 3 ) [] EOS
0x0946…0949 0200 RETURN 0 EOS
0x0949…094a 0210 FNEND
0x094a…094e 0220 DEF var(FNX1%) var(N%) EOS
0x094e…0952 0225 PRINT var(B0$) SEMI EOS
0x0952…0990 0230 PRINT » NR NAVN KODE PENN LINJE BEHANDLING SYMBOL« EOS
0x0990…0996 0240 194a01f14cf3
0x0996…09bf 0245 IF = ( ELEMENT var(A$) ( var(I%) ) [] ) LEN %74 ?< COMMA 27 ELEMENT var(A$) ( var(I%) %73 %80 ) [] COMMA » « EOS
0x09bf…09f6 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
0x09f6…0a21 0260 PRINT » « SEMI ELEMENT var(A$) ( var(I%) %76 %76 ) [] SEMI » « SEMI ELEMENT var(A$) ( var(I%) %78 %80 ) [] EOS
0x0a21…0a24 0280 1a4af3
0x0a24…0a27 0300 RETURN 0 EOS
0x0a27…0a28 0310 FNEND
0x0a28…0a2b 0400 DEF var(FNI%) EOS
0x0a2b…0a31 0410 194e01f114f3
0x0a31…0a4c 0420 LET ELEMENT var(N$) ( var(J%) ) [] COMMA » « EOS
0x0a4c…0a4f 0430 1a4ef3
0x0a4f…0a52 0440 RETURN 0 EOS
0x0a52…0a53 0450 FNEND
0x0a53…0a56 0460 DEF var(FNP%) EOS
0x0a56…0a5c 0465 194a01f105f3
0x0a5c…0a97 0470 PRINT = ( 6 ) → b5f27243734a749ff271731874b5f27243734a05e2749ff271732a74b5f27243734a0ae2749ff271733c74b5f27243734a0fe2749ff3
0x0a97…0a9a 0475 1a4af3
0x0a9a…0a9d 0480 RETURN 0 EOS
0x0a9d…0a9e 0485 FNEND
0x0a9e…0abd 0500 DEF var(FNC$) var(L%) var(K%) 5 = ( 27 ) → af700159e271732151e274afe271731f52e274afe2f3
0x0abd…0ac1 0600 DEF var(FNR$) var(I%) EOS
0x0ac1…0acc 0610 LET var(J9%) COMMA var(I%) = ( var(B$) ) LEN SUB2 EOS
0x0acc…0ad2 0620 195501f154f3
0x0ad2…0adb 0625 LET var(B$) COMMA » « var(B$) PLUS EOS
0x0adb…0ade 0630 1a55f3
0x0ade…0ae1 0635 RETURN var(B$) EOS
0x0ae1…0ae2 0641 FNEND
0x0ae2…0ae5 0700 DEF var(FNH%) EOS
0x0ae5…0ae9 0710 PRINT var(B0$) SEMI EOS
0x0ae9…0b34 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
0x0b34…0b4a 0730 PRINT » |« SEMI = ( %70 ) → b5f270017cf3
0x0b4a…0b8e 0740 PRINT » | S T E R E O D I G vers. 3.0« SEMI = ( %70 ) → b5f270017cf3
0x0b8e…0ba4 0750 PRINT » |« SEMI = ( %70 ) → b5f270017cf3
0x0ba4…0ba7 0785 RETURN 0 EOS
0x0ba7…0ba8 0790 FNEND
0x0ba8…0bae 0990 LET var(X%) COMMA = var(FNI%) EOS
0x0bae…0bcf 1000 REM **** START MAIN PROGRAM ****
0x0bcf…0bd4 1010 LET var(N%) COMMA 0 EOS
0x0bd4…0be7 1020 1601f2700d302f5441424c452e4e414d4553f3
0x0be7…0beb 1030 TRAP 0 3000
0x0beb…0bf1 1040 LINPUT 1# SEMI var(N1$) EOS
0x0bf1…0bf4 1041 TRAP 0 OFF
0x0bf4…0bfa 1042 LET var(X%) COMMA = var(FNH%) EOS
0x0bfa…0c46 1043 PRINT » | Program : D E F -- Definisjon av tabeller. |« EOS
0x0c46…0c91 1044 PRINT » -----------------------------------------------------------------« EOS
0x0c91…0c93 1045 PRINT EOS
0x0c93…0cc7 1048 PRINT » Tilgjengelige tabeller pa denne disketten :« EOS
0x0cc7…0cc9 1049 PRINT EOS
0x0cc9…0cd0 1050 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x0cd0…0cda 1060 LET ELEMENT var(N$) ( var(N%) ) [] COMMA var(N1$) EOS
0x0cda…0cde 1080 TRAP 0 1100
0x0cde…0ce4 1085 LINPUT 1# SEMI var(N1$) EOS
0x0ce4…0ce7 1090 GOTO var(FNC$) 16
0x0ce7…0d02 1100 REM ** MENU TABLE NAMES **
0x0d02…0d05 1102 TRAP 0 OFF
0x0d05…0d0b 1103 LET var(X%) COMMA = var(FNP%) EOS
0x0d0b…0d0d 1105 PRINT EOS
0x0d0d…0d4e 1110 PRINT » M E N Y : 1. ..... Retting av tabell / Ny tabell.« EOS
0x0d4e…0d84 1115 PRINT » 2. ..... Sletting av tabell.« EOS
0x0d84…0db0 1120 PRINT » 3. ..... Exit DEF.« EOS
0x0db0…0db2 1130 PRINT EOS
0x0db2…0ddf 1140 INPUT » VELG NR. ....... : « COMMA var(I1%) EOS
0x0ddf…0dea 1160 ON var(I1%) COMMA 0 0 18 0 32 0 → 90f3
0x0dea…0def 1200 LET var(L%) COMMA 0 EOS
0x0def…0df2 1210 GOSUB 0 var(B0x65)
0x0df2…0e01 1225 1602f27002302f45e270022e54e2f3
0x0e01…0e04 1230 GOSUB 0 var(B0x67)
0x0e04…0e0a 1240 194a01f14cf3
0x0e0a…0e17 1250 IF ELEMENT var(N$) ( var(I%) ) [] var(N2$) EQ COMMA 0 0 19
0x0e17…0e1a 1260 1a4af3
0x0e1a…0e22 1265 IF var(N%) 20 EQ COMMA 0 0 16
0x0e22…0e27 1270 LET var(L%) COMMA 1 EOS
0x0e27…0e2e 1280 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x0e2e…0e38 1285 LET ELEMENT var(N$) ( var(N%) ) [] COMMA var(N2$) EOS
0x0e38…0e3e 1286 PRINT 1# SEMI var(N2$) EOS
0x0e3e…0e41 1290 GOTO 0 21
0x0e41…0e48 1300 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x0e48…0e4c 1310 TRAP 0 1500
0x0e4c…0e52 1320 LINPUT 2# SEMI var(A1$) EOS
0x0e52…0e5c 1340 LET ELEMENT var(A$) ( var(L%) ) [] COMMA var(A1$) EOS
0x0e5c…0e6f 1350 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$) ( var(L%) 1 %72 ) [] PLUS EOS
0x0e6f…0e72 1360 GOTO 0 19
0x0e72…0e75 1500 TRAP 0 OFF
0x0e75…0e78 1502 GOSUB 16 var(A0x1c)
0x0e78…0e7c 1505 TRAP ERR 1900
0x0e7c…0e80 1506 TRAP ESC 1900
0x0e80…0e88 1510 IF var(R%) 0 EQ COMMA 0 »\x03Bp«soh»C\xe7\xf1\x00\x90\x15\x03Bp«soh»D\xe7\xf1\x00`\x16\x03«
0x0e88…0e92 1520 IF var(B$) »C« EQ COMMA 0 → 9015
0x0e92…0e9c 1530 IF var(B$) »D« EQ COMMA 0 var(B0x60) 22
0x0e9c…0ea6 1540 IF var(B$) »H« EQ COMMA 0 → 8017
0x0ea6…0eb0 1550 IF var(B$) »E« EQ COMMA 0 0 25
0x0eb0…0eb9 1552 IF var(B$) »P« EQ COMMA 34 EOS
0x0eb9…0ebc 1554 GOSUB 0 USING
0x0ebc…0ebf 1556 GOSUB 0 )
0x0ebf…0ec0 1558 DOEND
0x0ec0…0ec3 1565 GOTO 0 21
0x0ec3…0eca 1570 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x0eca…0ecd 1580 GOTO 0 21
0x0ecd…0eec 1590 REM ---- CASE: CORRECTION ----
0x0eec…0ef1 1595 LET var(L1%) COMMA var(L%) EOS
0x0ef1…0f2c 1600 PRINT = ( 21 1 ) var(FNC$) » Retting av linje nummer ........... :« PLUS SEMI EOS
0x0f2c…0f33 1610 INPUT » « COMMA var(L%) EOS
0x0f33…0f36 1620 GOSUB 16 var(A0x1c)
0x0f36…0f3a 1625 TRAP ERR 1900
0x0f3a…0f3f 1630 LET var(L%) COMMA var(L1%) EOS
0x0f3f…0f42 1640 GOSUB 0 )
0x0f42…0f45 1650 GOTO 0 21
0x0f45…0f62 1660 REM ---- CASE: DELETE ------
0x0f62…0f9d 1680 PRINT = ( 21 1 ) var(FNC$) » Slett linje nummer ................ :« PLUS SEMI EOS
0x0f9d…0fa4 1690 INPUT » « COMMA var(L1%) EOS
0x0fa4…0fab 1700 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x0fab…0fb3 1705 IF var(L1%) var(L%) > COMMA 0 var(A0x17)
0x0fb3…0fb9 1710 194a5af151f3
0x0fb9…0fca 1720 LET ELEMENT var(A$) ( var(I%) ) [] COMMA ELEMENT var(A$) ( var(I%) 1 PLUS ) [] EOS
0x0fca…0fd3 1723 LET var(B$) COMMA = ( var(I%) ) → b0f3
0x0fd3…0fe3 1725 LET ELEMENT var(A$) ( var(I%) 2 5 ) [] COMMA = ( 4 ) var(FNR$) EOS
0x0fe3…0fe6 1730 1a4af3
0x0fe6…0ff4 1740 LET ELEMENT var(A$) ( var(L%) 1 PLUS ) [] COMMA » « EOS
0x0ff4…0ff7 1760 GOSUB 0 )
0x0ff7…0ffa 1770 GOTO 0 21
0x0ffa…1014 1780 REM ---- CASE: HELP -----
0x1014…1018 1790 TRAP 0 1850
0x1018…1027 1800 1605f27009302f54414248454c50f3
0x1027…102b 1810 PRINT var(B0$) SEMI EOS
0x102b…1031 1820 LINPUT 5# SEMI var(A1$) EOS
0x1031…1034 1830 PRINT var(A1$) EOS
0x1034…1037 1840 GOTO 32 24
0x1037…106d 1850 PRINT » Trykk RETURN for a ga videre.« EOS
0x106d…1074 1860 INPUT » « COMMA var(A1$) EOS
0x1074…1076 1875 PRINT EOS
0x1076…1079 1880 1405f3
0x1079…107c 1895 GOSUB 0 )
0x107c…107f 1897 GOTO 0 21
0x107f…109e 1900 REM ---- CASE: EXIT TABLE ----
0x109e…10a5 1902 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x10a5…10a9 1905 RESTORE 2# EOS
0x10a9…10ac 1906 2002f3
0x10ac…10b2 1910 194a01f151f3
0x10b2…10bd 1920 PRINT 2# SEMI ELEMENT var(A$) ( var(I%) ) [] EOS
0x10bd…10c0 1930 1a4af3
0x10c0…10c3 1940 1402f3
0x10c3…10c6 1950 TRAP ERR OFF
0x10c6…10c9 1960 TRAP ESC OFF
0x10c9…10cc 1980 GOTO 0 16
0x10cc…110b 2000 REM vvvvvvvvvvvvvvv SEQUENCE TO DELETE TABLE VVVVVVVVVVVVVVVVV
0x110b…110d 2010 PRINT EOS
0x110d…110f 2020 PRINT EOS
0x110f…1144 2030 INPUT » Gi navn pa tabell som skal slettes .... :« COMMA var(N2$) EOS
0x1144…114a 2050 194a01f14cf3
0x114a…1157 2060 IF var(N2$) ELEMENT var(N$) ( var(I%) ) [] <> COMMA 0 0 33
0x1157…115c 2070 LET var(J%) COMMA var(I%) EOS
0x115c…115f 2080 GOTO var(FNC$) 33
0x115f…1162 2100 1a4af3
0x1162…1166 2105 RESTORE 1# EOS
0x1166…1169 2110 GOTO 0 16
0x1169…116d 2150 TRAP ERR 2158
0x116d…116f 2151 PRINT EOS
0x116f…11a4 2152 INPUT » Er du sikker ? .................. (J/N) :« COMMA var(B$) EOS
0x11a4…11ad 2154 IF var(B$) »« EQ COMMA 0 5 33
0x11ad…11bd 2155 IF ELEMENT var(B$) ( 1 1 ) [] »J« <> COMMA 0 5 33
0x11bd…11cc 2156 1e737243734e749f70022e54e274f3
0x11cc…11d4 2157 IF var(J%) var(N%) EQ COMMA 0 0 34
0x11d4…11de 2158 194a4ef1734c01e374f3
0x11de…11ef 2160 LET ELEMENT var(N$) ( var(I%) ) [] COMMA ELEMENT var(N$) ( var(I%) 1 PLUS ) [] EOS
0x11ef…11f2 2170 1a4af3
0x11f2…11f9 2200 LET var(N%) COMMA var(N%) 1 SUB2 EOS
0x11f9…11fd 2210 RESTORE 1# EOS
0x11fd…1205 2215 IF var(N%) 0 EQ COMMA 0 var(N2$) 34
0x1205…120b 2220 194a01f14cf3
0x120b…1216 2230 PRINT 1# SEMI ELEMENT var(N$) ( var(I%) ) [] EOS
0x1216…1219 2240 1a4af3
0x1219…121c 2245 2001f3
0x121c…1222 2250 LET var(X%) COMMA = var(FNI%) EOS
0x1222…1225 2260 GOTO 0 16
0x1225…1229 3000 PRINT var(B0$) SEMI EOS
0x1229…1263 3005 PRINT » Denne disketten har ingen tilgjengelige tabeller.« EOS
0x1263…1292 3010 PRINT »===========================================« EOS
0x1292…1294 3020 PRINT EOS
0x1294…1297 3030 GOTO 0 17
0x1297…12d6 4000 REM VVVVVVVVVVVVVVV INPUT ROUTINE FOR ONE LINE VVVVVVVVVVVVVVV
0x12d6…12f8 4010 REM *** PRINT NUMBER ************
0x12f8…1302 4015 IF var(L%) 21 > COMMA 27 var(L%) COMMA 21 EOS
0x1302…130b 4020 LET var(B$) COMMA = ( var(L%) ) → b0f3
0x130b…1310 4030 LET var(R%) COMMA 0 EOS
0x1310…1320 4050 LET ELEMENT var(A$) ( var(L%) 2 5 ) [] COMMA = ( 4 ) var(FNR$) EOS
0x1320…1342 4060 REM *** INPUT NAME OR COMMAND ***
0x1342…1347 4070 LET var(F1%) COMMA 2 EOS
0x1347…134a 4080 GOSUB 0 var(B0x60)
0x134a…1350 4090 INPUT »« COMMA var(B$) EOS
0x1350…1359 4100 IF var(B$) »« EQ COMMA 0 0 var(B$)
0x1359…1365 4110 IF = ( var(B$) ) LEN 1 <> COMMA 0 var(A0x41)
0x1365…136a 4120 LET var(R%) COMMA 1 EOS
0x136a…136c 4130 RETURN EOS
0x136c…1378 4140 IF = ( var(B$) ) LEN 9 ?< COMMA 0 → 8041
0x1378…1380 4150 PRINT = ( 7 ) → aff2f3
0x1380…1383 4160 GOTO → 8040
0x1383…1393 4180 LET ELEMENT var(A$) ( var(L%) 6 14 ) [] COMMA = ( 9 ) var(FNR$) EOS
0x1393…13b5 4190 REM *** INPUT THEMATIC CODE *****
0x13b5…13ce 4200 IF ELEMENT var(A$) ( var(L%) 6 14 ) [] » « EQ COMMA 0 var(FNC$) var(A$)
0x13ce…13d3 4210 LET var(F1%) COMMA 3 EOS
0x13d3…13d6 4220 GOSUB 0 var(B0x60)
0x13d6…13dc 4230 INPUT »« COMMA var(B$) EOS
0x13dc…13e5 4240 IF var(B$) »« EQ COMMA 0 16 var(N$)
0x13e5…13f1 4250 IF = ( var(B$) ) LEN 9 ?< COMMA 0 → 9042
0x13f1…13f9 4260 PRINT = ( 7 ) → aff2f3
0x13f9…13fc 4270 GOTO 32 var(B$)
0x13fc…140c 4290 LET ELEMENT var(A$) ( var(L%) 15 23 ) [] COMMA = ( 9 ) var(FNR$) EOS
0x140c…142e 4300 REM *** INPUT DIGITIZING MODE ***
0x142e…1433 4310 LET var(F1%) COMMA 4 EOS
0x1433…1436 4320 GOSUB 0 var(B0x60)
0x1436…143a 4330 TRAP ERR 4450
0x143a…1442 4340 INPUT » « COMMA var(B$) EOS
0x1442…144b 4350 IF var(B$) »« EQ COMMA 0 → 9044
0x144b…1458 4370 LET var(B$) COMMA = ( = ( var(B$) ) VAL ) → b0f3
0x1458…1468 4380 LET ELEMENT var(A$) ( var(L%) 24 31 ) [] COMMA = ( 8 ) var(FNR$) EOS
0x1468…1479 4390 IF ELEMENT var(B$) ( 7 8 ) [] »11« EQ COMMA 0 »\x03rBs\x07\x08t\x9fp\x0221\xe7\xf1\x00pD\x03rBs\x07\x08t\x9fp\x0231\xe7\xf1\x00pD\x03rBs\x07\x08t\x9fp\x0222\xe7\xf1\x00cD\x03rBs\x07\x08t\x9fp\x0223\xe7\xf1\x00cD«
0x1479…148a 4400 IF ELEMENT var(B$) ( 7 8 ) [] »21« EQ COMMA 0 »\x03rBs\x07\x08t\x9fp\x0231\xe7\xf1\x00pD\x03rBs\x07\x08t\x9fp\x0222\xe7\xf1\x00cD\x03rBs\x07\x08t\x9fp\x0223\xe7\xf1\x00cD\x03rBs\x07\x08t\x9fp\x0224\xe7\xf1\x00cD«
0x148a…149b 4410 IF ELEMENT var(B$) ( 7 8 ) [] »31« EQ COMMA 0 »\x03rBs\x07\x08t\x9fp\x0222\xe7\xf1\x00cD\x03rBs\x07\x08t\x9fp\x0223\xe7\xf1\x00cD\x03rBs\x07\x08t\x9fp\x0224\xe7\xf1\x00cD«si»qs\x07t\xaf\xf2\xf3\x00 C\x03qsBt\xad«
0x149b…14ac 4420 IF ELEMENT var(B$) ( 7 8 ) [] »22« EQ COMMA 0 var(B0x63) var(N1$)
0x14ac…14bd 4430 IF ELEMENT var(B$) ( 7 8 ) [] »23« EQ COMMA 0 var(B0x63) var(N1$)
0x14bd…14ce 4440 IF ELEMENT var(B$) ( 7 8 ) [] »24« EQ COMMA 0 var(B0x63) var(N1$)
0x14ce…14d6 4450 PRINT = ( 7 ) → aff2f3
0x14d6…14d9 4460 GOTO 32 var(N$)
0x14d9…14f7 4463 IF = ( var(B$) ) VAL %100 ?< = ( var(B$) ) VAL 30024 > OR COMMA 0 var(FNC$) var(N1$)
0x14f7…14fa 4465 GOTO → 9044
0x14fa…1510 4470 IF = ( var(B$) ) VAL 0 ?< = ( var(B$) ) VAL %100 > OR COMMA 0 var(FNC$) var(N1$)
0x1510…1535 4480 REM *** INPUT SHORT EXTRA PEDAL ****
0x1535…154d 4490 IF ELEMENT var(A$) ( var(L%) 24 31 ) [] » « EQ COMMA 0 var(FNC$) var(N1$)
0x154d…1552 4500 LET var(F1%) COMMA 5 EOS
0x1552…1555 4510 GOSUB 0 var(B0x60)
0x1555…1559 4520 TRAP ERR 4510
0x1559…1564 4530 INPUT » « COMMA var(B$) EOS
0x1564…156d 4540 IF var(B$) »« EQ COMMA 0 32 var(A1$)
0x156d…1581 4560 IF 0 = ( var(B$) ) VAL → e971734274ad14e9edf1000046
0x1581…1589 4580 PRINT = ( 7 ) → aff2f3
0x1589…158c 4590 GOTO 16 var(N2$)
0x158c…159c 4600 LET ELEMENT var(A$) ( var(L%) 32 39 ) [] COMMA = ( 8 ) var(FNR$) EOS
0x159c…15be 4610 REM *** INPUT LONG EXTRA PEDAL **
0x15be…15d6 4620 IF ELEMENT var(A$) ( var(L%) 32 39 ) [] » « EQ COMMA 0 → 8045
0x15d6…15db 4630 LET var(F1%) COMMA 6 EOS
0x15db…15de 4640 GOSUB 0 var(B0x60)
0x15de…15e2 4650 TRAP ERR 4640
0x15e2…15ed 4660 INPUT » « COMMA var(B$) EOS
0x15ed…15f6 4670 IF var(B$) »« EQ COMMA 0 var(FNC$) var(B0$)
0x15f6…160a 4690 IF 0 = ( var(B$) ) VAL → e971734274ad14e9edf1003047
0x160a…1612 4710 PRINT = ( 7 ) → aff2f3
0x1612…1615 4720 GOTO var(A0x46)
0x1615…1625 4730 LET ELEMENT var(A$) ( var(L%) 40 47 ) [] COMMA = ( 8 ) var(FNR$) EOS
0x1625…1646 4740 REM *** INPUT WRITING-CODE *****
0x1646…165e 4750 IF ELEMENT var(A$) ( var(L%) 40 47 ) [] » « EQ COMMA 0 16 var(B0$)
0x165e…1663 4760 LET var(F1%) COMMA 7 EOS
0x1663…1666 4770 GOSUB 0 var(B0x60)
0x1666…166a 4780 TRAP ERR 4870
0x166a…1675 4790 INPUT » « COMMA var(B$) EOS
0x1675…167e 4800 IF var(B$) »« EQ COMMA 0 16 var(FNX%)
0x167e…1687 4820 LET var(B%) COMMA = ( var(B$) ) VAL EOS
0x1687…168f 4830 IF var(B%) 1 ?< COMMA 0 »\x03\«so»\xea\xf1\x00pH\x03\\x05\xe8\xf1\x00\x90H\x03\
\xea\xf1\x00\x90H«si»qs\x07t\xaf\xf2\xf3\x00pG\x1brAsQ07t\x9f\xf1qs\x08tS\xf3\x0bp\x1e *** INPUT ACCUM.G«
0x168f…1697 4840 IF var(B%) 14 > COMMA 0 »\x03\\x05\xe8\xf1\x00\x90H\x03\
\xea\xf1\x00\x90H«si»qs\x07t\xaf\xf2\xf3\x00pG\x1brAsQ07t\x9f\xf1qs\x08tS\xf3\x0bp\x1e *** INPUT ACCUM.GROUP ***«
0x1697…169f 4850 IF var(B%) 5 ?< COMMA 0 → 9048
0x169f…16a7 4860 IF var(B%) 10 > COMMA 0 → 9048
0x16a7…16af 4870 PRINT = ( 7 ) → aff2f3
0x16af…16b2 4880 GOTO »\x1brAsQ07t\x9f\xf1qs\x08tS\xf3\x0bp\x1e *** INPUT ACCUM.GROUP ******
\x03rAsQ07t\x9fp\x08 \xe7\xf1\x00«
0x16b2…16c2 4890 LET ELEMENT var(A$) ( var(L%) 48 55 ) [] COMMA = ( 8 ) var(FNR$) EOS
0x16c2…16e3 4900 REM *** INPUT ACCUM.GROUP ******
0x16e3…16fb 4910 IF ELEMENT var(A$) ( var(L%) 48 55 ) [] » « EQ COMMA 0 »\x1b[\xf1\x08\xf3«soh»\x00`\x1c«soh»0P\x03qsrAsQ07t\x9ft\xad
\xea\xf1\x00\x80I\x1bB\xf1p«soh»0\xf3\x00PP\x10p\x04 \xf1B\xf3\x03Bp\x00\xe7\xf1\x000Q\x03\x00qsBt\xad\xe8qsBt«
0x16fb…1700 4920 LET var(F1%) COMMA 8 EOS
0x1700…1703 4930 GOSUB 0 var(B0x60)
0x1703…1707 4940 TRAP ERR 5030
0x1707…171a 4950 IF = ( ELEMENT var(A$) ( var(L%) 48 55 ) [] ) VAL 10 > COMMA 0 → 8049
0x171a…1721 4960 LET var(B$) COMMA »0« EOS
0x1721…1724 4970 GOTO var(FNC$) var(FNC$)
0x1724…172e 4980 INPUT » « COMMA var(B$) EOS
0x172e…1737 4990 IF var(B$) »« EQ COMMA 0 48 var(L%)
0x1737…174d 5000 IF 0 = ( var(B$) ) VAL ?< = ( var(B$) ) VAL %100 → e9edf1005050
0x174d…1755 5030 PRINT = ( 7 ) → aff2f3
0x1755…1758 5040 GOTO 48 var(FNX%)
0x1758…1768 5050 LET ELEMENT var(A$) ( var(L%) 56 63 ) [] COMMA = ( 8 ) var(FNR$) EOS
0x1768…176b 5060 GOSUB 0 »]\xf1«
0x176b…1776 5070 ON var(R2%) COMMA 0 → 905190512051f3
0x1776…1797 5120 REM *** INPUT ACCUM. VALUE *****
0x1797…17af 5130 IF ELEMENT var(A$) ( var(L%) 56 63 ) [] » « EQ COMMA 0 48 var(FNC$)
0x17af…17b4 5140 LET var(F1%) COMMA 9 EOS
0x17b4…17b7 5150 GOSUB 0 var(B0x60)
0x17b7…17bb 5160 TRAP ERR 5210
0x17bb…17c1 5170 INPUT »« COMMA var(B$) EOS
0x17c1…17ca 5180 IF var(B$) »« EQ COMMA 0 var(FNC$) var(K%)
0x17ca…17ee 5190 IF = ( var(B$) ) VAL -1 → eb71734274ad6e0999999990000088e9edf1003052
0x17ee…17f6 5210 PRINT = ( 7 ) → aff2f3
0x17f6…17f9 5220 GOTO var(FNC$) var(L%)
0x17f9…180d 5230 LET ELEMENT var(A$) ( var(L%) %64 %72 ) [] COMMA = ( 9 ) var(FNR$) EOS
0x180d…1810 5240 GOSUB 0 ELEMENT
0x1810…182d 5250 IF ELEMENT var(A$) ( var(L%) %64 %72 ) [] » « EQ COMMA 0 16 var(K%)
0x182d…1830 5260 GOSUB 0 var(B0x60)
0x1830…1833 5270 TRAP ERR OFF
0x1833…1835 5280 RETURN EOS
0x1835…1839 5300 REM
0x1839…1878 5310 REM VVVVVVVVVV ROUTINE TO POSITION IN A FIELD VVVVVVVVVVVVVVVV
0x1878…188c 6000 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$) ( var(L%) 1 %80 ) [] PLUS SEMI EOS
0x188c…189e 6020 PRINT = ( var(L%) ( ELEMENT var(F%') ( var(F1%) ) [] 1 PLUS ) ) var(FNC$) SEMI EOS
0x189e…18a0 6030 RETURN EOS
0x18a0…18a4 6045 REM
0x18a4…18ef 6499 REM VVVVVV ROUTINE TO FILL TABLE A$ WHITH SPACES, AND INPUT TABLE NAME VVV
0x18ef…18f5 6500 194a01f115f3
0x18f5…1905 6510 LET ELEMENT var(A$) ( var(I%) 1 %80 ) [] COMMA » « EOS
0x1905…1908 6530 1a4af3
0x1908…190a 6600 PRINT EOS
0x190a…1937 6610 INPUT » Gi tabellnavn .. : « COMMA var(N2$) EOS
0x1937…1939 6620 PRINT EOS
0x1939…193b 6630 RETURN EOS
0x193b…193f 6637 REM
0x193f…197e 6699 REM VVVVVVVVVVVVVV ROUTINE TO PRINT HEADING VVVVVVVVVVVVVVVVVV
0x197e…1982 6700 PRINT var(B0$) SEMI EOS
0x1982…19a7 6705 PRINT » OBJEKT TEMA DIGIT.« SEMI EOS
0x19a7…19d2 6707 PRINT » EKSTRA-PEDAL SKRIVE AKKUMULERINGS-« EOS
0x19d2…1a06 6710 PRINT » NR: NAVN: KODE: MODE: KORT: LANG:« SEMI EOS
0x1a06…1a23 6714 PRINT » KODE: GRUPPE: VERDI:« EOS
0x1a23…1a26 6716 GOSUB 0 → 77
0x1a26…1a28 6720 RETURN EOS
0x1a28…1a60 7000 REM VVVVV SUBROUTINE TO HANDLE ACCUMULATING GROUP VVVVV
0x1a60…1a8f 7010 REM ----- RETURNVALUE R2%=1 SET ACC VALUE TO 0
0x1a8f…1ac0 7020 REM ----- =2 SET ACC VALUE TO N1$
0x1ac0…1af8 7030 REM ----- =3 INPUT ACC.VALUE AND SET ALL
0x1af8…1b36 7040 REM ----- ACCVALUES IN GROUP TO INPUTVALUE.
0x1b36…1b3b 7050 LET var(R2%) COMMA 0 EOS
0x1b3b…1b4c 7060 IF var(B$) » 0« <> COMMA 0 → 9070
0x1b4c…1b51 7070 LET var(R2%) COMMA 1 EOS
0x1b51…1b53 7080 RETURN EOS
0x1b53…1b5d 7090 194a01f1735101e374f3
0x1b5d…1b6c 7100 IF var(B$) ELEMENT var(A$) ( var(I%) 56 63 ) [] <> COMMA 0 16 =
0x1b6c…1b7c 7103 LET var(B$) COMMA ELEMENT var(A$) ( var(I%) %64 %72 ) [] EOS
0x1b7c…1b7f 7106 GOTO var(A0x71)
0x1b7f…1b82 7110 1a4af3
0x1b82…1b87 7120 LET var(R2%) COMMA 3 EOS
0x1b87…1b89 7130 RETURN EOS
0x1b89…1b8e 7140 LET var(R2%) COMMA 2 EOS
0x1b8e…1b90 7150 RETURN EOS
0x1b90…1bd7 7200 REM VVVVV SUBROUTINE TO SET ALL ACC.VAL.`S TO B$ WHEN CORRECTING VVVVV
0x1bd7…1bdc 7210 LET var(I%) COMMA var(L%) EOS
0x1bdc…1be3 7220 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x1be3…1bfb 7230 IF ELEMENT var(A$) ( var(I%) 24 31 ) [] » « EQ COMMA 0 var(FNC$) (
0x1bfb…1c03 7235 IF var(I%) 20 > COMMA 0 var(FNC$) (
0x1c03…1c19 7240 IF ELEMENT var(A$) ( var(L%) 56 63 ) [] ELEMENT var(A$) ( var(I%) 56 63 ) [] <> COMMA 0 var(B0x60) ELEMENT
0x1c19…1c29 7250 LET ELEMENT var(A$) ( var(I%) %64 %72 ) [] COMMA var(B$) EOS
0x1c29…1c2c 7260 GOTO 32 ELEMENT
0x1c2c…1c2e 7350 RETURN EOS
0x1c2e…1c67 7400 REM VVVV SUBROUTINE TO WRITE TABLE TO SCREEN VVVVVVVVVVV
0x1c67…1c6a 7405 GOSUB 0 var(B0x67)
0x1c6a…1c70 7410 194a01f151f3
0x1c70…1c84 7420 PRINT = ( var(I%) 1 ) var(FNC$) ELEMENT var(A$) ( var(I%) 1 %72 ) [] PLUS SEMI EOS
0x1c84…1c87 7430 1a4af3
0x1c87…1c8a 7435 GOSUB 0 → 77
0x1c8a…1c8c 7440 RETURN EOS
0x1c8c…1cc6 7500 REM REDIGERING AV ALTERNATIV PARAMETERTABELL FOR PLOTTING
0x1cc6…1ccc 7510 REM C
0x1ccc…1cd7 7520 LET var(X%) COMMA = ( var(L%) 1 SUB2 ) var(FNX1%) EOS
0x1cd7…1d02 7530 INPUT » HVILKET NR SKAL RETTES (0=AVSLUTT) « COMMA var(X%) EOS
0x1d02…1d0c 7540 IF var(X%) var(L%) 1 SUB2 > COMMA 0 16 USING
0x1d0c…1d14 7550 IF var(X%) 0 EQ COMMA 0 → 8075
0x1d14…1d1d 7560 LET var(X%) COMMA = ( var(X%) ) var(FNX%) EOS
0x1d1d…1d20 7570 GOTO 16 USING
0x1d20…1d26 7580 REM C
0x1d26…1d28 7600 RETURN EOS
0x1d28…1d47 7700 REM SUB HJELPETEXT -----------
0x1d47…1d50 7710 PRINT = ( 21 1 ) var(FNC$) SEMI EOS
0x1d50…1d8a 7720 PRINT »H=HJELP, C=RETTE, D=SLETTE, P=PLOTTEPARAMETRE, E=EXIT« SEMI EOS
0x1d8a…1d8c 7730 RETURN EOS
0x1d8c…1dc1 9000 REM VVVVVVVVVVVVVVV END PROGRAM VVVVVVVVVVVVVVVVVVVV
0x1dc1…1dc3 9010 14f3
0x1dc3…1dc7 9700 PRINT var(B0$) SEMI EOS
0x1dc7…1dcc 9710 CHAIN »S« EOS
0x1dcc…1dcd 9999 END