|
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 - metrics - download
Length: 7290 (0x1c7a)
Notes: ZILOG_BASIC
Names: »DIG.DEF.BP«
└─⟦8ff4bf6ca⟧ Bits:30006821 8" ZilogMCZ floppy NThun_0029 (MAPDAT-DIG/PLOT 18/10-82 Tilpasset for bruk pÅ MCZ 1/35 Ny versjon av PREPARE)
└─⟦this⟧ »DIG.DEF.BP«
0x0000…0014 BasicHead {variables=0x005c, stms=0x0608, f2=0x1602, f3=0000000000000000000000000000}
0x0014…0070 [
0x0014…0070 [0x00]: VarDef {f0=0xaaaa, f1=0x42, f2=0x31} R2% 0x16
0x0014…0070 [0x01]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x21} B% 0x15
0x0014…0070 [0x02]: VarDef {f0=0x0200, f1=0x01, f2=0x25} F1% 0x14
0x0014…0070 [0x03]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x29} J% 0x13
0x0014…0070 [0x04]: VarDef {f0=0x0100, f1=0x09, f2=0x20} A9% 0x12
0x0014…0070 [0x05]: VarDef {f0=0xaaaa, f1=0x41, f2=0x2b} L1% 0x11
0x0014…0070 [0x06]: VarDef {f0=0x0100, f1=0x0f, f2=0x31} R% 0x10
0x0014…0070 [0x07]: VarDef {f0=0x0300, f1=0x01, f2=0x28} I1% 0xf
0x0014…0070 [0x08]: VarDef {f0=0x0200, f1=0x0f, f2=0x2d} N% 0xe
0x0014…0070 [0x09]: VarDef {f0=0x0400, f1=0x08, f2=0x29} J8% 0xd
0x0014…0070 [0x0a]: VarDef {f0=0x0300, f1=0x09, f2=0x29} J9% 0xc
0x0014…0070 [0x0b]: VarDef {f0=0x0600, f1=0x0f, f2=0x28} I% 0xb
0x0014…0070 [0x0c]: VarDef {f0=0xefc3, f1=0x1f, f2=0x31} FNR% 0xa
0x0014…0070 [0x0d]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2a} K% 0x9
0x0014…0070 [0x0e]: VarDef {f0=0x0500, f1=0x0f, f2=0x2b} L% 0x8
0x0014…0070 [0x0f]: VarDef {f0=0xefd3, f1=0x1f, f2=0x42} FNC$ 0x7
0x0014…0070 [0x10]: VarDef {f0=0x07ba, f1=0x0f, f2=0xa5} F%' 0x6
0x0014…0070 [0x11]: VarDef {f0=0x076e, f1=0x01, f2=0x40} A1$ 0x5
0x0014…0070 [0x12]: VarDef {f0=0x075a, f1=0x02, f2=0x4d} N2$ 0x4
0x0014…0070 [0x13]: VarDef {f0=0x0746, f1=0x01, f2=0x4d} N1$ 0x3
0x0014…0070 [0x14]: VarDef {f0=0x05da, f1=0x2f, f2=0x4d} N$<2f4d> 0x2
0x0014…0070 [0x15]: VarDef {f0=0x05cc, f1=0x0f, f2=0x41} B$ 0x1
0x0014…0070 [0x16]: VarDef {f0=0x0000, f1=0x2f, f2=0x40} A$<2f40> 0x0
0x0014…0070 ]
0x0070…0074 Statement 39321 @0x1c79
0x0074…0078 Statement 36880 @0x1c77
0x0078…007c Statement 36864 @0x1c42
0x007c…0080 Statement 29984 @0x1c40
0x0080…0084 Statement 29968 @0x1c0b
0x0084…0088 Statement 29952 @0x1bd4
0x0088…008c Statement 29776 @0x1b9b
0x008c…0090 Statement 29760 @0x1b99
0x0090…0094 Statement 29749 @0x1b96
0x0094…0098 Statement 29744 @0x1b93
0x0098…009c Statement 29728 @0x1b80
0x009c…00a0 Statement 29712 @0x1b76
0x00a0…00a4 Statement 29696 @0x1b3d
0x00a4…00a8 Statement 29536 @0x1b03
0x00a8…00ac Statement 29520 @0x1b01
0x00ac…00b0 Statement 29280 @0x1afe
0x00b0…00b4 Statement 29264 @0x1aee
0x00b4…00b8 Statement 29248 @0x1ad8
0x00b8…00bc Statement 29237 @0x1ad0
0x00bc…00c0 Statement 29232 @0x1ab8
0x00c0…00c4 Statement 29216 @0x1ab1
0x00c4…00c8 Statement 29200 @0x1aac
0x00c8…00cc Statement 29184 @0x1a73
0x00cc…00d0 Statement 29024 @0x1a3a
0x00d0…00d4 Statement 29008 @0x1a38
0x00d4…00d8 Statement 28992 @0x1a33
0x00d8…00dc Statement 28976 @0x1a31
0x00dc…00e0 Statement 28960 @0x1a2c
0x00e0…00e4 Statement 28944 @0x1a29
0x00e4…00e8 Statement 28934 @0x1a26
0x00e8…00ec Statement 28931 @0x1a16
0x00ec…00f0 Statement 28928 @0x1a07
0x00f0…00f4 Statement 28816 @0x19fd
0x00f4…00f8 Statement 28800 @0x19fb
0x00f8…00fc Statement 28784 @0x19f6
0x00fc…0100 Statement 28768 @0x19e5
0x0100…0104 Statement 28752 @0x19e0
0x0104…0108 Statement 28736 @0x19a2
0x0108…010c Statement 28720 @0x196a
0x010c…0110 Statement 28704 @0x1939
0x0110…0114 Statement 28688 @0x190a
0x0114…0118 Statement 28672 @0x18d2
0x0118…011c Statement 26688 @0x18ce
0x011c…0120 Statement 26677 @0x188f
0x0120…0124 Statement 26672 @0x188d
0x0124…0128 Statement 26656 @0x188a
0x0128…012c Statement 26640 @0x1882
0x012c…0130 Statement 26624 @0x187c
0x0130…0134 Statement 26521 @0x183d
0x0134…0138 Statement 26416 @0x1839
0x0138…013c Statement 26405 @0x17fa
0x013c…0140 Statement 26400 @0x17f8
0x0140…0144 Statement 26390 @0x17f5
0x0144…0148 Statement 26388 @0x17c6
0x0148…014c Statement 26386 @0x1799
0x014c…0150 Statement 26384 @0x176f
0x0150…0154 Statement 26375 @0x1738
0x0154…0158 Statement 26373 @0x1706
0x0158…015c Statement 26368 @0x1703
0x015c…0160 Statement 26265 @0x16c4
0x0160…0164 Statement 26167 @0x16c0
0x0164…0168 Statement 26165 @0x1681
0x0168…016c Statement 26160 @0x167f
0x016c…0170 Statement 26144 @0x167d
0x0170…0174 Statement 26128 @0x165d
0x0174…0178 Statement 26112 @0x165b
0x0178…017c Statement 26009 @0x161c
0x017c…0180 Statement 25927 @0x1618
0x0180…0184 Statement 25925 @0x15d9
0x0184…0188 Statement 25920 @0x15d7
0x0188…018c Statement 25904 @0x15d4
0x018c…0190 Statement 25888 @0x15a1
0x0190…0194 Statement 25872 @0x1570
0x0194…0198 Statement 25856 @0x156a
0x0198…019c Statement 25753 @0x152b
0x019c…01a0 Statement 24645 @0x1527
0x01a0…01a4 Statement 24640 @0x14e8
0x01a4…01a8 Statement 24624 @0x14e6
0x01a8…01ac Statement 24608 @0x14d4
0x01ac…01b0 Statement 24592 @0x14d0
0x01b0…01b4 Statement 24576 @0x14bd
0x01b4…01b8 Statement 21264 @0x147e
0x01b8…01bc Statement 21248 @0x147a
0x01bc…01c0 Statement 21136 @0x143b
0x01c0…01c4 Statement 21120 @0x1439
0x01c4…01c8 Statement 21104 @0x1436
0x01c8…01cc Statement 21088 @0x1433
0x01cc…01d0 Statement 21072 @0x1416
0x01d0…01d4 Statement 21056 @0x1413
0x01d4…01d8 Statement 21040 @0x1403
0x01d8…01dc Statement 21024 @0x1400
0x01dc…01e0 Statement 21008 @0x13fd
0x01e0…01e4 Statement 20992 @0x13e9
0x01e4…01e8 Statement 20880 @0x13e0
0x01e8…01ec Statement 20864 @0x13d7
0x01ec…01f0 Statement 20848 @0x13d0
0x01f0…01f4 Statement 20832 @0x13cc
0x01f4…01f8 Statement 20816 @0x13c9
0x01f8…01fc Statement 20800 @0x13c4
0x01fc…0200 Statement 20784 @0x13ac
0x0200…0204 Statement 20768 @0x138b
0x0204…0208 Statement 20752 @0x1388
0x0208…020c Statement 20736 @0x1383
0x020c…0210 Statement 20624 @0x1380
0x0210…0214 Statement 20608 @0x1379
0x0214…0218 Statement 20592 @0x136e
0x0218…021c Statement 20576 @0x136b
0x021c…0220 Statement 20560 @0x135f
0x0220…0224 Statement 20544 @0x135c
0x0224…0228 Statement 20528 @0x1359
0x0228…022c Statement 20512 @0x134b
0x022c…0230 Statement 20496 @0x1337
0x0230…0234 Statement 20484 @0x132b
0x0234…0238 Statement 20483 @0x1318
0x0238…023c Statement 20480 @0x130f
0x023c…0240 Statement 18832 @0x1306
0x0240…0244 Statement 18816 @0x12ff
0x0244…0248 Statement 18800 @0x12fc
0x0248…024c Statement 18784 @0x12f5
0x024c…0250 Statement 18768 @0x12e2
0x0250…0254 Statement 18752 @0x12de
0x0254…0258 Statement 18736 @0x12db
0x0258…025c Statement 18720 @0x12d6
0x025c…0260 Statement 18704 @0x12be
0x0260…0264 Statement 18688 @0x129d
0x0264…0268 Statement 18576 @0x1291
0x0268…026c Statement 18560 @0x128e
0x026c…0270 Statement 18544 @0x128b
0x0270…0274 Statement 18528 @0x1283
0x0274…0278 Statement 18512 @0x127b
0x0278…027c Statement 18496 @0x1273
0x027c…0280 Statement 18480 @0x126b
0x0280…0284 Statement 18464 @0x1262
0x0284…0288 Statement 18448 @0x1259
0x0288…028c Statement 18432 @0x1250
0x028c…0290 Statement 18320 @0x1249
0x0290…0294 Statement 18304 @0x1245
0x0294…0298 Statement 18288 @0x1242
0x0298…029c Statement 18272 @0x123d
0x029c…02a0 Statement 18256 @0x1225
0x02a0…02a4 Statement 18240 @0x1204
0x02a4…02a8 Statement 18224 @0x11f8
0x02a8…02ac Statement 18208 @0x11f5
0x02ac…02b0 Statement 18192 @0x11f2
0x02b0…02b4 Statement 18176 @0x11e6
0x02b4…02b8 Statement 18064 @0x11da
0x02b8…02bc Statement 18048 @0x11d1
0x02bc…02c0 Statement 18032 @0x11c8
0x02c0…02c4 Statement 18016 @0x11c1
0x02c4…02c8 Statement 18000 @0x11bd
0x02c8…02cc Statement 17984 @0x11ba
0x02cc…02d0 Statement 17968 @0x11b5
0x02d0…02d4 Statement 17952 @0x119d
0x02d4…02d8 Statement 17936 @0x117b
0x02d8…02dc Statement 17920 @0x116f
0x02dc…02e0 Statement 17808 @0x116c
0x02e0…02e4 Statement 17792 @0x1169
0x02e4…02e8 Statement 17776 @0x115d
0x02e8…02ec Statement 17760 @0x1151
0x02ec…02f0 Statement 17744 @0x1148
0x02f0…02f4 Statement 17728 @0x113f
0x02f4…02f8 Statement 17712 @0x1138
0x02f8…02fc Statement 17696 @0x1134
0x02fc…0300 Statement 17680 @0x1131
0x0300…0304 Statement 17664 @0x112c
0x0304…0308 Statement 17552 @0x1114
0x0308…030c Statement 17536 @0x10ef
0x030c…0310 Statement 17520 @0x10e3
0x0310…0314 Statement 17507 @0x10d5
0x0314…0318 Statement 17504 @0x10d2
0x0318…031c Statement 17488 @0x10cf
0x031c…0320 Statement 17472 @0x10be
0x0320…0324 Statement 17456 @0x10ad
0x0324…0328 Statement 17440 @0x109c
0x0328…032c Statement 17424 @0x108b
0x032c…0330 Statement 17408 @0x107a
0x0330…0334 Statement 17296 @0x1069
0x0334…0338 Statement 17280 @0x1060
0x0338…033c Statement 17264 @0x1057
0x033c…0340 Statement 17248 @0x104e
0x0340…0344 Statement 17232 @0x1045
0x0344…0348 Statement 17216 @0x103e
0x0348…034c Statement 17200 @0x103a
0x034c…0350 Statement 17184 @0x1037
0x0350…0354 Statement 17168 @0x1032
0x0354…0358 Statement 17152 @0x1010
0x0358…035c Statement 17040 @0x1004
0x035c…0360 Statement 17024 @0xffb
0x0360…0364 Statement 17008 @0xff8
0x0364…0368 Statement 16992 @0xff5
0x0368…036c Statement 16976 @0xfe9
0x036c…0370 Statement 16960 @0xfe0
0x0370…0374 Statement 16944 @0xfd9
0x0374…0378 Statement 16928 @0xfd6
0x0378…037c Statement 16912 @0xfd1
0x037c…0380 Statement 16896 @0xfb8
0x0380…0384 Statement 16784 @0xf96
0x0384…0388 Statement 16768 @0xf8a
0x0388…038c Statement 16752 @0xf81
0x038c…0390 Statement 16736 @0xf7e
0x0390…0394 Statement 16720 @0xf7b
0x0394…0398 Statement 16704 @0xf6f
0x0398…039c Statement 16688 @0xf6d
0x039c…03a0 Statement 16672 @0xf68
0x03a0…03a4 Statement 16656 @0xf5c
0x03a4…03a8 Statement 16640 @0xf53
0x03a8…03ac Statement 16528 @0xf4c
0x03ac…03b0 Statement 16512 @0xf49
0x03b0…03b4 Statement 16496 @0xf44
0x03b4…03b8 Statement 16480 @0xf22
0x03b8…03bc Statement 16464 @0xf16
0x03bc…03c0 Statement 16448 @0xf0d
0x03c0…03c4 Statement 16432 @0xf08
0x03c4…03c8 Statement 16416 @0xeff
0x03c8…03cc Statement 16400 @0xedd
0x03cc…03d0 Statement 16384 @0xe9e
0x03d0…03d4 Statement 12336 @0xe9b
0x03d4…03d8 Statement 12320 @0xe99
0x03d8…03dc Statement 12304 @0xe6a
0x03dc…03e0 Statement 12293 @0xe3b
0x03e0…03e4 Statement 12288 @0xe38
0x03e4…03e8 Statement 08816 @0xdf8
0x03e8…03ec Statement 08800 @0xdf5
0x03ec…03f0 Statement 08784 @0xdf2
0x03f0…03f4 Statement 08773 @0xdef
0x03f4…03f8 Statement 08768 @0xdec
0x03f8…03fc Statement 08752 @0xde1
0x03fc…0400 Statement 08736 @0xddb
0x0400…0404 Statement 08720 @0xdd7
0x0404…0408 Statement 08704 @0xdd0
0x0408…040c Statement 08560 @0xdcd
0x040c…0410 Statement 08544 @0xdbc
0x0410…0414 Statement 08536 @0xdb2
0x0414…0418 Statement 08534 @0xda3
0x0418…041c Statement 08533 @0xd93
0x041c…0420 Statement 08532 @0xd8a
0x0420…0424 Statement 08531 @0xd87
0x0424…0428 Statement 08530 @0xd53
0x0428…042c Statement 08528 @0xd4f
0x042c…0430 Statement 08464 @0xd4c
0x0430…0434 Statement 08453 @0xd48
0x0434…0438 Statement 08448 @0xd45
0x0438…043c Statement 08320 @0xd42
0x043c…0440 Statement 08304 @0xd3d
0x0440…0444 Statement 08288 @0xd30
0x0444…0448 Statement 08272 @0xd2a
0x0448…044c Statement 08256 @0xd27
0x044c…0450 Statement 08240 @0xcf2
0x0450…0454 Statement 08224 @0xcf0
0x0454…0458 Statement 08208 @0xced
0x0458…045c Statement 08192 @0xcae
0x045c…0460 Statement 06528 @0xcab
0x0460…0464 Statement 06512 @0xca8
0x0464…0468 Statement 06496 @0xca5
0x0468…046c Statement 06480 @0xca2
0x046c…0470 Statement 06464 @0xc9f
0x0470…0474 Statement 06448 @0xc9c
0x0474…0478 Statement 06432 @0xc91
0x0478…047c Statement 06416 @0xc8b
0x047c…0480 Statement 06406 @0xc88
0x0480…0484 Statement 06405 @0xc84
0x0484…0488 Statement 06400 @0xc68
0x0488…048c Statement 06297 @0xc61
0x048c…0490 Statement 06295 @0xc5e
0x0490…0494 Statement 06293 @0xc5b
0x0494…0498 Statement 06288 @0xc58
0x0498…049c Statement 06272 @0xc55
0x049c…04a0 Statement 06261 @0xc53
0x04a0…04a4 Statement 06240 @0xc4c
0x04a4…04a8 Statement 06224 @0xc1e
0x04a8…04ac Statement 06208 @0xc1b
0x04ac…04b0 Statement 06192 @0xc18
0x04b0…04b4 Statement 06176 @0xc12
0x04b4…04b8 Statement 06160 @0xc0f
0x04b8…04bc Statement 06144 @0xc00
0x04bc…04c0 Statement 06032 @0xbfc
0x04c0…04c4 Statement 06016 @0xbe2
0x04c4…04c8 Statement 06000 @0xbdf
0x04c8…04cc Statement 05984 @0xbdc
0x04cc…04d0 Statement 05968 @0xba5
0x04d0…04d4 Statement 05952 @0xb70
0x04d4…04d8 Statement 05936 @0xb6d
0x04d8…04dc Statement 05925 @0xb61
0x04dc…04e0 Statement 05924 @0xb58
0x04e0…04e4 Statement 05923 @0xb4f
0x04e4…04e8 Statement 05920 @0xb3e
0x04e8…04ec Statement 05904 @0xb38
0x04ec…04f0 Statement 05888 @0xb31
0x04f0…04f4 Statement 05776 @0xb2e
0x04f4…04f8 Statement 05760 @0xaff
0x04f8…04fc Statement 05744 @0xac2
0x04fc…0500 Statement 05728 @0xaa6
0x0500…0504 Statement 05712 @0xaa3
0x0504…0508 Statement 05696 @0xaa0
0x0508…050c Statement 05680 @0xa9b
0x050c…0510 Statement 05669 @0xa97
0x0510…0514 Statement 05664 @0xa94
0x0514…0518 Statement 05648 @0xa8d
0x0518…051c Statement 05632 @0xa5c
0x051c…0520 Statement 05527 @0xa20
0x0520…0524 Statement 05525 @0xa1b
0x0524…0528 Statement 05520 @0x9fc
0x0528…052c Statement 05504 @0x9f9
0x052c…0530 Statement 05488 @0x9f2
0x0530…0534 Statement 05477 @0x9ef
0x0534…0538 Statement 05456 @0x9e5
0x0538…053c Statement 05440 @0x9db
0x053c…0540 Statement 05424 @0x9d1
0x0540…0544 Statement 05408 @0x9c7
0x0544…0548 Statement 05392 @0x9bf
0x0548…054c Statement 05382 @0x9bb
0x054c…0550 Statement 05381 @0x9b7
0x0550…0554 Statement 05378 @0x9b4
0x0554…0558 Statement 05376 @0x9b1
0x0558…055c Statement 04960 @0x9ae
0x055c…0560 Statement 04944 @0x99b
0x0560…0564 Statement 04928 @0x991
0x0564…0568 Statement 04912 @0x98e
0x0568…056c Statement 04896 @0x988
0x056c…0570 Statement 04880 @0x984
0x0570…0574 Statement 04864 @0x97d
0x0574…0578 Statement 04752 @0x97a
0x0578…057c Statement 04742 @0x974
0x057c…0580 Statement 04741 @0x96a
0x0580…0584 Statement 04736 @0x963
0x0584…0588 Statement 04720 @0x95e
0x0588…058c Statement 04704 @0x95b
0x058c…0590 Statement 04688 @0x94e
0x0590…0594 Statement 04672 @0x948
0x0594…0598 Statement 04656 @0x945
0x0598…059c Statement 04645 @0x934
0x059c…05a0 Statement 04640 @0x931
0x05a0…05a4 Statement 04624 @0x92e
0x05a4…05a8 Statement 04608 @0x929
0x05a8…05ac Statement 04448 @0x91e
0x05ac…05b0 Statement 04432 @0x91b
0x05b0…05b4 Statement 04416 @0x908
0x05b4…05b8 Statement 04400 @0x906
0x05b8…05bc Statement 04384 @0x8d8
0x05bc…05c0 Statement 04373 @0x8aa
0x05c0…05c4 Statement 04368 @0x87c
0x05c4…05c8 Statement 04357 @0x87a
0x05c8…05cc Statement 04354 @0x877
0x05cc…05d0 Statement 04352 @0x85c
0x05d0…05d4 Statement 04240 @0x859
0x05d4…05d8 Statement 04231 @0x856
0x05d8…05dc Statement 04229 @0x850
0x05dc…05e0 Statement 04224 @0x84c
0x05e0…05e4 Statement 04208 @0x840
0x05e4…05e8 Statement 04192 @0x836
0x05e8…05ec Statement 04176 @0x82f
0x05ec…05f0 Statement 04167 @0x82d
0x05f0…05f4 Statement 04166 @0x7fd
0x05f4…05f8 Statement 04164 @0x7cd
0x05f8…05fc Statement 04162 @0x7ca
0x05fc…0600 Statement 04161 @0x7c7
0x0600…0604 Statement 04160 @0x7c1
0x0604…0608 Statement 04144 @0x7bd
0x0608…060c Statement 04128 @0x7aa
0x060c…0610 Statement 04112 @0x7a5
0x0610…0614 Statement 04096 @0x784
0x0614…0618 Statement 01601 @0x783
0x0618…061c Statement 01600 @0x780
0x061c…0620 Statement 01591 @0x775
0x0620…0624 Statement 01590 @0x772
0x0624…0628 Statement 01589 @0x76f
0x0628…062c Statement 01584 @0x76c
0x062c…0630 Statement 01573 @0x763
0x0630…0634 Statement 01568 @0x75d
0x0634…0638 Statement 01552 @0x752
0x0638…063c Statement 01541 @0x74e
0x063c…0640 Statement 01536 @0x74a
0x0640…0644 Statement 01328 @0x748
0x0644…0648 Statement 01312 @0x73c
0x0648…064c Statement 01296 @0x739
0x064c…0650 Statement 01280 @0x71a
0x0650…0654 Statement 00064 @0x6f3
0x0654…0658 Statement 00048 @0x6c5
0x0658…065c Statement 00037 @0x6b6
0x065c…0660 Statement 00032 @0x6ae
0x0660…0664 Statement 00021 @0x6a4
0x0664…0668 Statement 00020 @0x69c
0x0668…066c Statement 00019 @0x694
0x066c…0670 Statement 00018 @0x68b
0x0670…0674 Statement 00017 @0x683
0x0674…0678 Statement 00016 @0x678
0x0678…0683 0010 DIM ELEMENT var(A$<2f40>) ( 20 %72 ) [] EOS
0x0683…068b 0011 DIM ELEMENT var(B$) ( 10 ) [] EOS
0x068b…0694 0012 DIM ELEMENT var(N$<2f4d>) ( 20 16 ) [] EOS
0x0694…069c 0013 DIM ELEMENT var(N1$) ( 16 ) [] EOS
0x069c…06a4 0014 DIM ELEMENT var(N2$) ( 16 ) [] EOS
0x06a4…06ae 0015 DIM ELEMENT var(A1$) ( %72 ) [] EOS
0x06ae…06b6 0020 DIM ELEMENT var(F%') ( 9 ) [] EOS
0x06b6…06c5 0025 SYSTEM »LINELEN« COMMA %80 EOS
0x06c5…06f3 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
0x06f3…071a 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
0x071a…0739 0500 DEF var(FNC$) var(L%) var(K%) 5 = ( 27 ) → af700159e271732149e274afe271731f4ae274afe2f3
0x0739…073c 0510 GOTO 0 6
0x073c…0748 0520 PRINT = ( 27 ) → af700145e2f2f3
0x0748…074a 0530 RETURN EOS
0x074a…074e 0600 DEF var(FNR%) var(I%) EOS
0x074e…0752 0605 TRAP ERR 0637
0x0752…075d 0610 LET var(J9%) COMMA var(I%) = ( var(B$) ) LEN SUB2 EOS
0x075d…0763 0620 194e01f14df3
0x0763…076c 0625 LET var(B$) COMMA » « var(B$) PLUS EOS
0x076c…076f 0630 1a4ef3
0x076f…0772 0635 RETURN 1 EOS
0x0772…0775 0636 GOTO var(A0x06)
0x0775…0780 0637 RETURN -1 EOS
0x0780…0783 0640 TRAP ERR OFF
0x0783…0784 0641 FNEND
0x0784…07a5 1000 REM **** START MAIN PROGRAM ****
0x07a5…07aa 1010 LET var(N%) COMMA 0 EOS
0x07aa…07bd 1020 1601f2700d302f5441424c452e4e414d4553f3
0x07bd…07c1 1030 TRAP 0 3000
0x07c1…07c7 1040 LINPUT 1# SEMI var(N1$) EOS
0x07c7…07ca 1041 TRAP 0 OFF
0x07ca…07cd 1042 GOSUB 32 5
0x07cd…07fd 1044 PRINT »THESE TABLES ARE AVAILABLE ON THIS DISKETTE:« EOS
0x07fd…082d 1046 PRINT »============================================« EOS
0x082d…082f 1047 PRINT EOS
0x082f…0836 1050 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x0836…0840 1060 LET ELEMENT var(N$<2f4d>) ( var(N%) ) [] COMMA var(N1$) EOS
0x0840…084c 1070 PRINT » « SEMI var(N1$) EOS
0x084c…0850 1080 TRAP 0 1100
0x0850…0856 1085 LINPUT 1# SEMI var(N1$) EOS
0x0856…0859 1087 TRAP 0 OFF
0x0859…085c 1090 GOTO var(I1%) 16
0x085c…0877 1100 REM ** MENU TABLE NAMES **
0x0877…087a 1102 TRAP 0 OFF
0x087a…087c 1105 PRINT EOS
0x087c…08aa 1110 PRINT » CORRECTION OF TABLE/NEW TABLE ...(1)« EOS
0x08aa…08d8 1115 PRINT » ERASING TABLE....................(2)« EOS
0x08d8…0906 1120 PRINT » END PROGRAM......................(3)« EOS
0x0906…0908 1130 PRINT EOS
0x0908…091b 1140 PRINT » ACTION: « SEMI EOS
0x091b…091e 1150 INPUT var(I1%) EOS
0x091e…0929 1160 ON var(I1%) COMMA 0 0 18 0 32 0 → 90f3
0x0929…092e 1200 LET var(L%) COMMA 0 EOS
0x092e…0931 1210 GOSUB 0 var(B0x65)
0x0931…0934 1220 GOSUB 0 var(B0x66)
0x0934…0945 1225 1602f2737002302f45e270022e54e274f3
0x0945…0948 1230 GOSUB 0 var(B0x67)
0x0948…094e 1240 194c01f14ff3
0x094e…095b 1250 IF ELEMENT var(N$<2f4d>) ( var(I%) ) [] var(N2$) EQ COMMA 0 0 19
0x095b…095e 1260 1a4cf3
0x095e…0963 1270 LET var(L%) COMMA 1 EOS
0x0963…096a 1280 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x096a…0974 1285 LET ELEMENT var(N$<2f4d>) ( var(N%) ) [] COMMA var(N2$) EOS
0x0974…097a 1286 PRINT 1# SEMI var(N2$) EOS
0x097a…097d 1290 GOTO 0 21
0x097d…0984 1300 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x0984…0988 1310 TRAP 0 1500
0x0988…098e 1320 LINPUT 2# SEMI var(A1$) EOS
0x098e…0991 1330 TRAP 0 OFF
0x0991…099b 1340 LET ELEMENT var(A$<2f40>) ( var(L%) ) [] COMMA var(A1$) EOS
0x099b…09ae 1350 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$<2f40>) ( var(L%) 1 %72 ) [] PLUS EOS
0x09ae…09b1 1360 GOTO 0 19
0x09b1…09b4 1500 TRAP 0 OFF
0x09b4…09b7 1502 GOSUB 16 var(A0x1c)
0x09b7…09bb 1505 TRAP ERR 1900
0x09bb…09bf 1506 TRAP ESC 1900
0x09bf…09c7 1510 IF var(R%) 0 EQ COMMA 0 »\x03Bp«soh»C\xe7\xf1\x00\x90\x15\x03Bp«soh»E\xe7\xf1\x00`\x16\x03«
0x09c7…09d1 1520 IF var(B$) »C« EQ COMMA 0 → 9015
0x09d1…09db 1530 IF var(B$) »E« EQ COMMA 0 var(B0x60) 22
0x09db…09e5 1540 IF var(B$) »H« EQ COMMA 0 → 8017
0x09e5…09ef 1550 IF var(B$) »F« EQ COMMA 0 → 9918
0x09ef…09f2 1565 GOTO 0 21
0x09f2…09f9 1570 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x09f9…09fc 1580 GOTO 0 21
0x09fc…0a1b 1590 REM ---- CASE: CORRECTION ----
0x0a1b…0a20 1595 LET var(L1%) COMMA var(L%) EOS
0x0a20…0a5c 1597 PRINT = ( 21 1 ) var(FNC$) » « PLUS EOS
0x0a5c…0a8d 1600 PRINT = ( 21 1 ) var(FNC$) » NUMBER YOU WANT TO CORRECT:« PLUS SEMI EOS
0x0a8d…0a94 1610 INPUT » « COMMA var(L%) EOS
0x0a94…0a97 1620 GOSUB 16 var(A0x1c)
0x0a97…0a9b 1625 TRAP ERR 1900
0x0a9b…0aa0 1630 LET var(L%) COMMA var(L1%) EOS
0x0aa0…0aa3 1640 GOSUB 0 )
0x0aa3…0aa6 1650 GOTO 0 21
0x0aa6…0ac2 1660 REM ---- CASE: ERASE ------
0x0ac2…0aff 1670 PRINT = ( 21 1 ) var(FNC$) » « PLUS EOS
0x0aff…0b2e 1680 PRINT = ( 21 1 ) var(FNC$) » NUMBER YOU WANT TO ERASE:« PLUS SEMI EOS
0x0b2e…0b31 1690 INPUT var(L1%) EOS
0x0b31…0b38 1700 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x0b38…0b3e 1710 194c52f149f3
0x0b3e…0b4f 1720 LET ELEMENT var(A$<2f40>) ( var(I%) ) [] COMMA ELEMENT var(A$<2f40>) ( var(I%) 1 PLUS ) [] EOS
0x0b4f…0b58 1723 LET var(B$) COMMA = ( var(I%) ) → b0f3
0x0b58…0b61 1724 LET var(A9%) COMMA = ( 4 ) var(FNR%) EOS
0x0b61…0b6d 1725 LET ELEMENT var(A$<2f40>) ( var(I%) 2 5 ) [] COMMA var(B$) EOS
0x0b6d…0b70 1730 1a4cf3
0x0b70…0ba5 1740 LET ELEMENT var(A$<2f40>) ( ( var(L%) 1 PLUS ) 1 36 ) [] COMMA » « EOS
0x0ba5…0bdc 1750 LET ELEMENT var(A$<2f40>) ( ( var(L%) 1 PLUS ) 37 %72 ) [] COMMA » « EOS
0x0bdc…0bdf 1760 GOSUB 0 )
0x0bdf…0be2 1770 GOTO 0 21
0x0be2…0bfc 1780 REM ---- CASE: HELP -----
0x0bfc…0c00 1790 TRAP 0 1850
0x0c00…0c0f 1800 1605f27009302f54414248454c50f3
0x0c0f…0c12 1810 GOSUB 32 5
0x0c12…0c18 1820 LINPUT 5# SEMI var(A1$) EOS
0x0c18…0c1b 1830 PRINT var(A1$) EOS
0x0c1b…0c1e 1840 GOTO 32 24
0x0c1e…0c4c 1850 PRINT » TYPE RETURN TO CONTINUE« EOS
0x0c4c…0c53 1860 INPUT » « COMMA var(A1$) EOS
0x0c53…0c55 1875 PRINT EOS
0x0c55…0c58 1880 1405f3
0x0c58…0c5b 1890 GOSUB 0 var(B0x67)
0x0c5b…0c5e 1895 GOSUB 0 )
0x0c5e…0c61 1897 GOTO 0 21
0x0c61…0c68 1899 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x0c68…0c84 1900 REM ---- CASE: FINNISH ----
0x0c84…0c88 1905 RESTORE 2# EOS
0x0c88…0c8b 1906 2002f3
0x0c8b…0c91 1910 194c01f149f3
0x0c91…0c9c 1920 PRINT 2# SEMI ELEMENT var(A$<2f40>) ( var(I%) ) [] EOS
0x0c9c…0c9f 1930 1a4cf3
0x0c9f…0ca2 1940 1402f3
0x0ca2…0ca5 1950 TRAP ERR OFF
0x0ca5…0ca8 1960 TRAP ESC OFF
0x0ca8…0cab 1970 1401f3
0x0cab…0cae 1980 GOTO 0 16
0x0cae…0ced 2000 REM VVVVVVVVVVVVVVV SEQUENCE TO ERASE TABLE VVVVVVVVVVVVVVVVVV
0x0ced…0cf0 2010 GOSUB 32 5
0x0cf0…0cf2 2020 PRINT EOS
0x0cf2…0d27 2030 PRINT » GIVE NAME OF TABLE YOU WANT TO ERASE: « SEMI EOS
0x0d27…0d2a 2040 INPUT var(N2$) EOS
0x0d2a…0d30 2050 194c01f14ff3
0x0d30…0d3d 2060 IF var(N2$) ELEMENT var(N$<2f4d>) ( var(I%) ) [] <> COMMA 0 0 33
0x0d3d…0d42 2070 LET var(J%) COMMA var(I%) EOS
0x0d42…0d45 2080 GOTO var(I1%) 33
0x0d45…0d48 2100 1a4cf3
0x0d48…0d4c 2105 RESTORE 1# EOS
0x0d4c…0d4f 2110 GOTO 0 16
0x0d4f…0d53 2150 TRAP ERR 2158
0x0d53…0d87 2152 PRINT » ARE YOU SURE :« SEMI EOS
0x0d87…0d8a 2153 INPUT var(B$) EOS
0x0d8a…0d93 2154 IF var(B$) »« EQ COMMA 0 5 33
0x0d93…0da3 2155 IF ELEMENT var(B$) ( 1 1 ) [] »Y« <> COMMA 0 5 33
0x0da3…0db2 2156 1e7372437354749f70022e54e274f3
0x0db2…0dbc 2158 194c54f1734f01e374f3
0x0dbc…0dcd 2160 LET ELEMENT var(N$<2f4d>) ( var(I%) ) [] COMMA ELEMENT var(N$<2f4d>) ( var(I%) 1 PLUS ) [] EOS
0x0dcd…0dd0 2170 1a4cf3
0x0dd0…0dd7 2200 LET var(N%) COMMA var(N%) 1 SUB2 EOS
0x0dd7…0ddb 2210 RESTORE 1# EOS
0x0ddb…0de1 2220 194c01f14ff3
0x0de1…0dec 2230 PRINT 1# SEMI ELEMENT var(N$<2f4d>) ( var(I%) ) [] EOS
0x0dec…0def 2240 1a4cf3
0x0def…0df2 2245 2001f3
0x0df2…0df5 2250 1401f3
0x0df5…0df8 2260 GOTO 0 16
0x0df8…0e38 2270 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x0e38…0e3b 3000 GOSUB 32 5
0x0e3b…0e6a 3005 PRINT »THERE ARE NO TABLES STORED ON THIS DISKETTE« EOS
0x0e6a…0e99 3010 PRINT »===========================================« EOS
0x0e99…0e9b 3020 PRINT EOS
0x0e9b…0e9e 3030 GOTO 0 17
0x0e9e…0edd 4000 REM VVVVVVVVVVVVVVV INPUT ROUTINE FOR ONE LINE VVVVVVVVVVVVVVV
0x0edd…0eff 4010 REM *** PRINT NUMBER ************
0x0eff…0f08 4020 LET var(B$) COMMA = ( var(L%) ) → b0f3
0x0f08…0f0d 4030 LET var(R%) COMMA 0 EOS
0x0f0d…0f16 4040 LET var(A9%) COMMA = ( 4 ) var(FNR%) EOS
0x0f16…0f22 4050 LET ELEMENT var(A$<2f40>) ( var(L%) 2 5 ) [] COMMA var(B$) EOS
0x0f22…0f44 4060 REM *** INPUT NAME OR COMMAND ***
0x0f44…0f49 4070 LET var(F1%) COMMA 2 EOS
0x0f49…0f4c 4080 GOSUB 0 var(B0x60)
0x0f4c…0f53 4090 INPUT » « COMMA var(B$) EOS
0x0f53…0f5c 4100 IF var(B$) »« EQ COMMA 0 0 var(B$)
0x0f5c…0f68 4110 IF = ( var(B$) ) LEN 1 <> COMMA 0 var(A0x41)
0x0f68…0f6d 4120 LET var(R%) COMMA 1 EOS
0x0f6d…0f6f 4130 RETURN EOS
0x0f6f…0f7b 4140 IF = ( var(B$) ) LEN 9 ?< COMMA 0 »«soh»\x00h\x00\x80@\x1bS\xf1qs tK\xf3\x1brAsI\x06«so»t\x9f\xf1B\xf3\x0bp\x1f *** INPUT THEMATIC CODE *****
\x03rAs«
0x0f7b…0f7e 4150 GOSUB 0 var(B0x68)
0x0f7e…0f81 4160 GOTO → 8040
0x0f81…0f8a 4170 LET var(A9%) COMMA = ( 9 ) var(FNR%) EOS
0x0f8a…0f96 4180 LET ELEMENT var(A$<2f40>) ( var(L%) 6 14 ) [] COMMA var(B$) EOS
0x0f96…0fb8 4190 REM *** INPUT THEMATIC CODE *****
0x0fb8…0fd1 4200 IF ELEMENT var(A$<2f40>) ( var(L%) 6 14 ) [] » « EQ COMMA 0 var(I1%) var(A$<2f40>)
0x0fd1…0fd6 4210 LET var(F1%) COMMA 3 EOS
0x0fd6…0fd9 4220 GOSUB 0 var(B0x60)
0x0fd9…0fe0 4230 INPUT » « COMMA var(B$) EOS
0x0fe0…0fe9 4240 IF var(B$) »« EQ COMMA 0 16 var(N$<2f4d>)
0x0fe9…0ff5 4250 IF = ( var(B$) ) LEN 9 ?< COMMA 0 → 8042
0x0ff5…0ff8 4260 GOSUB 0 var(B0x68)
0x0ff8…0ffb 4270 GOTO 32 var(B$)
0x0ffb…1004 4280 LET var(A9%) COMMA = ( 9 ) var(FNR%) EOS
0x1004…1010 4290 LET ELEMENT var(A$<2f40>) ( var(L%) 15 23 ) [] COMMA var(B$) EOS
0x1010…1032 4300 REM *** INPUT DIGITIZING MODE ***
0x1032…1037 4310 LET var(F1%) COMMA 4 EOS
0x1037…103a 4320 GOSUB 0 var(B0x60)
0x103a…103e 4330 TRAP ERR 4450
0x103e…1045 4340 INPUT » « COMMA var(B$) EOS
0x1045…104e 4350 IF var(B$) »« EQ COMMA 0 → 9044
0x104e…1057 4360 LET var(B%) COMMA = ( var(B$) ) VAL EOS
0x1057…1060 4370 LET var(B$) COMMA = ( var(B%) ) → b0f3
0x1060…1069 4380 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1069…107a 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«
0x107a…108b 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«
0x108b…109c 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«soh»\x00h\x00 C\x03qsBt\xadod\x00\xe8\xf1«
0x109c…10ad 4420 IF ELEMENT var(B$) ( 7 8 ) [] »22« EQ COMMA 0 var(B0x63) var(N1$)
0x10ad…10be 4430 IF ELEMENT var(B$) ( 7 8 ) [] »23« EQ COMMA 0 var(B0x63) var(N1$)
0x10be…10cf 4440 IF ELEMENT var(B$) ( 7 8 ) [] »24« EQ COMMA 0 var(B0x63) var(N1$)
0x10cf…10d2 4450 GOSUB 0 var(B0x68)
0x10d2…10d5 4460 GOTO 32 var(N$<2f4d>)
0x10d5…10e3 4463 IF = ( var(B$) ) VAL %100 ?< COMMA 0 var(I1%) var(N1$)
0x10e3…10ef 4470 LET ELEMENT var(A$<2f40>) ( var(L%) 24 31 ) [] COMMA var(B$) EOS
0x10ef…1114 4480 REM *** INPUT SHORT EXTRA PEDAL ****
0x1114…112c 4490 IF ELEMENT var(A$<2f40>) ( var(L%) 24 31 ) [] » « EQ COMMA 0 var(I1%) var(N1$)
0x112c…1131 4500 LET var(F1%) COMMA 5 EOS
0x1131…1134 4510 GOSUB 0 var(B0x60)
0x1134…1138 4520 TRAP ERR 4510
0x1138…113f 4530 INPUT » « COMMA var(B$) EOS
0x113f…1148 4540 IF var(B$) »« EQ COMMA 0 32 var(A1$)
0x1148…1151 4550 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1151…115d 4560 IF = ( var(B$) ) VAL 20 > COMMA 0 → 8045
0x115d…1169 4570 IF = ( var(B$) ) VAL 0 → ebf1000046
0x1169…116c 4580 GOSUB 0 var(B0x68)
0x116c…116f 4590 GOTO 16 var(N2$)
0x116f…117b 4600 LET ELEMENT var(A$<2f40>) ( var(L%) 32 39 ) [] COMMA var(B$) EOS
0x117b…119d 4610 REM *** INPUT LONG EXTRA PEDAL **
0x119d…11b5 4620 IF ELEMENT var(A$<2f40>) ( var(L%) 32 39 ) [] » « EQ COMMA 0 → 8045
0x11b5…11ba 4630 LET var(F1%) COMMA 6 EOS
0x11ba…11bd 4640 GOSUB 0 var(B0x60)
0x11bd…11c1 4650 TRAP ERR 4640
0x11c1…11c8 4660 INPUT » « COMMA var(B$) EOS
0x11c8…11d1 4670 IF var(B$) »« EQ COMMA 0 var(I1%) var(F%')
0x11d1…11da 4680 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x11da…11e6 4690 IF = ( var(B$) ) VAL 20 > COMMA 0 16 var(F%')
0x11e6…11f2 4700 IF = ( var(B$) ) VAL 0 → ebf1003047
0x11f2…11f5 4710 GOSUB 0 var(B0x68)
0x11f5…11f8 4720 GOTO var(A0x46)
0x11f8…1204 4730 LET ELEMENT var(A$<2f40>) ( var(L%) 40 47 ) [] COMMA var(B$) EOS
0x1204…1225 4740 REM *** INPUT WRITING-CODE *****
0x1225…123d 4750 IF ELEMENT var(A$<2f40>) ( var(L%) 40 47 ) [] » « EQ COMMA 0 16 var(F%')
0x123d…1242 4760 LET var(F1%) COMMA 7 EOS
0x1242…1245 4770 GOSUB 0 var(B0x60)
0x1245…1249 4780 TRAP ERR 4870
0x1249…1250 4790 INPUT » « COMMA var(B$) EOS
0x1250…1259 4800 IF var(B$) »« EQ COMMA 0 16 var(L%)
0x1259…1262 4810 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1262…126b 4820 LET var(B%) COMMA = ( var(B$) ) VAL EOS
0x126b…1273 4830 IF var(B%) 1 ?< COMMA 0 »\x03V«so»\xea\xf1\x00pH\x03V\x05\xe8\xf1\x00\x90H\x03V
\xea\xf1\x00\x90H«soh»\x00h\x00pG\x1brAsI07t\x9f\xf1B\xf3\x0bp\x1e *** INPUT ACCUM.GROUP ****«
0x1273…127b 4840 IF var(B%) 14 > COMMA 0 »\x03V\x05\xe8\xf1\x00\x90H\x03V
\xea\xf1\x00\x90H«soh»\x00h\x00pG\x1brAsI07t\x9f\xf1B\xf3\x0bp\x1e *** INPUT ACCUM.GROUP ******
\x03rAsI«
0x127b…1283 4850 IF var(B%) 5 ?< COMMA 0 → 9048
0x1283…128b 4860 IF var(B%) 10 > COMMA 0 → 9048
0x128b…128e 4870 GOSUB 0 var(B0x68)
0x128e…1291 4880 GOTO »\x1brAsI07t\x9f\xf1B\xf3\x0bp\x1e *** INPUT ACCUM.GROUP ******
\x03rAsI07t\x9fp\x08 \xe7\xf1\x00pH\x1bU«
0x1291…129d 4890 LET ELEMENT var(A$<2f40>) ( var(L%) 48 55 ) [] COMMA var(B$) EOS
0x129d…12be 4900 REM *** INPUT ACCUM.GROUP ******
0x12be…12d6 4910 IF ELEMENT var(A$<2f40>) ( var(L%) 48 55 ) [] » « EQ COMMA 0 »\x1bU\xf1\x08\xf3«soh»\x00`\x1c«soh»0P\x03qsrAsI07t\x9ft\xad
\xea\xf1\x00\x80I\x1bB\xf1p«soh»0\xf3\x00\x00P\x10p«soh» \xf1B\xf3\x03Bp\x00\xe7\xf1\x000Q\x1bS\xf1qs\x08tK\xf3\x03qsrAs«
0x12d6…12db 4920 LET var(F1%) COMMA 8 EOS
0x12db…12de 4930 GOSUB 0 var(B0x60)
0x12de…12e2 4940 TRAP ERR 5030
0x12e2…12f5 4950 IF = ( ELEMENT var(A$<2f40>) ( var(L%) 48 55 ) [] ) VAL 10 > COMMA 0 → 8049
0x12f5…12fc 4960 LET var(B$) COMMA »0« EOS
0x12fc…12ff 4970 GOTO 0 var(I1%)
0x12ff…1306 4980 INPUT » « COMMA var(B$) EOS
0x1306…130f 4990 IF var(B$) »« EQ COMMA 0 48 var(R%)
0x130f…1318 5000 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1318…132b 5003 IF = ( ELEMENT var(A$<2f40>) ( var(L%) 48 55 ) [] ) VAL 10 ?< COMMA 0 16 var(I1%)
0x132b…1337 5004 IF = ( var(B$) ) VAL 0 EQ COMMA 0 48 var(I1%)
0x1337…134b 5010 IF = ( var(B$) ) VAL -1 ?< COMMA 0 48 var(I1%)
0x134b…1359 5020 IF = ( var(B$) ) VAL %100 ?< COMMA 0 var(I1%) var(I1%)
0x1359…135c 5030 GOSUB 0 var(B0x68)
0x135c…135f 5040 GOTO 48 var(L%)
0x135f…136b 5050 LET ELEMENT var(A$<2f40>) ( var(L%) 56 63 ) [] COMMA var(B$) EOS
0x136b…136e 5060 GOSUB 0 »W\xf1«
0x136e…1379 5070 ON var(R2%) COMMA 0 → 805000512051f3
0x1379…1380 5080 LET var(B$) COMMA »0« EOS
0x1380…1383 5090 GOTO → 9051
0x1383…1388 5100 LET var(B$) COMMA var(N1$) EOS
0x1388…138b 5110 GOTO → 9051
0x138b…13ac 5120 REM *** INPUT ACCUM. VALUE *****
0x13ac…13c4 5130 IF ELEMENT var(A$<2f40>) ( var(L%) 56 63 ) [] » « EQ COMMA 0 48 var(I1%)
0x13c4…13c9 5140 LET var(F1%) COMMA 9 EOS
0x13c9…13cc 5150 GOSUB 0 var(B0x60)
0x13cc…13d0 5160 TRAP ERR 5210
0x13d0…13d7 5170 INPUT » « COMMA var(B$) EOS
0x13d7…13e0 5180 IF var(B$) »« EQ COMMA 0 var(I1%) var(L1%)
0x13e0…13e9 5190 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x13e9…13fd 5200 IF = ( var(B$) ) VAL -1 → ebf1003052
0x13fd…1400 5210 GOSUB 0 var(B0x68)
0x1400…1403 5220 GOTO var(I1%) var(R%)
0x1403…1413 5230 LET ELEMENT var(A$<2f40>) ( var(L%) %64 %72 ) [] COMMA var(B$) EOS
0x1413…1416 5240 GOSUB 0 ELEMENT
0x1416…1433 5250 IF ELEMENT var(A$<2f40>) ( var(L%) %64 %72 ) [] » « EQ COMMA 0 16 var(L1%)
0x1433…1436 5260 GOSUB 0 var(B0x60)
0x1436…1439 5270 TRAP ERR OFF
0x1439…143b 5280 RETURN EOS
0x143b…147a 5290 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x147a…147e 5300 REM
0x147e…14bd 5310 REM VVVVVVVVVV ROUTINE TO POSITION IN A FIELD VVVVVVVVVVVVVVVV
0x14bd…14d0 6000 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$<2f40>) ( var(L%) 1 %72 ) [] PLUS EOS
0x14d0…14d4 6010 REM
0x14d4…14e6 6020 PRINT = ( var(L%) ( ELEMENT var(F%') ( var(F1%) ) [] 1 PLUS ) ) var(FNC$) SEMI EOS
0x14e6…14e8 6030 RETURN EOS
0x14e8…1527 6040 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1527…152b 6045 REM
0x152b…156a 6499 REM VVVVVVVVVVVVV ROUTINE TO FILL TABLE A$ WHITH SPACES VVVVVV
0x156a…1570 6500 194c01f114f3
0x1570…15a1 6510 LET ELEMENT var(A$<2f40>) ( var(I%) 1 36 ) [] COMMA » « EOS
0x15a1…15d4 6520 LET ELEMENT var(A$<2f40>) ( var(I%) 37 %72 ) [] COMMA » « EOS
0x15d4…15d7 6530 1a4cf3
0x15d7…15d9 6540 RETURN EOS
0x15d9…1618 6545 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1618…161c 6547 REM
0x161c…165b 6599 REM VVVVVVVVVVVVV ROUTINE TO INPUT TABLE NAME VVVVVVVVVVVVVVVV
0x165b…165d 6600 PRINT EOS
0x165d…167d 6610 INPUT » GIVE NAME OF TABLE: « COMMA var(N2$) EOS
0x167d…167f 6620 PRINT EOS
0x167f…1681 6630 RETURN EOS
0x1681…16c0 6635 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x16c0…16c4 6637 REM
0x16c4…1703 6699 REM VVVVVVVVVVVVVV ROUTINE TO PRINT HEADING VVVVVVVVVVVVVVVVVV
0x1703…1706 6700 GOSUB 32 5
0x1706…1738 6705 PRINT = ( 8 ) → b5f27005434c415353f271730f74b5f270085448454d41544943f271731874b5f270084449474954495a2ef2f3
0x1738…176f 6707 PRINT = ( 34 ) → b5f2700b45585452412d504544414cf271733074b5f2700757524954494e47f271733974b5f270092053455155454e4345f3
0x176f…1799 6710 PRINT = ( 3 ) → b5f270034e4f3af271730874b5f270054e414d453af271731174b5f27005434f44453af2f3
0x1799…17c6 6712 PRINT = ( 25 ) → b5f270054d4f44453af271732174b5f2700653484f52543af271732974b5f270054c4f4e473af2f3
0x17c6…17f5 6714 PRINT = ( 49 ) → b5f27005434f44453af271733974b5f2700647524f55503af271736f410074b5f2700656414c55453af3
0x17f5…17f8 6716 GOSUB 0 USING
0x17f8…17fa 6720 RETURN EOS
0x17fa…1839 6725 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1839…183d 6730 REM
0x183d…187c 6799 REM VVVVVVVVVVVVVVV ROUTINE TO PRINT BELLTONE VVVVVVVVVVVVVVVV
0x187c…1882 6800 194c01f10af3
0x1882…188a 6810 PRINT = ( 7 ) → aff2f3
0x188a…188d 6820 1a4cf3
0x188d…188f 6830 RETURN EOS
0x188f…18ce 6835 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x18ce…18d2 6840 REM
0x18d2…190a 7000 REM VVVVV SUBROUTINE TO HANDLE ACCUMULATING GROUP VVVVV
0x190a…1939 7010 REM ----- RETURNVALUE R2%=1 SET ACC VALUE TO 0
0x1939…196a 7020 REM ----- =2 SET ACC VALUE TO N1$
0x196a…19a2 7030 REM ----- =3 INPUT ACC.VALUE AND SET ALL
0x19a2…19e0 7040 REM ----- ACCVALUES IN GROUP TO INPUTVALUE.
0x19e0…19e5 7050 LET var(R2%) COMMA 0 EOS
0x19e5…19f6 7060 IF var(B$) » 0« <> COMMA 0 → 9070
0x19f6…19fb 7070 LET var(R2%) COMMA 1 EOS
0x19fb…19fd 7080 RETURN EOS
0x19fd…1a07 7090 194c01f1734901e374f3
0x1a07…1a16 7100 IF var(B$) ELEMENT var(A$<2f40>) ( var(I%) 56 63 ) [] <> COMMA 0 16 =
0x1a16…1a26 7103 LET var(N1$) COMMA ELEMENT var(A$<2f40>) ( var(I%) %64 %72 ) [] EOS
0x1a26…1a29 7106 GOTO var(A0x71)
0x1a29…1a2c 7110 1a4cf3
0x1a2c…1a31 7120 LET var(R2%) COMMA 3 EOS
0x1a31…1a33 7130 RETURN EOS
0x1a33…1a38 7140 LET var(R2%) COMMA 2 EOS
0x1a38…1a3a 7150 RETURN EOS
0x1a3a…1a73 7160 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1a73…1aac 7200 REM VVVVVVV SUBROUTINE TO SET ALL ACCVAL`S TO B$ VVVVVVV
0x1aac…1ab1 7210 LET var(I%) COMMA 0 EOS
0x1ab1…1ab8 7220 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x1ab8…1ad0 7230 IF ELEMENT var(A$<2f40>) ( var(I%) 24 31 ) [] » « EQ COMMA 0 var(I1%) (
0x1ad0…1ad8 7235 IF var(I%) 20 > COMMA 0 var(I1%) (
0x1ad8…1aee 7240 IF ELEMENT var(A$<2f40>) ( var(L%) 56 63 ) [] ELEMENT var(A$<2f40>) ( var(I%) 56 63 ) [] <> COMMA 0 var(B0x60) ELEMENT
0x1aee…1afe 7250 LET ELEMENT var(A$<2f40>) ( var(I%) %64 %72 ) [] COMMA var(B$) EOS
0x1afe…1b01 7260 GOTO 32 ELEMENT
0x1b01…1b03 7350 RETURN EOS
0x1b03…1b3d 7360 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1b3d…1b76 7400 REM VVVV SUBROUTINE TO WRITE TABLE TO SCREEM VVVVVVVVVVV
0x1b76…1b80 7410 194c01f1734901e274f3
0x1b80…1b93 7420 PRINT = ( var(I%) 1 ) var(FNC$) ELEMENT var(A$<2f40>) ( var(I%) 1 %72 ) [] PLUS EOS
0x1b93…1b96 7430 1a4cf3
0x1b96…1b99 7435 GOSUB 0 USING
0x1b99…1b9b 7440 RETURN EOS
0x1b9b…1bd4 7450 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1bd4…1c0b 7500 REM VVVV SUBROUTINE TO WRITE GUIDELINE VVVVVVVVVVVVVVV
0x1c0b…1c40 7510 PRINT = ( 21 1 ) var(FNC$) » H=HELP, C=CORRECTION, E=ERASE, F=FINNISH« PLUS EOS
0x1c40…1c42 7520 RETURN EOS
0x1c42…1c77 9000 REM VVVVVVVVVVVVVVV END PROGRAM VVVVVVVVVVVVVVVVVVVV
0x1c77…1c79 9010 14f3
0x1c79…1c7a 9999 END