|
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: 7289 (0x1c79)
Notes: ZILOG_BASIC
Names: »DIG.DEF.BP«
└─⟦70e1b4124⟧ Bits:30006818 8" ZilogMCZ floppy NThun_0020 (21/5-82 MAPDAT AEROTRIANGULERING COPYRIGHT VIAK A/S)
└─ ⟦this⟧ »DIG.DEF.BP«
0x0000…0014 BasicHead {variables=0x005c, stms=0x0608, f2=0x1601, 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=0xaaaa, f1=0x41, f2=0x25} F1% 0x14
0x0014…0070 [0x03]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x29} J% 0x13
0x0014…0070 [0x04]: VarDef {f0=0xaaaa, f1=0x49, f2=0x20} A9% 0x12
0x0014…0070 [0x05]: VarDef {f0=0xaaaa, f1=0x41, f2=0x2b} L1% 0x11
0x0014…0070 [0x06]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x31} R% 0x10
0x0014…0070 [0x07]: VarDef {f0=0xaaaa, f1=0x41, f2=0x28} I1% 0xf
0x0014…0070 [0x08]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2d} N% 0xe
0x0014…0070 [0x09]: VarDef {f0=0xaaaa, f1=0x48, f2=0x29} J8% 0xd
0x0014…0070 [0x0a]: VarDef {f0=0xaaaa, f1=0x49, f2=0x29} J9% 0xc
0x0014…0070 [0x0b]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x28} I% 0xb
0x0014…0070 [0x0c]: VarDef {f0=0xaaaa, f1=0x5f, f2=0x31} FNR% 0xa
0x0014…0070 [0x0d]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2a} K% 0x9
0x0014…0070 [0x0e]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x2b} L% 0x8
0x0014…0070 [0x0f]: VarDef {f0=0xaaaa, f1=0x5f, f2=0x42} FNC$ 0x7
0x0014…0070 [0x10]: VarDef {f0=0xaaaa, f1=0x4f, f2=0xa5} F%' 0x6
0x0014…0070 [0x11]: VarDef {f0=0xaaaa, f1=0x41, f2=0x40} A1$ 0x5
0x0014…0070 [0x12]: VarDef {f0=0xaaaa, f1=0x42, f2=0x4d} N2$ 0x4
0x0014…0070 [0x13]: VarDef {f0=0xaaaa, f1=0x41, f2=0x4d} N1$ 0x3
0x0014…0070 [0x14]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x4d} N$ 0x2
0x0014…0070 [0x15]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x41} B$ 0x1
0x0014…0070 [0x16]: VarDef {f0=0xaaaa, f1=0x4f, f2=0x40} A$ 0x0
0x0014…0070 ]
0x0070…0074 Statement 39321 @0x1c78
0x0074…0078 Statement 36880 @0x1c76
0x0078…007c Statement 36864 @0x1c41
0x007c…0080 Statement 29984 @0x1c3f
0x0080…0084 Statement 29968 @0x1c0a
0x0084…0088 Statement 29952 @0x1bd3
0x0088…008c Statement 29776 @0x1b9a
0x008c…0090 Statement 29760 @0x1b98
0x0090…0094 Statement 29749 @0x1b95
0x0094…0098 Statement 29744 @0x1b92
0x0098…009c Statement 29728 @0x1b7f
0x009c…00a0 Statement 29712 @0x1b75
0x00a0…00a4 Statement 29696 @0x1b3c
0x00a4…00a8 Statement 29536 @0x1b02
0x00a8…00ac Statement 29520 @0x1b00
0x00ac…00b0 Statement 29280 @0x1afd
0x00b0…00b4 Statement 29264 @0x1aed
0x00b4…00b8 Statement 29248 @0x1ad7
0x00b8…00bc Statement 29237 @0x1acf
0x00bc…00c0 Statement 29232 @0x1ab7
0x00c0…00c4 Statement 29216 @0x1ab0
0x00c4…00c8 Statement 29200 @0x1aab
0x00c8…00cc Statement 29184 @0x1a72
0x00cc…00d0 Statement 29024 @0x1a39
0x00d0…00d4 Statement 29008 @0x1a37
0x00d4…00d8 Statement 28992 @0x1a32
0x00d8…00dc Statement 28976 @0x1a30
0x00dc…00e0 Statement 28960 @0x1a2b
0x00e0…00e4 Statement 28944 @0x1a28
0x00e4…00e8 Statement 28934 @0x1a25
0x00e8…00ec Statement 28931 @0x1a15
0x00ec…00f0 Statement 28928 @0x1a06
0x00f0…00f4 Statement 28816 @0x19fc
0x00f4…00f8 Statement 28800 @0x19fa
0x00f8…00fc Statement 28784 @0x19f5
0x00fc…0100 Statement 28768 @0x19e4
0x0100…0104 Statement 28752 @0x19df
0x0104…0108 Statement 28736 @0x19a1
0x0108…010c Statement 28720 @0x1969
0x010c…0110 Statement 28704 @0x1938
0x0110…0114 Statement 28688 @0x1909
0x0114…0118 Statement 28672 @0x18d1
0x0118…011c Statement 26688 @0x18cd
0x011c…0120 Statement 26677 @0x188e
0x0120…0124 Statement 26672 @0x188c
0x0124…0128 Statement 26656 @0x1889
0x0128…012c Statement 26640 @0x1881
0x012c…0130 Statement 26624 @0x187b
0x0130…0134 Statement 26521 @0x183c
0x0134…0138 Statement 26416 @0x1838
0x0138…013c Statement 26405 @0x17f9
0x013c…0140 Statement 26400 @0x17f7
0x0140…0144 Statement 26390 @0x17f4
0x0144…0148 Statement 26388 @0x17c5
0x0148…014c Statement 26386 @0x1798
0x014c…0150 Statement 26384 @0x176e
0x0150…0154 Statement 26375 @0x1737
0x0154…0158 Statement 26373 @0x1705
0x0158…015c Statement 26368 @0x1702
0x015c…0160 Statement 26265 @0x16c3
0x0160…0164 Statement 26167 @0x16bf
0x0164…0168 Statement 26165 @0x1680
0x0168…016c Statement 26160 @0x167e
0x016c…0170 Statement 26144 @0x167c
0x0170…0174 Statement 26128 @0x165c
0x0174…0178 Statement 26112 @0x165a
0x0178…017c Statement 26009 @0x161b
0x017c…0180 Statement 25927 @0x1617
0x0180…0184 Statement 25925 @0x15d8
0x0184…0188 Statement 25920 @0x15d6
0x0188…018c Statement 25904 @0x15d3
0x018c…0190 Statement 25888 @0x15a0
0x0190…0194 Statement 25872 @0x156f
0x0194…0198 Statement 25856 @0x1569
0x0198…019c Statement 25753 @0x152a
0x019c…01a0 Statement 24645 @0x1526
0x01a0…01a4 Statement 24640 @0x14e7
0x01a4…01a8 Statement 24624 @0x14e5
0x01a8…01ac Statement 24608 @0x14d3
0x01ac…01b0 Statement 24592 @0x14cf
0x01b0…01b4 Statement 24576 @0x14bc
0x01b4…01b8 Statement 21264 @0x147d
0x01b8…01bc Statement 21248 @0x1479
0x01bc…01c0 Statement 21136 @0x143a
0x01c0…01c4 Statement 21120 @0x1438
0x01c4…01c8 Statement 21104 @0x1435
0x01c8…01cc Statement 21088 @0x1432
0x01cc…01d0 Statement 21072 @0x1415
0x01d0…01d4 Statement 21056 @0x1412
0x01d4…01d8 Statement 21040 @0x1402
0x01d8…01dc Statement 21024 @0x13ff
0x01dc…01e0 Statement 21008 @0x13fc
0x01e0…01e4 Statement 20992 @0x13e8
0x01e4…01e8 Statement 20880 @0x13df
0x01e8…01ec Statement 20864 @0x13d6
0x01ec…01f0 Statement 20848 @0x13cf
0x01f0…01f4 Statement 20832 @0x13cb
0x01f4…01f8 Statement 20816 @0x13c8
0x01f8…01fc Statement 20800 @0x13c3
0x01fc…0200 Statement 20784 @0x13ab
0x0200…0204 Statement 20768 @0x138a
0x0204…0208 Statement 20752 @0x1387
0x0208…020c Statement 20736 @0x1382
0x020c…0210 Statement 20624 @0x137f
0x0210…0214 Statement 20608 @0x1378
0x0214…0218 Statement 20592 @0x136d
0x0218…021c Statement 20576 @0x136a
0x021c…0220 Statement 20560 @0x135e
0x0220…0224 Statement 20544 @0x135b
0x0224…0228 Statement 20528 @0x1358
0x0228…022c Statement 20512 @0x134a
0x022c…0230 Statement 20496 @0x1336
0x0230…0234 Statement 20484 @0x132a
0x0234…0238 Statement 20483 @0x1317
0x0238…023c Statement 20480 @0x130e
0x023c…0240 Statement 18832 @0x1305
0x0240…0244 Statement 18816 @0x12fe
0x0244…0248 Statement 18800 @0x12fb
0x0248…024c Statement 18784 @0x12f4
0x024c…0250 Statement 18768 @0x12e1
0x0250…0254 Statement 18752 @0x12dd
0x0254…0258 Statement 18736 @0x12da
0x0258…025c Statement 18720 @0x12d5
0x025c…0260 Statement 18704 @0x12bd
0x0260…0264 Statement 18688 @0x129c
0x0264…0268 Statement 18576 @0x1290
0x0268…026c Statement 18560 @0x128d
0x026c…0270 Statement 18544 @0x128a
0x0270…0274 Statement 18528 @0x1282
0x0274…0278 Statement 18512 @0x127a
0x0278…027c Statement 18496 @0x1272
0x027c…0280 Statement 18480 @0x126a
0x0280…0284 Statement 18464 @0x1261
0x0284…0288 Statement 18448 @0x1258
0x0288…028c Statement 18432 @0x124f
0x028c…0290 Statement 18320 @0x1248
0x0290…0294 Statement 18304 @0x1244
0x0294…0298 Statement 18288 @0x1241
0x0298…029c Statement 18272 @0x123c
0x029c…02a0 Statement 18256 @0x1224
0x02a0…02a4 Statement 18240 @0x1203
0x02a4…02a8 Statement 18224 @0x11f7
0x02a8…02ac Statement 18208 @0x11f4
0x02ac…02b0 Statement 18192 @0x11f1
0x02b0…02b4 Statement 18176 @0x11e5
0x02b4…02b8 Statement 18064 @0x11d9
0x02b8…02bc Statement 18048 @0x11d0
0x02bc…02c0 Statement 18032 @0x11c7
0x02c0…02c4 Statement 18016 @0x11c0
0x02c4…02c8 Statement 18000 @0x11bc
0x02c8…02cc Statement 17984 @0x11b9
0x02cc…02d0 Statement 17968 @0x11b4
0x02d0…02d4 Statement 17952 @0x119c
0x02d4…02d8 Statement 17936 @0x117a
0x02d8…02dc Statement 17920 @0x116e
0x02dc…02e0 Statement 17808 @0x116b
0x02e0…02e4 Statement 17792 @0x1168
0x02e4…02e8 Statement 17776 @0x115c
0x02e8…02ec Statement 17760 @0x1150
0x02ec…02f0 Statement 17744 @0x1147
0x02f0…02f4 Statement 17728 @0x113e
0x02f4…02f8 Statement 17712 @0x1137
0x02f8…02fc Statement 17696 @0x1133
0x02fc…0300 Statement 17680 @0x1130
0x0300…0304 Statement 17664 @0x112b
0x0304…0308 Statement 17552 @0x1113
0x0308…030c Statement 17536 @0x10ee
0x030c…0310 Statement 17520 @0x10e2
0x0310…0314 Statement 17507 @0x10d4
0x0314…0318 Statement 17504 @0x10d1
0x0318…031c Statement 17488 @0x10ce
0x031c…0320 Statement 17472 @0x10bd
0x0320…0324 Statement 17456 @0x10ac
0x0324…0328 Statement 17440 @0x109b
0x0328…032c Statement 17424 @0x108a
0x032c…0330 Statement 17408 @0x1079
0x0330…0334 Statement 17296 @0x1068
0x0334…0338 Statement 17280 @0x105f
0x0338…033c Statement 17264 @0x1056
0x033c…0340 Statement 17248 @0x104d
0x0340…0344 Statement 17232 @0x1044
0x0344…0348 Statement 17216 @0x103d
0x0348…034c Statement 17200 @0x1039
0x034c…0350 Statement 17184 @0x1036
0x0350…0354 Statement 17168 @0x1031
0x0354…0358 Statement 17152 @0x100f
0x0358…035c Statement 17040 @0x1003
0x035c…0360 Statement 17024 @0xffa
0x0360…0364 Statement 17008 @0xff7
0x0364…0368 Statement 16992 @0xff4
0x0368…036c Statement 16976 @0xfe8
0x036c…0370 Statement 16960 @0xfdf
0x0370…0374 Statement 16944 @0xfd8
0x0374…0378 Statement 16928 @0xfd5
0x0378…037c Statement 16912 @0xfd0
0x037c…0380 Statement 16896 @0xfb7
0x0380…0384 Statement 16784 @0xf95
0x0384…0388 Statement 16768 @0xf89
0x0388…038c Statement 16752 @0xf80
0x038c…0390 Statement 16736 @0xf7d
0x0390…0394 Statement 16720 @0xf7a
0x0394…0398 Statement 16704 @0xf6e
0x0398…039c Statement 16688 @0xf6c
0x039c…03a0 Statement 16672 @0xf67
0x03a0…03a4 Statement 16656 @0xf5b
0x03a4…03a8 Statement 16640 @0xf52
0x03a8…03ac Statement 16528 @0xf4b
0x03ac…03b0 Statement 16512 @0xf48
0x03b0…03b4 Statement 16496 @0xf43
0x03b4…03b8 Statement 16480 @0xf21
0x03b8…03bc Statement 16464 @0xf15
0x03bc…03c0 Statement 16448 @0xf0c
0x03c0…03c4 Statement 16432 @0xf07
0x03c4…03c8 Statement 16416 @0xefe
0x03c8…03cc Statement 16400 @0xedc
0x03cc…03d0 Statement 16384 @0xe9d
0x03d0…03d4 Statement 12336 @0xe9a
0x03d4…03d8 Statement 12320 @0xe98
0x03d8…03dc Statement 12304 @0xe69
0x03dc…03e0 Statement 12293 @0xe3a
0x03e0…03e4 Statement 12288 @0xe37
0x03e4…03e8 Statement 08816 @0xdf7
0x03e8…03ec Statement 08800 @0xdf4
0x03ec…03f0 Statement 08784 @0xdf1
0x03f0…03f4 Statement 08773 @0xdee
0x03f4…03f8 Statement 08768 @0xdeb
0x03f8…03fc Statement 08752 @0xde0
0x03fc…0400 Statement 08736 @0xdda
0x0400…0404 Statement 08720 @0xdd6
0x0404…0408 Statement 08704 @0xdcf
0x0408…040c Statement 08560 @0xdcc
0x040c…0410 Statement 08544 @0xdbb
0x0410…0414 Statement 08536 @0xdb1
0x0414…0418 Statement 08534 @0xda2
0x0418…041c Statement 08533 @0xd92
0x041c…0420 Statement 08532 @0xd89
0x0420…0424 Statement 08531 @0xd86
0x0424…0428 Statement 08530 @0xd52
0x0428…042c Statement 08528 @0xd4e
0x042c…0430 Statement 08464 @0xd4b
0x0430…0434 Statement 08453 @0xd47
0x0434…0438 Statement 08448 @0xd44
0x0438…043c Statement 08320 @0xd41
0x043c…0440 Statement 08304 @0xd3c
0x0440…0444 Statement 08288 @0xd2f
0x0444…0448 Statement 08272 @0xd29
0x0448…044c Statement 08256 @0xd26
0x044c…0450 Statement 08240 @0xcf1
0x0450…0454 Statement 08224 @0xcef
0x0454…0458 Statement 08208 @0xcec
0x0458…045c Statement 08192 @0xcad
0x045c…0460 Statement 06528 @0xcaa
0x0460…0464 Statement 06512 @0xca7
0x0464…0468 Statement 06496 @0xca4
0x0468…046c Statement 06480 @0xca1
0x046c…0470 Statement 06464 @0xc9e
0x0470…0474 Statement 06448 @0xc9b
0x0474…0478 Statement 06432 @0xc90
0x0478…047c Statement 06416 @0xc8a
0x047c…0480 Statement 06406 @0xc87
0x0480…0484 Statement 06405 @0xc83
0x0484…0488 Statement 06400 @0xc67
0x0488…048c Statement 06297 @0xc60
0x048c…0490 Statement 06295 @0xc5d
0x0490…0494 Statement 06293 @0xc5a
0x0494…0498 Statement 06288 @0xc57
0x0498…049c Statement 06272 @0xc54
0x049c…04a0 Statement 06261 @0xc52
0x04a0…04a4 Statement 06240 @0xc4b
0x04a4…04a8 Statement 06224 @0xc1d
0x04a8…04ac Statement 06208 @0xc1a
0x04ac…04b0 Statement 06192 @0xc17
0x04b0…04b4 Statement 06176 @0xc11
0x04b4…04b8 Statement 06160 @0xc0e
0x04b8…04bc Statement 06144 @0xbff
0x04bc…04c0 Statement 06032 @0xbfb
0x04c0…04c4 Statement 06016 @0xbe1
0x04c4…04c8 Statement 06000 @0xbde
0x04c8…04cc Statement 05984 @0xbdb
0x04cc…04d0 Statement 05968 @0xba4
0x04d0…04d4 Statement 05952 @0xb6f
0x04d4…04d8 Statement 05936 @0xb6c
0x04d8…04dc Statement 05925 @0xb60
0x04dc…04e0 Statement 05924 @0xb57
0x04e0…04e4 Statement 05923 @0xb4e
0x04e4…04e8 Statement 05920 @0xb3d
0x04e8…04ec Statement 05904 @0xb37
0x04ec…04f0 Statement 05888 @0xb30
0x04f0…04f4 Statement 05776 @0xb2d
0x04f4…04f8 Statement 05760 @0xafe
0x04f8…04fc Statement 05744 @0xac1
0x04fc…0500 Statement 05728 @0xaa5
0x0500…0504 Statement 05712 @0xaa2
0x0504…0508 Statement 05696 @0xa9f
0x0508…050c Statement 05680 @0xa9a
0x050c…0510 Statement 05669 @0xa96
0x0510…0514 Statement 05664 @0xa93
0x0514…0518 Statement 05648 @0xa8c
0x0518…051c Statement 05632 @0xa5b
0x051c…0520 Statement 05527 @0xa1f
0x0520…0524 Statement 05525 @0xa1a
0x0524…0528 Statement 05520 @0x9fb
0x0528…052c Statement 05504 @0x9f8
0x052c…0530 Statement 05488 @0x9f1
0x0530…0534 Statement 05477 @0x9ee
0x0534…0538 Statement 05456 @0x9e4
0x0538…053c Statement 05440 @0x9da
0x053c…0540 Statement 05424 @0x9d0
0x0540…0544 Statement 05408 @0x9c6
0x0544…0548 Statement 05392 @0x9be
0x0548…054c Statement 05382 @0x9ba
0x054c…0550 Statement 05381 @0x9b6
0x0550…0554 Statement 05378 @0x9b3
0x0554…0558 Statement 05376 @0x9b0
0x0558…055c Statement 04960 @0x9ad
0x055c…0560 Statement 04944 @0x99a
0x0560…0564 Statement 04928 @0x990
0x0564…0568 Statement 04912 @0x98d
0x0568…056c Statement 04896 @0x987
0x056c…0570 Statement 04880 @0x983
0x0570…0574 Statement 04864 @0x97c
0x0574…0578 Statement 04752 @0x979
0x0578…057c Statement 04742 @0x973
0x057c…0580 Statement 04741 @0x969
0x0580…0584 Statement 04736 @0x962
0x0584…0588 Statement 04720 @0x95d
0x0588…058c Statement 04704 @0x95a
0x058c…0590 Statement 04688 @0x94d
0x0590…0594 Statement 04672 @0x947
0x0594…0598 Statement 04656 @0x944
0x0598…059c Statement 04645 @0x933
0x059c…05a0 Statement 04640 @0x930
0x05a0…05a4 Statement 04624 @0x92d
0x05a4…05a8 Statement 04608 @0x928
0x05a8…05ac Statement 04448 @0x91d
0x05ac…05b0 Statement 04432 @0x91a
0x05b0…05b4 Statement 04416 @0x907
0x05b4…05b8 Statement 04400 @0x905
0x05b8…05bc Statement 04384 @0x8d7
0x05bc…05c0 Statement 04373 @0x8a9
0x05c0…05c4 Statement 04368 @0x87b
0x05c4…05c8 Statement 04357 @0x879
0x05c8…05cc Statement 04354 @0x876
0x05cc…05d0 Statement 04352 @0x85b
0x05d0…05d4 Statement 04240 @0x858
0x05d4…05d8 Statement 04231 @0x855
0x05d8…05dc Statement 04229 @0x84f
0x05dc…05e0 Statement 04224 @0x84b
0x05e0…05e4 Statement 04208 @0x83f
0x05e4…05e8 Statement 04192 @0x835
0x05e8…05ec Statement 04176 @0x82e
0x05ec…05f0 Statement 04167 @0x82c
0x05f0…05f4 Statement 04166 @0x7fc
0x05f4…05f8 Statement 04164 @0x7cc
0x05f8…05fc Statement 04162 @0x7c9
0x05fc…0600 Statement 04161 @0x7c6
0x0600…0604 Statement 04160 @0x7c0
0x0604…0608 Statement 04144 @0x7bc
0x0608…060c Statement 04128 @0x7a9
0x060c…0610 Statement 04112 @0x7a4
0x0610…0614 Statement 04096 @0x783
0x0614…0618 Statement 01601 @0x782
0x0618…061c Statement 01600 @0x77f
0x061c…0620 Statement 01591 @0x774
0x0620…0624 Statement 01590 @0x771
0x0624…0628 Statement 01589 @0x76e
0x0628…062c Statement 01584 @0x76b
0x062c…0630 Statement 01573 @0x762
0x0630…0634 Statement 01568 @0x75c
0x0634…0638 Statement 01552 @0x751
0x0638…063c Statement 01541 @0x74d
0x063c…0640 Statement 01536 @0x749
0x0640…0644 Statement 01328 @0x747
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$) ( 20 %72 ) [] EOS
0x0683…068b 0011 DIM ELEMENT var(B$) ( 10 ) [] EOS
0x068b…0694 0012 DIM ELEMENT var(N$) ( 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…0747 0520 PRINT = ( 27 ) → af700145e2f3
0x0747…0749 0530 RETURN EOS
0x0749…074d 0600 DEF var(FNR%) var(I%) EOS
0x074d…0751 0605 TRAP ERR 0637
0x0751…075c 0610 LET var(J9%) COMMA var(I%) = ( var(B$) ) LEN SUB2 EOS
0x075c…0762 0620 194e01f14df3
0x0762…076b 0625 LET var(B$) COMMA » « var(B$) PLUS EOS
0x076b…076e 0630 1a4ef3
0x076e…0771 0635 RETURN 1 EOS
0x0771…0774 0636 GOTO var(A0x06)
0x0774…077f 0637 RETURN -1 EOS
0x077f…0782 0640 TRAP ERR OFF
0x0782…0783 0641 FNEND
0x0783…07a4 1000 REM **** START MAIN PROGRAM ****
0x07a4…07a9 1010 LET var(N%) COMMA 0 EOS
0x07a9…07bc 1020 1601f2700d302f5441424c452e4e414d4553f3
0x07bc…07c0 1030 TRAP 0 3000
0x07c0…07c6 1040 LINPUT 1# SEMI var(N1$) EOS
0x07c6…07c9 1041 TRAP 0 OFF
0x07c9…07cc 1042 GOSUB 32 5
0x07cc…07fc 1044 PRINT »THESE TABLES ARE AVAILABLE ON THIS DISKETTE:« EOS
0x07fc…082c 1046 PRINT »============================================« EOS
0x082c…082e 1047 PRINT EOS
0x082e…0835 1050 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x0835…083f 1060 LET ELEMENT var(N$) ( var(N%) ) [] COMMA var(N1$) EOS
0x083f…084b 1070 PRINT » « SEMI var(N1$) EOS
0x084b…084f 1080 TRAP 0 1100
0x084f…0855 1085 LINPUT 1# SEMI var(N1$) EOS
0x0855…0858 1087 TRAP 0 OFF
0x0858…085b 1090 GOTO var(I1%) 16
0x085b…0876 1100 REM ** MENU TABLE NAMES **
0x0876…0879 1102 TRAP 0 OFF
0x0879…087b 1105 PRINT EOS
0x087b…08a9 1110 PRINT » CORRECTION OF TABLE/NEW TABLE ...(1)« EOS
0x08a9…08d7 1115 PRINT » ERASING TABLE....................(2)« EOS
0x08d7…0905 1120 PRINT » END PROGRAM......................(3)« EOS
0x0905…0907 1130 PRINT EOS
0x0907…091a 1140 PRINT » ACTION: « SEMI EOS
0x091a…091d 1150 INPUT var(I1%) EOS
0x091d…0928 1160 ON var(I1%) COMMA 0 0 18 0 32 0 → 90f3
0x0928…092d 1200 LET var(L%) COMMA 0 EOS
0x092d…0930 1210 GOSUB 0 var(B0x65)
0x0930…0933 1220 GOSUB 0 var(B0x66)
0x0933…0944 1225 1602f2737002302f45e270022e54e274f3
0x0944…0947 1230 GOSUB 0 var(B0x67)
0x0947…094d 1240 194c01f14ff3
0x094d…095a 1250 IF ELEMENT var(N$) ( var(I%) ) [] var(N2$) EQ COMMA 0 0 19
0x095a…095d 1260 1a4cf3
0x095d…0962 1270 LET var(L%) COMMA 1 EOS
0x0962…0969 1280 LET var(N%) COMMA var(N%) 1 PLUS EOS
0x0969…0973 1285 LET ELEMENT var(N$) ( var(N%) ) [] COMMA var(N2$) EOS
0x0973…0979 1286 PRINT 1# SEMI var(N2$) EOS
0x0979…097c 1290 GOTO 0 21
0x097c…0983 1300 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x0983…0987 1310 TRAP 0 1500
0x0987…098d 1320 LINPUT 2# SEMI var(A1$) EOS
0x098d…0990 1330 TRAP 0 OFF
0x0990…099a 1340 LET ELEMENT var(A$) ( var(L%) ) [] COMMA var(A1$) EOS
0x099a…09ad 1350 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$) ( var(L%) 1 %72 ) [] PLUS EOS
0x09ad…09b0 1360 GOTO 0 19
0x09b0…09b3 1500 TRAP 0 OFF
0x09b3…09b6 1502 GOSUB 16 var(A0x1c)
0x09b6…09ba 1505 TRAP ERR 1900
0x09ba…09be 1506 TRAP ESC 1900
0x09be…09c6 1510 IF var(R%) 0 EQ COMMA 0 »\x03Bp«soh»C\xe7\xf1\x00\x90\x15\x03Bp«soh»E\xe7\xf1\x00`\x16\x03«
0x09c6…09d0 1520 IF var(B$) »C« EQ COMMA 0 → 9015
0x09d0…09da 1530 IF var(B$) »E« EQ COMMA 0 var(B0x60) 22
0x09da…09e4 1540 IF var(B$) »H« EQ COMMA 0 → 8017
0x09e4…09ee 1550 IF var(B$) »F« EQ COMMA 0 → 9918
0x09ee…09f1 1565 GOTO 0 21
0x09f1…09f8 1570 LET var(L%) COMMA var(L%) 1 PLUS EOS
0x09f8…09fb 1580 GOTO 0 21
0x09fb…0a1a 1590 REM ---- CASE: CORRECTION ----
0x0a1a…0a1f 1595 LET var(L1%) COMMA var(L%) EOS
0x0a1f…0a5b 1597 PRINT = ( 21 1 ) var(FNC$) » « PLUS EOS
0x0a5b…0a8c 1600 PRINT = ( 21 1 ) var(FNC$) » NUMBER YOU WANT TO CORRECT:« PLUS SEMI EOS
0x0a8c…0a93 1610 INPUT » « COMMA var(L%) EOS
0x0a93…0a96 1620 GOSUB 16 var(A0x1c)
0x0a96…0a9a 1625 TRAP ERR 1900
0x0a9a…0a9f 1630 LET var(L%) COMMA var(L1%) EOS
0x0a9f…0aa2 1640 GOSUB 0 )
0x0aa2…0aa5 1650 GOTO 0 21
0x0aa5…0ac1 1660 REM ---- CASE: ERASE ------
0x0ac1…0afe 1670 PRINT = ( 21 1 ) var(FNC$) » « PLUS EOS
0x0afe…0b2d 1680 PRINT = ( 21 1 ) var(FNC$) » NUMBER YOU WANT TO ERASE:« PLUS SEMI EOS
0x0b2d…0b30 1690 INPUT var(L1%) EOS
0x0b30…0b37 1700 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x0b37…0b3d 1710 194c52f149f3
0x0b3d…0b4e 1720 LET ELEMENT var(A$) ( var(I%) ) [] COMMA ELEMENT var(A$) ( var(I%) 1 PLUS ) [] EOS
0x0b4e…0b57 1723 LET var(B$) COMMA = ( var(I%) ) → b0f3
0x0b57…0b60 1724 LET var(A9%) COMMA = ( 4 ) var(FNR%) EOS
0x0b60…0b6c 1725 LET ELEMENT var(A$) ( var(I%) 2 5 ) [] COMMA var(B$) EOS
0x0b6c…0b6f 1730 1a4cf3
0x0b6f…0ba4 1740 LET ELEMENT var(A$) ( ( var(L%) 1 PLUS ) 1 36 ) [] COMMA » « EOS
0x0ba4…0bdb 1750 LET ELEMENT var(A$) ( ( var(L%) 1 PLUS ) 37 %72 ) [] COMMA » « EOS
0x0bdb…0bde 1760 GOSUB 0 )
0x0bde…0be1 1770 GOTO 0 21
0x0be1…0bfb 1780 REM ---- CASE: HELP -----
0x0bfb…0bff 1790 TRAP 0 1850
0x0bff…0c0e 1800 1605f27009302f54414248454c50f3
0x0c0e…0c11 1810 GOSUB 32 5
0x0c11…0c17 1820 LINPUT 5# SEMI var(A1$) EOS
0x0c17…0c1a 1830 PRINT var(A1$) EOS
0x0c1a…0c1d 1840 GOTO 32 24
0x0c1d…0c4b 1850 PRINT » TYPE RETURN TO CONTINUE« EOS
0x0c4b…0c52 1860 INPUT » « COMMA var(A1$) EOS
0x0c52…0c54 1875 PRINT EOS
0x0c54…0c57 1880 1405f3
0x0c57…0c5a 1890 GOSUB 0 var(B0x67)
0x0c5a…0c5d 1895 GOSUB 0 )
0x0c5d…0c60 1897 GOTO 0 21
0x0c60…0c67 1899 LET var(L%) COMMA var(L%) 1 SUB2 EOS
0x0c67…0c83 1900 REM ---- CASE: FINNISH ----
0x0c83…0c87 1905 RESTORE 2# EOS
0x0c87…0c8a 1906 2002f3
0x0c8a…0c90 1910 194c01f149f3
0x0c90…0c9b 1920 PRINT 2# SEMI ELEMENT var(A$) ( var(I%) ) [] EOS
0x0c9b…0c9e 1930 1a4cf3
0x0c9e…0ca1 1940 1402f3
0x0ca1…0ca4 1950 TRAP ERR OFF
0x0ca4…0ca7 1960 TRAP ESC OFF
0x0ca7…0caa 1970 1401f3
0x0caa…0cad 1980 GOTO 0 16
0x0cad…0cec 2000 REM VVVVVVVVVVVVVVV SEQUENCE TO ERASE TABLE VVVVVVVVVVVVVVVVVV
0x0cec…0cef 2010 GOSUB 32 5
0x0cef…0cf1 2020 PRINT EOS
0x0cf1…0d26 2030 PRINT » GIVE NAME OF TABLE YOU WANT TO ERASE: « SEMI EOS
0x0d26…0d29 2040 INPUT var(N2$) EOS
0x0d29…0d2f 2050 194c01f14ff3
0x0d2f…0d3c 2060 IF var(N2$) ELEMENT var(N$) ( var(I%) ) [] <> COMMA 0 0 33
0x0d3c…0d41 2070 LET var(J%) COMMA var(I%) EOS
0x0d41…0d44 2080 GOTO var(I1%) 33
0x0d44…0d47 2100 1a4cf3
0x0d47…0d4b 2105 RESTORE 1# EOS
0x0d4b…0d4e 2110 GOTO 0 16
0x0d4e…0d52 2150 TRAP ERR 2158
0x0d52…0d86 2152 PRINT » ARE YOU SURE :« SEMI EOS
0x0d86…0d89 2153 INPUT var(B$) EOS
0x0d89…0d92 2154 IF var(B$) »« EQ COMMA 0 5 33
0x0d92…0da2 2155 IF ELEMENT var(B$) ( 1 1 ) [] »Y« <> COMMA 0 5 33
0x0da2…0db1 2156 1e7372437354749f70022e54e274f3
0x0db1…0dbb 2158 194c54f1734f01e374f3
0x0dbb…0dcc 2160 LET ELEMENT var(N$) ( var(I%) ) [] COMMA ELEMENT var(N$) ( var(I%) 1 PLUS ) [] EOS
0x0dcc…0dcf 2170 1a4cf3
0x0dcf…0dd6 2200 LET var(N%) COMMA var(N%) 1 SUB2 EOS
0x0dd6…0dda 2210 RESTORE 1# EOS
0x0dda…0de0 2220 194c01f14ff3
0x0de0…0deb 2230 PRINT 1# SEMI ELEMENT var(N$) ( var(I%) ) [] EOS
0x0deb…0dee 2240 1a4cf3
0x0dee…0df1 2245 2001f3
0x0df1…0df4 2250 1401f3
0x0df4…0df7 2260 GOTO 0 16
0x0df7…0e37 2270 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x0e37…0e3a 3000 GOSUB 32 5
0x0e3a…0e69 3005 PRINT »THERE ARE NO TABLES STORED ON THIS DISKETTE« EOS
0x0e69…0e98 3010 PRINT »===========================================« EOS
0x0e98…0e9a 3020 PRINT EOS
0x0e9a…0e9d 3030 GOTO 0 17
0x0e9d…0edc 4000 REM VVVVVVVVVVVVVVV INPUT ROUTINE FOR ONE LINE VVVVVVVVVVVVVVV
0x0edc…0efe 4010 REM *** PRINT NUMBER ************
0x0efe…0f07 4020 LET var(B$) COMMA = ( var(L%) ) → b0f3
0x0f07…0f0c 4030 LET var(R%) COMMA 0 EOS
0x0f0c…0f15 4040 LET var(A9%) COMMA = ( 4 ) var(FNR%) EOS
0x0f15…0f21 4050 LET ELEMENT var(A$) ( var(L%) 2 5 ) [] COMMA var(B$) EOS
0x0f21…0f43 4060 REM *** INPUT NAME OR COMMAND ***
0x0f43…0f48 4070 LET var(F1%) COMMA 2 EOS
0x0f48…0f4b 4080 GOSUB 0 var(B0x60)
0x0f4b…0f52 4090 INPUT » « COMMA var(B$) EOS
0x0f52…0f5b 4100 IF var(B$) »« EQ COMMA 0 0 var(B$)
0x0f5b…0f67 4110 IF = ( var(B$) ) LEN 1 <> COMMA 0 var(A0x41)
0x0f67…0f6c 4120 LET var(R%) COMMA 1 EOS
0x0f6c…0f6e 4130 RETURN EOS
0x0f6e…0f7a 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«
0x0f7a…0f7d 4150 GOSUB 0 var(B0x68)
0x0f7d…0f80 4160 GOTO → 8040
0x0f80…0f89 4170 LET var(A9%) COMMA = ( 9 ) var(FNR%) EOS
0x0f89…0f95 4180 LET ELEMENT var(A$) ( var(L%) 6 14 ) [] COMMA var(B$) EOS
0x0f95…0fb7 4190 REM *** INPUT THEMATIC CODE *****
0x0fb7…0fd0 4200 IF ELEMENT var(A$) ( var(L%) 6 14 ) [] » « EQ COMMA 0 var(I1%) var(A$)
0x0fd0…0fd5 4210 LET var(F1%) COMMA 3 EOS
0x0fd5…0fd8 4220 GOSUB 0 var(B0x60)
0x0fd8…0fdf 4230 INPUT » « COMMA var(B$) EOS
0x0fdf…0fe8 4240 IF var(B$) »« EQ COMMA 0 16 var(N$)
0x0fe8…0ff4 4250 IF = ( var(B$) ) LEN 9 ?< COMMA 0 → 8042
0x0ff4…0ff7 4260 GOSUB 0 var(B0x68)
0x0ff7…0ffa 4270 GOTO 32 var(B$)
0x0ffa…1003 4280 LET var(A9%) COMMA = ( 9 ) var(FNR%) EOS
0x1003…100f 4290 LET ELEMENT var(A$) ( var(L%) 15 23 ) [] COMMA var(B$) EOS
0x100f…1031 4300 REM *** INPUT DIGITIZING MODE ***
0x1031…1036 4310 LET var(F1%) COMMA 4 EOS
0x1036…1039 4320 GOSUB 0 var(B0x60)
0x1039…103d 4330 TRAP ERR 4450
0x103d…1044 4340 INPUT » « COMMA var(B$) EOS
0x1044…104d 4350 IF var(B$) »« EQ COMMA 0 → 9044
0x104d…1056 4360 LET var(B%) COMMA = ( var(B$) ) VAL EOS
0x1056…105f 4370 LET var(B$) COMMA = ( var(B%) ) → b0f3
0x105f…1068 4380 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1068…1079 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«
0x1079…108a 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«
0x108a…109b 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«
0x109b…10ac 4420 IF ELEMENT var(B$) ( 7 8 ) [] »22« EQ COMMA 0 var(B0x63) var(N1$)
0x10ac…10bd 4430 IF ELEMENT var(B$) ( 7 8 ) [] »23« EQ COMMA 0 var(B0x63) var(N1$)
0x10bd…10ce 4440 IF ELEMENT var(B$) ( 7 8 ) [] »24« EQ COMMA 0 var(B0x63) var(N1$)
0x10ce…10d1 4450 GOSUB 0 var(B0x68)
0x10d1…10d4 4460 GOTO 32 var(N$)
0x10d4…10e2 4463 IF = ( var(B$) ) VAL %100 ?< COMMA 0 var(I1%) var(N1$)
0x10e2…10ee 4470 LET ELEMENT var(A$) ( var(L%) 24 31 ) [] COMMA var(B$) EOS
0x10ee…1113 4480 REM *** INPUT SHORT EXTRA PEDAL ****
0x1113…112b 4490 IF ELEMENT var(A$) ( var(L%) 24 31 ) [] » « EQ COMMA 0 var(I1%) var(N1$)
0x112b…1130 4500 LET var(F1%) COMMA 5 EOS
0x1130…1133 4510 GOSUB 0 var(B0x60)
0x1133…1137 4520 TRAP ERR 4510
0x1137…113e 4530 INPUT » « COMMA var(B$) EOS
0x113e…1147 4540 IF var(B$) »« EQ COMMA 0 32 var(A1$)
0x1147…1150 4550 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1150…115c 4560 IF = ( var(B$) ) VAL 20 > COMMA 0 → 8045
0x115c…1168 4570 IF = ( var(B$) ) VAL 0 → ebf1000046
0x1168…116b 4580 GOSUB 0 var(B0x68)
0x116b…116e 4590 GOTO 16 var(N2$)
0x116e…117a 4600 LET ELEMENT var(A$) ( var(L%) 32 39 ) [] COMMA var(B$) EOS
0x117a…119c 4610 REM *** INPUT LONG EXTRA PEDAL **
0x119c…11b4 4620 IF ELEMENT var(A$) ( var(L%) 32 39 ) [] » « EQ COMMA 0 → 8045
0x11b4…11b9 4630 LET var(F1%) COMMA 6 EOS
0x11b9…11bc 4640 GOSUB 0 var(B0x60)
0x11bc…11c0 4650 TRAP ERR 4640
0x11c0…11c7 4660 INPUT » « COMMA var(B$) EOS
0x11c7…11d0 4670 IF var(B$) »« EQ COMMA 0 var(I1%) var(F%')
0x11d0…11d9 4680 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x11d9…11e5 4690 IF = ( var(B$) ) VAL 20 > COMMA 0 16 var(F%')
0x11e5…11f1 4700 IF = ( var(B$) ) VAL 0 → ebf1003047
0x11f1…11f4 4710 GOSUB 0 var(B0x68)
0x11f4…11f7 4720 GOTO var(A0x46)
0x11f7…1203 4730 LET ELEMENT var(A$) ( var(L%) 40 47 ) [] COMMA var(B$) EOS
0x1203…1224 4740 REM *** INPUT WRITING-CODE *****
0x1224…123c 4750 IF ELEMENT var(A$) ( var(L%) 40 47 ) [] » « EQ COMMA 0 16 var(F%')
0x123c…1241 4760 LET var(F1%) COMMA 7 EOS
0x1241…1244 4770 GOSUB 0 var(B0x60)
0x1244…1248 4780 TRAP ERR 4870
0x1248…124f 4790 INPUT » « COMMA var(B$) EOS
0x124f…1258 4800 IF var(B$) »« EQ COMMA 0 16 var(L%)
0x1258…1261 4810 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1261…126a 4820 LET var(B%) COMMA = ( var(B$) ) VAL EOS
0x126a…1272 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 ****«
0x1272…127a 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«
0x127a…1282 4850 IF var(B%) 5 ?< COMMA 0 → 9048
0x1282…128a 4860 IF var(B%) 10 > COMMA 0 → 9048
0x128a…128d 4870 GOSUB 0 var(B0x68)
0x128d…1290 4880 GOTO »\x1brAsI07t\x9f\xf1B\xf3\x0bp\x1e *** INPUT ACCUM.GROUP ******
\x03rAsI07t\x9fp\x08 \xe7\xf1\x00pH\x1bU«
0x1290…129c 4890 LET ELEMENT var(A$) ( var(L%) 48 55 ) [] COMMA var(B$) EOS
0x129c…12bd 4900 REM *** INPUT ACCUM.GROUP ******
0x12bd…12d5 4910 IF ELEMENT var(A$) ( 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«
0x12d5…12da 4920 LET var(F1%) COMMA 8 EOS
0x12da…12dd 4930 GOSUB 0 var(B0x60)
0x12dd…12e1 4940 TRAP ERR 5030
0x12e1…12f4 4950 IF = ( ELEMENT var(A$) ( var(L%) 48 55 ) [] ) VAL 10 > COMMA 0 → 8049
0x12f4…12fb 4960 LET var(B$) COMMA »0« EOS
0x12fb…12fe 4970 GOTO 0 var(I1%)
0x12fe…1305 4980 INPUT » « COMMA var(B$) EOS
0x1305…130e 4990 IF var(B$) »« EQ COMMA 0 48 var(R%)
0x130e…1317 5000 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x1317…132a 5003 IF = ( ELEMENT var(A$) ( var(L%) 48 55 ) [] ) VAL 10 ?< COMMA 0 16 var(I1%)
0x132a…1336 5004 IF = ( var(B$) ) VAL 0 EQ COMMA 0 48 var(I1%)
0x1336…134a 5010 IF = ( var(B$) ) VAL -1 ?< COMMA 0 48 var(I1%)
0x134a…1358 5020 IF = ( var(B$) ) VAL %100 ?< COMMA 0 var(I1%) var(I1%)
0x1358…135b 5030 GOSUB 0 var(B0x68)
0x135b…135e 5040 GOTO 48 var(L%)
0x135e…136a 5050 LET ELEMENT var(A$) ( var(L%) 56 63 ) [] COMMA var(B$) EOS
0x136a…136d 5060 GOSUB 0 »W\xf1«
0x136d…1378 5070 ON var(R2%) COMMA 0 → 805000512051f3
0x1378…137f 5080 LET var(B$) COMMA »0« EOS
0x137f…1382 5090 GOTO → 9051
0x1382…1387 5100 LET var(B$) COMMA var(N1$) EOS
0x1387…138a 5110 GOTO → 9051
0x138a…13ab 5120 REM *** INPUT ACCUM. VALUE *****
0x13ab…13c3 5130 IF ELEMENT var(A$) ( var(L%) 56 63 ) [] » « EQ COMMA 0 48 var(I1%)
0x13c3…13c8 5140 LET var(F1%) COMMA 9 EOS
0x13c8…13cb 5150 GOSUB 0 var(B0x60)
0x13cb…13cf 5160 TRAP ERR 5210
0x13cf…13d6 5170 INPUT » « COMMA var(B$) EOS
0x13d6…13df 5180 IF var(B$) »« EQ COMMA 0 var(I1%) var(L1%)
0x13df…13e8 5190 LET var(A9%) COMMA = ( 8 ) var(FNR%) EOS
0x13e8…13fc 5200 IF = ( var(B$) ) VAL -1 → ebf1003052
0x13fc…13ff 5210 GOSUB 0 var(B0x68)
0x13ff…1402 5220 GOTO var(I1%) var(R%)
0x1402…1412 5230 LET ELEMENT var(A$) ( var(L%) %64 %72 ) [] COMMA var(B$) EOS
0x1412…1415 5240 GOSUB 0 ELEMENT
0x1415…1432 5250 IF ELEMENT var(A$) ( var(L%) %64 %72 ) [] » « EQ COMMA 0 16 var(L1%)
0x1432…1435 5260 GOSUB 0 var(B0x60)
0x1435…1438 5270 TRAP ERR OFF
0x1438…143a 5280 RETURN EOS
0x143a…1479 5290 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1479…147d 5300 REM
0x147d…14bc 5310 REM VVVVVVVVVV ROUTINE TO POSITION IN A FIELD VVVVVVVVVVVVVVVV
0x14bc…14cf 6000 PRINT = ( var(L%) 1 ) var(FNC$) ELEMENT var(A$) ( var(L%) 1 %72 ) [] PLUS EOS
0x14cf…14d3 6010 REM
0x14d3…14e5 6020 PRINT = ( var(L%) ( ELEMENT var(F%') ( var(F1%) ) [] 1 PLUS ) ) var(FNC$) SEMI EOS
0x14e5…14e7 6030 RETURN EOS
0x14e7…1526 6040 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1526…152a 6045 REM
0x152a…1569 6499 REM VVVVVVVVVVVVV ROUTINE TO FILL TABLE A$ WHITH SPACES VVVVVV
0x1569…156f 6500 194c01f114f3
0x156f…15a0 6510 LET ELEMENT var(A$) ( var(I%) 1 36 ) [] COMMA » « EOS
0x15a0…15d3 6520 LET ELEMENT var(A$) ( var(I%) 37 %72 ) [] COMMA » « EOS
0x15d3…15d6 6530 1a4cf3
0x15d6…15d8 6540 RETURN EOS
0x15d8…1617 6545 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1617…161b 6547 REM
0x161b…165a 6599 REM VVVVVVVVVVVVV ROUTINE TO INPUT TABLE NAME VVVVVVVVVVVVVVVV
0x165a…165c 6600 PRINT EOS
0x165c…167c 6610 INPUT » GIVE NAME OF TABLE: « COMMA var(N2$) EOS
0x167c…167e 6620 PRINT EOS
0x167e…1680 6630 RETURN EOS
0x1680…16bf 6635 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x16bf…16c3 6637 REM
0x16c3…1702 6699 REM VVVVVVVVVVVVVV ROUTINE TO PRINT HEADING VVVVVVVVVVVVVVVVVV
0x1702…1705 6700 GOSUB 32 5
0x1705…1737 6705 PRINT = ( 8 ) → b5f27005434c415353f271730f74b5f270085448454d41544943f271731874b5f270084449474954495a2ef2f3
0x1737…176e 6707 PRINT = ( 34 ) → b5f2700b45585452412d504544414cf271733074b5f2700757524954494e47f271733974b5f270092053455155454e4345f3
0x176e…1798 6710 PRINT = ( 3 ) → b5f270034e4f3af271730874b5f270054e414d453af271731174b5f27005434f44453af2f3
0x1798…17c5 6712 PRINT = ( 25 ) → b5f270054d4f44453af271732174b5f2700653484f52543af271732974b5f270054c4f4e473af2f3
0x17c5…17f4 6714 PRINT = ( 49 ) → b5f27005434f44453af271733974b5f2700647524f55503af271736f410074b5f2700656414c55453af3
0x17f4…17f7 6716 GOSUB 0 USING
0x17f7…17f9 6720 RETURN EOS
0x17f9…1838 6725 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1838…183c 6730 REM
0x183c…187b 6799 REM VVVVVVVVVVVVVVV ROUTINE TO PRINT BELLTONE VVVVVVVVVVVVVVVV
0x187b…1881 6800 194c01f10af3
0x1881…1889 6810 PRINT = ( 7 ) → aff2f3
0x1889…188c 6820 1a4cf3
0x188c…188e 6830 RETURN EOS
0x188e…18cd 6835 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x18cd…18d1 6840 REM
0x18d1…1909 7000 REM VVVVV SUBROUTINE TO HANDLE ACCUMULATING GROUP VVVVV
0x1909…1938 7010 REM ----- RETURNVALUE R2%=1 SET ACC VALUE TO 0
0x1938…1969 7020 REM ----- =2 SET ACC VALUE TO N1$
0x1969…19a1 7030 REM ----- =3 INPUT ACC.VALUE AND SET ALL
0x19a1…19df 7040 REM ----- ACCVALUES IN GROUP TO INPUTVALUE.
0x19df…19e4 7050 LET var(R2%) COMMA 0 EOS
0x19e4…19f5 7060 IF var(B$) » 0« <> COMMA 0 → 9070
0x19f5…19fa 7070 LET var(R2%) COMMA 1 EOS
0x19fa…19fc 7080 RETURN EOS
0x19fc…1a06 7090 194c01f1734901e374f3
0x1a06…1a15 7100 IF var(B$) ELEMENT var(A$) ( var(I%) 56 63 ) [] <> COMMA 0 16 =
0x1a15…1a25 7103 LET var(N1$) COMMA ELEMENT var(A$) ( var(I%) %64 %72 ) [] EOS
0x1a25…1a28 7106 GOTO var(A0x71)
0x1a28…1a2b 7110 1a4cf3
0x1a2b…1a30 7120 LET var(R2%) COMMA 3 EOS
0x1a30…1a32 7130 RETURN EOS
0x1a32…1a37 7140 LET var(R2%) COMMA 2 EOS
0x1a37…1a39 7150 RETURN EOS
0x1a39…1a72 7160 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1a72…1aab 7200 REM VVVVVVV SUBROUTINE TO SET ALL ACCVAL`S TO B$ VVVVVVV
0x1aab…1ab0 7210 LET var(I%) COMMA 0 EOS
0x1ab0…1ab7 7220 LET var(I%) COMMA var(I%) 1 PLUS EOS
0x1ab7…1acf 7230 IF ELEMENT var(A$) ( var(I%) 24 31 ) [] » « EQ COMMA 0 var(I1%) (
0x1acf…1ad7 7235 IF var(I%) 20 > COMMA 0 var(I1%) (
0x1ad7…1aed 7240 IF ELEMENT var(A$) ( var(L%) 56 63 ) [] ELEMENT var(A$) ( var(I%) 56 63 ) [] <> COMMA 0 var(B0x60) ELEMENT
0x1aed…1afd 7250 LET ELEMENT var(A$) ( var(I%) %64 %72 ) [] COMMA var(B$) EOS
0x1afd…1b00 7260 GOTO 32 ELEMENT
0x1b00…1b02 7350 RETURN EOS
0x1b02…1b3c 7360 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1b3c…1b75 7400 REM VVVV SUBROUTINE TO WRITE TABLE TO SCREEM VVVVVVVVVVV
0x1b75…1b7f 7410 194c01f1734901e274f3
0x1b7f…1b92 7420 PRINT = ( var(I%) 1 ) var(FNC$) ELEMENT var(A$) ( var(I%) 1 %72 ) [] PLUS EOS
0x1b92…1b95 7430 1a4cf3
0x1b95…1b98 7435 GOSUB 0 USING
0x1b98…1b9a 7440 RETURN EOS
0x1b9a…1bd3 7450 REM ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
0x1bd3…1c0a 7500 REM VVVV SUBROUTINE TO WRITE GUIDELINE VVVVVVVVVVVVVVV
0x1c0a…1c3f 7510 PRINT = ( 21 1 ) var(FNC$) » H=HELP, C=CORRECTION, E=ERASE, F=FINNISH« PLUS EOS
0x1c3f…1c41 7520 RETURN EOS
0x1c41…1c76 9000 REM VVVVVVVVVVVVVVV END PROGRAM VVVVVVVVVVVVVVVVVVVV
0x1c76…1c78 9010 14f3
0x1c78…1c79 9999 END