|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: 8 C E F I T V
Length: 1177344 (0x11f700)
Description: Bits:30005982/disk2.imd RC Computer - Turn Key Data Entry System - Vers. 1.91
Types: 8" Floppy Disk, CpmFSAuto, ImdContainer
Notes: CpmFSAuto,512,2048,48,0x0,1<2<3<4,2:0-76:1
Media: [0, 0, 1] … [76, 1, 15] {128: 26, 256: 26, 512: 2280}
Signature: CpmFSAuto,512,2048,48,0x0,1<2<3<4,2:0-76:1
Confidence score: +51/-0
Sector size: 512
Block size: 2048
Directory entries: 48
Block number size: 16
Extent-mask: 0x00
Sector-interleave: 1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 4, 8, 12
Tracks: (2, 0), (2, 1), (3, 0), (3, 1), (4, 0), (4, 1) […] (74, 0), (74, 1), (75, 0), (75, 1), (76, 0), (76, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 0 | 0 | 6272 | CCB.MAC | ⟦5674cd9b7⟧ TextFile |
| 0 | 0 | 896 | CHAININF.BAS | ⟦d027eac15⟧ TextFile |
| 0 | 0 | 60416 | EENTRY.MAC | ⟦79d4fca9f⟧ TextFile |
| 0 | 0 | 33024 | EEOFPRC.MAC | ⟦21c62dddb⟧ TextFile |
| 0 | 0 | 23552 | EFMTINT.MAC | ⟦a8f464678⟧ TextFile |
| 0 | 0 | 17664 | EGENSUB.MAC | ⟦2cdca139d⟧ TextFile |
| 0 | 0 | 1280 | EMSGTAB.MAC | ⟦523da180c⟧ TextFile |
| 0 | 0 | 36096 | ENTRY.BAS | ⟦0ab20db56⟧ TextFile |
| 0 | 0 | 48256 | ENTRYME.BAS | ⟦8f09887af⟧ TextFile |
| 0 | 0 | 21888 | EUSRINT.MAC | ⟦2c4e1140f⟧ TextFile |
| 0 | 0 | 20096 | FFMTINT.MAC | ⟦6666399ed⟧ TextFile |
| 0 | 0 | 17280 | FFORMAT.MAC | ⟦5efa4b09f⟧ TextFile |
| 0 | 0 | 12672 | FGENSUB.MAC | ⟦e9918d40e⟧ TextFile |
| 0 | 0 | 1280 | FMSGTAB.MAC | ⟦38bb7dec9⟧ TextFile |
| 0 | 0 | 59264 | FORMAT.BAS | ⟦98e09604c⟧ TextFile |
| 0 | 0 | 11392 | FUSRINT.MAC | ⟦f163a092f⟧ TextFile |
| 0 | 0 | 4864 | INFO.TEX | ⟦7c5087024⟧ TextFile |
| 0 | 0 | 29824 | VERIFY.BAS | ⟦3e1b1c98b⟧ TextFile |
0x000000…000020 (0, 0, 1) f3 01 ff 15 11 00 da 21 10 00 ed b0 c3 00 da 7b c3 a3 df c3 74 e1 c3 00 e6 c3 51 e6 c3 6d e7 c3 ┆ ! æ t Q m ┆
0x000020…000040 f8 e1 c3 f6 e1 c3 f7 e1 c3 12 e2 c3 29 e2 c3 92 e2 c3 97 e2 c3 9c e2 c3 a1 e2 c3 b1 e2 c3 04 e2 ┆ ) ┆
0x000040…000060 c3 0f e2 51 0a 16 00 08 08 00 00 00 00 00 00 00 00 6d dd 68 da ed dd 0d de 00 00 00 00 00 00 00 ┆ Q m h ┆
0x000060…000080 00 6d dd 68 da 46 de 66 de 1a 00 03 07 00 f2 00 3f 00 c0 00 10 00 02 00 78 00 04 0f 00 c1 01 7f ┆ m h F f ? x ┆
0x000080…0000a0 (0, 0, 2) 00 c0 00 20 00 02 00 48 00 04 0f 01 86 00 7f 00 c0 00 20 00 02 00 68 00 04 0f 00 d7 01 7f 00 c0 ┆ H h ┆
0x0000a0…0000c0 00 20 00 00 00 01 07 0d 13 19 05 0b 11 17 03 09 0f 15 02 08 0e 14 1a 06 0c 12 18 04 0a 10 16 01 ┆ ┆
0x0000c0…0000e0 05 09 0d 02 06 0a 0e 03 07 0b 0f 04 08 0c 01 03 05 07 09 02 04 06 08 01 02 03 04 05 06 07 08 09 ┆ ┆
0x0000e0…000100 0a 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 00 00 00 00 00 00 00 00 00 14 15 16 17 18 19 ┆ ┆
0x000100…000120 (0, 0, 3) 1a 59 da 08 1a 00 01 95 da 80 92 92 92 92 92 92 92 68 da 10 78 03 03 af da ff 92 92 92 92 92 92 ┆ Y h x ┆
0x000120…000140 80 77 da 10 48 03 03 be da ff ff ff fc ff ff ff 8a 86 da 08 68 01 02 c7 da ff ff ff ff ff ff ff ┆ w H h ┆
0x000140…000160 8c 1a 7f 00 00 00 1a 07 4d 1e ff 01 40 02 0f 1b 4d 12 ff 01 40 02 09 1b 24 34 ff 00 40 01 1a 0e ┆ M @ M @ $4 @ ┆
0x000160…000180 4d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆M ┆
0x000180…0001a0 (0, 0, 4) 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff 82 4a 40 4e 4e 6e 82 0a ff ff ff ff ff ff ff ff ┆ J@NNn ┆
0x0001a0…0001c0 80 a0 a0 a2 a0 e2 e2 6a ff ff ff ff fc ff ff ff aa a0 a0 62 ea ee ea aa df ff ff ff ff ff ff ff ┆ j b ┆
0x0001c0…0001e0 a6 a2 aa aa ea ea aa 20 ff ff ff ff ff ff ff ff e2 ea e0 6e ee ee a2 aa ff ff ff ff ff ff ff ff ┆ n ┆
0x0001e0…000200 92 92 92 92 b2 b2 b2 b2 b2 b2 b2 b2 b0 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 92 b2 b2 b2 b2 b2 b2 b2 ┆ ┆
0x000200…000220 (0, 0, 5) b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 b2 ┆ ┆
0x000220…000240 00 00 00 00 00 00 20 24 ed 6d fd ff 7c 7f 7f 57 02 00 00 00 20 20 00 04 df bc 7d ff ff 7f 7b ff ┆ $ m ø W å æ ┆
0x000240…000260 00 00 00 00 08 08 08 00 5f ff ff ff 7f 7f 7f 37 00 04 04 04 04 04 00 00 55 55 5f fd 7f 7f 7f df ┆ _ 7 UU_ ┆
0x000260…000280 80 80 80 11 80 80 00 4d fd 7d ff ff fd ff 7f 7f 82 80 00 00 68 ee 48 04 df fd 7f ff ff 7f fb ff ┆ M å h H ┆
0x000280…0002a0 (0, 0, 6) 01 00 00 00 88 88 08 00 ff ff ff ff ff ff 7f ff 80 84 84 04 8c 84 80 80 7d fd 7f ff 7f 7f ff ff ┆ å ┆
0x0002a0…0002c0 00 00 00 00 00 00 00 4f 4f 6f ff ff 7c 7f 5f 5f 02 00 00 00 6e 6e 4e 06 df ff 7f ff ff 7f 7f ff ┆ OOo ø __ nnN ┆
0x0002c0…0002e0 05 44 00 00 0a 4a 0a 00 5f ff ff 5f 5f 5f 7f 7f 00 04 04 04 0c 0e 0a 0a 5f 5f 5f 7f 5f 5f 7f df ┆ D J _ ___ ___ __ ┆
0x0002e0…000300 80 80 80 08 00 80 20 28 ee ed fe de fc ff ff ff 82 80 80 00 aa aa 0a 00 de fe ff ff ff fb fb ff ┆ ( ┆
0x000300…000320 (0, 0, 7) 00 80 80 00 0a 0a 0a 00 df ff df df df ff ff bf 80 88 80 84 8a 8a 8a 8a ff bf ff ff ff df ff df ┆ ┆
0x000320…000340 80 80 a0 a1 80 a0 a0 2f ef ef ff ff fd ff ff ff 82 80 a0 20 ae ae 2e 27 df ff ff ff ff 7f 7f ff ┆ / .' ┆
0x000340…000360 05 04 a4 24 aa aa 8a 00 ff ff ff ff ff ff 7f ff 86 84 a4 a4 ae ae aa aa ff ff ff ff ff ff 7f ff ┆ $ ┆
0x000360…000380 80 a0 a0 e1 a0 a0 e0 6f ef ff ff ff fd ff ff ff a2 a0 a0 20 ee ee 6e 26 3a db 00 00 00 ff ff ff ┆ o n&: ┆
0x000380…0003a0 (0, 0, 8) 25 c4 a4 24 ea ea aa 20 3a db 00 00 00 ff ff ff a6 a6 a4 a4 ae ee aa aa ff ff ff ff ff ff ff ff ┆% $ : ┆
0x0003a0…0003c0 80 80 80 e1 80 e0 e0 6f ef ef ff ff fd ff ff ff 82 80 80 00 ee ee 6e 66 df ff ff ff ff ff ff ff ┆ o nf ┆
0x0003c0…0003e0 45 c6 a6 24 ea ca ca 00 ff ff ff ff ff ff ff ff 86 c6 a6 a6 ee ee aa aa ff ff ff ff ff ff ff ff ┆E $ ┆
0x0003e0…000400 80 a0 80 a5 80 80 a0 2f ef ef ff ff fd ff ff ff 82 80 80 00 ae ae 2e 26 df ff ff ff ff ff ff ff ┆ / .& ┆
0x000400…000420 (0, 0, 9) 05 86 a4 24 8a 8a 8a 00 df ff ff ff ff ff ff bf 86 86 84 84 8e 8e 8a 8a ff bf ff ff ff ff ff ff ┆ $ ┆
0x000420…000440 80 a0 a0 a1 a0 a0 a0 6f ff ff ff ff fd ff ff ff a2 a0 a0 20 ae ae 2e 27 df ff ff ff ff ff ff ff ┆ o .' ┆
0x000440…000460 25 a4 a4 24 aa aa aa 28 ff ff ff ff ff ff ff ff a6 a6 a4 a4 ae ae aa aa ff ff ff ff ff ff ff ff ┆% $ ( ┆
0x000460…000480 80 a0 a0 a4 a0 a0 a0 2f ef ef ff ff fd ff ff ff a2 a0 a0 20 ae ae 2e 26 df ff ff ff ff ff ff ff ┆ / .& ┆
0x000480…0004a0 (0, 0, 10) 05 84 a4 24 aa aa aa 20 ff ff ff ff ff ff ff bf a0 86 a4 a4 ac ae aa aa ff bf ff ff ff ff ff ff ┆ $ ┆
0x0004a0…0004c0 80 a0 a0 a5 a0 a0 a0 2f ef ff ff ff fd ff ff ff a2 a0 a0 20 ae 00 00 01 00 00 00 00 ff ff ff ff ┆ / ┆
0x0004c0…0004e0 25 84 a4 24 60 00 00 00 00 00 00 00 ff ff ff ff a6 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e ┆% $` ┆
0x0004e0…000500 0f 00 01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000500…000520 (0, 0, 11) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000520…000540 00 00 00 00 00 00 00 00 00 00 00 ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000540…000560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000560…000580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 80 a0 b3 a0 b3 c6 b3 80 b4 0d 0a 72 65 ┆ @ re┆
0x000580…0005a0 (0, 0, 12) 73 74 61 72 74 00 0c 0d 0a 35 36 6b 20 63 70 2f 6d 20 76 65 72 73 20 32 2e 32 0d 0a 00 21 6c df ┆start 56k cp/m vers 2.2 !l ┆
0x0005a0…0005c0 cd 96 df c3 93 df 7e b7 c8 e5 4f cd 6d e7 e1 23 c3 96 df f3 31 80 00 3e 18 d3 0a d3 0b d3 32 d3 ┆ ü O m # 1 > 2 ┆
0x0005c0…0005e0 33 3e 03 d3 0c d3 0d d3 0e d3 0f 3e 00 d3 fd 3e 20 d3 f8 3e ec ed 47 ed 5e c3 e4 df 00 6b 01 50 ┆3> > > > G ^ k P┆
0x0005e0…000600 02 5a 03 0a 04 19 05 0a 06 19 07 19 08 00 09 0d 0c 00 0d 00 cd 77 e9 21 cc df 06 0c 7e d3 24 23 ┆ Z w ! ü $#┆
0x000600…000620 (0, 0, 13) 7e d3 25 23 10 f6 cd 66 e0 cd e5 e0 cd 49 e1 3e d7 d3 0f 3e 01 d3 0f 21 76 df cd 96 df af 32 5c ┆ü %# f I > > !v 2Ø┆
0x000620…000640 db 32 64 db 32 5d db 32 a8 de 3e 00 32 61 df d3 31 cd 43 e7 3e 40 32 62 df d3 31 cd 43 e7 3e 80 ┆ 2d 2Å 2 > 2a 1 C >@2b 1 C > ┆
0x000640…000660 32 63 df d3 31 cd 43 e7 cd ce e4 ca 74 e1 21 37 da 36 10 21 38 da 36 10 0e 01 cd 29 e2 cd 12 e2 ┆2c 1 C t !7 6 !8 6 ) ┆
0x000660…000680 78 e6 10 af 20 01 3c 32 a7 de c3 74 e1 cd 12 e2 78 e6 10 af 20 01 3e 00 d3 0e 3e c5 d3 0e 3e 01 ┆x <2 t x > > > ┆
0x000680…0006a0 (0, 0, 14) d3 0e 21 53 ec 22 04 ec 01 0d 40 cd d3 e9 3e 02 d3 20 01 c1 de 11 20 00 3e 08 cd b5 e9 fb 76 01 ┆ !S " @ > > v ┆
0x0006a0…0006c0 e1 de 11 80 00 3e 08 cd b5 e9 3e 03 d3 20 76 21 31 ec 22 04 ec 11 a7 ef 21 a6 ef 36 00 2b 36 20 ┆ > > v!1 " ! 6 +6 ┆
0x0006c0…0006e0 01 fe 0f ed b0 ed 43 61 e0 ed 43 5d e0 ed 43 63 e0 cd e4 e9 cd 2a e9 01 a5 ef 11 00 10 3e 08 cd ┆ Ca CÅ Cc * > ┆
0x0006e0…000700 b5 e9 af d3 20 76 01 18 00 ed 43 5f e0 cd 7c e9 af 32 65 e0 c9 f3 3e 18 d3 33 3e 04 d3 33 3e c7 ┆ v C_ ø 2e > 3> 3> ┆
0x000700…000720 (0, 0, 15) d3 33 3e 03 d3 33 3e c1 d3 33 3e 05 d3 33 3e e8 d3 33 3e f0 d3 31 cd 43 e7 3e f0 d3 31 cd 43 e7 ┆ 3> 3> 3> 3> 3> 1 C > 1 C ┆
0x000720…000740 3e d5 d3 31 cd 43 e7 21 64 df 06 04 56 23 5e 23 cd 35 e1 10 f7 3e f0 d3 31 cd 43 e7 3e f0 d3 31 ┆> 1 C !d V#^# 5 > 1 C > 1┆
0x000740…000760 cd 43 e7 fb c9 3e c0 d3 31 cd 43 e7 7a d3 31 cd 43 e7 7b d3 31 cd 43 e7 c9 3e 47 d3 0d 3e 20 d3 ┆ C > 1 C z 1 C æ 1 C >G > ┆
0x000760…000780 0d f3 3e 04 d3 0b 3e 4f d3 0b 3e 03 d3 0b 3e 20 d3 0b 3e 05 d3 0b 3e a8 d3 0b 3e 01 d3 0b 3e 00 ┆ > >O > > > > > > ┆
0x000780…0007a0 (0, 0, 16) d3 0b fb c9 fb 0e 00 cd 29 e2 3e 60 32 b4 de 97 32 b5 de 32 04 00 32 03 00 32 a1 de 32 a3 de 32 ┆ ) >`2 2 2 2 2 2 2┆
0x0007a0…0007c0 5e db cd 12 e2 31 80 00 01 00 c4 cd 9c e2 06 00 0e 01 cd 92 e2 06 2c 0e 00 cd 97 e2 c5 cd a1 e2 ┆^ 1 , ┆
0x0007c0…0007e0 fe 00 c2 8d df 2a aa de 11 80 00 19 44 4d cd 9c e2 c1 0c cd 97 e2 05 c2 ac e1 01 80 00 cd 9c e2 ┆ * DM ┆
0x0007e0…000800 cd 00 e6 fe ff 20 02 db 31 f3 3e c3 32 00 00 21 03 da 22 01 00 32 05 00 21 06 cc 22 06 00 3a a8 ┆ 1 > 2 ! " 2 ! " : ┆
0x000800…000820 (0, 0, 17) de 4f fb c3 00 c4 c9 c9 db 0b e6 04 fe 04 20 f8 79 d3 09 c9 db 0b e6 04 fe 04 3e ff c8 af c9 60 ┆ O y > `┆
0x000820…000840 69 c9 3a 51 db 32 a8 de 32 59 db af 32 5a db cd de e5 cd 7b e5 cd e5 e5 c9 21 00 00 3a a7 de b9 ┆i :Q 2 2Y 2Z æ ! : ┆
0x000840…000860 d8 79 32 51 db 06 00 21 37 da b7 28 04 23 01 10 00 7e 21 6a dd be 28 0f f5 c5 3a 5d db b7 c4 e3 ┆ y2Q !7 ( # ü!j ( :Å ┆
0x000860…000880 e3 af 32 5d db c1 f1 32 6a dd cd ce e4 22 68 dd 23 23 23 23 7e 32 a9 de c5 3a 6a dd b7 17 5f 16 ┆ 2Å 2j "h ####ü2 :j _ ┆
0x000880…0008a0 (0, 0, 18) 00 21 f1 da 19 11 e1 da 01 10 00 ed b0 c1 21 39 da 09 eb 21 0a 00 19 eb 3a e1 da 12 13 3a e2 da ┆ ! !9 ! : : ┆
0x0008a0…0008c0 12 c9 ed 43 52 db c9 79 32 54 db c9 ed 43 aa de c9 3e 01 32 66 db 32 65 db 3e 02 32 67 db c3 33 ┆ CR y2T C > 2f 2e > 2g 3┆
0x0008c0…0008e0 e3 af 32 66 db 79 32 67 db fe 02 20 18 3a e3 da 32 5e db 3a 51 db 32 5f db 2a 52 db 22 60 db 3a ┆ 2f y2g : 2^ :Q 2_ *R "` :┆
0x0008e0…000900 54 db 32 62 db 3a 5e db b7 ca 29 e3 3d 32 5e db 3a 51 db 21 5f db be c2 29 e3 21 60 db cd d7 e3 ┆T 2b :^ ) =2^ :Q !_ ) !` ┆
0x000900…000920 (0, 0, 19) c2 29 e3 3a 54 db 21 62 db be c2 29 e3 34 7e 21 e4 da be da 12 e3 21 62 db 36 00 21 60 db 23 22 ┆ ) :T !b ) 4ü! !b 6 !` #"┆
0x000920…000940 60 db af 32 65 db 3a 54 db 21 e5 da a6 be 3e 00 20 01 3c 32 63 db c3 33 e3 af 32 5e db 3a e5 da ┆` 2e :T ! > <2c 3 2^ : ┆
0x000940…000960 32 65 db 3a e6 da 47 3a 54 db 05 28 05 b7 1f c3 3a e3 32 5b db 21 5c db 7e 36 01 b7 ca 73 e3 3a ┆2e : G:T ( : 2Æ !Ø ü6 s :┆
0x000960…000980 51 db 21 55 db be c2 6c e3 21 56 db cd d7 e3 c2 6c e3 3a 5b db 21 58 db be ca 90 e3 3a 5d db b7 ┆Q !U l !V l :Æ !X :Å ┆
0x000980…0009a0 (0, 0, 20) c4 e3 e3 3a 51 db 32 55 db 2a 52 db 22 56 db 3a 5b db 32 58 db 3a 65 db b7 c4 e9 e3 af 32 5d db ┆ :Q 2U *R "V :Æ 2X :e 2Å ┆
0x0009a0…0009c0 3a 54 db 21 e5 da a6 6f 26 00 29 29 29 29 29 29 29 11 68 db 19 eb 2a aa de 01 80 00 eb 3a 66 db ┆:T ! o& ))))))) h * :f ┆
0x0009c0…0009e0 b7 20 06 3e 01 32 5d db eb ed b0 3a 67 db fe 01 21 64 db 7e 36 00 c0 b7 c0 af 32 5d db cd e3 e3 ┆ > 2Å :g !d ü6 2Å ┆
0x0009e0…000a00 21 64 db 7e 36 00 c9 eb 21 52 db 1a be c0 13 23 1a be c9 cd f8 e3 c3 b1 e4 3a 63 db b7 20 03 32 ┆!d ü6 !R # :c 2┆
0x000a00…000a20 (0, 0, 21) 5e db cd f8 e3 c3 6c e4 3a 58 db 4f 3a a9 de 47 3d b9 3a 55 db 30 0b f6 04 32 a8 de 79 90 4f c3 ┆^ l :X O: G= :U 0 2 y O ┆
0x000a20…000a40 15 e4 32 a8 de 06 00 2a e7 da 09 7e 32 a5 de 3a 56 db 32 a6 de 21 68 db 22 6b dd 3a 55 db 21 59 ┆ 2 * ü2 :V 2 !h "k :U !Y┆
0x000a40…000a60 db be 20 08 3a 56 db 21 5a db be c8 3a 55 db 32 59 db 3a 56 db 32 5a db cd de e5 cd c4 e5 cd e5 ┆ :V !Z :U 2Y :V 2Z ┆
0x000a60…000a80 e5 3a a8 de e6 03 c6 20 b8 c8 cd de e5 cd 7b e5 c5 cd e5 e5 cd c4 e5 cd e5 e5 c1 c9 3e 0a 32 b8 ┆ : æ > 2 ┆
0x000a80…000aa0 (0, 0, 22) de cd de e5 2a 68 dd 4e 23 46 23 cd e2 e4 cd 10 e5 cd f8 e5 0e 00 21 ac de 7e e6 f8 c8 e6 08 20 ┆ *h N#F# ! ü ┆
0x000aa0…000ac0 16 3a b8 de 3d 32 b8 de 28 0d fe 05 cc 5a e4 af b9 ca 71 e4 c3 b6 e4 79 32 5c db 3e 01 32 64 db ┆ : =2 ( Z q y2Ø > 2d ┆
0x000ac0…000ae0 c9 3e 0a 32 b8 de cd de e5 2a 68 dd 4e 23 46 23 cd ec e4 cd 15 e5 cd f8 e5 0e 01 c3 86 e4 21 32 ┆ > 2 *h N#F# !2┆
0x000ae0…000b00 db 3a 6a dd 5f 16 00 19 db 14 e6 80 c8 3e 01 d3 14 c9 3e 05 f3 d3 fa 3e 45 c3 f6 e4 3e 05 f3 d3 ┆ :j _ > > >E > ┆
0x000b00…000b20 (0, 0, 23) fa 3e 49 c3 f6 e4 d3 fb d3 fc 3a 6b dd d3 f2 3a 6c dd d3 f2 79 d3 f3 78 d3 f3 3e 01 d3 fa fb c9 ┆ >I :k :l y x > ┆
0x000b20…000b40 3e 06 c3 1a e5 3e 05 c3 1a e5 47 f3 cd 67 e5 78 46 23 80 d3 05 cd 67 e5 3a a8 de d3 05 cd 67 e5 ┆> > G g xF# g : g ┆
0x000b40…000b60 3a a6 de d3 05 cd 67 e5 3a a8 de 1f 1f e6 03 d3 05 cd 67 e5 3a a5 de d3 05 cd 67 e5 7e 23 d3 05 ┆: g : g : g ü# ┆
0x000b60…000b80 cd 67 e5 7e 23 d3 05 cd 67 e5 7e d3 05 cd 67 e5 3a e9 da d3 05 fb c9 db 04 e6 c0 fe 80 c2 67 e5 ┆ g ü# g ü g : g ┆
0x000b80…000ba0 (0, 0, 24) c9 db 04 e6 c0 fe c0 c2 71 e5 c9 cd 67 e5 3e 07 d3 05 cd 67 e5 3a a8 de e6 03 d3 05 c9 cd 67 e5 ┆ q g > g : g ┆
0x000ba0…000bc0 3e 04 d3 05 cd 67 e5 3a a8 de e6 03 d3 05 cd 71 e5 db 05 32 ac de c9 cd 67 e5 3e 08 d3 05 cd 71 ┆> g : q 2 g > q┆
0x000bc0…000be0 e5 db 05 32 ac de e6 c0 fe 80 c8 cd 71 e5 db 05 32 ad de c9 cd 67 e5 3e 0f d3 05 cd 67 e5 3a a8 ┆ 2 q 2 g > g : ┆
0x000be0…000c00 de e6 03 d3 05 cd 67 e5 3a a6 de d3 05 c9 f3 af 32 a0 de fb c9 3a a0 de e6 02 28 f9 3a ac de 47 ┆ g : 2 : ( : G┆
0x000c00…000c20 (0, 0, 25) 3a ad de 4f cd de e5 c9 3a a0 de e6 02 28 f9 c9 3a bc de fe ff c2 1a e6 db 33 e6 01 28 0f db 31 ┆: O : ( : 3 ( 1┆
0x000c20…000c40 4f cd 1f e6 28 07 79 32 bc de 3e ff c9 af c9 fe b3 ca 39 e6 fe c6 ca 3f e6 fe a0 ca 3f e6 fe 80 ┆O ( y2 > 9 ? ? ┆
0x000c40…000c60 ca 45 e6 fe b4 ca 4b e6 c9 3e 60 32 b4 de c9 3e 40 32 b4 de c9 3e 01 32 b5 de c9 3e 00 32 b5 de ┆ E K >`2 >@2 > 2 > 2 ┆
0x000c60…000c80 c9 3a bc de fe ff 20 05 cd 5a e7 db 31 32 b6 de 3e ff 32 bc de 3a b6 de fe b3 ca e9 e6 fe c6 ca ┆ : Z 12 > 2 : ┆
0x000c80…000ca0 (0, 0, 26) f1 e6 fe a0 ca f1 e6 fe 80 ca 00 e7 fe b4 ca f9 e6 fe 81 ca 08 e7 fe e9 f5 cc 13 e7 f1 fe 0e f5 ┆ ┆
0x000ca0…000cc0 cc 1c e7 f1 21 05 ed cd a0 e6 fe ff ca 51 e6 c9 3a b4 de fe 60 28 04 11 00 01 19 ed 5b b6 de 19 ┆ ! Q : `( Æ ┆
0x000cc0…000ce0 7e 32 b6 de 3a b5 de fe 00 3a b6 de ca da e6 3a b4 de 47 3a b6 de 90 32 b6 de fe 01 fa d5 e6 fe ┆ü2 : : : G: 2 ┆
0x000ce0…000d00 20 f2 d5 e6 c9 3e ff c3 51 e6 21 63 df cb 46 c8 fe 61 f8 fe 7e f0 d6 20 c9 3e 60 32 b4 de c3 51 ┆ > Q !c F a ü >`2 Q┆
0x000d00…000d20 (0, 1, 1) e6 3e 40 32 b4 de c3 51 e6 af 32 b5 de c3 51 e6 3e 01 32 b5 de c3 51 e6 21 63 df 06 01 cd 25 e7 ┆ >@2 Q 2 Q > 2 Q !c % ┆
0x000d20…000d40 c3 51 e6 21 62 df 06 01 cd 25 e7 c9 21 61 df 06 02 cd 25 e7 c9 7e a0 7e 20 03 b0 18 06 4f 78 2f ┆ Q !b % !a % ü ü Ox/┆
0x000d40…000d60 47 79 a0 77 06 03 21 61 df 7e d3 31 23 cd 43 e7 10 f7 c9 db 33 e6 04 fe 04 20 f8 c5 0e 32 0d 06 ┆Gy w !a ü 1# C 3 2 ┆
0x000d60…000d80 ff 10 fe 79 fe 00 20 f6 c1 c9 db 33 e6 01 fe 01 20 f8 3e 01 d3 33 db 33 e6 10 20 ee c9 3a b9 de ┆ y 3 > 3 3 : ┆
0x000d80…000da0 fe 00 c2 ef e7 cb 79 c4 93 e7 fe ff c8 79 fe 20 fa ac e7 21 25 ef 32 b6 de ed 5b b6 de 19 4e cd ┆ y y !% 2 Æ N ┆
0x000da0…000dc0 41 e9 c9 3a 65 e0 fe 00 28 07 79 fe 80 28 02 af c9 79 e6 7f cb 07 32 65 e0 3e ff c9 fe 05 ca 21 ┆A :e ( y ( y 2e > !┆
0x000dc0…000de0 e8 fe 06 ca e9 e7 fe 07 ca 6c e8 fe 08 ca 21 e8 fe 09 ca 7d e8 fe 0a ca e8 e8 fe 0c ca c0 e8 fe ┆ l ! å ┆
0x000de0…000e00 0d ca 3b e8 fe 18 ca 4a e8 fe 1a ca 91 e8 fe 1d ca ae e8 fe 1e ca 55 e8 c9 3e 01 32 b9 de c9 06 ┆ ; J U > 2 ┆
0x000e00…000e20 (0, 1, 2) 00 26 00 fe 01 28 08 cd 10 e8 af 32 b9 de c9 c5 e1 b7 01 20 00 ed 42 22 ba de 3e 02 32 b9 de c9 ┆ & ( 2 B" > 2 ┆
0x000e20…000e40 c5 e1 b7 01 20 00 ed 42 e5 c1 2a ba de cd 9a e9 c9 21 64 e0 7e fe 00 c8 21 64 e0 35 2a 61 e0 2b ┆ B * !d ü !d 5*a +┆
0x000e40…000e60 22 61 e0 ed 4b 61 e0 cd e4 e9 c9 c5 21 63 e0 6e 26 00 01 00 00 cd 9a e9 c1 c9 cd 51 e9 ed 4b 61 ┆"a Ka !c n& Q Ka┆
0x000e60…000e80 e0 cd e4 e9 c9 2a 61 e0 cd 8b e9 3a 64 e0 47 3e 50 90 47 36 20 23 36 00 23 10 f8 c9 3a 63 df f6 ┆ *a :d G>P G6 #6 # :c ┆
0x000e80…000ea0 08 d3 31 f5 cd 43 e7 f1 e6 f7 d3 31 c9 cd 51 e9 cd 51 e9 cd 51 e9 cd 51 e9 ed 4b 61 e0 cd e4 e9 ┆ 1 C 1 Q Q Q Q Ka ┆
0x000ea0…000ec0 c9 3a 63 e0 fe 00 c8 2a 61 e0 01 50 00 ed 42 22 61 e0 ed 4b 61 e0 21 63 e0 35 cd e4 e9 c9 01 00 ┆ :c *a P B"a Ka !c 5 ┆
0x000ec0…000ee0 00 ed 43 61 e0 af 32 63 e0 32 64 e0 cd e4 e9 c9 11 a7 ef 21 a6 ef 36 00 2b 36 20 01 fe 0f ed b0 ┆ Ca 2c 2d ! 6 +6 ┆
0x000ee0…000f00 ed 43 61 e0 ed 43 5d e0 af 32 63 e0 32 64 e0 32 65 e0 cd e4 e9 c3 2a e9 3a 63 e0 ed 4b 5f e0 b9 ┆ Ca CÅ 2c 2d 2e * :c K_ ┆
0x000f00…000f20 (0, 1, 3) 28 13 3c 32 63 e0 2a 61 e0 01 50 00 09 22 61 e0 44 4d c3 e4 e9 ed 5b 5d e0 06 50 21 a5 ef 19 36 ┆( <2c *a P "a DM ÆÅ P! 6┆
0x000f20…000f40 20 23 36 00 13 13 7a e6 0f 57 10 ef ed 53 5d e0 cd 2a e9 ed 4b 61 e0 c3 e4 e9 ed 5b 5d e0 b7 cb ┆ #6 z W SÅ * Ka ÆÅ ┆
0x000f40…000f60 1a cb 1b 0e 25 3e 0c d3 24 ed 51 3c d3 24 ed 59 c9 2a 61 e0 cd 81 e9 cd 51 e9 ed 4b 61 e0 c3 e4 ┆ %> $ Q< $ Y *a Q Ka ┆
0x000f60…000f80 e9 21 64 e0 7e fe 4f 28 09 34 2a 61 e0 23 22 61 e0 c9 06 00 4e 70 2a 61 e0 b7 ed 42 22 61 e0 c3 ┆ !d ü O( 4*a #"a Np*a B"a ┆
0x000f80…000fa0 e8 e8 21 64 e0 18 eb 3e 04 d3 2c c9 3e 00 d3 2c c9 cd 8b e9 71 3a 65 e0 23 77 c9 29 ed 5b 5d e0 ┆ !d > , > , q:e #w ) ÆÅ ┆
0x000fa0…000fc0 19 7c e6 0f 67 11 a5 ef 19 c9 7d 32 63 e0 79 32 64 e0 29 29 29 29 54 5d 29 29 19 09 22 61 e0 44 ┆ ø g å2c y2d ))))TÅ)) "a D┆
0x000fc0…000fe0 4d cd e4 e9 c9 f5 3e 04 d3 fa f1 f5 d3 fb d3 fc 79 d3 f0 78 d3 f0 1b 7b d3 f1 7a d3 f1 3e 00 d3 ┆M > y x æ z > ┆
0x000fe0…001000 fa f1 c9 f5 3e 0a d3 24 78 d3 25 3e 0b d3 24 79 d3 25 f1 c9 2a 5d e0 b7 cb 1c cb 1d 09 3e 0e d3 ┆ > $x %> $y % *Å > ┆
0x001000…001020 (0, 1, 4) 24 7c d3 25 3e 0f d3 24 7d d3 25 c9 09 3e 0e d3 24 7c d3 25 3e 0f d3 24 7d d3 25 c9 d4 e5 f4 45 ┆$ø %> $å % > $ø %> $å % E┆
0x001020…001040 42 42 02 02 02 02 06 06 f5 ed ed ed fc ec fc ec 02 02 02 02 02 02 06 06 e4 e4 e1 e0 e5 e4 e4 e4 ┆BB ┆
0x001040…001060 02 02 02 02 00 02 06 04 c4 c5 c4 c5 c4 cd 74 e5 42 42 42 42 02 02 46 42 d4 e5 f4 e5 d4 e5 f4 45 ┆ t BBBB FB E┆
0x001060…001080 02 42 02 02 02 02 02 06 f5 ed fd ed fc ec fc ec 02 02 02 02 02 02 06 06 f4 e4 e4 e4 e4 e4 e4 e4 ┆ B ┆
0x001080…0010a0 06 02 02 02 02 02 02 04 dc e5 c4 c5 c4 cd f4 e5 42 42 42 42 02 02 06 42 f4 e5 f4 e5 d4 e5 f4 45 ┆ BBBB B E┆
0x0010a0…0010c0 02 02 02 02 02 02 02 02 f5 ed fd e9 f8 e8 fc ec 02 02 02 02 02 02 02 06 e4 e4 e4 e4 e0 e0 e0 e0 ┆ ┆
0x0010c0…0010e0 02 02 02 02 02 02 02 00 c4 e5 c4 c5 c4 ed f4 e5 42 42 42 42 02 02 02 42 f4 e5 f4 e5 d4 e5 f4 c5 ┆ BBBB B ┆
0x0010e0…001100 eb eb eb eb eb eb eb eb e9 e9 e9 e9 e9 e9 e9 e9 cb cb cb cb cb cb cb cb e9 e9 e9 e9 e9 e9 e9 e9 ┆ ┆
0x001100…001120 (0, 1, 5) eb eb eb eb eb eb eb e9 e9 e9 e9 e9 e9 e9 e9 e9 eb eb eb eb eb eb eb eb e9 e9 e9 e9 e9 e9 e9 e9 ┆ ┆
0x001120…001140 0b 0a 03 06 07 06 06 06 f5 ed fd ed fd ed fd ed 07 06 07 06 26 26 26 06 f5 e5 e5 e5 ed e5 ed ed ┆ &&& ┆
0x001140…001160 07 06 07 0f 07 07 27 04 bd e5 b5 ed a5 ed f5 e5 4f 4a 4f 4a 0f 0b 0f 42 f5 e5 f5 e5 f5 e5 f5 e5 ┆ ' OJOJ B ┆
0x001160…001180 0b 5a 0f 1e 0f 1e 0e 1e f5 fd fd fd fd fd fd fd 07 16 07 16 26 36 26 1e f5 f5 f5 f5 fd f5 fc fd ┆ Z &6& ┆
0x001180…0011a0 17 16 37 1f 3f 37 37 34 fd f5 f5 fd f5 fd f5 f5 4f 5e 4f 5e 0f 1e 0b 5a f4 f5 f5 f5 f4 f5 f4 f5 ┆ 7 ?774 O^O^ Z ┆
0x0011a0…0011c0 0b 5a 0b 1e 0f 1e 0e 1e fd fd fd fd fd fd fd ed 03 16 0f 1e 26 3e 2e 1e fd fd fd fd fd ed ed fd ┆ Z &>. ┆
0x0011c0…0011e0 1f 1e 3f 1f 3f 37 37 34 fd f5 f5 fd fd ed fd ed 4f 5a 4f 5a 0f 1b 0b 5a fd fd fd fd fd f5 f5 e5 ┆ ? ?774 OZOZ Z ┆
0x0011e0…001200 fb fb fb fb fb fb fb fb f9 f9 f9 f9 f9 f9 f9 f9 db db db db db db db db f9 f9 f9 f9 f9 f9 f9 f9 ┆ ┆
0x001200…001220 (0, 1, 6) fb fb fb fb fb fb fb f9 f9 f9 f9 f9 f9 f9 f9 f9 9e ec 9e ec 30 ec 56 ec 9e ec 9e ec 9e ec 9e ec ┆ 0 V ┆
0x001220…001240 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec ┆ ┆
0x001240…001260 00 f3 ed 73 bd de 31 d3 ec f5 c5 d5 e5 01 a5 ef 11 00 10 3e 08 cd b5 e9 af d3 20 e1 d1 c1 f1 ed ┆ s 1 > ┆
0x001260…001280 7b bd de fb ed 4d f3 ed 73 bf de 31 05 ed f5 c5 d5 e5 3e 02 32 a0 de 3e 05 3d 20 fd db 04 e6 10 ┆æ M s 1 > 2 > = ┆
0x001280…0012a0 20 05 cd a7 e5 18 1c 21 ac de 16 07 cd 71 e5 db 05 77 23 3e 04 3d 20 fd db 04 e6 10 ca 92 ec 15 ┆ ! q w#> = ┆
0x0012a0…0012c0 20 ea 00 e1 d1 c1 f1 ed 7b bf de fb ed 4d fb ed 4d ea 00 e1 d1 c1 f1 ed 7b bf de fb ed 4d fb ed ┆ æ M M æ M ┆
0x0012c0…0012e0 4d 0a 0b 0b 03 03 03 01 dd e5 c5 cd 85 cd f5 e5 4b 4a 4b 5a 0b 1b 4b 5a f5 e5 f1 e5 d5 e5 f5 85 ┆M KJKZ KZ ┆
0x0012e0…001300 4a 4a 0a 0e 0a 0a 0a 0a f9 ed fd e9 fc ed fc ec 02 02 0a 0e 0a 0e 0a 0e f9 e9 f9 e9 ed ed ec ed ┆JJ ┆
0x001300…001320 (0, 1, 7) 0e 0e 0f 0f 29 26 22 04 9c ed cc ed ac ed fc ed 4e 4a 4e 4a 0e ff 0c 80 81 82 83 84 ff 85 86 87 ┆ )&" NJNJ ┆
0x001320…001340 88 ff ff 0e 1a 1e 11 12 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x001340…001360 ff ff ff 08 1d 18 14 16 ff ff ff ff ff ff ff ff ff ff ff ff ff 05 31 32 33 34 35 36 37 38 39 30 ┆ 1234567890┆
0x001360…001380 7e ff ff 7f 0a 1c 0f 1f ff ff ff ff ff ff ff ff ff ff ff ff ff 1b 09 71 77 65 72 74 7a 75 69 6f ┆ü qwertzuio┆
0x001380…0013a0 70 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff 61 73 64 66 67 68 6a 6b 6c ┆p asdfghjkl┆
0x0013a0…0013c0 7c ff ff 2d 34 35 36 02 ff ff ff ff ff ff ff ff ff ff ff ff ff 00 3c 79 78 63 76 62 6e 6d 2c 2e ┆ø -456 <yxcvbnm,.┆
0x0013c0…0013e0 2d ff ff 20 31 32 33 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 01 ff 20 02 ff 00 ff 23 7b ff ┆- 123 #æ ┆
0x0013e0…001400 02 ff ff 20 30 30 2e 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 0d 2b 7d 18 08 27 0a ff ff 10 8a ┆ 00. +å ' ┆
0x001400…001420 (0, 1, 8) 89 ff ff 05 37 38 39 02 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 0c 80 81 82 83 84 ff 85 86 87 ┆ 789 ┆
0x001420…001440 88 ff ff 0e 1a 1e 11 12 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x001440…001460 ff ff ff 08 1d 18 14 16 ff ff ff ff ff ff ff ff ff ff ff ff ff 05 21 22 40 24 25 26 2f 28 29 3d ┆ !"@$%&/()=┆
0x001460…001480 3f ff ff 7f 0a 1c 0f 1f ff ff ff ff ff ff ff ff ff ff ff ff ff 1b 09 51 57 45 52 54 5a 55 49 4f ┆? QWERTZUIO┆
0x001480…0014a0 50 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff 41 53 44 46 47 48 4a 4b 4c ┆P ASDFGHJKL┆
0x0014a0…0014c0 5c ff ff 2d 34 35 36 02 ff ff ff ff ff ff ff ff ff ff ff ff ff 00 3e 59 58 43 56 42 4e 4d 3b 3a ┆Ø -456 >YXCVBNM;:┆
0x0014c0…0014e0 5f ff ff 20 31 32 33 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 01 ff 20 02 ff 00 ff 5e 5b ff ┆_ 123 ^Æ ┆
0x0014e0…001500 02 ff ff 20 30 30 2e 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 0d 2a 5d 18 08 60 0a ff 10 ff 8a ┆ 00. *Å ` ┆
0x001500…001520 (0, 1, 9) 89 ff ff 05 37 38 39 02 ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 02 03 04 05 06 07 08 09 0a ┆ 789 ┆
0x001520…001540 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x001540…001560 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x001560…001580 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 13 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>? ABCDEFGHIJ┆
0x001580…0015a0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 06 0e 00 5e 5f 16 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZ ^_ abcdefghij┆
0x0015a0…0015c0 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 60 7e 40 11 7f 70 71 72 73 74 75 76 77 78 79 7a ┆klmnopqrstuvwxyz`ü@ pqrstuvwxyz┆
0x0015c0…0015e0 60 7e 40 11 7f 13 13 10 9c f5 d4 fd b4 fd b4 f5 4b 5a 4b 1a 0b 1a 0b 5a f4 f5 f0 f5 d4 f5 f4 a5 ┆`ü@ KZK Z ┆
0x0015e0…001600 06 06 06 06 06 06 06 06 04 04 04 04 04 04 04 04 06 06 06 06 06 06 06 16 14 14 14 14 14 14 14 04 ┆ ┆
0x001600…001620 (0, 1, 10) 06 06 06 06 06 06 06 04 04 04 04 04 04 04 00 00 cd 30 33 32 3d 3c 3f 3e 39 38 3b 3a 05 04 07 06 ┆ 032=<?>98;: ┆
0x001620…001640 01 00 03 02 0d 0c 0f 0e 09 08 0b 0a 15 14 17 16 11 10 13 12 1d 1c 1f 1e 19 18 1b 1a e5 e4 e7 e6 ┆ ┆
0x001640…001660 e1 e0 e3 e2 ed ec ef ee e9 e8 eb ea f5 f4 f7 f6 f1 f0 f3 f2 fd fc ff fe f9 f8 fb fa c5 c4 c7 c6 ┆ ┆
0x001660…001680 c1 c0 c3 c2 cd cc cf ce c9 c8 cb ca d5 d4 d7 d6 d1 d0 d3 d2 dd dc df de d9 d8 db da a5 a4 a7 a6 ┆ ┆
0x001680…0016a0 a1 a0 a3 a2 ad ac af ae a9 a8 ab aa b5 b4 b7 b6 b1 b0 b3 b2 bd bc bf be b9 b8 bb ba 85 84 87 86 ┆ ┆
0x0016a0…0016c0 81 80 83 82 8d 8c 8f 8e 89 88 8b 8a 95 94 97 96 91 90 93 92 9d 9c 9f 9e 99 98 9b 9a 66 67 64 65 ┆ fgde┆
0x0016c0…0016e0 62 63 60 61 6e 6f 6c 6d 6a 6b 68 69 76 77 74 75 72 73 70 71 7e 7f 7c 7d 7a 7b 78 79 46 47 44 45 ┆bc`anolmjkhivwturspqü øåzæxyFGDE┆
0x0016e0…001700 42 43 40 41 4e 4f 4c 4d 4a 4b 48 49 56 57 54 55 52 53 50 51 5e 5f 5c 5d 5a 5b 58 59 26 27 24 25 ┆BC@ANOLMJKHIVWTURSPQ^_ØÅZÆXY&'$%┆
0x001700…001720 (0, 1, 11) 22 23 20 21 2e 2f 2c 2d 2a 2b 28 29 36 37 34 35 32 33 30 31 3e 3f 3c 3d 3a 3b 38 39 06 07 04 05 ┆"# !./,-*+()67452301>?<=:;89 ┆
0x001720…001740 02 03 00 01 0e 0f 0c 0d 0a 0b 08 09 16 17 14 15 12 13 10 11 1e 1f 1c 1d 1a 1b 18 19 e6 e7 e4 e5 ┆ ┆
0x001740…001760 e2 e3 e0 e1 ee ef ec ed ea eb e8 e9 f6 f7 f4 f5 f2 f3 f0 f1 fe ff fc fd fa fb f8 f9 c6 c7 c4 c5 ┆ ┆
0x001760…001780 c2 c3 c0 c1 ce cf cc cd ca cb c8 c9 d6 d7 d4 d5 d2 d3 d0 d1 de df dc dd da db d8 d9 a6 a7 a4 a5 ┆ ┆
0x001780…0017a0 a2 a3 a0 a1 ae af ac ad aa ab a8 a9 b6 b7 b4 b5 b2 b3 b0 b1 be bf bc bd ba bb b8 b9 86 87 84 85 ┆ ┆
0x0017a0…0017c0 82 83 80 81 8e 8f 8c 8d 8a 8b 88 89 96 97 94 95 92 93 90 91 9e 9f 9c 9d 9a 9b 98 99 67 66 65 64 ┆ gfed┆
0x0017c0…0017e0 63 62 61 60 6f 6e 6d 6c 6b 6a 69 68 77 76 75 74 73 72 71 70 7f 7e 7d 7c 7b 7a 79 78 47 46 45 44 ┆cba`onmlkjihwvutsrqp üåøæzyxGFED┆
0x0017e0…001800 43 42 41 40 4f 4e 4d 4c 4b 4a 49 48 57 56 55 54 53 52 51 50 5f 5e 5d 5c 5b 5a 59 58 27 26 25 24 ┆CBA@ONMLKJIHWVUTSRQP_^ÅØÆZYX'&%$┆
0x001800…001820 (0, 1, 12) 23 22 21 20 2f 2e 2d 2c 2b 2a 29 28 37 36 35 34 33 32 31 30 3f 3e 3d 3c 3b 3a 39 38 07 06 05 04 ┆#"! /.-,+*)(76543210?>=<;:98 ┆
0x001820…001840 03 02 01 00 0f 0e 0d 0c 0b 0a 09 08 17 16 15 14 13 12 11 10 1f 1e 1d 1c 1b 1a 19 18 e7 e6 e5 e4 ┆ ┆
0x001840…001860 e3 e2 e1 e0 ef ee ed ec eb ea e9 e8 f7 f6 f5 f4 f3 f2 f1 f0 ff fe fd fc fb fa f9 f8 c7 c6 c5 c4 ┆ ┆
0x001860…001880 c3 c2 c1 c0 cf ce cd cc cb ca c9 c8 d7 d6 d5 d4 d3 d2 d1 d0 df de dd dc db da d9 d8 a7 a6 a5 a4 ┆ ┆
0x001880…0018a0 a3 a2 a1 a0 af ae ad ac ab aa a9 a8 b7 b6 b5 b4 b3 b2 b1 b0 bf be bd bc bb ba b9 b8 87 86 85 84 ┆ ┆
0x0018a0…0018c0 83 82 81 80 8f 8e 8d 8c 8b 8a 89 88 97 96 95 94 93 92 91 90 9f 9e 9d 9c 9b 9a 99 98 68 69 6a 6b ┆ hijk┆
0x0018c0…0018e0 6c 6d 6e 6f 60 61 62 63 64 65 66 67 78 79 7a 7b 7c 7d 7e 7f 70 71 72 73 74 75 76 77 48 49 4a 4b ┆lmno`abcdefgxyzæøåü pqrstuvwHIJK┆
0x0018e0…001900 4c 4d 4e 4f 40 41 42 43 44 45 46 47 58 59 5a 5b 5c 5d 5e 5f 50 51 52 53 54 55 56 57 28 29 2a 2b ┆LMNO@ABCDEFGXYZÆØÅ^_PQRSTUVW()*+┆
0x001900…001920 (0, 1, 13) 2c 2d 2e 2f 20 21 22 23 24 25 26 27 38 39 3a 3b 3c 3d 3e 3f 30 31 32 33 34 35 36 37 08 09 0a 0b ┆,-./ !"#$%&'89:;<=>?01234567 ┆
0x001920…001940 0c 0d 0e 0f 00 01 02 03 04 05 06 07 18 19 1a 1b 1c 1d 1e 1f 10 11 12 13 14 15 16 17 e8 e9 ea eb ┆ ┆
0x001940…001960 ec ed ee ef e0 e1 e2 e3 e4 e5 e6 e7 f8 f9 fa fb fc fd fe ff f0 f1 f2 f3 f4 f5 f6 f7 c8 c9 ca cb ┆ ┆
0x001960…001980 cc cd ce cf c0 c1 c2 c3 c4 c5 c6 c7 d8 d9 da db dc dd de df d0 d1 d2 d3 d4 d5 d6 d7 a8 a9 aa ab ┆ ┆
0x001980…0019a0 ac ad ae af a0 a1 a2 a3 a4 a5 a6 a7 b8 b9 ba bb bc bd be bf b0 b1 b2 b3 b4 b5 b6 b7 88 89 8a 8b ┆ ┆
0x0019a0…0019c0 8c 8d 8e 8f 80 81 82 83 84 85 86 87 98 99 9a 9b 9c 9d 9e 9f 90 91 92 93 94 95 96 97 69 68 6b 6a ┆ ihkj┆
0x0019c0…0019e0 6d 6c 6f 6e 61 60 63 62 65 64 67 66 79 78 7b 7a 7d 7c 7f 7e 71 70 73 72 75 74 77 76 49 48 4b 4a ┆mlona`cbedgfyxæzåø üqpsrutwvIHKJ┆
0x0019e0…001a00 4d 4c 4f 4e 41 40 43 42 45 44 47 46 59 58 5b 5a 5d 5c 5f 5e 51 50 53 52 55 54 57 56 29 28 2b 2a ┆MLONA@CBEDGFYXÆZÅØ_^QPSRUTWV)(+*┆
0x001a00…001a20 (0, 1, 14) e6 3e 40 32 b4 de c3 51 e6 af 32 b5 de c3 51 e6 3e 01 32 b5 de c3 51 e6 21 63 df 06 01 cd 25 e7 ┆ >@2 Q 2 Q > 2 Q !c % ┆
0x001a20…001a40 c3 51 e6 21 62 df 06 01 cd 25 e7 c9 21 61 df 06 02 cd 25 e7 c9 7e a0 7e 20 03 b0 18 06 4f 78 2f ┆ Q !b % !a % ü ü Ox/┆
0x001a40…001a60 47 79 a0 77 06 03 21 61 df 7e d3 31 23 cd 43 e7 10 f7 c9 db 33 e6 04 fe 04 20 f8 c5 0e 32 0d 06 ┆Gy w !a ü 1# C 3 2 ┆
0x001a60…001a80 ff 10 fe 79 fe 00 20 f6 c1 c9 db 33 e6 01 fe 01 20 f8 3e 01 d3 33 db 33 e6 10 20 ee c9 3a b9 de ┆ y 3 > 3 3 : ┆
0x001a80…001aa0 fe 00 c2 ef e7 cb 79 c4 93 e7 fe ff c8 79 fe 20 fa ac e7 21 25 ef 32 b6 de ed 5b b6 de 19 4e cd ┆ y y !% 2 Æ N ┆
0x001aa0…001ac0 41 e9 c9 3a 65 e0 fe 00 28 07 79 fe 80 28 02 af c9 79 e6 7f cb 07 32 65 e0 3e ff c9 fe 05 ca 21 ┆A :e ( y ( y 2e > !┆
0x001ac0…001ae0 e8 fe 06 ca e9 e7 fe 07 ca 6c e8 fe 08 ca 21 e8 fe 09 ca 7d e8 fe 0a ca e8 e8 fe 0c ca c0 e8 fe ┆ l ! å ┆
0x001ae0…001b00 0d ca 3b e8 fe 18 ca 4a e8 fe 1a ca 91 e8 fe 1d ca ae e8 fe 1e ca 55 e8 c9 3e 01 32 b9 de c9 06 ┆ ; J U > 2 ┆
0x001b00…001b20 (0, 1, 15) 00 26 00 fe 01 28 08 cd 10 e8 af 32 b9 de c9 c5 e1 b7 01 20 00 ed 42 22 ba de 3e 02 32 b9 de c9 ┆ & ( 2 B" > 2 ┆
0x001b20…001b40 c5 e1 b7 01 20 00 ed 42 e5 c1 2a ba de cd 9a e9 c9 21 64 e0 7e fe 00 c8 21 64 e0 35 2a 61 e0 2b ┆ B * !d ü !d 5*a +┆
0x001b40…001b60 22 61 e0 ed 4b 61 e0 cd e4 e9 c9 c5 21 63 e0 6e 26 00 01 00 00 cd 9a e9 c1 c9 cd 51 e9 ed 4b 61 ┆"a Ka !c n& Q Ka┆
0x001b60…001b80 e0 cd e4 e9 c9 2a 61 e0 cd 8b e9 3a 64 e0 47 3e 50 90 47 36 20 23 36 00 23 10 f8 c9 3a 63 df f6 ┆ *a :d G>P G6 #6 # :c ┆
0x001b80…001ba0 08 d3 31 f5 cd 43 e7 f1 e6 f7 d3 31 c9 cd 51 e9 cd 51 e9 cd 51 e9 cd 51 e9 ed 4b 61 e0 cd e4 e9 ┆ 1 C 1 Q Q Q Q Ka ┆
0x001ba0…001bc0 c9 3a 63 e0 fe 00 c8 2a 61 e0 01 50 00 ed 42 22 61 e0 ed 4b 61 e0 21 63 e0 35 cd e4 e9 c9 01 00 ┆ :c *a P B"a Ka !c 5 ┆
0x001bc0…001be0 00 ed 43 61 e0 af 32 63 e0 32 64 e0 cd e4 e9 c9 11 a7 ef 21 a6 ef 36 00 2b 36 20 01 fe 0f ed b0 ┆ Ca 2c 2d ! 6 +6 ┆
0x001be0…001c00 ed 43 61 e0 ed 43 5d e0 af 32 63 e0 32 64 e0 32 65 e0 cd e4 e9 c3 2a e9 3a 63 e0 ed 4b 5f e0 b9 ┆ Ca CÅ 2c 2d 2e * :c K_ ┆
0x001c00…001c20 (0, 1, 16) 28 13 3c 32 63 e0 2a 61 e0 01 50 00 09 22 61 e0 44 4d c3 e4 e9 ed 5b 5d e0 06 50 21 a5 ef 19 36 ┆( <2c *a P "a DM ÆÅ P! 6┆
0x001c20…001c40 20 23 36 00 13 13 7a e6 0f 57 10 ef ed 53 5d e0 cd 2a e9 ed 4b 61 e0 c3 e4 e9 ed 5b 5d e0 b7 cb ┆ #6 z W SÅ * Ka ÆÅ ┆
0x001c40…001c60 1a cb 1b 0e 25 3e 0c d3 24 ed 51 3c d3 24 ed 59 c9 2a 61 e0 cd 81 e9 cd 51 e9 ed 4b 61 e0 c3 e4 ┆ %> $ Q< $ Y *a Q Ka ┆
0x001c60…001c80 e9 21 64 e0 7e fe 4f 28 09 34 2a 61 e0 23 22 61 e0 c9 06 00 4e 70 2a 61 e0 b7 ed 42 22 61 e0 c3 ┆ !d ü O( 4*a #"a Np*a B"a ┆
0x001c80…001ca0 e8 e8 21 64 e0 18 eb 3e 04 d3 2c c9 3e 00 d3 2c c9 cd 8b e9 71 3a 65 e0 23 77 c9 29 ed 5b 5d e0 ┆ !d > , > , q:e #w ) ÆÅ ┆
0x001ca0…001cc0 19 7c e6 0f 67 11 a5 ef 19 c9 7d 32 63 e0 79 32 64 e0 29 29 29 29 54 5d 29 29 19 09 22 61 e0 44 ┆ ø g å2c y2d ))))TÅ)) "a D┆
0x001cc0…001ce0 4d cd e4 e9 c9 f5 3e 04 d3 fa f1 f5 d3 fb d3 fc 79 d3 f0 78 d3 f0 1b 7b d3 f1 7a d3 f1 3e 00 d3 ┆M > y x æ z > ┆
0x001ce0…001d00 fa f1 c9 f5 3e 0a d3 24 78 d3 25 3e 0b d3 24 79 d3 25 f1 c9 2a 5d e0 b7 cb 1c cb 1d 09 3e 0e d3 ┆ > $x %> $y % *Å > ┆
0x001d00…001d20 (0, 1, 17) 24 7c d3 25 3e 0f d3 24 7d d3 25 c9 09 3e 0e d3 24 7c d3 25 3e 0f d3 24 7d d3 25 c9 d4 e5 f4 45 ┆$ø %> $å % > $ø %> $å % E┆
0x001d20…001d40 42 42 02 02 02 02 06 06 f5 ed ed ed fc ec fc ec 02 02 02 02 02 02 06 06 e4 e4 e1 e0 e5 e4 e4 e4 ┆BB ┆
0x001d40…001d60 02 02 02 02 00 02 06 04 c4 c5 c4 c5 c4 cd 74 e5 42 42 42 42 02 02 46 42 d4 e5 f4 e5 d4 e5 f4 45 ┆ t BBBB FB E┆
0x001d60…001d80 02 42 02 02 02 02 02 06 f5 ed fd ed fc ec fc ec 02 02 02 02 02 02 06 06 f4 e4 e4 e4 e4 e4 e4 e4 ┆ B ┆
0x001d80…001da0 06 02 02 02 02 02 02 04 dc e5 c4 c5 c4 cd f4 e5 42 42 42 42 02 02 06 42 f4 e5 f4 e5 d4 e5 f4 45 ┆ BBBB B E┆
0x001da0…001dc0 02 02 02 02 02 02 02 02 f5 ed fd e9 f8 e8 fc ec 02 02 02 02 02 02 02 06 e4 e4 e4 e4 e0 e0 e0 e0 ┆ ┆
0x001dc0…001de0 02 02 02 02 02 02 02 00 c4 e5 c4 c5 c4 ed f4 e5 42 42 42 42 02 02 02 42 f4 e5 f4 e5 d4 e5 f4 c5 ┆ BBBB B ┆
0x001de0…001e00 eb eb eb eb eb eb eb eb e9 e9 e9 e9 e9 e9 e9 e9 cb cb cb cb cb cb cb cb e9 e9 e9 e9 e9 e9 e9 e9 ┆ ┆
0x001e00…001e20 (0, 1, 18) eb eb eb eb eb eb eb e9 e9 e9 e9 e9 e9 e9 e9 e9 eb eb eb eb eb eb eb eb e9 e9 e9 e9 e9 e9 e9 e9 ┆ ┆
0x001e20…001e40 0b 0a 03 06 07 06 06 06 f5 ed fd ed fd ed fd ed 07 06 07 06 26 26 26 06 f5 e5 e5 e5 ed e5 ed ed ┆ &&& ┆
0x001e40…001e60 07 06 07 0f 07 07 27 04 bd e5 b5 ed a5 ed f5 e5 4f 4a 4f 4a 0f 0b 0f 42 f5 e5 f5 e5 f5 e5 f5 e5 ┆ ' OJOJ B ┆
0x001e60…001e80 0b 5a 0f 1e 0f 1e 0e 1e f5 fd fd fd fd fd fd fd 07 16 07 16 26 36 26 1e f5 f5 f5 f5 fd f5 fc fd ┆ Z &6& ┆
0x001e80…001ea0 17 16 37 1f 3f 37 37 34 fd f5 f5 fd f5 fd f5 f5 4f 5e 4f 5e 0f 1e 0b 5a f4 f5 f5 f5 f4 f5 f4 f5 ┆ 7 ?774 O^O^ Z ┆
0x001ea0…001ec0 0b 5a 0b 1e 0f 1e 0e 1e fd fd fd fd fd fd fd ed 03 16 0f 1e 26 3e 2e 1e fd fd fd fd fd ed ed fd ┆ Z &>. ┆
0x001ec0…001ee0 1f 1e 3f 1f 3f 37 37 34 fd f5 f5 fd fd ed fd ed 4f 5a 4f 5a 0f 1b 0b 5a fd fd fd fd fd f5 f5 e5 ┆ ? ?774 OZOZ Z ┆
0x001ee0…001f00 fb fb fb fb fb fb fb fb f9 f9 f9 f9 f9 f9 f9 f9 db db db db db db db db f9 f9 f9 f9 f9 f9 f9 f9 ┆ ┆
0x001f00…001f20 (0, 1, 19) fb fb fb fb fb fb fb f9 f9 f9 f9 f9 f9 f9 f9 f9 9e ec 9e ec 30 ec 56 ec 9e ec 9e ec 9e ec 9e ec ┆ 0 V ┆
0x001f20…001f40 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec 9e ec ┆ ┆
0x001f40…001f60 00 f3 ed 73 bd de 31 d3 ec f5 c5 d5 e5 01 a5 ef 11 00 10 3e 08 cd b5 e9 af d3 20 e1 d1 c1 f1 ed ┆ s 1 > ┆
0x001f60…001f80 7b bd de fb ed 4d f3 ed 73 bf de 31 05 ed f5 c5 d5 e5 3e 02 32 a0 de 3e 05 3d 20 fd db 04 e6 10 ┆æ M s 1 > 2 > = ┆
0x001f80…001fa0 20 05 cd a7 e5 18 1c 21 ac de 16 07 cd 71 e5 db 05 77 23 3e 04 3d 20 fd db 04 e6 10 ca 92 ec 15 ┆ ! q w#> = ┆
0x001fa0…001fc0 20 ea 00 e1 d1 c1 f1 ed 7b bf de fb ed 4d fb ed 4d ea 00 e1 d1 c1 f1 ed 7b bf de fb ed 4d fb ed ┆ æ M M æ M ┆
0x001fc0…001fe0 4d 0a 0b 0b 03 03 03 01 dd e5 c5 cd 85 cd f5 e5 4b 4a 4b 5a 0b 1b 4b 5a f5 e5 f1 e5 d5 e5 f5 85 ┆M KJKZ KZ ┆
0x001fe0…002000 4a 4a 0a 0e 0a 0a 0a 0a f9 ed fd e9 fc ed fc ec 02 02 0a 0e 0a 0e 0a 0e f9 e9 f9 e9 ed ed ec ed ┆JJ ┆
0x002000…002020 (0, 1, 20) 0e 0e 0f 0f 29 26 22 04 9c ed cc ed ac ed fc ed 4e 4a 4e 4a 0e ff 0c 80 81 82 83 84 ff 85 86 87 ┆ )&" NJNJ ┆
0x002020…002040 88 ff ff 0e 1a 1e 11 12 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x002040…002060 ff ff ff 08 1d 18 14 16 ff ff ff ff ff ff ff ff ff ff ff ff ff 05 31 32 33 34 35 36 37 38 39 30 ┆ 1234567890┆
0x002060…002080 7e ff ff 7f 0a 1c 0f 1f ff ff ff ff ff ff ff ff ff ff ff ff ff 1b 09 71 77 65 72 74 7a 75 69 6f ┆ü qwertzuio┆
0x002080…0020a0 70 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff 61 73 64 66 67 68 6a 6b 6c ┆p asdfghjkl┆
0x0020a0…0020c0 7c ff ff 2d 34 35 36 02 ff ff ff ff ff ff ff ff ff ff ff ff ff 00 3c 79 78 63 76 62 6e 6d 2c 2e ┆ø -456 <yxcvbnm,.┆
0x0020c0…0020e0 2d ff ff 20 31 32 33 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 01 ff 20 02 ff 00 ff 23 7b ff ┆- 123 #æ ┆
0x0020e0…002100 02 ff ff 20 30 30 2e 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 0d 2b 7d 18 08 27 0a ff ff 10 8a ┆ 00. +å ' ┆
0x002100…002120 (0, 1, 21) 89 ff ff 05 37 38 39 02 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 0c 80 81 82 83 84 ff 85 86 87 ┆ 789 ┆
0x002120…002140 88 ff ff 0e 1a 1e 11 12 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x002140…002160 ff ff ff 08 1d 18 14 16 ff ff ff ff ff ff ff ff ff ff ff ff ff 05 21 22 40 24 25 26 2f 28 29 3d ┆ !"@$%&/()=┆
0x002160…002180 3f ff ff 7f 0a 1c 0f 1f ff ff ff ff ff ff ff ff ff ff ff ff ff 1b 09 51 57 45 52 54 5a 55 49 4f ┆? QWERTZUIO┆
0x002180…0021a0 50 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 ff 41 53 44 46 47 48 4a 4b 4c ┆P ASDFGHJKL┆
0x0021a0…0021c0 5c ff ff 2d 34 35 36 02 ff ff ff ff ff ff ff ff ff ff ff ff ff 00 3e 59 58 43 56 42 4e 4d 3b 3a ┆Ø -456 >YXCVBNM;:┆
0x0021c0…0021e0 5f ff ff 20 31 32 33 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 01 01 ff 20 02 ff 00 ff 5e 5b ff ┆_ 123 ^Æ ┆
0x0021e0…002200 02 ff ff 20 30 30 2e 09 ff ff ff ff ff ff ff ff ff ff ff ff ff 0d 2a 5d 18 08 60 0a ff 10 ff 8a ┆ 00. *Å ` ┆
0x002200…002220 (0, 1, 22) 89 ff ff 05 37 38 39 02 ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 02 03 04 05 06 07 08 09 0a ┆ 789 ┆
0x002220…002240 0b 0c 0d 0e 0f 10 11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x002240…002260 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 20 21 22 23 24 25 26 27 28 29 2a ┆ !"#$%&'()*┆
0x002260…002280 2b 2c 2d 2e 2f 30 31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 13 41 42 43 44 45 46 47 48 49 4a ┆+,-./0123456789:;<=>? ABCDEFGHIJ┆
0x002280…0022a0 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 06 0e 00 5e 5f 16 61 62 63 64 65 66 67 68 69 6a ┆KLMNOPQRSTUVWXYZ ^_ abcdefghij┆
0x0022a0…0022c0 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 60 7e 40 11 7f 70 71 72 73 74 75 76 77 78 79 7a ┆klmnopqrstuvwxyz`ü@ pqrstuvwxyz┆
0x0022c0…0022e0 60 7e 40 11 7f 13 13 10 9c f5 d4 fd b4 fd b4 f5 4b 5a 4b 1a 0b 1a 0b 5a f4 f5 f0 f5 d4 f5 f4 a5 ┆`ü@ KZK Z ┆
0x0022e0…002300 06 06 06 06 06 06 06 06 04 04 04 04 04 04 04 04 06 06 06 06 06 06 06 16 14 14 14 14 14 14 14 04 ┆ ┆
0x002300…002320 (0, 1, 23) 06 06 06 06 06 06 06 04 04 04 04 04 04 04 00 00 cd 30 33 32 3d 3c 3f 3e 39 38 3b 3a 05 04 07 06 ┆ 032=<?>98;: ┆
0x002320…002340 01 00 03 02 0d 0c 0f 0e 09 08 0b 0a 15 14 17 16 11 10 13 12 1d 1c 1f 1e 19 18 1b 1a e5 e4 e7 e6 ┆ ┆
0x002340…002360 e1 e0 e3 e2 ed ec ef ee e9 e8 eb ea f5 f4 f7 f6 f1 f0 f3 f2 fd fc ff fe f9 f8 fb fa c5 c4 c7 c6 ┆ ┆
0x002360…002380 c1 c0 c3 c2 cd cc cf ce c9 c8 cb ca d5 d4 d7 d6 d1 d0 d3 d2 dd dc df de d9 d8 db da a5 a4 a7 a6 ┆ ┆
0x002380…0023a0 a1 a0 a3 a2 ad ac af ae a9 a8 ab aa b5 b4 b7 b6 b1 b0 b3 b2 bd bc bf be b9 b8 bb ba 85 84 87 86 ┆ ┆
0x0023a0…0023c0 81 80 83 82 8d 8c 8f 8e 89 88 8b 8a 95 94 97 96 91 90 93 92 9d 9c 9f 9e 99 98 9b 9a 66 67 64 65 ┆ fgde┆
0x0023c0…0023e0 62 63 60 61 6e 6f 6c 6d 6a 6b 68 69 76 77 74 75 72 73 70 71 7e 7f 7c 7d 7a 7b 78 79 46 47 44 45 ┆bc`anolmjkhivwturspqü øåzæxyFGDE┆
0x0023e0…002400 42 43 40 41 4e 4f 4c 4d 4a 4b 48 49 56 57 54 55 52 53 50 51 5e 5f 5c 5d 5a 5b 58 59 26 27 24 25 ┆BC@ANOLMJKHIVWTURSPQ^_ØÅZÆXY&'$%┆
0x002400…002420 (0, 1, 24) 22 23 20 21 2e 2f 2c 2d 2a 2b 28 29 36 37 34 35 32 33 30 31 3e 3f 3c 3d 3a 3b 38 39 06 07 04 05 ┆"# !./,-*+()67452301>?<=:;89 ┆
0x002420…002440 02 03 00 01 0e 0f 0c 0d 0a 0b 08 09 16 17 14 15 12 13 10 11 1e 1f 1c 1d 1a 1b 18 19 e6 e7 e4 e5 ┆ ┆
0x002440…002460 e2 e3 e0 e1 ee ef ec ed ea eb e8 e9 f6 f7 f4 f5 f2 f3 f0 f1 fe ff fc fd fa fb f8 f9 c6 c7 c4 c5 ┆ ┆
0x002460…002480 c2 c3 c0 c1 ce cf cc cd ca cb c8 c9 d6 d7 d4 d5 d2 d3 d0 d1 de df dc dd da db d8 d9 a6 a7 a4 a5 ┆ ┆
0x002480…0024a0 a2 a3 a0 a1 ae af ac ad aa ab a8 a9 b6 b7 b4 b5 b2 b3 b0 b1 be bf bc bd ba bb b8 b9 86 87 84 85 ┆ ┆
0x0024a0…0024c0 82 83 80 81 8e 8f 8c 8d 8a 8b 88 89 96 97 94 95 92 93 90 91 9e 9f 9c 9d 9a 9b 98 99 67 66 65 64 ┆ gfed┆
0x0024c0…0024e0 63 62 61 60 6f 6e 6d 6c 6b 6a 69 68 77 76 75 74 73 72 71 70 7f 7e 7d 7c 7b 7a 79 78 47 46 45 44 ┆cba`onmlkjihwvutsrqp üåøæzyxGFED┆
0x0024e0…002500 43 42 41 40 4f 4e 4d 4c 4b 4a 49 48 57 56 55 54 53 52 51 50 5f 5e 5d 5c 5b 5a 59 58 27 26 25 24 ┆CBA@ONMLKJIHWVUTSRQP_^ÅØÆZYX'&%$┆
0x002500…002520 (0, 1, 25) 23 22 21 20 2f 2e 2d 2c 2b 2a 29 28 37 36 35 34 33 32 31 30 3f 3e 3d 3c 3b 3a 39 38 07 06 05 04 ┆#"! /.-,+*)(76543210?>=<;:98 ┆
0x002520…002540 03 02 01 00 0f 0e 0d 0c 0b 0a 09 08 17 16 15 14 13 12 11 10 1f 1e 1d 1c 1b 1a 19 18 e7 e6 e5 e4 ┆ ┆
0x002540…002560 e3 e2 e1 e0 ef ee ed ec eb ea e9 e8 f7 f6 f5 f4 f3 f2 f1 f0 ff fe fd fc fb fa f9 f8 c7 c6 c5 c4 ┆ ┆
0x002560…002580 c3 c2 c1 c0 cf ce cd cc cb ca c9 c8 d7 d6 d5 d4 d3 d2 d1 d0 df de dd dc db da d9 d8 a7 a6 a5 a4 ┆ ┆
0x002580…0025a0 a3 a2 a1 a0 af ae ad ac ab aa a9 a8 b7 b6 b5 b4 b3 b2 b1 b0 bf be bd bc bb ba b9 b8 87 86 85 84 ┆ ┆
0x0025a0…0025c0 83 82 81 80 8f 8e 8d 8c 8b 8a 89 88 97 96 95 94 93 92 91 90 9f 9e 9d 9c 9b 9a 99 98 68 69 6a 6b ┆ hijk┆
0x0025c0…0025e0 6c 6d 6e 6f 60 61 62 63 64 65 66 67 78 79 7a 7b 7c 7d 7e 7f 70 71 72 73 74 75 76 77 48 49 4a 4b ┆lmno`abcdefgxyzæøåü pqrstuvwHIJK┆
0x0025e0…002600 4c 4d 4e 4f 40 41 42 43 44 45 46 47 58 59 5a 5b 5c 5d 5e 5f 50 51 52 53 54 55 56 57 28 29 2a 2b ┆LMNO@ABCDEFGXYZÆØÅ^_PQRSTUVW()*+┆
0x002600…002620 (0, 1, 26) 2c 2d 2e 2f 20 21 22 23 24 25 26 27 38 39 3a 3b 3c 3d 3e 3f 30 31 32 33 34 35 36 37 08 09 0a 0b ┆,-./ !"#$%&'89:;<=>?01234567 ┆
0x002620…002640 0c 0d 0e 0f 00 01 02 03 04 05 06 07 18 19 1a 1b 1c 1d 1e 1f 10 11 12 13 14 15 16 17 e8 e9 ea eb ┆ ┆
0x002640…002660 ec ed ee ef e0 e1 e2 e3 e4 e5 e6 e7 f8 f9 fa fb fc fd fe ff f0 f1 f2 f3 f4 f5 f6 f7 c8 c9 ca cb ┆ ┆
0x002660…002680 cc cd ce cf c0 c1 c2 c3 c4 c5 c6 c7 d8 d9 da db dc dd de df d0 d1 d2 d3 d4 d5 d6 d7 a8 a9 aa ab ┆ ┆
0x002680…0026a0 ac ad ae af a0 a1 a2 a3 a4 a5 a6 a7 b8 b9 ba bb bc bd be bf b0 b1 b2 b3 b4 b5 b6 b7 88 89 8a 8b ┆ ┆
0x0026a0…0026c0 8c 8d 8e 8f 80 81 82 83 84 85 86 87 98 99 9a 9b 9c 9d 9e 9f 90 91 92 93 94 95 96 97 69 68 6b 6a ┆ ihkj┆
0x0026c0…0026e0 6d 6c 6f 6e 61 60 63 62 65 64 67 66 79 78 7b 7a 7d 7c 7f 7e 71 70 73 72 75 74 77 76 49 48 4b 4a ┆mlona`cbedgfyxæzåø üqpsrutwvIHKJ┆
0x0026e0…002700 4d 4c 4f 4e 41 40 43 42 45 44 47 46 59 58 5b 5a 5d 5c 5f 5e 51 50 53 52 55 54 57 56 29 28 2b 2a ┆MLONA@CBEDGFYXÆZÅØ_^QPSRUTWV)(+*┆
0x002700…002720 (1, 0, 1) c3 5c c7 c3 58 c7 7f 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 50 59 52 49 47 48 ┆ Ø X COPYRIGH┆
0x002720…002740 54 20 28 43 29 20 31 39 37 39 2c 20 44 49 47 49 54 41 4c 20 52 45 53 45 41 52 43 48 20 20 00 00 ┆T (C) 1979, DIGITAL RESEARCH ┆
0x002740…002760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x002780…0027a0 00 00 00 00 00 00 00 00 08 c4 00 00 5f 0e 02 c3 05 00 c5 cd 8c c4 c1 c9 3e 0d cd 92 c4 3e 0a c3 ┆ _ > > ┆
0x0027a0…0027c0 92 c4 3e 20 c3 92 c4 c5 cd 98 c4 e1 7e b7 c8 23 e5 cd 8c c4 e1 c3 ac c4 0e 0d c3 05 00 5f 0e 0e ┆ > ü # _ ┆
0x0027c0…0027e0 c3 05 00 cd 05 00 32 ee cb 3c c9 0e 0f c3 c3 c4 af 32 ed cb 11 cd cb c3 cb c4 0e 10 c3 c3 c4 0e ┆ 2 < 2 ┆
0x0027e0…002800 11 c3 c3 c4 0e 12 c3 c3 c4 11 cd cb c3 df c4 0e 13 c3 05 00 cd 05 00 b7 c9 0e 14 c3 f4 c4 11 cd ┆ ┆
0x002800…002820 cb c3 f9 c4 0e 15 c3 f4 c4 0e 16 c3 c3 c4 0e 17 c3 05 00 1e ff 0e 20 c3 05 00 cd 13 c5 87 87 87 ┆ ┆
0x002820…002840 87 21 ef cb b6 32 04 00 c9 3a ef cb 32 04 00 c9 fe 61 d8 fe 7b d0 e6 5f c9 3a ab cb b7 ca 96 c5 ┆ ! 2 : 2 a æ _ : ┆
0x002840…002860 3a ef cb b7 3e 00 c4 bd c4 11 ac cb cd cb c4 ca 96 c5 3a bb cb 3d 32 cc cb 11 ac cb cd f9 c4 c2 ┆: > : =2 ┆
0x002860…002880 96 c5 11 07 c4 21 80 00 06 80 cd 42 c8 21 ba cb 36 00 23 35 11 ac cb cd da c4 ca 96 c5 3a ef cb ┆ ! B ! 6 #5 : ┆
0x002880…0028a0 b7 c4 bd c4 21 08 c4 cd ac c4 cd c2 c5 ca a7 c5 cd dd c5 c3 82 c7 cd dd c5 cd 1a c5 0e 0a 11 06 ┆ ! ┆
0x0028a0…0028c0 c4 cd 05 00 cd 29 c5 21 07 c4 46 23 78 b7 ca ba c5 7e cd 30 c5 77 05 c3 ab c5 77 21 08 c4 22 88 ┆ ) ! F#x ü 0 w w! " ┆
0x0028c0…0028e0 c4 c9 0e 0b cd 05 00 b7 c8 0e 01 cd 05 00 b7 c9 0e 19 c3 05 00 11 80 00 0e 1a c3 05 00 21 ab cb ┆ ! ┆
0x0028e0…002900 7e b7 c8 36 00 af cd bd c4 11 ac cb cd ef c4 3a ef cb c3 bd c4 11 28 c7 21 00 cc 06 06 1a be c2 ┆ü 6 : ( ! ┆
0x002900…002920 (1, 0, 2) d5 16 08 00 00 0f c3 11 cc 99 cc a5 cc ab cc b1 cc eb 22 43 cf eb 7b 32 d6 d9 21 00 00 22 45 cf ┆ "C æ2 ! "E ┆
0x002920…002940 39 22 0f cf 31 41 cf af 32 e0 d9 32 de d9 21 74 d9 e5 79 fe 29 d0 4b 21 47 cc 5f 16 00 19 19 5e ┆9" 1A 2 2 !t y ) K!G _ ^┆
0x002940…002960 23 56 2a 43 cf eb e9 03 da c8 ce 90 cd ce ce 12 da 0f da d4 ce ed ce f3 ce f8 ce e1 cd fe ce 7e ┆#V*C ü┆
0x002960…002980 d8 83 d8 45 d8 9c d8 a5 d8 ab d8 c8 d8 d7 d8 e0 d8 e6 d8 ec d8 f5 d8 fe d8 04 d9 0a d9 11 d9 2c ┆ E ,┆
0x002980…0029a0 d1 17 d9 1d d9 26 d9 2d d9 41 d9 47 d9 4d d9 0e d8 53 d9 04 cf 04 cf 9b d9 21 ca cc cd e5 cc fe ┆ & - A G M S ! ┆
0x0029a0…0029c0 03 ca 00 00 c9 21 d5 cc c3 b4 cc 21 e1 cc c3 b4 cc 21 dc cc cd e5 cc c3 00 00 42 64 6f 73 20 45 ┆ ! ! ! Bdos E┆
0x0029c0…0029e0 72 72 20 4f 6e 20 20 3a 20 24 42 61 64 20 53 65 63 74 6f 72 24 53 65 6c 65 63 74 24 46 69 6c 65 ┆rr On : $Bad Sector$Select$File┆
0x0029e0…002a00 20 52 2f 4f 24 e5 cd c9 cd 3a 42 cf c6 41 32 c6 cc 01 ba cc cd d3 cd c1 cd d3 cd 21 0e cf 7e 36 ┆ R/O$ :B A2 ! ü6┆
0x002a00…002a20 00 b7 c0 c3 09 da cd fb cc cd 14 cd d8 f5 4f cd 90 cd f1 c9 fe 0d c8 fe 0a c8 fe 09 c8 fe 08 c8 ┆ O ┆
0x002a20…002a40 fe 20 c9 3a 0e cf b7 c2 45 cd cd 06 da e6 01 c8 cd 09 da fe 13 c2 42 cd cd 09 da fe 03 ca 00 00 ┆ : E B ┆
0x002a40…002a60 af c9 32 0e cf 3e 01 c9 3a 0a cf b7 c2 62 cd c5 cd 23 cd c1 c5 cd 0c da c1 c5 3a 0d cf b7 c4 0f ┆ 2 > : b # : ┆
0x002a60…002a80 da c1 79 21 0c cf fe 7f c8 34 fe 20 d0 35 7e b7 c8 79 fe 08 c2 79 cd 35 c9 fe 0a c0 36 00 c9 79 ┆ y! 4 5ü y y 5 6 y┆
0x002a80…002aa0 cd 14 cd d2 90 cd f5 0e 5e cd 48 cd f1 f6 40 4f 79 fe 09 c2 48 cd 0e 20 cd 48 cd 3a 0c cf e6 07 ┆ ^ H @Oy H H : ┆
0x002aa0…002ac0 c2 96 cd c9 cd ac cd 0e 20 cd 0c da 0e 08 c3 0c da 0e 23 cd 48 cd cd c9 cd 3a 0c cf 21 0b cf be ┆ # H : ! ┆
0x002ac0…002ae0 d0 0e 20 cd 48 cd c3 b9 cd 0e 0d cd 48 cd 0e 0a c3 48 cd 0a fe 24 c8 03 c5 4f cd 90 cd c1 c3 d3 ┆ H H H $ O ┆
0x002ae0…002b00 cd 3a 0c cf 32 0b cf 2a 43 cf 4e 23 e5 06 00 c5 e5 cd fb cc e6 7f e1 c1 fe 0d ca c1 ce fe 0a ca ┆ : 2 *C N# ┆
0x002b00…002b20 (1, 0, 3) 20 d5 06 00 2a 43 cf 09 eb cd 5e d1 c1 cd 4f cf cd c3 cf c3 c6 d1 cd 54 d1 0e 0c cd 18 d3 2a 43 ┆ *C ^ O T *C┆
0x002b20…002b40 cf 7e 11 10 00 19 77 cd f5 d1 c8 cd 44 d1 0e 10 1e 0c cd 01 d4 cd 2d d3 c3 27 d4 0e 0c cd 18 d3 ┆ ü w D - ' ┆
0x002b40…002b60 cd f5 d1 c8 0e 00 1e 0c cd 01 d4 cd 2d d3 c3 40 d4 0e 0f cd 18 d3 cd f5 d1 c8 cd a6 d0 7e f5 e5 ┆ - @ ü ┆
0x002b60…002b80 cd 5e d1 eb 2a 43 cf 0e 20 d5 cd 4f cf cd 78 d1 d1 21 0c 00 19 4e 21 0f 00 19 46 e1 f1 77 79 be ┆ ^ *C O x ! N! F wy ┆
0x002b80…002ba0 78 ca 8b d4 3e 00 da 8b d4 3e 80 2a 43 cf 11 0f 00 19 77 c9 7e 23 b6 2b c0 1a 77 13 23 1a 77 1b ┆x > > *C w ü# + w # w ┆
0x002ba0…002bc0 2b c9 af 32 45 cf 32 ea d9 32 eb d9 cd 1e d1 c0 cd 69 d1 e6 80 c0 0e 0f cd 18 d3 cd f5 d1 c8 01 ┆+ 2E 2 2 i ┆
0x002bc0…002be0 10 00 cd 5e d1 09 eb 2a 43 cf 09 0e 10 3a dd d9 b7 ca e8 d4 7e b7 1a c2 db d4 77 b7 c2 e1 d4 7e ┆ ^ *C : ü w ü┆
0x002be0…002c00 12 be c2 1f d5 c3 fd d4 cd 94 d4 eb cd 94 d4 eb 1a be c2 1f d5 13 23 1a be c2 1f d5 0d 13 23 0d ┆ # # ┆
0x002c00…002c20 c2 cd d4 01 ec ff 09 eb 09 1a be da 17 d5 77 01 03 00 09 eb 09 7e 12 3e ff 32 d2 d9 c3 10 d4 21 ┆ w ü > 2 !┆
0x002c20…002c40 45 cf 35 c9 cd 54 d1 2a 43 cf e5 21 ac d9 22 43 cf 0e 01 cd 18 d3 cd f5 d1 e1 22 43 cf c8 eb 21 ┆E 5 T *C ! "C "C !┆
0x002c40…002c60 0f 00 19 0e 11 af 77 23 0d c2 46 d5 21 0d 00 19 77 cd 8c d1 cd fd d3 c3 78 d1 af 32 d2 d9 cd a2 ┆ w# F ! w x 2 ┆
0x002c60…002c80 d4 cd f5 d1 c8 2a 43 cf 01 0c 00 09 7e 3c e6 1f 77 ca 83 d5 47 3a c5 d9 a0 21 d2 d9 a6 ca 8e d5 ┆ *C ü< w G: ! ┆
0x002c80…002ca0 c3 ac d5 01 02 00 09 34 7e e6 0f ca b6 d5 0e 0f cd 18 d3 cd f5 d1 c2 ac d5 3a d3 d9 3c ca b6 d5 ┆ 4ü : < ┆
0x002ca0…002cc0 cd 24 d5 cd f5 d1 ca b6 d5 c3 af d5 cd 5a d4 cd bb d0 af c3 01 cf cd 05 cf c3 78 d1 3e 01 32 d5 ┆ $ Z x > 2 ┆
0x002cc0…002ce0 d9 3e ff 32 d3 d9 cd bb d0 3a e3 d9 21 e1 d9 be da e6 d5 fe 80 c2 fb d5 cd 5a d5 af 32 e3 d9 3a ┆ > 2 : ! Z 2 :┆
0x002ce0…002d00 45 cf b7 c2 fb d5 cd 77 d0 cd 84 d0 ca fb d5 cd 8a d0 cd d1 cf cd b2 cf c3 d2 d0 c3 05 cf 3e 01 ┆E w > ┆
0x002d00…002f00 (1, 0, 4) 0xe5[0x200]
0x002f00…002f20 (1, 0, 5) cf c7 13 23 05 c2 fd c5 c9 cd 98 c4 2a 8a c4 7e fe 20 ca 22 c6 b7 ca 22 c6 e5 cd 8c c4 e1 23 c3 ┆ # * ü " " # ┆
0x002f20…002f40 0f c6 3e 3f cd 8c c4 cd 98 c4 cd dd c5 c3 82 c7 1a b7 c8 fe 20 da 09 c6 c8 fe 3d c8 fe 5f c8 fe ┆ >? = _ ┆
0x002f40…002f60 2e c8 fe 3a c8 fe 3b c8 fe 3c c8 fe 3e c8 c9 1a b7 c8 fe 20 c0 13 c3 4f c6 85 6f d0 24 c9 3e 00 ┆. : ; < > O o $ > ┆
0x002f60…002f80 21 cd cb cd 59 c6 e5 e5 af 32 f0 cb 2a 88 c4 eb cd 4f c6 eb 22 8a c4 eb e1 1a b7 ca 89 c6 de 40 ┆! Y 2 * O " @┆
0x002f80…002fa0 47 13 1a fe 3a ca 90 c6 1b 3a ef cb 77 c3 96 c6 78 32 f0 cb 70 13 06 08 cd 30 c6 ca b9 c6 23 fe ┆G : : w x2 p 0 # ┆
0x002fa0…002fc0 2a c2 a9 c6 36 3f c3 ab c6 77 13 05 c2 98 c6 cd 30 c6 ca c0 c6 13 c3 af c6 23 36 20 05 c2 b9 c6 ┆* 6? w 0 #6 ┆
0x002fc0…002fe0 06 03 fe 2e c2 e9 c6 13 cd 30 c6 ca e9 c6 23 fe 2a c2 d9 c6 36 3f c3 db c6 77 13 05 c2 c8 c6 cd ┆ . 0 # * 6? w ┆
0x002fe0…003000 30 c6 ca f0 c6 13 c3 df c6 23 36 20 05 c2 e9 c6 06 03 23 36 00 05 c2 f2 c6 eb 22 88 c4 e1 01 0b ┆0 #6 #6 " ┆
0x003000…003020 00 23 7e fe 3f c2 09 c7 04 0d c2 01 c7 78 b7 c9 44 49 52 20 45 52 41 20 54 59 50 45 53 41 56 45 ┆ #ü ? x DIR ERA TYPESAVE┆
0x003020…003040 52 45 4e 20 55 53 45 52 d5 16 08 00 00 0f 21 10 c7 0e 00 79 fe 06 d0 11 ce cb 06 04 1a be c2 4f ┆REN USER ! y O┆
0x003040…003060 c7 13 23 05 c2 3c c7 1a fe 20 c2 54 c7 79 c9 23 05 c2 4f c7 0c c3 33 c7 af 32 07 c4 31 ab cb c5 ┆ # < T y # O 3 2 1 ┆
0x003060…003080 79 1f 1f 1f 1f e6 0f 5f cd 15 c5 cd b8 c4 32 ab cb c1 79 e6 0f 32 ef cb cd bd c4 3a 07 c4 b7 c2 ┆y _ 2 y 2 : ┆
0x003080…0030a0 98 c7 31 ab cb cd 98 c4 cd d0 c5 c6 41 cd 8c c4 3e 3e cd 8c c4 cd 39 c5 11 80 00 cd d8 c5 cd d0 ┆ 1 A >> 9 ┆
0x0030a0…0030c0 c5 32 ef cb cd 5e c6 c4 09 c6 3a f0 cb b7 c2 a5 ca cd 2e c7 21 c1 c7 5f 16 00 19 19 7e 23 66 6f ┆ 2 ^ : . ! _ ü#fo┆
0x0030c0…0030e0 e9 77 c8 1f c9 5d c9 ad c9 10 ca 8e ca a5 ca 21 f3 76 22 00 c4 21 00 c4 e9 01 df c7 c3 a7 c4 52 ┆ w Å ! v" ! R┆
0x0030e0…003100 45 41 44 20 45 52 52 4f 52 00 01 f0 c7 c3 a7 c4 4e 4f 20 46 49 4c 45 00 cd 5e c6 3a f0 cb b7 c2 ┆EAD ERROR NO FILE ^ : ┆
0x003100…003120 (1, 0, 6) c1 ce fe 08 c2 16 ce 78 b7 ca ef cd 05 3a 0c cf 32 0a cf c3 70 ce fe 7f c2 26 ce 78 b7 ca ef cd ┆ x : 2 p & x ┆
0x003120…003140 7e 05 2b c3 a9 ce fe 05 c2 37 ce c5 e5 cd c9 cd af 32 0b cf c3 f1 cd fe 10 c2 48 ce e5 21 0d cf ┆ü + 7 2 H ! ┆
0x003140…003160 3e 01 96 77 e1 c3 ef cd fe 18 c2 5f ce e1 3a 0b cf 21 0c cf be d2 e1 cd 35 cd a4 cd c3 4e ce fe ┆> w _ : ! 5 N ┆
0x003160…003180 15 c2 6b ce cd b1 cd e1 c3 e1 cd fe 12 c2 a6 ce c5 cd b1 cd c1 e1 e5 c5 78 b7 ca 8a ce 23 4e 05 ┆ k x #N ┆
0x003180…0031a0 c5 e5 cd 7f cd e1 c1 c3 78 ce e5 3a 0a cf b7 ca f1 cd 21 0c cf 96 32 0a cf cd a4 cd 21 0a cf 35 ┆ x : ! 2 ! 5┆
0x0031a0…0031c0 c2 99 ce c3 f1 cd 23 77 04 c5 e5 4f cd 7f cd e1 c1 7e fe 03 78 c2 bd ce fe 01 ca 00 00 b9 da ef ┆ #w O ü x ┆
0x0031c0…0031e0 cd e1 70 0e 0d c3 48 cd cd 06 cd c3 01 cf cd 15 da c3 01 cf 79 3c ca e0 ce 3c ca 06 da c3 0c da ┆ p H y< < ┆
0x0031e0…003200 cd 06 da b7 ca 91 d9 cd 09 da c3 01 cf 3a 03 00 c3 01 cf 21 03 00 71 c9 eb 4d 44 c3 d3 cd cd 23 ┆ : ! q MD #┆
0x003200…003220 cd 32 45 cf c9 3e 01 c3 01 cf 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2E > ┆
0x003220…003240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x003240…003260 00 00 00 00 00 00 00 21 0b cc 5e 23 56 eb e9 0c 0d c8 1a 77 13 23 c3 50 cf 3a 42 cf 4f cd 1b da ┆ ! ^#V w # P :B O ┆
0x003260…003280 7c b5 c8 5e 23 56 23 22 b3 d9 23 23 22 b5 d9 23 23 22 b7 d9 23 23 eb 22 d0 d9 21 b9 d9 0e 08 cd ┆ø ^#V#" ##" ##" ## " ! ┆
0x003280…0032a0 4f cf 2a bb d9 eb 21 c1 d9 0e 0f cd 4f cf 2a c6 d9 7c 21 dd d9 36 ff b7 ca 9d cf 36 00 3e ff b7 ┆O * ! O * ø! 6 6 > ┆
0x0032a0…0032c0 c9 cd 18 da af 2a b5 d9 77 23 77 2a b7 d9 77 23 77 c9 cd 27 da c3 bb cf cd 2a da b7 c8 21 09 cc ┆ * w#w* w#w ' * ! ┆
0x0032c0…0032e0 c3 4a cf 2a ea d9 0e 02 cd ea d0 22 e5 d9 22 ec d9 21 e5 d9 4e 23 46 2a b7 d9 5e 23 56 2a b5 d9 ┆ J * " " ! N#F* ^#V* ┆
0x0032e0…003300 7e 23 66 6f 79 93 78 9a d2 fa cf e5 2a c1 d9 7b 95 5f 7a 9c 57 e1 2b c3 e4 cf e5 2a c1 d9 19 da ┆ü#foy x * æ _z W + * ┆
0x003300…003320 (1, 0, 7) 32 d5 d9 3e 00 32 d3 d9 cd 54 d1 2a 43 cf cd 47 d1 cd bb d0 3a e3 d9 fe 80 d2 05 cf cd 77 d0 cd ┆2 > 2 T *C G : w ┆
0x003320…003340 84 d0 0e 00 c2 6e d6 cd 3e d0 32 d7 d9 01 00 00 b7 ca 3b d6 4f 0b cd 5e d0 44 4d cd be d3 7d b4 ┆ n > 2 ; O ^ DM å ┆
0x003340…003360 c2 48 d6 3e 02 c3 01 cf 22 e5 d9 eb 2a 43 cf 01 10 00 09 3a dd d9 b7 3a d7 d9 ca 64 d6 cd 64 d1 ┆ H > " *C : : d d ┆
0x003360…003380 73 c3 6c d6 4f 06 00 09 09 73 23 72 0e 02 3a 45 cf b7 c0 c5 cd 8a d0 3a d5 d9 3d 3d c2 bb d6 c1 ┆s l O s#r :E : == ┆
0x003380…0033a0 c5 79 3d 3d c2 bb d6 e5 2a b9 d9 57 77 23 14 f2 8c d6 cd e0 d1 2a e7 d9 0e 02 22 e5 d9 c5 cd d1 ┆ y== * Ww# * " ┆
0x0033a0…0033c0 cf c1 cd b8 cf 2a e5 d9 0e 00 3a c4 d9 47 a5 b8 23 c2 9a d6 e1 22 e5 d9 cd da d1 cd d1 cf c1 c5 ┆ * : G # " ┆
0x0033c0…0033e0 cd b8 cf c1 3a e3 d9 21 e1 d9 be da d2 d6 77 34 0e 02 0d 0d c2 df d6 f5 cd 69 d1 e6 7f 77 f1 fe ┆ : ! w4 i w ┆
0x0033e0…003400 7f c2 00 d7 3a d5 d9 fe 01 c2 00 d7 cd d2 d0 cd 5a d5 21 45 cf 7e b7 c2 fe d6 3d 32 e3 d9 36 00 ┆ : Z !E ü =2 6 ┆
0x003400…003420 c3 d2 d0 af 32 d5 d9 c5 2a 43 cf eb 21 21 00 19 7e e6 7f f5 7e 17 23 7e 17 e6 1f 4f 7e 1f 1f 1f ┆ 2 *C !! ü ü #ü Oü ┆
0x003420…003440 1f e6 0f 47 f1 23 6e 2c 2d 2e 06 c2 8b d7 21 20 00 19 77 21 0c 00 19 79 96 c2 47 d7 21 0e 00 19 ┆ G #n,-. ! w! y G ! ┆
0x003440…003460 78 96 e6 7f ca 7f d7 c5 d5 cd a2 d4 d1 c1 2e 03 3a 45 cf 3c ca 84 d7 21 0c 00 19 71 21 0e 00 19 ┆x . :E < ! q! ┆
0x003460…003480 70 cd 51 d4 3a 45 cf 3c c2 7f d7 c1 c5 2e 04 0c ca 84 d7 cd 24 d5 2e 05 3a 45 cf 3c ca 84 d7 c1 ┆p Q :E < . $ . :E < ┆
0x003480…0034a0 af c3 01 cf e5 cd 69 d1 36 c0 e1 c1 7d 32 45 cf c3 78 d1 0e ff cd 03 d7 cc c1 d5 c9 0e 00 cd 03 ┆ i 6 å2E x ┆
0x0034a0…0034c0 d7 cc 03 d6 c9 eb 19 4e 06 00 21 0c 00 19 7e 0f e6 80 81 4f 3e 00 88 47 7e 0f e6 0f 80 47 21 0e ┆ N ! ü O> Gü G! ┆
0x0034c0…0034e0 00 19 7e 87 87 87 87 f5 80 47 f5 e1 7d e1 b5 e6 01 c9 0e 0c cd 18 d3 2a 43 cf 11 21 00 19 e5 72 ┆ ü G å *C ! r┆
0x0034e0…003500 23 72 23 72 cd f5 d1 ca 0c d8 cd 5e d1 11 0f 00 cd a5 d7 e1 e5 5f 79 96 23 78 9e 23 7b 9e da 06 ┆#r#r ^ _y #x #æ ┆
0x003500…003700 (1, 0, 8) 0xe5[0x200]
0x003700…003720 (1, 0, 9) 09 c6 21 ce cb 01 0b 00 7e fe 20 ca 33 c8 23 d6 30 fe 0a d2 09 c6 57 78 e6 e0 c2 09 c6 78 07 07 ┆ ! ü 3 # 0 Wx x ┆
0x003720…003740 07 80 da 09 c6 80 da 09 c6 82 da 09 c6 47 0d c2 08 c8 c9 7e fe 20 c2 09 c6 23 0d c2 33 c8 78 c9 ┆ G ü # 3 x ┆
0x003740…003760 06 03 7e 12 23 13 05 c2 42 c8 c9 21 80 00 81 cd 59 c6 7e c9 af 32 cd cb 3a f0 cb b7 c8 3d 21 ef ┆ ü # B ! Y ü 2 : =! ┆
0x003760…003780 cb be c8 c3 bd c4 3a f0 cb b7 c8 3d 21 ef cb be c8 3a ef cb c3 bd c4 cd 5e c6 cd 54 c8 21 ce cb ┆ : =! : ^ T ! ┆
0x003780…0037a0 7e fe 20 c2 8f c8 06 0b 36 3f 23 05 c2 88 c8 1e 00 d5 cd e9 c4 cc ea c7 ca 1b c9 3a ee cb 0f 0f ┆ü 6?# : ┆
0x0037a0…0037c0 0f e6 60 4f 3e 0a cd 4b c8 17 da 0f c9 d1 7b 1c d5 e6 03 f5 c2 cc c8 cd 98 c4 c5 cd d0 c5 c1 c6 ┆ `O> K æ ┆
0x0037c0…0037e0 41 cd 92 c4 3e 3a cd 92 c4 c3 d4 c8 cd a2 c4 3e 3a cd 92 c4 cd a2 c4 06 01 78 cd 4b c8 e6 7f fe ┆A >: >: x K ┆
0x0037e0…003800 20 c2 f9 c8 f1 f5 fe 03 c2 f7 c8 3e 09 cd 4b c8 e6 7f fe 20 ca 0e c9 3e 20 cd 92 c4 04 78 fe 0c ┆ > K > x ┆
0x003800…003820 d2 0e c9 fe 09 c2 d9 c8 cd a2 c4 c3 d9 c8 f1 cd c2 c5 c2 1b c9 cd e4 c4 c3 98 c8 d1 c3 86 cb cd ┆ ┆
0x003820…003840 5e c6 fe 0b c2 42 c9 01 52 c9 cd a7 c4 cd 39 c5 21 07 c4 35 c2 82 c7 23 7e fe 59 c2 82 c7 23 22 ┆^ B R 9 ! 5 #ü Y #"┆
0x003840…003860 88 c4 cd 54 c8 11 cd cb cd ef c4 3c cc ea c7 c3 86 cb 41 4c 4c 20 28 59 2f 4e 29 3f 00 cd 5e c6 ┆ T < ALL (Y/N)? ^ ┆
0x003860…003880 c2 09 c6 cd 54 c8 cd d0 c4 ca a7 c9 cd 98 c4 21 f1 cb 36 ff 21 f1 cb 7e fe 80 da 87 c9 e5 cd fe ┆ T ! 6 ! ü ┆
0x003880…0038a0 c4 e1 c2 a0 c9 af 77 34 21 80 00 cd 59 c6 7e fe 1a ca 86 cb cd 8c c4 cd c2 c5 c2 86 cb c3 74 c9 ┆ w4! Y ü t ┆
0x0038a0…0038c0 3d ca 86 cb cd d9 c7 cd 66 c8 c3 09 c6 cd f8 c7 f5 cd 5e c6 c2 09 c6 cd 54 c8 11 cd cb d5 cd ef ┆= f ^ T ┆
0x0038c0…0038e0 c4 d1 cd 09 c5 ca fb c9 af 32 ed cb f1 6f 26 00 29 11 00 01 7c b5 ca f1 c9 2b e5 21 80 00 19 e5 ┆ 2 o& ) ø + ! ┆
0x0038e0…003900 cd d8 c5 11 cd cb cd 04 c5 d1 e1 c2 fb c9 c3 d4 c9 11 cd cb cd da c4 3c c2 01 ca 01 07 ca cd a7 ┆ < ┆
0x003900…003920 (1, 0, 10) 0f d0 79 95 78 9c da 0f d0 eb e1 23 c3 fa cf e1 c5 d5 e5 eb 2a ce d9 19 44 4d cd 1e da d1 2a b5 ┆ y x # * DM * ┆
0x003920…003940 d9 73 23 72 d1 2a b7 d9 73 23 72 c1 79 93 4f 78 9a 47 2a d0 d9 eb cd 30 da 4d 44 c3 21 da 21 c3 ┆ s#r * s#r y Ox G* 0 MD ! ! ┆
0x003940…003960 d9 4e 3a e3 d9 b7 1f 0d c2 45 d0 47 3e 08 96 4f 3a e2 d9 0d ca 5c d0 b7 17 c3 53 d0 80 c9 2a 43 ┆ N: E G> O: Ø S *C┆
0x003960…003980 cf 11 10 00 19 09 3a dd d9 b7 ca 71 d0 6e 26 00 c9 09 5e 23 56 eb c9 cd 3e d0 4f 06 00 cd 5e d0 ┆ : q n& ^#V > O ^ ┆
0x003980…0039a0 22 e5 d9 c9 2a e5 d9 7d b4 c9 3a c3 d9 2a e5 d9 29 3d c2 90 d0 22 e7 d9 3a c4 d9 4f 3a e3 d9 a1 ┆" * å : * )= " : O: ┆
0x0039a0…0039c0 b5 6f 22 e5 d9 c9 2a 43 cf 11 0c 00 19 c9 2a 43 cf 11 0f 00 19 eb 21 11 00 19 c9 cd ae d0 7e 32 ┆ o" *C *C ! ü2┆
0x0039c0…0039e0 e3 d9 eb 7e 32 e1 d9 cd a6 d0 3a c5 d9 a6 32 e2 d9 c9 cd ae d0 3a d5 d9 fe 02 c2 de d0 af 4f 3a ┆ ü2 : 2 : O:┆
0x0039e0…003a00 e3 d9 81 77 eb 3a e1 d9 77 c9 0c 0d c8 7c b7 1f 67 7d 1f 6f c3 eb d0 0e 80 2a b9 d9 af 86 23 0d ┆ w : w ø gå o * # ┆
0x003a00…003a20 c2 fd d0 c9 0c 0d c8 29 c3 05 d1 c5 3a 42 cf 4f 21 01 00 cd 04 d1 c1 79 b5 6f 78 b4 67 c9 2a ad ┆ ) :B O! y ox g * ┆
0x003a20…003a40 d9 3a 42 cf 4f cd ea d0 7d e6 01 c9 21 ad d9 4e 23 46 cd 0b d1 22 ad d9 2a c8 d9 23 eb 2a b3 d9 ┆ :B O å ! N#F " * # * ┆
0x003a40…003a60 73 23 72 c9 cd 5e d1 11 09 00 19 7e 17 d0 21 0f cc c3 4a cf cd 1e d1 c8 21 0d cc c3 4a cf 2a b9 ┆s#r ^ ü ! J ! J * ┆
0x003a60…003a80 d9 3a e9 d9 85 6f d0 24 c9 2a 43 cf 11 0e 00 19 7e c9 cd 69 d1 36 00 c9 cd 69 d1 f6 80 77 c9 2a ┆ : o $ *C ü i 6 i w *┆
0x003a80…003aa0 ea d9 eb 2a b3 d9 7b 96 23 7a 9e c9 cd 7f d1 d8 13 72 2b 73 c9 7b 95 6f 7a 9c 67 c9 0e ff 2a ec ┆ * æ #z r+s æ oz g * ┆
0x003aa0…003ac0 d9 eb 2a cc d9 cd 95 d1 d0 c5 cd f7 d0 2a bd d9 eb 2a ec d9 19 c1 0c ca c4 d1 be c8 cd 7f d1 d0 ┆ * * * ┆
0x003ac0…003ae0 cd 2c d1 c9 77 c9 cd 9c d1 cd e0 d1 0e 01 cd b8 cf c3 da d1 cd e0 d1 cd b2 cf 21 b1 d9 c3 e3 d1 ┆ , w ! ┆
0x003ae0…003b00 21 b9 d9 4e 23 46 c3 24 da 2a b9 d9 eb 2a b1 d9 0e 80 c3 4f cf 21 ea d9 7e 23 be c0 3c c9 21 ff ┆! N#F $ * * O ! ü# < ! ┆
0x003b00…003b20 (1, 0, 11) d8 73 2b 70 2b 71 cd 2d d3 c3 e4 d7 e1 c9 2a 43 cf 11 20 00 cd a5 d7 21 21 00 19 71 23 70 23 77 ┆ s+p+q - *C !! q#p#w┆
0x003b20…003b40 c9 2a af d9 3a 42 cf 4f cd ea d0 e5 eb cd 59 cf e1 cc 47 cf 7d 1f d8 2a af d9 4d 44 cd 0b d1 22 ┆ * :B O Y G å * MD "┆
0x003b40…003b60 af d9 c3 a3 d2 3a d6 d9 21 42 cf be c8 77 c3 21 d8 3e ff 32 de d9 2a 43 cf 7e e6 1f 3d 32 d6 d9 ┆ : !B w ! > 2 *C ü =2 ┆
0x003b60…003b80 fe 1e d2 75 d8 3a 42 cf 32 df d9 7e 32 e0 d9 e6 e0 77 cd 45 d8 3a 41 cf 2a 43 cf b6 77 c9 3e 22 ┆ u :B 2 ü2 w E :A *C w >"┆
0x003b80…003ba0 c3 01 cf 21 00 00 22 ad d9 22 af d9 af 32 42 cf 21 80 00 22 b1 d9 cd da d1 c3 21 d8 cd 72 d1 cd ┆ ! " " 2B ! " ! r ┆
0x003ba0…003bc0 51 d8 c3 51 d4 cd 51 d8 c3 a2 d4 0e 00 eb 7e fe 3f ca c2 d8 cd a6 d0 7e fe 3f c4 72 d1 cd 51 d8 ┆Q Q Q ü ? ü ? r Q ┆
0x003bc0…003be0 0e 0f cd 18 d3 c3 e9 d1 2a d9 d9 22 43 cf cd 51 d8 cd 2d d3 c3 e9 d1 cd 51 d8 cd 9c d3 c3 01 d3 ┆ * "C Q - Q ┆
0x003be0…003c00 cd 51 d8 c3 bc d5 cd 51 d8 c3 fe d5 cd 72 d1 cd 51 d8 c3 24 d5 cd 51 d8 cd 16 d4 c3 01 d3 2a af ┆ Q Q r Q $ Q * ┆
0x003c00…003c20 d9 c3 29 d9 3a 42 cf c3 01 cf eb 22 b1 d9 c3 da d1 2a bf d9 c3 29 d9 2a ad d9 c3 29 d9 cd 51 d8 ┆ ) :B " * ) * ) Q ┆
0x003c20…003c40 cd 3b d4 c3 01 d3 2a bb d9 22 45 cf c9 3a d6 d9 fe ff c2 3b d9 3a 41 cf c3 01 cf e6 1f 32 41 cf ┆ ; * "E : ; :A 2A ┆
0x003c40…003c60 c9 cd 51 d8 c3 93 d7 cd 51 d8 c3 9c d7 cd 51 d8 c3 d2 d7 2a 43 cf 7d 2f 5f 7c 2f 2a af d9 a4 57 ┆ Q Q Q *C å/_ø/* W┆
0x003c60…003c80 7d a3 5f 2a ad d9 eb 22 af d9 7d a3 6f 7c a2 67 22 ad d9 c9 3a de d9 b7 ca 91 d9 2a 43 cf 36 00 ┆å _* " å oø g" : *C 6 ┆
0x003c80…003ca0 3a e0 d9 b7 ca 91 d9 77 3a df d9 32 d6 d9 cd 45 d8 2a 0f cf f9 2a 45 cf 7d 44 c9 cd 51 d8 3e 02 ┆: w: 2 E * *E åD Q > ┆
0x003ca0…003cc0 32 d5 d9 0e 00 cd 07 d7 cc 03 d6 c9 e5 00 00 00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆2 ┆
0x003cc0…003ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x003d00…003f00 (1, 0, 12) 0xe5[0x200]
0x003f00…003f20 (1, 0, 13) c4 cd d5 c5 c3 86 cb 4e 4f 20 53 50 41 43 45 00 cd 5e c6 c2 09 c6 3a f0 cb f5 cd 54 c8 cd e9 c4 ┆ NO SPACE ^ : T ┆
0x003f20…003f40 c2 79 ca 21 cd cb 11 dd cb 06 10 cd 42 c8 2a 88 c4 eb cd 4f c6 fe 3d ca 3f ca fe 5f c2 73 ca eb ┆ y ! B * O = ? _ s ┆
0x003f40…003f60 23 22 88 c4 cd 5e c6 c2 73 ca f1 47 21 f0 cb 7e b7 ca 59 ca b8 70 c2 73 ca 70 af 32 cd cb cd e9 ┆#" ^ s G! ü Y p s p 2 ┆
0x003f60…003f80 c4 ca 6d ca 11 cd cb cd 0e c5 c3 86 cb cd ea c7 c3 86 cb cd 66 c8 c3 09 c6 01 82 ca cd a7 c4 c3 ┆ m f ┆
0x003f80…003fa0 86 cb 46 49 4c 45 20 45 58 49 53 54 53 00 cd f8 c7 fe 10 d2 09 c6 5f 3a ce cb fe 20 ca 09 c6 cd ┆ FILE EXISTS _: ┆
0x003fa0…003fc0 15 c5 c3 89 cb cd f5 c5 3a ce cb fe 20 c2 c4 ca 3a f0 cb b7 ca 89 cb 3d 32 ef cb cd 29 c5 cd bd ┆ : : =2 ) ┆
0x003fc0…003fe0 c4 c3 89 cb 11 d6 cb 1a fe 20 c2 09 c6 d5 cd 54 c8 d1 21 83 cb cd 40 c8 cd d0 c4 ca 6b cb 21 00 ┆ T ! @ k ! ┆
0x003fe0…004000 01 e5 eb cd d8 c5 11 cd cb cd f9 c4 c2 01 cb e1 11 80 00 19 11 00 c4 7d 93 7c 9a d2 71 cb c3 e1 ┆ å ø q ┆
0x004000…004020 ca e1 3d c2 71 cb cd 66 c8 cd 5e c6 21 f0 cb e5 7e 32 cd cb 3e 10 cd 60 c6 e1 7e 32 dd cb af 32 ┆ = q f ^ ! ü2 > ` ü2 2┆
0x004020…004040 ed cb 11 5c 00 21 cd cb 06 21 cd 42 c8 21 08 c4 7e b7 ca 3e cb fe 20 ca 3e cb 23 c3 30 cb 06 00 ┆ Ø ! ! B ! ü > > # 0 ┆
0x004040…004060 11 81 00 7e 12 b7 ca 4f cb 04 23 13 c3 43 cb 78 32 80 00 cd 98 c4 cd d5 c5 cd 1a c5 cd 00 01 31 ┆ ü O # C x2 1┆
0x004060…004080 ab cb cd 29 c5 cd bd c4 c3 82 c7 cd 66 c8 c3 09 c6 01 7a cb cd a7 c4 c3 86 cb 42 41 44 20 4c 4f ┆ ) f z BAD LO┆
0x004080…0040a0 41 44 00 43 4f 4d cd 66 c8 cd 5e c6 3a ce cb d6 20 21 f0 cb b6 c2 09 c6 c3 82 c7 00 00 00 00 00 ┆AD COM f ^ : ! ┆
0x0040a0…0040c0 00 00 00 00 00 00 00 00 00 00 00 00 00 24 24 24 20 20 20 20 20 53 55 42 00 00 00 00 00 00 00 00 ┆ $$$ SUB ┆
0x0040c0…0040e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]
0x004100…004120 (1, 0, 14) ff 22 ea d9 c9 2a c8 d9 eb 2a ea d9 23 22 ea d9 cd 95 d1 d2 19 d2 c3 fe d1 3a ea d9 e6 03 06 05 ┆ " * * #" : ┆
0x004120…004140 87 05 c2 20 d2 32 e9 d9 b7 c0 c5 cd c3 cf cd d4 d1 c1 c3 9e d1 79 e6 07 3c 5f 57 79 0f 0f 0f e6 ┆ 2 y <_Wy ┆
0x004140…004160 1f 4f 78 87 87 87 87 87 b1 4f 78 0f 0f 0f e6 1f 47 2a bf d9 09 7e 07 1d c2 56 d2 c9 d5 cd 35 d2 ┆ Ox Ox G* ü V 5 ┆
0x004160…004180 e6 fe c1 b1 0f 15 c2 64 d2 77 c9 cd 5e d1 11 10 00 19 c5 0e 11 d1 0d c8 d5 3a dd d9 b7 ca 88 d2 ┆ d w ^ : ┆
0x004180…0041a0 c5 e5 4e 06 00 c3 8e d2 0d c5 4e 23 46 e5 79 b0 ca 9d d2 2a c6 d9 7d 91 7c 98 d4 5c d2 e1 23 c1 ┆ N N#F y * å ø Ø # ┆
0x0041a0…0041c0 c3 75 d2 2a c6 d9 0e 03 cd ea d0 23 44 4d 2a bf d9 36 00 23 0b 78 b1 c2 b1 d2 2a ca d9 eb 2a bf ┆ u * #DM* 6 # x * * ┆
0x0041c0…0041e0 d9 73 23 72 cd a1 cf 2a b3 d9 36 03 23 36 00 cd fe d1 0e ff cd 05 d2 cd f5 d1 c8 cd 5e d1 3e e5 ┆ s#r * 6 #6 ^ > ┆
0x0041e0…004200 be ca d2 d2 3a 41 cf be c2 f6 d2 23 7e d6 24 c2 f6 d2 3d 32 45 cf 0e 01 cd 6b d2 cd 8c d1 c3 d2 ┆ :A #ü $ =2E k ┆
0x004200…004220 d2 3a d4 d9 c3 01 cf c5 f5 3a c5 d9 2f 47 79 a0 4f f1 a0 91 e6 1f c1 c9 3e ff 32 d4 d9 21 d8 d9 ┆ : : /Gy O > 2 ! ┆
0x004220…004240 71 2a 43 cf 22 d9 d9 cd fe d1 cd a1 cf 0e 00 cd 05 d2 cd f5 d1 ca 94 d3 2a d9 d9 eb 1a fe e5 ca ┆q*C " * ┆
0x004240…004260 4a d3 d5 cd 7f d1 d1 d2 94 d3 cd 5e d1 3a d8 d9 4f 06 00 79 b7 ca 83 d3 1a fe 3f ca 7c d3 78 fe ┆J ^ : O y ? ø x ┆
0x004260…004280 0d ca 7c d3 fe 0c 1a ca 73 d3 96 e6 7f c2 2d d3 c3 7c d3 c5 4e cd 07 d3 c1 c2 2d d3 13 23 04 0d ┆ ø s - ø N - # ┆
0x004280…0042a0 c3 53 d3 3a ea d9 e6 03 32 45 cf 21 d4 d9 7e 17 d0 af 77 c9 cd fe d1 3e ff c3 01 cf cd 54 d1 0e ┆ S : 2E ! ü w > T ┆
0x0042a0…0042c0 0c cd 18 d3 cd f5 d1 c8 cd 44 d1 cd 5e d1 36 e5 0e 00 cd 6b d2 cd c6 d1 cd 2d d3 c3 a4 d3 50 59 ┆ D ^ 6 k - PY┆
0x0042c0…0042e0 79 b0 ca d1 d3 0b d5 c5 cd 35 d2 1f d2 ec d3 c1 d1 2a c6 d9 7b 95 7a 9c d2 f4 d3 13 c5 d5 42 4b ┆y 5 * æ z BK┆
0x0042e0…004300 cd 35 d2 1f d2 ec d3 d1 c1 c3 c0 d3 17 3c cd 64 d2 e1 d1 c9 79 b0 c2 c0 d3 21 00 00 c9 0e 00 1e ┆ 5 < d y ! ┆
0x004300…004500 (1, 0, 15) 0xe5[0x200]
[…0xf…]
0x006300…006320 (2, 0, 1) [0, 'EFMTINT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0]]
0x006320…006340 [0, 'EFMTINT.MAC', 1, 56, 'xl=01', 'bc=00', 'xh=00', 'rc=38', '0-0-0-0-0-0-0-0-0-0-0', [10, 0, 11, 0, 12, 0, 13, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006340…006360 [0, 'FGENSUB.MAC', 0, 99, 'xl=00', 'bc=00', 'xh=00', 'rc=63', '0-0-0-0-0-0-0-0-0-0-0', [14, 0, 15, 0, 16, 0, 17, 0, 18, 0, 19, 0, 20, 0, 0, 0]]
0x006360…006380 [0, 'VERIFY.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [26, 0, 27, 0, 28, 0, 29, 0, 30, 0, 31, 0, 32, 0, 33, 0]]
0x006380…0063a0 [0, 'VERIFY.BAS', 1, 105, 'xl=01', 'bc=00', 'xh=00', 'rc=69', '0-0-0-0-0-0-0-0-0-0-0', [34, 0, 35, 0, 36, 0, 37, 0, 38, 0, 39, 0, 40, 0, 0, 0]]
0x0063a0…0063c0 [0, 'CHAININF.BAS', 0, 7, 'xl=00', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [41, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0063c0…0063e0 [0, 'INFO.TEX', 0, 38, 'xl=00', 'bc=00', 'xh=00', 'rc=26', '0-0-0-0-0-0-0-0-0-0-0', [42, 0, 43, 0, 44, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0063e0…006400 [0, 'ENTRYME.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [45, 0, 46, 0, 47, 0, 48, 0, 49, 0, 50, 0, 51, 0, 52, 0]]
0x006400…006420 [0, 'FORMAT.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [59, 0, 60, 0, 61, 0, 62, 0, 63, 0, 64, 0, 65, 0, 66, 0]]
0x006420…006440 [0, 'FORMAT.BAS', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [67, 0, 68, 0, 69, 0, 70, 0, 71, 0, 72, 0, 73, 0, 74, 0]]
0x006440…006460 [0, 'FORMAT.BAS', 2, 128, 'xl=02', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [75, 0, 76, 0, 77, 0, 78, 0, 79, 0, 80, 0, 81, 0, 82, 0]]
0x006460…006480 Dirent {Status=0xe5}
0x006480…0064a0 [0, 'ENTRYME.BAS', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [53, 0, 54, 0, 55, 0, 56, 0, 57, 0, 58, 0, 87, 0, 117, 0]]
0x0064a0…0064c0 Dirent {Status=0xe5}
[…0x2…]
0x006500…006700 (2, 0, 2) 0xe5[0x200]
0x006700…006900 (2, 0, 3) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x006b00…006b20 (2, 0, 5) [0, 'ENTRYME.BAS', 2, 121, 'xl=02', 'bc=00', 'xh=00', 'rc=79', '0-0-0-0-0-0-0-0-0-0-0', [136, 0, 137, 0, 138, 0, 139, 0, 140, 0, 141, 0, 142, 0, 143, 0]]
0x006b20…006b40 [0, 'ENTRY.BAS', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [118, 0, 119, 0, 120, 0, 121, 0, 122, 0, 123, 0, 124, 0, 125, 0]]
0x006b40…006b60 [0, 'ENTRY.BAS', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [126, 0, 127, 0, 128, 0, 129, 0, 130, 0, 131, 0, 132, 0, 133, 0]]
0x006b60…006b80 [0, 'ENTRY.BAS', 2, 26, 'xl=02', 'bc=00', 'xh=00', 'rc=1a', '0-0-0-0-0-0-0-0-0-0-0', [134, 0, 135, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006b80…006ba0 [0, 'FORMAT.BAS', 3, 79, 'xl=03', 'bc=00', 'xh=00', 'rc=4f', '0-0-0-0-0-0-0-0-0-0-0', [144, 0, 145, 0, 146, 0, 194, 0, 195, 0, 0, 0, 0, 0, 0, 0]]
0x006ba0…006bc0 [0, 'EENTRY.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [22, 0, 23, 0, 24, 0, 25, 0, 112, 0, 113, 0, 114, 0, 115, 0]]
0x006bc0…006be0 [0, 'EENTRY.MAC', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [116, 0, 147, 0, 148, 0, 149, 0, 150, 0, 151, 0, 152, 0, 153, 0]]
0x006be0…006c00 [0, 'EENTRY.MAC', 2, 128, 'xl=02', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [154, 0, 155, 0, 156, 0, 157, 0, 158, 0, 159, 0, 160, 0, 161, 0]]
0x006c00…006c20 [0, 'EENTRY.MAC', 3, 88, 'xl=03', 'bc=00', 'xh=00', 'rc=58', '0-0-0-0-0-0-0-0-0-0-0', [162, 0, 163, 0, 164, 0, 165, 0, 166, 0, 167, 0, 0, 0, 0, 0]]
0x006c20…006c40 [0, 'EUSRINT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [168, 0, 169, 0, 170, 0, 171, 0, 172, 0, 173, 0, 174, 0, 175, 0]]
0x006c40…006c60 [0, 'EUSRINT.MAC', 1, 43, 'xl=01', 'bc=00', 'xh=00', 'rc=2b', '0-0-0-0-0-0-0-0-0-0-0', [176, 0, 177, 0, 178, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006c60…006c80 [0, 'FFORMAT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [179, 0, 180, 0, 181, 0, 182, 0, 183, 0, 184, 0, 185, 0, 186, 0]]
0x006c80…006ca0 [0, 'FFORMAT.MAC', 1, 7, 'xl=01', 'bc=00', 'xh=00', 'rc=07', '0-0-0-0-0-0-0-0-0-0-0', [187, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x006ca0…006cc0 [0, 'FUSRINT.MAC', 0, 89, 'xl=00', 'bc=00', 'xh=00', 'rc=59', '0-0-0-0-0-0-0-0-0-0-0', [188, 0, 189, 0, 190, 0, 191, 0, 192, 0, 193, 0, 0, 0, 0, 0]]
0x006cc0…006ce0 Dirent {Status=0xe5}
[…0x1…]
0x006d00…006f00 (2, 0, 6) 0xe5[0x200]
0x006f00…007100 (2, 0, 7) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x007300…007320 (2, 0, 9) [0, 'FFMTINT.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [196, 0, 197, 0, 198, 0, 199, 0, 200, 0, 201, 0, 202, 0, 203, 0]]
0x007320…007340 [0, 'FFMTINT.MAC', 1, 29, 'xl=01', 'bc=00', 'xh=00', 'rc=1d', '0-0-0-0-0-0-0-0-0-0-0', [204, 0, 205, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x007340…007360 Dirent {Status=0xe5}
0x007360…007380 [0, 'CCB.MAC', 0, 49, 'xl=00', 'bc=00', 'xh=00', 'rc=31', '0-0-0-0-0-0-0-0-0-0-0', [207, 0, 208, 0, 209, 0, 210, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x007380…0073a0 [0, 'FMSGTAB.MAC', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [211, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0073a0…0073c0 Dirent {Status=0xe5}
0x0073c0…0073e0 [0, 'EMSGTAB.MAC', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [213, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0073e0…007400 Dirent {Status=0xe5}
[…0x1…]
0x007420…007440 [0, 'EGENSUB.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [218, 0, 219, 0, 220, 0, 221, 0, 222, 0, 223, 0, 224, 0, 225, 0]]
0x007440…007460 [0, 'EGENSUB.MAC', 1, 10, 'xl=01', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [226, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x007460…007480 [0, 'EEOFPRC.MAC', 0, 128, 'xl=00', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [227, 0, 228, 0, 229, 0, 230, 0, 231, 0, 232, 0, 233, 0, 234, 0]]
0x007480…0074a0 [0, 'EEOFPRC.MAC', 1, 128, 'xl=01', 'bc=00', 'xh=00', 'rc=80', '0-0-0-0-0-0-0-0-0-0-0', [235, 0, 236, 0, 237, 0, 238, 0, 239, 0, 240, 0, 241, 0, 242, 0]]
0x0074a0…0074c0 [0, 'EEOFPRC.MAC', 2, 2, 'xl=02', 'bc=00', 'xh=00', 'rc=02', '0-0-0-0-0-0-0-0-0-0-0', [243, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x0074c0…0074e0 Dirent {Status=0xe5}
[…0x1…]
0x007500…007700 (2, 0, 10) 0xe5[0x200]
0x007700…007900 (2, 0, 11) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x007b00…007d00 (2, 0, 13) 0xe5[0x200]
[…0x1…]
0x007f00…008100 (2, 0, 15) DataBlock {»EFMTINT.MAC«}
[…0x21…]
0x00c300…00c500 (3, 1, 4) DataBlock {»FGENSUB.MAC«}
0x00c500…00c700 (3, 1, 5) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x00c900…00c920 (3, 1, 7) 24 28 50 52 45 43 43 4f 55 4e 54 24 2c 31 2c 34 29 20 3d 20 56 41 24 20 3a 20 4d 49 44 24 28 50 ┆$(PRECCOUNT$,1,4) = VA$ : MID$(P┆
0x00c920…00c940 52 45 43 43 4f 55 4e 54 24 2c 35 2c 32 29 20 3d 20 4d 49 44 24 28 50 43 24 2c 31 2c 32 29 0d 0a ┆RECCOUNT$,5,2) = MID$(PC$,1,2) ┆
0x00c940…00c960 34 36 32 38 20 43 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 36 29 20 3a 20 4d 49 ┆4628 CRECCOUNT$ = SPACE$(6) : MI┆
0x00c960…00c980 44 24 28 43 52 45 43 43 4f 55 4e 54 24 2c 31 2c 32 29 20 3d 20 4d 49 44 24 28 50 43 24 2c 33 2c ┆D$(CRECCOUNT$,1,2) = MID$(PC$,3,┆
0x00c980…00c9a0 32 29 20 3a 20 4d 49 44 24 28 43 52 45 43 43 4f 55 4e 54 24 2c 33 2c 34 29 20 3d 20 46 4c 24 0d ┆2) : MID$(CRECCOUNT$,3,4) = FL$ ┆
0x00c9a0…00c9c0 0a 34 36 32 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 4629 REM **********************┆
0x00c9c0…00c9e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00c9e0…00ca00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 33 30 20 52 45 4d 20 2a 20 20 52 45 ┆**************** 4630 REM * RE┆
0x00ca00…00ca20 41 44 20 41 52 42 53 54 41 54 2d 46 4f 52 4d 41 54 20 41 4e 44 20 43 41 4c 4c 20 44 45 50 20 54 ┆AD ARBSTAT-FORMAT AND CALL DEP T┆
0x00ca20…00ca40 4f 20 50 52 49 4e 54 20 49 54 20 4f 4e 20 43 52 54 20 09 20 20 20 20 20 20 2a 0d 0a 34 36 33 31 ┆O PRINT IT ON CRT * 4631┆
0x00ca40…00ca60 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x00ca60…00ca80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00ca80…00caa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 33 32 20 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 22 44 ┆*********** 4632 FORMNAME$ = "D┆
0x00caa0…00cac0 45 50 46 4f 52 4d 20 2e 44 45 50 22 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 46 4f 52 4d 4e ┆EPFORM .DEP" : FILENAME$ = FORMN┆
0x00cac0…00cae0 41 4d 45 24 0d 0a 34 36 33 34 20 47 4f 53 55 42 20 39 32 38 30 09 09 09 09 09 09 09 09 09 52 45 ┆AME$ 4634 GOSUB 9280 RE┆
0x00cae0…00cb00 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 41 54 2d 46 49 4c 45 0d 0a 34 36 33 36 20 47 4f 53 ┆M *** OPEN FORMAT-FILE 4636 GOS┆
0x00cb00…00cd00 (3, 1, 8) DataBlock {»FGENSUB.MAC«}
0x00cd00…00cf00 (3, 1, 9) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x00d100…00d120 (3, 1, 11) 55 42 20 39 35 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UB 9580 ┆
0x00d120…00d140 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d ┆ REM *** INIT FORM┆
0x00d140…00d160 41 54 2d 42 55 46 46 45 52 0d 0a 34 36 33 38 20 47 4f 53 55 42 20 39 36 37 34 20 20 20 20 20 20 ┆AT-BUFFER 4638 GOSUB 9674 ┆
0x00d160…00d180 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f ┆ REM *** READ FO┆
0x00d180…00d1a0 52 4d 41 54 2d 52 45 43 2e 0d 0a 34 36 34 32 20 49 46 20 46 4f 52 4d 42 59 54 45 53 24 20 3c 3e ┆RMAT-REC. 4642 IF FORMBYTES$ <>┆
0x00d1a0…00d1c0 20 22 23 26 22 20 54 48 45 4e 20 47 4f 53 55 42 20 34 37 37 30 20 3a 20 47 4f 54 4f 20 31 36 0d ┆ "#&" THEN GOSUB 4770 : GOTO 16 ┆
0x00d1c0…00d1e0 0a 34 36 34 34 20 46 49 45 4c 44 4e 4f 24 20 3d 20 22 30 30 30 22 20 3a 20 4d 4f 44 45 24 20 3d ┆ 4644 FIELDNO$ = "000" : MODE$ =┆
0x00d1e0…00d200 20 22 30 30 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 20 0d 0a 34 36 34 36 20 ┆ "00" : SPECMOD$ = "000" 4646 ┆
0x00d200…00d220 4c 53 45 54 20 46 4c 4e 24 20 3d 20 46 49 45 4c 44 4e 4f 24 20 3a 20 4c 53 45 54 20 4d 4f 24 20 ┆LSET FLN$ = FIELDNO$ : LSET MO$ ┆
0x00d220…00d240 3d 20 4d 4f 44 45 24 20 3a 20 4c 53 45 54 20 53 4d 24 20 3d 20 53 50 45 43 4d 4f 44 24 0d 0a 34 ┆= MODE$ : LSET SM$ = SPECMOD$ 4┆
0x00d240…00d260 36 34 37 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆647 REM ************************┆
0x00d260…00d280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00d280…00d2a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 34 38 20 52 45 4d 20 2a 20 20 43 41 4c 4c ┆************** 4648 REM * CALL┆
0x00d2a0…00d2c0 20 54 48 45 20 44 45 50 20 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 34 36 34 39 20 52 45 4d ┆ THE DEP * 4649 REM┆
0x00d2c0…00d2e0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x00d2e0…00d300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00d300…00d500 (3, 1, 12) DataBlock {»FGENSUB.MAC«}
0x00d500…00d700 (3, 1, 13) DataBlock {»EFMTINT.MAC«}
[…0x1…]
0x00d900…00db00 (3, 1, 15) DataBlock {»FGENSUB.MAC«}
[…0x11…]
0x00fd00…00fd20 (4, 1, 3) 3d 20 22 30 34 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 20 20 20 20 20 20 20 ┆= "04" : SPECMOD$ = "000" ┆
0x00fd20…00fd40 20 20 20 09 09 0d 0a 36 32 30 30 20 47 4f 53 55 42 20 39 31 35 30 20 3a 20 47 4f 53 55 42 20 39 ┆ 6200 GOSUB 9150 : GOSUB 9┆
0x00fd40…00fd60 34 35 30 20 3a 20 47 4f 53 55 42 20 39 35 35 30 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a ┆450 : GOSUB 9550 REM *┆
0x00fd60…00fd80 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 49 45 4c 44 20 41 4e 44 20 57 52 49 54 45 20 ┆** INIT ARBSTAT-FIELD AND WRITE ┆
0x00fd80…00fda0 41 52 42 53 54 41 54 0d 0a 36 32 32 30 20 47 4f 54 4f 20 35 35 33 30 20 20 20 20 20 20 20 20 20 ┆ARBSTAT 6220 GOTO 5530 ┆
0x00fda0…00fdc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 0d 0a 36 33 33 ┆ 633┆
0x00fdc0…00fde0 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 REM **************************┆
0x00fde0…00fe00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00fe00…00fe20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 33 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 ┆************ 6332 REM * SUB.: ┆
0x00fe20…00fe40 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 20 ┆PRINT ERRMSG. IN LINE 25 ┆
0x00fe40…00fe60 20 20 2a 0d 0a 36 33 33 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 6333 REM ******************┆
0x00fe60…00fe80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00fe80…00fea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 33 34 20 45 52 52 4d 53 ┆******************** 6334 ERRMS┆
0x00fea0…00fec0 47 4e 52 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 33 33 38 20 47 4f ┆GNR% = 10 : GOSUB 20000 6338 GO┆
0x00fec0…00fee0 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 36 33 33 39 20 52 45 4d 20 2a 2a 2a 2a ┆SUB 1000 : RETURN 6339 REM ****┆
0x00fee0…00ff00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00ff00…00ff20 (4, 1, 4) 20 46 4f 52 4d 42 59 54 45 53 24 20 3d 20 22 23 26 22 20 54 48 45 4e 20 37 30 0d 0a 36 33 20 52 ┆ FORMBYTES$ = "#&" THEN 70 63 R┆
0x00ff20…00ff40 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x00ff40…00ff60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x00ff60…00ff80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 34 20 52 45 4d 20 09 2a 20 20 4e 4f 20 44 45 50 20 46 4f ┆********** 64 REM * NO DEP FO┆
0x00ff80…00ffa0 52 4d 41 54 20 49 44 2e 20 21 21 21 20 50 52 49 4e 54 20 45 52 52 4d 53 47 20 41 4e 44 20 53 54 ┆RMAT ID. !!! PRINT ERRMSG AND ST┆
0x00ffa0…00ffc0 4f 50 20 54 48 45 20 53 59 53 54 45 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 36 35 20 ┆OP THE SYSTEM * 65 ┆
0x00ffc0…00ffe0 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x00ffe0…010000 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010000…010020 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 36 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 31 20 3a ┆*********** 66 ERRMSGNR% = 11 :┆
0x010020…010040 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 38 20 47 4f 54 4f 20 36 38 09 09 09 09 09 09 09 09 ┆ GOSUB 20000 68 GOTO 68 ┆
0x010040…010060 09 52 45 4d 20 2a 2a 2a 20 49 4c 4c 45 47 41 4c 20 44 49 53 4b 20 31 20 21 21 20 4e 4f 20 44 45 ┆ REM *** ILLEGAL DISK 1 !! NO DE┆
0x010060…010080 50 2d 46 4f 52 4d 41 54 20 21 21 0d 0a 36 39 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆P-FORMAT !! 69 REM ************┆
0x010080…0100a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0100a0…0100c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 30 20 ┆*************************** 70 ┆
0x0100c0…0100e0 52 45 4d 09 2a 20 20 49 4e 49 54 20 41 4e 44 20 43 41 4c 4c 20 44 45 50 20 54 4f 20 50 52 49 4e ┆REM * INIT AND CALL DEP TO PRIN┆
0x0100e0…010100 54 20 4d 45 4e 55 45 20 4f 4e 20 43 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T MENUE ON CRT ┆
0x010100…010300 (4, 1, 5) DataBlock {»FGENSUB.MAC«}
[…0x1…]
0x010480…0104a0 63 09 68 6c 09 09 3b 0d 0a 09 6c 64 09 61 2c 28 42 4c 49 4e 53 56 29 09 3b 0d 0a 09 6a 70 09 42 ┆c hl ; ld a,(BLINSV) ; jp B┆
0x0104a0…0104c0 4c 49 4e 49 31 09 09 3b 0d 0a 42 4c 49 4e 49 32 3a 09 70 6f 70 09 64 65 09 09 3b 72 65 73 74 6f ┆LINI1 ; BLINI2: pop de ;resto┆
0x0104c0…0104e0 72 65 20 64 65 0d 0a 09 72 65 74 09 09 09 3b 0d 0a 3b 0d 0a 42 4c 49 4e 53 56 3a 09 64 62 09 30 ┆re de ret ; ; BLINSV: db 0┆
0x0104e0…010500 30 68 09 09 3b 0d 0a 3b 0d 0a 3b 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 69 6c 6c 20 6d 6f ┆0h ; ; ;the following will mo┆
0x010500…010520 (4, 1, 7) 31 20 52 45 4d 09 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 REM *************************┆
0x010520…010540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 20 52 45 4d ┆************************* 2 REM┆
0x010540…010560 09 09 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x010560…010580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 33 20 52 45 4d 09 09 2a 09 4d ┆ * 3 REM * M┆
0x010580…0105a0 4f 44 55 4c 45 20 3a 20 46 4f 52 4d 41 54 20 20 2e 42 41 53 20 28 54 4b 44 45 53 2f 52 43 38 35 ┆ODULE : FORMAT .BAS (TKDES/RC85┆
0x0105a0…0105c0 30 29 20 20 20 20 20 20 2a 0d 0a 34 20 52 45 4d 09 09 2a 09 44 41 54 45 20 20 20 3a 20 30 35 2e ┆0) * 4 REM * DATE : 05.┆
0x0105c0…0105e0 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a ┆02.82 * ┆
0x0105e0…010600 35 20 52 45 4d 09 09 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 4d 42 48 20 2c 20 36 34 37 ┆5 REM * BY : ASE GMBH , 647┆
0x010600…010620 32 20 41 4c 54 45 4e 53 54 41 44 54 20 20 20 20 20 20 2a 0d 0a 36 20 52 45 4d 09 09 2a 09 56 45 ┆2 ALTENSTADT * 6 REM * VE┆
0x010620…010640 52 53 49 4f 4e 3a 20 31 2e 39 31 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RSION: 1.91G ┆
0x010640…010660 20 20 20 20 20 20 20 2a 0d 0a 37 20 52 45 4d 09 09 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 7 REM * ┆
0x010660…010680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x010680…0106a0 20 20 2a 0d 0a 38 20 52 45 4d 09 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 8 REM ********************┆
0x0106a0…0106c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a ┆****************************** ┆
0x0106c0…0106e0 39 20 52 45 4d 0d 0a 31 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆9 REM 10 REM ******************┆
0x0106e0…010700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010700…010900 (4, 1, 8) DataBlock {»EENTRY.MAC«}
0x010900…010b00 (4, 1, 9) DataBlock {»FGENSUB.MAC«}
0x010b00…010b20 (4, 1, 10) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ REM ***┆
0x010b20…010b40 20 46 49 4c 45 20 49 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 0d 0a 36 30 35 30 20 49 46 20 ┆ FILE IN ARBSTAT-DIR ? 6050 IF ┆
0x010b40…010b60 46 49 4c 45 49 4e 44 49 52 25 20 3d 20 30 20 20 54 48 45 4e 20 47 4f 53 55 42 20 38 31 37 30 20 ┆FILEINDIR% = 0 THEN GOSUB 8170 ┆
0x010b60…010b80 3a 20 47 4f 53 55 42 20 32 31 31 30 20 3a 20 47 4f 53 55 42 20 31 38 37 38 20 3a 20 47 4f 54 4f ┆: GOSUB 2110 : GOSUB 1878 : GOTO┆
0x010b80…010ba0 20 31 31 31 30 0d 0a 36 30 35 35 20 52 31 24 20 3d 20 4d 49 44 24 28 4e 41 4d 45 24 2c 31 33 2c ┆ 1110 6055 R1$ = MID$(NAME$,13,┆
0x010ba0…010bc0 34 29 20 3a 20 52 31 25 20 3d 20 56 41 4c 28 52 31 24 29 0d 0a 36 30 36 30 20 47 4f 53 55 42 20 ┆4) : R1% = VAL(R1$) 6060 GOSUB ┆
0x010bc0…010be0 39 31 35 30 20 3a 20 47 4f 53 55 42 20 39 35 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9150 : GOSUB 9564 ┆
0x010be0…010c00 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 ┆ REM *** INIT ARBSTAT-F┆
0x010c00…010c20 49 45 4c 44 0d 0a 36 30 38 30 20 49 46 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 32 33 2c 33 29 20 3d ┆IELD 6080 IF MID$(NONZ$,23,3) =┆
0x010c20…010c40 20 22 45 52 52 22 20 54 48 45 4e 20 47 4f 53 55 42 20 36 34 36 30 0d 0a 36 30 39 30 20 49 46 20 ┆ "ERR" THEN GOSUB 6460 6090 IF ┆
0x010c40…010c60 4d 49 44 24 28 4e 4f 4e 5a 24 2c 31 31 2c 38 29 20 3c 3e 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d ┆MID$(NONZ$,11,8) <> MID$(FORMNAM┆
0x010c60…010c80 45 24 2c 31 2c 38 29 20 54 48 45 4e 20 47 4f 53 55 42 20 36 34 31 30 20 3a 20 47 4f 54 4f 20 35 ┆E$,1,8) THEN GOSUB 6410 : GOTO 5┆
0x010c80…010ca0 36 39 30 0d 0a 36 31 30 30 20 4e 4f 4e 5a 35 30 24 20 3d 20 4e 4f 4e 5a 24 20 3a 20 4d 49 44 24 ┆690 6100 NONZ50$ = NONZ$ : MID$┆
0x010ca0…010cc0 28 4e 4f 4e 5a 35 30 24 2c 32 33 2c 33 29 20 3d 20 22 53 2e 2e 22 0d 0a 36 31 32 30 20 50 53 54 ┆(NONZ50$,23,3) = "S.." 6120 PST┆
0x010cc0…010ce0 41 54 55 53 24 20 3d 20 53 50 24 0d 0a 36 31 34 30 20 47 4f 53 55 42 20 39 32 38 30 20 20 20 20 ┆ATUS$ = SP$ 6140 GOSUB 9280 ┆
0x010ce0…010d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 ┆ ┆
0x010d00…010d20 (4, 1, 11) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 20 52 45 4d 09 2a 20 ┆********************* 11 REM * ┆
0x010d20…010d40 20 53 45 54 20 45 52 52 4f 52 2d 48 41 4e 44 4c 49 4e 47 20 50 4f 49 4e 54 45 52 20 41 4e 44 20 ┆ SET ERROR-HANDLING POINTER AND ┆
0x010d40…010d60 52 45 41 44 20 57 4f 52 4b 4e 4f 2e 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 ┆READ WORKNO. FROM CHAININF-FILE ┆
0x010d60…010d80 20 20 20 20 2a 0d 0a 31 32 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 12 REM ******************┆
0x010d80…010da0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010da0…010dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 33 20 4f 4e 20 45 52 52 ┆********************* 13 ON ERR┆
0x010dc0…010de0 4f 52 20 47 4f 54 4f 20 31 30 30 30 30 20 3a 20 47 4f 53 55 42 20 32 32 32 30 30 20 20 20 20 20 ┆OR GOTO 10000 : GOSUB 22200 ┆
0x010de0…010e00 20 20 20 20 20 09 09 09 09 20 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 57 4f 52 4b 2d 4e 4f 2e ┆ REM *** READ WORK-NO.┆
0x010e00…010e20 0d 0a 31 34 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 20 31 20 4f 52 20 56 41 4c 28 41 ┆ 14 IF VAL(ARBNR$) < 1 OR VAL(A┆
0x010e20…010e40 52 42 4e 52 24 29 20 3e 20 31 31 20 47 4f 54 4f 20 31 36 20 45 4c 53 45 20 47 4f 54 4f 20 31 30 ┆RBNR$) > 11 GOTO 16 ELSE GOTO 10┆
0x010e40…010e60 31 30 0d 0a 31 36 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆10 16 REM *********************┆
0x010e60…010e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x010e80…010ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 20 52 45 4d 20 09 2a 20 20 52 ┆****************** 17 REM * R┆
0x010ea0…010ec0 45 41 44 20 4d 45 4e 55 45 20 46 52 4f 4d 20 44 45 50 2d 46 4f 52 4d 2d 46 49 4c 45 20 20 20 20 ┆EAD MENUE FROM DEP-FORM-FILE ┆
0x010ec0…010ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x010ee0…010f00 20 20 2a 0d 0a 31 38 20 52 45 4d 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 18 REM *******************┆
0x010f00…011100 (4, 1, 12) DataBlock {»EENTRY.MAC«}
0x011100…011300 (4, 1, 13) DataBlock {»FGENSUB.MAC«}
0x011300…011320 (4, 1, 14) 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 41 54 2d 46 49 4c 45 0d 0a 36 31 35 35 20 47 ┆REM *** OPEN FORMAT-FILE 6155 G┆
0x011320…011340 4f 53 55 42 20 39 35 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OSUB 9580 ┆
0x011340…011360 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d 41 ┆ REM *** INIT FORMA┆
0x011360…011380 54 2d 42 55 46 46 45 52 0d 0a 36 31 36 30 20 41 44 44 46 4f 52 4d 25 20 3d 20 30 20 3a 20 47 4f ┆T-BUFFER 6160 ADDFORM% = 0 : GO┆
0x011380…0113a0 53 55 42 20 36 35 33 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆SUB 6535 ┆
0x0113a0…0113c0 09 52 45 4d 20 2a 2a 2a 20 46 4f 52 4d 41 54 2d 4e 52 2e 20 49 4e 20 46 4f 52 4d 41 54 2d 44 49 ┆ REM *** FORMAT-NR. IN FORMAT-DI┆
0x0113c0…0113e0 52 2e 20 3f 0d 0a 36 31 36 32 20 49 46 20 46 4f 52 4d 4e 52 55 53 45 25 20 54 48 45 4e 20 53 46 ┆R. ? 6162 IF FORMNRUSE% THEN SF┆
0x0113e0…011400 4f 52 4d 4e 52 25 20 3d 20 46 4f 52 4d 4e 52 25 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 52 46 4f ┆ORMNR% = FORMNR% : FORMNR% = RFO┆
0x011400…011420 52 4d 4e 52 25 20 3a 20 47 4f 54 4f 20 36 31 36 36 0d 0a 36 31 36 34 20 49 46 20 46 4f 52 4d 4e ┆RMNR% : GOTO 6166 6164 IF FORMN┆
0x011420…011440 52 53 50 25 20 3d 20 30 20 47 4f 54 4f 20 36 36 31 30 20 45 4c 53 45 20 53 46 4f 52 4d 4e 52 25 ┆RSP% = 0 GOTO 6610 ELSE SFORMNR%┆
0x011440…011460 20 3d 20 46 4f 52 4d 4e 52 25 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 52 53 46 4f 52 4d 4e 52 25 ┆ = FORMNR% : FORMNR% = RSFORMNR%┆
0x011460…011480 20 3a 20 47 4f 54 4f 20 36 33 36 30 0d 0a 36 31 36 36 20 47 4f 53 55 42 20 39 36 37 34 20 20 20 ┆ : GOTO 6360 6166 GOSUB 9674 ┆
0x011480…0114a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 ┆ ┆
0x0114a0…0114c0 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f 52 4d 41 54 2d 52 45 43 2e 0d 0a 36 31 38 ┆ REM *** READ FORMAT-REC. 618┆
0x0114c0…0114e0 30 20 49 46 20 46 4f 52 4d 42 59 54 45 53 24 20 3c 3e 20 22 23 26 22 20 54 48 45 4e 20 47 4f 53 ┆0 IF FORMBYTES$ <> "#&" THEN GOS┆
0x0114e0…011500 55 42 20 36 33 33 34 20 3a 20 47 4f 54 4f 20 35 36 35 30 0d 0a 36 31 39 30 20 4d 4f 44 45 24 20 ┆UB 6334 : GOTO 5650 6190 MODE$ ┆
0x011500…011520 (4, 1, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x011520…011540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 30 20 45 52 52 46 4c 41 47 ┆******************** 20 ERRFLAG┆
0x011540…011560 25 20 3d 20 30 20 3a 20 44 45 50 46 4f 52 4d 25 20 3d 20 30 20 3a 20 41 52 42 53 54 41 54 4f 50 ┆% = 0 : DEPFORM% = 0 : ARBSTATOP┆
0x011560…011580 45 4e 25 20 3d 20 30 20 3a 20 41 52 42 53 54 41 54 57 52 49 54 45 25 20 3d 20 30 0d 0a 32 31 20 ┆EN% = 0 : ARBSTATWRITE% = 0 21 ┆
0x011580…0115a0 55 53 52 46 4f 52 4d 46 4f 50 45 4e 25 20 3d 20 30 20 3a 20 46 4f 52 4d 43 48 41 49 4e 45 52 52 ┆USRFORMFOPEN% = 0 : FORMCHAINERR┆
0x0115a0…0115c0 4f 52 25 20 3d 20 30 0d 0a 32 35 20 43 4c 4f 53 45 20 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a ┆OR% = 0 25 CLOSE REM *┆
0x0115c0…0115e0 2a 2a 20 43 4c 4f 53 45 20 41 4c 4c 20 46 49 4c 45 53 0d 0a 33 30 20 46 4f 52 4d 4e 41 4d 45 24 ┆** CLOSE ALL FILES 30 FORMNAME$┆
0x0115e0…011600 20 3d 20 22 44 45 50 46 4f 52 4d 20 2e 44 45 50 22 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 ┆ = "DEPFORM .DEP" : FILENAME$ = ┆
0x011600…011620 46 4f 52 4d 4e 41 4d 45 24 0d 0a 34 30 20 47 4f 53 55 42 20 39 32 38 30 20 20 20 20 20 20 20 20 ┆FORMNAME$ 40 GOSUB 9280 ┆
0x011620…011640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 ┆ ┆
0x011640…011660 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 2d 46 49 4c 45 0d 0a 35 30 20 47 4f 53 55 42 ┆REM *** OPEN FORM-FILE 50 GOSUB┆
0x011660…011680 20 39 35 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 9580 ┆
0x011680…0116a0 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d 42 55 ┆ REM *** INIT FORMBU┆
0x0116a0…0116c0 46 46 45 52 2d 46 49 45 4c 44 0d 0a 35 35 20 46 4f 52 4d 4e 52 25 20 3d 20 36 20 3a 20 47 4f 53 ┆FFER-FIELD 55 FORMNR% = 6 : GOS┆
0x0116c0…0116e0 55 42 20 39 36 37 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆UB 9674 ┆
0x0116e0…011700 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f 52 4d 41 52 2d 52 45 43 2e 0d 0a 36 30 20 49 46 ┆ REM *** READ FORMAR-REC. 60 IF┆
0x011700…011900 (5, 0, 1) DataBlock {»EENTRY.MAC«}
[…0xa…]
0x012d00…012f00 (5, 0, 12) DataBlock {»VERIFY.BAS«}
0x012f00…013100 (5, 0, 13) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x013500…013700 (5, 1, 1) DataBlock {»VERIFY.BAS«}
[…0x30…]
0x019580…0195a0 20 4c 50 52 49 4e 54 20 56 24 20 3a 20 52 45 54 55 52 4e 0d 0a 32 37 36 33 39 20 49 46 20 57 24 ┆ LPRINT V$ : RETURN 27639 IF W$┆
0x0195a0…0195c0 20 3d 20 53 50 41 43 45 24 28 38 30 29 20 54 48 45 4e 20 4c 50 52 49 4e 54 20 22 22 20 3a 20 52 ┆ = SPACE$(80) THEN LPRINT "" : R┆
0x0195c0…0195e0 45 54 55 52 4e 20 45 4c 53 45 20 4c 50 52 49 4e 54 20 57 24 20 3a 20 52 45 54 55 52 4e 0d 0a 32 ┆ETURN ELSE LPRINT W$ : RETURN 2┆
0x0195e0…019600 37 36 34 30 20 49 46 20 58 24 20 3d 20 53 50 41 43 45 24 28 38 30 29 20 54 48 45 4e 20 4c 50 52 ┆7640 IF X$ = SPACE$(80) THEN LPR┆
0x019600…019620 49 4e 54 20 22 22 20 3a 20 52 45 54 55 52 4e 20 45 4c 53 45 20 4c 50 52 49 4e 54 20 58 24 20 3a ┆INT "" : RETURN ELSE LPRINT X$ :┆
0x019620…019640 20 52 45 54 55 52 4e 0d 0a 32 37 36 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RETURN 27650 REM *************┆
0x019640…019660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x019660…019680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 36 35 32 20 ┆************************ 27652 ┆
0x019680…0196a0 52 45 4d 20 2a 20 54 4f 50 20 4f 46 20 46 4f 52 4d 20 28 54 4f 46 29 09 09 09 09 09 09 20 20 20 ┆REM * TOP OF FORM (TOF) ┆
0x0196a0…0196c0 20 20 20 2a 0d 0a 32 37 36 35 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 27654 REM ****************┆
0x0196c0…0196e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0196e0…019700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 36 36 30 20 4c 50 52 ┆********************* 27660 LPR┆
0x019700…019900 (7, 0, 5) DataBlock {»VERIFY.BAS«}
[…0x2…]
0x019d00…019d20 (7, 0, 8) 35 35 30 20 4e 45 58 54 20 49 25 0d 0a 32 36 35 36 30 20 50 52 49 4e 54 20 43 48 52 24 28 38 29 ┆550 NEXT I% 26560 PRINT CHR$(8)┆
0x019d20…019d40 3b 43 48 52 24 28 38 29 3b 20 3a 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 31 ┆;CHR$(8); : KEYINPUT$ = SPACE$(1┆
0x019d40…019d60 29 20 3a 20 47 4f 54 4f 20 32 36 35 30 30 0d 0a 32 36 35 37 30 20 4e 52 49 4e 53 45 52 54 25 20 ┆) : GOTO 26500 26570 NRINSERT% ┆
0x019d60…019d80 3d 20 56 41 4c 28 4e 52 49 4e 53 45 52 54 24 29 0d 0a 32 36 35 38 30 20 49 46 20 4e 52 49 4e 53 ┆= VAL(NRINSERT$) 26580 IF NRINS┆
0x019d80…019da0 45 52 54 25 20 3d 20 30 20 54 48 45 4e 20 58 50 4f 53 25 20 3d 20 31 20 3a 20 59 50 4f 53 25 20 ┆ERT% = 0 THEN XPOS% = 1 : YPOS% ┆
0x019da0…019dc0 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 3a 20 50 52 49 4e 54 20 53 50 41 43 45 24 ┆= 25 : GOSUB 1990 : PRINT SPACE$┆
0x019dc0…019de0 28 33 33 29 3b 20 3a 20 47 4f 54 4f 20 32 35 34 30 30 0d 0a 32 36 35 39 30 20 53 52 52 45 43 43 ┆(33); : GOTO 25400 26590 SRRECC┆
0x019de0…019e00 4f 55 4e 54 25 20 3d 20 52 52 45 43 43 4f 55 4e 54 25 20 3a 20 43 48 41 49 4e 46 4f 52 4d 4e 52 ┆OUNT% = RRECCOUNT% : CHAINFORMNR┆
0x019e00…019e20 24 20 3d 20 46 43 24 20 3a 20 49 4e 53 45 52 54 52 45 43 25 20 3d 20 31 0d 0a 32 36 36 30 30 20 ┆$ = FC$ : INSERTREC% = 1 26600 ┆
0x019e20…019e40 49 57 52 45 43 43 4f 55 4e 54 25 20 3d 20 57 52 45 43 43 4f 55 4e 54 25 20 2b 20 4e 52 49 4e 53 ┆IWRECCOUNT% = WRECCOUNT% + NRINS┆
0x019e40…019e60 45 52 54 25 20 3a 20 53 49 57 52 45 43 43 4f 55 4e 54 25 20 3d 20 49 57 52 45 43 43 4f 55 4e 54 ┆ERT% : SIWRECCOUNT% = IWRECCOUNT┆
0x019e60…019e80 25 0d 0a 32 36 36 31 30 20 4c 4f 4f 50 49 4e 53 45 52 54 25 20 3d 20 57 52 45 43 43 4f 55 4e 54 ┆% 26610 LOOPINSERT% = WRECCOUNT┆
0x019e80…019ea0 25 20 2d 20 52 52 45 43 43 4f 55 4e 54 25 20 2b 20 31 0d 0a 32 36 36 32 30 20 52 52 45 43 43 4f ┆% - RRECCOUNT% + 1 26620 RRECCO┆
0x019ea0…019ec0 55 4e 54 25 20 3d 20 57 52 45 43 43 4f 55 4e 54 25 0d 0a 32 36 36 33 30 20 46 4f 52 20 49 25 20 ┆UNT% = WRECCOUNT% 26630 FOR I% ┆
0x019ec0…019ee0 3d 20 31 20 54 4f 20 4c 4f 4f 50 49 4e 53 45 52 54 25 0d 0a 32 36 36 34 30 20 47 4f 53 55 42 20 ┆= 1 TO LOOPINSERT% 26640 GOSUB ┆
0x019ee0…019f00 32 37 31 34 30 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 44 41 54 41 2d 52 ┆27140 REM *** READ DATA-R┆
0x019f00…01a100 (7, 0, 9) DataBlock {»VERIFY.BAS«}
[…0x2…]
0x01a500…01a700 (7, 0, 12) DataBlock {»CHAININF.BAS«}
0x01a700…01a900 (7, 0, 13) DataBlock {»VERIFY.BAS«}
[…0x2…]
0x01ad00…01ae80 (7, 1, 1) DataBlock {»CHAININF.BAS«}
0x01ae80…01aea0 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x01aea0…01aec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 20 52 45 4d 0d 0a 31 ┆********************** 9 REM 1┆
0x01aec0…01aee0 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 REM **************************┆
0x01aee0…01af00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01af00…01b100 (7, 1, 2) DataBlock {»INFO.TEX«}
[…0x2…]
0x01b400…01b420 65 6e 74 20 6b 65 79 62 6f 61 72 64 20 2c 20 77 68 69 63 68 20 75 73 65 73 20 64 69 66 66 65 72 ┆ent keyboard , which uses differ┆
0x01b420…01b440 65 6e 74 20 63 6f 64 69 6e 67 2c 0d 0a 74 68 65 20 65 71 75 61 74 65 73 20 69 6e 20 74 68 65 20 ┆ent coding, the equates in the ┆
0x01b440…01b460 66 69 6c 65 73 20 27 46 46 4f 52 4d 41 54 2e 4d 41 43 27 20 61 6e 64 20 27 45 45 4e 54 52 59 2e ┆files 'FFORMAT.MAC' and 'EENTRY.┆
0x01b460…01b480 52 45 4c 27 20 6e 65 65 64 0d 0a 74 6f 20 62 65 20 61 64 6a 75 73 74 65 64 2e 20 44 6f 20 6e 6f ┆REL' need to be adjusted. Do no┆
0x01b480…01b4a0 74 20 6d 6f 64 69 66 79 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 74 68 65 20 65 71 75 61 74 65 ┆t modify the names of the equate┆
0x01b4a0…01b4c0 73 2c 20 62 75 74 0d 0a 6f 6e 6c 79 20 74 68 65 20 61 73 73 69 67 6e 65 64 20 76 61 6c 75 65 73 ┆s, but only the assigned values┆
0x01b4c0…01b4e0 2e 0d 0a 0d 0a 38 2e 20 43 68 61 6e 67 69 6e 67 20 63 6f 64 65 2d 73 65 74 73 2e 0d 0a 0d 0a 74 ┆. 8. Changing code-sets. t┆
0x01b4e0…01b500 6f 20 63 68 61 6e 67 65 20 74 68 65 20 63 6f 64 65 2d 73 65 74 20 66 72 6f 6d 20 67 65 72 6d 61 ┆o change the code-set from germa┆
0x01b500…01b520 (7, 1, 5) 3d 20 46 31 25 20 2b 20 33 0d 0a 32 36 37 37 30 20 4e 45 58 54 20 46 50 25 0d 0a 32 36 37 38 30 ┆= F1% + 3 26770 NEXT FP% 26780┆
0x01b520…01b540 20 52 45 54 55 52 4e 0d 0a 32 36 37 39 30 20 46 4f 52 4d 4e 52 55 53 45 25 20 3d 20 31 20 3a 20 ┆ RETURN 26790 FORMNRUSE% = 1 : ┆
0x01b540…01b560 46 4f 52 4d 4e 52 25 20 3d 20 46 50 25 20 3a 20 46 4f 52 4d 43 48 4b 45 59 24 20 3d 20 4d 49 44 ┆FORMNR% = FP% : FORMCHKEY$ = MID┆
0x01b560…01b580 24 28 46 4f 52 4d 43 48 42 55 46 46 45 52 24 2c 46 31 25 2c 33 29 0d 0a 32 36 38 30 30 20 52 45 ┆$(FORMCHBUFFER$,F1%,3) 26800 RE┆
0x01b580…01b5a0 54 55 52 4e 0d 0a 32 36 38 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TURN 26810 REM ****************┆
0x01b5a0…01b5c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01b5c0…01b5e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 36 38 31 32 20 52 45 4d ┆********************* 26812 REM┆
0x01b5e0…01b600 20 2a 20 53 55 42 2e 3a 20 43 41 4c 43 2e 20 44 41 54 41 42 55 46 46 45 52 2d 53 49 5a 45 20 41 ┆ * SUB.: CALC. DATABUFFER-SIZE A┆
0x01b600…01b620 4e 44 20 4f 50 45 4e 20 44 41 54 41 2d 46 49 4c 45 09 09 20 20 20 20 20 20 2a 0d 0a 32 36 38 31 ┆ND OPEN DATA-FILE * 2681┆
0x01b620…01b640 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆4 REM **************************┆
0x01b640…01b660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01b660…01b680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 36 38 32 30 20 44 42 31 25 20 3d 20 30 20 3a 20 44 42 ┆*********** 26820 DB1% = 0 : DB┆
0x01b680…01b6a0 32 25 20 3d 20 30 20 3a 20 44 42 33 25 20 3d 20 30 20 3a 20 44 42 34 25 20 3d 20 30 20 3a 20 44 ┆2% = 0 : DB3% = 0 : DB4% = 0 : D┆
0x01b6a0…01b6c0 42 35 25 20 3d 20 30 20 3a 20 44 42 36 25 20 3d 20 30 20 3a 20 44 42 37 25 20 3d 20 30 20 3a 20 ┆B5% = 0 : DB6% = 0 : DB7% = 0 : ┆
0x01b6c0…01b6e0 44 42 38 25 20 3d 20 30 0d 0a 32 36 38 33 30 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 44 41 54 41 ┆DB8% = 0 26830 FILENAME$ = DATA┆
0x01b6e0…01b700 4e 41 4d 45 24 20 3a 20 49 46 20 52 45 43 4c 45 4e 47 54 48 25 20 3d 3c 20 32 35 35 20 54 48 45 ┆NAME$ : IF RECLENGTH% =< 255 THE┆
0x01b700…01b900 (7, 1, 6) DataBlock {»INFO.TEX«}
[…0x1…]
0x01bb00…01bb20 (7, 1, 8) 20 3a 20 59 50 4f 53 25 20 3d 20 31 31 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 34 38 20 ┆ : YPOS% = 11 : GOSUB 1990 548 ┆
0x01bb20…01bb40 47 4f 53 55 42 20 38 30 30 0d 0a 35 34 39 20 52 45 54 55 52 4e 0d 0a 35 35 30 20 58 50 4f 53 25 ┆GOSUB 800 549 RETURN 550 XPOS%┆
0x01bb40…01bb60 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 32 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d ┆ = 21 : YPOS% = 12 : GOSUB 1990 ┆
0x01bb60…01bb80 0a 35 35 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 34 20 52 45 54 55 52 4e 0d 0a 35 35 35 20 ┆ 553 GOSUB 800 554 RETURN 555 ┆
0x01bb80…01bba0 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 33 20 3a 20 47 4f 53 55 42 20 ┆XPOS% = 21 : YPOS% = 13 : GOSUB ┆
0x01bba0…01bbc0 31 39 39 30 0d 0a 35 35 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 39 20 52 45 54 55 52 4e 0d ┆1990 558 GOSUB 800 559 RETURN ┆
0x01bbc0…01bbe0 0a 35 36 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 ┆ 560 XPOS% = 21 : YPOS% = 14 : G┆
0x01bbe0…01bc00 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 36 34 20 52 45 ┆OSUB 1990 563 GOSUB 800 564 RE┆
0x01bc00…01bc20 54 55 52 4e 0d 0a 35 36 35 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 31 ┆TURN 565 XPOS% = 20 : YPOS% = 1┆
0x01bc20…01bc40 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 ┆5 : GOSUB 1990 568 GOSUB 800 5┆
0x01bc40…01bc60 36 39 20 52 45 54 55 52 4e 0d 0a 35 37 30 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 ┆69 RETURN 570 XPOS% = 20 : YPOS┆
0x01bc60…01bc80 25 20 3d 20 31 36 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 31 20 47 4f 53 55 42 20 38 ┆% = 16 : GOSUB 1990 571 GOSUB 8┆
0x01bc80…01bca0 30 30 0d 0a 35 37 32 20 52 45 54 55 52 4e 0d 0a 35 37 34 20 58 50 4f 53 25 20 3d 20 32 30 20 3a ┆00 572 RETURN 574 XPOS% = 20 :┆
0x01bca0…01bcc0 20 59 50 4f 53 25 20 3d 20 31 39 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 35 20 47 4f ┆ YPOS% = 19 : GOSUB 1990 575 GO┆
0x01bcc0…01bce0 53 55 42 20 38 30 30 0d 0a 35 37 36 20 52 45 54 55 52 4e 0d 0a 35 37 37 20 58 50 4f 53 25 20 3d ┆SUB 800 576 RETURN 577 XPOS% =┆
0x01bce0…01bd00 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 32 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 ┆ 20 : YPOS% = 20 : GOSUB 1990 5┆
0x01bd00…01bd20 (7, 1, 9) 4e 20 44 42 31 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 3a 20 47 4f 54 4f 20 32 36 38 37 30 ┆N DB1% = RECLENGTH% : GOTO 26870┆
0x01bd20…01bd40 0d 0a 32 36 38 34 30 20 46 4f 52 20 49 25 20 3d 20 31 20 54 4f 20 37 0d 0a 32 36 38 35 30 20 49 ┆ 26840 FOR I% = 1 TO 7 26850 I┆
0x01bd40…01bd60 46 20 52 45 43 4c 45 4e 47 54 48 25 20 3e 20 32 35 35 20 54 48 45 4e 20 47 4f 53 55 42 20 32 36 ┆F RECLENGTH% > 255 THEN GOSUB 26┆
0x01bd60…01bd80 39 31 30 0d 0a 32 36 38 36 30 20 4e 45 58 54 20 49 25 0d 0a 32 36 38 37 30 20 45 52 52 46 4c 41 ┆910 26860 NEXT I% 26870 ERRFLA┆
0x01bd80…01bda0 47 25 20 3d 20 30 0d 0a 32 36 38 38 30 20 44 42 25 20 3d 20 44 42 25 20 2b 20 44 42 31 25 2b 44 ┆G% = 0 26880 DB% = DB% + DB1%+D┆
0x01bda0…01bdc0 42 32 25 2b 44 42 33 25 2b 44 42 34 25 2b 44 42 35 25 2b 44 42 36 25 2b 44 42 37 25 2b 44 42 38 ┆B2%+DB3%+DB4%+DB5%+DB6%+DB7%+DB8┆
0x01bdc0…01bde0 25 2b 33 0d 0a 32 36 38 39 30 20 4f 50 45 4e 20 22 52 22 2c 23 33 2c 46 49 4c 45 4e 41 4d 45 24 ┆%+3 26890 OPEN "R",#3,FILENAME$┆
0x01bde0…01be00 2c 44 42 25 20 2b 20 32 0d 0a 32 36 39 30 30 20 52 45 54 55 52 4e 0d 0a 32 36 39 31 30 20 4f 4e ┆,DB% + 2 26900 RETURN 26910 ON┆
0x01be00…01be20 20 49 25 20 47 4f 54 4f 20 32 36 39 32 30 2c 32 36 39 33 30 2c 32 36 39 34 30 2c 32 36 39 35 30 ┆ I% GOTO 26920,26930,26940,26950┆
0x01be20…01be40 2c 32 36 39 36 30 2c 32 36 39 37 30 2c 32 36 39 38 30 0d 0a 32 36 39 32 30 20 44 42 31 25 20 3d ┆,26960,26970,26980 26920 DB1% =┆
0x01be40…01be60 20 32 35 35 20 3a 20 52 45 43 4c 45 4e 47 54 48 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 2d ┆ 255 : RECLENGTH% = RECLENGTH% -┆
0x01be60…01be80 20 32 35 35 20 3a 20 44 42 32 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 3a 20 52 45 54 55 52 ┆ 255 : DB2% = RECLENGTH% : RETUR┆
0x01be80…01bea0 4e 0d 0a 32 36 39 33 30 20 44 42 32 25 20 3d 20 32 35 35 20 3a 20 52 45 43 4c 45 4e 47 54 48 25 ┆N 26930 DB2% = 255 : RECLENGTH%┆
0x01bea0…01bec0 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 2d 20 32 35 35 20 3a 20 44 42 33 25 20 3d 20 52 45 43 ┆ = RECLENGTH% - 255 : DB3% = REC┆
0x01bec0…01bee0 4c 45 4e 47 54 48 25 20 3a 20 52 45 54 55 52 4e 0d 0a 32 36 39 34 30 20 44 42 33 25 20 3d 20 32 ┆LENGTH% : RETURN 26940 DB3% = 2┆
0x01bee0…01bf00 35 35 20 3a 20 52 45 43 4c 45 4e 47 54 48 25 20 3d 20 52 45 43 4c 45 4e 47 54 48 25 20 2d 20 32 ┆55 : RECLENGTH% = RECLENGTH% - 2┆
0x01bf00…01c100 (7, 1, 10) DataBlock {»INFO.TEX«}
[…0x1…]
0x01c300…01c320 (7, 1, 12) 37 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 37 39 20 52 45 54 55 52 4e 0d 0a 35 38 30 20 52 45 ┆78 GOSUB 800 579 RETURN 580 RE┆
0x01c320…01c340 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x01c340…01c360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01c360…01c380 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 38 35 20 52 45 4d 20 2a 20 20 52 45 50 4c 41 43 45 20 44 41 ┆********* 585 REM * REPLACE DA┆
0x01c380…01c3a0 54 41 2d 46 4c 4f 50 50 59 20 49 4e 20 44 52 49 56 45 20 31 20 09 09 09 09 20 20 20 20 20 20 2a ┆TA-FLOPPY IN DRIVE 1 *┆
0x01c3a0…01c3c0 0d 0a 35 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 590 REM **********************┆
0x01c3c0…01c3e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01c3e0…01c400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 30 30 20 46 49 4c 45 4e 41 4d 45 24 ┆***************** 600 FILENAME$┆
0x01c400…01c420 20 3d 20 22 52 45 53 45 54 22 20 3a 20 52 45 53 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = "RESET" : RESET ┆
0x01c420…01c440 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 43 50 2f 4d 20 44 49 52 2e 20 4f ┆ REM *** WRITE CP/M DIR. O┆
0x01c440…01c460 4e 20 44 49 53 4b 0d 0a 36 32 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 34 20 3a 20 47 4f 53 ┆N DISK 620 ERRMSGNR% = 14 : GOS┆
0x01c460…01c480 55 42 20 32 30 30 30 30 0d 0a 36 33 30 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 36 34 32 20 52 45 ┆UB 20000 630 GOSUB 1000 642 RE┆
0x01c480…01c4a0 53 45 54 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 54 48 45 20 4e 45 57 ┆SET REM *** INIT THE NEW┆
0x01c4a0…01c4c0 20 44 49 53 4b 0d 0a 36 34 34 20 47 4f 54 4f 20 31 36 0d 0a 36 34 35 20 52 45 4d 09 2a 2a 2a 2a ┆ DISK 644 GOTO 16 645 REM ****┆
0x01c4c0…01c4e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x01c500…01c700 (7, 1, 13) DataBlock {»INFO.TEX«}
[…0x2…]
0x01cb00…01cd00 (8, 0, 1) DataBlock {»ENTRYME.BAS«}
[…0x2f…]
0x022b00…022d00 (9, 1, 4) DataBlock {»FORMAT.BAS«}
0x022d00…022f00 (9, 1, 5) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x023300…023500 (9, 1, 8) DataBlock {»FORMAT.BAS«}
0x023500…023700 (9, 1, 9) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x023b00…023d00 (9, 1, 12) DataBlock {»FORMAT.BAS«}
0x023d00…023f00 (9, 1, 13) DataBlock {»ENTRYME.BAS«}
[…0x1…]
0x024100…024300 (9, 1, 15) DataBlock {»FORMAT.BAS«}
[…0x5b…]
0x02f900…02f920 (13, 0, 2) 39 20 3a 20 59 50 4f 53 25 20 3d 20 32 32 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 3a 20 50 52 ┆9 : YPOS% = 22 : GOSUB 1990 : PR┆
0x02f920…02f940 49 4e 54 20 22 2e 2e 22 3b 43 48 52 24 28 38 29 3b 43 48 52 24 28 38 29 3b 0d 0a 31 37 30 20 41 ┆INT "..";CHR$(8);CHR$(8); 170 A┆
0x02f940…02f960 52 42 4e 52 31 24 3d 49 4e 50 55 54 24 28 31 29 0d 0a 31 37 35 20 49 46 20 41 53 43 28 41 52 42 ┆RBNR1$=INPUT$(1) 175 IF ASC(ARB┆
0x02f960…02f980 4e 52 31 24 29 20 3d 20 31 32 20 47 4f 54 4f 20 31 33 35 0d 0a 31 38 30 20 49 46 20 41 53 43 28 ┆NR1$) = 12 GOTO 135 180 IF ASC(┆
0x02f980…02f9a0 41 52 42 4e 52 31 24 29 20 3c 20 34 38 20 4f 52 20 41 53 43 28 41 52 42 4e 52 31 24 29 20 3e 20 ┆ARBNR1$) < 48 OR ASC(ARBNR1$) > ┆
0x02f9a0…02f9c0 35 37 20 47 4f 54 4f 20 31 37 30 20 45 4c 53 45 20 31 39 30 0d 0a 31 39 30 20 4d 49 44 24 28 41 ┆57 GOTO 170 ELSE 190 190 MID$(A┆
0x02f9c0…02f9e0 52 42 4e 52 24 2c 31 2c 31 29 3d 41 52 42 4e 52 31 24 3a 50 52 49 4e 54 20 41 52 42 4e 52 31 24 ┆RBNR$,1,1)=ARBNR1$:PRINT ARBNR1$┆
0x02f9e0…02fa00 3b 0d 0a 32 30 30 20 41 52 42 4e 52 32 24 3d 49 4e 50 55 54 24 28 31 29 0d 0a 33 31 30 20 49 46 ┆; 200 ARBNR2$=INPUT$(1) 310 IF┆
0x02fa00…02fa20 20 41 53 43 28 41 52 42 4e 52 32 24 29 20 3d 20 31 33 20 47 4f 54 4f 20 33 36 30 0d 0a 33 32 30 ┆ ASC(ARBNR2$) = 13 GOTO 360 320┆
0x02fa20…02fa40 20 49 46 20 41 53 43 28 41 52 42 4e 52 32 24 29 20 3d 20 31 32 20 47 4f 54 4f 20 36 35 30 0d 0a ┆ IF ASC(ARBNR2$) = 12 GOTO 650 ┆
0x02fa40…02fa60 33 33 30 20 49 46 20 41 53 43 28 41 52 42 4e 52 32 24 29 20 3d 20 38 20 54 48 45 4e 20 50 52 49 ┆330 IF ASC(ARBNR2$) = 8 THEN PRI┆
0x02fa60…02fa80 4e 54 20 43 48 52 24 28 38 29 3b 20 3a 20 47 4f 54 4f 20 31 37 30 0d 0a 33 35 30 20 49 46 20 41 ┆NT CHR$(8); : GOTO 170 350 IF A┆
0x02fa80…02faa0 53 43 28 41 52 42 4e 52 32 24 29 20 3c 20 34 38 20 4f 52 20 41 53 43 28 41 52 42 4e 52 32 24 29 ┆SC(ARBNR2$) < 48 OR ASC(ARBNR2$)┆
0x02faa0…02fac0 20 3e 20 35 37 20 47 4f 54 4f 20 32 30 30 0d 0a 33 36 30 20 4d 49 44 24 28 41 52 42 4e 52 24 2c ┆ > 57 GOTO 200 360 MID$(ARBNR$,┆
0x02fac0…02fae0 32 2c 31 29 20 3d 20 41 52 42 4e 52 32 24 20 3a 20 50 52 49 4e 54 20 41 52 42 4e 52 32 24 3b 0d ┆2,1) = ARBNR2$ : PRINT ARBNR2$; ┆
0x02fae0…02fb00 0a 33 36 35 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 32 20 4f 52 20 56 41 4c 28 ┆ 365 IF VAL(ARBNR$) = 12 OR VAL(┆
0x02fb00…02fb20 (13, 0, 3) 20 3a 20 59 50 4f 53 25 20 3d 20 31 31 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 34 38 20 ┆ : YPOS% = 11 : GOSUB 1990 548 ┆
0x02fb20…02fb40 47 4f 53 55 42 20 38 30 30 0d 0a 35 34 39 20 52 45 54 55 52 4e 0d 0a 35 35 30 20 58 50 4f 53 25 ┆GOSUB 800 549 RETURN 550 XPOS%┆
0x02fb40…02fb60 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 32 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d ┆ = 21 : YPOS% = 12 : GOSUB 1990 ┆
0x02fb60…02fb80 0a 35 35 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 34 20 52 45 54 55 52 4e 0d 0a 35 35 35 20 ┆ 553 GOSUB 800 554 RETURN 555 ┆
0x02fb80…02fba0 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 33 20 3a 20 47 4f 53 55 42 20 ┆XPOS% = 21 : YPOS% = 13 : GOSUB ┆
0x02fba0…02fbc0 31 39 39 30 0d 0a 35 35 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 35 39 20 52 45 54 55 52 4e 0d ┆1990 558 GOSUB 800 559 RETURN ┆
0x02fbc0…02fbe0 0a 35 36 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 ┆ 560 XPOS% = 21 : YPOS% = 14 : G┆
0x02fbe0…02fc00 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 36 34 20 52 45 ┆OSUB 1990 563 GOSUB 800 564 RE┆
0x02fc00…02fc20 54 55 52 4e 0d 0a 35 36 35 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 31 ┆TURN 565 XPOS% = 20 : YPOS% = 1┆
0x02fc20…02fc40 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 36 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 ┆5 : GOSUB 1990 568 GOSUB 800 5┆
0x02fc40…02fc60 36 39 20 52 45 54 55 52 4e 0d 0a 35 37 30 20 58 50 4f 53 25 20 3d 20 32 30 20 3a 20 59 50 4f 53 ┆69 RETURN 570 XPOS% = 20 : YPOS┆
0x02fc60…02fc80 25 20 3d 20 31 36 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 31 20 47 4f 53 55 42 20 38 ┆% = 16 : GOSUB 1990 571 GOSUB 8┆
0x02fc80…02fca0 30 30 0d 0a 35 37 32 20 52 45 54 55 52 4e 0d 0a 35 37 34 20 58 50 4f 53 25 20 3d 20 32 30 20 3a ┆00 572 RETURN 574 XPOS% = 20 :┆
0x02fca0…02fcc0 20 59 50 4f 53 25 20 3d 20 31 39 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 37 35 20 47 4f ┆ YPOS% = 19 : GOSUB 1990 575 GO┆
0x02fcc0…02fce0 53 55 42 20 38 30 30 0d 0a 35 37 36 20 52 45 54 55 52 4e 0d 0a 35 37 37 20 58 50 4f 53 25 20 3d ┆SUB 800 576 RETURN 577 XPOS% =┆
0x02fce0…02fd00 20 32 30 20 3a 20 59 50 4f 53 25 20 3d 20 32 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 ┆ 20 : YPOS% = 20 : GOSUB 1990 5┆
0x02fd00…02fd20 (13, 0, 4) 4f 20 39 36 30 0d 0a 39 33 34 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 43 48 52 24 28 31 ┆O 960 934 IF KEYINPUT$ = CHR$(1┆
0x02fd20…02fd40 33 29 20 54 48 45 4e 20 47 4f 54 4f 20 39 37 30 0d 0a 39 33 36 20 49 46 20 41 53 43 28 4b 45 59 ┆3) THEN GOTO 970 936 IF ASC(KEY┆
0x02fd40…02fd60 49 4e 50 55 54 24 29 20 3c 20 33 32 20 4f 52 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3e ┆INPUT$) < 32 OR ASC(KEYINPUT$) >┆
0x02fd60…02fd80 20 31 32 32 20 54 48 45 4e 20 47 4f 54 4f 20 39 32 35 0d 0a 39 33 38 20 50 52 49 4e 54 20 4b 45 ┆ 122 THEN GOTO 925 938 PRINT KE┆
0x02fd80…02fda0 59 49 4e 50 55 54 24 3b 0d 0a 39 34 30 20 4d 49 44 24 28 50 52 4f 47 4e 41 4d 45 24 2c 49 25 2c ┆YINPUT$; 940 MID$(PROGNAME$,I%,┆
0x02fda0…02fdc0 31 29 20 3d 20 4b 45 59 49 4e 50 55 54 24 0d 0a 39 34 32 20 4e 45 58 54 20 49 25 0d 0a 39 34 34 ┆1) = KEYINPUT$ 942 NEXT I% 944┆
0x02fdc0…02fde0 20 49 25 20 3d 20 31 30 20 3a 20 50 52 49 4e 54 20 43 48 52 24 28 38 29 3b 20 3a 20 4f 4e 45 25 ┆ I% = 10 : PRINT CHR$(8); : ONE%┆
0x02fde0…02fe00 20 3d 20 38 20 3a 20 47 4f 54 4f 20 39 32 30 0d 0a 39 35 30 20 52 45 4d 20 2d 2d 2d 20 43 55 52 ┆ = 8 : GOTO 920 950 REM --- CUR┆
0x02fe00…02fe20 53 4f 52 20 42 57 44 20 2d 2d 2d 0d 0a 39 35 32 20 49 46 20 49 25 20 3d 20 31 20 54 48 45 4e 20 ┆SOR BWD --- 952 IF I% = 1 THEN ┆
0x02fe20…02fe40 47 4f 54 4f 20 39 32 35 0d 0a 39 35 34 20 50 52 49 4e 54 20 4b 45 59 49 4e 50 55 54 24 3b 0d 0a ┆GOTO 925 954 PRINT KEYINPUT$; ┆
0x02fe40…02fe60 39 35 36 20 49 25 20 3d 20 49 25 20 2d 20 31 20 3a 20 47 4f 54 4f 20 39 32 35 0d 0a 39 36 30 20 ┆956 I% = I% - 1 : GOTO 925 960 ┆
0x02fe60…02fe80 52 45 4d 20 2d 2d 2d 20 43 55 52 53 4f 52 20 46 57 44 20 2d 2d 2d 0d 0a 39 36 32 20 49 46 20 49 ┆REM --- CURSOR FWD --- 962 IF I┆
0x02fe80…02fea0 25 20 3d 20 31 30 20 54 48 45 4e 20 47 4f 54 4f 20 39 32 35 0d 0a 39 36 34 20 50 52 49 4e 54 20 ┆% = 10 THEN GOTO 925 964 PRINT ┆
0x02fea0…02fec0 4b 45 59 49 4e 50 55 54 24 3b 0d 0a 39 36 36 20 49 25 20 3d 20 49 25 20 2b 20 31 20 3a 20 47 4f ┆KEYINPUT$; 966 I% = I% + 1 : GO┆
0x02fec0…02fee0 54 4f 20 39 32 35 0d 0a 39 37 30 20 52 45 4d 20 2d 2d 2d 20 43 52 20 4b 45 59 20 2d 2d 2d 0d 0a ┆TO 925 970 REM --- CR KEY --- ┆
0x02fee0…02ff00 39 37 32 20 50 52 4f 47 4e 41 4d 45 24 20 3d 20 50 52 4f 47 4e 41 4d 45 24 20 2b 20 22 2e 43 4f ┆972 PROGNAME$ = PROGNAME$ + ".CO┆
0x02ff00…030100 (13, 0, 5) DataBlock {»FORMAT.BAS«}
0x030100…030120 (13, 0, 6) 41 52 42 4e 52 24 29 20 3d 20 31 33 20 54 48 45 4e 20 47 4f 53 55 42 20 34 30 30 20 3a 20 47 4f ┆ARBNR$) = 13 THEN GOSUB 400 : GO┆
0x030120…030140 54 4f 20 31 33 35 0d 0a 33 37 30 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 20 31 20 4f ┆TO 135 370 IF VAL(ARBNR$) < 1 O┆
0x030140…030160 52 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3e 20 31 35 20 54 48 45 4e 20 47 4f 53 55 42 20 34 30 ┆R VAL(ARBNR$) > 15 THEN GOSUB 40┆
0x030160…030180 30 20 3a 20 47 4f 54 4f 20 31 33 35 20 45 4c 53 45 20 35 30 30 0d 0a 34 30 30 20 52 45 4d 09 2a ┆0 : GOTO 135 ELSE 500 400 REM *┆
0x030180…0301a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0301c0…0301e0 2a 2a 2a 2a 2a 2a 0d 0a 34 30 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 ┆****** 402 REM * SUB.: PRINT E┆
0x0301e0…030200 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RRMSG. IN LINE 25 ┆
0x030200…030220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 34 30 34 20 52 45 4d ┆ * 404 REM┆
0x030220…030240 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x030240…030260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030260…030280 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 31 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 20 3a 20 47 4f ┆******** 410 ERRMSGNR% = 1 : GO┆
0x030280…0302a0 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 31 30 30 30 20 20 20 20 20 09 0d 0a 34 32 ┆SUB 20000 : GOSUB 1000 42┆
0x0302a0…0302c0 30 20 52 45 54 55 52 4e 0d 0a 34 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 RETURN 490 REM **************┆
0x0302c0…0302e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0302e0…030300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 39 35 20 52 ┆************************* 495 R┆
0x030300…030320 (13, 0, 7) 37 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 37 39 20 52 45 54 55 52 4e 0d 0a 35 38 30 20 52 45 ┆78 GOSUB 800 579 RETURN 580 RE┆
0x030320…030340 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x030340…030360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030360…030380 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 38 35 20 52 45 4d 20 2a 20 20 52 45 50 4c 41 43 45 20 44 41 ┆********* 585 REM * REPLACE DA┆
0x030380…0303a0 54 41 2d 46 4c 4f 50 50 59 20 49 4e 20 44 52 49 56 45 20 31 20 09 09 09 09 20 20 20 20 20 20 2a ┆TA-FLOPPY IN DRIVE 1 *┆
0x0303a0…0303c0 0d 0a 35 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 590 REM **********************┆
0x0303c0…0303e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0303e0…030400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 30 30 20 46 49 4c 45 4e 41 4d 45 24 ┆***************** 600 FILENAME$┆
0x030400…030420 20 3d 20 22 52 45 53 45 54 22 20 3a 20 52 45 53 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = "RESET" : RESET ┆
0x030420…030440 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 43 50 2f 4d 20 44 49 52 2e 20 4f ┆ REM *** WRITE CP/M DIR. O┆
0x030440…030460 4e 20 44 49 53 4b 0d 0a 36 32 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 34 20 3a 20 47 4f 53 ┆N DISK 620 ERRMSGNR% = 14 : GOS┆
0x030460…030480 55 42 20 32 30 30 30 30 0d 0a 36 33 30 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 36 34 32 20 52 45 ┆UB 20000 630 GOSUB 1000 642 RE┆
0x030480…0304a0 53 45 54 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 54 48 45 20 4e 45 57 ┆SET REM *** INIT THE NEW┆
0x0304a0…0304c0 20 44 49 53 4b 0d 0a 36 34 34 20 47 4f 54 4f 20 31 36 0d 0a 36 34 35 20 52 45 4d 09 2a 2a 2a 2a ┆ DISK 644 GOTO 16 645 REM ****┆
0x0304c0…0304e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030500…030520 (13, 0, 8) 4d 22 0d 0a 39 37 34 20 43 48 41 49 4e 20 50 52 4f 47 4e 41 4d 45 24 0d 0a 39 37 36 20 52 45 4d ┆M" 974 CHAIN PROGNAME$ 976 REM┆
0x030520…030540 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x030540…030560 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030560…030580 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 37 37 20 52 45 4d 20 2a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 ┆******** 977 REM * PRINT ERRMSG┆
0x030580…0305a0 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 20 20 20 4e 4f 20 43 48 41 49 4e 2d 4d 4f 44 55 4c 20 21 ┆. IN LINE 25 NO CHAIN-MODUL !┆
0x0305a0…0305c0 21 09 09 09 20 20 20 20 20 20 2a 0d 0a 39 37 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆! * 978 REM ***********┆
0x0305c0…0305e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0305e0…030600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 38 ┆**************************** 98┆
0x030600…030620 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 30 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a ┆0 ERRMSGNR% = 20 : GOSUB 20000 :┆
0x030620…030640 20 47 4f 53 55 42 20 31 30 30 30 20 3a 20 47 4f 54 4f 20 31 36 0d 0a 39 39 30 20 20 52 45 4d 20 ┆ GOSUB 1000 : GOTO 16 990 REM ┆
0x030640…030660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030680…0306a0 2a 2a 2a 2a 2a 2a 0d 0a 39 39 35 20 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 28 52 45 53 45 54 ┆****** 995 REM * SUB.: (RESET┆
0x0306a0…0306c0 29 20 49 4e 50 55 54 20 41 46 54 45 52 20 41 20 45 52 52 4d 53 47 2e 09 09 09 09 20 20 20 20 20 ┆) INPUT AFTER A ERRMSG. ┆
0x0306c0…0306e0 20 2a 0d 0a 31 30 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1000 REM *******************┆
0x0306e0…030700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030700…030720 (13, 0, 9) 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 37 31 20 52 45 4d 20 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 71 REM ***********┆
0x030720…030740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030740…030760 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 32 ┆**************************** 72┆
0x030760…030780 20 47 4f 53 55 42 20 39 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOSUB 9100 ┆
0x030780…0307a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 ┆ REM *** OPEN ┆
0x0307a0…0307c0 41 53 42 53 54 41 54 2d 46 49 4c 45 0d 0a 37 34 20 47 4f 53 55 42 20 39 31 35 30 20 09 09 09 09 ┆ASBSTAT-FILE 74 GOSUB 9150 ┆
0x0307c0…0307e0 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 49 45 4c 44 0d ┆ REM *** INIT ARBSTAT-FIELD ┆
0x0307e0…030800 0a 38 30 20 46 49 45 4c 44 4e 4f 24 20 3d 20 22 30 30 30 22 20 3a 20 4d 4f 44 45 24 20 3d 20 22 ┆ 80 FIELDNO$ = "000" : MODE$ = "┆
0x030800…030820 30 30 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 0d 0a 38 35 20 4c 53 45 54 20 ┆00" : SPECMOD$ = "000" 85 LSET ┆
0x030820…030840 46 4c 4e 24 20 3d 20 46 49 45 4c 44 4e 4f 24 20 3a 20 4c 53 45 54 20 4d 4f 24 20 3d 20 4d 4f 44 ┆FLN$ = FIELDNO$ : LSET MO$ = MOD┆
0x030840…030860 45 24 20 3a 20 4c 53 45 54 20 53 4d 24 20 3d 20 53 50 45 43 4d 4f 44 24 0d 0a 39 30 20 46 25 20 ┆E$ : LSET SM$ = SPECMOD$ 90 F% ┆
0x030860…030880 3d 20 56 41 52 50 54 52 28 23 32 29 20 3a 20 5a 25 20 3d 20 56 41 52 50 54 52 28 23 31 29 20 3a ┆= VARPTR(#2) : Z% = VARPTR(#1) :┆
0x030880…0308a0 20 43 41 4c 4c 20 49 4e 49 54 28 46 25 2c 5a 25 29 20 20 0d 0a 31 30 30 20 47 4f 53 55 42 20 37 ┆ CALL INIT(F%,Z%) 100 GOSUB 7┆
0x0308a0…0308c0 32 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆240 ┆
0x0308c0…0308e0 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 54 45 53 54 20 47 45 4e 45 52 41 4c 20 44 ┆ REM *** TEST GENERAL D┆
0x0308e0…030900 45 50 2d 53 54 41 54 55 53 0d 0a 31 31 30 20 4f 4e 20 50 52 49 4d 53 54 25 20 47 4f 54 4f 20 31 ┆EP-STATUS 110 ON PRIMST% GOTO 1┆
0x030900…030920 (13, 0, 10) 45 4d 20 2a 20 20 49 4e 50 55 54 20 27 57 4f 52 4b 4e 4f 2e 20 4f 4b 20 3f 27 20 20 20 20 20 20 ┆EM * INPUT 'WORKNO. OK ?' ┆
0x030920…030940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x030940…030960 20 20 20 20 20 20 20 20 20 2a 0d 0a 35 30 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 500 REM ************┆
0x030960…030980 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030980…0309a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 30 35 ┆*************************** 505┆
0x0309a0…0309c0 20 41 52 42 4e 52 4f 4b 24 20 3d 20 53 50 41 43 45 24 28 31 29 0d 0a 35 31 30 20 4f 4e 20 56 41 ┆ ARBNROK$ = SPACE$(1) 510 ON VA┆
0x0309c0…0309e0 4c 28 41 52 42 4e 52 24 29 20 47 4f 53 55 42 20 35 32 30 2c 35 32 35 2c 35 33 30 2c 35 33 35 2c ┆L(ARBNR$) GOSUB 520,525,530,535,┆
0x0309e0…030a00 35 34 30 2c 35 34 35 2c 35 35 30 2c 35 35 35 2c 35 36 30 2c 35 36 35 2c 35 37 30 2c 31 33 32 2c ┆540,545,550,555,560,565,570,132,┆
0x030a00…030a20 31 33 32 2c 35 37 34 2c 35 37 37 0d 0a 35 31 31 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 ┆132,574,577 511 IF ARBNROK$ = "┆
0x030a20…030a40 4e 22 20 47 4f 54 4f 20 31 33 35 20 0d 0a 35 31 32 20 41 52 42 4e 52 4f 4b 24 3d 49 4e 50 55 54 ┆N" GOTO 135 512 ARBNROK$=INPUT┆
0x030a40…030a60 24 28 31 29 0d 0a 35 31 34 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 4a 22 20 54 48 45 4e ┆$(1) 514 IF ARBNROK$ = "J" THEN┆
0x030a60…030a80 20 50 52 49 4e 54 20 41 52 42 4e 52 4f 4b 24 3b 20 3a 20 47 4f 54 4f 20 31 30 31 30 20 0d 0a 35 ┆ PRINT ARBNROK$; : GOTO 1010 5┆
0x030a80…030aa0 31 35 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 4e 22 20 47 4f 54 4f 20 35 31 30 20 0d 0a ┆15 IF ARBNROK$ = "N" GOTO 510 ┆
0x030aa0…030ac0 35 31 36 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 3b 20 3a 20 47 4f 54 4f 20 35 31 32 0d 0a 35 ┆516 PRINT CHR$(7); : GOTO 512 5┆
0x030ac0…030ae0 31 37 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆17 REM *************************┆
0x030ae0…030b00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030b00…030b20 (13, 0, 11) 2a 2a 2a 0d 0a 36 34 36 20 52 45 4d 20 2a 20 20 43 41 4c 4c 20 43 50 2f 4d 20 28 57 41 52 4d 20 ┆*** 646 REM * CALL CP/M (WARM ┆
0x030b20…030b40 42 4f 4f 54 29 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 34 37 20 52 45 4d 09 2a 2a 2a 2a ┆BOOT) * 647 REM ****┆
0x030b40…030b60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030b80…030ba0 2a 2a 2a 0d 0a 36 35 30 20 53 59 53 54 45 4d 0d 0a 37 39 30 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a ┆*** 650 SYSTEM 790 REM *******┆
0x030ba0…030bc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030be0…030c00 0d 0a 37 39 35 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 ┆ 795 REM * SUB.: IF ARBNROK$ = ┆
0x030c00…030c20 4e 20 54 48 45 4e 20 52 45 53 45 54 20 49 4e 56 45 52 53 45 20 56 49 44 45 4f 20 45 4c 53 45 20 ┆N THEN RESET INVERSE VIDEO ELSE ┆
0x030c20…030c40 53 45 54 20 49 4e 56 45 52 53 45 20 56 49 44 2e 2a 0d 0a 38 30 30 20 52 45 4d 09 2a 2a 2a 2a 2a ┆SET INVERSE VID.* 800 REM *****┆
0x030c40…030c60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x030c80…030ca0 2a 2a 0d 0a 38 30 32 20 49 46 20 41 52 42 4e 52 4f 4b 24 20 3d 20 22 4e 22 20 54 48 45 4e 20 50 ┆** 802 IF ARBNROK$ = "N" THEN P┆
0x030ca0…030cc0 52 49 4e 54 20 43 48 52 24 28 31 32 38 29 3b 22 20 20 20 22 3b 20 45 4c 53 45 20 50 52 49 4e 54 ┆RINT CHR$(128);" "; ELSE PRINT┆
0x030cc0…030ce0 20 43 48 52 24 28 31 34 34 29 3b 22 2d 2d 3e 22 3b 43 48 52 24 28 31 32 38 29 3b 0d 0a 38 31 30 ┆ CHR$(144);"-->";CHR$(128); 810┆
0x030ce0…030d00 20 58 50 4f 53 25 20 3d 20 35 30 20 3a 20 59 50 4f 53 25 20 3d 20 32 34 20 3a 20 47 4f 53 55 42 ┆ XPOS% = 50 : YPOS% = 24 : GOSUB┆
0x030d00…030d20 (13, 0, 12) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 30 32 20 50 52 49 4e 54 20 ┆******************* 1002 PRINT ┆
0x030d20…030d40 43 48 52 24 28 37 29 3b 3a 45 53 43 49 4e 50 55 54 24 20 3d 20 49 4e 50 55 54 24 28 31 29 3a 49 ┆CHR$(7);:ESCINPUT$ = INPUT$(1):I┆
0x030d40…030d60 46 20 41 53 43 28 45 53 43 49 4e 50 55 54 24 29 20 3c 3e 20 31 20 47 4f 54 4f 20 31 30 30 32 0d ┆F ASC(ESCINPUT$) <> 1 GOTO 1002 ┆
0x030d60…030d80 0a 31 30 30 34 20 50 52 49 4e 54 20 53 50 41 43 45 24 28 37 36 29 3b 20 3a 20 52 45 54 55 52 4e ┆ 1004 PRINT SPACE$(76); : RETURN┆
0x030d80…030da0 0d 0a 31 30 30 36 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1006 REM *********************┆
0x030da0…030dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030dc0…030de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 30 38 20 52 45 4d 20 2a 20 20 52 ┆***************** 1008 REM * R┆
0x030de0…030e00 45 53 45 54 20 41 4c 4c 20 49 4e 50 55 54 2d 42 55 46 46 45 52 20 41 4e 44 20 43 48 41 49 4e 47 ┆ESET ALL INPUT-BUFFER AND CHAING┆
0x030e00…030e20 45 20 54 4f 20 53 45 4c 2e 20 50 52 4f 47 52 41 4d 4d 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 31 ┆E TO SEL. PROGRAMM * 101┆
0x030e20…030e40 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 REM **************************┆
0x030e40…030e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x030e60…030e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 31 31 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 ┆************ 1011 NEXTFORMFLAG%┆
0x030e80…030ea0 20 3d 20 30 0d 0a 31 30 31 32 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 20 33 20 4f 52 ┆ = 0 1012 IF VAL(ARBNR$) < 3 OR┆
0x030ea0…030ec0 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 39 20 4f 52 20 56 41 4c 28 41 52 42 4e 52 24 29 20 ┆ VAL(ARBNR$) = 9 OR VAL(ARBNR$) ┆
0x030ec0…030ee0 3d 20 31 31 20 4f 52 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 34 20 54 48 45 4e 20 50 52 ┆= 11 OR VAL(ARBNR$) = 14 THEN PR┆
0x030ee0…030f00 49 4e 54 20 43 48 52 24 28 31 32 29 0d 0a 31 30 31 33 20 4f 56 45 52 57 52 49 54 45 25 20 3d 20 ┆INT CHR$(12) 1013 OVERWRITE% = ┆
0x030f00…030f20 (13, 0, 13) 33 30 2c 39 30 2c 39 30 2c 39 30 2c 39 30 2c 39 30 2c 39 30 2c 37 32 38 30 2c 39 30 2c 39 30 2c ┆30,90,90,90,90,90,90,7280,90,90,┆
0x030f20…030f40 39 30 2c 39 30 2c 39 30 2c 39 30 0d 0a 31 32 30 20 47 4f 53 55 42 20 37 32 38 30 20 3a 20 47 4f ┆90,90,90,90 120 GOSUB 7280 : GO┆
0x030f40…030f60 54 4f 20 31 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 ┆TO 16 ┆
0x030f60…030f80 09 09 52 45 4d 20 2a 2a 2a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 28 44 45 50 2d 45 52 52 ┆ REM *** PRINT ERRMSG. (DEP-ERR┆
0x030f80…030fa0 4f 52 29 0d 0a 31 33 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 43 4c 4f 53 45 20 09 09 ┆OR) 130 ERRFLAG% = 0 : CLOSE ┆
0x030fa0…030fc0 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 43 4c 4f 53 45 20 41 4c 4c 20 46 49 4c 45 53 0d 0a 31 33 ┆ REM *** CLOSE ALL FILES 13┆
0x030fc0…030fe0 31 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 REM **************************┆
0x030fe0…031000 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031000…031020 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 33 32 20 52 45 4d 20 2a 20 20 49 4e 50 55 54 20 ┆************* 132 REM * INPUT ┆
0x031020…031040 57 4f 52 4b 4e 4f 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆WORKNO. ┆
0x031040…031060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a ┆ * ┆
0x031060…031080 31 33 33 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆133 REM ************************┆
0x031080…0310a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0310a0…0310c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 33 34 20 41 52 42 53 54 41 54 4f 50 45 4e ┆*************** 134 ARBSTATOPEN┆
0x0310c0…0310e0 25 20 3d 20 30 20 3a 20 55 53 52 46 4f 52 4d 46 4f 50 45 4e 25 20 3d 20 30 0d 0a 31 33 35 20 41 ┆% = 0 : USRFORMFOPEN% = 0 135 A┆
0x0310e0…031100 52 42 4e 52 24 20 3d 20 53 50 41 43 45 24 28 32 29 0d 0a 31 35 32 20 58 50 4f 53 25 20 3d 20 34 ┆RBNR$ = SPACE$(2) 152 XPOS% = 4┆
0x031100…031120 (13, 0, 14) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 31 38 20 52 45 4d 20 2a 20 20 53 45 54 20 2f ┆************** 518 REM * SET /┆
0x031120…031140 20 52 45 53 45 54 20 49 4e 56 45 52 53 45 20 4d 4f 44 45 20 4f 4e 20 43 52 54 20 20 20 20 20 09 ┆ RESET INVERSE MODE ON CRT ┆
0x031140…031160 09 09 09 20 20 20 20 20 20 2a 0d 0a 35 31 39 20 52 45 4d 09 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 519 REM ************┆
0x031160…031180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031180…0311a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 32 30 ┆*************************** 520┆
0x0311a0…0311c0 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 36 20 3a 20 47 4f 53 55 42 20 ┆ XPOS% = 21 : YPOS% = 6 : GOSUB ┆
0x0311c0…0311e0 31 39 39 30 0d 0a 35 32 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 32 34 20 52 45 54 55 52 4e 0d ┆1990 523 GOSUB 800 524 RETURN ┆
0x0311e0…031200 0a 35 32 35 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 37 20 3a 20 47 4f ┆ 525 XPOS% = 21 : YPOS% = 7 : GO┆
0x031200…031220 53 55 42 20 31 39 39 30 0d 0a 35 32 38 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 32 39 20 52 45 54 ┆SUB 1990 528 GOSUB 800 529 RET┆
0x031220…031240 55 52 4e 0d 0a 35 33 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 3d 20 38 20 ┆URN 530 XPOS% = 21 : YPOS% = 8 ┆
0x031240…031260 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 33 33 20 47 4f 53 55 42 20 38 30 30 0d 0a 35 33 34 ┆: GOSUB 1990 533 GOSUB 800 534┆
0x031260…031280 20 52 45 54 55 52 4e 0d 0a 35 33 35 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 4f 53 25 20 ┆ RETURN 535 XPOS% = 21 : YPOS% ┆
0x031280…0312a0 3d 20 39 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 33 38 20 47 4f 53 55 42 20 38 30 30 0d ┆= 9 : GOSUB 1990 538 GOSUB 800 ┆
0x0312a0…0312c0 0a 35 33 39 20 52 45 54 55 52 4e 0d 0a 35 34 30 20 58 50 4f 53 25 20 3d 20 32 31 20 3a 20 59 50 ┆ 539 RETURN 540 XPOS% = 21 : YP┆
0x0312c0…0312e0 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 35 34 33 20 47 4f 53 55 42 ┆OS% = 10 : GOSUB 1990 543 GOSUB┆
0x0312e0…031300 20 38 30 30 0d 0a 35 34 34 20 52 45 54 55 52 4e 0d 0a 35 34 35 20 58 50 4f 53 25 20 3d 20 32 31 ┆ 800 544 RETURN 545 XPOS% = 21┆
0x031300…031320 (13, 0, 15) 20 31 39 39 30 0d 0a 38 32 30 20 52 45 54 55 52 4e 0d 0a 39 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a ┆ 1990 820 RETURN 900 REM *****┆
0x031320…031340 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031360…031380 2a 2a 0d 0a 39 30 32 20 52 45 4d 20 2a 20 43 48 41 49 4e 20 54 4f 20 55 53 45 52 2d 50 52 4f 47 ┆** 902 REM * CHAIN TO USER-PROG┆
0x031380…0313a0 52 41 4d 4d 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 39 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆RAMM * 904 REM ******┆
0x0313a0…0313c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0313e0…031400 2a 0d 0a 39 30 36 20 58 50 4f 53 25 20 3d 20 31 20 3a 20 59 50 4f 53 25 20 3d 20 32 35 20 3a 20 ┆* 906 XPOS% = 1 : YPOS% = 25 : ┆
0x031400…031420 47 4f 53 55 42 20 31 39 39 30 0d 0a 39 30 38 20 54 45 58 54 4e 52 25 20 3d 20 31 20 3a 20 47 4f ┆GOSUB 1990 908 TEXTNR% = 1 : GO┆
0x031420…031440 53 55 42 20 31 30 35 30 30 0d 0a 39 31 30 20 58 50 4f 53 25 20 3d 20 33 33 20 3a 20 59 50 4f 53 ┆SUB 10500 910 XPOS% = 33 : YPOS┆
0x031440…031460 25 20 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 39 31 32 20 4f 4e 45 25 20 3d 20 ┆% = 25 : GOSUB 1990 912 ONE% = ┆
0x031460…031480 31 20 3a 20 50 52 4f 47 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 30 29 0d 0a 39 32 30 20 ┆1 : PROGNAME$ = SPACE$(10) 920 ┆
0x031480…0314a0 46 4f 52 20 49 25 20 3d 20 4f 4e 45 25 20 20 54 4f 20 31 30 20 0d 0a 39 32 35 20 4b 45 59 49 4e ┆FOR I% = ONE% TO 10 925 KEYIN┆
0x0314a0…0314c0 50 55 54 24 20 3d 20 49 4e 50 55 54 24 28 31 29 0d 0a 39 33 30 20 49 46 20 4b 45 59 49 4e 50 55 ┆PUT$ = INPUT$(1) 930 IF KEYINPU┆
0x0314c0…0314e0 54 24 20 3d 20 43 48 52 24 28 38 29 20 54 48 45 4e 20 47 4f 54 4f 20 39 35 30 0d 0a 39 33 32 20 ┆T$ = CHR$(8) THEN GOTO 950 932 ┆
0x0314e0…031500 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 43 48 52 24 28 32 34 29 20 54 48 45 4e 20 47 4f 54 ┆IF KEYINPUT$ = CHR$(24) THEN GOT┆
0x031500…031520 (13, 1, 1) 30 3a 46 49 45 4c 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 3a 46 4f 52 4d 4e 41 ┆0:FIELDINPUT$ = SPACE$(8):FORMNA┆
0x031520…031540 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 3a 46 4f 52 4d 4e 52 24 20 3d 20 53 50 41 43 45 ┆ME$ = SPACE$(12):FORMNR$ = SPACE┆
0x031540…031560 24 28 33 29 3a 44 41 54 41 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 0d 0a 31 30 31 ┆$(3):DATANAME$ = SPACE$(12) 101┆
0x031560…031580 34 20 4f 4e 20 56 41 4c 28 41 52 42 4e 52 24 29 20 47 4f 54 4f 20 31 30 38 30 2c 32 30 35 30 2c ┆4 ON VAL(ARBNR$) GOTO 1080,2050,┆
0x031580…0315a0 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 33 38 38 36 2c 34 35 ┆3886,3886,3886,3886,3886,3886,45┆
0x0315a0…0315c0 33 36 2c 33 38 38 36 2c 34 35 36 35 2c 31 36 2c 31 36 2c 39 30 30 2c 36 30 30 0d 0a 31 30 37 30 ┆36,3886,4565,16,16,900,600 1070┆
0x0315c0…0315e0 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x0315e0…031600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031600…031620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 37 35 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 48 ┆*********** 1075 REM * PRINT H┆
0x031620…031640 45 41 44 45 52 20 4f 4e 20 43 52 54 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 38 30 20 ┆EADER ON CRT * 1080 ┆
0x031640…031660 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x031660…031680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031680…0316a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 38 32 20 58 50 4f 53 25 20 3d 20 32 38 20 3a 20 59 50 ┆********** 1082 XPOS% = 28 : YP┆
0x0316a0…0316c0 4f 53 25 20 3d 20 34 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 30 39 35 20 54 45 58 54 4e ┆OS% = 4 : GOSUB 1990 1095 TEXTN┆
0x0316c0…0316e0 52 25 20 3d 20 36 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 31 31 30 32 20 49 46 20 4e 45 ┆R% = 6 : GOSUB 10500 1102 IF NE┆
0x0316e0…031700 58 54 46 4f 52 4d 46 4c 41 47 25 20 54 48 45 4e 20 46 4f 52 4d 4e 52 24 20 3d 20 53 50 41 43 45 ┆XTFORMFLAG% THEN FORMNR$ = SPACE┆
0x031700…031900 (13, 1, 2) DataBlock {»ENTRYME.BAS«}
0x031900…031920 (13, 1, 3) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031920…031940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 38 30 20 49 46 20 ┆********************** 1780 IF ┆
0x031940…031960 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 31 37 38 35 20 45 4c 53 45 20 31 37 38 37 ┆NKEYINP% = 8 GOTO 1785 ELSE 1787┆
0x031960…031980 0d 0a 31 37 38 35 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 38 29 20 3d 20 4d 49 44 ┆ 1785 MID$(FORMNAME$,1,8) = MID┆
0x031980…0319a0 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 38 29 20 3a 20 4d 49 44 24 28 46 4f 52 4d 4e 41 ┆$(FIELDINPUT$,1,8) : MID$(FORMNA┆
0x0319a0…0319c0 4d 45 24 2c 39 2c 34 29 20 3d 20 22 2e 46 52 4d 22 20 3a 20 47 4f 54 4f 20 31 39 38 32 0d 0a 31 ┆ME$,9,4) = ".FRM" : GOTO 1982 1┆
0x0319c0…0319e0 37 38 37 20 49 46 20 56 41 4c 28 46 49 45 4c 44 49 4e 50 55 54 24 29 20 3c 20 31 20 47 4f 54 4f ┆787 IF VAL(FIELDINPUT$) < 1 GOTO┆
0x0319e0…031a00 20 31 39 32 30 0d 0a 31 37 39 30 20 4d 49 44 24 28 46 4f 52 4d 4e 52 24 2c 31 2c 33 29 3d 4d 49 ┆ 1920 1790 MID$(FORMNR$,1,3)=MI┆
0x031a00…031a20 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 33 29 3a 46 4f 52 4d 4e 52 25 3d 56 41 4c 28 ┆D$(FIELDINPUT$,1,3):FORMNR%=VAL(┆
0x031a20…031a40 46 4f 52 4d 4e 52 24 29 0d 0a 31 37 39 31 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 ┆FORMNR$) 1791 IF VAL(ARBNR$) = ┆
0x031a40…031a60 32 20 41 4e 44 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 47 4f 54 4f 20 36 31 36 30 20 20 20 ┆2 AND NEXTFORMFLAG% GOTO 6160 ┆
0x031a60…031a80 20 20 20 09 0d 0a 31 37 39 32 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 32 20 47 4f ┆ 1792 IF VAL(ARBNR$) = 2 GO┆
0x031a80…031aa0 54 4f 20 36 30 31 30 0d 0a 31 37 39 34 20 49 46 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 47 ┆TO 6010 1794 IF NEXTFORMFLAG% G┆
0x031aa0…031ac0 4f 54 4f 20 35 34 37 30 20 45 4c 53 45 20 35 30 30 30 0d 0a 31 38 37 30 20 52 45 4d 20 2a 2a 2a ┆OTO 5470 ELSE 5000 1870 REM ***┆
0x031ac0…031ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031b00…031b20 (13, 1, 4) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x031b20…031b40 39 39 30 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 09 09 ┆990 REM * SUB.: POS. CURSOR ┆
0x031b40…031b60 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 39 39 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1991 REM ***********┆
0x031b60…031b80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031b80…031ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 39 ┆*************************** 199┆
0x031ba0…031bc0 32 20 50 52 49 4e 54 20 43 48 52 24 28 31 33 29 3b 0d 0a 31 39 39 34 20 50 52 49 4e 54 20 43 48 ┆2 PRINT CHR$(13); 1994 PRINT CH┆
0x031bc0…031be0 52 24 28 36 29 3b 43 48 52 24 28 59 50 4f 53 25 2b 33 31 29 3b 43 48 52 24 28 58 50 4f 53 25 2b ┆R$(6);CHR$(YPOS%+31);CHR$(XPOS%+┆
0x031be0…031c00 33 31 29 3b 0d 0a 31 39 39 36 20 52 45 54 55 52 4e 0d 0a 32 30 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆31); 1996 RETURN 2000 REM ****┆
0x031c00…031c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031c40…031c60 2a 2a 0d 0a 32 30 35 30 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 48 45 41 44 45 52 20 4f 4e 20 ┆** 2050 REM * PRINT HEADER ON ┆
0x031c60…031c80 43 52 54 20 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 30 35 35 20 52 45 4d 20 2a 2a 2a 2a ┆CRT * 2055 REM ****┆
0x031c80…031ca0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031cc0…031ce0 2a 2a 0d 0a 32 30 36 30 20 58 50 4f 53 25 20 3d 20 32 37 20 3a 20 59 50 4f 53 25 20 3d 20 34 20 ┆** 2060 XPOS% = 27 : YPOS% = 4 ┆
0x031ce0…031d00 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 32 30 38 30 20 54 45 58 54 4e 52 25 20 3d 20 37 20 3a ┆: GOSUB 1990 2080 TEXTNR% = 7 :┆
0x031d00…031d20 (13, 1, 5) 24 28 33 29 20 3a 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 39 38 32 20 0d 0a ┆$(3) : GOSUB 1972 : GOTO 1982 ┆
0x031d20…031d40 31 31 30 33 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 31 31 30 0d 0a 31 31 30 ┆1103 GOSUB 1972 : GOTO 1110 110┆
0x031d40…031d60 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆4 REM **************************┆
0x031d60…031d80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031d80…031da0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 30 36 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 ┆************ 1106 REM * PRINT ┆
0x031da0…031dc0 54 45 58 54 20 4f 4e 20 43 52 54 20 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 31 30 38 20 ┆TEXT ON CRT * 1108 ┆
0x031dc0…031de0 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x031de0…031e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x031e00…031e20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 31 30 20 58 50 4f 53 25 20 3d 20 32 3a 59 50 4f 53 25 ┆********** 1110 XPOS% = 2:YPOS%┆
0x031e20…031e40 20 3d 20 31 30 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 31 32 30 20 54 45 58 54 4e 52 25 20 3d ┆ = 10:GOSUB 1990 1120 TEXTNR% =┆
0x031e40…031e60 20 32 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 31 31 32 31 20 52 45 4d 20 2a 2a 2a 2a 2a ┆ 2 : GOSUB 10500 1121 REM *****┆
0x031e60…031e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x031ea0…031ec0 2a 0d 0a 31 31 32 32 20 52 45 4d 20 2a 20 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 41 4e 44 20 53 ┆* 1122 REM * POS. CURSOR AND S┆
0x031ec0…031ee0 45 54 20 49 4e 50 55 54 2d 43 4f 55 4e 54 45 52 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 31 ┆ET INPUT-COUNTER * 11┆
0x031ee0…031f00 32 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆23 REM *************************┆
0x031f00…032100 (13, 1, 6) DataBlock {»ENTRYME.BAS«}
0x032100…032120 (13, 1, 7) 2a 2a 2a 0d 0a 31 38 37 32 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 52 52 4d ┆*** 1872 REM * SUB.: PRINT ERRM┆
0x032120…032140 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 41 4e 44 20 53 45 54 20 49 4e 50 55 54 2d 42 55 46 ┆SG. IN LINE 25 AND SET INPUT-BUF┆
0x032140…032160 46 45 52 09 09 20 20 20 20 20 20 2a 0d 0a 31 38 37 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆FER * 1873 REM *********┆
0x032160…032180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032180…0321a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x0321a0…0321c0 38 37 36 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 33 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 ┆876 ERRMSGNR% = 3 : GOSUB 20000 ┆
0x0321c0…0321e0 3a 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 31 38 37 37 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆: GOSUB 1000 1877 REM *********┆
0x0321e0…032200 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 53 55 42 2e 3a 20 52 45 53 45 54 20 49 4e 50 55 54 2d ┆************* SUB.: RESET INPUT-┆
0x032200…032220 42 55 46 46 45 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆BUFFER ********************** 1┆
0x032220…032240 38 37 38 20 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 0d 0a 31 38 38 30 ┆878 FORMNAME$ = SPACE$(12) 1880┆
0x032240…032260 20 46 49 45 4c 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 0d 0a 31 38 38 32 20 52 ┆ FIELDINPUT$ = SPACE$(8) 1882 R┆
0x032260…032280 45 54 55 52 4e 0d 0a 31 39 31 36 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ETURN 1916 REM ****************┆
0x032280…0322a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0322a0…0322c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 31 38 20 52 45 4d ┆********************** 1918 REM┆
0x0322c0…0322e0 20 2a 20 20 50 52 49 4e 54 20 42 41 44 20 46 4f 52 4d 41 54 2d 4e 4f 2e 20 4d 53 47 20 49 4e 20 ┆ * PRINT BAD FORMAT-NO. MSG IN ┆
0x0322e0…032300 4c 49 4e 45 20 32 35 20 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 20 20 20 20 20 20 2a ┆LINE 25 AND POS. CURSOR *┆
0x032300…032320 (13, 1, 8) 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 32 30 39 30 20 49 46 20 4e 45 58 54 46 4f 52 4d 46 4c ┆ GOSUB 10500 2090 IF NEXTFORMFL┆
0x032320…032340 41 47 25 20 54 48 45 4e 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 39 38 32 20 ┆AG% THEN GOSUB 1972 : GOTO 1982 ┆
0x032340…032360 0d 0a 32 30 39 32 20 47 4f 53 55 42 20 31 39 37 32 20 3a 20 47 4f 54 4f 20 31 31 31 30 0d 0a 32 ┆ 2092 GOSUB 1972 : GOTO 1110 2┆
0x032360…032380 30 39 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆095 REM ************************┆
0x032380…0323a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0323a0…0323c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 30 30 20 52 45 4d 20 2a 20 20 53 55 42 2e ┆************** 2100 REM * SUB.┆
0x0323c0…0323e0 3a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 ┆: PRINT ERRMSG IN LINE 25 ┆
0x0323e0…032400 20 20 20 2a 0d 0a 32 31 30 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 2105 REM *****************┆
0x032400…032420 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032420…032440 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 31 30 20 45 52 52 4d ┆********************* 2110 ERRM┆
0x032440…032460 53 47 4e 52 25 20 3d 20 35 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 ┆SGNR% = 5 : GOSUB 20000 : GOSUB ┆
0x032460…032480 31 30 30 30 0d 0a 32 31 32 30 20 52 45 54 55 52 4e 0d 0a 33 31 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆1000 2120 RETURN 3100 REM ****┆
0x032480…0324a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0324c0…0324e0 2a 2a 0d 0a 33 31 30 32 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 54 45 58 54 20 4f 4e 20 43 52 ┆** 3102 REM * PRINT TEXT ON CR┆
0x0324e0…032500 54 20 41 4e 44 20 53 45 54 20 49 4e 50 55 54 2d 42 55 46 46 45 52 20 09 09 09 20 20 20 20 20 20 ┆T AND SET INPUT-BUFFER ┆
0x032500…032520 (13, 1, 9) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032520…032540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 31 32 35 20 58 50 4f 53 25 20 3d 20 34 36 20 3a ┆************* 1125 XPOS% = 46 :┆
0x032540…032560 20 59 50 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 31 32 37 20 4e ┆ YPOS% = 10 : GOSUB 1990 1127 N┆
0x032560…032580 4b 45 59 49 4e 50 25 20 3d 20 38 0d 0a 31 31 33 30 20 47 4f 54 4f 20 33 31 33 30 0d 0a 31 34 34 ┆KEYINP% = 8 1130 GOTO 3130 144┆
0x032580…0325a0 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 REM **************************┆
0x0325a0…0325c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0325c0…0325e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 34 34 35 20 52 45 4d 20 2a 20 20 46 49 45 4c 44 20 ┆************ 1445 REM * FIELD ┆
0x0325e0…032600 42 57 44 20 4b 45 59 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 34 35 30 20 52 45 4d 20 2a ┆BWD KEY * 1450 REM *┆
0x032600…032620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x032640…032660 2a 2a 2a 2a 2a 0d 0a 31 34 35 31 20 49 46 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 47 4f 54 ┆***** 1451 IF NEXTFORMFLAG% GOT┆
0x032660…032680 4f 20 31 34 35 32 20 45 4c 53 45 20 31 34 35 34 0d 0a 31 34 35 32 20 58 50 4f 53 25 20 3d 20 35 ┆O 1452 ELSE 1454 1452 XPOS% = 5┆
0x032680…0326a0 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 34 35 ┆1 : YPOS% = 14 : GOSUB 1990 145┆
0x0326a0…0326c0 33 20 4e 4b 45 59 49 4e 50 25 20 3d 20 33 20 3a 20 47 4f 54 4f 20 33 31 33 30 0d 0a 31 34 35 34 ┆3 NKEYINP% = 3 : GOTO 3130 1454┆
0x0326c0…0326e0 20 49 46 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 31 31 32 35 0d 0a 31 34 35 35 ┆ IF NKEYINP% = 8 GOTO 1125 1455┆
0x0326e0…032700 20 4d 49 44 24 28 46 4f 52 4d 4e 52 24 2c 31 2c 33 29 20 3d 20 4d 49 44 24 28 46 49 45 4c 44 49 ┆ MID$(FORMNR$,1,3) = MID$(FIELDI┆
0x032700…032900 (13, 1, 10) DataBlock {»ENTRYME.BAS«}
0x032900…032920 (13, 1, 11) 0d 0a 31 39 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 1920 REM *********************┆
0x032920…032940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032940…032960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 32 32 20 45 52 52 4d 53 47 4e 52 ┆***************** 1922 ERRMSGNR┆
0x032960…032980 25 20 3d 20 31 38 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 39 33 30 20 47 4f 53 55 42 ┆% = 18 : GOSUB 20000 1930 GOSUB┆
0x032980…0329a0 20 31 30 30 30 0d 0a 31 39 35 30 20 4c 45 54 20 58 50 4f 53 25 20 3d 20 35 31 20 2b 20 43 52 42 ┆ 1000 1950 LET XPOS% = 51 + CRB┆
0x0329a0…0329c0 4c 41 4e 4b 25 20 2d 20 32 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 0d 0a 31 39 36 30 20 47 4f 53 ┆LANK% - 2 : YPOS% = 14 1960 GOS┆
0x0329c0…0329e0 55 42 20 31 39 39 30 0d 0a 31 39 37 30 20 4c 45 54 20 49 25 20 3d 20 43 52 42 4c 41 4e 4b 25 20 ┆UB 1990 1970 LET I% = CRBLANK% ┆
0x0329e0…032a00 2d 20 31 20 3a 20 47 4f 54 4f 20 33 31 34 30 0d 0a 31 39 37 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆- 1 : GOTO 3140 1971 REM ******┆
0x032a00…032a20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x032a40…032a60 0d 0a 31 39 37 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 20 50 52 49 4e 54 20 54 45 58 54 2d ┆ 1972 REM * SUB.: PRINT TEXT-┆
0x032a60…032a80 42 55 46 46 45 52 20 4f 4e 20 43 52 54 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 39 37 33 20 ┆BUFFER ON CRT * 1973 ┆
0x032a80…032aa0 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x032aa0…032ac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032ac0…032ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 37 34 20 58 50 4f 53 25 20 3d 20 32 20 3a 20 59 50 4f ┆********** 1974 XPOS% = 2 : YPO┆
0x032ae0…032b00 53 25 20 3d 20 31 34 0d 0a 31 39 37 36 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 31 39 37 38 20 49 ┆S% = 14 1976 GOSUB 1990 1978 I┆
0x032b00…032b20 (13, 1, 12) 2a 0d 0a 33 31 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* 3104 REM ********************┆
0x032b20…032b40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032b40…032b60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 31 30 36 20 47 4f 53 55 42 20 33 ┆****************** 3106 GOSUB 3┆
0x032b60…032b80 39 37 32 09 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 ┆972 REM *** POS. CURSOR ┆
0x032b80…032ba0 41 4e 44 20 50 52 49 4e 54 20 54 45 58 54 0d 0a 33 31 31 30 20 58 50 4f 53 25 20 3d 20 32 20 3a ┆AND PRINT TEXT 3110 XPOS% = 2 :┆
0x032ba0…032bc0 20 59 50 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 33 31 32 30 20 54 ┆ YPOS% = 10 : GOSUB 1990 3120 T┆
0x032bc0…032be0 45 58 54 4e 52 25 20 3d 20 32 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 33 31 32 35 20 58 ┆EXTNR% = 2 : GOSUB 10500 3125 X┆
0x032be0…032c00 50 4f 53 25 20 3d 20 34 36 20 3a 20 59 50 4f 53 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 31 ┆POS% = 46 : YPOS% = 10 : GOSUB 1┆
0x032c00…032c20 39 39 30 0d 0a 33 31 32 37 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 3a 20 46 4f 52 4d 4e 41 4d ┆990 3127 NKEYINP% = 8 : FORMNAM┆
0x032c20…032c40 45 49 4e 50 46 4c 41 47 25 20 3d 20 31 0d 0a 33 31 33 30 20 4f 4e 45 25 20 3d 20 31 0d 0a 33 31 ┆EINPFLAG% = 1 3130 ONE% = 1 31┆
0x032c40…032c60 33 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆31 REM *************************┆
0x032c60…032c80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032c80…032ca0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 31 33 32 20 52 45 4d 20 2a 20 20 54 45 53 54 20 ┆************* 3132 REM * TEST ┆
0x032ca0…032cc0 54 48 45 20 4b 45 59 42 4f 41 52 44 2d 49 4e 50 55 54 20 4b 45 59 27 53 2e 20 41 52 45 20 54 48 ┆THE KEYBOARD-INPUT KEY'S. ARE TH┆
0x032cc0…032ce0 45 20 4b 45 59 27 53 20 4f 4b 20 50 52 49 4e 54 20 49 54 20 4f 4e 20 43 52 54 20 20 20 2a 0d 0a ┆E KEY'S OK PRINT IT ON CRT * ┆
0x032ce0…032d00 33 31 33 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆3133 REM ***********************┆
0x032d00…032f00 (13, 1, 13) DataBlock {»ENTRYME.BAS«}
0x032f00…032f20 (13, 1, 14) 4e 50 55 54 24 2c 31 2c 33 29 0d 0a 31 34 36 30 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 ┆NPUT$,1,3) 1460 MID$(FIELDINPUT┆
0x032f20…032f40 24 2c 31 2c 38 29 20 3d 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 38 29 20 3a 20 47 ┆$,1,8) = MID$(FORMNAME$,1,8) : G┆
0x032f40…032f60 4f 54 4f 20 31 31 32 35 0d 0a 31 37 36 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆OTO 1125 1760 REM *************┆
0x032f60…032f80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x032f80…032fa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 36 32 20 ┆************************* 1762 ┆
0x032fa0…032fc0 52 45 4d 20 2a 20 46 4f 52 4d 41 54 2d 4e 41 4d 45 20 4f 52 20 46 4f 52 4d 41 54 2d 4e 4f 2e 20 ┆REM * FORMAT-NAME OR FORMAT-NO. ┆
0x032fc0…032fe0 45 52 52 4f 52 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 37 36 34 20 52 45 4d 20 2a 2a 2a 2a 2a ┆ERROR * 1764 REM *****┆
0x032fe0…033000 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x033020…033040 2a 0d 0a 31 37 36 36 20 49 46 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 33 38 30 ┆* 1766 IF NKEYINP% = 8 GOTO 380┆
0x033040…033060 30 20 45 4c 53 45 20 31 39 32 30 0d 0a 31 37 37 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 ELSE 1920 1772 REM **********┆
0x033060…033080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033080…0330a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 37 ┆**************************** 17┆
0x0330a0…0330c0 37 35 20 52 45 4d 20 2a 20 20 49 4e 50 55 54 20 4e 45 58 54 20 46 49 45 4c 44 20 4f 52 20 43 48 ┆75 REM * INPUT NEXT FIELD OR CH┆
0x0330c0…0330e0 41 49 4e 20 54 4f 20 53 45 4c 2e 20 50 52 4f 47 52 41 4d 4d 20 09 09 20 20 20 20 20 20 09 20 20 ┆AIN TO SEL. PROGRAMM ┆
0x0330e0…033100 20 20 20 20 2a 0d 0a 31 37 37 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1779 REM ****************┆
0x033100…033120 (13, 1, 15) 46 20 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 54 48 45 4e 20 54 45 58 54 4e 52 25 20 3d 20 35 ┆F NEXTFORMFLAG% THEN TEXTNR% = 5┆
0x033120…033140 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 20 45 4c 53 45 20 54 45 58 54 4e 52 25 20 3d 20 34 20 ┆ : GOSUB 10500 ELSE TEXTNR% = 4 ┆
0x033140…033160 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 31 39 38 30 20 52 45 54 55 52 4e 0d 0a 31 39 38 31 ┆: GOSUB 10500 1980 RETURN 1981┆
0x033160…033180 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x033180…0331a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0331a0…0331c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 38 32 20 52 45 4d 20 2a 20 20 50 4f 53 2e 20 43 55 ┆*********** 1982 REM * POS. CU┆
0x0331c0…0331e0 52 53 4f 52 20 41 4e 44 20 41 4c 4c 4f 57 20 46 4f 52 4d 41 54 2d 4e 4f 2e 20 49 4e 50 55 54 20 ┆RSOR AND ALLOW FORMAT-NO. INPUT ┆
0x0331e0…033200 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 39 38 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 1983 REM ***********┆
0x033200…033220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033220…033240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 39 38 ┆*************************** 198┆
0x033240…033260 34 20 58 50 4f 53 25 20 3d 20 35 31 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 20 3a 20 47 4f 53 55 ┆4 XPOS% = 51 : YPOS% = 14 : GOSU┆
0x033260…033280 42 20 31 39 39 30 0d 0a 31 39 38 38 20 4e 4b 45 59 49 4e 50 25 20 3d 20 33 20 3a 20 46 49 45 4c ┆B 1990 1988 NKEYINP% = 3 : FIEL┆
0x033280…0332a0 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 20 3a 20 20 4d 49 44 24 28 46 49 45 4c ┆DINPUT$ = SPACE$(8) : MID$(FIEL┆
0x0332a0…0332c0 44 49 4e 50 55 54 24 2c 31 2c 33 29 20 3d 20 4d 49 44 24 28 46 4f 52 4d 4e 52 24 2c 31 2c 33 29 ┆DINPUT$,1,3) = MID$(FORMNR$,1,3)┆
0x0332c0…0332e0 20 3a 20 47 4f 54 4f 20 31 31 33 30 0d 0a 31 39 38 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ : GOTO 1130 1989 REM *********┆
0x0332e0…033300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x033320…033340 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 31 33 36 20 46 4f 52 20 49 25 20 3d 20 4f ┆*************** 3136 FOR I% = O┆
0x033340…033360 4e 45 25 20 54 4f 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 31 34 30 20 20 20 4b 45 59 49 4e 50 55 54 ┆NE% TO NKEYINP% 3140 KEYINPUT┆
0x033360…033380 24 20 3d 20 49 4e 50 55 54 24 28 31 29 0d 0a 33 31 35 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 ┆$ = INPUT$(1) 3150 IF KEYINPU┆
0x033380…0333a0 54 24 20 3d 20 22 3c 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 31 36 30 20 20 20 49 46 20 4b 45 ┆T$ = "<" GOTO 3140 3160 IF KE┆
0x0333a0…0333c0 59 49 4e 50 55 54 24 20 3d 20 22 3e 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 31 37 30 20 20 20 ┆YINPUT$ = ">" GOTO 3140 3170 ┆
0x0333c0…0333e0 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 2e 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 31 ┆IF KEYINPUT$ = "." GOTO 3140 31┆
0x0333e0…033400 38 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 2c 22 20 47 4f 54 4f 20 33 31 34 ┆80 IF KEYINPUT$ = "," GOTO 314┆
0x033400…033420 30 0d 0a 33 31 39 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 3b 22 20 47 4f 54 ┆0 3190 IF KEYINPUT$ = ";" GOT┆
0x033420…033440 4f 20 33 31 34 30 0d 0a 33 32 30 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 3a ┆O 3140 3200 IF KEYINPUT$ = ":┆
0x033440…033460 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 31 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 ┆" GOTO 3140 3210 IF KEYINPUT$┆
0x033460…033480 20 3d 20 22 3d 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 32 30 20 20 20 49 46 20 4b 45 59 49 ┆ = "=" GOTO 3140 3220 IF KEYI┆
0x033480…0334a0 4e 50 55 54 24 20 3d 20 22 3f 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 33 30 20 20 20 49 46 ┆NPUT$ = "?" GOTO 3140 3230 IF┆
0x0334a0…0334c0 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 2a 22 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 34 30 ┆ KEYINPUT$ = "*" GOTO 3140 3240┆
0x0334c0…0334e0 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 5b 22 20 47 4f 54 4f 20 33 31 34 30 0d ┆ IF KEYINPUT$ = "Æ" GOTO 3140 ┆
0x0334e0…033500 0a 33 32 35 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 5d 22 20 47 4f 54 4f 20 ┆ 3250 IF KEYINPUT$ = "Å" GOTO ┆
0x033500…033520 (14, 0, 2) 32 35 0d 0a 33 34 36 35 20 52 45 4d 0d 0a 33 34 37 30 20 52 45 4d 20 2d 2d 2d 20 46 49 45 4c 44 ┆25 3465 REM 3470 REM --- FIELD┆
0x033520…033540 20 46 4f 52 57 41 52 44 20 4b 45 59 20 2d 2d 2d 0d 0a 33 34 37 35 20 52 45 4d 0d 0a 33 34 38 30 ┆ FORWARD KEY --- 3475 REM 3480┆
0x033540…033560 20 49 46 20 46 4f 52 4d 4e 41 4d 45 49 4e 50 46 4c 41 47 25 20 4f 52 20 4e 4b 45 59 49 4e 50 25 ┆ IF FORMNAMEINPFLAG% OR NKEYINP%┆
0x033560…033580 20 3d 20 38 20 47 4f 54 4f 20 33 37 30 30 20 45 4c 53 45 20 33 31 34 30 0d 0a 33 34 38 35 20 52 ┆ = 8 GOTO 3700 ELSE 3140 3485 R┆
0x033580…0335a0 45 4d 0d 0a 33 34 39 30 20 52 45 4d 20 2d 2d 2d 20 43 55 52 53 4f 52 20 42 41 43 4b 57 41 52 44 ┆EM 3490 REM --- CURSOR BACKWARD┆
0x0335a0…0335c0 20 4b 45 59 20 2d 2d 2d 0d 0a 33 34 39 35 20 52 45 4d 0d 0a 33 35 30 30 20 49 46 20 49 25 20 3d ┆ KEY --- 3495 REM 3500 IF I% =┆
0x0335c0…0335e0 20 31 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 35 31 30 20 50 52 49 4e 54 20 4b 45 59 49 4e 50 55 ┆ 1 GOTO 3140 3510 PRINT KEYINPU┆
0x0335e0…033600 54 24 3b 0d 0a 33 35 32 30 20 4c 45 54 20 49 25 20 3d 20 49 25 20 2d 20 31 0d 0a 33 35 33 30 20 ┆T$; 3520 LET I% = I% - 1 3530 ┆
0x033600…033620 47 4f 54 4f 20 33 31 34 30 0d 0a 33 35 39 30 20 52 45 4d 0d 0a 33 35 39 35 20 52 45 4d 20 2d 2d ┆GOTO 3140 3590 REM 3595 REM --┆
0x033620…033640 2d 20 43 55 52 53 4f 52 20 46 4f 52 57 41 52 44 20 4b 45 59 20 2d 2d 2d 0d 0a 33 36 30 30 20 52 ┆- CURSOR FORWARD KEY --- 3600 R┆
0x033640…033660 45 4d 0d 0a 33 36 31 30 20 49 46 20 49 25 20 3d 20 4e 4b 45 59 49 4e 50 25 20 47 4f 54 4f 20 33 ┆EM 3610 IF I% = NKEYINP% GOTO 3┆
0x033660…033680 31 34 30 0d 0a 33 36 32 30 20 46 4f 52 20 42 4c 41 4e 4b 54 45 53 54 25 20 3d 20 49 25 20 54 4f ┆140 3620 FOR BLANKTEST% = I% TO┆
0x033680…0336a0 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 36 33 30 20 20 20 49 46 20 4d 49 44 24 28 46 49 45 4c 44 49 ┆ NKEYINP% 3630 IF MID$(FIELDI┆
0x0336a0…0336c0 4e 50 55 54 24 2c 42 4c 41 4e 4b 54 45 53 54 25 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 33 ┆NPUT$,BLANKTEST%,1) = " " GOTO 3┆
0x0336c0…0336e0 36 34 30 20 45 4c 53 45 20 33 36 36 30 0d 0a 33 36 34 30 20 4e 45 58 54 20 42 4c 41 4e 4b 54 45 ┆640 ELSE 3660 3640 NEXT BLANKTE┆
0x0336e0…033700 53 54 25 0d 0a 33 36 35 30 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 36 36 30 20 50 52 49 4e 54 20 ┆ST% 3650 GOTO 3140 3660 PRINT ┆
0x033700…033720 (14, 0, 3) 29 20 3d 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 38 29 20 3a 20 4d 49 44 24 ┆) = MID$(FIELDINPUT$,1,8) : MID$┆
0x033720…033740 28 44 41 54 41 4e 41 4d 45 24 2c 39 2c 34 29 20 3d 20 22 2e 44 41 54 22 0d 0a 33 37 39 35 20 49 ┆(DATANAME$,9,4) = ".DAT" 3795 I┆
0x033740…033760 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 31 20 47 4f 54 4f 20 32 30 37 31 30 0d 0a 33 ┆F VAL(ARBNR$) = 11 GOTO 20710 3┆
0x033760…033780 37 39 36 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 39 20 47 4f 54 4f 20 34 35 39 30 ┆796 IF VAL(ARBNR$) = 9 GOTO 4590┆
0x033780…0337a0 20 45 4c 53 45 20 31 36 0d 0a 33 37 39 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ELSE 16 3798 REM *************┆
0x0337a0…0337c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0337c0…0337e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 30 30 20 ┆************************* 3800 ┆
0x0337e0…033800 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 ┆REM * PRINT ERRMSG. IN LINE 25 ┆
0x033800…033820 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 09 09 20 20 20 20 20 20 2a 0d 0a 33 38 31 30 ┆AND POS. CURSOR * 3810┆
0x033820…033840 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x033840…033860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033860…033880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 31 38 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 20 ┆*********** 3818 ERRMSGNR% = 2 ┆
0x033880…0338a0 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 33 38 35 30 ┆: GOSUB 20000 : GOSUB 1000 3850┆
0x0338a0…0338c0 20 4c 45 54 20 58 50 4f 53 25 20 3d 20 34 36 20 2b 20 43 52 42 4c 41 4e 4b 25 20 2d 32 20 3a 20 ┆ LET XPOS% = 46 + CRBLANK% -2 : ┆
0x0338c0…0338e0 59 50 4f 53 25 20 3d 20 31 30 0d 0a 33 38 36 30 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 33 38 37 ┆YPOS% = 10 3860 GOSUB 1990 387┆
0x0338e0…033900 30 20 4c 45 54 20 49 25 20 3d 20 43 52 42 4c 41 4e 4b 25 20 2d 20 31 3a 20 47 4f 54 4f 20 33 31 ┆0 LET I% = CRBLANK% - 1: GOTO 31┆
0x033900…033920 (14, 0, 4) 32 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 36 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a ┆20 ERRMSGNR% = 6 : GOSUB 20000 ┆
0x033920…033940 33 39 33 30 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 33 39 35 30 20 4c 45 54 20 58 50 4f 53 25 20 ┆3930 GOSUB 1000 3950 LET XPOS% ┆
0x033940…033960 3d 20 34 36 20 2b 20 43 52 42 4c 41 4e 4b 25 20 2d 20 32 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 ┆= 46 + CRBLANK% - 2 : YPOS% = 14┆
0x033960…033980 0d 0a 33 39 36 30 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 33 39 37 30 20 4c 45 54 20 49 25 20 3d ┆ 3960 GOSUB 1990 3970 LET I% =┆
0x033980…0339a0 20 43 52 42 4c 41 4e 4b 25 20 2d 20 31 20 3a 20 52 45 54 55 52 4e 0d 0a 33 39 37 31 20 52 45 4d ┆ CRBLANK% - 1 : RETURN 3971 REM┆
0x0339a0…0339c0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x0339c0…0339e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0339e0…033a00 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 39 37 32 20 52 45 4d 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 54 45 ┆******* 3972 REM SUB.: PRINT TE┆
0x033a00…033a20 58 54 20 4f 4e 20 43 52 54 20 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 09 09 20 20 20 ┆XT ON CRT AND POS. CURSOR ┆
0x033a20…033a40 20 20 20 2a 0d 0a 33 39 37 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 3973 REM *****************┆
0x033a40…033a60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033a60…033a80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 39 37 34 20 58 50 4f 53 ┆********************* 3974 XPOS┆
0x033a80…033aa0 25 20 3d 20 32 20 3a 20 59 50 4f 53 25 20 3d 20 31 34 0d 0a 33 39 37 36 20 47 4f 53 55 42 20 31 ┆% = 2 : YPOS% = 14 3976 GOSUB 1┆
0x033aa0…033ac0 39 39 30 0d 0a 33 39 37 38 20 54 45 58 54 4e 52 25 20 3d 20 33 20 3a 20 47 4f 53 55 42 20 31 30 ┆990 3978 TEXTNR% = 3 : GOSUB 10┆
0x033ac0…033ae0 35 30 30 0d 0a 33 39 37 39 20 52 45 54 55 52 4e 0d 0a 33 39 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a ┆500 3979 RETURN 3980 REM *****┆
0x033ae0…033b00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033b00…033b20 (14, 0, 5) 33 31 34 30 0d 0a 33 32 36 30 20 20 20 49 46 20 4b 45 59 49 4e 50 55 54 24 20 3d 20 22 20 22 20 ┆3140 3260 IF KEYINPUT$ = " " ┆
0x033b20…033b40 47 4f 54 4f 20 33 34 30 30 0d 0a 33 32 36 32 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 ┆GOTO 3400 3262 IF ASC(KEYINPU┆
0x033b40…033b60 54 24 29 20 3d 20 32 36 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 36 34 20 20 20 49 46 20 41 53 ┆T$) = 26 GOTO 3140 3264 IF AS┆
0x033b60…033b80 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 31 30 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 32 36 ┆C(KEYINPUT$) = 10 GOTO 3140 326┆
0x033b80…033ba0 36 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 31 32 37 20 47 4f 54 4f ┆6 IF ASC(KEYINPUT$) = 127 GOTO┆
0x033ba0…033bc0 20 33 34 32 30 0d 0a 33 32 36 38 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 ┆ 3420 3268 IF ASC(KEYINPUT$) ┆
0x033bc0…033be0 3d 20 31 32 20 47 4f 54 4f 20 31 30 31 33 0d 0a 33 32 37 30 20 20 20 49 46 20 41 53 43 28 4b 45 ┆= 12 GOTO 1013 3270 IF ASC(KE┆
0x033be0…033c00 59 49 4e 50 55 54 24 29 20 3d 20 38 20 47 4f 54 4f 20 33 35 30 30 0d 0a 33 32 38 30 20 20 20 49 ┆YINPUT$) = 8 GOTO 3500 3280 I┆
0x033c00…033c20 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 32 34 20 47 4f 54 4f 20 33 36 30 30 0d ┆F ASC(KEYINPUT$) = 24 GOTO 3600 ┆
0x033c20…033c40 0a 33 32 39 30 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 35 20 47 4f ┆ 3290 IF ASC(KEYINPUT$) = 5 GO┆
0x033c40…033c60 54 4f 20 33 34 35 30 0d 0a 33 33 30 30 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 ┆TO 3450 3300 IF ASC(KEYINPUT$┆
0x033c60…033c80 29 20 3d 20 39 20 47 4f 54 4f 20 33 34 37 30 0d 0a 33 33 30 35 20 20 20 49 46 20 41 53 43 28 4b ┆) = 9 GOTO 3470 3305 IF ASC(K┆
0x033c80…033ca0 45 59 49 4e 50 55 54 24 29 20 3d 20 36 20 47 4f 54 4f 20 33 37 30 30 20 0d 0a 33 33 31 30 20 20 ┆EYINPUT$) = 6 GOTO 3700 3310 ┆
0x033ca0…033cc0 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 31 33 20 47 4f 54 4f 20 33 37 30 ┆ IF ASC(KEYINPUT$) = 13 GOTO 370┆
0x033cc0…033ce0 30 20 0d 0a 33 33 31 35 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 32 ┆0 3315 IF ASC(KEYINPUT$) = 2┆
0x033ce0…033d00 37 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 33 31 36 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e ┆7 GOTO 3140 3316 IF ASC(KEYIN┆
0x033d00…033d20 (14, 0, 6) 4b 45 59 49 4e 50 55 54 24 3b 0d 0a 33 36 37 30 20 4c 45 54 20 49 25 20 3d 20 49 25 20 2b 20 31 ┆KEYINPUT$; 3670 LET I% = I% + 1┆
0x033d20…033d40 0d 0a 33 36 38 30 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 36 39 30 20 52 45 4d 0d 0a 33 36 39 35 ┆ 3680 GOTO 3140 3690 REM 3695┆
0x033d40…033d60 20 52 45 4d 20 2d 2d 2d 20 43 52 20 4b 45 59 20 2d 2d 2d 0d 0a 33 37 30 30 20 52 45 4d 20 0d 0a ┆ REM --- CR KEY --- 3700 REM ┆
0x033d60…033d80 33 37 30 35 20 42 4c 41 4e 4b 46 25 20 3d 20 30 0d 0a 33 37 31 30 20 46 4f 52 20 43 52 42 4c 41 ┆3705 BLANKF% = 0 3710 FOR CRBLA┆
0x033d80…033da0 4e 4b 25 20 3d 20 31 20 54 4f 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 37 32 30 20 20 20 49 46 20 4d ┆NK% = 1 TO NKEYINP% 3720 IF M┆
0x033da0…033dc0 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 43 52 42 4c 41 4e 4b 25 2c 31 29 20 3d 20 22 20 ┆ID$(FIELDINPUT$,CRBLANK%,1) = " ┆
0x033dc0…033de0 22 20 54 48 45 4e 20 42 4c 41 4e 4b 46 25 20 3d 20 31 3a 47 4f 54 4f 20 33 37 34 30 0d 0a 33 37 ┆" THEN BLANKF% = 1:GOTO 3740 37┆
0x033de0…033e00 33 30 20 20 20 49 46 20 42 4c 41 4e 4b 46 25 20 3d 20 31 20 47 4f 54 4f 20 33 37 36 30 0d 0a 33 ┆30 IF BLANKF% = 1 GOTO 3760 3┆
0x033e00…033e20 37 34 30 20 4e 45 58 54 20 43 52 42 4c 41 4e 4b 25 0d 0a 33 37 34 31 20 52 45 4d 0d 0a 33 37 34 ┆740 NEXT CRBLANK% 3741 REM 374┆
0x033e20…033e40 32 20 52 45 4d 20 2d 2d 2d 20 4f 4e 4c 59 20 53 50 41 43 45 20 49 4e 20 41 20 46 49 45 4c 44 20 ┆2 REM --- ONLY SPACE IN A FIELD ┆
0x033e40…033e60 3f 20 2d 2d 2d 0d 0a 33 37 34 33 20 52 45 4d 0d 0a 33 37 34 34 20 46 4f 52 20 53 50 41 43 45 25 ┆? --- 3743 REM 3744 FOR SPACE%┆
0x033e60…033e80 20 3d 20 31 20 54 4f 20 4e 4b 45 59 49 4e 50 25 0d 0a 33 37 34 36 20 20 20 49 46 20 4d 49 44 24 ┆ = 1 TO NKEYINP% 3746 IF MID$┆
0x033e80…033ea0 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 53 50 41 43 45 25 2c 31 29 20 3c 3e 20 22 20 22 20 47 4f ┆(FIELDINPUT$,SPACE%,1) <> " " GO┆
0x033ea0…033ec0 54 4f 20 33 37 36 36 0d 0a 33 37 34 38 20 4e 45 58 54 20 53 50 41 43 45 25 0d 0a 33 37 35 30 20 ┆TO 3766 3748 NEXT SPACE% 3750 ┆
0x033ec0…033ee0 49 46 20 46 4f 52 4d 4e 41 4d 45 49 4e 50 46 4c 41 47 25 20 41 4e 44 20 56 41 4c 28 41 52 42 4e ┆IF FORMNAMEINPFLAG% AND VAL(ARBN┆
0x033ee0…033f00 52 24 29 20 3d 20 33 20 47 4f 54 4f 20 33 31 32 35 0d 0a 33 37 35 32 20 49 46 20 46 4f 52 4d 4e ┆R$) = 3 GOTO 3125 3752 IF FORMN┆
0x033f00…033f20 (14, 0, 7) 34 30 0d 0a 33 38 37 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆40 3871 REM *******************┆
0x033f20…033f40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033f40…033f60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 37 32 20 52 45 4d 20 2a 20 ┆******************* 3872 REM * ┆
0x033f60…033f80 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 ┆ SUB.: PRINT ERRMSG. IN LINE 25 ┆
0x033f80…033fa0 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 09 09 20 20 20 20 20 20 2a 0d 0a 33 38 37 33 20 ┆AND POS. CURSOR * 3873 ┆
0x033fa0…033fc0 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x033fc0…033fe0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x033fe0…034000 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 37 34 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 35 20 3a ┆********** 3874 ERRMSGNR% = 5 :┆
0x034000…034020 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 33 38 38 30 20 47 4f 53 55 42 20 31 30 30 30 0d 0a 33 ┆ GOSUB 20000 3880 GOSUB 1000 3┆
0x034020…034040 38 38 32 20 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 0d 0a 33 38 38 34 ┆882 FORMNAME$ = SPACE$(12) 3884┆
0x034040…034060 20 46 49 45 4c 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 20 3a 20 52 45 54 55 52 ┆ FIELDINPUT$ = SPACE$(8) : RETUR┆
0x034060…034080 4e 0d 0a 33 38 38 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆N 3885 REM ********************┆
0x034080…0340a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0340a0…0340c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 38 36 20 52 45 4d 20 2a 20 20 ┆****************** 3886 REM * ┆
0x0340c0…0340e0 57 52 49 54 45 20 43 48 41 49 4e 49 4e 46 4f 20 54 4f 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 ┆WRITE CHAININFO TO CHAININF-FILE┆
0x0340e0…034100 20 41 4e 44 20 43 48 41 49 4e 20 54 4f 20 50 52 4f 47 52 41 4d 4d 20 09 20 20 20 20 20 20 2a 0d ┆ AND CHAIN TO PROGRAMM * ┆
0x034100…034120 (14, 0, 8) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x034120…034140 2a 0d 0a 33 39 38 31 20 52 45 4d 20 2a 20 20 50 4f 53 2e 20 43 55 52 53 4f 52 20 41 4e 44 20 53 ┆* 3981 REM * POS. CURSOR AND S┆
0x034140…034160 45 54 20 49 4e 50 55 54 2d 46 49 45 4c 44 53 20 54 4f 20 45 4e 54 45 52 20 54 48 45 20 44 41 54 ┆ET INPUT-FIELDS TO ENTER THE DAT┆
0x034160…034180 41 4e 41 4d 45 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 33 39 38 32 20 52 45 4d 20 2a 2a 2a ┆ANAME * 3982 REM ***┆
0x034180…0341a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0341c0…0341e0 2a 2a 2a 0d 0a 33 39 38 33 20 58 50 4f 53 25 20 3d 20 34 36 20 3a 20 59 50 4f 53 25 20 3d 20 31 ┆*** 3983 XPOS% = 46 : YPOS% = 1┆
0x0341e0…034200 34 0d 0a 33 39 38 34 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 33 39 38 38 20 46 4f 52 4d 4e 41 4d ┆4 3984 GOSUB 1990 3988 FORMNAM┆
0x034200…034220 45 49 4e 50 46 4c 41 47 25 20 3d 20 30 20 3a 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 ┆EINPFLAG% = 0 : MID$(FIELDINPUT$┆
0x034220…034240 2c 31 2c 38 29 20 3d 20 4d 49 44 24 28 44 41 54 41 4e 41 4d 45 24 2c 31 2c 38 29 20 3a 20 47 4f ┆,1,8) = MID$(DATANAME$,1,8) : GO┆
0x034240…034260 54 4f 20 33 31 33 30 0d 0a 34 30 39 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TO 3130 4090 REM **************┆
0x034260…034280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x034280…0342a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 30 39 35 20 52 ┆************************ 4095 R┆
0x0342a0…0342c0 45 4d 20 2a 20 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 41 ┆EM * PRINT ERRMSG. IN LINE 25 A┆
0x0342c0…0342e0 4e 44 20 53 45 54 20 49 4e 50 55 54 2d 42 55 46 46 45 52 20 09 09 20 20 20 20 20 20 2a 0d 0a 34 ┆ND SET INPUT-BUFFER * 4┆
0x0342e0…034300 31 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆100 REM ************************┆
0x034300…034320 (14, 0, 9) 50 55 54 24 29 20 3d 20 31 37 20 54 48 45 4e 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c ┆PUT$) = 17 THEN IF VAL(ARBNR$) <┆
0x034320…034340 3d 20 32 20 47 4f 54 4f 20 35 36 35 30 20 45 4c 53 45 20 47 4f 54 4f 20 31 36 0d 0a 33 33 31 37 ┆= 2 GOTO 5650 ELSE GOTO 16 3317┆
0x034340…034360 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3c 20 33 32 20 4f 52 20 41 53 43 ┆ IF ASC(KEYINPUT$) < 32 OR ASC┆
0x034360…034380 28 4b 45 59 49 4e 50 55 54 24 29 20 3e 20 31 32 32 20 54 48 45 4e 20 47 4f 54 4f 20 33 31 34 30 ┆(KEYINPUT$) > 122 THEN GOTO 3140┆
0x034380…0343a0 0d 0a 33 33 31 38 20 20 20 49 46 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 33 33 ┆ 3318 IF NKEYINP% = 8 GOTO 33┆
0x0343a0…0343c0 32 30 0d 0a 33 33 31 39 20 20 20 49 46 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3c 20 34 ┆20 3319 IF ASC(KEYINPUT$) < 4┆
0x0343c0…0343e0 38 20 4f 52 20 41 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3e 20 35 37 20 47 4f 54 4f 20 33 31 ┆8 OR ASC(KEYINPUT$) > 57 GOTO 31┆
0x0343e0…034400 34 30 20 0d 0a 33 33 32 30 20 20 20 50 52 49 4e 54 20 4b 45 59 49 4e 50 55 54 24 3b 0d 0a 33 33 ┆40 3320 PRINT KEYINPUT$; 33┆
0x034400…034420 33 30 20 20 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 49 25 2c 31 29 20 3d 20 4b 45 ┆30 MID$(FIELDINPUT$,I%,1) = KE┆
0x034420…034440 59 49 4e 50 55 54 24 0d 0a 33 33 34 30 20 4e 45 58 54 20 49 25 0d 0a 33 33 35 30 20 49 25 20 3d ┆YINPUT$ 3340 NEXT I% 3350 I% =┆
0x034440…034460 20 4e 4b 45 59 49 4e 50 25 20 3a 20 50 52 49 4e 54 20 43 48 52 24 28 38 29 3b 20 3a 20 49 46 20 ┆ NKEYINP% : PRINT CHR$(8); : IF ┆
0x034460…034480 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 54 48 45 4e 20 4f 4e 45 25 20 3d 20 38 20 3a 20 47 4f 54 ┆NKEYINP% = 8 THEN ONE% = 8 : GOT┆
0x034480…0344a0 4f 20 33 31 33 32 0d 0a 33 33 35 32 20 4f 4e 45 25 20 3d 20 33 20 3a 20 47 4f 54 4f 20 33 31 33 ┆O 3132 3352 ONE% = 3 : GOTO 313┆
0x0344a0…0344c0 32 0d 0a 33 33 39 30 20 52 45 4d 0d 0a 33 33 39 32 20 52 45 4d 20 2d 2d 2d 20 53 50 41 43 45 20 ┆2 3390 REM 3392 REM --- SPACE ┆
0x0344c0…0344e0 4b 45 59 20 2d 2d 2d 0d 0a 33 33 39 34 20 52 45 4d 0d 0a 33 34 30 30 20 49 46 20 4d 49 44 24 28 ┆KEY --- 3394 REM 3400 IF MID$(┆
0x0344e0…034500 46 49 45 4c 44 49 4e 50 55 54 24 2c 49 25 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 33 31 34 ┆FIELDINPUT$,I%,1) = " " GOTO 314┆
0x034500…034520 (14, 0, 10) 41 4d 45 49 4e 50 46 4c 41 47 25 20 3d 20 30 20 41 4e 44 20 56 41 4c 28 41 52 42 4e 52 24 29 20 ┆AMEINPFLAG% = 0 AND VAL(ARBNR$) ┆
0x034520…034540 3d 3e 20 33 20 47 4f 54 4f 20 33 39 38 32 0d 0a 33 37 35 34 20 49 46 20 56 41 4c 28 41 52 42 4e ┆=> 3 GOTO 3982 3754 IF VAL(ARBN┆
0x034540…034560 52 24 29 20 3c 3d 20 32 20 41 4e 44 20 4e 4b 45 59 49 4e 50 25 20 3d 20 38 20 47 4f 54 4f 20 31 ┆R$) <= 2 AND NKEYINP% = 8 GOTO 1┆
0x034560…034580 31 32 35 0d 0a 33 37 35 36 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 3d 20 32 20 41 4e ┆125 3756 IF VAL(ARBNR$) <= 2 AN┆
0x034580…0345a0 44 20 4e 4b 45 59 49 4e 50 25 20 3d 20 33 20 47 4f 54 4f 20 31 39 38 32 0d 0a 33 37 35 37 20 47 ┆D NKEYINP% = 3 GOTO 1982 3757 G┆
0x0345a0…0345c0 4f 54 4f 20 33 39 38 32 0d 0a 33 37 35 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆OTO 3982 3758 REM *************┆
0x0345c0…0345e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0345e0…034600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 37 35 39 20 ┆************************* 3759 ┆
0x034600…034620 52 45 4d 20 2a 20 20 46 4f 52 4d 4e 41 4d 45 20 4f 52 20 44 41 54 41 4e 41 4d 45 20 49 4e 50 55 ┆REM * FORMNAME OR DATANAME INPU┆
0x034620…034640 54 20 45 52 52 4f 52 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 33 37 36 30 20 52 45 4d 20 2a 2a ┆T ERROR * 3760 REM **┆
0x034640…034660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x034680…0346a0 2a 2a 2a 2a 0d 0a 33 37 36 32 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 3d 20 32 20 54 ┆**** 3762 IF VAL(ARBNR$) <= 2 T┆
0x0346a0…0346c0 48 45 4e 20 47 4f 54 4f 20 31 37 36 30 20 45 4c 53 45 20 49 46 20 46 4f 52 4d 4e 41 4d 45 49 4e ┆HEN GOTO 1760 ELSE IF FORMNAMEIN┆
0x0346c0…0346e0 50 46 4c 41 47 25 20 47 4f 54 4f 20 33 38 30 30 20 45 4c 53 45 20 47 4f 53 55 42 20 33 39 32 30 ┆PFLAG% GOTO 3800 ELSE GOSUB 3920┆
0x0346e0…034700 20 3a 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 37 36 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ : GOTO 3140 3763 REM *********┆
0x034700…034720 (14, 0, 11) 0a 33 38 38 37 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 3887 REM **********************┆
0x034720…034740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x034740…034760 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 38 38 38 20 45 52 52 46 4c 41 47 25 20 ┆**************** 3888 ERRFLAG% ┆
0x034760…034780 3d 20 30 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 22 43 48 41 49 4e 49 4e 46 2e 44 45 50 22 ┆= 0 : FILENAME$ = "CHAININF.DEP"┆
0x034780…0347a0 0d 0a 33 38 39 30 20 4f 50 45 4e 20 22 52 22 2c 23 35 2c 46 49 4c 45 4e 41 4d 45 24 2c 32 36 0d ┆ 3890 OPEN "R",#5,FILENAME$,26 ┆
0x0347a0…0347c0 0a 33 38 39 34 20 46 49 45 4c 44 20 23 35 2c 31 32 20 41 53 20 43 48 41 49 4e 49 4e 46 4f 31 24 ┆ 3894 FIELD #5,12 AS CHAININFO1$┆
0x0347c0…0347e0 2c 31 32 20 41 53 20 43 48 41 49 4e 49 4e 46 4f 32 24 2c 32 20 41 53 20 43 48 41 49 4e 49 4e 46 ┆,12 AS CHAININFO2$,2 AS CHAININF┆
0x0347e0…034800 4f 33 24 0d 0a 33 38 39 35 20 4c 53 45 54 20 43 48 41 49 4e 49 4e 46 4f 31 24 20 3d 20 53 50 41 ┆O3$ 3895 LSET CHAININFO1$ = SPA┆
0x034800…034820 43 45 24 28 31 32 29 20 3a 20 4c 53 45 54 20 43 48 41 49 4e 49 4e 46 4f 32 24 20 3d 20 53 50 41 ┆CE$(12) : LSET CHAININFO2$ = SPA┆
0x034820…034840 43 45 24 28 31 32 29 20 3a 20 4c 53 45 54 20 43 48 41 49 4e 49 4e 46 4f 33 24 20 3d 20 53 50 41 ┆CE$(12) : LSET CHAININFO3$ = SPA┆
0x034840…034860 43 45 24 28 32 29 0d 0a 33 38 39 36 20 4c 53 45 54 20 43 48 41 49 4e 49 4e 46 4f 31 24 20 3d 20 ┆CE$(2) 3896 LSET CHAININFO1$ = ┆
0x034860…034880 46 4f 52 4d 4e 41 4d 45 24 20 3a 20 4c 53 45 54 20 43 48 41 49 4e 49 4e 46 4f 32 24 20 3d 20 44 ┆FORMNAME$ : LSET CHAININFO2$ = D┆
0x034880…0348a0 41 54 41 4e 41 4d 45 24 20 3a 20 4c 53 45 54 20 43 48 41 49 4e 49 4e 46 4f 33 24 20 3d 20 41 52 ┆ATANAME$ : LSET CHAININFO3$ = AR┆
0x0348a0…0348c0 42 4e 52 24 0d 0a 33 38 39 38 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 50 55 54 20 23 35 ┆BNR$ 3898 ERRFLAG% = 0 : PUT #5┆
0x0348c0…0348e0 2c 31 0d 0a 33 39 30 34 20 4f 4e 20 56 41 4c 28 41 52 42 4e 52 24 29 20 47 4f 54 4f 20 33 39 30 ┆,1 3904 ON VAL(ARBNR$) GOTO 390┆
0x0348e0…034900 35 2c 33 39 30 36 2c 33 39 30 37 2c 33 39 30 38 2c 33 39 30 39 2c 33 39 31 31 2c 33 39 31 32 2c ┆5,3906,3907,3908,3909,3911,3912,┆
0x034900…034920 (14, 0, 12) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x034920…034940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 31 31 30 20 45 52 52 4d 53 47 4e 52 25 20 3d ┆************** 4110 ERRMSGNR% =┆
0x034940…034960 20 37 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 34 31 34 30 20 47 4f 53 55 42 20 31 30 30 ┆ 7 : GOSUB 20000 4140 GOSUB 100┆
0x034960…034980 30 0d 0a 34 31 36 30 20 44 41 54 41 4e 41 4d 45 24 20 3d 20 53 50 41 43 45 24 28 31 32 29 0d 0a ┆0 4160 DATANAME$ = SPACE$(12) ┆
0x034980…0349a0 34 31 37 30 20 46 49 45 4c 44 49 4e 50 55 54 24 20 3d 20 53 50 41 43 45 24 28 38 29 20 3a 20 47 ┆4170 FIELDINPUT$ = SPACE$(8) : G┆
0x0349a0…0349c0 4f 53 55 42 20 33 39 37 32 0d 0a 34 31 38 30 20 52 45 54 55 52 4e 0d 0a 34 35 33 30 20 52 45 4d ┆OSUB 3972 4180 RETURN 4530 REM┆
0x0349c0…0349e0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x0349e0…034a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x034a00…034a20 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 35 33 34 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 48 45 41 44 45 ┆******* 4534 REM * PRINT HEADE┆
0x034a20…034a40 52 20 4f 4e 20 43 52 54 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 34 35 33 35 20 52 45 4d 20 ┆R ON CRT * 4535 REM ┆
0x034a40…034a60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x034a80…034aa0 2a 2a 2a 2a 2a 2a 0d 0a 34 35 33 36 20 58 50 4f 53 25 20 3d 20 33 32 20 3a 20 59 50 4f 53 25 20 ┆****** 4536 XPOS% = 32 : YPOS% ┆
0x034aa0…034ac0 3d 20 34 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 35 34 30 20 54 45 58 54 4e 52 25 20 3d ┆= 4 : GOSUB 1990 4540 TEXTNR% =┆
0x034ac0…034ae0 20 38 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 34 35 34 32 20 47 4f 54 4f 20 33 31 30 32 ┆ 8 : GOSUB 10500 4542 GOTO 3102┆
0x034ae0…034b00 0d 0a 34 35 35 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 4555 REM *********************┆
0x034b00…034b20 (14, 0, 13) 30 20 45 4c 53 45 20 33 33 32 30 0d 0a 33 34 32 30 20 52 45 4d 0d 0a 33 34 32 32 20 52 45 4d 20 ┆0 ELSE 3320 3420 REM 3422 REM ┆
0x034b20…034b40 2d 2d 2d 20 52 55 42 2d 4f 55 54 20 4b 45 59 20 2d 2d 2d 0d 0a 33 34 32 34 20 52 45 4d 0d 0a 33 ┆--- RUB-OUT KEY --- 3424 REM 3┆
0x034b40…034b60 34 33 30 20 49 46 20 49 25 20 3d 20 31 20 47 4f 54 4f 20 33 34 34 36 0d 0a 33 34 33 35 20 4d 49 ┆430 IF I% = 1 GOTO 3446 3435 MI┆
0x034b60…034b80 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 49 25 2c 31 29 20 3d 20 22 20 22 20 3a 20 4c 45 54 ┆D$(FIELDINPUT$,I%,1) = " " : LET┆
0x034b80…034ba0 20 49 25 20 3d 20 49 25 20 2d 31 0d 0a 33 34 34 35 20 50 52 49 4e 54 20 22 20 22 3b 20 3a 20 50 ┆ I% = I% -1 3445 PRINT " "; : P┆
0x034ba0…034bc0 52 49 4e 54 20 43 48 52 24 28 38 29 3b 43 48 52 24 28 38 29 3b 20 3a 20 47 4f 54 4f 20 33 31 34 ┆RINT CHR$(8);CHR$(8); : GOTO 314┆
0x034bc0…034be0 30 0d 0a 33 34 34 36 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 49 25 2c 31 29 20 3d ┆0 3446 MID$(FIELDINPUT$,I%,1) =┆
0x034be0…034c00 20 22 20 22 0d 0a 33 34 34 37 20 50 52 49 4e 54 20 22 20 22 3b 20 3a 20 50 52 49 4e 54 20 43 48 ┆ " " 3447 PRINT " "; : PRINT CH┆
0x034c00…034c20 52 24 28 38 29 3b 20 3a 20 47 4f 54 4f 20 33 31 34 30 0d 0a 33 34 34 38 20 52 45 4d 0d 0a 33 34 ┆R$(8); : GOTO 3140 3448 REM 34┆
0x034c20…034c40 35 30 20 52 45 4d 20 2d 2d 2d 20 46 49 45 44 20 42 41 43 4b 57 41 52 44 20 4b 45 59 20 2d 2d 2d ┆50 REM --- FIED BACKWARD KEY ---┆
0x034c40…034c60 0d 0a 33 34 35 31 20 52 45 4d 0d 0a 33 34 35 32 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 ┆ 3451 REM 3452 IF VAL(ARBNR$) ┆
0x034c60…034c80 3c 3d 20 32 20 47 4f 54 4f 20 31 34 35 30 0d 0a 33 34 35 34 20 49 46 20 46 4f 52 4d 4e 41 4d 45 ┆<= 2 GOTO 1450 3454 IF FORMNAME┆
0x034c80…034ca0 49 4e 50 46 4c 41 47 25 20 47 4f 54 4f 20 33 31 32 35 0d 0a 33 34 35 35 20 4d 49 44 24 28 44 41 ┆INPFLAG% GOTO 3125 3455 MID$(DA┆
0x034ca0…034cc0 54 41 4e 41 4d 45 24 2c 31 2c 38 29 20 3d 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c ┆TANAME$,1,8) = MID$(FIELDINPUT$,┆
0x034cc0…034ce0 31 2c 38 29 0d 0a 33 34 36 30 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 38 29 ┆1,8) 3460 MID$(FIELDINPUT$,1,8)┆
0x034ce0…034d00 20 3d 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 38 29 20 3a 20 47 4f 54 4f 20 33 31 ┆ = MID$(FORMNAME$,1,8) : GOTO 31┆
0x034d00…034d20 (14, 0, 14) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x034d20…034d40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 ┆***************************** 3┆
0x034d40…034d60 37 36 34 20 52 45 4d 20 2a 20 20 49 4e 50 55 54 20 4e 45 58 54 20 46 49 45 4c 44 20 4f 52 20 43 ┆764 REM * INPUT NEXT FIELD OR C┆
0x034d60…034d80 48 41 49 4e 20 54 4f 20 53 45 4c 2e 20 50 52 4f 47 52 41 4d 4d 20 2f 20 4d 4f 44 55 4c 20 20 20 ┆HAIN TO SEL. PROGRAMM / MODUL ┆
0x034d80…034da0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 33 37 36 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆ * 3765 REM *******┆
0x034da0…034dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x034dc0…034de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x034de0…034e00 0a 33 37 36 36 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 3d 20 32 20 47 4f 54 4f 20 31 ┆ 3766 IF VAL(ARBNR$) <= 2 GOTO 1┆
0x034e00…034e20 37 38 30 0d 0a 33 37 38 30 20 49 46 20 46 4f 52 4d 4e 41 4d 45 49 4e 50 46 4c 41 47 25 20 3d 20 ┆780 3780 IF FORMNAMEINPFLAG% = ┆
0x034e20…034e40 30 20 47 4f 54 4f 20 33 37 39 30 0d 0a 33 37 38 35 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 ┆0 GOTO 3790 3785 MID$(FORMNAME$┆
0x034e40…034e60 2c 31 2c 38 29 20 3d 20 4d 49 44 24 28 46 49 45 4c 44 49 4e 50 55 54 24 2c 31 2c 38 29 20 3a 20 ┆,1,8) = MID$(FIELDINPUT$,1,8) : ┆
0x034e60…034e80 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 39 2c 34 29 20 3d 20 22 2e 46 52 4d 22 20 0d 0a 33 ┆MID$(FORMNAME$,9,4) = ".FRM" 3┆
0x034e80…034ea0 37 38 37 20 49 46 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 31 29 20 3c 3e 20 22 20 ┆787 IF MID$(FORMNAME$,1,1) <> " ┆
0x034ea0…034ec0 22 20 41 4e 44 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 39 20 4f 52 20 56 41 4c 28 41 52 42 ┆" AND VAL(ARBNR$) = 9 OR VAL(ARB┆
0x034ec0…034ee0 4e 52 24 29 20 3d 20 31 31 20 54 48 45 4e 20 47 4f 54 4f 20 33 37 39 35 20 45 4c 53 45 20 47 4f ┆NR$) = 11 THEN GOTO 3795 ELSE GO┆
0x034ee0…034f00 54 4f 20 33 39 38 32 0d 0a 33 37 39 30 20 4d 49 44 24 28 44 41 54 41 4e 41 4d 45 24 2c 31 2c 38 ┆TO 3982 3790 MID$(DATANAME$,1,8┆
0x034f00…034f20 (14, 0, 15) 33 39 31 33 2c 33 39 31 34 2c 33 39 31 35 2c 33 39 31 36 0d 0a 33 39 30 35 20 47 4f 54 4f 20 31 ┆3913,3914,3915,3916 3905 GOTO 1┆
0x034f20…034f40 36 0d 0a 33 39 30 36 20 47 4f 54 4f 20 31 36 0d 0a 33 39 30 37 20 43 48 41 49 4e 20 22 42 3a 45 ┆6 3906 GOTO 16 3907 CHAIN "B:E┆
0x034f40…034f60 4e 54 52 59 4d 45 2e 43 4f 4d 22 0d 0a 33 39 30 38 20 43 48 41 49 4e 20 22 42 3a 45 4e 54 52 59 ┆NTRYME.COM" 3908 CHAIN "B:ENTRY┆
0x034f60…034f80 4d 45 2e 43 4f 4d 22 0d 0a 33 39 30 39 20 43 48 41 49 4e 20 22 42 3a 45 4e 54 52 59 4d 45 2e 43 ┆ME.COM" 3909 CHAIN "B:ENTRYME.C┆
0x034f80…034fa0 4f 4d 22 0d 0a 33 39 31 31 20 43 48 41 49 4e 20 22 42 3a 45 4e 54 52 59 4d 45 2e 43 4f 4d 22 0d ┆OM" 3911 CHAIN "B:ENTRYME.COM" ┆
0x034fa0…034fc0 0a 33 39 31 32 20 43 48 41 49 4e 20 22 42 3a 45 4e 54 52 59 4d 45 2e 43 4f 4d 22 0d 0a 33 39 31 ┆ 3912 CHAIN "B:ENTRYME.COM" 391┆
0x034fc0…034fe0 33 20 43 48 41 49 4e 20 22 42 3a 45 4e 54 52 59 4d 45 2e 43 4f 4d 22 0d 0a 33 39 31 34 20 47 4f ┆3 CHAIN "B:ENTRYME.COM" 3914 GO┆
0x034fe0…035000 54 4f 20 34 35 39 30 0d 0a 33 39 31 35 20 43 48 41 49 4e 20 22 42 3a 45 4e 54 52 59 4d 45 2e 43 ┆TO 4590 3915 CHAIN "B:ENTRYME.C┆
0x035000…035020 4f 4d 22 0d 0a 33 39 31 36 20 47 4f 54 4f 20 32 30 37 31 30 0d 0a 33 39 31 37 20 52 45 4d 20 2a ┆OM" 3916 GOTO 20710 3917 REM *┆
0x035020…035040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x035060…035080 2a 2a 2a 2a 2a 0d 0a 33 39 31 38 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 ┆***** 3918 REM * SUB.: PRINT E┆
0x035080…0350a0 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 41 4e 44 20 50 4f 53 2e 20 43 55 52 53 4f ┆RRMSG. IN LINE 25 AND POS. CURSO┆
0x0350a0…0350c0 52 20 09 09 20 20 20 20 20 20 2a 0d 0a 33 39 31 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆R * 3919 REM **********┆
0x0350c0…0350e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0350e0…035100 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 33 39 ┆**************************** 39┆
0x035100…035120 (14, 1, 1) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x035120…035140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 35 36 30 20 52 45 4d 20 2a 20 20 50 ┆***************** 4560 REM * P┆
0x035140…035160 52 49 4e 54 20 48 45 41 44 45 52 20 4f 4e 20 43 52 54 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d ┆RINT HEADER ON CRT * ┆
0x035160…035180 0a 34 35 36 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 4562 REM **********************┆
0x035180…0351a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0351a0…0351c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 35 36 35 20 58 50 4f 53 25 20 3d 20 32 ┆**************** 4565 XPOS% = 2┆
0x0351c0…0351e0 37 20 3a 20 59 50 4f 53 25 20 3d 20 34 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 35 37 35 ┆7 : YPOS% = 4 : GOSUB 1990 4575┆
0x0351e0…035200 20 54 45 58 54 4e 52 25 20 3d 20 39 20 3a 20 47 4f 53 55 42 20 31 30 35 30 30 0d 0a 34 35 38 30 ┆ TEXTNR% = 9 : GOSUB 10500 4580┆
0x035200…035220 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 3b 43 48 52 24 28 37 29 3b 43 48 52 24 28 37 29 3b 20 ┆ PRINT CHR$(7);CHR$(7);CHR$(7); ┆
0x035220…035240 3a 20 47 4f 54 4f 20 33 31 30 32 0d 0a 34 35 38 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆: GOTO 3102 4585 REM **********┆
0x035240…035260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x035260…035280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 35 ┆**************************** 45┆
0x035280…0352a0 39 30 20 52 45 4d 20 2a 20 20 44 49 53 50 4c 41 59 20 41 52 42 53 54 41 54 2d 52 45 43 4f 52 44 ┆90 REM * DISPLAY ARBSTAT-RECORD┆
0x0352a0…0352c0 20 4f 4e 20 43 52 54 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 34 35 39 31 20 52 45 4d 20 2a 2a ┆ ON CRT * 4591 REM **┆
0x0352c0…0352e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x035300…035320 (14, 1, 2) 55 42 20 39 35 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UB 9580 ┆
0x035320…035340 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d ┆ REM *** INIT FORM┆
0x035340…035360 41 54 2d 42 55 46 46 45 52 0d 0a 34 36 33 38 20 47 4f 53 55 42 20 39 36 37 34 20 20 20 20 20 20 ┆AT-BUFFER 4638 GOSUB 9674 ┆
0x035360…035380 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f ┆ REM *** READ FO┆
0x035380…0353a0 52 4d 41 54 2d 52 45 43 2e 0d 0a 34 36 34 32 20 49 46 20 46 4f 52 4d 42 59 54 45 53 24 20 3c 3e ┆RMAT-REC. 4642 IF FORMBYTES$ <>┆
0x0353a0…0353c0 20 22 23 26 22 20 54 48 45 4e 20 47 4f 53 55 42 20 34 37 37 30 20 3a 20 47 4f 54 4f 20 31 36 0d ┆ "#&" THEN GOSUB 4770 : GOTO 16 ┆
0x0353c0…0353e0 0a 34 36 34 34 20 46 49 45 4c 44 4e 4f 24 20 3d 20 22 30 30 30 22 20 3a 20 4d 4f 44 45 24 20 3d ┆ 4644 FIELDNO$ = "000" : MODE$ =┆
0x0353e0…035400 20 22 30 30 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 20 0d 0a 34 36 34 36 20 ┆ "00" : SPECMOD$ = "000" 4646 ┆
0x035400…035420 4c 53 45 54 20 46 4c 4e 24 20 3d 20 46 49 45 4c 44 4e 4f 24 20 3a 20 4c 53 45 54 20 4d 4f 24 20 ┆LSET FLN$ = FIELDNO$ : LSET MO$ ┆
0x035420…035440 3d 20 4d 4f 44 45 24 20 3a 20 4c 53 45 54 20 53 4d 24 20 3d 20 53 50 45 43 4d 4f 44 24 0d 0a 34 ┆= MODE$ : LSET SM$ = SPECMOD$ 4┆
0x035440…035460 36 34 37 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆647 REM ************************┆
0x035460…035480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x035480…0354a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 34 38 20 52 45 4d 20 2a 20 20 43 41 4c 4c ┆************** 4648 REM * CALL┆
0x0354a0…0354c0 20 54 48 45 20 44 45 50 20 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 34 36 34 39 20 52 45 4d ┆ THE DEP * 4649 REM┆
0x0354c0…0354e0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x0354e0…035500 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x035500…035520 (14, 1, 3) 45 24 3b 3a 58 50 4f 53 25 20 3d 20 31 39 3a 59 50 4f 53 25 20 3d 20 32 34 3a 47 4f 53 55 42 20 ┆E$;:XPOS% = 19:YPOS% = 24:GOSUB ┆
0x035520…035540 31 39 39 30 0d 0a 34 37 30 30 20 50 52 49 4e 54 20 4d 49 44 24 28 53 54 41 54 55 53 24 2c 31 2c ┆1990 4700 PRINT MID$(STATUS$,1,┆
0x035540…035560 32 29 3b 3a 58 50 4f 53 25 20 3d 20 32 33 3a 59 50 4f 53 25 20 3d 20 32 34 3a 47 4f 53 55 42 20 ┆2);:XPOS% = 23:YPOS% = 24:GOSUB ┆
0x035560…035580 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 53 54 41 54 55 53 24 2c 33 2c 32 29 3b 0d 0a 34 ┆1990:PRINT MID$(STATUS$,3,2); 4┆
0x035580…0355a0 37 31 30 20 58 50 4f 53 25 20 3d 20 32 37 3a 59 50 4f 53 25 20 3d 20 32 34 3a 47 4f 53 55 42 20 ┆710 XPOS% = 27:YPOS% = 24:GOSUB ┆
0x0355a0…0355c0 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 53 54 41 54 55 53 24 2c 35 2c 32 29 3b 43 48 52 ┆1990:PRINT MID$(STATUS$,5,2);CHR┆
0x0355c0…0355e0 24 28 31 33 29 3b 0d 0a 34 37 31 31 20 49 46 20 46 4f 52 4d 4e 52 25 20 3d 20 33 20 54 48 45 4e ┆$(13); 4711 IF FORMNR% = 3 THEN┆
0x0355e0…035600 20 47 4f 53 55 42 20 34 38 37 31 20 3a 20 47 4f 54 4f 20 34 37 34 38 0d 0a 34 37 31 32 20 58 50 ┆ GOSUB 4871 : GOTO 4748 4712 XP┆
0x035600…035620 4f 53 25 20 3d 20 32 38 3a 59 50 4f 53 25 20 3d 20 34 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 ┆OS% = 28:YPOS% = 4:GOSUB 1990:PR┆
0x035620…035640 49 4e 54 20 4b 45 24 3b 3a 58 50 4f 53 25 20 3d 20 34 30 3a 59 50 4f 53 25 20 3d 20 34 3a 47 4f ┆INT KE$;:XPOS% = 40:YPOS% = 4:GO┆
0x035640…035660 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4b 56 24 3b 0d 0a 34 37 31 34 20 58 50 4f 53 25 20 ┆SUB 1990:PRINT KV$; 4714 XPOS% ┆
0x035660…035680 3d 20 35 31 3a 59 50 4f 53 25 20 3d 20 34 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 ┆= 51:YPOS% = 4:GOSUB 1990:PRINT ┆
0x035680…0356a0 45 43 24 3b 3a 58 50 4f 53 25 20 3d 20 32 38 3a 59 50 4f 53 25 20 3d 20 35 3a 47 4f 53 55 42 20 ┆EC$;:XPOS% = 28:YPOS% = 5:GOSUB ┆
0x0356a0…0356c0 31 39 39 30 3a 50 52 49 4e 54 20 45 45 24 3b 0d 0a 34 37 31 36 20 58 50 4f 53 25 20 3d 20 34 30 ┆1990:PRINT EE$; 4716 XPOS% = 40┆
0x0356c0…0356e0 3a 59 50 4f 53 25 20 3d 20 35 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 56 45 24 3b ┆:YPOS% = 5:GOSUB 1990:PRINT VE$;┆
0x0356e0…035700 3a 58 50 4f 53 25 20 3d 20 34 30 3a 59 50 4f 53 25 20 3d 20 36 3a 47 4f 53 55 42 20 31 39 39 30 ┆:XPOS% = 40:YPOS% = 6:GOSUB 1990┆
0x035700…035720 (14, 1, 4) 41 54 2d 44 49 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆AT-DIR *************************┆
0x035720…035740 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 38 31 32 20 47 4f 53 55 42 20 39 31 38 30 20 20 20 20 20 20 ┆********* 4812 GOSUB 9180 ┆
0x035740…035760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 ┆ ┆
0x035760…035780 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 41 52 42 53 54 41 54 2d 44 49 52 0d 0a 34 38 31 34 ┆ REM *** READ ARBSTAT-DIR 4814┆
0x035780…0357a0 20 49 44 24 20 3d 20 22 46 52 4d 22 20 3a 20 50 31 25 20 3d 20 32 20 3a 20 50 32 25 20 3d 20 32 ┆ ID$ = "FRM" : P1% = 2 : P2% = 2┆
0x0357a0…0357c0 0d 0a 34 38 31 35 20 46 4f 52 20 46 25 20 3d 20 31 20 54 4f 20 32 0d 0a 34 38 31 36 20 58 50 4f ┆ 4815 FOR F% = 1 TO 2 4816 XPO┆
0x0357c0…0357e0 53 25 20 3d 20 50 31 25 20 3a 20 59 50 4f 53 25 20 3d 20 50 32 25 20 3a 20 47 4f 53 55 42 20 31 ┆S% = P1% : YPOS% = P2% : GOSUB 1┆
0x0357e0…035800 39 39 30 0d 0a 34 38 32 30 20 46 4f 52 20 49 25 20 3d 20 31 35 20 54 4f 20 31 32 37 20 53 54 45 ┆990 4820 FOR I% = 15 TO 127 STE┆
0x035800…035820 50 20 31 36 0d 0a 34 38 32 35 20 49 46 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c ┆P 16 4825 IF MID$(ARBSTATDIR1$,┆
0x035820…035840 49 25 2b 39 2c 33 29 20 3d 20 49 44 24 20 54 48 45 4e 20 50 52 49 4e 54 20 4d 49 44 24 28 41 52 ┆I%+9,3) = ID$ THEN PRINT MID$(AR┆
0x035840…035860 42 53 54 41 54 44 49 52 31 24 2c 49 25 2c 38 29 3b 0d 0a 34 38 32 37 20 58 50 4f 53 25 20 3d 20 ┆BSTATDIR1$,I%,8); 4827 XPOS% = ┆
0x035860…035880 50 31 25 20 2b 20 31 30 3a 50 31 25 20 3d 20 58 50 4f 53 25 3a 59 50 4f 53 25 20 3d 20 50 32 25 ┆P1% + 10:P1% = XPOS%:YPOS% = P2%┆
0x035880…0358a0 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 38 33 30 20 4e 45 58 54 20 49 25 0d 0a 34 38 33 32 20 ┆:GOSUB 1990 4830 NEXT I% 4832 ┆
0x0358a0…0358c0 50 31 25 20 3d 20 32 3a 58 50 4f 53 25 20 3d 20 50 31 25 3a 59 50 4f 53 25 20 3d 20 50 32 25 20 ┆P1% = 2:XPOS% = P1%:YPOS% = P2% ┆
0x0358c0…0358e0 2b 20 31 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 38 33 34 20 46 4f 52 20 49 25 20 3d 20 31 34 ┆+ 1:GOSUB 1990 4834 FOR I% = 14┆
0x0358e0…035900 33 20 54 4f 20 32 33 39 20 53 54 45 50 20 31 36 20 0d 0a 34 38 33 36 20 49 46 20 4d 49 44 24 28 ┆3 TO 239 STEP 16 4836 IF MID$(┆
0x035900…035920 (14, 1, 5) 2a 2a 2a 2a 0d 0a 34 35 39 32 20 49 46 20 41 52 42 53 54 41 54 4f 50 45 4e 25 20 47 4f 54 4f 20 ┆**** 4592 IF ARBSTATOPEN% GOTO ┆
0x035920…035940 34 35 39 36 20 45 4c 53 45 20 47 4f 53 55 42 20 39 31 30 30 20 09 09 09 09 09 52 45 4d 20 2a 2a ┆4596 ELSE GOSUB 9100 REM **┆
0x035940…035960 2a 20 4f 50 45 4e 20 41 52 42 53 54 41 54 2d 46 49 4c 45 0d 0a 34 35 39 36 20 47 4f 53 55 42 20 ┆* OPEN ARBSTAT-FILE 4596 GOSUB ┆
0x035960…035980 39 31 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆9180 ┆
0x035980…0359a0 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 41 52 42 53 54 41 54 2d 44 49 52 2e 0d 0a 34 36 30 ┆ REM *** READ ARBSTAT-DIR. 460┆
0x0359a0…0359c0 32 20 49 46 20 4d 49 44 24 28 44 41 54 41 4e 41 4d 45 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 47 ┆2 IF MID$(DATANAME$,1,1) = " " G┆
0x0359c0…0359e0 4f 54 4f 20 34 36 31 32 0d 0a 34 36 30 33 20 49 46 20 44 41 54 41 4e 41 4d 45 24 20 3d 20 22 4b ┆OTO 4612 4603 IF DATANAME$ = "K┆
0x0359e0…035a00 41 54 41 4c 4f 47 20 2e 44 41 54 22 20 47 4f 54 4f 20 34 38 30 30 0d 0a 34 36 30 34 20 46 49 4c ┆ATALOG .DAT" GOTO 4800 4604 FIL┆
0x035a00…035a20 45 4e 41 4d 45 24 20 3d 20 44 41 54 41 4e 41 4d 45 24 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 31 ┆ENAME$ = DATANAME$ : FORMNR% = 1┆
0x035a20…035a40 0d 0a 34 36 30 36 20 47 4f 53 55 42 20 37 34 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 4606 GOSUB 7410 ┆
0x035a40…035a60 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 46 49 4c 45 20 49 ┆ REM *** FILE I┆
0x035a60…035a80 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 0d 0a 34 36 30 38 20 49 46 20 46 49 4c 45 49 4e 44 ┆N ARBSTAT-DIR ? 4608 IF FILEIND┆
0x035a80…035aa0 49 52 25 20 47 4f 54 4f 20 34 36 32 30 20 45 4c 53 45 20 47 4f 53 55 42 20 34 31 31 30 20 3a 20 ┆IR% GOTO 4620 ELSE GOSUB 4110 : ┆
0x035aa0…035ac0 47 4f 54 4f 20 33 39 38 32 0d 0a 34 36 31 32 20 49 46 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 ┆GOTO 3982 4612 IF MID$(FORMNAME┆
0x035ac0…035ae0 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 31 30 31 33 0d 0a 34 36 31 33 20 49 46 20 ┆$,1,1) = " " GOTO 1013 4613 IF ┆
0x035ae0…035b00 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 22 4b 41 54 41 4c 4f 47 20 2e 46 52 4d 22 20 47 4f 54 4f 20 ┆FORMNAME$ = "KATALOG .FRM" GOTO ┆
0x035b00…035b20 (14, 1, 6) 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 35 30 20 46 25 20 3d 20 56 41 52 50 54 52 28 23 32 29 20 3a 20 ┆******* 4650 F% = VARPTR(#2) : ┆
0x035b20…035b40 5a 25 20 3d 20 56 41 52 50 54 52 28 23 31 29 20 3a 20 43 41 4c 4c 20 49 4e 49 54 28 46 25 2c 5a ┆Z% = VARPTR(#1) : CALL INIT(F%,Z┆
0x035b40…035b60 25 29 20 20 0d 0a 34 36 35 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆%) 4652 REM *****************┆
0x035b60…035b80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x035b80…035ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 35 34 20 47 4f 53 55 ┆********************* 4654 GOSU┆
0x035ba0…035bc0 42 20 37 32 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B 7240 ┆
0x035bc0…035be0 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 54 45 53 54 20 44 45 50 20 47 45 4e 45 ┆ REM *** TEST DEP GENE┆
0x035be0…035c00 52 41 4c 2d 53 54 41 54 55 53 0d 0a 34 36 35 36 20 4f 4e 20 50 52 49 4d 53 54 25 20 47 4f 54 4f ┆RAL-STATUS 4656 ON PRIMST% GOTO┆
0x035c00…035c20 20 34 36 38 30 2c 34 36 35 30 2c 34 36 35 30 2c 34 36 35 30 2c 34 36 35 30 2c 34 36 35 30 2c 34 ┆ 4680,4650,4650,4650,4650,4650,4┆
0x035c20…035c40 36 35 30 2c 31 36 2c 34 36 35 30 2c 34 36 35 30 2c 34 36 35 30 2c 34 36 35 30 2c 34 36 35 30 2c ┆650,16,4650,4650,4650,4650,4650,┆
0x035c40…035c60 34 36 35 30 0d 0a 34 36 35 38 20 47 4f 53 55 42 20 37 32 38 30 20 20 20 20 20 20 20 20 20 20 20 ┆4650 4658 GOSUB 7280 ┆
0x035c60…035c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a ┆ REM *┆
0x035c80…035ca0 2a 2a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 28 44 45 50 2d 45 52 52 4f 52 29 0d 0a 34 36 ┆** PRINT ERRMSG. (DEP-ERROR) 46┆
0x035ca0…035cc0 36 30 20 47 4f 54 4f 20 31 36 0d 0a 34 36 38 30 20 49 46 20 41 52 42 53 54 41 54 25 20 47 4f 54 ┆60 GOTO 16 4680 IF ARBSTAT% GOT┆
0x035cc0…035ce0 4f 20 34 38 31 32 0d 0a 34 36 38 31 20 58 50 4f 53 25 20 3d 20 33 3a 59 50 4f 53 25 20 3d 20 32 ┆O 4812 4681 XPOS% = 3:YPOS% = 2┆
0x035ce0…035d00 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 33 2c 38 ┆:GOSUB 1990:PRINT MID$(NONZ$,3,8┆
0x035d00…035d20 (14, 1, 7) 3a 50 52 49 4e 54 20 56 4b 24 3b 0d 0a 34 37 31 38 20 58 50 4f 53 25 20 3d 20 35 31 3a 59 50 4f ┆:PRINT VK$; 4718 XPOS% = 51:YPO┆
0x035d20…035d40 53 25 20 3d 20 36 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 46 4b 24 3b 0d 0a 34 37 ┆S% = 6:GOSUB 1990:PRINT FK$; 47┆
0x035d40…035d60 32 30 20 58 50 4f 53 25 20 3d 20 34 30 20 3a 20 59 50 4f 53 25 20 3d 20 37 20 3a 20 47 4f 53 55 ┆20 XPOS% = 40 : YPOS% = 7 : GOSU┆
0x035d60…035d80 42 20 31 39 39 30 0d 0a 34 37 32 31 20 46 4f 52 20 4e 25 20 3d 20 31 20 54 4f 20 36 0d 0a 34 37 ┆B 1990 4721 FOR N% = 1 TO 6 47┆
0x035d80…035da0 32 32 20 49 46 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 34 34 2b 4e 25 2c 31 29 20 3d 20 22 20 22 20 ┆22 IF MID$(NONZ$,44+N%,1) = " " ┆
0x035da0…035dc0 54 48 45 4e 20 50 52 49 4e 54 20 22 30 22 3b 20 45 4c 53 45 20 50 52 49 4e 54 20 4d 49 44 24 28 ┆THEN PRINT "0"; ELSE PRINT MID$(┆
0x035dc0…035de0 4e 4f 4e 5a 24 2c 34 34 2b 4e 25 2c 31 29 3b 0d 0a 34 37 32 33 20 4e 45 58 54 20 4e 25 0d 0a 34 ┆NONZ$,44+N%,1); 4723 NEXT N% 4┆
0x035de0…035e00 37 32 34 20 50 31 25 20 3d 20 33 36 20 3a 20 50 32 25 20 3d 20 31 30 20 3a 20 58 50 4f 53 25 20 ┆724 P1% = 36 : P2% = 10 : XPOS% ┆
0x035e00…035e20 3d 20 50 31 25 20 3a 20 59 50 4f 53 25 20 3d 20 50 32 25 20 3a 20 47 4f 53 55 42 20 31 39 39 30 ┆= P1% : YPOS% = P2% : GOSUB 1990┆
0x035e20…035e40 0d 0a 34 37 32 36 20 46 4f 52 20 46 25 20 3d 20 31 20 54 4f 20 32 31 31 20 53 54 45 50 20 31 35 ┆ 4726 FOR F% = 1 TO 211 STEP 15┆
0x035e40…035e60 0d 0a 34 37 32 38 20 50 52 49 4e 54 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 2c 31 35 29 3b 0d ┆ 4728 PRINT MID$(ADDR$,F%,15); ┆
0x035e60…035e80 0a 34 37 33 30 20 58 50 4f 53 25 20 3d 20 50 31 25 20 3a 20 50 32 25 20 3d 20 50 32 25 20 2b 20 ┆ 4730 XPOS% = P1% : P2% = P2% + ┆
0x035e80…035ea0 31 20 3a 20 59 50 4f 53 25 20 3d 20 50 32 25 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 37 ┆1 : YPOS% = P2% : GOSUB 1990 47┆
0x035ea0…035ec0 33 32 20 4e 45 58 54 20 46 25 0d 0a 34 37 33 34 20 50 31 25 20 3d 20 36 30 20 3a 20 50 32 25 20 ┆32 NEXT F% 4734 P1% = 60 : P2% ┆
0x035ec0…035ee0 3d 20 31 30 20 3a 20 58 50 4f 53 25 20 3d 20 50 31 25 20 3a 20 59 50 4f 53 25 20 3d 20 50 32 25 ┆= 10 : XPOS% = P1% : YPOS% = P2%┆
0x035ee0…035f00 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 37 33 36 20 46 4f 52 20 46 25 20 3d 20 31 20 54 ┆ : GOSUB 1990 4736 FOR F% = 1 T┆
0x035f00…035f20 (14, 1, 8) 41 52 42 53 54 41 54 44 49 52 31 24 2c 49 25 2b 39 2c 33 29 20 3d 20 49 44 24 20 54 48 45 4e 20 ┆ARBSTATDIR1$,I%+9,3) = ID$ THEN ┆
0x035f20…035f40 50 52 49 4e 54 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c 49 25 2c 38 29 3b 0d 0a ┆PRINT MID$(ARBSTATDIR1$,I%,8); ┆
0x035f40…035f60 34 38 33 37 20 58 50 4f 53 25 20 3d 20 50 31 25 20 2b 20 31 30 3a 50 31 25 20 3d 20 58 50 4f 53 ┆4837 XPOS% = P1% + 10:P1% = XPOS┆
0x035f60…035f80 25 3a 59 50 4f 53 25 20 3d 20 50 32 25 20 2b 20 31 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 38 ┆%:YPOS% = P2% + 1:GOSUB 1990 48┆
0x035f80…035fa0 33 38 20 4e 45 58 54 20 49 25 0d 0a 34 38 34 30 20 58 50 4f 53 25 20 3d 20 37 32 3a 59 50 4f 53 ┆38 NEXT I% 4840 XPOS% = 72:YPOS┆
0x035fa0…035fc0 25 20 3d 20 50 32 25 20 2b 20 31 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 38 34 32 20 49 46 20 ┆% = P2% + 1:GOSUB 1990 4842 IF ┆
0x035fc0…035fe0 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 31 30 2c 33 29 20 3d 20 49 44 24 20 54 48 ┆MID$(ARBSTATDIR2$,10,3) = ID$ TH┆
0x035fe0…036000 45 4e 20 50 52 49 4e 54 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 31 2c 38 29 3b ┆EN PRINT MID$(ARBSTATDIR2$,1,8);┆
0x036000…036020 0d 0a 34 38 34 34 20 50 31 25 20 3d 20 32 3a 58 50 4f 53 25 20 3d 20 50 31 25 3a 59 50 4f 53 25 ┆ 4844 P1% = 2:XPOS% = P1%:YPOS%┆
0x036020…036040 20 3d 20 50 32 25 20 2b 20 32 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 38 34 36 20 46 4f 52 20 ┆ = P2% + 2:GOSUB 1990 4846 FOR ┆
0x036040…036060 49 25 20 3d 20 31 37 20 54 4f 20 31 32 39 20 53 54 45 50 20 31 36 0d 0a 34 38 35 30 20 49 46 20 ┆I% = 17 TO 129 STEP 16 4850 IF ┆
0x036060…036080 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 49 25 2b 39 2c 33 29 20 3d 20 49 44 24 20 ┆MID$(ARBSTATDIR2$,I%+9,3) = ID$ ┆
0x036080…0360a0 54 48 45 4e 20 50 52 49 4e 54 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 49 25 2c ┆THEN PRINT MID$(ARBSTATDIR2$,I%,┆
0x0360a0…0360c0 38 29 3b 0d 0a 34 38 35 31 20 58 50 4f 53 25 20 3d 20 50 31 25 20 2b 20 31 30 3a 50 31 25 20 3d ┆8); 4851 XPOS% = P1% + 10:P1% =┆
0x0360c0…0360e0 20 58 50 4f 53 25 3a 59 50 4f 53 25 20 3d 20 50 32 25 20 2b 20 32 3a 47 4f 53 55 42 20 31 39 39 ┆ XPOS%:YPOS% = P2% + 2:GOSUB 199┆
0x0360e0…036100 30 0d 0a 34 38 35 32 20 4e 45 58 54 20 49 25 0d 0a 34 38 35 34 20 50 31 25 20 3d 20 31 32 3a 58 ┆0 4852 NEXT I% 4854 P1% = 12:X┆
0x036100…036120 (14, 1, 9) 34 38 30 30 0d 0a 34 36 31 34 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 46 4f 52 4d 4e 41 4d 45 24 ┆4800 4614 FILENAME$ = FORMNAME$┆
0x036120…036140 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 33 0d 0a 34 36 31 36 20 47 4f 53 55 42 20 37 34 31 30 20 ┆ : FORMNR% = 3 4616 GOSUB 7410 ┆
0x036140…036160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 ┆ ┆
0x036160…036180 09 52 45 4d 20 2a 2a 2a 20 46 49 4c 45 20 49 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 0d 0a ┆ REM *** FILE IN ARBSTAT-DIR ? ┆
0x036180…0361a0 34 36 31 38 20 49 46 20 46 49 4c 45 49 4e 44 49 52 25 20 47 4f 54 4f 20 34 36 32 30 20 45 4c 53 ┆4618 IF FILEINDIR% GOTO 4620 ELS┆
0x0361a0…0361c0 45 20 47 4f 53 55 42 20 33 38 37 33 20 3a 20 47 4f 54 4f 20 33 31 31 30 0d 0a 34 36 32 30 20 52 ┆E GOSUB 3873 : GOTO 3110 4620 R┆
0x0361c0…0361e0 31 24 20 3d 20 4d 49 44 24 28 4e 41 4d 45 24 2c 31 33 2c 34 29 20 3a 20 52 31 25 20 3d 20 56 41 ┆1$ = MID$(NAME$,13,4) : R1% = VA┆
0x0361e0…036200 4c 28 52 31 24 29 0d 0a 34 36 32 32 20 47 4f 53 55 42 20 39 31 35 30 20 3a 20 47 4f 53 55 42 20 ┆L(R1$) 4622 GOSUB 9150 : GOSUB ┆
0x036200…036220 39 35 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9564 ┆
0x036220…036240 20 20 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 49 45 4c 44 0d ┆ REM *** INIT ARBSTAT-FIELD ┆
0x036240…036260 0a 34 36 32 35 20 46 4f 52 4d 43 48 41 49 4e 24 20 3d 20 46 43 24 20 3a 20 4f 4d 4f 44 45 24 20 ┆ 4625 FORMCHAIN$ = FC$ : OMODE$ ┆
0x036260…036280 3d 20 4d 4f 24 20 3a 20 53 54 41 54 55 53 24 20 3d 20 53 54 24 20 3a 20 50 53 54 41 54 55 53 24 ┆= MO$ : STATUS$ = ST$ : PSTATUS$┆
0x036280…0362a0 20 3d 20 53 50 24 0d 0a 34 36 32 36 20 44 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 ┆ = SP$ 4626 DRECCOUNT$ = SPACE$┆
0x0362a0…0362c0 28 36 29 20 3a 20 4d 49 44 24 28 44 52 45 43 43 4f 55 4e 54 24 2c 31 2c 33 29 20 3d 20 53 4d 24 ┆(6) : MID$(DRECCOUNT$,1,3) = SM$┆
0x0362c0…0362e0 20 3a 20 4d 49 44 24 28 44 52 45 43 43 4f 55 4e 54 24 2c 34 2c 33 29 20 3d 20 57 46 24 0d 0a 34 ┆ : MID$(DRECCOUNT$,4,3) = WF$ 4┆
0x0362e0…036300 36 32 37 20 50 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 36 29 20 3a 20 4d 49 44 ┆627 PRECCOUNT$ = SPACE$(6) : MID┆
0x036300…036320 (14, 1, 10) 29 3b 3a 58 50 4f 53 25 20 3d 20 31 35 3a 59 50 4f 53 25 20 3d 20 32 3a 47 4f 53 55 42 20 31 39 ┆);:XPOS% = 15:YPOS% = 2:GOSUB 19┆
0x036320…036340 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 31 31 2c 38 29 3b 43 48 52 24 28 31 ┆90:PRINT MID$(NONZ$,11,8);CHR$(1┆
0x036340…036360 33 29 3b 0d 0a 34 36 38 32 20 58 50 4f 53 25 20 3d 20 33 30 3a 59 50 4f 53 25 20 3d 20 32 3a 47 ┆3); 4682 XPOS% = 30:YPOS% = 2:G┆
0x036360…036380 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 32 33 2c 33 29 ┆OSUB 1990:PRINT MID$(NONZ$,23,3)┆
0x036380…0363a0 3b 43 48 52 24 28 31 33 29 3b 0d 0a 34 36 38 33 20 58 50 4f 53 25 20 3d 20 34 31 3a 59 50 4f 53 ┆;CHR$(13); 4683 XPOS% = 41:YPOS┆
0x0363a0…0363c0 25 20 3d 20 32 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a ┆% = 2:GOSUB 1990:PRINT MID$(NONZ┆
0x0363c0…0363e0 24 2c 32 36 2c 33 29 3b 3a 58 50 4f 53 25 20 3d 20 35 32 3a 59 50 4f 53 25 20 3d 20 32 3a 47 4f ┆$,26,3);:XPOS% = 52:YPOS% = 2:GO┆
0x0363e0…036400 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 32 39 2c 31 29 3b ┆SUB 1990:PRINT MID$(NONZ$,29,1);┆
0x036400…036420 0d 0a 34 36 38 34 20 58 50 4f 53 25 20 3d 20 36 33 3a 59 50 4f 53 25 20 3d 20 32 3a 47 4f 53 55 ┆ 4684 XPOS% = 63:YPOS% = 2:GOSU┆
0x036420…036440 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 33 30 2c 33 29 3b 3a 58 ┆B 1990:PRINT MID$(NONZ$,30,3);:X┆
0x036440…036460 50 4f 53 25 20 3d 20 37 33 3a 59 50 4f 53 25 20 3d 20 32 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 ┆POS% = 73:YPOS% = 2:GOSUB 1990:P┆
0x036460…036480 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 33 33 2c 33 29 3b 0d 0a 34 36 38 35 20 58 50 4f ┆RINT MID$(NONZ$,33,3); 4685 XPO┆
0x036480…0364a0 53 25 20 3d 20 32 38 3a 59 50 4f 53 25 20 3d 20 37 3a 47 4f 53 55 42 20 31 39 39 30 3a 0d 0a 34 ┆S% = 28:YPOS% = 7:GOSUB 1990: 4┆
0x0364a0…0364c0 36 38 36 20 46 4f 52 20 4e 25 3d 31 20 54 4f 20 36 3a 49 46 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c ┆686 FOR N%=1 TO 6:IF MID$(NONZ$,┆
0x0364c0…0364e0 33 38 2b 4e 25 2c 31 29 3d 22 20 22 20 54 48 45 4e 20 50 52 49 4e 54 20 22 30 22 3b 20 45 4c 53 ┆38+N%,1)=" " THEN PRINT "0"; ELS┆
0x0364e0…036500 45 20 50 52 49 4e 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 33 38 2b 4e 25 2c 31 29 3b 0d 0a 34 36 ┆E PRINT MID$(NONZ$,38+N%,1); 46┆
0x036500…036520 (14, 1, 11) 4f 20 31 32 31 20 53 54 45 50 20 31 35 0d 0a 34 37 33 38 20 50 52 49 4e 54 20 4d 49 44 24 28 53 ┆O 121 STEP 15 4738 PRINT MID$(S┆
0x036520…036540 55 42 52 24 2c 46 25 2c 31 35 29 3b 0d 0a 34 37 34 30 20 58 50 4f 53 25 20 3d 20 50 31 25 20 3a ┆UBR$,F%,15); 4740 XPOS% = P1% :┆
0x036540…036560 20 50 32 25 20 3d 20 50 32 25 20 2b 20 31 20 3a 20 59 50 4f 53 25 20 3d 20 50 32 25 20 3a 20 47 ┆ P2% = P2% + 1 : YPOS% = P2% : G┆
0x036560…036580 4f 53 55 42 20 31 39 39 30 0d 0a 34 37 34 32 20 4e 45 58 54 20 46 25 0d 0a 34 37 34 34 20 58 50 ┆OSUB 1990 4742 NEXT F% 4744 XP┆
0x036580…0365a0 4f 53 25 20 3d 20 36 30 20 3a 20 59 50 4f 53 25 20 3d 20 32 32 20 3a 20 47 4f 53 55 42 20 31 39 ┆OS% = 60 : YPOS% = 22 : GOSUB 19┆
0x0365a0…0365c0 39 30 20 3a 20 50 52 49 4e 54 20 4d 52 24 3b 0d 0a 34 37 34 38 20 58 50 4f 53 25 20 3d 20 31 3a ┆90 : PRINT MR$; 4748 XPOS% = 1:┆
0x0365c0…0365e0 59 50 4f 53 25 20 3d 20 32 35 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 53 50 41 43 ┆YPOS% = 25:GOSUB 1990:PRINT SPAC┆
0x0365e0…036600 45 24 28 37 36 29 3b 43 48 52 24 28 31 33 29 3b 22 20 2a 2a 2a 20 28 52 45 53 45 54 29 20 2a 2a ┆E$(76);CHR$(13);" *** (RESET) **┆
0x036600…036620 2a 20 22 3b 43 48 52 24 28 31 33 29 3b 0d 0a 34 37 34 39 20 47 4f 53 55 42 20 31 30 30 30 20 3a ┆* ";CHR$(13); 4749 GOSUB 1000 :┆
0x036620…036640 20 47 4f 53 55 42 20 38 32 31 30 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 43 4c 4f 53 45 20 ┆ GOSUB 8210 REM *** CLOSE ┆
0x036640…036660 46 4f 52 4d 41 54 2d 46 49 4c 45 0d 0a 34 37 35 35 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 ┆FORMAT-FILE 4755 IF VAL(ARBNR$)┆
0x036660…036680 20 3c 3d 20 32 20 41 4e 44 20 46 4f 52 4d 43 48 41 49 4e 45 52 52 4f 52 25 20 54 48 45 4e 20 47 ┆ <= 2 AND FORMCHAINERROR% THEN G┆
0x036680…0366a0 4f 54 4f 20 31 36 20 45 4c 53 45 20 47 4f 54 4f 20 31 30 31 32 20 0d 0a 34 37 35 38 20 52 45 4d ┆OTO 16 ELSE GOTO 1012 4758 REM┆
0x0366a0…0366c0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x0366c0…0366e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0366e0…036700 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 37 36 30 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 45 52 52 4d 53 ┆******* 4760 REM * PRINT ERRMS┆
0x036700…036720 (14, 1, 12) 50 4f 53 25 20 3d 20 50 31 25 3a 59 50 4f 53 25 20 3d 20 50 32 25 20 2b 20 33 3a 47 4f 53 55 42 ┆POS% = P1%:YPOS% = P2% + 3:GOSUB┆
0x036720…036740 20 31 39 39 30 0d 0a 34 38 35 36 20 46 4f 52 20 49 25 20 3d 20 31 34 35 20 54 4f 20 32 32 35 20 ┆ 1990 4856 FOR I% = 145 TO 225 ┆
0x036740…036760 53 54 45 50 20 31 36 0d 0a 34 38 36 30 20 49 46 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 ┆STEP 16 4860 IF MID$(ARBSTATDIR┆
0x036760…036780 32 24 2c 49 25 2b 39 2c 33 29 20 3d 20 49 44 24 20 54 48 45 4e 20 50 52 49 4e 54 20 4d 49 44 24 ┆2$,I%+9,3) = ID$ THEN PRINT MID$┆
0x036780…0367a0 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 49 25 2c 38 29 3b 0d 0a 34 38 36 31 20 58 50 4f 53 25 ┆(ARBSTATDIR2$,I%,8); 4861 XPOS%┆
0x0367a0…0367c0 20 3d 20 50 31 25 20 2b 20 31 30 3a 50 31 25 20 3d 20 58 50 4f 53 25 3a 59 50 4f 53 25 20 3d 20 ┆ = P1% + 10:P1% = XPOS%:YPOS% = ┆
0x0367c0…0367e0 50 32 25 20 2b 20 33 3a 47 4f 53 55 42 20 31 39 39 30 0d 0a 34 38 36 32 20 4e 45 58 54 20 49 25 ┆P2% + 3:GOSUB 1990 4862 NEXT I%┆
0x0367e0…036800 0d 0a 34 38 36 34 20 50 31 25 20 3d 20 32 20 3a 20 50 32 25 20 3d 20 38 20 3a 20 49 44 24 20 3d ┆ 4864 P1% = 2 : P2% = 8 : ID$ =┆
0x036800…036820 20 22 44 41 54 22 0d 0a 34 38 36 36 20 4e 45 58 54 20 46 25 0d 0a 34 38 36 37 20 41 52 42 53 54 ┆ "DAT" 4866 NEXT F% 4867 ARBST┆
0x036820…036840 41 54 25 20 3d 20 30 20 3a 20 58 50 4f 53 25 20 3d 20 36 38 20 3a 20 59 50 4f 53 25 20 3d 20 32 ┆AT% = 0 : XPOS% = 68 : YPOS% = 2┆
0x036840…036860 34 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 3a 20 50 52 49 4e 54 20 22 31 22 3b 20 3a 20 47 4f ┆4 : GOSUB 1990 : PRINT "1"; : GO┆
0x036860…036880 54 4f 20 34 37 34 38 0d 0a 34 38 36 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TO 4748 4868 REM **************┆
0x036880…0368a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0368a0…0368c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 38 36 39 20 52 ┆************************ 4869 R┆
0x0368c0…0368e0 45 4d 20 2a 20 20 50 52 49 4e 54 20 46 4f 52 4d 41 54 2d 4e 4f 2e 20 41 4e 44 20 46 4f 52 4d 41 ┆EM * PRINT FORMAT-NO. AND FORMA┆
0x0368e0…036900 54 2d 43 48 41 49 4e 2d 4b 45 59 20 4f 4e 20 43 52 54 20 09 09 20 20 20 20 20 20 2a 0d 0a 34 38 ┆T-CHAIN-KEY ON CRT * 48┆
0x036900…036920 (14, 1, 13) 24 28 50 52 45 43 43 4f 55 4e 54 24 2c 31 2c 34 29 20 3d 20 56 41 24 20 3a 20 4d 49 44 24 28 50 ┆$(PRECCOUNT$,1,4) = VA$ : MID$(P┆
0x036920…036940 52 45 43 43 4f 55 4e 54 24 2c 35 2c 32 29 20 3d 20 4d 49 44 24 28 50 43 24 2c 31 2c 32 29 0d 0a ┆RECCOUNT$,5,2) = MID$(PC$,1,2) ┆
0x036940…036960 34 36 32 38 20 43 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 36 29 20 3a 20 4d 49 ┆4628 CRECCOUNT$ = SPACE$(6) : MI┆
0x036960…036980 44 24 28 43 52 45 43 43 4f 55 4e 54 24 2c 31 2c 32 29 20 3d 20 4d 49 44 24 28 50 43 24 2c 33 2c ┆D$(CRECCOUNT$,1,2) = MID$(PC$,3,┆
0x036980…0369a0 32 29 20 3a 20 4d 49 44 24 28 43 52 45 43 43 4f 55 4e 54 24 2c 33 2c 34 29 20 3d 20 46 4c 24 0d ┆2) : MID$(CRECCOUNT$,3,4) = FL$ ┆
0x0369a0…0369c0 0a 34 36 32 39 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 4629 REM **********************┆
0x0369c0…0369e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0369e0…036a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 33 30 20 52 45 4d 20 2a 20 20 52 45 ┆**************** 4630 REM * RE┆
0x036a00…036a20 41 44 20 41 52 42 53 54 41 54 2d 46 4f 52 4d 41 54 20 41 4e 44 20 43 41 4c 4c 20 44 45 50 20 54 ┆AD ARBSTAT-FORMAT AND CALL DEP T┆
0x036a20…036a40 4f 20 50 52 49 4e 54 20 49 54 20 4f 4e 20 43 52 54 20 09 20 20 20 20 20 20 2a 0d 0a 34 36 33 31 ┆O PRINT IT ON CRT * 4631┆
0x036a40…036a60 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x036a60…036a80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x036a80…036aa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 36 33 32 20 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 22 44 ┆*********** 4632 FORMNAME$ = "D┆
0x036aa0…036ac0 45 50 46 4f 52 4d 20 2e 44 45 50 22 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 46 4f 52 4d 4e ┆EPFORM .DEP" : FILENAME$ = FORMN┆
0x036ac0…036ae0 41 4d 45 24 0d 0a 34 36 33 34 20 47 4f 53 55 42 20 39 32 38 30 09 09 09 09 09 09 09 09 09 52 45 ┆AME$ 4634 GOSUB 9280 RE┆
0x036ae0…036b00 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 41 54 2d 46 49 4c 45 0d 0a 34 36 33 36 20 47 4f 53 ┆M *** OPEN FORMAT-FILE 4636 GOS┆
0x036b00…036b20 (14, 1, 14) 38 37 20 4e 45 58 54 20 4e 25 0d 0a 34 36 38 38 20 58 50 4f 53 25 20 3d 20 36 31 3a 59 50 4f 53 ┆87 NEXT N% 4688 XPOS% = 61:YPOS┆
0x036b20…036b40 25 20 3d 20 37 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 50 52 45 43 43 4f 55 4e 54 ┆% = 7:GOSUB 1990:PRINT PRECCOUNT┆
0x036b40…036b60 24 3b 3a 58 50 4f 53 25 20 3d 20 37 32 3a 59 50 4f 53 25 20 3d 20 37 3a 47 4f 53 55 42 20 31 39 ┆$;:XPOS% = 72:YPOS% = 7:GOSUB 19┆
0x036b60…036b80 39 30 3a 50 52 49 4e 54 20 43 52 45 43 43 4f 55 4e 54 24 3b 0d 0a 34 36 39 31 20 58 50 4f 53 25 ┆90:PRINT CRECCOUNT$; 4691 XPOS%┆
0x036b80…036ba0 20 3d 20 32 35 3a 59 50 4f 53 25 20 3d 20 31 30 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e ┆ = 25:YPOS% = 10:GOSUB 1990:PRIN┆
0x036ba0…036bc0 54 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 35 31 2c 34 29 3b 3a 58 50 4f 53 25 20 3d 20 32 35 3a 59 ┆T MID$(NONZ$,51,4);:XPOS% = 25:Y┆
0x036bc0…036be0 50 4f 53 25 20 3d 20 31 32 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 44 24 28 ┆POS% = 12:GOSUB 1990:PRINT MID$(┆
0x036be0…036c00 4e 4f 4e 5a 24 2c 31 39 2c 34 29 3b 0d 0a 34 36 39 32 20 58 50 4f 53 25 20 3d 20 32 33 3a 59 50 ┆NONZ$,19,4); 4692 XPOS% = 23:YP┆
0x036c00…036c20 4f 53 25 20 3d 20 31 34 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 44 52 45 43 43 4f ┆OS% = 14:GOSUB 1990:PRINT DRECCO┆
0x036c20…036c40 55 4e 54 24 3b 43 48 52 24 28 31 33 29 3b 0d 0a 34 36 39 33 20 58 50 4f 53 25 20 3d 20 32 35 3a ┆UNT$;CHR$(13); 4693 XPOS% = 25:┆
0x036c40…036c60 59 50 4f 53 25 20 3d 20 31 36 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 46 4f 52 4d ┆YPOS% = 16:GOSUB 1990:PRINT FORM┆
0x036c60…036c80 43 48 41 49 4e 24 3b 43 48 52 24 28 31 33 29 3b 0d 0a 34 36 39 37 20 58 50 4f 53 25 20 3d 20 32 ┆CHAIN$;CHR$(13); 4697 XPOS% = 2┆
0x036c80…036ca0 31 3a 59 50 4f 53 25 20 3d 20 32 32 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4d 49 ┆1:YPOS% = 22:GOSUB 1990:PRINT MI┆
0x036ca0…036cc0 44 24 28 50 53 54 41 54 55 53 24 2c 31 2c 32 29 3b 22 20 22 3b 3a 50 52 49 4e 54 20 4d 49 44 24 ┆D$(PSTATUS$,1,2);" ";:PRINT MID$┆
0x036cc0…036ce0 28 50 53 54 41 54 55 53 24 2c 33 2c 35 29 3b 0d 0a 34 36 39 38 20 58 50 4f 53 25 20 3d 20 38 3a ┆(PSTATUS$,3,5); 4698 XPOS% = 8:┆
0x036ce0…036d00 59 50 4f 53 25 20 3d 20 32 34 3a 47 4f 53 55 42 20 31 39 39 30 3a 50 52 49 4e 54 20 4f 4d 4f 44 ┆YPOS% = 24:GOSUB 1990:PRINT OMOD┆
0x036d00…036d20 (14, 1, 15) 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 34 37 36 35 ┆G. IN LINE 25 * 4765┆
0x036d20…036d40 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x036d40…036d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x036d60…036d80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 37 37 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 39 20 ┆*********** 4770 ERRMSGNR% = 9 ┆
0x036d80…036da0 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 34 37 39 30 20 47 4f 53 55 42 20 31 30 30 30 20 3a ┆: GOSUB 20000 4790 GOSUB 1000 :┆
0x036da0…036dc0 20 52 45 54 55 52 4e 0d 0a 34 37 39 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RETURN 4795 REM **************┆
0x036dc0…036de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x036de0…036e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 38 30 30 20 52 ┆************************ 4800 R┆
0x036e00…036e20 45 4d 20 2a 20 20 50 52 49 4e 54 20 41 52 42 53 54 41 54 2d 44 49 52 20 44 41 54 41 20 4f 4e 20 ┆EM * PRINT ARBSTAT-DIR DATA ON ┆
0x036e20…036e40 43 52 54 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 34 38 30 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆CRT * 4805 REM ******┆
0x036e40…036e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x036e80…036ea0 0d 0a 34 38 31 30 20 46 4f 52 4d 4e 52 25 20 3d 20 32 20 3a 20 41 52 42 53 54 41 54 25 20 3d 20 ┆ 4810 FORMNR% = 2 : ARBSTAT% = ┆
0x036ea0…036ec0 31 20 3a 20 47 4f 53 55 42 20 39 31 35 30 20 3a 20 47 4f 54 4f 20 34 36 33 30 20 09 09 09 52 45 ┆1 : GOSUB 9150 : GOTO 4630 RE┆
0x036ec0…036ee0 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 49 45 4c 44 0d 0a 34 38 31 31 20 52 ┆M *** INIT ARBSTAT-FIELD 4811 R┆
0x036ee0…036f00 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 50 52 49 4e 54 20 41 52 42 53 54 ┆EM ***************** PRINT ARBST┆
0x036f00…036f20 (15, 0, 1) 37 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆70 REM *************************┆
0x036f20…036f40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x036f40…036f60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 34 38 37 31 20 50 31 25 20 3d 20 32 35 20 3a 20 50 ┆************* 4871 P1% = 25 : P┆
0x036f60…036f80 32 25 20 3d 20 31 30 20 3a 20 49 31 25 20 3d 20 31 20 3a 20 49 32 25 20 3d 20 32 31 20 3a 20 46 ┆2% = 10 : I1% = 1 : I2% = 21 : F┆
0x036f80…036fa0 31 25 20 3d 20 31 0d 0a 34 38 37 32 20 46 4f 52 20 49 25 20 3d 20 31 20 54 4f 20 38 0d 0a 34 38 ┆1% = 1 4872 FOR I% = 1 TO 8 48┆
0x036fa0…036fc0 37 34 20 20 46 4f 52 20 46 25 20 3d 20 49 31 25 20 54 4f 20 49 32 25 20 53 54 45 50 20 34 0d 0a ┆74 FOR F% = I1% TO I2% STEP 4 ┆
0x036fc0…036fe0 34 38 37 35 20 20 58 50 4f 53 25 20 3d 20 50 31 25 20 2b 20 38 20 3a 20 59 50 4f 53 25 20 3d 20 ┆4875 XPOS% = P1% + 8 : YPOS% = ┆
0x036fe0…037000 50 32 25 20 3a 20 50 31 25 20 3d 20 58 50 4f 53 25 20 3a 20 47 4f 53 55 42 20 31 39 39 30 0d 0a ┆P2% : P1% = XPOS% : GOSUB 1990 ┆
0x037000…037020 34 38 37 36 20 20 49 46 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 2c 34 29 20 3d 20 22 20 20 20 ┆4876 IF MID$(ADDR$,F%,4) = " ┆
0x037020…037040 20 22 20 47 4f 54 4f 20 34 38 38 30 0d 0a 34 38 37 38 20 20 50 52 49 4e 54 20 4d 49 44 24 28 41 ┆ " GOTO 4880 4878 PRINT MID$(A┆
0x037040…037060 44 44 52 24 2c 46 25 2b 31 2c 33 29 3b 20 3a 20 49 46 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 ┆DDR$,F%+1,3); : IF MID$(ADDR$,F%┆
0x037060…037080 2c 31 29 20 3d 20 22 2a 22 20 54 48 45 4e 20 50 52 49 4e 54 20 4d 49 44 24 28 41 44 44 52 24 2c ┆,1) = "*" THEN PRINT MID$(ADDR$,┆
0x037080…0370a0 46 25 2c 31 29 3b 20 45 4c 53 45 20 50 52 49 4e 54 20 43 48 52 24 28 32 34 29 3b 0d 0a 34 38 37 ┆F%,1); ELSE PRINT CHR$(24); 487┆
0x0370a0…0370c0 39 20 50 52 49 4e 54 20 4d 49 44 24 28 53 55 42 52 24 2c 46 31 25 2c 33 29 3b 0d 0a 34 38 38 30 ┆9 PRINT MID$(SUBR$,F1%,3); 4880┆
0x0370c0…0370e0 20 46 31 25 20 3d 20 46 31 25 20 2b 20 33 0d 0a 34 38 38 31 20 4e 45 58 54 20 46 25 0d 0a 34 38 ┆ F1% = F1% + 3 4881 NEXT F% 48┆
0x0370e0…037100 38 32 20 4f 4e 20 49 25 20 47 4f 54 4f 20 34 38 38 36 2c 34 38 38 38 2c 34 38 39 30 2c 34 38 39 ┆82 ON I% GOTO 4886,4888,4890,489┆
0x037100…037120 (15, 0, 2) 38 29 20 3d 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 38 29 0d 0a 35 31 34 30 20 4d ┆8) = MID$(FORMNAME$,1,8) 5140 M┆
0x037120…037140 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 31 39 2c 34 29 20 3d 20 22 30 30 30 30 22 20 3a 20 4d 49 44 ┆ID$(NONZ50$,19,4) = "0000" : MID┆
0x037140…037160 24 28 4e 4f 4e 5a 35 30 24 2c 32 33 2c 33 29 20 3d 20 22 53 2e 2e 22 20 3a 20 4d 49 44 24 28 4e ┆$(NONZ50$,23,3) = "S.." : MID$(N┆
0x037160…037180 4f 4e 5a 35 30 24 2c 32 36 2c 33 29 20 3d 20 22 2e 2e 2e 22 0d 0a 35 31 35 30 20 4d 49 44 24 28 ┆ONZ50$,26,3) = "..." 5150 MID$(┆
0x037180…0371a0 4e 4f 4e 5a 35 30 24 2c 32 39 2c 31 29 20 3d 20 22 4e 22 0d 0a 35 31 37 30 20 4d 49 44 24 28 4e ┆NONZ50$,29,1) = "N" 5170 MID$(N┆
0x0371a0…0371c0 4f 4e 5a 35 30 24 2c 33 39 2c 36 29 20 3d 20 22 30 30 30 30 30 30 22 0d 0a 35 31 37 35 20 47 4f ┆ONZ50$,39,6) = "000000" 5175 GO┆
0x0371c0…0371e0 53 55 42 20 35 34 38 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUB 5486 ┆
0x0371e0…037200 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 4e 45 57 20 53 54 41 ┆ REM *** WRITE NEW STA┆
0x037200…037220 52 54 2d 46 4f 52 4d 41 54 0d 0a 35 31 38 30 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 34 35 2c ┆RT-FORMAT 5180 MID$(NONZ50$,45,┆
0x037220…037240 36 29 20 3d 20 22 30 30 30 30 30 30 22 20 3a 20 50 53 54 41 54 55 53 24 20 3d 20 53 50 41 43 45 ┆6) = "000000" : PSTATUS$ = SPACE┆
0x037240…037260 24 28 38 29 0d 0a 35 32 30 30 20 4d 4f 44 45 24 20 3d 20 22 30 33 22 20 3a 20 46 49 45 4c 44 4e ┆$(8) 5200 MODE$ = "03" : FIELDN┆
0x037260…037280 4f 24 20 3d 20 22 30 30 30 22 0d 0a 35 32 31 30 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 ┆O$ = "000" 5210 SPECMOD$ = "000┆
0x037280…0372a0 22 0d 0a 35 32 37 35 20 47 4f 53 55 42 20 35 33 31 30 20 3a 20 47 4f 54 4f 20 35 34 32 30 09 09 ┆" 5275 GOSUB 5310 : GOTO 5420 ┆
0x0372a0…0372c0 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 4e 45 57 20 46 49 4c 45 4e 41 4d 45 20 ┆ REM *** WRITE NEW FILENAME ┆
0x0372c0…0372e0 54 4f 20 41 52 42 53 54 41 54 2d 44 49 52 0d 0a 35 32 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a ┆TO ARBSTAT-DIR 5280 REM *******┆
0x0372e0…037300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037300…037320 (15, 0, 3) 20 2a 0d 0a 35 34 38 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 5485 REM *******************┆
0x037320…037340 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037340…037360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 34 38 36 20 46 4f 52 4d 4e 52 ┆******************* 5486 FORMNR┆
0x037360…037380 24 20 3d 20 53 54 52 24 28 46 4f 52 4d 4e 52 25 29 20 3a 20 4e 46 4f 52 4d 4e 52 24 20 3d 20 53 ┆$ = STR$(FORMNR%) : NFORMNR$ = S┆
0x037380…0373a0 50 41 43 45 24 28 34 29 20 3a 20 52 53 45 54 20 4e 46 4f 52 4d 4e 52 24 20 3d 20 46 4f 52 4d 4e ┆PACE$(4) : RSET NFORMNR$ = FORMN┆
0x0373a0…0373c0 52 24 0d 0a 35 34 39 30 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 35 31 2c 34 29 20 3d 20 4e 46 ┆R$ 5490 MID$(NONZ50$,51,4) = NF┆
0x0373c0…0373e0 4f 52 4d 4e 52 24 20 3a 20 52 45 54 55 52 4e 0d 0a 35 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆ORMNR$ : RETURN 5500 REM ******┆
0x0373e0…037400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x037420…037440 0d 0a 35 35 31 30 20 52 45 4d 20 2a 20 20 43 41 4c 4c 20 54 48 45 20 44 45 50 09 09 09 09 09 09 ┆ 5510 REM * CALL THE DEP ┆
0x037440…037460 20 20 20 20 20 20 2a 0d 0a 35 35 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 5520 REM **************┆
0x037460…037480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037480…0374a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 35 33 30 20 46 ┆************************ 5530 F┆
0x0374a0…0374c0 25 20 3d 20 56 41 52 50 54 52 28 23 32 29 20 3a 20 5a 25 20 3d 20 56 41 52 50 54 52 28 23 31 29 ┆% = VARPTR(#2) : Z% = VARPTR(#1)┆
0x0374c0…0374e0 20 3a 20 43 41 4c 4c 20 49 4e 49 54 28 46 25 2c 5a 25 29 20 20 0d 0a 35 35 34 30 20 52 45 4d 20 ┆ : CALL INIT(F%,Z%) 5540 REM ┆
0x0374e0…037500 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037500…037520 (15, 0, 4) 20 3a 20 49 46 20 46 4f 52 4d 4e 52 55 53 45 25 20 3d 20 30 20 54 48 45 4e 20 47 4f 53 55 42 20 ┆ : IF FORMNRUSE% = 0 THEN GOSUB ┆
0x037520…037540 36 33 34 30 20 3a 20 47 4f 54 4f 20 35 36 33 30 0d 0a 35 36 35 38 20 47 4f 53 55 42 20 38 32 31 ┆6340 : GOTO 5630 5658 GOSUB 821┆
0x037540…037560 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 ┆
0x037560…037580 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 43 4c 4f 53 45 20 46 4f 52 4d 41 54 2d 46 49 4c 45 0d ┆ REM *** CLOSE FORMAT-FILE ┆
0x037580…0375a0 0a 35 36 36 35 20 49 46 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 30 20 54 48 45 4e 20 46 4f 52 4d ┆ 5665 IF RECCOUNT% = 0 THEN FORM┆
0x0375a0…0375c0 4e 41 4d 45 24 20 3d 20 46 49 4c 45 4e 41 4d 45 24 20 3a 20 47 4f 54 4f 20 32 30 37 31 30 20 20 ┆NAME$ = FILENAME$ : GOTO 20710 ┆
0x0375c0…0375e0 20 09 0d 0a 35 36 37 30 20 47 4f 53 55 42 20 37 35 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 5670 GOSUB 7500 ┆
0x0375e0…037600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 ┆ REM *** ┆
0x037600…037620 54 45 53 54 20 46 4f 52 4d 41 54 2d 43 48 41 49 4e 2d 4b 45 59 0d 0a 35 36 37 35 20 47 4f 53 55 ┆TEST FORMAT-CHAIN-KEY 5675 GOSU┆
0x037620…037640 42 20 38 32 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B 8240 ┆
0x037640…037660 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 55 50 44 41 54 45 20 54 48 45 20 41 52 42 53 54 ┆ REM *** UPDATE THE ARBST┆
0x037660…037680 41 54 0d 0a 35 36 38 35 20 49 46 20 46 4f 52 4d 43 48 41 49 4e 45 52 52 4f 52 25 20 54 48 45 4e ┆AT 5685 IF FORMCHAINERROR% THEN┆
0x037680…0376a0 20 46 4f 52 4d 4e 41 4d 45 24 20 3d 20 46 49 4c 45 4e 41 4d 45 24 20 3a 20 45 52 52 4d 53 47 4e ┆ FORMNAME$ = FILENAME$ : ERRMSGN┆
0x0376a0…0376c0 52 25 20 3d 20 34 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 31 30 30 ┆R% = 4 : GOSUB 20000 : GOSUB 100┆
0x0376c0…0376e0 30 20 3a 20 47 4f 54 4f 20 34 35 39 32 0d 0a 35 36 39 30 20 47 4f 53 55 42 20 38 31 37 30 20 20 ┆0 : GOTO 4592 5690 GOSUB 8170 ┆
0x0376e0…037700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x037700…037720 (15, 0, 5) 32 2c 34 38 39 34 2c 34 38 39 36 2c 34 38 39 38 0d 0a 34 38 38 34 20 52 45 54 55 52 4e 0d 0a 34 ┆2,4894,4896,4898 4884 RETURN 4┆
0x037720…037740 38 38 36 20 50 31 25 20 3d 20 32 35 20 3a 20 50 32 25 20 3d 20 31 32 20 3a 20 49 31 25 20 3d 20 ┆886 P1% = 25 : P2% = 12 : I1% = ┆
0x037740…037760 32 35 20 3a 20 49 32 25 20 3d 20 34 35 20 3a 20 47 4f 54 4f 20 34 39 30 30 0d 0a 34 38 38 38 20 ┆25 : I2% = 45 : GOTO 4900 4888 ┆
0x037760…037780 50 31 25 20 3d 20 32 35 20 3a 20 50 32 25 20 3d 20 31 34 20 3a 20 49 31 25 20 3d 20 34 39 20 3a ┆P1% = 25 : P2% = 14 : I1% = 49 :┆
0x037780…0377a0 20 49 32 25 20 3d 20 36 39 20 3a 20 47 4f 54 4f 20 34 39 30 30 0d 0a 34 38 39 30 20 50 31 25 20 ┆ I2% = 69 : GOTO 4900 4890 P1% ┆
0x0377a0…0377c0 3d 20 32 35 20 3a 20 50 32 25 20 3d 20 31 36 20 3a 20 49 31 25 20 3d 20 37 33 20 3a 20 49 32 25 ┆= 25 : P2% = 16 : I1% = 73 : I2%┆
0x0377c0…0377e0 20 3d 20 39 33 20 3a 20 47 4f 54 4f 20 34 39 30 30 0d 0a 34 38 39 32 20 50 31 25 20 3d 20 32 35 ┆ = 93 : GOTO 4900 4892 P1% = 25┆
0x0377e0…037800 20 3a 20 50 32 25 20 3d 20 31 38 20 3a 20 49 31 25 20 3d 20 39 37 20 3a 20 49 32 25 20 3d 20 31 ┆ : P2% = 18 : I1% = 97 : I2% = 1┆
0x037800…037820 31 37 20 3a 20 47 4f 54 4f 20 34 39 30 30 0d 0a 34 38 39 34 20 50 31 25 20 3d 20 32 35 20 3a 20 ┆17 : GOTO 4900 4894 P1% = 25 : ┆
0x037820…037840 50 32 25 20 3d 20 32 30 20 3a 20 49 31 25 20 3d 20 31 32 31 20 3a 20 49 32 25 20 3d 20 31 34 31 ┆P2% = 20 : I1% = 121 : I2% = 141┆
0x037840…037860 20 3a 20 47 4f 54 4f 20 34 39 30 30 0d 0a 34 38 39 36 20 50 31 25 20 3d 20 32 35 20 3a 20 50 32 ┆ : GOTO 4900 4896 P1% = 25 : P2┆
0x037860…037880 25 20 3d 20 32 32 20 3a 20 49 31 25 20 3d 20 31 34 35 20 3a 20 49 32 25 20 3d 20 31 36 35 20 3a ┆% = 22 : I1% = 145 : I2% = 165 :┆
0x037880…0378a0 20 47 4f 54 4f 20 34 39 30 30 0d 0a 34 38 39 38 20 50 31 25 20 3d 20 32 35 20 3a 20 50 32 25 20 ┆ GOTO 4900 4898 P1% = 25 : P2% ┆
0x0378a0…0378c0 3d 20 32 34 20 3a 20 49 31 25 20 3d 20 31 36 39 20 3a 20 49 32 25 20 3d 20 31 37 37 20 3a 20 47 ┆= 24 : I1% = 169 : I2% = 177 : G┆
0x0378c0…0378e0 4f 54 4f 20 34 39 30 30 0d 0a 34 39 30 30 20 4e 45 58 54 20 49 25 0d 0a 35 30 30 30 20 52 45 4d ┆OTO 4900 4900 NEXT I% 5000 REM┆
0x0378e0…037900 20 20 0d 0a 35 30 30 32 20 52 45 4d 0d 0a 35 30 30 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 5002 REM 5008 REM *********┆
0x037900…037920 (15, 0, 6) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x037920…037940 0a 35 32 38 32 20 52 45 4d 20 2a 20 20 57 52 49 54 45 20 4e 45 57 20 41 52 42 53 54 41 54 2d 44 ┆ 5282 REM * WRITE NEW ARBSTAT-D┆
0x037940…037960 49 52 2e 20 50 4f 49 4e 54 45 52 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 35 32 38 35 20 52 45 4d ┆IR. POINTER * 5285 REM┆
0x037960…037980 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x037980…0379a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0379a0…0379c0 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 33 31 30 20 49 46 20 44 49 52 32 25 20 3d 20 31 20 47 4f 54 4f 20 ┆******* 5310 IF DIR2% = 1 GOTO ┆
0x0379c0…0379e0 35 33 38 30 0d 0a 35 33 32 30 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c 52 45 4c ┆5380 5320 MID$(ARBSTATDIR1$,REL┆
0x0379e0…037a00 50 4f 53 31 25 2c 31 32 29 20 3d 20 4d 49 44 24 28 46 49 4c 45 4e 41 4d 45 24 2c 31 2c 31 32 29 ┆POS1%,12) = MID$(FILENAME$,1,12)┆
0x037a00…037a20 0d 0a 35 33 34 30 20 52 45 4c 50 4f 53 31 25 20 3d 20 52 45 4c 50 4f 53 31 25 20 2b 31 32 0d 0a ┆ 5340 RELPOS1% = RELPOS1% +12 ┆
0x037a20…037a40 35 33 35 30 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c 52 45 4c 50 4f 53 31 25 2c ┆5350 MID$(ARBSTATDIR1$,RELPOS1%,┆
0x037a40…037a60 34 29 20 3d 20 53 54 52 24 28 52 31 25 29 0d 0a 35 33 36 30 20 47 4f 54 4f 20 35 34 31 32 0d 0a ┆4) = STR$(R1%) 5360 GOTO 5412 ┆
0x037a60…037a80 35 33 38 30 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 52 45 4c 50 4f 53 32 25 2c ┆5380 MID$(ARBSTATDIR2$,RELPOS2%,┆
0x037a80…037aa0 31 32 29 20 3d 20 4d 49 44 24 28 46 49 4c 45 4e 41 4d 45 24 2c 31 2c 31 32 29 0d 0a 35 34 30 30 ┆12) = MID$(FILENAME$,1,12) 5400┆
0x037aa0…037ac0 20 52 45 4c 50 4f 53 32 25 20 3d 20 52 45 4c 50 4f 53 32 25 20 2b 20 31 32 0d 0a 35 34 31 30 20 ┆ RELPOS2% = RELPOS2% + 12 5410 ┆
0x037ac0…037ae0 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 52 45 4c 50 4f 53 32 25 2c 34 29 20 3d 20 ┆MID$(ARBSTATDIR2$,RELPOS2%,4) = ┆
0x037ae0…037b00 53 54 52 24 28 52 31 25 29 0d 0a 35 34 31 32 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 ┆STR$(R1%) 5412 ARBSTATRECCOUNT$┆
0x037b00…037b20 (15, 0, 7) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037b20…037b40 2a 2a 2a 2a 2a 2a 0d 0a 35 35 34 32 20 52 45 4d 20 2a 20 20 52 45 54 55 52 4e 20 46 52 4f 4d 20 ┆****** 5542 REM * RETURN FROM ┆
0x037b40…037b60 54 48 45 20 44 45 50 20 2f 20 43 48 45 43 4b 20 44 45 50 2d 53 54 41 54 55 53 09 09 09 20 20 20 ┆THE DEP / CHECK DEP-STATUS ┆
0x037b60…037b80 20 20 20 2a 0d 0a 35 35 34 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 5544 REM *****************┆
0x037b80…037ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037ba0…037bc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 35 35 30 20 47 4f 53 55 ┆********************* 5550 GOSU┆
0x037bc0…037be0 42 20 37 32 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B 7240 ┆
0x037be0…037c00 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 54 45 53 54 20 44 45 50 2d 53 ┆ REM *** TEST DEP-S┆
0x037c00…037c20 54 41 54 55 53 0d 0a 35 35 36 30 20 4f 4e 20 50 52 49 4d 53 54 25 20 47 4f 54 4f 20 35 35 33 30 ┆TATUS 5560 ON PRIMST% GOTO 5530┆
0x037c20…037c40 2c 35 35 33 30 2c 35 35 38 30 2c 35 35 37 30 2c 35 35 37 30 2c 35 37 32 35 2c 35 35 33 30 2c 35 ┆,5530,5580,5570,5570,5725,5530,5┆
0x037c40…037c60 36 33 30 2c 35 35 33 30 2c 35 35 33 30 2c 35 35 33 30 2c 35 35 33 30 2c 35 35 33 30 2c 35 35 33 ┆630,5530,5530,5530,5530,5530,553┆
0x037c60…037c80 30 0d 0a 35 35 37 30 20 47 4f 53 55 42 20 37 32 38 30 20 3a 20 47 4f 54 4f 20 35 36 35 30 20 20 ┆0 5570 GOSUB 7280 : GOTO 5650 ┆
0x037c80…037ca0 20 20 20 20 20 20 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 ┆ REM *** PRINT ERRMSG┆
0x037ca0…037cc0 2e 20 28 44 45 50 2d 45 52 52 4f 52 29 0d 0a 35 35 38 30 20 47 4f 53 55 42 20 39 36 34 30 20 20 ┆. (DEP-ERROR) 5580 GOSUB 9640 ┆
0x037cc0…037ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x037ce0…037d00 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 46 4f 52 4d 41 54 2d 52 45 43 2e 0d ┆ REM *** WRITE FORMAT-REC. ┆
0x037d00…037d20 (15, 0, 8) 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 43 4c 4f 53 45 20 41 52 42 53 54 41 54 2d 46 49 4c ┆ REM *** CLOSE ARBSTAT-FIL┆
0x037d20…037d40 45 0d 0a 35 37 31 30 20 47 4f 54 4f 20 31 36 0d 0a 35 37 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆E 5710 GOTO 16 5720 REM ******┆
0x037d40…037d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x037d80…037da0 0d 0a 35 37 32 31 20 52 45 4d 20 2a 20 20 44 45 4c 45 54 45 20 41 20 46 4f 52 4d 41 54 09 09 09 ┆ 5721 REM * DELETE A FORMAT ┆
0x037da0…037dc0 09 09 09 20 20 20 20 20 20 2a 0d 0a 35 37 32 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 5722 REM ***********┆
0x037dc0…037de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037de0…037e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 37 32 ┆*************************** 572┆
0x037e00…037e20 35 20 46 25 20 3d 20 31 20 3a 20 46 31 25 20 3d 20 31 0d 0a 35 37 33 30 20 46 4f 52 20 46 50 25 ┆5 F% = 1 : F1% = 1 5730 FOR FP%┆
0x037e20…037e40 20 3d 20 31 20 54 4f 20 34 35 0d 0a 35 37 33 35 20 4f 46 4f 52 4d 4e 52 24 20 3d 20 4d 49 44 24 ┆ = 1 TO 45 5735 OFORMNR$ = MID$┆
0x037e40…037e60 28 41 44 44 52 24 2c 46 25 2b 31 2c 33 29 20 0d 0a 35 37 33 36 20 49 46 20 56 41 4c 28 4f 46 4f ┆(ADDR$,F%+1,3) 5736 IF VAL(OFO┆
0x037e60…037e80 52 4d 4e 52 24 29 20 3d 20 53 46 4f 52 4d 4e 52 25 20 54 48 45 4e 20 4d 49 44 24 28 41 44 44 52 ┆RMNR$) = SFORMNR% THEN MID$(ADDR┆
0x037e80…037ea0 24 2c 46 25 2c 34 29 20 3d 20 53 50 41 43 45 24 28 34 29 3a 4d 49 44 24 28 53 55 42 52 24 2c 46 ┆$,F%,4) = SPACE$(4):MID$(SUBR$,F┆
0x037ea0…037ec0 31 25 2c 33 29 20 3d 20 53 50 41 43 45 24 28 33 29 3a 47 4f 54 4f 20 35 37 35 30 0d 0a 35 37 34 ┆1%,3) = SPACE$(3):GOTO 5750 574┆
0x037ec0…037ee0 30 20 46 25 20 3d 20 46 25 20 2b 20 34 20 3a 20 46 31 25 20 3d 20 46 31 25 20 2b 20 33 0d 0a 35 ┆0 F% = F% + 4 : F1% = F1% + 3 5┆
0x037ee0…037f00 37 34 32 20 4e 45 58 54 20 46 50 25 0d 0a 35 37 34 35 20 47 4f 54 4f 20 35 36 33 30 20 20 20 20 ┆742 NEXT FP% 5745 GOTO 5630 ┆
0x037f00…037f20 (15, 0, 9) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037f20…037f40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 ┆***************************** 5┆
0x037f40…037f60 30 30 39 20 52 45 4d 20 2a 20 20 4f 50 45 4e 20 41 20 4e 45 57 20 46 4f 52 4d 46 49 4c 45 09 09 ┆009 REM * OPEN A NEW FORMFILE ┆
0x037f60…037f80 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 35 30 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 5010 REM **********┆
0x037f80…037fa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x037fa0…037fc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 30 ┆**************************** 50┆
0x037fc0…037fe0 31 32 20 52 45 4d 0d 0a 35 30 31 34 20 52 45 4d 0d 0a 35 30 32 30 20 47 4f 53 55 42 20 39 31 30 ┆12 REM 5014 REM 5020 GOSUB 910┆
0x037fe0…038000 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆0 ┆
0x038000…038020 09 09 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 41 52 42 53 54 41 54 2d 46 49 4c 45 0d 0a 35 30 33 ┆ REM *** OPEN ARBSTAT-FILE 503┆
0x038020…038040 30 20 47 4f 53 55 42 20 39 31 37 30 20 20 20 20 20 20 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a ┆0 GOSUB 9170 REM **┆
0x038040…038060 2a 20 52 45 41 44 20 41 52 42 53 54 41 54 2d 44 49 52 0d 0a 35 30 34 31 20 46 49 4c 45 4e 41 4d ┆* READ ARBSTAT-DIR 5041 FILENAM┆
0x038060…038080 45 24 20 3d 20 46 4f 52 4d 4e 41 4d 45 24 0d 0a 35 30 34 32 20 47 4f 53 55 42 20 37 34 31 30 20 ┆E$ = FORMNAME$ 5042 GOSUB 7410 ┆
0x038080…0380a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0380a0…0380c0 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 46 49 4c 45 20 49 4e 20 41 52 42 53 54 41 54 ┆ REM *** FILE IN ARBSTAT┆
0x0380c0…0380e0 2d 44 49 52 20 3f 0d 0a 35 30 34 34 20 49 46 20 46 49 4c 45 49 4e 44 49 52 25 20 54 48 45 4e 20 ┆-DIR ? 5044 IF FILEINDIR% THEN ┆
0x0380e0…038100 47 4f 53 55 42 20 38 31 37 30 20 3a 20 47 4f 53 55 42 20 31 38 37 33 20 3a 20 47 4f 54 4f 20 31 ┆GOSUB 8170 : GOSUB 1873 : GOTO 1┆
0x038100…038120 (15, 0, 10) 20 3d 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c 31 31 2c 34 29 20 3a 20 41 52 42 ┆ = MID$(ARBSTATDIR1$,11,4) : ARB┆
0x038120…038140 53 54 41 54 52 45 43 43 4f 55 4e 54 25 20 3d 20 56 41 4c 28 41 52 42 53 54 41 54 52 45 43 43 4f ┆STATRECCOUNT% = VAL(ARBSTATRECCO┆
0x038140…038160 55 4e 54 24 29 0d 0a 35 34 31 34 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 20 3d 20 41 ┆UNT$) 5414 ARBSTATRECCOUNT% = A┆
0x038160…038180 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 20 2b 20 31 20 3a 20 41 52 42 53 54 41 54 52 45 43 ┆RBSTATRECCOUNT% + 1 : ARBSTATREC┆
0x038180…0381a0 43 4f 55 4e 54 24 20 3d 20 53 54 52 24 28 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 29 0d ┆COUNT$ = STR$(ARBSTATRECCOUNT%) ┆
0x0381a0…0381c0 0a 35 34 31 36 20 4e 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 ┆ 5416 NARBSTATRECCOUNT$ = SPACE$┆
0x0381c0…0381e0 28 34 29 20 3a 20 52 53 45 54 20 4e 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 41 ┆(4) : RSET NARBSTATRECCOUNT$ = A┆
0x0381e0…038200 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 0d 0a 35 34 31 38 20 4d 49 44 24 28 41 52 42 53 54 ┆RBSTATRECCOUNT$ 5418 MID$(ARBST┆
0x038200…038220 41 54 44 49 52 31 24 2c 31 31 2c 34 29 20 3d 20 4e 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 ┆ATDIR1$,11,4) = NARBSTATRECCOUNT┆
0x038220…038240 24 0d 0a 35 34 31 39 20 52 45 54 55 52 4e 0d 0a 35 34 32 30 20 47 4f 53 55 42 20 39 33 37 30 20 ┆$ 5419 RETURN 5420 GOSUB 9370 ┆
0x038240…038260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 09 52 45 4d 20 ┆ REM ┆
0x038260…038280 2a 2a 2a 20 57 52 49 54 45 20 41 52 42 53 54 41 54 2d 44 49 52 0d 0a 35 34 34 30 20 47 4f 53 55 ┆*** WRITE ARBSTAT-DIR 5440 GOSU┆
0x038280…0382a0 42 20 39 31 35 30 20 3a 20 47 4f 53 55 42 20 39 34 35 30 20 3a 20 47 4f 53 55 42 20 37 32 32 30 ┆B 9150 : GOSUB 9450 : GOSUB 7220┆
0x0382a0…0382c0 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 ┆ REM *** INIT AR┆
0x0382c0…0382e0 42 53 54 41 54 2d 46 49 45 4c 44 2f 49 4e 49 54 20 41 20 4e 45 57 20 41 52 42 53 54 41 54 2d 45 ┆BSTAT-FIELD/INIT A NEW ARBSTAT-E┆
0x0382e0…038300 4e 54 52 59 0d 0a 35 34 35 30 20 47 4f 53 55 42 20 39 35 35 30 20 20 20 20 20 20 20 20 20 20 20 ┆NTRY 5450 GOSUB 9550 ┆
0x038300…038320 (15, 0, 11) 0a 35 35 38 35 20 46 4f 52 4d 4e 52 25 20 3d 20 53 46 4f 52 4d 4e 52 25 20 20 20 20 20 20 20 20 ┆ 5585 FORMNR% = SFORMNR% ┆
0x038320…038340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 0d 0a 35 35 39 35 20 49 46 20 41 ┆ 5595 IF A┆
0x038340…038360 53 43 28 4b 45 59 49 4e 50 55 54 24 29 20 3d 20 36 20 54 48 45 4e 20 47 4f 53 55 42 20 35 34 38 ┆SC(KEYINPUT$) = 6 THEN GOSUB 548┆
0x038360…038380 36 20 20 09 09 0d 0a 35 36 30 30 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 20 41 ┆6 5600 IF VAL(ARBNR$) = 1 A┆
0x038380…0383a0 4e 44 20 4f 56 45 52 57 52 49 54 45 25 20 3d 20 31 20 47 4f 54 4f 20 35 36 31 36 0d 0a 35 36 31 ┆ND OVERWRITE% = 1 GOTO 5616 561┆
0x0383a0…0383c0 30 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3c 3e 20 32 20 4f 52 20 41 44 44 46 4f 52 4d ┆0 IF VAL(ARBNR$) <> 2 OR ADDFORM┆
0x0383c0…0383e0 25 20 3d 20 31 20 54 48 45 4e 20 47 4f 53 55 42 20 39 36 38 30 20 45 4c 53 45 20 47 4f 54 4f 20 ┆% = 1 THEN GOSUB 9680 ELSE GOTO ┆
0x0383e0…038400 35 36 31 36 20 0d 0a 35 36 31 32 20 47 4f 53 55 42 20 36 34 39 30 20 20 20 20 20 20 20 20 20 20 ┆5616 5612 GOSUB 6490 ┆
0x038400…038420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 ┆ REM *** W┆
0x038420…038440 52 49 54 45 20 46 4f 52 4d 41 54 2d 4e 52 2e 20 54 4f 20 46 4f 52 4d 41 54 2d 44 49 52 2e 0d 0a ┆RITE FORMAT-NR. TO FORMAT-DIR. ┆
0x038440…038460 35 36 31 34 20 49 46 20 46 4f 52 4d 4e 52 57 52 25 20 3d 20 30 20 47 4f 54 4f 20 36 36 31 30 20 ┆5614 IF FORMNRWR% = 0 GOTO 6610 ┆
0x038460…038480 45 4c 53 45 20 35 36 32 30 0d 0a 35 36 31 36 20 47 4f 53 55 42 20 36 34 39 32 20 3a 20 49 46 20 ┆ELSE 5620 5616 GOSUB 6492 : IF ┆
0x038480…0384a0 46 4f 52 4d 4e 52 57 52 25 20 3d 20 30 20 47 4f 54 4f 20 36 36 31 30 09 09 09 09 09 52 45 4d 20 ┆FORMNRWR% = 0 GOTO 6610 REM ┆
0x0384a0…0384c0 2a 2a 2a 20 4f 56 45 52 57 52 49 54 45 20 46 4f 52 4d 41 54 2d 4e 52 2e 20 49 4e 20 46 4f 52 4d ┆*** OVERWRITE FORMAT-NR. IN FORM┆
0x0384c0…0384e0 41 54 2d 44 49 52 2e 0d 0a 35 36 32 30 20 47 4f 53 55 42 20 37 33 34 30 20 20 20 20 20 20 20 20 ┆AT-DIR. 5620 GOSUB 7340 ┆
0x0384e0…038500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ REM ***┆
0x038500…038520 (15, 0, 12) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 0d 0a 35 37 ┆ 57┆
0x038520…038540 35 30 20 47 4f 53 55 42 20 36 36 32 35 20 3a 20 47 4f 54 4f 20 35 36 33 30 20 09 09 09 09 09 09 ┆50 GOSUB 6625 : GOTO 5630 ┆
0x038540…038560 09 52 45 4d 20 2a 2a 2a 20 44 45 43 52 45 4d 45 4e 54 20 52 45 43 4f 52 44 2d 43 4f 55 4e 54 45 ┆ REM *** DECREMENT RECORD-COUNTE┆
0x038560…038580 52 0d 0a 36 30 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆R 6000 REM ********************┆
0x038580…0385a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0385a0…0385c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 30 30 32 20 52 45 4d 20 2a 20 20 ┆****************** 6002 REM * ┆
0x0385c0…0385e0 46 4f 52 4d 41 54 20 55 50 44 41 54 45 2d 4d 4f 44 45 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d ┆FORMAT UPDATE-MODE * ┆
0x0385e0…038600 0a 36 30 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 6004 REM **********************┆
0x038600…038620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x038620…038640 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 30 31 30 20 47 4f 53 55 42 20 39 31 30 ┆**************** 6010 GOSUB 910┆
0x038640…038660 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 ┆
0x038660…038680 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 41 52 42 53 54 41 54 2d 46 ┆ REM *** OPEN ARBSTAT-F┆
0x038680…0386a0 49 4c 45 0d 0a 36 30 33 30 20 47 4f 53 55 42 20 39 31 37 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ILE 6030 GOSUB 9170 ┆
0x0386a0…0386c0 20 20 20 20 20 20 20 20 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 41 52 42 53 54 ┆ REM *** READ ARBST┆
0x0386c0…0386e0 41 54 2d 44 49 52 2e 0d 0a 36 30 33 35 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 46 4f 52 4d 4e 41 ┆AT-DIR. 6035 FILENAME$ = FORMNA┆
0x0386e0…038700 4d 45 24 0d 0a 36 30 34 30 20 47 4f 53 55 42 20 37 34 31 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆ME$ 6040 GOSUB 7410 ┆
0x038700…038720 (15, 0, 13) 31 31 30 20 45 4c 53 45 20 35 30 35 30 0d 0a 35 30 35 30 20 47 4f 53 55 42 20 37 30 30 30 20 20 ┆110 ELSE 5050 5050 GOSUB 7000 ┆
0x038720…038740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 ┆ ┆
0x038740…038760 09 09 09 52 45 4d 20 2a 2a 2a 20 53 50 41 43 45 20 46 4f 52 20 4d 4f 52 45 20 46 49 4c 45 53 20 ┆ REM *** SPACE FOR MORE FILES ┆
0x038760…038780 49 4e 20 41 52 42 53 54 41 54 0d 0a 35 30 36 30 20 49 46 20 4e 4f 53 50 41 43 45 46 4c 41 47 25 ┆IN ARBSTAT 5060 IF NOSPACEFLAG%┆
0x038780…0387a0 20 54 48 45 4e 20 47 4f 53 55 42 20 39 32 32 30 20 45 4c 53 45 20 47 4f 53 55 42 20 39 32 38 30 ┆ THEN GOSUB 9220 ELSE GOSUB 9280┆
0x0387a0…0387c0 20 3a 20 47 4f 54 4f 20 35 31 31 30 0d 0a 35 30 37 30 20 47 4f 53 55 42 20 38 31 37 30 20 3a 20 ┆ : GOTO 5110 5070 GOSUB 8170 : ┆
0x0387c0…0387e0 47 4f 54 4f 20 31 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆GOTO 16 ┆
0x0387e0…038800 09 09 52 45 4d 20 2a 2a 2a 20 43 4c 4f 53 45 20 41 52 42 53 54 41 54 0d 0a 35 31 31 30 20 52 45 ┆ REM *** CLOSE ARBSTAT 5110 RE┆
0x038800…038820 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x038820…038840 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x038840…038860 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 31 31 32 20 52 45 4d 20 2a 20 20 49 4e 49 54 2e 20 41 20 4e 45 ┆******** 5112 REM * INIT. A NE┆
0x038860…038880 57 20 41 52 42 53 54 41 54 2d 52 45 43 4f 52 44 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 35 31 ┆W ARBSTAT-RECORD * 51┆
0x038880…0388a0 31 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆14 REM *************************┆
0x0388a0…0388c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0388c0…0388e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 31 32 30 20 4e 4f 4e 5a 35 30 24 20 3d 20 53 50 ┆************* 5120 NONZ50$ = SP┆
0x0388e0…038900 41 43 45 24 28 35 34 29 20 0d 0a 35 31 33 30 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 31 31 2c ┆ACE$(54) 5130 MID$(NONZ50$,11,┆
0x038900…038920 (15, 0, 14) 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 ┆ REM *** WRITE ┆
0x038920…038940 41 52 42 53 54 41 54 0d 0a 35 34 36 32 20 47 4f 53 55 42 20 39 35 37 30 20 20 20 20 20 20 20 20 ┆ARBSTAT 5462 GOSUB 9570 ┆
0x038940…038960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d ┆ REM┆
0x038960…038980 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d 41 54 2d 42 55 46 46 45 52 0d 0a 35 34 37 30 20 47 4f ┆ *** INIT FORMAT-BUFFER 5470 GO┆
0x038980…0389a0 53 55 42 20 36 35 33 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUB 6535 ┆
0x0389a0…0389c0 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 46 20 46 4f 52 4d 41 54 2d 4e 52 2e 20 49 4e 20 ┆ REM *** IF FORMAT-NR. IN ┆
0x0389c0…0389e0 46 4f 52 4d 41 54 2d 44 49 52 0d 0a 35 34 37 35 20 49 46 20 46 4f 52 4d 4e 52 55 53 45 25 20 54 ┆FORMAT-DIR 5475 IF FORMNRUSE% T┆
0x0389e0…038a00 48 45 4e 20 53 46 4f 52 4d 4e 52 25 20 3d 20 46 4f 52 4d 4e 52 25 20 3a 20 46 4f 52 4d 4e 52 25 ┆HEN SFORMNR% = FORMNR% : FORMNR%┆
0x038a00…038a20 20 3d 20 52 46 4f 52 4d 4e 52 25 20 3a 20 47 4f 54 4f 20 36 35 38 35 0d 0a 35 34 38 30 20 49 46 ┆ = RFORMNR% : GOTO 6585 5480 IF┆
0x038a20…038a40 20 46 4f 52 4d 4e 52 53 50 25 20 54 48 45 4e 20 53 46 4f 52 4d 4e 52 25 20 3d 20 46 4f 52 4d 4e ┆ FORMNRSP% THEN SFORMNR% = FORMN┆
0x038a40…038a60 52 25 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 52 53 46 4f 52 4d 4e 52 25 20 3a 20 47 4f 54 4f 20 ┆R% : FORMNR% = RSFORMNR% : GOTO ┆
0x038a60…038a80 35 35 33 30 20 45 4c 53 45 20 47 4f 54 4f 20 36 36 31 30 0d 0a 35 34 38 31 20 52 45 4d 20 2a 2a ┆5530 ELSE GOTO 6610 5481 REM **┆
0x038a80…038aa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x038ac0…038ae0 2a 2a 2a 2a 0d 0a 35 34 38 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 57 52 49 54 45 20 41 20 ┆**** 5482 REM * SUB.: WRITE A ┆
0x038ae0…038b00 4e 45 57 20 53 54 41 52 54 2d 46 4f 52 4d 41 54 2d 50 4f 49 4e 54 45 52 09 09 09 20 20 20 20 20 ┆NEW START-FORMAT-POINTER ┆
0x038b00…038b20 (15, 0, 15) 20 43 41 4c 43 55 4c 41 54 45 20 4d 41 58 2e 20 56 41 52 49 41 42 4c 45 20 0d 0a 35 36 33 30 20 ┆ CALCULATE MAX. VARIABLE 5630 ┆
0x038b20…038b40 4e 45 58 54 46 4f 52 4d 46 4c 41 47 25 20 3d 20 31 20 3a 20 47 4f 54 4f 20 31 30 31 32 20 20 20 ┆NEXTFORMFLAG% = 1 : GOTO 1012 ┆
0x038b40…038b60 20 20 20 20 20 09 09 0d 0a 35 36 34 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 5640 REM **************┆
0x038b60…038b80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x038b80…038ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 36 34 32 20 52 ┆************************ 5642 R┆
0x038ba0…038bc0 45 4d 20 2a 20 20 55 53 45 52 20 45 58 49 54 09 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 35 ┆EM * USER EXIT * 5┆
0x038bc0…038be0 36 34 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆644 REM ************************┆
0x038be0…038c00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x038c00…038c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 35 36 35 30 20 46 4f 52 4d 4e 52 25 20 3d 20 53 ┆************** 5650 FORMNR% = S┆
0x038c20…038c40 46 4f 52 4d 4e 52 25 20 3a 20 49 46 20 41 52 42 53 54 41 54 4f 50 45 4e 25 20 3d 20 30 20 47 4f ┆FORMNR% : IF ARBSTATOPEN% = 0 GO┆
0x038c40…038c60 54 4f 20 35 37 31 30 0d 0a 35 36 35 33 20 52 45 43 43 4f 55 4e 54 24 20 3d 20 4d 49 44 24 28 4e ┆TO 5710 5653 RECCOUNT$ = MID$(N┆
0x038c60…038c80 4f 4e 5a 35 30 24 2c 33 39 2c 36 29 20 3a 20 49 46 20 56 41 4c 28 52 45 43 43 4f 55 4e 54 24 29 ┆ONZ50$,39,6) : IF VAL(RECCOUNT$)┆
0x038c80…038ca0 20 3c 3d 20 30 20 54 48 45 4e 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 30 20 3a 20 47 4f 54 4f 20 ┆ <= 0 THEN RECCOUNT% = 0 : GOTO ┆
0x038ca0…038cc0 35 36 35 38 20 45 4c 53 45 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 31 0d 0a 35 36 35 35 20 46 4f ┆5658 ELSE RECCOUNT% = 1 5655 FO┆
0x038cc0…038ce0 52 4d 4e 52 24 20 3d 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 35 31 2c 34 29 20 3a 20 46 4f 52 ┆RMNR$ = MID$(NONZ50$,51,4) : FOR┆
0x038ce0…038d00 4d 4e 52 25 20 3d 20 56 41 4c 28 46 4f 52 4d 4e 52 24 29 20 3a 20 47 4f 53 55 42 20 36 35 33 35 ┆MNR% = VAL(FORMNR$) : GOSUB 6535┆
0x038d00…038d20 (15, 1, 1) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ REM ***┆
0x038d20…038d40 20 46 49 4c 45 20 49 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 0d 0a 36 30 35 30 20 49 46 20 ┆ FILE IN ARBSTAT-DIR ? 6050 IF ┆
0x038d40…038d60 46 49 4c 45 49 4e 44 49 52 25 20 3d 20 30 20 20 54 48 45 4e 20 47 4f 53 55 42 20 38 31 37 30 20 ┆FILEINDIR% = 0 THEN GOSUB 8170 ┆
0x038d60…038d80 3a 20 47 4f 53 55 42 20 32 31 31 30 20 3a 20 47 4f 53 55 42 20 31 38 37 38 20 3a 20 47 4f 54 4f ┆: GOSUB 2110 : GOSUB 1878 : GOTO┆
0x038d80…038da0 20 31 31 31 30 0d 0a 36 30 35 35 20 52 31 24 20 3d 20 4d 49 44 24 28 4e 41 4d 45 24 2c 31 33 2c ┆ 1110 6055 R1$ = MID$(NAME$,13,┆
0x038da0…038dc0 34 29 20 3a 20 52 31 25 20 3d 20 56 41 4c 28 52 31 24 29 0d 0a 36 30 36 30 20 47 4f 53 55 42 20 ┆4) : R1% = VAL(R1$) 6060 GOSUB ┆
0x038dc0…038de0 39 31 35 30 20 3a 20 47 4f 53 55 42 20 39 35 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9150 : GOSUB 9564 ┆
0x038de0…038e00 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 ┆ REM *** INIT ARBSTAT-F┆
0x038e00…038e20 49 45 4c 44 0d 0a 36 30 38 30 20 49 46 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 32 33 2c 33 29 20 3d ┆IELD 6080 IF MID$(NONZ$,23,3) =┆
0x038e20…038e40 20 22 45 52 52 22 20 54 48 45 4e 20 47 4f 53 55 42 20 36 34 36 30 0d 0a 36 30 39 30 20 49 46 20 ┆ "ERR" THEN GOSUB 6460 6090 IF ┆
0x038e40…038e60 4d 49 44 24 28 4e 4f 4e 5a 24 2c 31 31 2c 38 29 20 3c 3e 20 4d 49 44 24 28 46 4f 52 4d 4e 41 4d ┆MID$(NONZ$,11,8) <> MID$(FORMNAM┆
0x038e60…038e80 45 24 2c 31 2c 38 29 20 54 48 45 4e 20 47 4f 53 55 42 20 36 34 31 30 20 3a 20 47 4f 54 4f 20 35 ┆E$,1,8) THEN GOSUB 6410 : GOTO 5┆
0x038e80…038ea0 36 39 30 0d 0a 36 31 30 30 20 4e 4f 4e 5a 35 30 24 20 3d 20 4e 4f 4e 5a 24 20 3a 20 4d 49 44 24 ┆690 6100 NONZ50$ = NONZ$ : MID$┆
0x038ea0…038ec0 28 4e 4f 4e 5a 35 30 24 2c 32 33 2c 33 29 20 3d 20 22 53 2e 2e 22 0d 0a 36 31 32 30 20 50 53 54 ┆(NONZ50$,23,3) = "S.." 6120 PST┆
0x038ec0…038ee0 41 54 55 53 24 20 3d 20 53 50 24 0d 0a 36 31 34 30 20 47 4f 53 55 42 20 39 32 38 30 20 20 20 20 ┆ATUS$ = SP$ 6140 GOSUB 9280 ┆
0x038ee0…038f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 ┆ ┆
0x038f00…038f20 (15, 1, 2) 49 4e 54 20 43 48 52 24 28 37 29 3b 20 3a 20 45 53 43 49 4e 50 55 54 24 20 3d 20 49 4e 50 55 54 ┆INT CHR$(7); : ESCINPUT$ = INPUT┆
0x038f20…038f40 24 28 31 29 20 3a 20 49 46 20 45 53 43 49 4e 50 55 54 24 20 3d 20 22 4a 22 20 47 4f 54 4f 20 36 ┆$(1) : IF ESCINPUT$ = "J" GOTO 6┆
0x038f40…038f60 33 39 32 0d 0a 36 33 39 30 20 49 46 20 41 53 43 28 45 53 43 49 4e 50 55 54 24 29 20 3d 20 31 20 ┆392 6390 IF ASC(ESCINPUT$) = 1 ┆
0x038f60…038f80 47 4f 54 4f 20 35 36 33 30 20 45 4c 53 45 20 36 33 38 30 0d 0a 36 33 39 32 20 4d 4f 44 45 24 20 ┆GOTO 5630 ELSE 6380 6392 MODE$ ┆
0x038f80…038fa0 3d 20 22 30 33 22 20 3a 20 41 44 44 46 4f 52 4d 25 20 3d 20 31 20 20 20 20 20 20 20 09 09 09 0d ┆= "03" : ADDFORM% = 1 ┆
0x038fa0…038fc0 0a 36 33 39 34 20 50 52 49 4e 54 20 53 50 41 43 45 24 28 37 36 29 3b 20 3a 20 47 4f 54 4f 20 36 ┆ 6394 PRINT SPACE$(76); : GOTO 6┆
0x038fc0…038fe0 32 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆200 ┆
0x038fe0…039000 20 20 20 20 09 0d 0a 36 34 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 6400 REM ****************┆
0x039000…039020 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039020…039040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 34 30 32 20 52 45 4d ┆********************** 6402 REM┆
0x039040…039060 20 2a 20 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 ┆ * SUB.: PRINT ERRMSG. IN LINE ┆
0x039060…039080 32 35 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 34 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a ┆25 * 6404 REM ********┆
0x039080…0390a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0390a0…0390c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a ┆****************************** ┆
0x0390c0…0390e0 36 34 31 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 32 20 3a 20 47 4f 53 55 42 20 32 30 30 30 ┆6410 ERRMSGNR% = 12 : GOSUB 2000┆
0x0390e0…039100 30 0d 0a 36 34 33 30 20 47 4f 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 36 34 34 ┆0 6430 GOSUB 1000 : RETURN 644┆
0x039100…039120 (15, 1, 3) 35 30 20 49 46 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 2c 34 29 20 3d 20 22 20 20 20 20 22 20 ┆50 IF MID$(ADDR$,F%,4) = " " ┆
0x039120…039140 47 4f 54 4f 20 36 35 37 35 0d 0a 36 35 35 35 20 46 25 20 3d 20 46 25 20 2b 20 34 0d 0a 36 35 36 ┆GOTO 6575 6555 F% = F% + 4 656┆
0x039140…039160 30 20 4e 45 58 54 20 46 50 25 0d 0a 36 35 36 35 20 52 45 54 55 52 4e 0d 0a 36 35 37 30 20 46 4f ┆0 NEXT FP% 6565 RETURN 6570 FO┆
0x039160…039180 52 4d 4e 52 55 53 45 25 20 3d 20 31 20 3a 20 52 46 4f 52 4d 4e 52 25 20 3d 20 46 50 25 20 3a 20 ┆RMNRUSE% = 1 : RFORMNR% = FP% : ┆
0x039180…0391a0 47 4f 54 4f 20 36 35 35 35 0d 0a 36 35 37 35 20 49 46 20 46 4f 52 4d 4e 52 53 50 25 20 54 48 45 ┆GOTO 6555 6575 IF FORMNRSP% THE┆
0x0391a0…0391c0 4e 20 47 4f 54 4f 20 36 35 35 35 20 45 4c 53 45 20 52 53 46 4f 52 4d 4e 52 25 20 3d 20 46 50 25 ┆N GOTO 6555 ELSE RSFORMNR% = FP%┆
0x0391c0…0391e0 20 3a 20 46 4f 52 4d 4e 52 53 50 25 20 3d 20 31 20 3a 20 47 4f 54 4f 20 36 35 35 35 0d 0a 36 35 ┆ : FORMNRSP% = 1 : GOTO 6555 65┆
0x0391e0…039200 37 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆78 REM *************************┆
0x039200…039220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039220…039240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 35 38 30 20 52 45 4d 20 2a 20 20 46 4f 52 4d 4e ┆************* 6580 REM * FORMN┆
0x039240…039260 52 20 49 4e 20 55 53 45 20 21 20 4f 56 45 52 57 52 49 54 45 20 3f 09 09 09 09 09 20 20 20 20 20 ┆R IN USE ! OVERWRITE ? ┆
0x039260…039280 20 2a 0d 0a 36 35 38 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 6582 REM *******************┆
0x039280…0392a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0392a0…0392c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 35 38 35 20 45 52 52 4d 53 47 ┆******************* 6585 ERRMSG┆
0x0392c0…0392e0 4e 52 25 20 3d 20 32 36 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 4f 56 45 52 57 52 49 ┆NR% = 26 : GOSUB 20000 : OVERWRI┆
0x0392e0…039300 54 45 25 20 3d 20 30 0d 0a 36 35 39 35 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 3b 3a 45 53 43 ┆TE% = 0 6595 PRINT CHR$(7);:ESC┆
0x039300…039320 (15, 1, 4) 4d 20 2a 20 20 53 55 42 2e 3a 20 43 4c 45 41 52 20 41 44 44 2f 53 55 42 2f 4d 55 4c 2e 20 52 45 ┆M * SUB.: CLEAR ADD/SUB/MUL. RE┆
0x039320…039340 47 20 54 4f 20 55 53 45 20 49 54 20 41 53 20 46 4f 52 4d 41 54 4e 4f 2e 20 2d 20 44 49 52 2e 09 ┆G TO USE IT AS FORMATNO. - DIR. ┆
0x039340…039360 20 20 20 20 20 20 2a 0d 0a 37 32 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 7210 REM **************┆
0x039360…039380 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039380…0393a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 32 32 30 20 4d ┆************************ 7220 M┆
0x0393a0…0393c0 49 44 24 28 4d 52 24 2c 31 2c 31 35 29 20 3d 20 53 50 41 43 45 24 28 31 35 29 20 3a 20 4d 49 44 ┆ID$(MR$,1,15) = SPACE$(15) : MID┆
0x0393c0…0393e0 24 28 41 44 44 52 24 2c 31 2c 32 32 35 29 20 3d 20 53 50 41 43 45 24 28 32 32 35 29 20 3a 20 4d ┆$(ADDR$,1,225) = SPACE$(225) : M┆
0x0393e0…039400 49 44 24 28 53 55 42 52 24 2c 31 2c 31 33 35 29 20 3d 20 53 50 41 43 45 24 28 31 33 35 29 0d 0a ┆ID$(SUBR$,1,135) = SPACE$(135) ┆
0x039400…039420 37 32 33 30 20 52 45 54 55 52 4e 0d 0a 37 32 33 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆7230 RETURN 7232 REM **********┆
0x039420…039440 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039440…039460 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 32 ┆**************************** 72┆
0x039460…039480 33 34 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 43 48 45 43 4b 20 47 45 4e 45 52 41 4c 2d 53 54 41 ┆34 REM * SUB.: CHECK GENERAL-STA┆
0x039480…0394a0 54 55 53 20 28 44 45 50 29 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 37 32 34 30 20 52 45 4d 20 2a ┆TUS (DEP) * 7240 REM *┆
0x0394a0…0394c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0394e0…039500 2a 2a 2a 2a 2a 0d 0a 37 32 35 30 20 47 45 4e 45 52 41 4c 53 54 24 20 3d 20 4d 49 44 24 28 53 54 ┆***** 7250 GENERALST$ = MID$(ST┆
0x039500…039520 (15, 1, 5) 52 45 4d 20 2a 2a 2a 20 4f 50 45 4e 20 46 4f 52 4d 41 54 2d 46 49 4c 45 0d 0a 36 31 35 35 20 47 ┆REM *** OPEN FORMAT-FILE 6155 G┆
0x039520…039540 4f 53 55 42 20 39 35 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OSUB 9580 ┆
0x039540…039560 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d 41 ┆ REM *** INIT FORMA┆
0x039560…039580 54 2d 42 55 46 46 45 52 0d 0a 36 31 36 30 20 41 44 44 46 4f 52 4d 25 20 3d 20 30 20 3a 20 47 4f ┆T-BUFFER 6160 ADDFORM% = 0 : GO┆
0x039580…0395a0 53 55 42 20 36 35 33 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 ┆SUB 6535 ┆
0x0395a0…0395c0 09 52 45 4d 20 2a 2a 2a 20 46 4f 52 4d 41 54 2d 4e 52 2e 20 49 4e 20 46 4f 52 4d 41 54 2d 44 49 ┆ REM *** FORMAT-NR. IN FORMAT-DI┆
0x0395c0…0395e0 52 2e 20 3f 0d 0a 36 31 36 32 20 49 46 20 46 4f 52 4d 4e 52 55 53 45 25 20 54 48 45 4e 20 53 46 ┆R. ? 6162 IF FORMNRUSE% THEN SF┆
0x0395e0…039600 4f 52 4d 4e 52 25 20 3d 20 46 4f 52 4d 4e 52 25 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 52 46 4f ┆ORMNR% = FORMNR% : FORMNR% = RFO┆
0x039600…039620 52 4d 4e 52 25 20 3a 20 47 4f 54 4f 20 36 31 36 36 0d 0a 36 31 36 34 20 49 46 20 46 4f 52 4d 4e ┆RMNR% : GOTO 6166 6164 IF FORMN┆
0x039620…039640 52 53 50 25 20 3d 20 30 20 47 4f 54 4f 20 36 36 31 30 20 45 4c 53 45 20 53 46 4f 52 4d 4e 52 25 ┆RSP% = 0 GOTO 6610 ELSE SFORMNR%┆
0x039640…039660 20 3d 20 46 4f 52 4d 4e 52 25 20 3a 20 46 4f 52 4d 4e 52 25 20 3d 20 52 53 46 4f 52 4d 4e 52 25 ┆ = FORMNR% : FORMNR% = RSFORMNR%┆
0x039660…039680 20 3a 20 47 4f 54 4f 20 36 33 36 30 0d 0a 36 31 36 36 20 47 4f 53 55 42 20 39 36 37 34 20 20 20 ┆ : GOTO 6360 6166 GOSUB 9674 ┆
0x039680…0396a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 ┆ ┆
0x0396a0…0396c0 09 09 09 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 46 4f 52 4d 41 54 2d 52 45 43 2e 0d 0a 36 31 38 ┆ REM *** READ FORMAT-REC. 618┆
0x0396c0…0396e0 30 20 49 46 20 46 4f 52 4d 42 59 54 45 53 24 20 3c 3e 20 22 23 26 22 20 54 48 45 4e 20 47 4f 53 ┆0 IF FORMBYTES$ <> "#&" THEN GOS┆
0x0396e0…039700 55 42 20 36 33 33 34 20 3a 20 47 4f 54 4f 20 35 36 35 30 0d 0a 36 31 39 30 20 4d 4f 44 45 24 20 ┆UB 6334 : GOTO 5650 6190 MODE$ ┆
0x039700…039720 (15, 1, 6) 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0 REM **************************┆
0x039720…039740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039740…039760 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 34 34 35 20 52 45 4d 20 2a 20 50 52 49 4e 54 20 45 ┆************ 6445 REM * PRINT E┆
0x039760…039780 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 ┆RRMSG. IN LINE 25 * 6┆
0x039780…0397a0 34 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆450 REM ************************┆
0x0397a0…0397c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0397c0…0397e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 34 36 30 20 45 52 52 4d 53 47 4e 52 25 20 3d ┆************** 6460 ERRMSGNR% =┆
0x0397e0…039800 20 31 33 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 34 38 30 20 47 4f 53 55 42 20 31 30 ┆ 13 : GOSUB 20000 6480 GOSUB 10┆
0x039800…039820 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 36 34 38 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆00 : RETURN 6482 REM **********┆
0x039820…039840 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039840…039860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 34 ┆**************************** 64┆
0x039860…039880 38 35 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 57 52 49 54 45 20 46 4f 52 4d 20 4e 52 2e 20 54 ┆85 REM * SUB.: WRITE FORM NR. T┆
0x039880…0398a0 4f 20 41 52 42 53 54 41 54 2d 52 45 43 4f 52 44 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 34 38 38 ┆O ARBSTAT-RECORD * 6488┆
0x0398a0…0398c0 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x0398c0…0398e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0398e0…039900 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 34 39 30 20 46 25 20 3d 20 31 20 3a 20 46 31 25 20 3d ┆*********** 6490 F% = 1 : F1% =┆
0x039900…039920 (15, 1, 7) 49 4e 50 55 54 24 20 3d 20 49 4e 50 55 54 24 28 31 29 3a 49 46 20 45 53 43 49 4e 50 55 54 24 20 ┆INPUT$ = INPUT$(1):IF ESCINPUT$ ┆
0x039920…039940 3d 20 22 4a 22 20 54 48 45 4e 20 4f 56 45 52 57 52 49 54 45 25 20 3d 20 31 20 3a 20 47 4f 54 4f ┆= "J" THEN OVERWRITE% = 1 : GOTO┆
0x039940…039960 20 35 35 33 30 0d 0a 36 36 30 30 20 49 46 20 41 53 43 28 45 53 43 49 4e 50 55 54 24 29 20 3d 20 ┆ 5530 6600 IF ASC(ESCINPUT$) = ┆
0x039960…039980 31 20 47 4f 54 4f 20 31 30 31 32 20 45 4c 53 45 20 36 35 39 35 0d 0a 36 36 30 32 20 52 45 4d 20 ┆1 GOTO 1012 ELSE 6595 6602 REM ┆
0x039980…0399a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x0399c0…0399e0 2a 2a 2a 2a 2a 2a 0d 0a 36 36 30 35 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 45 52 52 4d 53 47 ┆****** 6605 REM * PRINT ERRMSG┆
0x0399e0…039a00 2e 20 49 4e 20 4c 49 4e 45 20 32 35 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 36 30 38 20 ┆. IN LINE 25 * 6608 ┆
0x039a00…039a20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x039a20…039a40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039a40…039a60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 36 31 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 39 20 ┆********** 6610 ERRMSGNR% = 19 ┆
0x039a60…039a80 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 36 31 36 20 47 4f 53 55 42 20 31 30 30 30 20 3a ┆: GOSUB 20000 6616 GOSUB 1000 :┆
0x039a80…039aa0 20 47 4f 54 4f 20 35 36 33 30 0d 0a 36 36 31 38 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ GOTO 5630 6618 REM ***********┆
0x039aa0…039ac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039ac0…039ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 36 32 ┆*************************** 662┆
0x039ae0…039b00 30 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 44 45 43 52 45 4d 45 4e 54 20 52 45 43 4f 52 44 2d ┆0 REM * SUB.: DECREMENT RECORD-┆
0x039b00…039b20 (15, 1, 8) 24 2c 31 2c 32 29 20 3a 20 50 52 49 4d 53 54 24 20 3d 20 4d 49 44 24 28 53 54 24 2c 33 2c 32 29 ┆$,1,2) : PRIMST$ = MID$(ST$,3,2)┆
0x039b20…039b40 20 3a 20 53 45 4b 53 54 24 20 3d 20 4d 49 44 24 28 53 54 24 2c 35 2c 32 29 0d 0a 37 32 36 30 20 ┆ : SEKST$ = MID$(ST$,5,2) 7260 ┆
0x039b40…039b60 47 45 4e 45 52 41 4c 53 54 25 20 3d 20 56 41 4c 28 47 45 4e 45 52 41 4c 53 54 24 29 20 3a 20 50 ┆GENERALST% = VAL(GENERALST$) : P┆
0x039b60…039b80 52 49 4d 53 54 25 20 3d 20 56 41 4c 28 50 52 49 4d 53 54 24 29 20 3a 20 53 45 4b 53 54 25 20 3d ┆RIMST% = VAL(PRIMST$) : SEKST% =┆
0x039b80…039ba0 20 56 41 4c 28 53 45 4b 53 54 24 29 0d 0a 37 32 37 30 20 4f 4e 20 47 45 4e 45 52 41 4c 53 54 25 ┆ VAL(SEKST$) 7270 ON GENERALST%┆
0x039ba0…039bc0 20 47 4f 54 4f 20 37 33 33 30 2c 37 33 32 30 2c 37 33 32 30 2c 37 33 32 30 2c 37 33 32 30 2c 37 ┆ GOTO 7330,7320,7320,7320,7320,7┆
0x039bc0…039be0 33 32 30 2c 37 33 32 30 0d 0a 37 32 38 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 31 20 3a 20 ┆320,7320 7280 ERRMSGNR% = 21 : ┆
0x039be0…039c00 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 37 33 30 30 20 47 4f 53 55 42 20 31 30 30 30 20 3a 20 52 ┆GOSUB 20000 7300 GOSUB 1000 : R┆
0x039c00…039c20 45 54 55 52 4e 0d 0a 37 33 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ETURN 7310 REM ****************┆
0x039c20…039c40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039c40…039c60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 33 32 30 20 50 52 49 ┆********************** 7320 PRI┆
0x039c60…039c80 4d 53 54 25 20 3d 20 38 20 3a 20 52 45 54 55 52 4e 0d 0a 37 33 33 30 20 52 45 54 55 52 4e 0d 0a ┆MST% = 8 : RETURN 7330 RETURN ┆
0x039c80…039ca0 37 33 33 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆7332 REM ***********************┆
0x039ca0…039cc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039cc0…039ce0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 33 33 34 20 52 45 4d 20 2a 20 20 53 55 42 ┆*************** 7334 REM * SUB┆
0x039ce0…039d00 2e 3a 20 43 41 4c 43 55 4c 41 54 45 20 54 48 45 20 4d 41 58 2e 20 56 41 52 49 41 42 4c 45 20 50 ┆.: CALCULATE THE MAX. VARIABLE P┆
0x039d00…039d20 (15, 1, 9) 3d 20 22 30 34 22 20 3a 20 53 50 45 43 4d 4f 44 24 20 3d 20 22 30 30 30 22 20 20 20 20 20 20 20 ┆= "04" : SPECMOD$ = "000" ┆
0x039d20…039d40 20 20 20 09 09 0d 0a 36 32 30 30 20 47 4f 53 55 42 20 39 31 35 30 20 3a 20 47 4f 53 55 42 20 39 ┆ 6200 GOSUB 9150 : GOSUB 9┆
0x039d40…039d60 34 35 30 20 3a 20 47 4f 53 55 42 20 39 35 35 30 20 20 20 20 20 20 20 09 09 09 09 52 45 4d 20 2a ┆450 : GOSUB 9550 REM *┆
0x039d60…039d80 2a 2a 20 49 4e 49 54 20 41 52 42 53 54 41 54 2d 46 49 45 4c 44 20 41 4e 44 20 57 52 49 54 45 20 ┆** INIT ARBSTAT-FIELD AND WRITE ┆
0x039d80…039da0 41 52 42 53 54 41 54 0d 0a 36 32 32 30 20 47 4f 54 4f 20 35 35 33 30 20 20 20 20 20 20 20 20 20 ┆ARBSTAT 6220 GOTO 5530 ┆
0x039da0…039dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 0d 0a 36 33 33 ┆ 633┆
0x039dc0…039de0 31 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 REM **************************┆
0x039de0…039e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039e00…039e20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 33 32 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 ┆************ 6332 REM * SUB.: ┆
0x039e20…039e40 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 20 ┆PRINT ERRMSG. IN LINE 25 ┆
0x039e40…039e60 20 20 2a 0d 0a 36 33 33 33 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 6333 REM ******************┆
0x039e60…039e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039e80…039ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 33 34 20 45 52 52 4d 53 ┆******************** 6334 ERRMS┆
0x039ea0…039ec0 47 4e 52 25 20 3d 20 31 30 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 33 33 38 20 47 4f ┆GNR% = 10 : GOSUB 20000 6338 GO┆
0x039ec0…039ee0 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 36 33 33 39 20 52 45 4d 20 2a 2a 2a 2a ┆SUB 1000 : RETURN 6339 REM ****┆
0x039ee0…039f00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x039f00…039f20 (15, 1, 10) 20 31 20 3a 20 4e 45 57 46 4f 52 4d 4e 52 25 20 3d 20 31 20 3a 20 46 4f 52 4d 4e 52 57 52 25 20 ┆ 1 : NEWFORMNR% = 1 : FORMNRWR% ┆
0x039f20…039f40 3d 20 30 20 3a 20 46 4f 52 4d 4e 52 24 20 3d 20 53 54 52 24 28 46 4f 52 4d 4e 52 25 29 3a 4e 46 ┆= 0 : FORMNR$ = STR$(FORMNR%):NF┆
0x039f40…039f60 4f 52 4d 4e 52 24 3d 53 50 41 43 45 24 28 34 29 3a 52 53 45 54 20 4e 46 4f 52 4d 4e 52 24 20 3d ┆ORMNR$=SPACE$(4):RSET NFORMNR$ =┆
0x039f60…039f80 20 46 4f 52 4d 4e 52 24 0d 0a 36 34 39 31 20 55 46 4f 52 4d 4e 52 24 20 3d 20 53 50 41 43 45 24 ┆ FORMNR$ 6491 UFORMNR$ = SPACE$┆
0x039f80…039fa0 28 33 29 20 3a 20 47 4f 54 4f 20 36 34 39 35 0d 0a 36 34 39 32 20 46 25 20 3d 20 31 20 3a 20 46 ┆(3) : GOTO 6495 6492 F% = 1 : F┆
0x039fa0…039fc0 31 25 20 3d 20 31 20 3a 20 4e 45 57 46 4f 52 4d 4e 52 25 20 3d 20 30 20 3a 20 46 4f 52 4d 4e 52 ┆1% = 1 : NEWFORMNR% = 0 : FORMNR┆
0x039fc0…039fe0 57 52 25 20 3d 20 30 20 3a 20 46 4f 52 4d 4e 52 24 20 3d 20 53 54 52 24 28 46 4f 52 4d 4e 52 25 ┆WR% = 0 : FORMNR$ = STR$(FORMNR%┆
0x039fe0…03a000 29 0d 0a 36 34 39 33 20 4e 46 4f 52 4d 4e 52 24 20 3d 20 53 50 41 43 45 24 28 34 29 20 3a 20 52 ┆) 6493 NFORMNR$ = SPACE$(4) : R┆
0x03a000…03a020 53 45 54 20 4e 46 4f 52 4d 4e 52 24 20 3d 20 46 4f 52 4d 4e 52 24 0d 0a 36 34 39 35 20 46 4f 52 ┆SET NFORMNR$ = FORMNR$ 6495 FOR┆
0x03a020…03a040 20 46 50 25 20 3d 20 31 20 54 4f 20 34 35 0d 0a 36 35 30 30 20 49 46 20 4e 45 57 46 4f 52 4d 4e ┆ FP% = 1 TO 45 6500 IF NEWFORMN┆
0x03a040…03a060 52 25 20 3d 20 31 20 54 48 45 4e 20 49 46 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 2b 31 2c 33 ┆R% = 1 THEN IF MID$(ADDR$,F%+1,3┆
0x03a060…03a080 29 20 3d 20 55 46 4f 52 4d 4e 52 24 20 47 4f 54 4f 20 36 35 32 30 20 45 4c 53 45 20 47 4f 54 4f ┆) = UFORMNR$ GOTO 6520 ELSE GOTO┆
0x03a080…03a0a0 20 36 35 30 35 0d 0a 36 35 30 32 20 4f 46 4f 52 4d 4e 52 24 20 3d 20 4d 49 44 24 28 41 44 44 52 ┆ 6505 6502 OFORMNR$ = MID$(ADDR┆
0x03a0a0…03a0c0 24 2c 46 25 2b 31 2c 33 29 20 3a 20 49 46 20 56 41 4c 28 4f 46 4f 52 4d 4e 52 24 29 20 3d 20 46 ┆$,F%+1,3) : IF VAL(OFORMNR$) = F┆
0x03a0c0…03a0e0 4f 52 4d 4e 52 25 20 47 4f 54 4f 20 36 35 32 30 0d 0a 36 35 30 35 20 46 25 20 3d 20 46 25 20 2b ┆ORMNR% GOTO 6520 6505 F% = F% +┆
0x03a0e0…03a100 20 34 20 3a 20 46 31 25 20 3d 20 46 31 25 20 2b 20 33 0d 0a 36 35 31 30 20 4e 45 58 54 20 46 50 ┆ 4 : F1% = F1% + 3 6510 NEXT FP┆
0x03a100…03a120 (15, 1, 11) 43 4f 55 4e 54 45 52 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 36 32 32 20 52 45 4d 20 2a 2a 2a ┆COUNTER * 6622 REM ***┆
0x03a120…03a140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03a160…03a180 2a 2a 2a 0d 0a 36 36 32 35 20 52 45 43 43 4f 55 4e 54 24 20 3d 20 4d 49 44 24 28 4e 4f 4e 5a 35 ┆*** 6625 RECCOUNT$ = MID$(NONZ5┆
0x03a180…03a1a0 30 24 2c 33 39 2c 36 29 20 3a 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 56 41 4c 28 52 45 43 43 4f ┆0$,39,6) : RECCOUNT% = VAL(RECCO┆
0x03a1a0…03a1c0 55 4e 54 24 29 0d 0a 36 36 33 30 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 52 45 43 43 4f 55 4e 54 ┆UNT$) 6630 RECCOUNT% = RECCOUNT┆
0x03a1c0…03a1e0 25 20 2d 20 31 20 3a 20 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 54 52 24 28 52 45 43 43 4f 55 4e ┆% - 1 : RECCOUNT$ = STR$(RECCOUN┆
0x03a1e0…03a200 54 25 29 0d 0a 36 36 33 35 20 4e 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 36 29 ┆T%) 6635 NRECCOUNT$ = SPACE$(6)┆
0x03a200…03a220 20 3a 20 52 53 45 54 20 4e 52 45 43 43 4f 55 4e 54 24 20 3d 20 52 45 43 43 4f 55 4e 54 24 0d 0a ┆ : RSET NRECCOUNT$ = RECCOUNT$ ┆
0x03a220…03a240 36 36 34 30 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 33 39 2c 36 29 20 3d 20 4e 52 45 43 43 4f ┆6640 MID$(NONZ50$,39,6) = NRECCO┆
0x03a240…03a260 55 4e 54 24 20 3a 20 52 45 54 55 52 4e 0d 0a 36 36 39 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a ┆UNT$ : RETURN 6690 REM ********┆
0x03a260…03a280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a280…03a2a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a ┆****************************** ┆
0x03a2a0…03a2c0 36 36 39 35 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 49 46 20 53 50 41 43 45 20 46 4f 52 20 4d ┆6695 REM * SUB.: IF SPACE FOR M┆
0x03a2c0…03a2e0 4f 52 45 20 46 49 4c 45 53 20 49 4e 20 41 52 42 53 54 41 54 20 3f 09 09 09 20 20 20 20 20 20 2a ┆ORE FILES IN ARBSTAT ? *┆
0x03a2e0…03a300 0d 0a 37 30 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 7000 REM *********************┆
0x03a300…03a320 (15, 1, 12) 4f 53 2e 20 49 4e 20 41 20 46 4f 52 4d 41 54 09 09 20 20 20 20 20 20 2a 0d 0a 37 33 34 30 20 52 ┆OS. IN A FORMAT * 7340 R┆
0x03a320…03a340 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x03a340…03a360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a360…03a380 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 33 35 30 20 56 41 52 50 4f 53 24 20 3d 20 4d 49 44 24 28 4e ┆********* 7350 VARPOS$ = MID$(N┆
0x03a380…03a3a0 4f 4e 5a 35 30 24 2c 31 39 2c 34 29 0d 0a 37 33 36 30 20 49 46 20 56 41 4c 28 56 41 24 29 20 3e ┆ONZ50$,19,4) 7360 IF VAL(VA$) >┆
0x03a3a0…03a3c0 20 56 41 4c 28 56 41 52 50 4f 53 24 29 20 54 48 45 4e 20 56 41 52 50 4f 53 24 20 3d 20 56 41 24 ┆ VAL(VARPOS$) THEN VARPOS$ = VA$┆
0x03a3c0…03a3e0 0d 0a 37 33 36 32 20 4e 56 41 52 50 4f 53 24 20 3d 20 53 50 41 43 45 24 28 34 29 20 3a 20 52 53 ┆ 7362 NVARPOS$ = SPACE$(4) : RS┆
0x03a3e0…03a400 45 54 20 4e 56 41 52 50 4f 53 24 20 3d 20 56 41 52 50 4f 53 24 0d 0a 37 33 37 30 20 4d 49 44 24 ┆ET NVARPOS$ = VARPOS$ 7370 MID$┆
0x03a400…03a420 28 4e 4f 4e 5a 35 30 24 2c 31 39 2c 34 29 20 3d 20 4e 56 41 52 50 4f 53 24 20 3a 20 52 45 54 55 ┆(NONZ50$,19,4) = NVARPOS$ : RETU┆
0x03a420…03a440 52 4e 0d 0a 37 33 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RN 7380 REM *******************┆
0x03a440…03a460 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a460…03a480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 33 39 30 20 52 45 4d 20 2a 20 ┆******************* 7390 REM * ┆
0x03a480…03a4a0 20 53 55 42 2e 3a 20 46 49 4c 45 20 49 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 09 09 09 09 ┆ SUB.: FILE IN ARBSTAT-DIR ? ┆
0x03a4a0…03a4c0 09 20 20 20 20 20 20 2a 0d 0a 37 34 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 7400 REM *************┆
0x03a4c0…03a4e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a4e0…03a500 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 34 31 30 20 ┆************************* 7410 ┆
0x03a500…03a520 (15, 1, 13) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a520…03a540 2a 2a 0d 0a 36 33 34 30 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 52 52 4d ┆** 6340 REM * SUB.: PRINT ERRM┆
0x03a540…03a560 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 36 33 34 31 20 ┆SG. IN LINE 25 * 6341 ┆
0x03a560…03a580 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆REM ****************************┆
0x03a580…03a5a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a5a0…03a5c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 34 32 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 35 20 ┆********** 6342 ERRMSGNR% = 15 ┆
0x03a5c0…03a5e0 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 33 34 35 20 47 4f 53 55 42 20 31 30 30 30 20 3a ┆: GOSUB 20000 6345 GOSUB 1000 :┆
0x03a5e0…03a600 20 52 45 54 55 52 4e 0d 0a 36 33 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RETURN 6350 REM **************┆
0x03a600…03a620 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a620…03a640 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 35 32 20 52 ┆************************ 6352 R┆
0x03a640…03a660 45 4d 20 2a 20 20 41 44 44 20 41 20 4e 45 57 20 46 4f 52 4d 41 54 20 54 4f 20 46 4f 52 4d 41 54 ┆EM * ADD A NEW FORMAT TO FORMAT┆
0x03a660…03a680 2d 46 49 4c 45 20 49 4e 20 46 4f 52 4d 41 54 2d 55 50 44 41 54 45 2d 4d 4f 44 45 09 20 20 20 20 ┆-FILE IN FORMAT-UPDATE-MODE ┆
0x03a680…03a6a0 20 20 2a 0d 0a 36 33 35 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 6354 REM ******************┆
0x03a6a0…03a6c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a6c0…03a6e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 33 36 30 20 45 52 52 4d 53 ┆******************** 6360 ERRMS┆
0x03a6e0…03a700 47 4e 52 25 20 3d 20 32 37 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 36 33 38 30 20 50 52 ┆GNR% = 27 : GOSUB 20000 6380 PR┆
0x03a700…03a720 (15, 1, 14) 25 0d 0a 36 35 31 35 20 46 4f 52 4d 4e 52 57 52 25 20 3d 20 30 20 3a 20 52 45 54 55 52 4e 0d 0a ┆% 6515 FORMNRWR% = 0 : RETURN ┆
0x03a720…03a740 36 35 32 30 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 2c 34 29 20 3d 20 4e 46 4f 52 4d 4e 52 24 ┆6520 MID$(ADDR$,F%,4) = NFORMNR$┆
0x03a740…03a760 20 3a 20 4d 49 44 24 28 53 55 42 52 24 2c 46 31 25 2c 33 29 20 3d 20 4d 49 44 24 28 46 43 24 2c ┆ : MID$(SUBR$,F1%,3) = MID$(FC$,┆
0x03a760…03a780 31 2c 33 29 20 3a 20 46 4f 52 4d 4e 52 57 52 25 20 3d 20 31 20 3a 20 52 45 54 55 52 4e 0d 0a 36 ┆1,3) : FORMNRWR% = 1 : RETURN 6┆
0x03a780…03a7a0 35 32 35 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆525 REM ************************┆
0x03a7a0…03a7c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a7c0…03a7e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 35 33 30 20 52 45 4d 20 2a 20 20 53 55 42 2e ┆************** 6530 REM * SUB.┆
0x03a7e0…03a800 3a 20 46 4f 52 4d 20 4e 52 2e 20 49 4e 20 41 52 42 53 54 41 54 20 3f 20 2f 20 53 50 41 43 45 20 ┆: FORM NR. IN ARBSTAT ? / SPACE ┆
0x03a800…03a820 46 4f 52 20 41 20 4e 45 57 20 46 4f 52 4d 4e 52 20 3f 09 20 20 20 20 20 20 2a 0d 0a 36 35 33 32 ┆FOR A NEW FORMNR ? * 6532┆
0x03a820…03a840 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x03a840…03a860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a860…03a880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 36 35 33 35 20 46 25 20 3d 20 31 20 3a 20 46 4f 52 4d 4e ┆*********** 6535 F% = 1 : FORMN┆
0x03a880…03a8a0 52 55 53 45 25 20 3d 20 30 20 3a 20 46 4f 52 4d 4e 52 53 50 25 20 3d 20 30 0d 0a 36 35 34 30 20 ┆RUSE% = 0 : FORMNRSP% = 0 6540 ┆
0x03a8a0…03a8c0 46 4f 52 20 46 50 25 20 3d 20 31 20 54 4f 20 34 35 0d 0a 36 35 34 35 20 4f 46 4f 52 4d 4e 52 24 ┆FOR FP% = 1 TO 45 6545 OFORMNR$┆
0x03a8c0…03a8e0 20 3d 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 2b 31 2c 33 29 20 3a 20 49 46 20 56 41 4c 28 4f ┆ = MID$(ADDR$,F%+1,3) : IF VAL(O┆
0x03a8e0…03a900 46 4f 52 4d 4e 52 24 29 20 3d 20 46 4f 52 4d 4e 52 25 20 47 4f 54 4f 20 36 35 37 30 0d 0a 36 35 ┆FORMNR$) = FORMNR% GOTO 6570 65┆
0x03a900…03a920 (15, 1, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03a920…03a940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 30 31 30 20 52 31 25 20 3d 20 31 20 ┆***************** 7010 R1% = 1 ┆
0x03a940…03a960 3a 20 44 49 52 32 25 20 3d 20 30 0d 0a 37 30 32 30 20 46 4f 52 20 52 45 4c 50 4f 53 31 25 20 3d ┆: DIR2% = 0 7020 FOR RELPOS1% =┆
0x03a960…03a980 20 31 35 20 54 4f 20 32 33 39 20 53 54 45 50 20 31 36 0d 0a 37 30 33 30 20 52 31 25 20 3d 20 52 ┆ 15 TO 239 STEP 16 7030 R1% = R┆
0x03a980…03a9a0 31 25 20 2b 20 31 0d 0a 37 30 34 30 20 49 46 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 ┆1% + 1 7040 IF MID$(ARBSTATDIR1┆
0x03a9a0…03a9c0 24 2c 52 45 4c 50 4f 53 31 25 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 37 31 32 30 0d 0a 37 ┆$,RELPOS1%,1) = " " GOTO 7120 7┆
0x03a9c0…03a9e0 30 35 30 20 4e 45 58 54 20 52 45 4c 50 4f 53 31 25 0d 0a 37 30 36 30 20 44 49 52 32 25 20 3d 20 ┆050 NEXT RELPOS1% 7060 DIR2% = ┆
0x03a9e0…03aa00 31 0d 0a 37 30 37 30 20 46 4f 52 20 52 45 4c 50 4f 53 32 25 20 3d 20 31 20 54 4f 20 32 32 35 20 ┆1 7070 FOR RELPOS2% = 1 TO 225 ┆
0x03aa00…03aa20 53 54 45 50 20 31 36 0d 0a 37 30 38 30 20 52 31 25 20 3d 20 52 31 25 20 2b 20 31 0d 0a 37 30 39 ┆STEP 16 7080 R1% = R1% + 1 709┆
0x03aa20…03aa40 30 20 49 46 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 52 45 4c 50 4f 53 32 25 2c ┆0 IF MID$(ARBSTATDIR2$,RELPOS2%,┆
0x03aa40…03aa60 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 37 31 32 30 0d 0a 37 31 30 30 20 4e 45 58 54 20 52 45 ┆1) = " " GOTO 7120 7100 NEXT RE┆
0x03aa60…03aa80 4c 50 4f 53 32 25 0d 0a 37 31 31 30 20 4e 4f 53 50 41 43 45 46 4c 41 47 25 20 3d 20 31 20 3a 20 ┆LPOS2% 7110 NOSPACEFLAG% = 1 : ┆
0x03aa80…03aaa0 52 45 54 55 52 4e 0d 0a 37 31 32 30 20 4e 4f 53 50 41 43 45 46 4c 41 47 25 20 3d 20 30 20 3a 20 ┆RETURN 7120 NOSPACEFLAG% = 0 : ┆
0x03aaa0…03aac0 52 45 54 55 52 4e 0d 0a 37 32 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RETURN 7200 REM ***************┆
0x03aac0…03aae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03aae0…03ab00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 32 30 35 20 52 45 ┆*********************** 7205 RE┆
0x03ab00…03ab20 (16, 0, 1) 46 49 4c 45 49 4e 44 49 52 25 20 3d 20 30 20 3a 20 44 49 52 32 25 20 3d 20 30 20 3a 20 4e 41 4d ┆FILEINDIR% = 0 : DIR2% = 0 : NAM┆
0x03ab20…03ab40 45 24 20 3d 20 53 50 41 43 45 24 28 31 36 29 0d 0a 37 34 31 32 20 46 4f 52 20 49 25 20 3d 20 31 ┆E$ = SPACE$(16) 7412 FOR I% = 1┆
0x03ab40…03ab60 35 20 54 4f 20 32 33 39 20 53 54 45 50 20 31 36 0d 0a 37 34 32 30 20 49 46 20 4d 49 44 24 28 41 ┆5 TO 239 STEP 16 7420 IF MID$(A┆
0x03ab60…03ab80 52 42 53 54 41 54 44 49 52 31 24 2c 49 25 2c 31 32 29 20 3d 20 46 49 4c 45 4e 41 4d 45 24 20 47 ┆RBSTATDIR1$,I%,12) = FILENAME$ G┆
0x03ab80…03aba0 4f 54 4f 20 37 34 38 30 0d 0a 37 34 33 30 20 4e 45 58 54 20 49 25 0d 0a 37 34 33 35 20 44 49 52 ┆OTO 7480 7430 NEXT I% 7435 DIR┆
0x03aba0…03abc0 32 25 20 3d 20 31 0d 0a 37 34 34 30 20 46 4f 52 20 49 25 20 3d 20 31 20 54 4f 20 32 32 35 20 53 ┆2% = 1 7440 FOR I% = 1 TO 225 S┆
0x03abc0…03abe0 54 45 50 20 31 36 0d 0a 37 34 35 30 20 49 46 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 ┆TEP 16 7450 IF MID$(ARBSTATDIR2┆
0x03abe0…03ac00 24 2c 49 25 2c 31 32 29 20 3d 20 46 49 4c 45 4e 41 4d 45 24 20 47 4f 54 4f 20 37 34 38 30 0d 0a ┆$,I%,12) = FILENAME$ GOTO 7480 ┆
0x03ac00…03ac20 37 34 36 30 20 4e 45 58 54 20 49 25 0d 0a 37 34 37 30 20 46 49 4c 45 49 4e 44 49 52 25 20 3d 20 ┆7460 NEXT I% 7470 FILEINDIR% = ┆
0x03ac20…03ac40 30 20 3a 20 52 45 54 55 52 4e 0d 0a 37 34 38 30 20 49 46 20 44 49 52 32 25 20 3d 20 31 20 54 48 ┆0 : RETURN 7480 IF DIR2% = 1 TH┆
0x03ac40…03ac60 45 4e 20 4e 41 4d 45 24 20 3d 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 32 24 2c 49 25 2c ┆EN NAME$ = MID$(ARBSTATDIR2$,I%,┆
0x03ac60…03ac80 31 36 29 20 45 4c 53 45 20 4e 41 4d 45 24 20 3d 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 ┆16) ELSE NAME$ = MID$(ARBSTATDIR┆
0x03ac80…03aca0 31 24 2c 49 25 2c 31 36 29 0d 0a 37 34 38 35 20 46 49 4c 45 49 4e 44 49 52 25 20 3d 20 31 20 3a ┆1$,I%,16) 7485 FILEINDIR% = 1 :┆
0x03aca0…03acc0 20 52 45 54 55 52 4e 0d 0a 37 34 39 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RETURN 7490 REM **************┆
0x03acc0…03ace0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03ace0…03ad00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 34 39 35 20 52 ┆************************ 7495 R┆
0x03ad00…03ad20 (16, 0, 2) 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆00 REM *************************┆
0x03ad20…03ad40 2a 2a 2a 20 43 4c 4f 53 45 20 46 4f 52 4d 46 49 4c 45 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*** CLOSE FORMFILE *************┆
0x03ad40…03ad60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 32 31 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 ┆************* 8210 ERRFLAG% = 0┆
0x03ad60…03ad80 20 3a 20 55 53 52 46 4f 52 4d 46 4f 50 45 4e 25 20 3d 20 30 0d 0a 38 32 32 30 20 43 4c 4f 53 45 ┆ : USRFORMFOPEN% = 0 8220 CLOSE┆
0x03ad80…03ada0 20 23 32 20 3a 20 52 45 54 55 52 4e 0d 0a 38 32 32 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ #2 : RETURN 8222 REM *********┆
0x03ada0…03adc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03adc0…03ade0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 ┆***************************** 8┆
0x03ade0…03ae00 32 32 34 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 55 50 44 41 54 45 20 54 48 45 20 41 52 42 53 ┆224 REM * SUB.: UPDATE THE ARBS┆
0x03ae00…03ae20 54 41 54 2d 52 45 43 4f 52 44 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 38 32 33 30 20 52 45 4d 20 ┆TAT-RECORD * 8230 REM ┆
0x03ae20…03ae40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03ae60…03ae80 2a 2a 2a 2a 2a 2a 0d 0a 38 32 34 30 20 49 46 20 46 4f 52 4d 43 48 41 49 4e 45 52 52 4f 52 25 20 ┆****** 8240 IF FORMCHAINERROR% ┆
0x03ae80…03aea0 54 48 45 4e 20 45 4e 54 52 59 53 54 41 54 24 20 3d 20 22 55 2e 2e 22 20 45 4c 53 45 20 45 4e 54 ┆THEN ENTRYSTAT$ = "U.." ELSE ENT┆
0x03aea0…03aec0 52 59 53 54 41 54 24 20 3d 20 22 4b 2e 2e 22 0d 0a 38 32 34 35 20 4d 49 44 24 28 4e 4f 4e 5a 35 ┆RYSTAT$ = "K.." 8245 MID$(NONZ5┆
0x03aec0…03aee0 30 24 2c 32 33 2c 33 29 20 3d 20 45 4e 54 52 59 53 54 41 54 24 20 3a 20 4c 53 45 54 20 4e 4f 4e ┆0$,23,3) = ENTRYSTAT$ : LSET NON┆
0x03aee0…03af00 5a 24 20 3d 20 4e 4f 4e 5a 35 30 24 0d 0a 38 32 34 36 20 4c 53 45 54 20 53 4d 24 20 3d 20 53 50 ┆Z$ = NONZ50$ 8246 LSET SM$ = SP┆
0x03af00…03af20 (16, 0, 3) 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 ┆ PRINT ERRMSG. IN LINE 25 ┆
0x03af20…03af40 20 20 20 2a 0d 0a 39 32 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 9220 REM *****************┆
0x03af40…03af60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03af60…03af80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 32 33 30 20 45 52 52 4d ┆********************* 9230 ERRM┆
0x03af80…03afa0 53 47 4e 52 25 20 3d 20 31 37 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 39 32 35 30 20 47 ┆SGNR% = 17 : GOSUB 20000 9250 G┆
0x03afa0…03afc0 4f 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 39 32 37 30 20 52 45 4d 20 2a 2a 2a ┆OSUB 1000 : RETURN 9270 REM ***┆
0x03afc0…03afe0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4f 50 45 4e 20 46 ┆************************* OPEN F┆
0x03afe0…03b000 4f 52 4d 20 20 46 49 4c 45 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ORM FILE *********************┆
0x03b000…03b020 2a 2a 2a 0d 0a 39 32 38 30 20 55 53 52 46 4f 52 4d 46 4f 50 45 4e 25 20 3d 20 31 20 0d 0a 39 33 ┆*** 9280 USRFORMFOPEN% = 1 93┆
0x03b020…03b040 34 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 4f 50 45 4e 20 22 52 22 2c 23 32 2c 46 4f ┆40 ERRFLAG% = 0 : OPEN "R",#2,FO┆
0x03b040…03b060 52 4d 4e 41 4d 45 24 2c 31 39 32 32 0d 0a 39 33 35 30 20 52 45 54 55 52 4e 0d 0a 39 33 36 30 20 ┆RMNAME$,1922 9350 RETURN 9360 ┆
0x03b060…03b080 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 57 52 49 ┆REM ************************ WRI┆
0x03b080…03b0a0 54 45 20 41 52 42 53 54 41 54 2d 44 49 52 2e 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TE ARBSTAT-DIR. ****************┆
0x03b0a0…03b0c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 33 37 30 20 46 49 45 4c 44 20 23 31 2c 32 35 35 20 41 53 ┆********** 9370 FIELD #1,255 AS┆
0x03b0c0…03b0e0 20 41 52 42 53 54 41 54 44 49 52 31 24 2c 32 35 35 20 41 53 20 41 52 42 53 54 41 54 44 49 52 32 ┆ ARBSTATDIR1$,255 AS ARBSTATDIR2┆
0x03b0e0…03b100 24 2c 32 20 41 53 20 4e 4f 54 55 53 45 44 24 0d 0a 39 34 31 30 20 45 52 52 46 4c 41 47 25 20 3d ┆$,2 AS NOTUSED$ 9410 ERRFLAG% =┆
0x03b100…03b120 (16, 0, 4) 30 36 30 2c 38 30 36 30 2c 38 31 31 30 2c 38 31 33 30 2c 38 31 35 30 2c 38 30 31 30 0d 0a 39 39 ┆060,8060,8110,8130,8150,8010 99┆
0x03b120…03b140 32 30 20 47 4f 54 4f 20 31 36 0d 0a 31 30 30 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆20 GOTO 16 10000 REM **********┆
0x03b140…03b160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 45 20 52 20 52 20 4f 20 52 20 2a 2a 2a 2a 2a 2a 2a ┆************** E R R O R *******┆
0x03b160…03b180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 30 ┆*************************** 100┆
0x03b180…03b1a0 31 30 20 52 45 4d 20 0d 0a 31 30 30 32 30 20 52 45 4d 20 65 72 72 66 6c 61 67 25 20 3d 20 31 20 ┆10 REM 10020 REM errflag% = 1 ┆
0x03b1a0…03b1c0 3d 20 22 66 69 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 22 0d 0a 31 30 30 33 30 20 52 45 4d 20 65 72 ┆= "file not found" 10030 REM er┆
0x03b1c0…03b1e0 72 66 6c 61 67 25 20 3d 20 32 20 3d 20 22 66 69 6c 65 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 ┆rflag% = 2 = "file already exist┆
0x03b1e0…03b200 73 22 0d 0a 31 30 30 34 30 20 52 45 4d 20 65 72 72 66 6c 61 67 25 20 3d 20 33 20 3d 20 22 62 61 ┆s" 10040 REM errflag% = 3 = "ba┆
0x03b200…03b220 64 20 66 69 6c 65 6e 61 6d 65 22 0d 0a 31 30 30 35 30 20 52 45 4d 20 65 72 72 66 6c 61 67 25 20 ┆d filename" 10050 REM errflag% ┆
0x03b220…03b240 3d 20 34 20 3d 20 22 66 61 74 61 6c 20 65 72 72 6f 72 22 0d 0a 31 30 30 36 30 20 52 45 4d 20 65 ┆= 4 = "fatal error" 10060 REM e┆
0x03b240…03b260 72 72 66 6c 61 67 25 20 3d 20 35 20 3d 20 22 64 69 73 63 20 69 2f 6f 20 65 72 72 6f 72 22 0d 0a ┆rrflag% = 5 = "disc i/o error" ┆
0x03b260…03b280 31 30 30 37 30 20 52 45 4d 20 65 72 72 66 6c 61 67 25 20 3d 20 36 20 3d 20 22 64 69 73 63 20 66 ┆10070 REM errflag% = 6 = "disc f┆
0x03b280…03b2a0 75 6c 6c 22 0d 0a 31 30 30 38 30 20 52 45 4d 20 65 72 72 66 6c 61 67 25 20 3d 20 37 20 3d 20 22 ┆ull" 10080 REM errflag% = 7 = "┆
0x03b2a0…03b2c0 63 70 2f 6d 20 64 69 72 20 66 75 6c 6c 22 0d 0a 31 30 30 38 35 20 52 45 4d 20 65 72 72 66 6c 61 ┆cp/m dir full" 10085 REM errfla┆
0x03b2c0…03b2e0 67 25 20 3d 20 38 20 3d 20 22 6e 6f 20 61 72 62 73 74 61 74 64 69 72 22 0d 0a 31 30 30 39 30 20 ┆g% = 8 = "no arbstatdir" 10090 ┆
0x03b2e0…03b300 49 46 20 45 52 52 20 3c 20 35 30 20 4f 52 20 45 52 52 20 3e 20 36 37 20 47 4f 54 4f 20 31 30 31 ┆IF ERR < 50 OR ERR > 67 GOTO 101┆
0x03b300…03b320 (16, 0, 5) 45 4d 20 2a 20 20 54 45 53 54 20 54 48 45 20 46 4f 52 4d 2d 43 48 41 49 4e 2d 4b 45 59 09 09 09 ┆EM * TEST THE FORM-CHAIN-KEY ┆
0x03b320…03b340 09 09 20 20 20 20 20 20 2a 0d 0a 37 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 7500 REM ************┆
0x03b340…03b360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03b360…03b380 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 35 31 30 ┆************************** 7510┆
0x03b380…03b3a0 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 38 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 37 35 ┆ ERRMSGNR% = 8 : GOSUB 20000 75┆
0x03b3a0…03b3c0 32 30 20 46 25 20 3d 20 31 20 3a 20 46 31 25 20 3d 20 31 20 3a 20 46 4f 52 4d 43 48 41 49 4e 45 ┆20 F% = 1 : F1% = 1 : FORMCHAINE┆
0x03b3c0…03b3e0 52 52 4f 52 25 20 3d 20 30 0d 0a 37 35 33 30 20 46 4f 52 20 46 50 25 20 3d 20 31 20 54 4f 20 34 ┆RROR% = 0 7530 FOR FP% = 1 TO 4┆
0x03b3e0…03b400 35 0d 0a 37 35 35 30 20 46 4f 52 4d 4e 52 24 20 3d 20 4d 49 44 24 28 41 44 44 52 24 2c 46 25 2b ┆5 7550 FORMNR$ = MID$(ADDR$,F%+┆
0x03b400…03b420 31 2c 33 29 20 3a 20 46 4f 52 4d 43 48 41 49 4e 4b 45 59 24 20 3d 20 4d 49 44 24 28 53 55 42 52 ┆1,3) : FORMCHAINKEY$ = MID$(SUBR┆
0x03b420…03b440 24 2c 46 31 25 2c 33 29 20 0d 0a 37 35 35 35 20 49 46 20 56 41 4c 28 46 4f 52 4d 43 48 41 49 4e ┆$,F1%,3) 7555 IF VAL(FORMCHAIN┆
0x03b440…03b460 4b 45 59 24 29 20 3c 3e 20 56 41 4c 28 46 4f 52 4d 4e 52 24 29 20 54 48 45 4e 20 47 4f 54 4f 20 ┆KEY$) <> VAL(FORMNR$) THEN GOTO ┆
0x03b460…03b480 37 35 37 30 0d 0a 37 35 36 30 20 47 4f 54 4f 20 37 36 30 32 0d 0a 37 35 37 30 20 46 25 20 3d 20 ┆7570 7560 GOTO 7602 7570 F% = ┆
0x03b480…03b4a0 46 25 20 2b 20 34 20 0d 0a 37 35 38 30 20 4e 45 58 54 20 46 50 25 0d 0a 37 35 39 30 20 46 32 25 ┆F% + 4 7580 NEXT FP% 7590 F2%┆
0x03b4a0…03b4c0 20 3d 20 46 31 25 20 2b 20 32 20 3a 20 46 32 25 20 3d 20 46 32 25 20 5c 20 33 20 3a 20 46 32 25 ┆ = F1% + 2 : F2% = F2% Ø 3 : F2%┆
0x03b4c0…03b4e0 20 3d 20 46 32 25 20 2a 20 34 20 2d 20 33 0d 0a 37 36 30 30 20 4d 49 44 24 28 41 44 44 52 24 2c ┆ = F2% * 4 - 3 7600 MID$(ADDR$,┆
0x03b4e0…03b500 46 32 25 2c 31 29 20 3d 20 22 2a 22 20 3a 20 46 4f 52 4d 43 48 41 49 4e 45 52 52 4f 52 25 20 3d ┆F2%,1) = "*" : FORMCHAINERROR% =┆
0x03b500…03b520 (16, 0, 6) 41 43 45 24 28 33 29 20 3a 20 4c 53 45 54 20 57 46 24 20 3d 20 53 50 41 43 45 24 28 33 29 20 3a ┆ACE$(3) : LSET WF$ = SPACE$(3) :┆
0x03b520…03b540 20 4c 53 45 54 20 56 41 24 20 3d 20 53 50 41 43 45 24 28 34 29 0d 0a 38 32 34 37 20 4c 53 45 54 ┆ LSET VA$ = SPACE$(4) 8247 LSET┆
0x03b540…03b560 20 50 43 24 20 3d 20 53 50 41 43 45 24 28 34 29 20 3a 20 4c 53 45 54 20 46 4c 24 20 3d 20 53 50 ┆ PC$ = SPACE$(4) : LSET FL$ = SP┆
0x03b560…03b580 41 43 45 24 28 34 29 0d 0a 38 32 34 38 20 4c 53 45 54 20 53 50 24 20 3d 20 50 53 54 41 54 55 53 ┆ACE$(4) 8248 LSET SP$ = PSTATUS┆
0x03b580…03b5a0 24 0d 0a 38 32 35 30 20 47 4f 53 55 42 20 39 35 35 30 20 3a 20 52 45 54 55 52 4e 20 20 20 20 20 ┆$ 8250 GOSUB 9550 : RETURN ┆
0x03b5a0…03b5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 0d 0a 38 32 35 32 20 52 45 4d 20 ┆ 8252 REM ┆
0x03b5c0…03b5e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03b600…03b620 2a 2a 2a 2a 2a 2a 0d 0a 38 32 35 34 20 52 45 4d 20 2a 20 20 45 52 52 4f 52 20 21 21 21 20 20 57 ┆****** 8254 REM * ERROR !!! W┆
0x03b620…03b640 52 49 54 45 20 45 52 52 4f 52 20 4e 4f 2e 20 54 4f 20 41 52 42 53 54 41 54 09 09 09 20 20 20 20 ┆RITE ERROR NO. TO ARBSTAT ┆
0x03b640…03b660 20 20 2a 0d 0a 38 32 36 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 8260 REM ******************┆
0x03b660…03b680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03b680…03b6a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 32 37 30 20 49 46 20 41 52 ┆******************** 8270 IF AR┆
0x03b6a0…03b6c0 42 53 54 41 54 4f 50 45 4e 25 20 3d 20 30 20 41 4e 44 20 41 52 42 53 54 41 54 57 52 49 54 45 25 ┆BSTATOPEN% = 0 AND ARBSTATWRITE%┆
0x03b6c0…03b6e0 20 3d 20 30 20 54 48 45 4e 20 47 4f 54 4f 20 38 33 33 30 0d 0a 38 32 38 30 20 4d 49 44 24 28 53 ┆ = 0 THEN GOTO 8330 8280 MID$(S┆
0x03b6e0…03b700 50 24 2c 31 2c 32 29 20 3d 20 53 54 52 24 28 45 52 52 29 0d 0a 38 32 39 30 20 4d 49 44 24 28 53 ┆P$,1,2) = STR$(ERR) 8290 MID$(S┆
0x03b700…03b720 (16, 0, 7) 20 30 20 3a 20 50 55 54 20 23 31 2c 31 0d 0a 39 34 32 30 20 52 45 54 55 52 4e 0d 0a 39 34 33 30 ┆ 0 : PUT #1,1 9420 RETURN 9430┆
0x03b720…03b740 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 49 4e ┆ REM ************************ IN┆
0x03b740…03b760 49 54 20 41 20 4e 45 57 20 41 52 42 53 54 41 54 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆IT A NEW ARBSTAT ***************┆
0x03b760…03b780 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 34 35 30 20 4c 53 45 54 20 4e 4f 4e 5a 24 20 3d 20 4e ┆*********** 9450 LSET NONZ$ = N┆
0x03b780…03b7a0 4f 4e 5a 35 30 24 0d 0a 39 34 36 30 20 4c 53 45 54 20 53 50 24 20 3d 20 50 53 54 41 54 55 53 24 ┆ONZ50$ 9460 LSET SP$ = PSTATUS$┆
0x03b7a0…03b7c0 0d 0a 39 34 37 30 20 4c 53 45 54 20 4d 4f 24 20 3d 20 4d 4f 44 45 24 20 3a 20 4c 53 45 54 20 46 ┆ 9470 LSET MO$ = MODE$ : LSET F┆
0x03b7c0…03b7e0 4c 4e 24 20 3d 20 46 49 45 4c 44 4e 4f 24 20 3a 20 4c 53 45 54 20 53 4d 24 20 3d 20 53 50 45 43 ┆LN$ = FIELDNO$ : LSET SM$ = SPEC┆
0x03b7e0…03b800 4d 4f 44 24 0d 0a 39 35 33 30 20 52 45 54 55 52 4e 0d 0a 39 35 34 30 20 52 45 4d 20 2a 2a 2a 2a ┆MOD$ 9530 RETURN 9540 REM ****┆
0x03b800…03b820 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 57 52 49 54 45 20 41 52 42 53 54 ┆******************** WRITE ARBST┆
0x03b820…03b840 41 54 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆AT *****************************┆
0x03b840…03b860 2a 2a 0d 0a 39 35 35 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 50 55 54 20 23 31 2c 52 ┆** 9550 ERRFLAG% = 0 : PUT #1,R┆
0x03b860…03b880 31 25 0d 0a 39 35 35 35 20 41 52 42 53 54 41 54 57 52 49 54 45 25 20 3d 20 31 0d 0a 39 35 36 30 ┆1% 9555 ARBSTATWRITE% = 1 9560┆
0x03b880…03b8a0 20 52 45 54 55 52 4e 0d 0a 39 35 36 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RETURN 9562 REM **************┆
0x03b8a0…03b8c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 52 45 41 44 20 41 52 42 53 54 41 54 20 2a 2a 2a 2a 2a 2a 2a 2a ┆********** READ ARBSTAT ********┆
0x03b8c0…03b8e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 35 36 34 20 45 ┆************************ 9564 E┆
0x03b8e0…03b900 52 52 46 4c 41 47 25 20 3d 20 30 20 0d 0a 39 35 36 36 20 47 45 54 20 23 31 2c 52 31 25 20 3a 20 ┆RRFLAG% = 0 9566 GET #1,R1% : ┆
0x03b900…03b920 (16, 0, 8) 31 30 0d 0a 31 30 31 30 30 20 4f 4e 20 45 52 52 2d 34 39 20 47 4f 54 4f 20 31 30 31 31 30 2c 31 ┆10 10100 ON ERR-49 GOTO 10110,1┆
0x03b920…03b940 30 31 31 30 2c 31 30 31 31 30 2c 31 30 33 31 30 2c 31 30 31 31 30 2c 31 30 31 31 30 2c 31 30 31 ┆0110,10110,10310,10110,10110,101┆
0x03b940…03b960 31 30 2c 31 30 31 36 30 2c 31 30 33 31 30 2c 31 30 31 31 30 2c 31 30 31 31 30 2c 31 30 32 31 30 ┆10,10160,10310,10110,10110,10210┆
0x03b960…03b980 2c 31 30 31 31 30 2c 31 30 31 31 30 2c 31 30 33 31 30 2c 31 30 31 31 30 2c 31 30 31 31 30 2c 31 ┆,10110,10110,10310,10110,10110,1┆
0x03b980…03b9a0 30 32 39 30 0d 0a 31 30 31 31 30 20 47 4f 53 55 42 20 31 30 33 34 30 20 3a 20 45 52 52 46 4c 41 ┆0290 10110 GOSUB 10340 : ERRFLA┆
0x03b9a0…03b9c0 47 25 20 3d 20 34 20 3a 20 52 45 53 55 4d 45 20 39 39 30 30 0d 0a 31 30 31 36 30 20 45 52 52 4d ┆G% = 4 : RESUME 9900 10160 ERRM┆
0x03b9c0…03b9e0 53 47 4e 52 25 20 3d 20 32 32 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 30 31 39 30 20 ┆SGNR% = 22 : GOSUB 20000 10190 ┆
0x03b9e0…03ba00 47 4f 53 55 42 20 31 30 30 30 20 3a 20 45 52 52 46 4c 41 47 25 20 3d 20 35 20 20 3a 20 52 45 53 ┆GOSUB 1000 : ERRFLAG% = 5 : RES┆
0x03ba00…03ba20 55 4d 45 20 39 39 30 30 0d 0a 31 30 32 31 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 33 20 3a ┆UME 9900 10210 ERRMSGNR% = 23 :┆
0x03ba20…03ba40 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 30 32 34 30 20 47 4f 53 55 42 20 31 30 30 30 20 3a ┆ GOSUB 20000 10240 GOSUB 1000 :┆
0x03ba40…03ba60 20 45 52 52 46 4c 41 47 25 20 3d 20 36 20 3a 20 52 45 53 55 4d 45 20 39 39 30 30 0d 0a 31 30 32 ┆ ERRFLAG% = 6 : RESUME 9900 102┆
0x03ba60…03ba80 39 30 20 47 4f 53 55 42 20 31 30 33 34 30 20 3a 20 45 52 52 46 4c 41 47 25 20 3d 20 37 20 3a 20 ┆90 GOSUB 10340 : ERRFLAG% = 7 : ┆
0x03ba80…03baa0 52 45 53 55 4d 45 20 39 39 30 30 0d 0a 31 30 33 31 30 20 45 52 52 46 4c 41 47 25 20 3d 20 31 20 ┆RESUME 9900 10310 ERRFLAG% = 1 ┆
0x03baa0…03bac0 3a 20 49 46 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 31 20 54 48 45 4e 20 47 4f 53 55 42 ┆: IF VAL(ARBNR$) = 11 THEN GOSUB┆
0x03bac0…03bae0 20 31 30 33 38 30 20 3a 20 52 45 53 55 4d 45 20 32 30 38 31 30 20 0d 0a 31 30 33 31 32 20 49 46 ┆ 10380 : RESUME 20810 10312 IF┆
0x03bae0…03bb00 20 56 41 4c 28 41 52 42 4e 52 24 29 20 3d 20 31 34 20 54 48 45 4e 20 52 45 53 55 4d 45 20 39 38 ┆ VAL(ARBNR$) = 14 THEN RESUME 98┆
0x03bb00…03bb20 (16, 0, 9) 20 31 20 3a 20 47 4f 54 4f 20 37 36 31 30 0d 0a 37 36 30 32 20 46 32 25 20 3d 20 46 31 25 20 2b ┆ 1 : GOTO 7610 7602 F2% = F1% +┆
0x03bb20…03bb40 20 32 20 3a 20 46 32 25 20 3d 20 46 32 25 20 5c 20 33 20 3a 20 46 32 25 20 3d 20 46 32 25 20 2a ┆ 2 : F2% = F2% Ø 3 : F2% = F2% *┆
0x03bb40…03bb60 20 34 20 2d 20 33 0d 0a 37 36 30 34 20 4d 49 44 24 28 41 44 44 52 24 2c 46 32 25 2c 31 29 20 3d ┆ 4 - 3 7604 MID$(ADDR$,F2%,1) =┆
0x03bb60…03bb80 20 22 20 22 0d 0a 37 36 31 30 20 49 46 20 46 31 25 20 3d 20 31 33 33 20 54 48 45 4e 20 52 45 54 ┆ " " 7610 IF F1% = 133 THEN RET┆
0x03bb80…03bba0 55 52 4e 20 45 4c 53 45 20 46 25 20 3d 20 31 20 3a 20 46 31 25 20 3d 20 46 31 25 20 2b 20 33 20 ┆URN ELSE F% = 1 : F1% = F1% + 3 ┆
0x03bba0…03bbc0 3a 20 47 4f 54 4f 20 37 35 33 30 0d 0a 37 39 39 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆: GOTO 7530 7990 REM **********┆
0x03bbc0…03bbe0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03bbe0…03bc00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 37 39 ┆**************************** 79┆
0x03bc00…03bc20 39 35 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 ┆95 REM * PRINT ERRMSG. IN LINE ┆
0x03bc20…03bc40 32 35 20 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 38 30 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆25 * 8000 REM ******┆
0x03bc40…03bc60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03bc80…03bca0 0d 0a 38 30 31 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 31 36 20 3a 20 47 4f 53 55 42 20 32 30 ┆ 8010 ERRMSGNR% = 16 : GOSUB 20┆
0x03bca0…03bcc0 30 30 30 0d 0a 38 30 33 30 20 47 4f 53 55 42 20 31 30 30 30 20 3a 20 47 4f 54 4f 20 35 36 35 30 ┆000 8030 GOSUB 1000 : GOTO 5650┆
0x03bcc0…03bce0 0d 0a 38 30 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 46 ┆ 8050 REM ******************* F┆
0x03bce0…03bd00 41 54 41 4c 20 53 59 53 54 45 4d 20 45 52 52 4f 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ATAL SYSTEM ERROR **************┆
0x03bd00…03bd20 (16, 0, 10) 50 24 2c 33 2c 35 29 20 3d 20 53 54 52 24 28 45 52 4c 29 20 0d 0a 38 33 30 30 20 4d 49 44 24 28 ┆P$,3,5) = STR$(ERL) 8300 MID$(┆
0x03bd20…03bd40 4e 4f 4e 5a 35 30 24 2c 32 33 2c 33 29 20 3d 20 22 45 52 52 22 20 3a 20 4c 53 45 54 20 4e 4f 4e ┆NONZ50$,23,3) = "ERR" : LSET NON┆
0x03bd40…03bd60 5a 24 20 3d 20 4e 4f 4e 5a 35 30 24 20 0d 0a 38 33 31 30 20 47 4f 53 55 42 20 39 35 35 30 20 20 ┆Z$ = NONZ50$ 8310 GOSUB 9550 ┆
0x03bd60…03bd80 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 41 ┆ REM *** WRITE A┆
0x03bd80…03bda0 52 42 53 54 41 54 0d 0a 38 33 33 30 20 47 4f 54 4f 20 31 36 0d 0a 39 30 30 30 20 52 45 4d 20 2a ┆RBSTAT 8330 GOTO 16 9000 REM *┆
0x03bda0…03bdc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4f 50 45 4e 20 41 ┆************************* OPEN A┆
0x03bdc0…03bde0 52 42 53 54 41 54 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RBSTAT *************************┆
0x03bde0…03be00 2a 2a 2a 2a 2a 0d 0a 39 31 30 30 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 22 41 52 42 53 54 41 54 ┆***** 9100 FILENAME$ = "ARBSTAT┆
0x03be00…03be20 2e 44 45 50 22 0d 0a 39 31 32 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 4f 50 45 4e 20 ┆.DEP" 9120 ERRFLAG% = 0 : OPEN ┆
0x03be20…03be40 22 52 22 2c 23 31 2c 46 49 4c 45 4e 41 4d 45 24 2c 35 31 32 0d 0a 39 31 32 35 20 41 52 42 53 54 ┆"R",#1,FILENAME$,512 9125 ARBST┆
0x03be40…03be60 41 54 4f 50 45 4e 25 20 3d 20 31 20 0d 0a 39 31 33 30 20 52 45 54 55 52 4e 0d 0a 39 31 34 30 20 ┆ATOPEN% = 1 9130 RETURN 9140 ┆
0x03be60…03be80 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 53 45 54 ┆REM ************************ SET┆
0x03be80…03bea0 20 41 52 42 53 54 53 54 2d 46 49 45 4c 44 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ARBSTST-FIELD *****************┆
0x03bea0…03bec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 31 35 30 20 46 49 45 4c 44 20 23 31 2c 35 34 20 41 53 20 ┆********** 9150 FIELD #1,54 AS ┆
0x03bec0…03bee0 4e 4f 4e 5a 24 2c 38 20 41 53 20 53 50 24 2c 32 20 41 53 20 4d 4f 24 2c 33 20 41 53 20 46 4c 4e ┆NONZ$,8 AS SP$,2 AS MO$,3 AS FLN┆
0x03bee0…03bf00 24 2c 33 20 41 53 20 53 4d 24 2c 36 20 41 53 20 53 54 24 2c 33 20 41 53 20 57 46 24 2c 34 20 41 ┆$,3 AS SM$,6 AS ST$,3 AS WF$,4 A┆
0x03bf00…03bf20 (16, 0, 11) 52 45 54 55 52 4e 0d 0a 39 35 37 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RETURN 9570 REM ***************┆
0x03bf20…03bf40 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 49 4e 49 54 20 46 4f 52 4d 41 54 42 55 46 46 45 52 2d 46 49 45 4c ┆********* INIT FORMATBUFFER-FIEL┆
0x03bf40…03bf60 44 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 35 38 30 20 46 49 ┆D********************** 9580 FI┆
0x03bf60…03bf80 45 4c 44 20 23 32 2c 32 20 41 53 20 46 4f 52 4d 42 59 54 45 53 24 2c 32 35 35 20 41 53 20 46 4f ┆ELD #2,2 AS FORMBYTES$,255 AS FO┆
0x03bf80…03bfa0 52 4d 52 45 43 31 24 2c 32 35 35 20 41 53 20 46 4f 52 4d 52 45 43 32 24 2c 32 35 35 20 41 53 20 ┆RMREC1$,255 AS FORMREC2$,255 AS ┆
0x03bfa0…03bfc0 46 4f 52 4d 52 45 43 33 24 2c 32 35 35 20 41 53 20 46 4f 52 4d 52 45 43 34 24 2c 32 35 35 20 41 ┆FORMREC3$,255 AS FORMREC4$,255 A┆
0x03bfc0…03bfe0 53 20 46 4f 52 4d 52 45 43 35 24 2c 32 35 35 20 41 53 20 46 4f 52 4d 52 45 43 36 24 2c 32 35 35 ┆S FORMREC5$,255 AS FORMREC6$,255┆
0x03bfe0…03c000 20 41 53 20 46 4f 52 4d 52 45 43 37 24 2c 31 33 35 20 41 53 20 46 4f 52 4d 52 45 43 38 24 0d 0a ┆ AS FORMREC7$,135 AS FORMREC8$ ┆
0x03c000…03c020 39 35 38 35 20 52 45 54 55 52 4e 0d 0a 39 36 34 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆9585 RETURN 9640 REM **********┆
0x03c020…03c040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 57 52 49 54 45 20 46 4f 52 4d 52 45 43 20 2a 2a 2a ┆************** WRITE FORMREC ***┆
0x03c040…03c060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 36 ┆**************************** 96┆
0x03c060…03c080 35 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 0d 0a 39 36 35 35 20 46 4f 52 4d 42 59 54 45 53 31 ┆50 ERRFLAG% = 0 9655 FORMBYTES1┆
0x03c080…03c0a0 24 20 3d 20 22 23 26 22 20 3a 20 4c 53 45 54 20 46 4f 52 4d 42 59 54 45 53 24 20 3d 20 46 4f 52 ┆$ = "#&" : LSET FORMBYTES$ = FOR┆
0x03c0a0…03c0c0 4d 42 59 54 45 53 31 24 0d 0a 39 36 36 30 20 50 55 54 20 23 32 2c 46 4f 52 4d 4e 52 25 0d 0a 39 ┆MBYTES1$ 9660 PUT #2,FORMNR% 9┆
0x03c0c0…03c0e0 36 37 30 20 52 45 54 55 52 4e 0d 0a 39 36 37 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆670 RETURN 9672 REM ***********┆
0x03c0e0…03c100 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 52 45 41 44 20 46 4f 52 4d 52 45 43 20 2a 2a 2a 2a ┆************** READ FORMREC ****┆
0x03c100…03c120 (16, 0, 12) 30 20 0d 0a 31 30 33 31 34 20 52 45 53 55 4d 45 20 39 39 30 30 0d 0a 31 30 33 32 30 20 45 52 52 ┆0 10314 RESUME 9900 10320 ERR┆
0x03c120…03c140 46 4c 41 47 25 20 3d 20 32 20 3a 20 52 45 53 55 4d 45 20 39 39 30 30 0d 0a 31 30 33 33 30 20 45 ┆FLAG% = 2 : RESUME 9900 10330 E┆
0x03c140…03c160 52 52 46 4c 41 47 25 20 3d 20 33 20 3a 20 52 45 53 55 4d 45 20 39 39 30 30 0d 0a 31 30 33 33 32 ┆RRFLAG% = 3 : RESUME 9900 10332┆
0x03c160…03c180 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ REM ***************************┆
0x03c180…03c1a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03c1a0…03c1c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 33 33 34 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 50 ┆********** 10334 REM * SUB.: P┆
0x03c1c0…03c1e0 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 20 20 ┆RINT ERRMSG. IN LINE 25 ┆
0x03c1e0…03c200 20 2a 0d 0a 31 30 33 34 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 10340 REM ******************┆
0x03c200…03c220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03c220…03c240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 33 35 30 20 45 52 52 4d 53 ┆******************* 10350 ERRMS┆
0x03c240…03c260 47 4e 52 25 20 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 30 33 37 30 20 47 ┆GNR% = 25 : GOSUB 20000 10370 G┆
0x03c260…03c280 4f 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 31 30 33 37 32 20 52 45 4d 20 2a 2a ┆OSUB 1000 : RETURN 10372 REM **┆
0x03c280…03c2a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03c2c0…03c2e0 2a 2a 2a 0d 0a 31 30 33 37 34 20 52 45 4d 20 2a 20 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 ┆*** 10374 REM * PRINT ERRMSG. ┆
0x03c2e0…03c300 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 20 20 20 09 20 20 20 20 20 20 2a 0d 0a 31 30 ┆IN LINE 25 * 10┆
0x03c300…03c320 (16, 0, 13) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 30 36 30 20 47 4f 54 4f 20 38 32 37 ┆***************** 8060 GOTO 827┆
0x03c320…03c340 30 0d 0a 38 31 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆0 8100 REM ******************* ┆
0x03c340…03c360 44 49 53 43 20 49 2f 4f 20 45 52 52 4f 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆DISC I/O ERROR *****************┆
0x03c360…03c380 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 31 31 30 20 47 4f 54 4f 20 38 32 ┆****************** 8110 GOTO 82┆
0x03c380…03c3a0 37 30 0d 0a 38 31 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆70 8120 REM *******************┆
0x03c3a0…03c3c0 20 44 49 53 43 20 46 55 4c 4c 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ DISC FULL *********************┆
0x03c3c0…03c3e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 31 33 30 20 47 4f 54 4f 20 35 ┆******************* 8130 GOTO 5┆
0x03c3e0…03c400 36 35 30 0d 0a 38 31 34 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆650 8140 REM ******************┆
0x03c400…03c420 2a 20 43 50 2f 4d 20 44 49 52 20 46 55 4c 4c 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆* CP/M DIR FULL ****************┆
0x03c420…03c440 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 31 35 30 20 47 4f 54 4f 20 ┆******************** 8150 GOTO ┆
0x03c440…03c460 38 32 37 30 0d 0a 38 31 36 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆8270 8160 REM *****************┆
0x03c460…03c480 2a 2a 2a 20 43 4c 4f 53 45 20 41 52 42 53 54 41 54 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*** CLOSE ARBSTAT **************┆
0x03c480…03c4a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 38 31 37 30 20 45 52 52 46 ┆********************* 8170 ERRF┆
0x03c4a0…03c4c0 4c 41 47 25 20 3d 20 30 20 3a 20 43 4c 4f 53 45 20 23 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LAG% = 0 : CLOSE #1 ┆
0x03c4c0…03c4e0 20 20 20 20 20 20 20 09 0d 0a 38 31 39 30 20 41 52 42 53 54 41 54 4f 50 45 4e 25 20 3d 20 30 20 ┆ 8190 ARBSTATOPEN% = 0 ┆
0x03c4e0…03c500 3a 20 41 52 42 53 54 41 54 57 52 49 54 45 25 20 3d 20 30 20 3a 20 52 45 54 55 52 4e 0d 0a 38 32 ┆: ARBSTATWRITE% = 0 : RETURN 82┆
0x03c500…03c520 (16, 0, 14) 53 20 56 41 24 2c 34 20 41 53 20 46 43 24 2c 34 20 41 53 20 50 43 24 2c 34 20 41 53 20 46 4c 24 ┆S VA$,4 AS FC$,4 AS PC$,4 AS FL$┆
0x03c520…03c540 2c 36 20 41 53 20 45 45 24 2c 36 20 41 53 20 56 45 24 2c 36 20 41 53 20 4b 45 24 2c 36 20 41 53 ┆,6 AS EE$,6 AS VE$,6 AS KE$,6 AS┆
0x03c540…03c560 20 4b 56 24 2c 36 20 41 53 20 45 43 24 2c 36 20 41 53 20 46 4b 24 2c 36 20 41 53 20 56 4b 24 2c ┆ KV$,6 AS EC$,6 AS FK$,6 AS VK$,┆
0x03c560…03c580 31 35 20 41 53 20 4d 52 24 2c 32 32 35 20 41 53 20 41 44 44 52 24 2c 31 33 35 20 41 53 20 53 55 ┆15 AS MR$,225 AS ADDR$,135 AS SU┆
0x03c580…03c5a0 42 52 24 0d 0a 39 31 36 30 20 52 45 54 55 52 4e 0d 0a 39 31 37 30 20 52 45 4d 20 2a 2a 2a 2a 2a ┆BR$ 9160 RETURN 9170 REM *****┆
0x03c5a0…03c5c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 52 45 41 44 20 41 52 42 53 54 41 ┆******************** READ ARBSTA┆
0x03c5c0…03c5e0 54 20 44 49 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆T DIR **************************┆
0x03c5e0…03c600 2a 0d 0a 39 31 38 30 20 46 49 45 4c 44 20 23 31 2c 32 35 35 20 41 53 20 41 52 42 53 54 41 54 44 ┆* 9180 FIELD #1,255 AS ARBSTATD┆
0x03c600…03c620 49 52 31 24 2c 32 35 35 20 41 53 20 41 52 42 53 54 41 54 44 49 52 32 24 2c 32 20 41 53 20 4e 4f ┆IR1$,255 AS ARBSTATDIR2$,2 AS NO┆
0x03c620…03c640 54 55 53 45 44 24 0d 0a 39 32 30 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 47 45 54 20 ┆TUSED$ 9200 ERRFLAG% = 0 : GET ┆
0x03c640…03c660 23 31 2c 31 0d 0a 39 32 30 32 20 49 46 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c ┆#1,1 9202 IF MID$(ARBSTATDIR1$,┆
0x03c660…03c680 31 2c 31 30 29 20 3d 20 22 41 52 42 53 54 41 54 44 49 52 22 20 54 48 45 4e 20 52 45 54 55 52 4e ┆1,10) = "ARBSTATDIR" THEN RETURN┆
0x03c680…03c6a0 0d 0a 39 32 31 30 20 45 52 52 46 4c 41 47 25 20 3d 20 38 20 3a 20 52 45 54 55 52 4e 0d 0a 39 32 ┆ 9210 ERRFLAG% = 8 : RETURN 92┆
0x03c6a0…03c6c0 31 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆12 REM *************************┆
0x03c6c0…03c6e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03c6e0…03c700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 32 31 34 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a ┆************* 9214 REM * SUB.:┆
0x03c700…03c720 (16, 0, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 36 37 ┆*************************** 967┆
0x03c720…03c740 34 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 0d 0a 39 36 37 36 20 47 45 54 20 23 32 2c 46 4f 52 ┆4 ERRFLAG% = 0 9676 GET #2,FOR┆
0x03c740…03c760 4d 4e 52 25 0d 0a 39 36 37 38 20 52 45 54 55 52 4e 0d 0a 39 36 38 30 20 52 45 4d 20 2a 2a 2a 2a ┆MNR% 9678 RETURN 9680 REM ****┆
0x03c760…03c780 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 49 4e 43 52 45 4d 45 4e 54 20 ┆********************* INCREMENT ┆
0x03c780…03c7a0 52 45 43 43 4f 52 44 2d 43 4f 55 4e 54 45 52 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RECCORD-COUNTER ****************┆
0x03c7a0…03c7c0 2a 2a 0d 0a 39 36 39 30 20 52 45 43 43 4f 55 4e 54 24 20 3d 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 ┆** 9690 RECCOUNT$ = MID$(NONZ50┆
0x03c7c0…03c7e0 24 2c 33 39 2c 36 29 20 3a 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 56 41 4c 28 52 45 43 43 4f 55 ┆$,39,6) : RECCOUNT% = VAL(RECCOU┆
0x03c7e0…03c800 4e 54 24 29 0d 0a 39 37 30 30 20 52 45 43 43 4f 55 4e 54 25 20 3d 20 52 45 43 43 4f 55 4e 54 25 ┆NT$) 9700 RECCOUNT% = RECCOUNT%┆
0x03c800…03c820 20 2b 20 31 20 3a 20 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 54 52 24 28 52 45 43 43 4f 55 4e 54 ┆ + 1 : RECCOUNT$ = STR$(RECCOUNT┆
0x03c820…03c840 25 29 0d 0a 39 37 30 35 20 4e 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 36 29 20 ┆%) 9705 NRECCOUNT$ = SPACE$(6) ┆
0x03c840…03c860 3a 20 52 53 45 54 20 4e 52 45 43 43 4f 55 4e 54 24 20 3d 20 52 45 43 43 4f 55 4e 54 24 0d 0a 39 ┆: RSET NRECCOUNT$ = RECCOUNT$ 9┆
0x03c860…03c880 37 31 30 20 4d 49 44 24 28 4e 4f 4e 5a 35 30 24 2c 33 39 2c 36 29 20 3d 20 4e 52 45 43 43 4f 55 ┆710 MID$(NONZ50$,39,6) = NRECCOU┆
0x03c880…03c8a0 4e 54 24 20 3a 20 52 45 54 55 52 4e 0d 0a 39 39 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆NT$ : RETURN 9900 REM *********┆
0x03c8a0…03c8c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 4f 4e 20 45 52 52 4f 52 20 48 41 4e 44 4c 49 ┆**************** ON ERROR HANDLI┆
0x03c8c0…03c8e0 4e 47 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 39 ┆NG ************************** 9┆
0x03c8e0…03c900 39 31 30 20 4f 4e 20 45 52 52 46 4c 41 47 25 20 47 4f 54 4f 20 38 30 36 30 2c 38 30 36 30 2c 38 ┆910 ON ERRFLAG% GOTO 8060,8060,8┆
0x03c900…03c920 (16, 1, 1) 33 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆380 REM ************************┆
0x03c920…03c940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03c940…03c960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 33 39 30 20 45 52 52 4d 53 47 4e 52 25 20 3d ┆************* 10390 ERRMSGNR% =┆
0x03c960…03c980 20 32 34 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 30 34 31 30 20 47 4f 53 55 42 20 31 ┆ 24 : GOSUB 20000 10410 GOSUB 1┆
0x03c980…03c9a0 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 31 30 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a ┆000 : RETURN 10500 REM ********┆
0x03c9a0…03c9c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03c9c0…03c9e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x03c9e0…03ca00 30 35 30 35 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 54 45 58 54 20 4f 4e 20 43 ┆0505 REM * SUB.: PRINT TEXT ON C┆
0x03ca00…03ca20 52 54 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 35 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆RT * 10510 REM ******┆
0x03ca20…03ca40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03ca40…03ca60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x03ca60…03ca80 0a 31 30 35 32 30 20 4f 4e 20 54 45 58 54 4e 52 25 20 47 4f 53 55 42 20 31 30 35 35 30 2c 31 30 ┆ 10520 ON TEXTNR% GOSUB 10550,10┆
0x03ca80…03caa0 35 35 35 2c 31 30 35 36 30 2c 31 30 35 36 35 2c 31 30 35 37 30 2c 31 30 35 37 35 2c 31 30 35 38 ┆555,10560,10565,10570,10575,1058┆
0x03caa0…03cac0 30 2c 31 30 35 38 35 2c 31 30 35 39 30 0d 0a 31 30 35 33 30 20 52 45 54 55 52 4e 0d 0a 31 30 35 ┆0,10585,10590 10530 RETURN 105┆
0x03cac0…03cae0 35 30 20 50 52 49 4e 54 20 22 20 42 69 74 74 65 20 50 72 6f 67 72 61 6d 6d 6e 61 6d 65 20 65 69 ┆50 PRINT " Bitte Programmname ei┆
0x03cae0…03cb00 6e 67 65 62 65 6e 20 3a 20 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 22 3b 20 3a 20 52 45 54 55 52 4e ┆ngeben : .......... "; : RETURN┆
0x03cb00…03cb20 (16, 1, 2) 20 50 52 49 4e 54 20 22 41 52 42 45 49 54 53 20 4e 52 2e 20 46 41 4c 53 43 48 22 3b 20 3a 20 52 ┆ PRINT "ARBEITS NR. FALSCH"; : R┆
0x03cb20…03cb40 45 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 31 0d 0a 32 30 31 33 30 ┆ETURN REM *** MSG. 01 20130┆
0x03cb40…03cb60 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 4e 41 4d 45 20 46 41 4c 53 43 48 22 3b 20 3a 20 52 45 ┆ PRINT "FORMATNAME FALSCH"; : RE┆
0x03cb60…03cb80 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 32 0d 0a 32 30 31 34 30 20 ┆TURN REM *** MSG. 02 20140 ┆
0x03cb80…03cba0 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 4e 41 4d 45 20 42 45 52 45 49 54 53 20 56 4f 52 48 41 4e ┆PRINT "FORMATNAME BEREITS VORHAN┆
0x03cba0…03cbc0 44 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 ┆DEN"; : RETURN REM *** MSG. 0┆
0x03cbc0…03cbe0 33 0d 0a 32 30 31 35 30 20 50 52 49 4e 54 20 22 56 45 52 4b 45 54 54 55 4e 47 53 46 45 48 4c 45 ┆3 20150 PRINT "VERKETTUNGSFEHLE┆
0x03cbe0…03cc00 52 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 34 ┆R"; : RETURN REM *** MSG. 04┆
0x03cc00…03cc20 0d 0a 32 30 31 36 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 2d 44 41 54 45 49 20 4e 49 43 48 ┆ 20160 PRINT "FORMAT-DATEI NICH┆
0x03cc20…03cc40 54 20 56 4f 52 48 41 4e 44 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a ┆T VORHANDEN"; : RETURN REM **┆
0x03cc40…03cc60 2a 20 4d 53 47 2e 20 30 35 0d 0a 32 30 31 37 30 20 50 52 49 4e 54 20 22 4e 41 4d 45 20 44 45 52 ┆* MSG. 05 20170 PRINT "NAME DER┆
0x03cc60…03cc80 20 41 52 42 45 49 54 53 44 41 54 45 49 20 46 41 4c 53 43 48 22 3b 20 3a 20 52 45 54 55 52 4e 09 ┆ ARBEITSDATEI FALSCH"; : RETURN ┆
0x03cc80…03cca0 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 36 0d 0a 32 30 31 38 30 20 50 52 49 4e 54 20 ┆ REM *** MSG. 06 20180 PRINT ┆
0x03cca0…03ccc0 22 41 52 42 45 49 54 53 44 41 54 45 49 20 4e 49 43 48 54 20 56 4f 52 48 41 4e 44 45 4e 22 3b 20 ┆"ARBEITSDATEI NICHT VORHANDEN"; ┆
0x03ccc0…03cce0 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 37 0d 0a 32 30 31 ┆: RETURN REM *** MSG. 07 201┆
0x03cce0…03cd00 39 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 56 45 52 4b 45 54 54 55 4e 47 20 21 20 42 49 54 ┆90 PRINT "FORMATVERKETTUNG ! BIT┆
0x03cd00…03cd20 (16, 1, 3) 4c 45 4e 41 4d 45 24 2c 31 2c 38 29 3b 22 20 20 47 45 4c 5c 53 43 48 54 20 22 3b 20 3a 20 52 45 ┆LENAME$,1,8);" GELØSCHT "; : RE┆
0x03cd20…03cd40 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 38 0d 0a 32 30 37 30 30 20 52 ┆TURN REM *** MSG. 28 20700 R┆
0x03cd40…03cd60 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x03cd60…03cd80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03cd80…03cda0 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 30 37 30 32 20 52 45 4d 20 2a 20 20 44 45 4c 45 54 45 20 41 20 ┆******** 20702 REM * DELETE A ┆
0x03cda0…03cdc0 46 49 4c 45 20 09 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 30 37 30 34 20 52 45 4d 20 2a 2a ┆FILE * 20704 REM **┆
0x03cdc0…03cde0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03ce00…03ce20 2a 2a 2a 0d 0a 32 30 37 31 30 20 49 46 20 41 52 42 53 54 41 54 4f 50 45 4e 25 20 47 4f 54 4f 20 ┆*** 20710 IF ARBSTATOPEN% GOTO ┆
0x03ce20…03ce40 32 30 37 33 30 20 45 4c 53 45 20 47 4f 53 55 42 20 39 31 30 30 09 09 09 09 52 45 4d 20 2a 2a 2a ┆20730 ELSE GOSUB 9100 REM ***┆
0x03ce40…03ce60 20 4f 50 45 4e 20 41 52 42 53 54 41 54 2d 46 49 4c 45 0d 0a 32 30 37 33 30 20 58 50 4f 53 25 20 ┆ OPEN ARBSTAT-FILE 20730 XPOS% ┆
0x03ce60…03ce80 3d 20 31 20 3a 20 59 50 4f 53 25 20 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 3a 20 ┆= 1 : YPOS% = 25 : GOSUB 1990 : ┆
0x03ce80…03cea0 50 52 49 4e 54 20 53 50 41 43 45 24 28 37 36 29 3b 0d 0a 32 30 37 33 35 20 47 4f 53 55 42 20 39 ┆PRINT SPACE$(76); 20735 GOSUB 9┆
0x03cea0…03cec0 31 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 ┆180 ┆
0x03cec0…03cee0 52 45 4d 20 2a 2a 2a 20 52 45 41 44 20 41 52 42 53 54 41 54 2d 44 49 52 0d 0a 32 30 37 35 30 20 ┆REM *** READ ARBSTAT-DIR 20750 ┆
0x03cee0…03cf00 49 46 20 4d 49 44 24 28 44 41 54 41 4e 41 4d 45 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 ┆IF MID$(DATANAME$,1,1) = " " GOT┆
0x03cf00…03cf20 (16, 1, 4) 0a 32 32 32 31 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 46 49 4c 45 4e 41 4d 45 24 20 ┆ 22210 ERRFLAG% = 0 : FILENAME$ ┆
0x03cf20…03cf40 3d 20 22 43 48 41 49 4e 49 4e 46 2e 44 45 50 22 0d 0a 32 32 32 32 30 20 4f 50 45 4e 20 22 52 22 ┆= "CHAININF.DEP" 22220 OPEN "R"┆
0x03cf40…03cf60 2c 23 35 2c 46 49 4c 45 4e 41 4d 45 24 2c 32 36 0d 0a 32 32 32 34 30 20 46 49 45 4c 44 20 23 35 ┆,#5,FILENAME$,26 22240 FIELD #5┆
0x03cf60…03cf80 2c 31 32 20 41 53 20 43 48 41 49 4e 49 4e 46 4f 31 24 2c 31 32 20 41 53 20 43 48 41 49 4e 49 4e ┆,12 AS CHAININFO1$,12 AS CHAININ┆
0x03cf80…03cfa0 46 4f 32 24 2c 32 20 41 53 20 43 48 41 49 4e 49 4e 46 4f 33 24 0d 0a 32 32 32 35 30 20 45 52 52 ┆FO2$,2 AS CHAININFO3$ 22250 ERR┆
0x03cfa0…03cfc0 46 4c 41 47 25 20 3d 20 30 20 3a 20 47 45 54 20 23 35 2c 31 0d 0a 32 32 32 37 30 20 46 4f 52 4d ┆FLAG% = 0 : GET #5,1 22270 FORM┆
0x03cfc0…03cfe0 4e 41 4d 45 24 20 3d 20 43 48 41 49 4e 49 4e 46 4f 31 24 20 3a 20 44 41 54 41 4e 41 4d 45 24 20 ┆NAME$ = CHAININFO1$ : DATANAME$ ┆
0x03cfe0…03d000 3d 20 43 48 41 49 4e 49 4e 46 4f 32 24 20 3a 20 41 52 42 4e 52 24 20 3d 20 43 48 41 49 4e 49 4e ┆= CHAININFO2$ : ARBNR$ = CHAININ┆
0x03d000…03d020 46 4f 33 24 0d 0a 32 32 32 38 30 20 45 52 52 46 4c 41 47 25 20 3d 20 30 20 3a 20 43 4c 4f 53 45 ┆FO3$ 22280 ERRFLAG% = 0 : CLOSE┆
0x03d020…03d040 20 0d 0a 32 32 32 39 30 20 52 45 54 55 52 4e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ 22290 RETURN ┆
0x03d040…03d060 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x03d080…03d0a0 20 52 45 41 44 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 54 48 45 20 57 4f 52 ┆ READ FROM CHAININF-FILE THE WOR┆
0x03d0a0…03d0c0 4b 4e 4f 2e 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 32 32 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆KNO. * 22200 REM ******┆
0x03d0c0…03d0e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03d0e0…03d100 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x03d100…03d120 (16, 1, 5) 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 31 0d 0a 31 30 35 35 35 20 50 52 49 4e 54 20 22 ┆ REM *** MSG. 01 10555 PRINT "┆
0x03d120…03d140 42 69 74 74 65 20 64 65 6e 20 4e 61 6d 65 6e 20 64 65 72 20 22 3b 43 48 52 24 28 31 32 39 29 3b ┆Bitte den Namen der ";CHR$(129);┆
0x03d140…03d160 22 46 6f 72 6d 61 74 2d 44 61 74 65 69 22 3b 43 48 52 24 28 31 32 38 29 3b 22 20 65 69 6e 67 65 ┆"Format-Datei";CHR$(128);" einge┆
0x03d160…03d180 62 65 6e 2e 20 20 2e 2e 2e 2e 2e 2e 2e 2e 22 3b 20 3a 20 52 45 54 55 52 4e 0d 0a 31 30 35 36 30 ┆ben. ........"; : RETURN 10560┆
0x03d180…03d1a0 20 50 52 49 4e 54 20 22 42 69 74 74 65 20 64 65 6e 20 4e 61 6d 65 6e 20 64 65 72 20 22 3b 43 48 ┆ PRINT "Bitte den Namen der ";CH┆
0x03d1a0…03d1c0 52 24 28 31 32 39 29 3b 22 41 72 62 65 69 74 73 64 61 74 65 69 22 3b 43 48 52 24 28 31 32 38 29 ┆R$(129);"Arbeitsdatei";CHR$(128)┆
0x03d1c0…03d1e0 3b 22 20 65 69 6e 67 65 62 65 6e 2e 20 20 2e 2e 2e 2e 2e 2e 2e 2e 22 3b 20 3a 20 52 45 54 55 52 ┆;" eingeben. ........"; : RETUR┆
0x03d1e0…03d200 4e 0d 0a 31 30 35 36 35 20 50 52 49 4e 54 20 22 4e 72 2e 20 64 65 73 20 46 6f 72 6d 61 74 73 20 ┆N 10565 PRINT "Nr. des Formats ┆
0x03d200…03d220 6d 69 74 20 64 65 6d 20 53 69 65 20 62 65 67 69 6e 6e 65 6e 20 77 6f 6c 6c 65 6e 20 3f 20 20 20 ┆mit dem Sie beginnen wollen ? ┆
0x03d220…03d240 20 2e 2e 2e 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 34 0d ┆ ..."; : RETURN REM *** MSG. 04 ┆
0x03d240…03d260 0a 31 30 35 37 30 20 50 52 49 4e 54 20 22 4e 72 2e 20 64 65 73 20 6e 7b 63 68 73 74 65 6e 20 46 ┆ 10570 PRINT "Nr. des næchsten F┆
0x03d260…03d280 6f 72 6d 61 74 73 20 6f 64 65 72 20 43 54 52 4c 2f 51 20 3f 20 20 20 20 20 20 20 20 20 20 20 2e ┆ormats oder CTRL/Q ? .┆
0x03d280…03d2a0 2e 2e 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 35 0d 0a 31 ┆.."; : RETURN REM *** MSG. 05 1┆
0x03d2a0…03d2c0 30 35 37 35 20 50 52 49 4e 54 20 43 48 52 24 28 31 34 34 29 3b 22 2a 2a 2a 20 46 4f 52 4d 41 54 ┆0575 PRINT CHR$(144);"*** FORMAT┆
0x03d2c0…03d2e0 20 20 45 52 46 41 53 53 45 4e 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b 20 3a 20 52 45 54 ┆ ERFASSEN ***";CHR$(128); : RET┆
0x03d2e0…03d300 55 52 4e 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 36 0d 0a 31 30 35 38 30 20 50 52 49 4e ┆URN REM *** MSG. 06 10580 PRIN┆
0x03d300…03d320 (16, 1, 6) 54 45 20 57 41 52 54 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 ┆TE WARTEN"; : RETURN REM *** ┆
0x03d320…03d340 4d 53 47 2e 20 30 38 0d 0a 32 30 32 30 30 20 50 52 49 4e 54 20 22 4b 45 49 4e 45 20 53 59 53 54 ┆MSG. 08 20200 PRINT "KEINE SYST┆
0x03d340…03d360 45 4d 2d 46 4f 52 4d 41 54 20 46 5d 52 20 44 49 45 20 41 52 42 45 49 54 53 2d 53 54 41 54 55 53 ┆EM-FORMAT FÅR DIE ARBEITS-STATUS┆
0x03d360…03d380 2d 44 41 54 45 49 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 ┆-DATEI"; : RETURN REM *** MSG. 0┆
0x03d380…03d3a0 39 0d 0a 32 30 32 31 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4f 48 4e 45 20 46 4f 52 4d ┆9 20210 PRINT "FORMAT OHNE FORM┆
0x03d3a0…03d3c0 41 54 4b 45 4e 4e 55 4e 47 20 47 45 4c 45 53 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 ┆ATKENNUNG GELESEN"; : RETURN R┆
0x03d3c0…03d3e0 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 30 0d 0a 32 30 32 32 30 20 50 52 49 4e 54 20 22 4b 45 49 ┆EM *** MSG. 10 20220 PRINT "KEI┆
0x03d3e0…03d400 4e 45 20 53 59 53 54 45 4d 2d 46 4f 52 4d 41 54 45 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 ┆NE SYSTEM-FORMATE"; : RETURN ┆
0x03d400…03d420 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 31 0d 0a 32 30 32 33 30 20 50 52 49 4e 54 20 22 4c ┆ REM *** MSG. 11 20230 PRINT "L┆
0x03d420…03d440 45 53 45 46 45 48 4c 45 52 20 49 4e 20 44 45 52 20 41 52 42 45 49 54 53 2d 53 54 41 54 55 53 2d ┆ESEFEHLER IN DER ARBEITS-STATUS-┆
0x03d440…03d460 44 41 54 45 49 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 ┆DATEI"; : RETURN REM *** MSG. ┆
0x03d460…03d480 31 32 0d 0a 32 30 32 34 30 20 50 52 49 4e 54 20 22 41 43 48 54 55 4e 47 20 21 21 20 46 4f 52 4d ┆12 20240 PRINT "ACHTUNG !! FORM┆
0x03d480…03d4a0 41 54 2d 44 41 54 45 49 20 4d 49 54 20 46 45 48 4c 45 52 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 ┆AT-DATEI MIT FEHLER"; : RETURN ┆
0x03d4a0…03d4c0 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 33 0d 0a 32 30 32 35 30 20 50 52 49 4e 54 20 22 4e ┆ REM *** MSG. 13 20250 PRINT "N┆
0x03d4c0…03d4e0 45 55 45 20 44 49 53 4b 45 54 54 45 20 49 4e 20 4c 41 55 46 57 45 52 4b 20 31 20 45 49 4e 4c 45 ┆EUE DISKETTE IN LAUFWERK 1 EINLE┆
0x03d4e0…03d500 47 45 4e 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 34 ┆GEN"; : RETURN REM *** MSG. 14┆
0x03d500…03d520 (16, 1, 7) 4f 20 32 30 37 36 30 0d 0a 32 30 37 35 35 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 44 41 54 41 4e ┆O 20760 20755 FILENAME$ = DATAN┆
0x03d520…03d540 41 4d 45 24 20 3a 20 47 4f 54 4f 20 32 30 37 37 30 0d 0a 32 30 37 36 30 20 49 46 20 4d 49 44 24 ┆AME$ : GOTO 20770 20760 IF MID$┆
0x03d540…03d560 28 46 4f 52 4d 4e 41 4d 45 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 47 4f 54 4f 20 31 30 31 33 0d ┆(FORMNAME$,1,1) = " " GOTO 1013 ┆
0x03d560…03d580 0a 32 30 37 36 35 20 46 49 4c 45 4e 41 4d 45 24 20 3d 20 46 4f 52 4d 4e 41 4d 45 24 0d 0a 32 30 ┆ 20765 FILENAME$ = FORMNAME$ 20┆
0x03d580…03d5a0 37 37 30 20 47 4f 53 55 42 20 37 34 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆770 GOSUB 7410 ┆
0x03d5a0…03d5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 46 49 4c 45 20 49 ┆ REM *** FILE I┆
0x03d5c0…03d5e0 4e 20 41 52 42 53 54 41 54 2d 44 49 52 20 3f 0d 0a 32 30 37 38 30 20 49 46 20 46 49 4c 45 49 4e ┆N ARBSTAT-DIR ? 20780 IF FILEIN┆
0x03d5e0…03d600 44 49 52 25 20 54 48 45 4e 20 47 4f 54 4f 20 32 30 37 39 30 20 45 4c 53 45 20 49 46 20 4d 49 44 ┆DIR% THEN GOTO 20790 ELSE IF MID┆
0x03d600…03d620 24 28 44 41 54 41 4e 41 4d 45 24 2c 31 2c 31 29 20 3d 20 22 20 22 20 54 48 45 4e 20 47 4f 53 55 ┆$(DATANAME$,1,1) = " " THEN GOSU┆
0x03d620…03d640 42 20 33 38 37 33 20 3a 20 47 4f 54 4f 20 33 31 31 30 20 45 4c 53 45 20 47 4f 53 55 42 20 34 31 ┆B 3873 : GOTO 3110 ELSE GOSUB 41┆
0x03d640…03d660 31 30 20 3a 20 47 4f 54 4f 20 33 39 38 32 0d 0a 32 30 37 39 30 20 45 52 52 46 4c 41 47 25 20 3d ┆10 : GOTO 3982 20790 ERRFLAG% =┆
0x03d660…03d680 20 30 20 3a 20 4b 49 4c 4c 20 46 49 4c 45 4e 41 4d 45 24 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ 0 : KILL FILENAME$ REM ***┆
0x03d680…03d6a0 20 4b 49 4c 4c 20 54 48 45 20 43 50 2f 4d 20 46 49 4c 45 0d 0a 32 30 38 31 30 20 49 46 20 44 49 ┆ KILL THE CP/M FILE 20810 IF DI┆
0x03d6a0…03d6c0 52 32 25 20 47 4f 54 4f 20 32 30 38 34 30 0d 0a 32 30 38 32 30 20 4d 49 44 24 28 41 52 42 53 54 ┆R2% GOTO 20840 20820 MID$(ARBST┆
0x03d6c0…03d6e0 41 54 44 49 52 31 24 2c 49 25 2c 31 36 29 20 3d 20 53 50 41 43 45 24 28 31 36 29 0d 0a 32 30 38 ┆ATDIR1$,I%,16) = SPACE$(16) 208┆
0x03d6e0…03d700 33 30 20 47 4f 54 4f 20 32 30 38 34 31 0d 0a 32 30 38 34 30 20 4d 49 44 24 28 41 52 42 53 54 41 ┆30 GOTO 20841 20840 MID$(ARBSTA┆
0x03d700…03d900 (16, 1, 8) DataBlock {»EENTRY.MAC«}
0x03d900…03d920 (16, 1, 9) 54 20 43 48 52 24 28 31 34 34 29 3b 22 2a 2a 2a 20 46 4f 52 4d 41 54 20 20 56 45 52 5b 4e 44 45 ┆T CHR$(144);"*** FORMAT VERÆNDE┆
0x03d920…03d940 52 4e 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b 20 3a 20 52 45 54 55 52 4e 09 09 52 45 4d ┆RN ***";CHR$(128); : RETURN REM┆
0x03d940…03d960 20 2a 2a 2a 20 4d 53 47 2e 20 30 37 0d 0a 31 30 35 38 35 20 50 52 49 4e 54 20 43 48 52 24 28 31 ┆ *** MSG. 07 10585 PRINT CHR$(1┆
0x03d960…03d980 34 34 29 3b 22 2a 2a 2a 20 4b 41 54 41 4c 4f 47 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b ┆44);"*** KATALOG ***";CHR$(128);┆
0x03d980…03d9a0 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 38 0d 0a 31 30 35 ┆ : RETURN REM *** MSG. 08 105┆
0x03d9a0…03d9c0 39 30 20 50 52 49 4e 54 20 43 48 52 24 28 31 34 34 29 3b 22 2a 2a 2a 20 44 41 54 45 49 20 20 4c ┆90 PRINT CHR$(144);"*** DATEI L┆
0x03d9c0…03d9e0 5c 53 43 48 45 4e 20 2a 2a 2a 22 3b 43 48 52 24 28 31 32 38 29 3b 20 3a 20 52 45 54 55 52 4e 09 ┆ØSCHEN ***";CHR$(128); : RETURN ┆
0x03d9e0…03da00 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 30 39 0d 0a 32 30 30 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆ REM *** MSG. 09 20000 REM ****┆
0x03da00…03da20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x03da40…03da60 2a 0d 0a 32 30 30 30 31 20 52 45 4d 20 2a 20 20 52 45 41 44 20 41 4e 44 20 50 52 49 4e 54 20 45 ┆* 20001 REM * READ AND PRINT E┆
0x03da60…03da80 52 52 4f 52 2d 4d 53 47 2e 20 4f 4e 20 43 52 54 20 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 30 ┆RROR-MSG. ON CRT * 20┆
0x03da80…03daa0 30 30 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆002 REM ************************┆
0x03daa0…03dac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03dac0…03dae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 30 30 37 30 20 58 50 4f 53 25 20 3d 20 31 20 3a ┆************* 20070 XPOS% = 1 :┆
0x03dae0…03db00 20 59 50 4f 53 25 20 3d 20 32 35 20 3a 20 47 4f 53 55 42 20 31 39 39 30 20 0d 0a 32 30 30 38 30 ┆ YPOS% = 25 : GOSUB 1990 20080┆
0x03db00…03db20 (16, 1, 10) 0d 0a 32 30 32 36 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 2d 44 41 54 45 49 20 4f 48 4e 45 ┆ 20260 PRINT "FORMAT-DATEI OHNE┆
0x03db20…03db40 20 53 54 41 52 54 2d 46 4f 52 4d 41 54 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 ┆ START-FORMAT"; : RETURN REM ┆
0x03db40…03db60 2a 2a 2a 20 4d 53 47 2e 20 31 35 0d 0a 32 30 32 37 30 20 50 52 49 4e 54 20 22 41 52 42 45 49 54 ┆*** MSG. 15 20270 PRINT "ARBEIT┆
0x03db60…03db80 53 2d 53 54 41 54 55 53 2d 44 41 54 45 49 20 4e 49 43 48 54 20 56 4f 52 48 41 4e 44 45 4e 22 3b ┆S-STATUS-DATEI NICHT VORHANDEN";┆
0x03db80…03dba0 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 36 0d 0a 32 30 32 ┆ : RETURN REM *** MSG. 16 202┆
0x03dba0…03dbc0 38 30 20 50 52 49 4e 54 20 22 41 52 42 45 49 54 53 2d 53 54 41 54 55 53 2d 44 41 54 45 49 20 56 ┆80 PRINT "ARBEITS-STATUS-DATEI V┆
0x03dbc0…03dbe0 4f 4c 4c 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 ┆OLL"; : RETURN REM *** MSG. 1┆
0x03dbe0…03dc00 37 0d 0a 32 30 32 39 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4e 52 2e 20 46 41 4c 53 43 ┆7 20290 PRINT "FORMAT NR. FALSC┆
0x03dc00…03dc20 48 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 38 ┆H"; : RETURN REM *** MSG. 18┆
0x03dc20…03dc40 0d 0a 32 30 33 30 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4e 52 2e 20 2d 42 45 52 45 49 ┆ 20300 PRINT "FORMAT NR. -BEREI┆
0x03dc40…03dc60 43 48 20 42 45 4c 45 47 54 20 21 21 20 4d 41 58 2e 20 34 35 20 46 4f 52 4d 41 54 45 22 3b 20 3a ┆CH BELEGT !! MAX. 45 FORMATE"; :┆
0x03dc60…03dc80 20 52 45 54 55 52 4e 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 31 39 0d 0a 32 30 33 31 30 20 ┆ RETURN REM *** MSG. 19 20310 ┆
0x03dc80…03dca0 50 52 49 4e 54 20 22 4b 45 49 4e 20 50 52 4f 47 52 41 4d 4d 20 22 3b 4d 49 44 24 28 50 52 4f 47 ┆PRINT "KEIN PROGRAMM ";MID$(PROG┆
0x03dca0…03dcc0 4e 41 4d 45 24 2c 31 2c 31 30 29 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 2a 2a 2a 20 ┆NAME$,1,10); : RETURN REM *** ┆
0x03dcc0…03dce0 4d 53 47 2e 20 32 30 0d 0a 32 30 33 32 30 20 50 52 49 4e 54 20 22 44 45 50 20 46 45 48 4c 45 52 ┆MSG. 20 20320 PRINT "DEP FEHLER┆
0x03dce0…03dd00 2d 53 54 41 54 55 53 22 3b 20 3a 20 52 45 54 55 52 4e 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 ┆-STATUS"; : RETURN REM *** ┆
0x03dd00…03dd20 (16, 1, 11) 54 44 49 52 32 24 2c 49 25 2c 31 36 29 20 3d 20 53 50 41 43 45 24 28 31 36 29 0d 0a 32 30 38 34 ┆TDIR2$,I%,16) = SPACE$(16) 2084┆
0x03dd20…03dd40 31 20 47 4f 53 55 42 20 32 31 30 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 GOSUB 21020 ┆
0x03dd40…03dd60 20 20 20 20 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 44 45 43 52 45 4d 45 4e 54 20 41 52 ┆ REM *** DECREMENT AR┆
0x03dd60…03dd80 42 53 54 41 54 2d 52 45 43 4f 52 44 2d 43 4f 55 4e 54 45 52 0d 0a 32 30 38 34 32 20 47 4f 53 55 ┆BSTAT-RECORD-COUNTER 20842 GOSU┆
0x03dd80…03dda0 42 20 39 33 37 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆B 9370 ┆
0x03dda0…03ddc0 20 20 20 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 57 52 49 54 45 20 41 52 42 53 54 41 54 2d 44 49 ┆ REM *** WRITE ARBSTAT-DI┆
0x03ddc0…03dde0 52 0d 0a 32 30 38 35 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 38 20 3a 20 47 4f 53 55 42 20 ┆R 20850 ERRMSGNR% = 28 : GOSUB ┆
0x03dde0…03de00 32 30 30 30 30 0d 0a 32 30 38 38 30 20 47 4f 54 4f 20 31 30 31 33 0d 0a 32 31 30 30 30 20 52 45 ┆20000 20880 GOTO 1013 21000 RE┆
0x03de00…03de20 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M ******************************┆
0x03de20…03de40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03de40…03de60 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 30 30 35 20 52 45 4d 20 2a 20 20 53 55 42 2e 3a 20 44 45 43 52 ┆******* 21005 REM * SUB.: DECR┆
0x03de60…03de80 45 4d 45 4e 54 20 41 52 42 53 54 41 54 2d 52 45 43 4f 52 44 2d 43 4f 55 4e 54 45 52 09 09 09 20 ┆EMENT ARBSTAT-RECORD-COUNTER ┆
0x03de80…03dea0 20 20 20 20 20 2a 0d 0a 32 31 30 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 21010 REM **************┆
0x03dea0…03dec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03dec0…03dee0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 31 30 32 30 20 41 ┆*********************** 21020 A┆
0x03dee0…03df00 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 ┆RBSTATRECCOUNT$ = MID$(ARBSTATDI┆
0x03df00…03e100 (16, 1, 12) DataBlock {»EENTRY.MAC«}
0x03e100…03e120 (16, 1, 13) 20 50 52 49 4e 54 20 43 48 52 24 28 31 34 34 29 3b 22 20 2a 2a 2a 20 22 3b 0d 0a 32 30 30 39 30 ┆ PRINT CHR$(144);" *** "; 20090┆
0x03e120…03e140 20 4f 4e 20 45 52 52 4d 53 47 4e 52 25 20 47 4f 53 55 42 20 32 30 31 32 30 2c 32 30 31 33 30 2c ┆ ON ERRMSGNR% GOSUB 20120,20130,┆
0x03e140…03e160 32 30 31 34 30 2c 32 30 31 35 30 2c 32 30 31 36 30 2c 32 30 31 37 30 2c 32 30 31 38 30 2c 32 30 ┆20140,20150,20160,20170,20180,20┆
0x03e160…03e180 31 39 30 2c 32 30 32 30 30 2c 32 30 32 31 30 2c 32 30 32 32 30 2c 32 30 32 33 30 2c 32 30 32 34 ┆190,20200,20210,20220,20230,2024┆
0x03e180…03e1a0 30 2c 32 30 32 35 30 2c 32 30 32 36 30 2c 32 30 32 37 30 2c 32 30 32 38 30 2c 32 30 32 39 30 2c ┆0,20250,20260,20270,20280,20290,┆
0x03e1a0…03e1c0 32 30 33 30 30 2c 32 30 33 31 30 2c 32 30 33 32 30 2c 32 30 33 33 30 2c 32 30 33 34 30 2c 32 30 ┆20300,20310,20320,20330,20340,20┆
0x03e1c0…03e1e0 33 35 30 2c 32 30 33 36 30 2c 32 30 33 37 30 2c 32 30 33 38 30 2c 32 30 33 39 30 0d 0a 32 30 30 ┆350,20360,20370,20380,20390 200┆
0x03e1e0…03e200 39 32 20 49 46 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 38 20 4f 52 20 45 52 52 4d 53 47 4e 52 25 ┆92 IF ERRMSGNR% = 8 OR ERRMSGNR%┆
0x03e200…03e220 20 3d 20 32 38 20 54 48 45 4e 20 50 52 49 4e 54 20 22 20 21 21 20 2a 2a 2a 20 22 3b 43 48 52 24 ┆ = 28 THEN PRINT " !! *** ";CHR$┆
0x03e220…03e240 28 31 32 38 29 3b 43 48 52 24 28 33 30 29 3b 43 48 52 24 28 31 33 29 3b 20 3a 20 52 45 54 55 52 ┆(128);CHR$(30);CHR$(13); : RETUR┆
0x03e240…03e260 4e 0d 0a 32 30 30 39 33 20 49 46 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 36 20 4f 52 20 45 52 ┆N 20093 IF ERRMSGNR% = 26 OR ER┆
0x03e260…03e280 52 4d 53 47 4e 52 25 20 3d 20 32 37 20 54 48 45 4e 20 50 52 49 4e 54 20 22 20 28 52 45 53 45 54 ┆RMSGNR% = 27 THEN PRINT " (RESET┆
0x03e280…03e2a0 29 20 2a 2a 2a 20 22 3b 43 48 52 24 28 31 32 38 29 3b 43 48 52 24 28 33 30 29 3b 43 48 52 24 28 ┆) *** ";CHR$(128);CHR$(30);CHR$(┆
0x03e2a0…03e2c0 31 33 29 3b 20 3a 20 52 45 54 55 52 4e 0d 0a 32 30 30 39 35 20 50 52 49 4e 54 20 22 20 21 21 20 ┆13); : RETURN 20095 PRINT " !! ┆
0x03e2c0…03e2e0 20 28 52 45 53 45 54 29 20 2a 2a 2a 20 22 3b 43 48 52 24 28 31 32 38 29 3b 43 48 52 24 28 33 30 ┆ (RESET) *** ";CHR$(128);CHR$(30┆
0x03e2e0…03e300 29 3b 43 48 52 24 28 31 33 29 3b 0d 0a 32 30 31 31 35 20 52 45 54 55 52 4e 0d 0a 32 30 31 32 30 ┆);CHR$(13); 20115 RETURN 20120┆
0x03e300…03e320 (16, 1, 14) 4d 53 47 2e 20 32 31 0d 0a 32 30 33 33 30 20 50 52 49 4e 54 20 22 53 43 48 52 45 49 42 2d 20 4f ┆MSG. 21 20330 PRINT "SCHREIB- O┆
0x03e320…03e340 44 45 52 20 4c 45 53 45 46 45 48 4c 45 52 20 41 55 46 20 44 45 52 20 44 49 53 4b 45 54 54 45 22 ┆DER LESEFEHLER AUF DER DISKETTE"┆
0x03e340…03e360 3b 20 3a 20 52 45 54 55 52 4e 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 32 0d 0a 32 30 33 ┆; : RETURN REM *** MSG. 22 203┆
0x03e360…03e380 34 30 20 50 52 49 4e 54 20 22 44 49 53 4b 45 54 54 45 20 56 4f 4c 4c 22 3b 20 3a 20 52 45 54 55 ┆40 PRINT "DISKETTE VOLL"; : RETU┆
0x03e380…03e3a0 52 4e 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 33 0d 0a 32 30 33 35 30 20 50 ┆RN REM *** MSG. 23 20350 P┆
0x03e3a0…03e3c0 52 49 4e 54 20 22 44 41 54 45 49 20 4e 49 43 48 54 20 49 4e 20 44 45 52 20 43 50 2f 4d 20 44 41 ┆RINT "DATEI NICHT IN DER CP/M DA┆
0x03e3c0…03e3e0 54 45 49 56 45 52 57 41 4c 54 55 4e 47 22 3b 09 09 09 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 ┆TEIVERWALTUNG"; REM *** MSG. ┆
0x03e3e0…03e400 32 34 0d 0a 32 30 33 36 30 20 50 52 49 4e 54 20 22 46 45 48 4c 45 52 20 23 22 3b 45 52 52 3b 22 ┆24 20360 PRINT "FEHLER #";ERR;"┆
0x03e400…03e420 2f 22 3b 45 52 4c 3b 22 20 44 41 54 45 49 3a 20 22 3b 46 49 4c 45 4e 41 4d 45 24 3b 22 20 28 4f ┆/";ERL;" DATEI: ";FILENAME$;" (O┆
0x03e420…03e440 4e 20 45 52 52 29 20 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 ┆N ERR) "; : RETURN REM *** MSG. ┆
0x03e440…03e460 32 35 0d 0a 32 30 33 37 30 20 50 52 49 4e 54 20 22 46 4f 52 4d 41 54 20 4e 52 2e 20 42 45 4c 45 ┆25 20370 PRINT "FORMAT NR. BELE┆
0x03e460…03e480 47 54 20 21 20 5d 42 45 52 53 43 48 52 45 49 42 45 4e 20 3d 20 28 4a 29 20 2f 20 4e 45 49 4e 20 ┆GT ! ÅBERSCHREIBEN = (J) / NEIN ┆
0x03e480…03e4a0 3d 22 3b 20 3a 20 52 45 54 55 52 4e 09 52 45 4d 20 2a 2a 2a 20 4d 53 47 2e 20 32 36 20 0d 0a 32 ┆="; : RETURN REM *** MSG. 26 2┆
0x03e4a0…03e4c0 30 33 38 30 20 50 52 49 4e 54 20 22 4e 45 55 45 53 20 46 4f 52 4d 41 54 20 3f 3f 20 20 4a 41 20 ┆0380 PRINT "NEUES FORMAT ?? JA ┆
0x03e4c0…03e4e0 3d 20 28 4a 29 20 2f 20 4e 45 49 4e 20 3d 22 3b 20 3a 20 52 45 54 55 52 4e 09 09 09 52 45 4d 20 ┆= (J) / NEIN ="; : RETURN REM ┆
0x03e4e0…03e500 2a 2a 2a 20 4d 53 47 2e 20 32 37 0d 0a 32 30 33 39 30 20 50 52 49 4e 54 20 4d 49 44 24 28 46 49 ┆*** MSG. 27 20390 PRINT MID$(FI┆
0x03e500…03e520 (16, 1, 15) 52 31 24 2c 31 31 2c 34 29 20 3a 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 20 3d 20 56 ┆R1$,11,4) : ARBSTATRECCOUNT% = V┆
0x03e520…03e540 41 4c 28 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 29 0d 0a 32 31 30 33 30 20 41 52 42 53 ┆AL(ARBSTATRECCOUNT$) 21030 ARBS┆
0x03e540…03e560 54 41 54 52 45 43 43 4f 55 4e 54 25 20 3d 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 20 ┆TATRECCOUNT% = ARBSTATRECCOUNT% ┆
0x03e560…03e580 2d 20 31 20 3a 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 53 54 52 24 28 41 52 ┆- 1 : ARBSTATRECCOUNT$ = STR$(AR┆
0x03e580…03e5a0 42 53 54 41 54 52 45 43 43 4f 55 4e 54 25 29 0d 0a 32 31 30 34 30 20 4e 41 52 42 53 54 41 54 52 ┆BSTATRECCOUNT%) 21040 NARBSTATR┆
0x03e5a0…03e5c0 45 43 43 4f 55 4e 54 24 20 3d 20 53 50 41 43 45 24 28 34 29 20 3a 20 52 53 45 54 20 4e 41 52 42 ┆ECCOUNT$ = SPACE$(4) : RSET NARB┆
0x03e5c0…03e5e0 53 54 41 54 52 45 43 43 4f 55 4e 54 24 20 3d 20 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 ┆STATRECCOUNT$ = ARBSTATRECCOUNT$┆
0x03e5e0…03e600 0d 0a 32 31 30 35 30 20 4d 49 44 24 28 41 52 42 53 54 41 54 44 49 52 31 24 2c 31 31 2c 34 29 20 ┆ 21050 MID$(ARBSTATDIR1$,11,4) ┆
0x03e600…03e620 3d 20 4e 41 52 42 53 54 41 54 52 45 43 43 4f 55 4e 54 24 0d 0a 32 31 30 36 30 20 52 45 54 55 52 ┆= NARBSTATRECCOUNT$ 21060 RETUR┆
0x03e620…03e640 4e 0d 0a 32 32 31 39 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆N 22190 REM *******************┆
0x03e640…03e660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03e660…03e680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 32 31 39 35 20 52 45 4d 20 2a 20 ┆****************** 22195 REM * ┆
0x03e680…03e6a0 20 52 45 41 44 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 54 48 45 20 57 4f 52 ┆ READ FROM CHAININF-FILE THE WOR┆
0x03e6a0…03e6c0 4b 4e 4f 2e 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 32 32 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆KNO. * 22200 REM ******┆
0x03e6c0…03e6e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x03e6e0…03e700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x03e700…03e900 (17, 0, 1) DataBlock {»EENTRY.MAC«}
[…0xf…]
0x040700…040900 (17, 1, 2) DataBlock {»ENTRYME.BAS«}
0x040900…040b00 (17, 1, 3) DataBlock {»ENTRY.BAS«}
[…0x1…]
0x040d00…040f00 (17, 1, 5) DataBlock {»EENTRY.MAC«}
0x040f00…041100 (17, 1, 6) DataBlock {»ENTRYME.BAS«}
0x041100…041300 (17, 1, 7) DataBlock {»ENTRY.BAS«}
[…0x1…]
0x041500…041700 (17, 1, 9) DataBlock {»EENTRY.MAC«}
0x041700…041900 (17, 1, 10) DataBlock {»ENTRYME.BAS«}
0x041900…041b00 (17, 1, 11) DataBlock {»ENTRY.BAS«}
[…0x1…]
0x041d00…041f00 (17, 1, 13) DataBlock {»ENTRYME.BAS«}
0x041f00…042100 (17, 1, 14) DataBlock {»ENTRY.BAS«}
[…0x3e…]
0x049d00…049f00 (20, 0, 2) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x04a300…04a500 (20, 0, 5) DataBlock {»ENTRY.BAS«}
0x04a500…04a700 (20, 0, 6) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x04ab00…04ac00 (20, 0, 9) DataBlock {»ENTRY.BAS«}
0x04ac00…04ac20 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆EM *****************************┆
0x04ac20…04ac40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04ac40…04ac60 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 32 38 30 20 45 52 52 4d 53 47 4e 52 25 20 3d 20 32 20 3a 20 ┆******** 27280 ERRMSGNR% = 2 : ┆
0x04ac60…04ac80 47 4f 53 55 42 20 32 30 30 30 30 20 3a 20 47 4f 53 55 42 20 31 30 30 30 20 3a 20 52 45 54 55 52 ┆GOSUB 20000 : GOSUB 1000 : RETUR┆
0x04ac80…04aca0 4e 0d 0a 32 37 32 38 32 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆N 27282 REM *******************┆
0x04aca0…04acc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04acc0…04ace0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 37 32 38 34 20 52 45 4d 20 2a 20 ┆****************** 27284 REM * ┆
0x04ace0…04ad00 53 55 42 2e 3a 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 ┆SUB.: PRINT ERRMSG. IN LINE 25 ┆
0x04ad00…04af00 (20, 0, 10) DataBlock {»ENTRYME.BAS«}
[…0x2…]
0x04b300…04b500 (20, 0, 13) 0xe5[0x200]
0x04b500…04b700 (20, 0, 14) DataBlock {»ENTRYME.BAS«}
[…0x12…]
0x04d980…04d9a0 4d 49 44 24 28 4e 4f 4e 5a 24 2c 33 2c 38 29 20 3d 20 4e 44 41 54 41 4e 41 4d 45 24 20 45 4c 53 ┆MID$(NONZ$,3,8) = NDATANAME$ ELS┆
0x04d9a0…04d9c0 45 20 4d 49 44 24 28 4e 4f 4e 5a 24 2c 31 31 2c 38 29 20 3d 20 4e 46 4f 52 4d 4e 41 4d 45 24 0d ┆E MID$(NONZ$,11,8) = NFORMNAME$ ┆
0x04d9c0…04d9e0 0a 32 32 34 39 36 20 47 4f 53 55 42 20 39 35 35 30 09 09 09 09 09 09 09 09 52 45 4d 20 2a 2a 2a ┆ 22496 GOSUB 9550 REM ***┆
0x04d9e0…04da00 20 57 52 49 54 45 20 41 52 42 53 54 41 54 0d 0a 32 32 34 39 38 20 52 45 54 55 52 4e 0d 0a 32 32 ┆ WRITE ARBSTAT 22498 RETURN 22┆
0x04da00…04da20 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆500 REM ************************┆
0x04da20…04da40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04da40…04da60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 32 35 30 32 20 52 45 4d 20 2a 20 53 55 42 2e 3a ┆************* 22502 REM * SUB.:┆
0x04da60…04da80 20 50 52 49 4e 54 20 45 52 52 4d 53 47 2e 20 49 4e 20 4c 49 4e 45 20 32 35 09 09 09 09 20 20 20 ┆ PRINT ERRMSG. IN LINE 25 ┆
0x04da80…04daa0 20 20 20 2a 0d 0a 32 32 35 30 34 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * 22504 REM ****************┆
0x04daa0…04dac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04dac0…04dae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 32 35 31 30 20 45 52 52 ┆********************* 22510 ERR┆
0x04dae0…04db00 4d 53 47 4e 52 25 20 3d 20 31 33 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 32 32 35 33 30 ┆MSGNR% = 13 : GOSUB 20000 22530┆
0x04db00…04dd00 (21, 0, 3) DataBlock {»FORMAT.BAS«}
[…0x1…]
0x04df00…04e100 (21, 0, 5) DataBlock {»ENTRYME.BAS«}
0x04e100…04e120 (21, 0, 6) 33 38 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆380 REM ************************┆
0x04e120…04e140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e140…04e160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 30 33 39 30 20 45 52 52 4d 53 47 4e 52 25 20 3d ┆************* 10390 ERRMSGNR% =┆
0x04e160…04e180 20 32 34 20 3a 20 47 4f 53 55 42 20 32 30 30 30 30 0d 0a 31 30 34 31 30 20 47 4f 53 55 42 20 31 ┆ 24 : GOSUB 20000 10410 GOSUB 1┆
0x04e180…04e1a0 30 30 30 20 3a 20 52 45 54 55 52 4e 0d 0a 31 30 35 30 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a ┆000 : RETURN 10500 REM ********┆
0x04e1a0…04e1c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e1c0…04e1e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 ┆***************************** 1┆
0x04e1e0…04e200 30 35 30 35 20 52 45 4d 20 2a 20 53 55 42 2e 3a 20 50 52 49 4e 54 20 54 45 58 54 20 4f 4e 20 43 ┆0505 REM * SUB.: PRINT TEXT ON C┆
0x04e200…04e220 52 54 09 09 09 09 09 20 20 20 20 20 20 2a 0d 0a 31 30 35 31 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆RT * 10510 REM ******┆
0x04e220…04e240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04e240…04e260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆
0x04e260…04e280 0a 31 30 35 32 30 20 4f 4e 20 54 45 58 54 4e 52 25 20 47 4f 53 55 42 20 31 30 35 35 30 2c 31 30 ┆ 10520 ON TEXTNR% GOSUB 10550,10┆
0x04e280…04e2a0 35 35 35 2c 31 30 35 36 30 2c 31 30 35 36 35 2c 31 30 35 37 30 2c 31 30 35 37 35 2c 31 30 35 38 ┆555,10560,10565,10570,10575,1058┆
0x04e2a0…04e2c0 30 2c 31 30 35 38 35 2c 31 30 35 39 30 0d 0a 31 30 35 33 30 20 52 45 54 55 52 4e 0d 0a 31 30 35 ┆0,10585,10590 10530 RETURN 105┆
0x04e2c0…04e2e0 35 30 20 50 52 49 4e 54 20 22 20 42 69 74 74 65 20 50 72 6f 67 72 61 6d 6d 6e 61 6d 65 20 65 69 ┆50 PRINT " Bitte Programmname ei┆
0x04e2e0…04e300 6e 67 65 62 65 6e 20 3a 20 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 22 3b 20 3a 20 52 45 54 55 52 4e ┆ngeben : .......... "; : RETURN┆
0x04e300…04e500 (21, 0, 7) DataBlock {»FORMAT.BAS«}
[…0x1…]
0x04e700…04e900 (21, 0, 9) DataBlock {»ENTRYME.BAS«}
0x04e900…04eb00 (21, 0, 10) DataBlock {»FORMAT.BAS«}
[…0x2…]
0x04ef00…04f100 (21, 0, 13) DataBlock {»ENTRYME.BAS«}
0x04f100…04f300 (21, 0, 14) DataBlock {»FORMAT.BAS«}
[…0x2…]
0x04f700…04f900 (21, 1, 2) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x04fd00…04ff00 (21, 1, 5) DataBlock {»FORMAT.BAS«}
0x04ff00…050100 (21, 1, 6) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x050500…050700 (21, 1, 9) DataBlock {»FORMAT.BAS«}
0x050700…050900 (21, 1, 10) DataBlock {»EENTRY.MAC«}
[…0x44…]
0x059100…059300 (24, 0, 4) DataBlock {»EUSRINT.MAC«}
0x059300…059500 (24, 0, 5) DataBlock {»EENTRY.MAC«}
[…0x2…]
0x059900…059b00 (24, 0, 8) DataBlock {»EUSRINT.MAC«}
0x059b00…059d00 (24, 0, 9) DataBlock {»EENTRY.MAC«}
[…0x1…]
0x059f00…05a100 (24, 0, 11) 0xe5[0x200]
0x05a100…05a300 (24, 0, 12) DataBlock {»EUSRINT.MAC«}
0x05a300…05a500 (24, 0, 13) DataBlock {»EENTRY.MAC«}
[…0x1…]
0x05a700…05a900 (24, 0, 15) 0xe5[0x200]
0x05a900…05ab00 (24, 1, 1) DataBlock {»EUSRINT.MAC«}
[…0x20…]
0x05eb00…05ed00 (25, 1, 4) DataBlock {»FFORMAT.MAC«}
0x05ed00…05ef00 (25, 1, 5) DataBlock {»EUSRINT.MAC«}
[…0x2…]
0x05f280…05f2a0 6b 20 31 2f 72 61 6e 67 65 20 63 68 65 63 6b 20 32 20 2d 20 66 6c 61 67 73 0d 0a 3b 61 6e 64 20 ┆k 1/range check 2 - flags ;and ┆
0x05f2a0…05f2c0 73 65 74 73 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 73 74 61 74 75 73 20 6f 66 66 73 ┆sets the appropriate status offs┆
0x05f2c0…05f2e0 65 74 20 69 6e 20 68 6c 2d 72 65 67 2e 0d 0a 3b 0d 0a 43 48 4b 44 52 3a 09 6c 64 09 61 2c 28 44 ┆et in hl-reg. ; CHKDR: ld a,(D┆
0x05f2e0…05f300 54 45 46 4c 47 29 09 3b 0d 0a 09 63 70 09 30 66 66 68 09 09 3b 0d 0a 09 6a 70 09 7a 2c 43 48 4b ┆TEFLG) ; cp 0ffh ; jp z,CHK┆
0x05f300…05f500 (25, 1, 8) DataBlock {»FFORMAT.MAC«}
0x05f500…05f700 (25, 1, 9) DataBlock {»EUSRINT.MAC«}
[…0x1…]
0x05f900…05fb00 (25, 1, 11) 0xe5[0x200]
0x05fb00…05fd00 (25, 1, 12) DataBlock {»FFORMAT.MAC«}
0x05fd00…05ff00 (25, 1, 13) DataBlock {»EUSRINT.MAC«}
[…0x1…]
0x060100…060300 (25, 1, 15) DataBlock {»FFORMAT.MAC«}
[…0x1b…]
0x063880…0638a0 09 28 41 54 54 42 59 54 29 2c 61 09 3b 0d 0a 20 20 20 20 20 20 20 09 63 61 6c 6c 09 43 48 52 43 ┆ (ATTBYT),a ; call CHRC┆
0x0638a0…0638c0 4e 56 09 09 3b 0d 0a 09 64 65 63 09 68 6c 20 09 09 3b 0d 0a 09 6c 64 09 61 2c 30 68 09 09 3b 0d ┆NV ; dec hl ; ld a,0h ; ┆
0x0638c0…0638e0 0a 09 6c 64 09 28 44 53 50 53 56 33 29 2c 61 09 3b 0d 0a 09 6a 70 09 44 53 50 46 53 37 09 09 3b ┆ ld (DSPSV3),a ; jp DSPFS7 ;┆
0x0638e0…063900 0d 0a 3b 0d 0a 3b 0d 0a 44 53 50 53 56 31 3a 09 64 73 09 32 09 09 3b 0d 0a 44 53 50 53 56 32 3a ┆ ; ; DSPSV1: ds 2 ; DSPSV2:┆
0x063900…063b00 (26, 1, 13) DataBlock {»FFORMAT.MAC«}
[…0x2…]
0x063f00…064100 (27, 0, 1) 0xe5[0x200]
0x064100…064300 (27, 0, 2) DataBlock {»FUSRINT.MAC«}
[…0x2…]
0x064700…064900 (27, 0, 5) 0xe5[0x200]
0x064900…064b00 (27, 0, 6) DataBlock {»FUSRINT.MAC«}
[…0xc…]
0x066300…066500 (27, 1, 4) DataBlock {»FORMAT.BAS«}
0x066500…066700 (27, 1, 5) DataBlock {»FUSRINT.MAC«}
[…0x2…]
0x066980…0669a0 74 20 63 6f 6d 70 6c 65 74 65 0d 0a 09 64 62 09 22 30 37 30 38 30 30 22 09 3b 69 6c 6c 65 67 61 ┆t complete db "070800" ;illega┆
0x0669a0…0669c0 6c 20 66 6f 72 6d 61 74 0d 0a 09 64 62 09 22 30 34 30 38 30 30 22 09 3b 66 6f 72 6d 61 74 20 6e ┆l format db "040800" ;format n┆
0x0669c0…0669e0 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 0d 0a 09 64 62 09 22 30 31 30 38 30 30 22 09 3b 6c 65 ┆ot initialized db "010800" ;le┆
0x0669e0…066a00 67 61 6c 20 61 62 6f 72 74 20 28 75 73 65 72 20 63 61 6e 63 65 6c 6c 65 64 29 0d 0a 09 64 62 09 ┆gal abort (user cancelled) db ┆
0x066a00…066a20 22 30 31 30 39 30 30 22 09 3b 66 6f 72 6d 2e 63 68 61 69 6e 20 6b 65 79 20 6d 6f 64 69 66 69 65 ┆"010900" ;form.chain key modifie┆
0x066a20…066a40 64 0d 0a 09 64 62 09 22 30 31 30 33 30 30 22 09 3b 73 65 6e 64 20 6b 65 79 0d 0a 09 64 62 09 22 ┆d db "010300" ;send key db "┆
0x066a40…066a60 30 31 31 33 30 30 22 09 3b 68 6f 6d 65 20 6b 65 79 0d 0a 09 64 62 09 22 30 31 30 32 30 30 22 09 ┆011300" ;home key db "010200" ┆
0x066a60…066a80 3b 65 6e 64 20 6f 66 20 66 6f 72 6d 61 74 20 72 65 61 63 68 65 64 0d 0a 09 64 62 09 22 30 33 30 ┆;end of format reached db "030┆
0x066a80…066aa0 38 30 30 22 09 3b 69 6c 6c 65 67 61 6c 20 66 69 65 6c 64 20 6e 75 6d 62 65 72 0d 0a 09 64 62 09 ┆800" ;illegal field number db ┆
0x066aa0…066ac0 22 30 31 31 32 30 30 22 09 3b 66 69 65 6c 64 20 62 61 63 6b 77 61 72 64 0d 0a 09 64 62 09 22 30 ┆"011200" ;field backward db "0┆
0x066ac0…066ae0 31 31 31 30 30 22 09 3b 66 69 65 6c 64 20 66 6f 72 77 61 72 64 0d 0a 09 64 62 09 22 30 31 30 31 ┆11100" ;field forward db "0101┆
0x066ae0…066b00 30 30 22 09 3b 65 6e 64 20 6f 66 20 66 69 65 6c 64 0d 0a 09 64 62 09 22 30 31 30 36 30 30 22 09 ┆00" ;end of field db "010600" ┆
0x066b00…066d00 (27, 1, 8) DataBlock {»FORMAT.BAS«}
0x066d00…066f00 (27, 1, 9) DataBlock {»FUSRINT.MAC«}
[…0x1…]
0x067100…067300 (27, 1, 11) 0xe5[0x200]
0x067300…067500 (27, 1, 12) DataBlock {»FORMAT.BAS«}
0x067500…067700 (27, 1, 13) DataBlock {»FUSRINT.MAC«}
[…0x1…]
0x067900…067b00 (27, 1, 15) DataBlock {»FORMAT.BAS«}
[…0x1…]
0x067d00…067f00 (28, 0, 2) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x068300…068500 (28, 0, 5) DataBlock {»FORMAT.BAS«}
0x068500…068700 (28, 0, 6) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x068b00…068d00 (28, 0, 9) DataBlock {»FORMAT.BAS«}
0x068d00…068f00 (28, 0, 10) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x069300…069480 (28, 0, 13) DataBlock {»FORMAT.BAS«}
0x069480…0694a0 2a 20 20 52 45 41 44 20 46 52 4f 4d 20 43 48 41 49 4e 49 4e 46 2d 46 49 4c 45 20 54 48 45 20 57 ┆* READ FROM CHAININF-FILE THE W┆
0x0694a0…0694c0 4f 52 4b 4e 4f 2e 09 09 09 20 20 20 20 20 20 2a 0d 0a 32 32 32 30 30 20 52 45 4d 20 2a 2a 2a 2a ┆ORKNO. * 22200 REM ****┆
0x0694c0…0694e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x069500…069700 (28, 0, 14) DataBlock {»FFMTINT.MAC«}
[…0x18…]
0x06c580…06c5a0 69 65 6c 64 73 20 72 65 61 63 68 65 64 3f 0d 0a 09 6a 70 09 6d 2c 46 4c 44 45 52 52 09 3b 79 65 ┆ields reached? jp m,FLDERR ;ye┆
0x06c5a0…06c5c0 73 2e 0d 0a 09 6c 64 09 61 2c 28 45 4e 44 46 4c 47 29 09 3b 0d 0a 09 63 70 09 30 66 66 68 09 09 ┆s. ld a,(ENDFLG) ; cp 0ffh ┆
0x06c5c0…06c5e0 3b 0d 0a 09 6a 70 09 7a 2c 45 4e 44 46 4c 44 09 3b 69 74 20 6d 75 73 74 20 62 65 20 74 68 65 20 ┆; jp z,ENDFLD ;it must be the ┆
0x06c5e0…06c600 65 6e 64 20 6f 66 20 66 6f 72 6d 61 74 21 0d 0a 42 4c 44 46 50 31 3a 09 6c 64 09 62 63 2c 28 56 ┆end of format! BLDFP1: ld bc,(V┆
0x06c600…06c620 46 43 54 52 29 09 3b 69 6e 63 0d 0a 09 69 6e 63 09 62 63 09 09 3b 74 68 65 0d 0a 09 6c 64 09 28 ┆FCTR) ;inc inc bc ;the ld (┆
0x06c620…06c640 56 46 43 54 52 29 2c 62 63 09 3b 6e 6f 2e 20 6f 66 20 76 61 72 69 61 62 6c 65 20 66 69 65 6c 64 ┆VFCTR),bc ;no. of variable field┆
0x06c640…06c660 73 2e 0d 0a 09 72 65 74 09 09 09 3b 0d 0a 46 4c 44 45 52 52 3a 09 6c 64 09 61 2c 30 35 68 09 09 ┆s. ret ; FLDERR: ld a,05h ┆
0x06c660…06c680 3b 0d 0a 09 63 61 6c 6c 09 44 53 50 4d 53 47 09 09 3b 64 69 73 70 6c 61 79 20 65 72 72 6f 72 20 ┆; call DSPMSG ;display error ┆
0x06c680…06c6a0 6d 65 73 73 61 67 65 0d 0a 09 70 6f 70 09 68 6c 09 09 3b 70 6f 70 20 74 68 65 20 73 74 61 63 6b ┆message pop hl ;pop the stack┆
0x06c6a0…06c6c0 0d 0a 09 6c 64 09 68 6c 2c 30 68 09 09 3b 63 6c 65 61 72 20 74 68 65 0d 0a 09 6c 64 09 28 56 46 ┆ ld hl,0h ;clear the ld (VF┆
0x06c6c0…06c6e0 43 54 52 29 2c 68 6c 09 3b 76 61 72 2e 66 69 65 6c 64 20 63 6f 75 6e 74 65 72 0d 0a 09 4a 50 09 ┆CTR),hl ;var.field counter JP ┆
0x06c6e0…06c700 4b 45 4c 50 31 09 09 3b 41 4e 44 20 47 45 54 20 43 4f 52 52 45 43 54 49 4f 4e 0d 0a 3b 0d 0a 45 ┆KELP1 ;AND GET CORRECTION ; E┆
0x06c700…06c900 (29, 0, 9) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x06cd00…06cd20 (29, 0, 12) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x06cd20…06cd40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 ┆****************** ;* ┆
0x06cd40…06cd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06cd60…06cd80 20 20 20 20 20 2a 0d 0a 3b 2a 09 4d 4f 44 55 4c 45 20 3a 20 45 4d 53 47 54 41 42 45 2e 4d 41 43 ┆ * ;* MODULE : EMSGTABE.MAC┆
0x06cd80…06cda0 20 20 20 20 20 20 20 28 52 43 2d 37 30 30 29 20 20 20 20 20 2a 0d 0a 3b 2a 09 44 41 54 45 20 20 ┆ (RC-700) * ;* DATE ┆
0x06cda0…06cdc0 20 3a 20 30 31 2e 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : 01.02.82 ┆
0x06cdc0…06cde0 20 20 20 2a 0d 0a 3b 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 6d 62 48 20 2c 20 36 34 37 ┆ * ;* BY : ASE GmbH , 647┆
0x06cde0…06ce00 32 20 41 6c 74 65 6e 73 74 61 64 74 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 56 45 52 53 49 4f 4e 3a ┆2 Altenstadt * ;* VERSION:┆
0x06ce00…06ce20 20 31 2e 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1.90 ┆
0x06ce20…06ce40 20 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ;* ┆
0x06ce40…06ce60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a ┆ * ;*******┆
0x06ce60…06ce80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06ce80…06cea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 3b 20 54 48 49 53 20 48 4f 4c 44 53 20 54 48 45 20 ┆********** ; ; THIS HOLDS THE ┆
0x06cea0…06cec0 45 4e 47 4c 49 53 43 48 20 4d 45 53 53 41 47 45 53 20 55 53 45 44 20 54 48 52 4f 55 47 48 4f 55 ┆ENGLISCH MESSAGES USED THROUGHOU┆
0x06cec0…06cee0 54 20 54 48 45 20 44 45 50 0d 0a 3b 20 49 4e 20 41 4c 4c 20 4d 4f 44 45 53 20 45 58 43 45 50 54 ┆T THE DEP ; IN ALL MODES EXCEPT┆
0x06cee0…06cf00 20 27 46 4f 52 4d 41 54 27 20 41 4e 44 20 27 46 4f 52 4d 41 54 2d 55 50 44 41 54 45 27 2e 0d 0a ┆ 'FORMAT' AND 'FORMAT-UPDATE'. ┆
0x06cf00…06d100 (29, 0, 13) DataBlock {»FFMTINT.MAC«}
[…0x2…]
0x06d500…06d520 (29, 1, 1) 3b 0d 0a 09 50 55 42 4c 49 43 09 4d 53 47 54 41 42 0d 0a 3b 0d 0a 3b 54 68 65 20 66 6f 6c 6c 6f ┆; PUBLIC MSGTAB ; ;The follo┆
0x06d520…06d540 77 69 6e 67 20 63 6f 6d 70 72 69 73 65 73 20 74 68 65 20 4d 65 73 73 61 67 65 2d 54 61 62 6c 65 ┆wing comprises the Message-Table┆
0x06d540…06d560 0d 0a 3b 75 73 65 64 20 74 68 72 75 6f 75 74 20 74 68 65 20 44 45 50 20 2e 20 4f 6e 65 20 65 6e ┆ ;used thruout the DEP . One en┆
0x06d560…06d580 74 72 79 20 63 6f 6e 74 61 69 6e 73 0d 0a 3b 33 32 20 50 6f 73 69 74 69 6f 6e 73 2e 0d 0a 3b 74 ┆try contains ;32 Positions. ;t┆
0x06d580…06d5a0 68 65 20 73 65 71 75 65 6e 63 65 20 6f 66 20 6d 65 73 73 61 67 65 73 20 6d 75 73 74 20 6e 6f 74 ┆he sequence of messages must not┆
0x06d5a0…06d5c0 20 62 65 20 64 69 73 74 75 72 62 65 64 2e 0d 0a 3b 0d 0a 4d 53 47 54 41 42 3a 0d 0a 6d 73 67 30 ┆ be disturbed. ; MSGTAB: msg0┆
0x06d5c0…06d5e0 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆: db " ┆
0x06d5e0…06d600 20 20 20 20 20 20 22 3b 6d 73 67 20 30 20 72 65 73 65 72 76 65 64 20 66 6f 72 0d 0a 3b 64 69 73 ┆ ";msg 0 reserved for ;dis┆
0x06d600…06d620 70 6c 61 79 2d 6d 6f 64 65 2e 0d 0a 6d 73 67 31 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 ┆play-mode. msg1: db " ┆
0x06d620…06d640 56 45 52 49 46 59 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 32 3a 09 64 ┆VERIFYERROR " msg2: d┆
0x06d640…06d660 62 09 22 20 20 20 20 20 20 20 52 49 47 48 54 20 41 44 4a 55 53 54 20 46 49 45 4c 44 20 20 20 20 ┆b " RIGHT ADJUST FIELD ┆
0x06d660…06d680 20 20 20 22 0d 0a 6d 73 67 33 3a 20 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 ┆ " msg3: db " ENTRY┆
0x06d680…06d6a0 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 34 3a 09 64 62 09 22 20 20 ┆ERROR " msg4: db " ┆
0x06d6a0…06d6c0 20 20 20 20 53 45 4c 45 43 54 20 46 4f 52 4d 41 54 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d ┆ SELECT FORMAT ---------> " ┆
0x06d6c0…06d6e0 0a 6d 73 67 35 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 59 20 20 ┆ msg5: db " READY ┆
0x06d6e0…06d700 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 36 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 ┆ " msg6: db " ┆
0x06d700…06d900 (29, 1, 2) DataBlock {»CCB.MAC«}
[…0x2…]
0x06dd00…06dd20 (29, 1, 5) 20 20 20 20 20 41 42 4f 52 54 45 44 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 37 3a ┆ ABORTED " msg7:┆
0x06dd20…06dd40 09 64 62 09 22 20 20 20 20 20 20 20 20 43 48 45 43 4b 2d 44 49 47 49 54 20 45 52 52 4f 52 20 20 ┆ db " CHECK-DIGIT ERROR ┆
0x06dd40…06dd60 20 20 20 20 20 22 0d 0a 6d 73 67 38 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 20 50 52 ┆ " msg8: db " PR┆
0x06dd60…06dd80 49 4e 54 49 4e 47 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 39 3a 09 64 62 09 22 20 ┆INTING " msg9: db " ┆
0x06dd80…06dda0 20 20 20 20 20 50 52 49 4e 54 49 4e 47 20 49 4e 54 45 52 52 55 50 54 45 44 20 20 20 20 20 20 22 ┆ PRINTING INTERRUPTED "┆
0x06dda0…06ddc0 0d 0a 6d 73 67 31 30 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 52 45 51 ┆ msg10: db " ENTRY REQ┆
0x06ddc0…06dde0 55 49 52 45 44 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 31 31 3a 09 64 62 09 22 20 20 20 20 20 ┆UIRED " msg11: db " ┆
0x06dde0…06de00 20 20 20 20 20 20 20 53 49 47 4e 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 ┆ SIGNERROR " ms┆
0x06de00…06de20 67 31 32 3a 09 64 62 09 22 20 20 20 20 20 44 49 53 50 4c 41 59 20 52 45 47 49 53 54 45 52 20 2d ┆g12: db " DISPLAY REGISTER -┆
0x06de20…06de40 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d 0a 09 65 6e 64 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆-------> " end ┆
0x06de40…06de60 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x06de80…06dea0 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 34 3a 09 64 62 09 22 20 20 ┆ERROR " msg4: db " ┆
0x06dea0…06dec0 20 20 20 20 53 45 4c 45 43 54 20 46 4f 52 4d 41 54 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d ┆ SELECT FORMAT ---------> " ┆
0x06dec0…06dee0 0a 6d 73 67 35 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 59 20 20 ┆ msg5: db " READY ┆
0x06dee0…06df00 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 36 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 ┆ " msg6: db " ┆
0x06df00…06e100 (29, 1, 6) DataBlock {»CCB.MAC«}
[…0x2…]
0x06e500…06e700 (29, 1, 9) 0xe5[0x200]
0x06e700…06e900 (29, 1, 10) DataBlock {»CCB.MAC«}
[…0x6…]
0x06f380…06f3a0 66 69 65 6c 64 20 73 74 61 72 74 20 62 79 74 65 0d 0a 55 42 46 41 44 44 3a 09 64 73 09 32 09 3b ┆field start byte UBFADD: ds 2 ;┆
0x06f3a0…06f3c0 75 73 65 72 20 62 75 66 66 65 72 20 73 74 61 72 74 20 61 64 64 72 65 73 73 0d 0a 55 43 46 4c 47 ┆user buffer start address UCFLG┆
0x06f3c0…06f3e0 3a 09 64 73 09 31 09 3b 75 70 70 65 72 20 63 61 73 65 20 66 6c 61 67 0d 0a 56 43 52 43 54 52 3a ┆: ds 1 ;upper case flag VCRCTR:┆
0x06f3e0…06f400 09 64 77 09 30 30 30 30 68 09 3b 76 65 72 69 66 79 20 63 6f 72 72 65 63 74 69 6f 6e 20 63 6f 75 ┆ dw 0000h ;verify correction cou┆
0x06f400…06f420 6e 74 65 72 0d 0a 56 45 52 43 54 52 3a 09 64 77 09 30 30 30 30 68 09 3b 76 65 72 69 66 79 20 63 ┆nter VERCTR: dw 0000h ;verify c┆
0x06f420…06f440 74 72 2e 0d 0a 56 46 43 54 52 3a 09 64 73 09 32 09 3b 76 61 72 69 61 62 6c 65 20 66 69 65 6c 64 ┆tr. VFCTR: ds 2 ;variable field┆
0x06f440…06f460 20 63 6f 75 6e 74 65 72 0d 0a 56 46 50 43 54 52 3a 09 64 73 09 32 09 3b 76 61 72 69 61 62 6c 65 ┆ counter VFPCTR: ds 2 ;variable┆
0x06f460…06f480 20 66 69 65 6c 64 20 70 6f 73 2e 20 63 6f 75 6e 74 65 72 0d 0a 56 52 54 43 54 52 3a 09 64 73 09 ┆ field pos. counter VRTCTR: ds ┆
0x06f480…06f4a0 31 09 3b 76 65 72 69 66 79 20 72 65 74 72 79 20 63 6f 75 6e 74 65 72 0d 0a 57 52 4b 46 42 41 3a ┆1 ;verify retry counter WRKFBA:┆
0x06f4a0…06f4c0 09 64 73 09 32 09 3b 77 6f 72 6b 69 6e 67 20 66 6f 72 6d 2e 20 62 75 66 66 65 72 20 61 64 64 72 ┆ ds 2 ;working form. buffer addr┆
0x06f4c0…06f4e0 65 73 73 0d 0a 57 52 4b 46 4e 4f 3a 09 64 73 09 32 09 3b 77 6f 72 6b 69 6e 67 20 66 69 65 6c 64 ┆ess WRKFNO: ds 2 ;working field┆
0x06f4e0…06f500 20 6e 75 6d 62 65 72 0d 0a 57 52 4b 4d 41 44 3a 09 64 73 09 32 09 3b 77 6f 72 6b 69 6e 67 20 6d ┆ number WRKMAD: ds 2 ;working m┆
0x06f500…06f700 (30, 0, 2) DataBlock {»FMSGTAB.MAC«}
0x06f700…06f720 (30, 0, 3) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x06f720…06f740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 ┆****************** ;* ┆
0x06f740…06f760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06f760…06f780 20 20 20 20 20 2a 0d 0a 3b 2a 09 4d 4f 44 55 4c 45 20 3a 20 46 4d 53 47 54 41 42 45 2e 4d 41 43 ┆ * ;* MODULE : FMSGTABE.MAC┆
0x06f780…06f7a0 20 20 20 20 20 20 28 52 43 2d 37 30 30 29 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 44 41 54 45 20 20 ┆ (RC-700) * ;* DATE ┆
0x06f7a0…06f7c0 20 3a 20 30 31 2e 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : 01.02.82 ┆
0x06f7c0…06f7e0 20 20 20 2a 0d 0a 3b 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 6d 62 48 20 2c 20 36 34 37 ┆ * ;* BY : ASE GmbH , 647┆
0x06f7e0…06f800 32 20 41 6c 74 65 6e 73 74 61 64 74 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 56 45 52 53 49 4f 4e 3a ┆2 Altenstadt * ;* VERSION:┆
0x06f800…06f820 20 31 2e 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1.90 ┆
0x06f820…06f840 20 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ;* ┆
0x06f840…06f860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a ┆ * ;*******┆
0x06f860…06f880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06f880…06f8a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 3b 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 50 ┆********** ; ; THE FOLLOWING P┆
0x06f8a0…06f8c0 52 4f 56 49 44 45 53 20 41 4c 4c 20 54 48 45 20 45 4e 47 4c 49 53 48 20 4d 45 53 53 41 47 45 53 ┆ROVIDES ALL THE ENGLISH MESSAGES┆
0x06f8c0…06f8e0 20 55 53 45 44 20 44 55 52 49 4e 47 20 0d 0a 3b 20 27 46 4f 52 4d 41 54 27 20 41 4e 44 20 27 46 ┆ USED DURING ; 'FORMAT' AND 'F┆
0x06f8e0…06f900 4f 52 4d 41 54 2d 55 50 44 41 54 45 27 20 4d 4f 44 45 2e 0d 0a 3b 20 45 41 43 48 20 4d 45 53 53 ┆ORMAT-UPDATE' MODE. ; EACH MESS┆
0x06f900…06fb00 (30, 0, 4) DataBlock {»EMSGTAB.MAC«}
0x06fb00…06fd00 (30, 0, 5) 0xe5[0x200]
0x06fd00…06ff00 (30, 0, 6) DataBlock {»FMSGTAB.MAC«}
0x06ff00…06ff20 (30, 0, 7) 41 47 45 20 43 4f 4e 53 49 53 54 53 20 4f 46 20 33 32 20 50 4f 53 49 54 49 4f 4e 53 20 41 4e 44 ┆AGE CONSISTS OF 32 POSITIONS AND┆
0x06ff20…06ff40 20 57 49 4c 4c 20 42 45 20 44 49 53 50 4c 41 59 45 44 20 41 53 0d 0a 3b 20 4e 45 45 44 45 44 20 ┆ WILL BE DISPLAYED AS ; NEEDED ┆
0x06ff40…06ff60 49 4e 20 54 48 45 20 43 45 4e 54 45 52 20 4f 46 20 4c 49 4e 45 20 32 35 2e 0d 0a 3b 20 54 48 45 ┆IN THE CENTER OF LINE 25. ; THE┆
0x06ff60…06ff80 20 53 45 51 55 45 4e 43 45 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 53 20 4d 55 53 54 20 4e ┆ SEQUENCE OF THE MESSAGES MUST N┆
0x06ff80…06ffa0 4f 54 20 42 45 20 44 49 53 54 55 52 42 45 44 2e 0d 0a 3b 20 41 4c 53 4f 20 54 48 45 20 4c 45 4e ┆OT BE DISTURBED. ; ALSO THE LEN┆
0x06ffa0…06ffc0 47 54 48 20 4f 46 20 54 48 45 20 4d 45 53 53 41 47 45 53 20 4d 55 53 54 20 42 45 20 4c 49 4d 49 ┆GTH OF THE MESSAGES MUST BE LIMI┆
0x06ffc0…06ffe0 54 45 44 20 54 4f 20 33 32 20 42 59 54 45 53 20 45 41 43 48 2e 0d 0a 3b 0d 0a 09 50 55 42 4c 49 ┆TED TO 32 BYTES EACH. ; PUBLI┆
0x06ffe0…070000 43 09 4d 53 47 54 41 42 0d 0a 3b 0d 0a 4d 53 47 54 41 42 3a 09 64 62 09 22 20 20 20 20 20 20 20 ┆C MSGTAB ; MSGTAB: db " ┆
0x070000…070020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 62 6c 61 6e 6b ┆ ";blank┆
0x070020…070040 20 6d 65 73 73 61 67 65 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 ┆ message db " FORMAT ┆
0x070040…070060 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 20 4e 4f 20 45 4e 44 ┆ERROR " db " NO END┆
0x070060…070080 2d 4f 46 2d 46 4f 52 4d 41 54 20 43 48 41 52 41 43 54 45 52 20 20 20 22 0d 0a 09 64 62 09 22 20 ┆-OF-FORMAT CHARACTER " db " ┆
0x070080…0700a0 20 20 20 20 20 20 20 20 20 45 4e 54 45 52 20 46 4f 52 4d 41 54 20 20 20 20 20 20 20 20 20 20 22 ┆ ENTER FORMAT "┆
0x0700a0…0700c0 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 43 4f 4d 50 4c 45 54 45 20 ┆ db " FORMAT COMPLETE ┆
0x0700c0…0700e0 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 4e 4f 2e 20 4f 46 20 56 41 52 49 41 42 4c 45 ┆ " db " NO. OF VARIABLE┆
0x0700e0…070100 20 46 49 45 4c 44 53 20 3e 20 31 32 35 20 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 20 45 4e 44 ┆ FIELDS > 125 " db " END┆
0x070100…070300 (30, 0, 8) DataBlock {»EMSGTAB.MAC«}
0x070300…070500 (30, 0, 9) 0xe5[0x200]
0x070500…070600 (30, 0, 10) DataBlock {»FMSGTAB.MAC«}
0x070600…070620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 62 6c 61 6e 6b 20 ┆ ";blank ┆
0x070620…070640 6d 65 73 73 61 67 65 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 46 ┆message db " FORMAT F┆
0x070640…070660 45 48 4c 45 52 20 20 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 4b 45 49 4e 20 46 4f 52 ┆EHLER " db " KEIN FOR┆
0x070660…070680 4d 41 54 45 4e 44 45 20 28 45 29 20 47 45 46 55 4e 44 45 4e 20 20 22 0d 0a 09 44 42 09 22 20 20 ┆MATENDE (E) GEFUNDEN " DB " ┆
0x070680…0706a0 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 45 49 4e 47 45 42 45 4e 20 20 20 20 20 20 20 20 22 0d ┆ FORMAT EINGEBEN " ┆
0x0706a0…0706c0 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 4b 4f 4d 50 4c 45 54 54 20 20 ┆ db " FORMAT KOMPLETT ┆
0x0706c0…0706e0 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 41 4e 5a 41 48 4c 20 56 41 52 49 41 42 4c 45 20 ┆ " db " ANZAHL VARIABLE ┆
0x0706e0…070700 46 45 4c 44 45 52 20 3e 20 31 32 35 20 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 45 4e 44 45 20 ┆FELDER > 125 " db " ENDE ┆
0x070700…070720 (30, 0, 11) 20 4f 46 20 46 4f 52 4d 41 54 2d 45 4e 54 52 59 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 ┆ OF FORMAT-ENTRY " db " ┆
0x070720…070740 20 20 20 20 20 20 20 49 4c 4c 45 47 41 4c 20 46 55 4e 43 54 49 4f 4e 20 20 20 20 20 20 20 20 22 ┆ ILLEGAL FUNCTION "┆
0x070740…070760 0d 0a 09 64 62 09 22 45 4e 54 45 52 20 46 49 45 4c 44 2d 53 45 43 55 52 49 54 59 2d 42 59 54 45 ┆ db "ENTER FIELD-SECURITY-BYTE┆
0x070760…070780 20 28 46 53 42 29 20 22 0d 0a 09 64 62 09 22 46 53 42 20 30 31 2d 30 36 2c 31 31 2d 31 36 2c 32 ┆ (FSB) " db "FSB 01-06,11-16,2┆
0x070780…0707a0 31 2d 32 36 2c 33 31 2d 33 36 20 2d 2d 3e 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 50 ┆1-26,31-36 --> " db " P┆
0x0707a0…0707c0 52 49 4e 54 49 4e 47 20 46 4f 52 4d 41 54 20 20 20 20 20 20 20 20 20 22 0d 0a 09 45 4e 44 0d 0a ┆RINTING FORMAT " END ┆
0x0707c0…0707e0 3b 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆; ┆
0x0707e0…070800 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x070800…070820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 62 6c 61 6e 6b ┆ ";blank┆
0x070820…070840 20 6d 65 73 73 61 67 65 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 ┆ message db " FORMAT ┆
0x070840…070860 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 20 4e 4f 20 45 4e 44 ┆ERROR " db " NO END┆
0x070860…070880 2d 4f 46 2d 46 4f 52 4d 41 54 20 43 48 41 52 41 43 54 45 52 20 20 20 22 0d 0a 09 64 62 09 22 20 ┆-OF-FORMAT CHARACTER " db " ┆
0x070880…0708a0 20 20 20 20 20 20 20 20 20 45 4e 54 45 52 20 46 4f 52 4d 41 54 20 20 20 20 20 20 20 20 20 20 22 ┆ ENTER FORMAT "┆
0x0708a0…0708c0 0d 0a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 46 4f 52 4d 41 54 20 43 4f 4d 50 4c 45 54 45 20 ┆ db " FORMAT COMPLETE ┆
0x0708c0…0708e0 20 20 20 20 20 20 20 22 0d 0a 09 64 62 09 22 20 20 4e 4f 2e 20 4f 46 20 56 41 52 49 41 42 4c 45 ┆ " db " NO. OF VARIABLE┆
0x0708e0…070900 20 46 49 45 4c 44 53 20 3e 20 31 32 35 20 20 22 0d 0a 09 64 62 09 22 20 20 20 20 20 20 45 4e 44 ┆ FIELDS > 125 " db " END┆
0x070900…070a00 (30, 0, 12) DataBlock {»EMSGTAB.MAC«}
0x070a00…070a20 33 3a 20 09 64 62 09 22 20 20 20 20 20 20 20 20 20 45 49 4e 47 41 42 45 46 45 48 4c 45 52 20 20 ┆3: db " EINGABEFEHLER ┆
0x070a20…070a40 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 34 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 20 ┆ " msg4: db " ┆
0x070a40…070a60 46 4f 52 4d 41 54 57 41 48 4c 20 2d 2d 2d 2d 2d 2d 2d 2d 3e 20 22 0d 0a 6d 73 67 35 3a 09 64 62 ┆FORMATWAHL --------> " msg5: db┆
0x070a60…070a80 09 22 20 20 20 20 20 20 20 20 20 45 49 4e 47 41 42 45 20 20 42 45 52 45 49 54 20 20 20 20 20 20 ┆ " EINGABE BEREIT ┆
0x070a80…070aa0 20 20 22 0d 0a 6d 73 67 36 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 45 4e 44 45 20 44 45 52 ┆ " msg6: db " ENDE DER┆
0x070aa0…070ac0 20 41 52 42 45 49 54 20 20 20 20 20 20 20 20 22 0d 0a 6d 73 67 37 3a 09 64 62 09 22 20 20 20 20 ┆ ARBEIT " msg7: db " ┆
0x070ac0…070ae0 20 20 20 20 50 52 55 45 46 5a 49 46 46 45 52 46 45 48 4c 45 52 20 20 20 20 20 20 20 22 0d 0a 6d ┆ PRUEFZIFFERFEHLER " m┆
0x070ae0…070b00 73 67 38 3a 09 64 62 09 22 20 20 20 20 20 20 20 20 20 20 44 52 55 43 4b 41 55 53 47 41 42 45 20 ┆sg8: db " DRUCKAUSGABE ┆
0x070b00…070d00 (30, 0, 13) 0xe5[0x200]
[…0x3…]
0x071300…071320 (30, 1, 2) 0a 09 65 78 74 09 49 4c 4c 46 52 4d 0d 0a 09 65 78 74 09 43 48 52 52 44 0d 0a 09 65 78 74 09 43 ┆ ext ILLFRM ext CHRRD ext C┆
0x071320…071340 48 4b 42 54 45 0d 0a 09 65 78 74 09 4e 58 54 46 44 42 0d 0a 09 65 78 74 09 45 46 4f 46 4c 47 0d ┆HKBTE ext NXTFDB ext EFOFLG ┆
0x071340…071360 0a 09 65 78 74 09 45 4e 44 46 52 4d 0d 0a 09 65 78 74 09 42 43 50 43 54 52 0d 0a 09 65 78 74 09 ┆ ext ENDFRM ext BCPCTR ext ┆
0x071360…071380 44 45 4d 4f 44 45 0d 0a 09 65 78 74 09 55 42 46 41 44 44 0d 0a 09 65 78 74 09 49 4e 42 55 46 46 ┆DEMODE ext UBFADD ext INBUFF┆
0x071380…0713a0 0d 0a 09 65 78 74 09 46 4d 54 49 4e 54 0d 0a 09 65 78 74 09 44 45 4c 52 45 43 0d 0a 09 65 78 74 ┆ ext FMTINT ext DELREC ext┆
0x0713a0…0713c0 09 43 42 57 46 4c 47 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 09 44 55 50 46 4c ┆ CBWFLG ext FTMFLG ext DUPFL┆
0x0713c0…0713e0 47 0d 0a 09 65 78 74 09 46 52 4d 43 48 4e 0d 0a 09 65 78 74 09 45 45 52 43 54 52 0d 0a 09 65 78 ┆G ext FRMCHN ext EERCTR ex┆
0x0713e0…071400 74 09 56 45 52 43 54 52 0d 0a 09 65 78 74 09 4e 4b 45 43 54 52 0d 0a 09 65 78 74 09 4e 4b 56 43 ┆t VERCTR ext NKECTR ext NKVC┆
0x071400…071420 54 52 0d 0a 09 65 78 74 09 46 4e 43 46 4c 47 0d 0a 09 65 78 74 09 56 52 54 43 54 52 0d 0a 09 65 ┆TR ext FNCFLG ext VRTCTR e┆
0x071420…071440 78 74 09 56 43 52 43 54 52 0d 0a 09 65 78 74 09 46 4d 46 46 4c 47 0d 0a 09 65 78 74 09 46 49 4c ┆xt VCRCTR ext FMFFLG ext FIL┆
0x071440…071460 43 54 52 0d 0a 09 65 78 74 09 52 45 43 42 57 44 0d 0a 09 65 78 74 09 52 45 43 41 44 56 0d 0a 09 ┆CTR ext RECBWD ext RECADV ┆
0x071460…071480 65 78 74 09 49 4e 53 52 43 44 0d 0a 09 65 78 74 09 45 4f 46 50 52 43 0d 0a 09 65 78 74 09 52 41 ┆ext INSRCD ext EOFPRC ext RA┆
0x071480…0714a0 43 48 4b 0d 0a 09 65 78 74 09 52 45 47 50 52 43 0d 0a 09 65 78 74 09 52 45 47 46 4c 47 0d 0a 09 ┆CHK ext REGPRC ext REGFLG ┆
0x0714a0…0714c0 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 51 46 4c 44 0d 0a 09 65 78 74 09 54 46 4c 44 ┆ext INCCRS ext QFLD ext TFLD┆
0x0714c0…0714e0 0d 0a 09 65 78 74 09 4d 4c 4e 46 4c 47 0d 0a 09 65 78 74 09 41 55 54 49 4e 43 0d 0a 09 65 78 74 ┆ ext MLNFLG ext AUTINC ext┆
0x0714e0…071500 09 44 53 50 43 44 0d 0a 09 65 78 74 09 43 48 52 43 4e 56 0d 0a 09 65 78 74 09 53 47 4e 43 48 4b ┆ DSPCD ext CHRCNV ext SGNCHK┆
0x071500…071700 (30, 1, 3) 0xe5[0x200]
0x071700…071720 (30, 1, 4) 0d 0a 09 65 78 74 09 46 4c 44 42 57 44 0d 0a 09 65 78 74 09 58 46 4d 54 0d 0a 09 65 78 74 09 56 ┆ ext FLDBWD ext XFMT ext V┆
0x071720…071740 46 50 43 54 52 0d 0a 09 65 78 74 09 45 4e 54 43 50 4c 0d 0a 09 65 78 74 09 56 46 43 54 52 0d 0a ┆FPCTR ext ENTCPL ext VFCTR ┆
0x071740…071760 09 65 78 74 09 46 52 4d 43 50 4c 0d 0a 09 65 78 74 09 49 4c 4c 46 4e 4f 0d 0a 09 65 78 74 09 46 ┆ ext FRMCPL ext ILLFNO ext F┆
0x071760…071780 42 46 41 44 44 0d 0a 09 65 78 74 09 53 4f 46 55 42 41 0d 0a 09 65 78 74 09 43 42 46 41 44 44 0d ┆BFADD ext SOFUBA ext CBFADD ┆
0x071780…0717a0 0a 09 65 78 74 09 53 4f 46 43 42 41 0d 0a 09 65 78 74 09 42 46 4e 4f 0d 0a 09 65 78 74 09 46 50 ┆ ext SOFCBA ext BFNO ext FP┆
0x0717a0…0717c0 54 54 41 42 0d 0a 09 65 78 74 09 53 4f 46 46 42 41 0d 0a 09 65 78 74 09 49 4e 43 43 52 53 0d 0a ┆TTAB ext SOFFBA ext INCCRS ┆
0x0717c0…0717e0 09 65 78 74 09 41 4c 4c 49 4e 43 0d 0a 09 65 78 74 09 44 53 50 4d 53 47 0d 0a 09 65 78 74 09 47 ┆ ext ALLINC ext DSPMSG ext G┆
0x0717e0…071800 45 4e 46 53 42 0d 0a 09 65 78 74 09 49 4c 4c 46 52 4d 0d 0a 09 65 78 74 09 43 48 52 52 44 0d 0a ┆ENFSB ext ILLFRM ext CHRRD ┆
0x071800…071820 09 65 78 74 09 43 48 4b 42 54 45 0d 0a 09 65 78 74 09 4e 58 54 46 44 42 0d 0a 09 65 78 74 09 45 ┆ ext CHKBTE ext NXTFDB ext E┆
0x071820…071840 46 4f 46 4c 47 0d 0a 09 65 78 74 09 45 4e 44 46 52 4d 0d 0a 09 65 78 74 09 42 43 50 43 54 52 0d ┆FOFLG ext ENDFRM ext BCPCTR ┆
0x071840…071860 0a 09 65 78 74 09 44 45 4d 4f 44 45 0d 0a 09 65 78 74 09 55 42 46 41 44 44 0d 0a 09 65 78 74 09 ┆ ext DEMODE ext UBFADD ext ┆
0x071860…071880 49 4e 42 55 46 46 0d 0a 09 65 78 74 09 46 4d 54 49 4e 54 0d 0a 09 65 78 74 09 44 45 4c 52 45 43 ┆INBUFF ext FMTINT ext DELREC┆
0x071880…0718a0 0d 0a 09 65 78 74 09 43 42 57 46 4c 47 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 ┆ ext CBWFLG ext FTMFLG ext┆
0x0718a0…0718c0 09 44 55 50 46 4c 47 0d 0a 09 65 78 74 09 46 52 4d 43 48 4e 0d 0a 09 65 78 74 09 45 45 52 43 54 ┆ DUPFLG ext FRMCHN ext EERCT┆
0x0718c0…0718e0 52 0d 0a 09 65 78 74 09 56 45 52 43 54 52 0d 0a 09 65 78 74 09 4e 4b 45 43 54 52 0d 0a 09 65 78 ┆R ext VERCTR ext NKECTR ex┆
0x0718e0…071900 74 09 4e 4b 56 43 54 52 0d 0a 09 65 78 74 09 46 4e 43 46 4c 47 0d 0a 09 65 78 74 09 56 52 54 43 ┆t NKVCTR ext FNCFLG ext VRTC┆
0x071900…071920 (30, 1, 5) 3b 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 20 61 6c 6c 20 74 68 65 20 50 55 42 4c 49 ┆;the following are all the PUBLI┆
0x071920…071940 43 20 61 6e 64 20 45 58 54 45 52 4e 41 4c 20 73 74 61 74 65 6d 65 6e 74 73 20 74 6f 20 74 68 65 ┆C and EXTERNAL statements to the┆
0x071940…071960 20 0d 0a 3b 45 45 4e 54 52 59 2e 4d 41 43 20 6d 6f 64 75 6c 65 2e 0d 0a 3b 0d 0a 3b 0d 0a 3b 0d ┆ ;EENTRY.MAC module. ; ; ; ┆
0x071960…071980 0a 09 50 55 42 4c 49 43 09 45 4e 54 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 4e 54 52 59 0d 0a ┆ PUBLIC ENTFLG PUBLIC ENTRY ┆
0x071980…0719a0 09 50 55 42 4c 49 43 09 46 4d 54 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 54 42 4d 53 4b 0d 0a ┆ PUBLIC FMTCHK PUBLIC STBMSK ┆
0x0719a0…0719c0 09 50 55 42 4c 49 43 09 43 4c 52 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 43 4c 42 4d 53 4b 0d 0a ┆ PUBLIC CLRFLG PUBLIC CLBMSK ┆
0x0719c0…0719e0 09 50 55 42 4c 49 43 09 43 4c 52 4d 53 4b 0d 0a 09 50 55 42 4c 49 43 09 44 55 50 42 46 46 0d 0a ┆ PUBLIC CLRMSK PUBLIC DUPBFF ┆
0x0719e0…071a00 09 50 55 42 4c 49 43 09 55 50 44 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 4f 46 4c 44 0d 0a 09 ┆ PUBLIC UPDFLG PUBLIC EOFLD ┆
0x071a00…071a20 50 55 42 4c 49 43 09 4b 45 59 45 52 33 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 31 0d 0a 09 ┆PUBLIC KEYER3 PUBLIC SVEBF1 ┆
0x071a20…071a40 50 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 46 0d 0a 09 ┆PUBLIC REGCHK PUBLIC SVEBFF ┆
0x071a40…071a60 50 55 42 4c 49 43 09 54 53 54 46 44 42 0d 0a 09 50 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 ┆PUBLIC TSTFDB PUBLIC REGCHK ┆
0x071a60…071a80 50 55 42 4c 49 43 09 53 56 45 42 46 32 0d 0a 09 50 55 42 4c 49 43 09 43 41 56 46 4c 47 0d 0a 09 ┆PUBLIC SVEBF2 PUBLIC CAVFLG ┆
0x071a80…071aa0 50 55 42 4c 49 43 09 55 50 44 4d 31 35 0d 0a 09 50 55 42 4c 49 43 09 56 43 52 46 4c 47 0d 0a 09 ┆PUBLIC UPDM15 PUBLIC VCRFLG ┆
0x071aa0…071ac0 50 55 42 4c 49 43 09 4d 49 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 46 54 46 4c 47 0d 0a 09 ┆PUBLIC MINFLG PUBLIC EFTFLG ┆
0x071ac0…071ae0 50 55 42 4c 49 43 09 4b 45 59 45 52 37 0d 0a 09 50 55 42 4c 49 43 09 43 42 57 44 34 0d 0a 09 50 ┆PUBLIC KEYER7 PUBLIC CBWD4 P┆
0x071ae0…071b00 55 42 4c 49 43 09 52 53 54 42 46 46 0d 0a 09 50 55 42 4c 49 43 09 4e 58 54 4c 50 45 0d 0a 09 50 ┆UBLIC RSTBFF PUBLIC NXTLPE P┆
0x071b00…071b20 (30, 1, 6) 0d 0a 09 65 78 74 09 53 47 4e 53 45 54 0d 0a 09 65 78 74 09 5a 4e 53 47 4e 0d 0a 09 65 78 74 09 ┆ ext SGNSET ext ZNSGN ext ┆
0x071b20…071b40 44 53 50 52 45 47 0d 0a 09 65 78 74 09 46 43 4f 52 52 0d 0a 09 65 78 74 09 56 43 52 50 53 53 0d ┆DSPREG ext FCORR ext VCRPSS ┆
0x071b40…071b60 0a 09 65 78 74 09 50 46 32 46 4c 47 0d 0a 09 65 78 74 09 44 53 50 49 4e 46 0d 0a 09 65 78 74 09 ┆ ext PF2FLG ext DSPINF ext ┆
0x071b60…071b80 4b 45 59 46 4c 47 0d 0a 09 65 78 74 09 53 4f 4b 42 42 41 0d 0a 09 65 78 74 09 41 54 54 42 59 54 ┆KEYFLG ext SOKBBA ext ATTBYT┆
0x071b80…071ba0 0d 0a 09 65 78 74 09 41 54 54 53 56 45 0d 0a 09 65 78 74 09 42 4c 49 4e 49 54 0d 0a 09 65 78 74 ┆ ext ATTSVE ext BLINIT ext┆
0x071ba0…071bc0 09 42 4c 4d 56 45 0d 0a 09 65 78 74 09 41 54 54 43 48 4b 0d 0a 09 65 78 74 09 63 6f 0d 0a 09 65 ┆ BLMVE ext ATTCHK ext co e┆
0x071bc0…071be0 78 74 09 43 4f 4e 53 54 0d 0a 09 65 78 74 09 53 47 4e 43 48 4b 0d 0a 09 65 78 74 09 53 47 4e 44 ┆xt CONST ext SGNCHK ext SGND┆
0x071be0…071c00 47 54 0d 0a 09 65 78 74 09 53 52 4e 4f 53 54 0d 0a 09 65 78 74 09 4f 42 46 4e 4f 0d 0a 3b 0d 0a ┆GT ext SRNOST ext OBFNO ; ┆
0x071c00…071c20 3b 65 6e 64 20 6f 66 20 66 69 6c 65 2e 0d 0a 3b 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆;end of file. ; ┆
0x071c20…071c40 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x071c80…071ca0 43 48 4b 0d 0a 09 65 78 74 09 52 45 47 50 52 43 0d 0a 09 65 78 74 09 52 45 47 46 4c 47 0d 0a 09 ┆CHK ext REGPRC ext REGFLG ┆
0x071ca0…071cc0 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 51 46 4c 44 0d 0a 09 65 78 74 09 54 46 4c 44 ┆ext INCCRS ext QFLD ext TFLD┆
0x071cc0…071ce0 0d 0a 09 65 78 74 09 4d 4c 4e 46 4c 47 0d 0a 09 65 78 74 09 41 55 54 49 4e 43 0d 0a 09 65 78 74 ┆ ext MLNFLG ext AUTINC ext┆
0x071ce0…071d00 09 44 53 50 43 44 0d 0a 09 65 78 74 09 43 48 52 43 4e 56 0d 0a 09 65 78 74 09 53 47 4e 43 48 4b ┆ DSPCD ext CHRCNV ext SGNCHK┆
0x071d00…071d20 (30, 1, 7) 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x071d20…071d40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 ┆****************** ;* ┆
0x071d40…071d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x071d60…071d80 20 20 20 20 20 2a 0d 0a 3b 2a 09 4d 4f 44 55 4c 45 20 3a 20 45 50 55 42 2f 45 58 54 2e 4d 41 43 ┆ * ;* MODULE : EPUB/EXT.MAC┆
0x071d80…071da0 20 20 20 20 20 20 28 52 43 2d 37 30 30 29 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 44 41 54 45 20 20 ┆ (RC-700) * ;* DATE ┆
0x071da0…071dc0 20 3a 20 30 31 2e 30 32 2e 38 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : 01.02.82 ┆
0x071dc0…071de0 20 20 20 2a 0d 0a 3b 2a 09 42 59 20 20 20 20 20 3a 20 41 53 45 20 47 6d 62 48 20 2c 20 36 34 37 ┆ * ;* BY : ASE GmbH , 647┆
0x071de0…071e00 32 20 41 6c 74 65 6e 73 74 61 64 74 20 20 20 20 20 20 2a 0d 0a 3b 2a 09 56 45 52 53 49 4f 4e 3a ┆2 Altenstadt * ;* VERSION:┆
0x071e00…071e20 20 31 2e 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1.90 ┆
0x071e20…071e40 20 2a 0d 0a 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ;* ┆
0x071e40…071e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a ┆ * ;*******┆
0x071e60…071e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x071e80…071ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 0d 0a 3b 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 ┆********** ; ;the following ar┆
0x071ea0…071ec0 65 20 61 6c 6c 20 74 68 65 20 50 55 42 4c 49 43 20 61 6e 64 20 45 58 54 45 52 4e 41 4c 20 73 74 ┆e all the PUBLIC and EXTERNAL st┆
0x071ec0…071ee0 61 74 65 6d 65 6e 74 73 20 74 6f 20 74 68 65 20 0d 0a 3b 45 45 4e 54 52 59 2e 4d 41 43 20 6d 6f ┆atements to the ;EENTRY.MAC mo┆
0x071ee0…071f00 64 75 6c 65 2e 0d 0a 3b 0d 0a 3b 0d 0a 3b 0d 0a 09 50 55 42 4c 49 43 09 45 4e 54 46 4c 47 0d 0a ┆dule. ; ; ; PUBLIC ENTFLG ┆
0x071f00…071f20 (30, 1, 8) 54 52 0d 0a 09 65 78 74 09 56 43 52 43 54 52 0d 0a 09 65 78 74 09 46 4d 46 46 4c 47 0d 0a 09 65 ┆TR ext VCRCTR ext FMFFLG e┆
0x071f20…071f40 78 74 09 46 49 4c 43 54 52 0d 0a 09 65 78 74 09 52 45 43 42 57 44 0d 0a 09 65 78 74 09 52 45 43 ┆xt FILCTR ext RECBWD ext REC┆
0x071f40…071f60 41 44 56 0d 0a 09 65 78 74 09 49 4e 53 52 43 44 0d 0a 09 65 78 74 09 45 4f 46 50 52 43 0d 0a 09 ┆ADV ext INSRCD ext EOFPRC ┆
0x071f60…071f80 65 78 74 09 52 41 43 48 4b 0d 0a 09 65 78 74 09 52 45 47 50 52 43 0d 0a 09 65 78 74 09 52 45 47 ┆ext RACHK ext REGPRC ext REG┆
0x071f80…071fa0 46 4c 47 0d 0a 09 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 51 46 4c 44 0d 0a 09 65 78 ┆FLG ext INCCRS ext QFLD ex┆
0x071fa0…071fc0 74 09 54 46 4c 44 0d 0a 09 65 78 74 09 4d 4c 4e 46 4c 47 0d 0a 09 65 78 74 09 41 55 54 49 4e 43 ┆t TFLD ext MLNFLG ext AUTINC┆
0x071fc0…071fe0 0d 0a 09 65 78 74 09 44 53 50 43 44 0d 0a 09 65 78 74 09 43 48 52 43 4e 56 0d 0a 09 65 78 74 09 ┆ ext DSPCD ext CHRCNV ext ┆
0x071fe0…072000 53 47 4e 43 48 4b 0d 0a 09 65 78 74 09 53 47 4e 53 45 54 0d 0a 09 65 78 74 09 5a 4e 53 47 4e 0d ┆SGNCHK ext SGNSET ext ZNSGN ┆
0x072000…072020 0a 09 65 78 74 09 44 53 50 52 45 47 0d 0a 09 65 78 74 09 46 43 4f 52 52 0d 0a 09 65 78 74 09 56 ┆ ext DSPREG ext FCORR ext V┆
0x072020…072040 43 52 50 53 53 0d 0a 09 65 78 74 09 50 46 32 46 4c 47 0d 0a 09 65 78 74 09 43 4f 4e 53 54 0d 0a ┆CRPSS ext PF2FLG ext CONST ┆
0x072040…072060 09 65 78 74 09 63 6f 0d 0a 3b 0d 0a 3b 65 6e 64 20 6f 66 20 66 69 6c 65 2e 0d 0a 3b 0d 0a 1a 1a ┆ ext co ; ;end of file. ; ┆
0x072060…072080 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x072080…0720a0 0d 0a 09 65 78 74 09 43 42 57 46 4c 47 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 ┆ ext CBWFLG ext FTMFLG ext┆
0x0720a0…0720c0 09 44 55 50 46 4c 47 0d 0a 09 65 78 74 09 46 52 4d 43 48 4e 0d 0a 09 65 78 74 09 45 45 52 43 54 ┆ DUPFLG ext FRMCHN ext EERCT┆
0x0720c0…0720e0 52 0d 0a 09 65 78 74 09 56 45 52 43 54 52 0d 0a 09 65 78 74 09 4e 4b 45 43 54 52 0d 0a 09 65 78 ┆R ext VERCTR ext NKECTR ex┆
0x0720e0…072100 74 09 4e 4b 56 43 54 52 0d 0a 09 65 78 74 09 46 4e 43 46 4c 47 0d 0a 09 65 78 74 09 56 52 54 43 ┆t NKVCTR ext FNCFLG ext VRTC┆
0x072100…072120 (30, 1, 9) 55 42 4c 49 43 09 4d 46 4c 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 4b 52 52 41 43 0d 0a 09 50 ┆UBLIC MFLCHK PUBLIC SKRRAC P┆
0x072120…072140 55 42 4c 49 43 09 44 55 50 46 4c 44 0d 0a 09 50 55 42 4c 49 43 09 53 45 54 4d 53 47 09 0d 0a 09 ┆UBLIC DUPFLD PUBLIC SETMSG ┆
0x072140…072160 50 55 42 4c 49 43 09 46 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 4b 45 59 45 52 52 0d 0a 09 50 ┆PUBLIC FNFLG PUBLIC KEYERR P┆
0x072160…072180 55 42 4c 49 43 09 42 52 46 4c 44 0d 0a 09 50 55 42 4c 49 43 09 4b 45 51 46 4c 47 0d 0a 09 50 55 ┆UBLIC BRFLD PUBLIC KEQFLG PU┆
0x072180…0721a0 42 4c 49 43 09 4b 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 44 54 45 46 4c 47 0d 0a 09 50 55 42 ┆BLIC KNFLG PUBLIC DTEFLG PUB┆
0x0721a0…0721c0 4c 49 43 09 46 30 33 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 46 30 34 46 4c 47 0d 0a 09 50 55 42 ┆LIC F03FLG PUBLIC F04FLG PUB┆
0x0721c0…0721e0 4c 49 43 09 54 41 42 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 54 42 46 4e 4f 0d 0a 09 50 55 42 4c ┆LIC TABFLG PUBLIC TBFNO PUBL┆
0x0721e0…072200 49 43 09 54 41 42 31 33 0d 0a 09 50 55 42 4c 49 43 09 54 41 42 0d 0a 09 50 55 42 4c 49 43 09 46 ┆IC TAB13 PUBLIC TAB PUBLIC F┆
0x072200…072220 4c 44 5a 52 4f 0d 0a 09 50 55 42 4c 49 43 09 5a 56 50 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 ┆LDZRO PUBLIC ZVPFLG PUBLIC E┆
0x072220…072240 46 52 43 48 44 0d 0a 09 50 55 42 4c 49 43 09 55 50 44 4d 31 39 0d 0a 09 50 55 42 4c 49 43 09 53 ┆FRCHD PUBLIC UPDM19 PUBLIC S┆
0x072240…072260 4b 49 50 0d 0a 3b 0d 0a 09 65 78 74 09 52 30 46 4c 47 0d 0a 09 65 78 74 09 52 31 46 4c 47 0d 0a ┆KIP ; ext R0FLG ext R1FLG ┆
0x072260…072280 09 65 78 74 09 52 32 46 4c 47 0d 0a 09 65 78 74 09 52 33 46 4c 47 0d 0a 09 65 78 74 09 52 34 46 ┆ ext R2FLG ext R3FLG ext R4F┆
0x072280…0722a0 4c 47 0d 0a 09 65 78 74 09 52 35 46 4c 47 0d 0a 09 65 78 74 09 52 36 46 4c 47 0d 0a 09 65 78 74 ┆LG ext R5FLG ext R6FLG ext┆
0x0722a0…0722c0 09 52 37 46 4c 47 0d 0a 09 65 78 74 09 52 38 46 4c 47 0d 0a 09 65 78 74 09 52 39 46 4c 47 0d 0a ┆ R7FLG ext R8FLG ext R9FLG ┆
0x0722c0…0722e0 09 65 78 74 09 52 31 30 46 4c 47 0d 0a 09 65 78 74 09 52 31 31 46 4c 47 0d 0a 09 65 78 74 09 52 ┆ ext R10FLG ext R11FLG ext R┆
0x0722e0…072300 31 32 46 4c 47 0d 0a 09 65 78 74 09 52 31 33 46 4c 47 0d 0a 09 65 78 74 09 52 31 34 46 4c 47 0d ┆12FLG ext R13FLG ext R14FLG ┆
0x072300…072500 (30, 1, 10) 0xe5[0x200]
0x072500…072520 (30, 1, 11) 09 50 55 42 4c 49 43 09 45 4e 54 52 59 0d 0a 09 50 55 42 4c 49 43 09 46 4d 54 43 48 4b 0d 0a 09 ┆ PUBLIC ENTRY PUBLIC FMTCHK ┆
0x072520…072540 50 55 42 4c 49 43 09 53 54 42 4d 53 4b 0d 0a 09 50 55 42 4c 49 43 09 43 4c 52 46 4c 47 0d 0a 09 ┆PUBLIC STBMSK PUBLIC CLRFLG ┆
0x072540…072560 50 55 42 4c 49 43 09 43 4c 42 4d 53 4b 0d 0a 09 50 55 42 4c 49 43 09 44 55 50 42 46 46 0d 0a 09 ┆PUBLIC CLBMSK PUBLIC DUPBFF ┆
0x072560…072580 50 55 42 4c 49 43 09 55 50 44 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 4f 46 4c 44 0d 0a 09 50 ┆PUBLIC UPDFLG PUBLIC EOFLD P┆
0x072580…0725a0 55 42 4c 49 43 09 4b 45 59 45 52 33 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 31 0d 0a 09 50 ┆UBLIC KEYER3 PUBLIC SVEBF1 P┆
0x0725a0…0725c0 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 56 45 42 46 46 0d 0a 09 50 ┆UBLIC REGCHK PUBLIC SVEBFF P┆
0x0725c0…0725e0 55 42 4c 49 43 09 54 53 54 46 44 42 0d 0a 09 50 55 42 4c 49 43 09 52 45 47 43 48 4b 0d 0a 09 50 ┆UBLIC TSTFDB PUBLIC REGCHK P┆
0x0725e0…072600 55 42 4c 49 43 09 53 56 45 42 46 32 0d 0a 09 50 55 42 4c 49 43 09 43 41 56 46 4c 47 0d 0a 09 50 ┆UBLIC SVEBF2 PUBLIC CAVFLG P┆
0x072600…072620 55 42 4c 49 43 09 55 50 44 4d 31 35 0d 0a 09 50 55 42 4c 49 43 09 56 43 52 46 4c 47 0d 0a 09 50 ┆UBLIC UPDM15 PUBLIC VCRFLG P┆
0x072620…072640 55 42 4c 49 43 09 4d 49 4e 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 45 46 54 46 4c 47 0d 0a 09 50 ┆UBLIC MINFLG PUBLIC EFTFLG P┆
0x072640…072660 55 42 4c 49 43 09 4b 45 59 45 52 37 0d 0a 09 50 55 42 4c 49 43 09 43 42 57 44 34 0d 0a 09 50 55 ┆UBLIC KEYER7 PUBLIC CBWD4 PU┆
0x072660…072680 42 4c 49 43 09 52 53 54 42 46 46 0d 0a 09 50 55 42 4c 49 43 09 4e 58 54 4c 50 45 0d 0a 09 50 55 ┆BLIC RSTBFF PUBLIC NXTLPE PU┆
0x072680…0726a0 42 4c 49 43 09 4d 46 4c 43 48 4b 0d 0a 09 50 55 42 4c 49 43 09 53 4b 52 52 41 43 0d 0a 09 50 55 ┆BLIC MFLCHK PUBLIC SKRRAC PU┆
0x0726a0…0726c0 42 4c 49 43 09 44 55 50 46 4c 44 0d 0a 09 50 55 42 4c 49 43 09 53 45 54 4d 53 47 09 0d 0a 09 50 ┆BLIC DUPFLD PUBLIC SETMSG P┆
0x0726c0…0726e0 55 42 4c 49 43 09 52 41 56 45 52 0d 0a 09 50 55 42 4c 49 43 09 46 4e 46 4c 47 0d 0a 09 50 55 42 ┆UBLIC RAVER PUBLIC FNFLG PUB┆
0x0726e0…072700 4c 49 43 09 4b 45 59 45 52 52 0d 0a 09 50 55 42 4c 49 43 09 42 52 46 4c 44 0d 0a 09 50 55 42 4c ┆LIC KEYERR PUBLIC BRFLD PUBL┆
0x072700…072900 (30, 1, 12) 0xe5[0x200]
0x072900…072920 (30, 1, 13) 0a 09 65 78 74 09 52 31 35 46 4c 47 0d 0a 09 65 78 74 09 52 31 36 46 4c 47 0d 0a 09 65 78 74 09 ┆ ext R15FLG ext R16FLG ext ┆
0x072920…072940 52 31 37 46 4c 47 0d 0a 09 65 78 74 09 52 31 38 46 4c 47 0d 0a 09 65 78 74 09 52 31 39 46 4c 47 ┆R17FLG ext R18FLG ext R19FLG┆
0x072940…072960 0d 0a 09 65 78 74 09 52 32 30 46 4c 47 0d 0a 09 65 78 74 09 52 32 31 46 4c 47 0d 0a 09 65 78 74 ┆ ext R20FLG ext R21FLG ext┆
0x072960…072980 09 52 32 32 46 4c 47 0d 0a 09 65 78 74 09 52 32 33 46 4c 47 0d 0a 09 65 78 74 09 52 32 34 46 4c ┆ R22FLG ext R23FLG ext R24FL┆
0x072980…0729a0 47 0d 0a 09 65 78 74 09 52 32 35 46 4c 47 0d 0a 09 65 78 74 09 4c 46 53 54 42 0d 0a 09 65 78 74 ┆G ext R25FLG ext LFSTB ext┆
0x0729a0…0729c0 09 46 44 42 54 41 42 0d 0a 09 65 78 74 09 55 53 52 41 42 54 0d 0a 09 65 78 74 09 45 4e 54 53 4e ┆ FDBTAB ext USRABT ext ENTSN┆
0x0729c0…0729e0 44 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 09 45 4e 54 48 4d 45 0d 0a 09 65 78 ┆D ext FTMFLG ext ENTHME ex┆
0x0729e0…072a00 74 09 43 46 4c 41 47 0d 0a 09 65 78 74 09 49 4e 54 46 4c 47 0d 0a 09 65 78 74 09 43 4c 44 45 46 ┆t CFLAG ext INTFLG ext CLDEF┆
0x072a00…072a20 0d 0a 09 65 78 74 09 41 55 54 46 4c 47 0d 0a 09 65 78 74 09 46 4c 44 41 44 56 0d 0a 09 65 78 74 ┆ ext AUTFLG ext FLDADV ext┆
0x072a20…072a40 09 46 4c 44 42 57 44 0d 0a 09 65 78 74 09 58 46 4d 54 0d 0a 09 65 78 74 09 56 46 50 43 54 52 0d ┆ FLDBWD ext XFMT ext VFPCTR ┆
0x072a40…072a60 0a 09 65 78 74 09 45 4e 54 43 50 4c 0d 0a 09 65 78 74 09 56 46 43 54 52 0d 0a 09 65 78 74 09 46 ┆ ext ENTCPL ext VFCTR ext F┆
0x072a60…072a80 52 4d 43 50 4c 0d 0a 09 65 78 74 09 49 4c 4c 46 4e 4f 0d 0a 09 65 78 74 09 46 42 46 41 44 44 0d ┆RMCPL ext ILLFNO ext FBFADD ┆
0x072a80…072aa0 0a 09 65 78 74 09 53 4f 46 55 42 41 0d 0a 09 65 78 74 09 43 42 46 41 44 44 0d 0a 09 65 78 74 09 ┆ ext SOFUBA ext CBFADD ext ┆
0x072aa0…072ac0 53 4f 46 43 42 41 0d 0a 09 65 78 74 09 42 46 4e 4f 0d 0a 09 65 78 74 09 46 50 54 54 41 42 0d 0a ┆SOFCBA ext BFNO ext FPTTAB ┆
0x072ac0…072ae0 09 65 78 74 09 53 4f 46 46 42 41 0d 0a 09 65 78 74 09 49 4e 43 43 52 53 0d 0a 09 65 78 74 09 41 ┆ ext SOFFBA ext INCCRS ext A┆
0x072ae0…072b00 4c 4c 49 4e 43 0d 0a 09 65 78 74 09 44 53 50 4d 53 47 0d 0a 09 65 78 74 09 47 45 4e 46 53 42 0d ┆LLINC ext DSPMSG ext GENFSB ┆
0x072b00…072d00 (30, 1, 14) 0xe5[0x200]
0x072d00…072d20 (30, 1, 15) 49 43 09 44 54 45 46 4c 47 0d 0a 09 50 55 42 4c 49 43 09 52 43 31 46 4c 47 0d 0a 09 50 55 42 4c ┆IC DTEFLG PUBLIC RC1FLG PUBL┆
0x072d20…072d40 49 43 09 52 43 32 46 4c 47 0d 0a 3b 0d 0a 09 65 78 74 09 52 30 46 4c 47 0d 0a 09 65 78 74 09 52 ┆IC RC2FLG ; ext R0FLG ext R┆
0x072d40…072d60 31 46 4c 47 0d 0a 09 65 78 74 09 52 32 46 4c 47 0d 0a 09 65 78 74 09 52 33 46 4c 47 0d 0a 09 65 ┆1FLG ext R2FLG ext R3FLG e┆
0x072d60…072d80 78 74 09 52 34 46 4c 47 0d 0a 09 65 78 74 09 52 35 46 4c 47 0d 0a 09 65 78 74 09 52 36 46 4c 47 ┆xt R4FLG ext R5FLG ext R6FLG┆
0x072d80…072da0 0d 0a 09 65 78 74 09 52 37 46 4c 47 0d 0a 09 65 78 74 09 52 38 46 4c 47 0d 0a 09 65 78 74 09 52 ┆ ext R7FLG ext R8FLG ext R┆
0x072da0…072dc0 39 46 4c 47 0d 0a 09 65 78 74 09 52 31 30 46 4c 47 0d 0a 09 65 78 74 09 52 31 31 46 4c 47 0d 0a ┆9FLG ext R10FLG ext R11FLG ┆
0x072dc0…072de0 09 65 78 74 09 52 31 32 46 4c 47 0d 0a 09 65 78 74 09 52 31 33 46 4c 47 0d 0a 09 65 78 74 09 52 ┆ ext R12FLG ext R13FLG ext R┆
0x072de0…072e00 31 34 46 4c 47 0d 0a 09 65 78 74 09 52 31 35 46 4c 47 0d 0a 09 65 78 74 09 52 31 36 46 4c 47 0d ┆14FLG ext R15FLG ext R16FLG ┆
0x072e00…072e20 0a 09 65 78 74 09 52 31 37 46 4c 47 0d 0a 09 65 78 74 09 52 31 38 46 4c 47 0d 0a 09 65 78 74 09 ┆ ext R17FLG ext R18FLG ext ┆
0x072e20…072e40 52 31 39 46 4c 47 0d 0a 09 65 78 74 09 52 32 30 46 4c 47 0d 0a 09 65 78 74 09 52 32 31 46 4c 47 ┆R19FLG ext R20FLG ext R21FLG┆
0x072e40…072e60 0d 0a 09 65 78 74 09 52 32 32 46 4c 47 0d 0a 09 65 78 74 09 52 32 33 46 4c 47 0d 0a 09 65 78 74 ┆ ext R22FLG ext R23FLG ext┆
0x072e60…072e80 09 52 32 34 46 4c 47 0d 0a 09 65 78 74 09 52 32 35 46 4c 47 0d 0a 09 65 78 74 09 4c 46 53 54 42 ┆ R24FLG ext R25FLG ext LFSTB┆
0x072e80…072ea0 0d 0a 09 65 78 74 09 46 44 42 54 41 42 0d 0a 09 65 78 74 09 55 53 52 41 42 54 0d 0a 09 65 78 74 ┆ ext FDBTAB ext USRABT ext┆
0x072ea0…072ec0 09 45 4e 54 53 4e 44 0d 0a 09 65 78 74 09 46 54 4d 46 4c 47 0d 0a 09 65 78 74 09 45 4e 54 48 4d ┆ ENTSND ext FTMFLG ext ENTHM┆
0x072ec0…072ee0 45 0d 0a 09 65 78 74 09 43 46 4c 41 47 0d 0a 09 65 78 74 09 49 4e 54 46 4c 47 0d 0a 09 65 78 74 ┆E ext CFLAG ext INTFLG ext┆
0x072ee0…072f00 09 43 4c 44 45 46 0d 0a 09 65 78 74 09 41 55 54 46 4c 47 0d 0a 09 65 78 74 09 46 4c 44 41 44 56 ┆ CLDEF ext AUTFLG ext FLDADV┆
0x072f00…073100 (31, 0, 1) 0xe5[0x200]
0x073100…073300 (31, 0, 2) DataBlock {»EGENSUB.MAC«}
[…0x2…]
0x073700…073900 (31, 0, 5) 0xe5[0x200]
0x073900…073b00 (31, 0, 6) DataBlock {»EGENSUB.MAC«}
[…0x1a…]
0x076f00…077100 (32, 0, 3) DataBlock {»EEOFPRC.MAC«}
[…0x1…]
0x077300…077500 (32, 0, 5) DataBlock {»EGENSUB.MAC«}
[…0x1…]
0x077700…077900 (32, 0, 7) DataBlock {»EEOFPRC.MAC«}
[…0x1…]
0x077b00…077d00 (32, 0, 9) DataBlock {»EGENSUB.MAC«}
[…0x1…]
0x077e00…077e20 0a 09 72 72 64 09 09 09 3b 0d 0a 09 61 64 64 09 61 2c 33 30 68 09 09 3b 0d 0a 09 6c 64 09 28 69 ┆ rrd ; add a,30h ; ld (i┆
0x077e20…077e40 78 2d 31 29 2c 61 09 3b 0d 0a 09 64 65 63 09 69 78 09 09 3b 0d 0a 09 64 65 63 09 69 78 09 09 3b ┆x-1),a ; dec ix ; dec ix ;┆
0x077e40…077e60 0d 0a 09 69 6e 63 09 68 6c 09 09 3b 0d 0a 09 64 65 63 09 62 09 09 3b 0d 0a 09 6a 70 09 6e 7a 2c ┆ inc hl ; dec b ; jp nz,┆
0x077e60…077e80 42 58 42 43 44 41 09 3b 0d 0a 42 58 42 45 4e 44 3a 09 6c 64 09 61 2c 39 30 68 09 09 3b 0d 0a 09 ┆BXBCDA ; BXBEND: ld a,90h ; ┆
0x077e80…077ea0 6c 64 09 28 53 54 52 35 29 2c 61 09 3b 0d 0a 09 6c 64 09 28 53 54 52 36 29 2c 61 09 3b 0d 0a 09 ┆ld (STR5),a ; ld (STR6),a ; ┆
0x077ea0…077ec0 6c 64 09 61 2c 30 31 68 09 09 3b 0d 0a 09 6c 64 09 28 53 54 52 34 29 2c 61 09 3b 0d 0a 09 6c 64 ┆ld a,01h ; ld (STR4),a ; ld┆
0x077ec0…077ee0 09 61 2c 30 39 68 09 09 3b 0d 0a 09 6c 64 09 28 53 54 52 33 29 2c 61 09 3b 0d 0a 09 6c 64 09 61 ┆ a,09h ; ld (STR3),a ; ld a┆
0x077ee0…077f00 2c 30 30 68 09 09 3b 0d 0a 09 6c 64 09 62 63 2c 53 54 52 32 09 09 3b 0d 0a 09 6c 64 09 68 6c 2c ┆,00h ; ld bc,STR2 ; ld hl,┆
0x077f00…078100 (32, 0, 11) DataBlock {»EEOFPRC.MAC«}
[…0x1…]
0x078300…078500 (32, 0, 13) DataBlock {»EGENSUB.MAC«}
0x078500…078700 (32, 0, 14) 0xe5[0x200]
0x078700…078900 (32, 0, 15) DataBlock {»EEOFPRC.MAC«}
[…0x31…]
0x07ea00…07ea20 00 50 50 55 42 2f 45 58 54 4d 41 43 00 00 00 13 d8 00 d9 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ PPUB/EXTMAC ┆
0x07ea20…07ea40 00 45 47 45 4e 53 55 42 20 4d 41 43 00 00 00 80 da 00 db 00 dc 00 dd 00 de 00 df 00 e0 00 e1 00 ┆ EGENSUB MAC ┆
0x07ea40…07ea60 00 45 47 45 4e 53 55 42 20 4d 41 43 01 00 00 0a e2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EGENSUB MAC ┆
0x07ea60…07ea80 00 45 45 4f 46 50 52 43 20 24 24 24 00 00 00 80 e3 00 e4 00 e5 00 e6 00 e7 00 e8 00 e9 00 ea 00 ┆ EEOFPRC $$$ ┆
0x07ea80…07eaa0 00 45 45 4f 46 50 52 43 20 24 24 24 01 00 00 80 eb 00 ec 00 ed 00 ee 00 ef 00 f0 00 f1 00 f2 00 ┆ EEOFPRC $$$ ┆
0x07eaa0…07eac0 00 45 45 4f 46 50 52 43 20 24 24 24 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ EEOFPRC $$$ ┆
0x07eac0…07eae0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x1…]
0x07eb00…07ed00 (34, 0, 5) DataBlock {»EEOFPRC.MAC«}
[…0x2…]
0x07f100…07f300 (34, 0, 8) 0xe5[0x200]
0x07f300…07f500 (34, 0, 9) DataBlock {»EEOFPRC.MAC«}
[…0x2…]
0x07f900…07fb00 (34, 0, 12) 0xe5[0x200]
0x07fb00…07fd00 (34, 0, 13) DataBlock {»EEOFPRC.MAC«}
[…0x2…]
0x080100…080300 (34, 1, 1) 0xe5[0x200]
[…0x4fa…]